Routine: PRCPCRDC

Information

PRCPCRDC ;WISC/RFJ-case cart definition ;01 Sep 93

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NOTE -- This option will use a lot of paper!" Line Location: PRCPCRDC+9
Function Call: WRITE	Prompt: ! Line Location: PRCPCRDC+10
Function Call: WRITE	Prompt: !!,"<> please wait <>" Line Location: PRCPCRDC+13
Function Call: WRITE	Prompt: !,$J(+$P(DATA,"^",2),7),?10,$E($$DESCR^PRCPUX1(PRCPINPT,ITEMDA),1,20),?31,ITEMDA,?38,REUSABLE,?40,VENDOR,?48,CATALOG,?67,$E(LOCATION,1,12) Line Location: PRINT+11
Function Call: WRITE	Prompt: !!,"SPECIAL INSTRUCTIONS/REMARKS:" Line Location: PRINT+15
Function Call: WRITE	Prompt: !,DATA Line Location: PRINT+18
Function Call: WRITE	Prompt: @IOF Line Location: H+0
Function Call: WRITE	Prompt: $C(13),"DEFINITION OF CASE CART REPORT FOR: ",$E(PRCPINNM,1,20),?(80-$L(%)),% Line Location: H+1
Function Call: WRITE	Prompt: !?9,"NAME: ",CCNAME," (#",CCITEM,") ",?46,"LOCATION: ",CCLOC Line Location: H+2
Function Call: WRITE	Prompt: !?15,"CURRENT QUANTITY ASSEMBLED: ",ONHAND Line Location: H+3
Function Call: WRITE	Prompt: !?3,"CREATED BY: ",CCUSER,?50,"DATE: ",CCDATE Line Location: H+4
Function Call: WRITE	Prompt: !?1,"LAST EDIT BY: ",EDITUSER,?50,"DATE: ",EDITDATE Line Location: H+5
Function Call: WRITE	Prompt: !,$J("QTY",7),?10,"DESCRIPTION",?31,"MI#",?37,"RD",?40,"VEND#",?48,"CATALOG#",?67,"LOCATION",!,% Line Location: H+7