Routine: PRCPRAIP

Information

PRCPRAIP ;WISC/RFJ/DST-abbreviated item report (primary, second) ;09 Jun 93

Name	Comments	DBIA/ICR reference
PRIMARY	; abbreviated item report for primary and secondary
DQ	; queue starts here
Q
H

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"*** NO GROUP CATEGORIES SELECTED !" Line Location: PRIMARY+6
Function Call: WRITE	Prompt: ! Line Location: PRIMARY+12
Function Call: WRITE	Prompt: !!,"<> please wait <>" Line Location: PRIMARY+15
Function Call: WRITE	Prompt: !!?5,"GROUP: ",$S(GROUP=" ":"<<NONE>>",1:GROUP) Line Location: DQ+18
Function Call: WRITE	Prompt: !,$E(X,1,23),?24,ITEMDA,?31,$S(ODI="Y":"D",1:""),?46,$J(+$P(ITEMDATA,"^",7),8),$J($$UNIT^PRCPUX1(PRCP("I"),ITEMDA,"/"),10),$J($$STORAGE^PRCPESTO(PRCP("I"),ITEMDA),16) Line Location: DQ+29
Function Call: WRITE	Prompt: ! Line Location: DQ+31
Function Call: WRITE	Prompt: X Line Location: DQ+33
Function Call: WRITE	Prompt: !?10,"<<< TASKMANAGER JOB TERMINATED BY USER >>>" Line Location: DQ+35
Function Call: WRITE	Prompt: @IOF Line Location: H+0
Function Call: WRITE	Prompt: $C(13),"ABBREVIATED ITEM REPORT FOR: ",$E(PRCP("IN"),1,20),?(80-$L(%)),% Line Location: H+1
Function Call: WRITE	Prompt: !,$S(ODIS=2:"ON-DEMAND ITEMS ONLY",ODIS=3:"ALL ITEMS (STANDARD AND ON-DEMAND)",1:"STANDARD ITEMS ONLY") Line Location: H+3
Function Call: WRITE	Prompt: !,"DESCRIPTION",?24,"IM",?31,$S(ODIS>1:"OD",1:""),?41,$J("QTY OH",13),$J("UNIT/IS",10),$J("MAIN STORAGE",16),!?5,"ADD STORAGE",?26,"ADD STORAGE",?46,"ADD STORAGE",?66,"ADD STORAGE",!,% Line Location: H+4