PRCPOPPC ;WISC/RFJ-post items in a case cart or instrument kit ;27 Sep 93
Source file <PRCPOPPC.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
HDR | ; -- header code
|
|
INIT | ; start list manager here and set up variables, clean up
; ^tmp($j,"prcpopccik",ccikitem)=qty ordered (passed to program) ; ^tmp($j,"prcpoppc",line,0)="" (list array) ; ^tmp($j,"prcpoppc-no",item)="" (do not include in list) ; ^tmp($j,"prcpoppc-items",item)=qty ordered ^ qty returned ; ^tmp($j,"prcpoppc-return",item)=qty entered by user for return |
|
BUILD | ; build list manager array
|
|
EXIT | ; -- exit code
|
|
EEITEMS | ; called from protocol file to enter/edit invpt items
|
|
CCIKNAME | ; set up ccikname header
|
|
ITEMNAME | ; set up item information
|