Routine: PRCHRCS

Information

PRCHRCS ;SF/TKW-PRINT REPORTS SHOWING PPM WHAT LOG CODE SHEETS NEED TO BE GENERATED ;9/12/96

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
IFCAP	2	YN^PRCFYN ^PRCHQUE
VA FileMan	2	DD^%DT ^DIE
Kernel	1	KILL^%ZTLOAD

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
IFCAP	3	PRCHDEP3 PRCHEC PRCHEI

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
DEL	;DELETE NON-EXPENDABLE ORDERS FROM LIST OF ORDERS NEEDING CODE-SHEETS PROCESSED.

External References

Name	Field # of Occurrence
DD^%DT	RD, PODATA+3, P2
KILL^%ZTLOAD	Q+1
^DIE	DEL+1, DEL+2
YN^PRCFYN	EN+3
^PRCHQUE	EN

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,$C(7),"After checking the report, you will need to purge the NONEXPENDABLE",!,"entries from the list. Since the codesheets for NONEXPENDABLE goods have",! Line Location: EN+1
Function Call: WRITE	Prompt: "not yet been programmed, the stations must use either FALCON, or the",!,"KEYPUNCH A CODESHEET option to create these entries, rather than this",!,"option. Therefore, they no longer need to be on the list.",! Line Location: EN+2
Function Call: WRITE	Prompt: $P(^(0),U,1),! Line Location: EN+5
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:"ACQUISITIONS",1:"RECEIVING REPORTS")_" NEEDING LOG CODE SHEETS--STATION: ",PRC("SITE"),?67,PRCHDT,?88,"PAGE ",PRCHPAGE,! Line Location: HD+0
Function Call: WRITE	Prompt: ?1,"(NOTE: ** INDICATES NONEXPENDABLE ORDERS)",! Line Location: HD+1
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: DEL+1 DEL+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
DEL	EN+5
HD	RD, P1, P2
P1	RD+6
P2	RD+6
PODATA	P1+1
Q	RD+7
Q2	EN+3, EN+4
RD	EN1+1

Naked Globals

Name	Field # of Occurrence
^(	RD+6
^(0	EN+5, RD+2, P2
^(1	EN+5, RD+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: IFCAP