Routine: PRCPRAVP

Information

PRCPRAVP ;WISC/RFJ-availability list report (primary) ;18 May 93

Name	Comments	DBIA/ICR reference
PRIMARY	; availability list for primary (called from prcpravl)
DEVICE
DQ	; queue starts here
Q
H

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PRIMARY+5
Function Call: WRITE	Prompt: !,"*** NO GROUP CATEGORIES SELECTED !" Line Location: PRIMARY+7
Function Call: WRITE	Prompt: ! Line Location: DEVICE+0
Function Call: WRITE	Prompt: !!,"<> please wait <>" Line Location: DEVICE+3
Function Call: WRITE	Prompt: !?10,"<<< TASKMANAGER JOB TERMINATED BY USER >>>" Line Location: DQ+30
Function Call: WRITE	Prompt: !!?2,"TOTALS :",?40,"INVENTORY VALUE",!?2,"--------",?40,"---------------" Line Location: DQ+33
Function Call: WRITE	Prompt: !?2,"GROUP ",$S(GROUPNM=" ":"<<NONE>>",1:GROUPNM),?40,":",$J(TOTAL,14,2) Line Location: DQ+35
Function Call: WRITE	Prompt: !?2,"--------",?40,"---------------" Line Location: DQ+38
Function Call: WRITE	Prompt: !?2,"TOTALS :",?40,$J(TOTINV,15,2) Line Location: DQ+39
Function Call: WRITE	Prompt: @IOF Line Location: H+0
Function Call: WRITE	Prompt: $C(13),"AVAILABILITY LISTING FOR: ",$E(PRCP("IN"),1,20),?(80-$L(%)),% Line Location: H+1
Function Call: WRITE	Prompt: !?1,"* ONLY SUMMARY OF ITEMS PRINTED *",!,% Line Location: H+3
Function Call: WRITE	Prompt: !,"DESCR",?15,"DESCRIPTION",?40,"MI",$J("UNIT/IS",14),?77,"KWZ",!,% Line Location: H+4