Routine: PRCPRSUB

Information

PRCPRSUB ;WISC/RFJ-substitute listing for whse ;08 Jun 93

Name	Comments	DBIA/ICR reference
DQ	; queue starts here
H

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"THIS REPORT CAN ONLY BE USED BY THE WAREHOUSE." Line Location: PRCPRSUB+4
Function Call: WRITE	Prompt: ! Line Location: PRCPRSUB+9
Function Call: WRITE	Prompt: !!,"<> please wait <>" Line Location: PRCPRSUB+12
Function Call: WRITE	Prompt: !?10,"<<< TASKMANAGER JOB TERMINATED BY USER >>>" Line Location: DQ+10
Function Call: WRITE	Prompt: !!,$TR(NSN,"-"),?19,$E($$DESCR^PRCPUX1(PRCP("I"),ITEMDA),1,30),?52,$J(ITEMDA,6),$J($$UNIT^PRCPUX1(PRCP("I"),ITEMDA,"/"),10),$J(+$P(ITEMDATA,"^",7),12) Line Location: DQ+13
Function Call: WRITE	Prompt: !?4,$TR(NSN,"-"),?19,$E($$DESCR^PRCPUX1(PRCP("I"),SUBST),1,30),?52,$J(SUBST,6),$J($$UNIT^PRCPUX1(PRCP("I"),SUBST,"/"),10),$J(+$P(ITEMDATA,"^",7),12) Line Location: DQ+17
Function Call: WRITE	Prompt: @IOF Line Location: H+0
Function Call: WRITE	Prompt: $C(13),"SUBSTITUTE ITEM LISTING FOR: ",$E(PRCP("IN"),1,20),?(80-$L(%)),% Line Location: H+1
Function Call: WRITE	Prompt: !,"NSN",?19,"DESCRIPTION",?56,"MI",$J("UNIT/IS",10),$J("ONHAND QTY",12),!?4,"SUBSTITUTE ITEM(S)",!,% Line Location: H+2