Routine: PRCHRCS7

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;;Oct 20, 2000
EN
Q2
EN1	;PRINT REPORT OF ACQUISITIONS CODE SHEETS TO BE DONE
EN2	;PRINT REPORT OF RECV.REPORT CODE SHEETS TO BE DONE
RD
P1
PODATA
P2
HD
Q
DELE	;DELETE NON-EXPENDABLE ORDERS FROM LIST OF ORDERS NEEDING CODE-SHEETS PROCESSED.

Name	Line Occurrences
Function Call: WRITE	Prompt: $P(^(0),U,1),! Line Location: EN+2
Function Call: WRITE	Prompt: !,?1,PRCHNON,?4,PRCHPONO Line Location: P1+1
Function Call: WRITE	Prompt: ?15,Y,?30,PRCHMOP,?62,PRCHSFC,!,?7,PRCHVND Line Location: P1+1
Function Call: WRITE	Prompt: ?15,Y,?30,PRCHMOP,?62,PRCHSFC,!,?7,PRCHVND Line Location: P1+1
Function Call: WRITE	Prompt: ?45,$J(PRCHFPT,6),?57,PRCHRDT,! Line Location: P2+0
Function Call: WRITE	Prompt: @IOF,$S(PRCHRPT=1:"DEPOT DUE-INS",1:"RECEIVING REPORTS")_" NEEDING LOG CODE SHEETS--STATION: ",PRC("SITE"),?67,PRCHDT,?88,"PAGE ",PRCHPAGE,! Line Location: HD+0
Function Call: WRITE	Prompt: ?4,"P.O.NO.",?15,"P.O.DATE",?30,"METHOD OF PROCESSING",?62,"SPECIAL FUND CONTROL POINT",!,?7,"VENDOR" Line Location: HD+2
Function Call: WRITE	Prompt: ?45,"PARTIAL",?57,"DATE RECEIVED" Line Location: HD+3
Function Call: WRITE	Prompt: ! Line Location: HD+4
Function Call: WRITE	Prompt: "-" Line Location: HD+4
Function Call: WRITE	Prompt: ! Line Location: HD+5
Function Call: WRITE	Prompt: $C(13),! Line Location: Q+0
Routine Call	DIE Line Location: DELE+1 DELE+2

FileNo	Call Tags
^PRC(442 - [#442]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(442	PODATA+2
^PRC(440 - [#440]	PODATA+3
^PRC(442 - [#442]	EN+2, RD+1, PODATA, PODATA+3, P2, DELE+2
^PRC(442.8 - [#442.8]	RD+1, RD+3
^PRCD(442.5 - [#442.5]	PODATA+1
^TMP($J	RD!, RD+1*, RD+3

Name	Field # of Occurrence
DA	DELE+1!, DELE+2!
DA(1	DELE+2*
DIE	DELE+1!, DELE+2!
DR	DELE+1!, DELE+2!
DT	RD
I	PODATA+2*, Q!
IOF	HD
IOM	HD+4
J	RD+3, HD+4, Q!
>> PRC("SITE"	EN+2, RD+1, HD
PRCH	EN+1, EN+2, Q2!, EN1+1, EN2+1*, RD+1, Q!, DELE+1
PRCHDT	RD*, HD, Q!
PRCHDY	P1, P1+1, P2, HD+5*, Q!
PRCHFPT	RD+3, P2, Q!, DELE+2
PRCHMOP	P1+1, PODATA+1*, Q!
PRCHNON	RD+3*, P1+1, Q!
PRCHPAGE	RD, HD, Q!
PRCHPO	EN+2, RD+1, RD+3*, PODATA, PODATA+3, P2, Q!, DELE+1, DELE+2
PRCHPONO	RD+2, RD+3, P1+1, Q!
PRCHQ	EN*, Q2!
PRCHQ("DEST"	EN*
PRCHRDT	P2*, Q!
PRCHRPT	EN1+1, EN2+1, RD+3, P1+1, HD, HD+3, Q!
PRCHSAVQ	EN*, EN+1, Q2!
PRCHSFC	P1+1, PODATA+2*, Q!
PRCHVND	P1+1, PODATA+3*, Q!
U	EN+2, RD+1, RD+3, PODATA+1, PODATA+2, PODATA+3
X	RD+1, PODATA, PODATA+1, PODATA+2*, Q!
Y	RD, P1+1, PODATA+2, PODATA+3, P2, Q!
>> ZTSK	Q+1