Routine: PRCPCRLO

Information

PRCPCRLO ;WISC/RFJ-specific item or ik locator report ;01 Sep 93

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PRCPCRLO+8
Function Call: WRITE	Prompt: !!,"<> please wait <>" Line Location: PRCPCRLO+11
Function Call: WRITE	Prompt: !,"CC ITEM # ",CCITEM,?20,$E($$DESCR^PRCPUX1(PRCP("I"),CCITEM),1,28),?50,$E($$INVNAME^PRCPUX1(+$P(^PRCP(445.7,CCITEM,0),"^",2)),1,18),?70,$J($P(DATA,"^",2),10) Line Location: DQ+5
Function Call: WRITE	Prompt: !,"IK ITEM # ",IKITEM,?20,$E($$DESCR^PRCPUX1(PRCP("I"),IKITEM),1,28),?50,$E($$INVNAME^PRCPUX1(+$P(^PRCP(445.8,IKITEM,0),"^",2)),1,18),?70,$J($P(DATA,"^",2),10) Line Location: DQ+9
Function Call: WRITE	Prompt: @IOF Line Location: H+0
Function Call: WRITE	Prompt: $C(13),"SPECIFIC ITEM OR INSTRUMENT KIT LOCATOR REPORT ",?(80-$L(%)),% Line Location: H+1
Function Call: WRITE	Prompt: !?5,"FOR: ",PRCP("IN") Line Location: H+3
Function Call: WRITE	Prompt: !?4,"ITEM: ",$E(ITEMDESC,1,20),?32,"CURRENT QTY ON-HAND: ",QTY," ",UNITS Line Location: H+4
Function Call: WRITE	Prompt: !,"CASE CART OR INSTRUMENT KIT",?50,"CREATED BY",?70,$J("QTY NEEDED",10),!,% Line Location: H+5