pltcl question - Mailing list pgsql-general

Can someone who is familiar with pltcl take a look at the following and suggest why it gives me the oh-so-familiar

Error: ERROR:  pltcl: wrong # args: should be "set varName ?newValue?"

I am calling it with

select vsp_insertplanitem(0, char(10) 'iah', 0, 0,  varchar(150) 'my cool planitem', varchar(250) 'my cool
description',date '01/01/01', date '12/31/01', char(10) '12345', 0, varchar(250) '', 0, varchar(50) '', varchar(50) '',
2001)as result 

Here is the function.

CREATE function vsp_insertplanitem(int, char(10), int, int, varchar(150), varchar(250), date, date, char(10), int,
varchar(250),int, varchar(50), varchar(50), int) returns int as ' 

set ISBM "$1"
set CREATEDBYID "$2"
set PLANLEVEL "$3"
set PARENTID "$4"
set PLANITEMNAME "$5"
set PLANITEMDESC "$6"
set EST_START_DATE "$7"
set EST_COMPL_DATE "$8"
set CHAMPIONID "$9"
set PRECURSORID "$10"
set DESIRED_OUTCOME "$11"
set MEASURABLE_RESULT "$12"
set MEASURABLE_RESULT_UNITS "$13"
set NEW_MEASURABLE_RESULT_UNITS "$14"
set PLANYEAR "$15"

set ERROR 0
set PLANITEMID 0

/* Check for overlap with the current plan year  */

set sqlString "select overlaps(cast(''$EST_START_DATE'' as date), ";
append sqlString "cast(''$EST_COMPL_DATE'' as date), ";
append sqlString "cast(''01/01/$PLANYEAR'' as date), ";
append sqlString "cast(''12/31/$PLANYEAR'' as date)) as inYear";
elog NOTICE $sqlString;
spi_exec "$sqlString";

if {[string match False $inYear]} {
    set errorMsg "This item does not have any effectivity in "
    append errorMsg "the current plan year.  Check the dates and "
    append errorMsg "ensure they fall at least partly in the plan year."
    elog "ERROR" $errorMsg
    return 0
}

/* Do the PlanItem insert  */

spi_exec "INSERT INTO PlanItems (CREATEDBYID,\
    PLANLEVEL, PARENTID, PLANITEMNAME, PLANITEMDESC, EST_START_DATE,\
    EST_COMPL_DATE, CHAMPIONID, PRECURSORID) VALUES (''$CREATEDBYID'',\
    $PLANLEVEL, $PARENTID, ''$PLANITEMNAME'', ''$PLANITEMDESC'', ''$EST_START_DATE'',\
    ''$EST_COMPL_DATE'', ''$CHAMPIONID'', $PRECURSORID)"

/*  If this is a benchmark, find out the plan item id we just created */

if {[string match 1 $ISBM]} {
    spi_exec "select currval(planitems_planitemid_seq) as PLANITEMID"


    /* If there is a new OutcomeCode let''s insert it first so we don''t
     * violate data integrity  */

    if {[string length $NEW_MEASURABLE_RESULT_UNITS]!=0} {
        set sqlString "insert into outcomeunits (UNITSCODE, CREATEDBYID) values "
        append sqlString "(''$NEW_MEASURABLE_RESULT_UNITS'', ''$CREATEDBYID'')"
        spi_exec "$sqlString"

    set MEASURABLE_RESULT_UNITS "$NEW_MEASURABLE_RESULT_UNITS"
    }

    /* Do the Outcomes insert */

    set sqlString "INSERT INTO Outcomes (PLANITEMID, DESIRED_OUTCOME, MEASURABLE_RESULT, "
    append sqlString "MEASURABLE_RESULT_UNITS) VALUES ($PLANITEMID, ''$DESIRED_OUTCOME'', "
    append sqlString "''$MEASURABLE_RESULT'', ''$MEASURABLE_RESULT_UNITS'')"
    spi_exec "$sqlString"

}

return 1

' language 'pltcl';

Thank you in advance...



Ian A. Harding
Programmer/Analyst II
Tacoma-Pierce County Health Department
(253) 798-3549
mailto: ianh@tpchd.org