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
|
