Routine: PRCH442A

Information

PRCH442A ;WISC/KMB/CR/DXH/DGL-CREATE PURCHASE CARD ORDER FROM RIL ;4/13/00 1:32pm

Name	Comments	DBIA/ICR reference
SETUP	; create 442 entry
LOOP
LQ
LOOPA
SETIT	;set item data on 442 record
INCOM1
INCOM2
INCOM	;
DETAIL	;
DETAIL1	;Get tally for the PC user and exclude the Approving Official.
DETAIL2	;Get tally for the PC Coordinator.
WRTE	;
C2237	;cancel 2237 from PC order	ICR #6734 Status: Active Usage: Private
RENUM	; delete delivery order items from repetitive item list
HDR
HLD

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Unable to create 442 entry. Try later." Line Location: SETUP+4
Function Call: WRITE	Prompt: !!,"Another user has deleted this RIL, Purchase Order will now be deleted.",!! Line Location: SETUP+20
Function Call: WRITE	Prompt: !,"Edit request ",$P(^PRC(442,PDA,0),"^") Line Location: LOOP+0
Function Call: WRITE	Prompt: @IOF Line Location: INCOM+4
Function Call: WRITE	Prompt: !,"Please select a device for printing this report." Line Location: INCOM+6
Function Call: WRITE	Prompt: !!!!,?10,"* NO RECORDS TO PRINT *" Line Location: WRTE+2
Function Call: WRITE	Prompt: !,"This Repetitive Item List has no more items, and will be deleted." Line Location: RENUM+6
Function Call: WRITE	Prompt: @IOF Line Location: HDR+0
Function Call: WRITE	Prompt: !,"INCOMPLETE PURCHASE CARD ORDERS REPORT",?45,TIMEDATE,?70,"PAGE ",P Line Location: HDR+1
Function Call: WRITE	Prompt: !,"PURCHASE CARD ORDER",?21,"PO DATE",?40,"SUPPLY STATUS",!,?10,"BUYER",?40,"DATE PO ASSIGNED" Line Location: HDR+2
Function Call: WRITE	Prompt: ! Line Location: HDR+3
Function Call: WRITE	Prompt: "----------" Line Location: HDR+3
Function Call: READ	Variable: XXZ Timeout: DTIME Line Location: HLD+0
Function Call: WRITE	Prompt: !,"Press return to continue, '^' to exit: " Line Location: HLD+0