Routine: ACRFDI

Package	Total	Call Graph
Commitment Register	4	DIR^ACRFDIC SHIPTO^ACRFRR PAUSE^ACRFWARN ^ACRFZIS
VA Fileman	1	(,C)^%DTC

Entry Points

Name	Comments	DBIA/ICR reference
SS1
EN
ZIS
QADJST	;ADJUST QUANTITY ORDERED BY DELETING QUANTITY ALREADY ACCEPTED
LIST1
DOC1
LIST	;EP;TO PRINT DUE IN REPORT
DUE
DAT
HEAD
EXIT
W
DATES	;EP;TO DETERMINE DATES DURING WHICH ITEMS ARE DUE IN

External References

Name	Field # of Occurrence
^%DTC	DAT+5, DATES+12
C^%DTC	DUE+9
DIR^ACRFDIC	DUE+1, DATES+3, DATES+8
SHIPTO^ACRFRR	EN
PAUSE^ACRFWARN	LIST+5, W+10
^ACRFZIS	ZIS+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?10,"There are NO PO'S ",$G(ACRDUET) Line Location: LIST+4
Function Call: WRITE	Prompt: !,ACRDOC Line Location: SS1+10
Function Call: WRITE	Prompt: ?17,ACRINDEX Line Location: W+1
Function Call: WRITE	Prompt: ?24,ACRDSC1 Line Location: W+2
Function Call: WRITE	Prompt: ?55,ACRUI Line Location: W+3
Function Call: WRITE	Prompt: ?58,$J(ACRQTY,4) Line Location: W+4
Function Call: WRITE	Prompt: ?63,$J($G(ACRLATE),4) Line Location: W+5
Function Call: WRITE	Prompt: ! Condition for execution: ACRJ>1 Line Location: W+9
Function Call: WRITE	Prompt: ?24,ACRDSC2 Line Location: W+9
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+0
Function Call: WRITE	Prompt: !?17,"DUE IN REPORT" Line Location: HEAD+1
Function Call: WRITE	Prompt: !?17,"RECEIVING LOCATION: ",$P($G(^AUTTPRG(+$G(ACRRL),0)),U) Line Location: HEAD+2
Function Call: WRITE	Prompt: !?17,"REPORT DATE.......: " Line Location: HEAD+3
Function Call: WRITE	Prompt: Y Line Location: HEAD+6
Function Call: WRITE	Prompt: !?17,"REPORT FOR ORDERS.: ",$G(ACRDUET) Line Location: HEAD+7
Function Call: WRITE	Prompt: !!?58,"DUE" Line Location: HEAD+8
Function Call: WRITE	Prompt: ?63,"NO." Line Location: HEAD+9
Function Call: WRITE	Prompt: ?77,"STO" Line Location: HEAD+10
Function Call: WRITE	Prompt: !?17,"INDEX" Line Location: HEAD+11
Function Call: WRITE	Prompt: ?58,"IN" Line Location: HEAD+12
Function Call: WRITE	Prompt: ?63,"DAYS" Line Location: HEAD+13
Function Call: WRITE	Prompt: ?68,"DATE" Line Location: HEAD+14
Function Call: WRITE	Prompt: ?77,"RES" Line Location: HEAD+15
Function Call: WRITE	Prompt: !,"PO NUMBER" Line Location: HEAD+16
Function Call: WRITE	Prompt: ?17,"NUMBER" Line Location: HEAD+17
Function Call: WRITE	Prompt: ?24,"DESCRIPTION" Line Location: HEAD+18
Function Call: WRITE	Prompt: ?55,"UI" Line Location: HEAD+19
Function Call: WRITE	Prompt: ?58,"QTY" Line Location: HEAD+20
Function Call: WRITE	Prompt: ?63,"LATE" Line Location: HEAD+21
Function Call: WRITE	Prompt: ?68,"DUE IN" Line Location: HEAD+22
Function Call: WRITE	Prompt: ?77,"ITM" Line Location: HEAD+23
Function Call: WRITE	Prompt: !,"----------------" Line Location: HEAD+24
Function Call: WRITE	Prompt: ?17,"------" Line Location: HEAD+25
Function Call: WRITE	Prompt: ?24,"------------------------------" Line Location: HEAD+26
Function Call: WRITE	Prompt: ?55,"--" Line Location: HEAD+27
Function Call: WRITE	Prompt: ?58,"----" Line Location: HEAD+28
Function Call: WRITE	Prompt: ?63,"----" Line Location: HEAD+29
Function Call: WRITE	Prompt: ?68,"--------" Line Location: HEAD+30
Function Call: WRITE	Prompt: ?77,"---" Line Location: HEAD+31

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACRDOC - [#9002196]	LIST1+6, DOC1+1
^ACRDOC("DI"	LIST+3, LIST1+4
^ACROBL - [#9002189]	LIST1+10
^ACRRR - [#9002193.2]	QADJST+4
^ACRRR("B"	QADJST+3
^ACRSS - [#9002193]	SS1, SS1+1, SS1+4
^ACRSS("J"	LIST1+5, DOC1+10
^ACRUI - [#9002190.6]	SS1+7
^AUTTPRG - [#9999999.62]	HEAD+2
^DD("DD"	HEAD+5

Label References

Name	Line Occurrences
DAT	LIST1
DATES	DUE+11
DOC1	LIST1+15
DUE	EN+2
HEAD	LIST+1
LIST1	LIST+3
QADJST	SS1+8
SS1	DOC1+10
ZIS	EN+4

Naked Globals

Name	Field # of Occurrence
^("DT"	QADJST+4
^(0	SS1+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACR	EXIT!
ACRAFTER	EXIT!
ACRBEFOR	EN+3, EXIT!, LIST+3, DAT+2, DUE+10, DATES+10
ACRDAT	EN+3, EXIT!, LIST+3, LIST1+4, DAT+1, DAT+3, DUE+8, DATES+5*
ACRDAT1	EXIT!, DAT+1*, W+7
ACRDAYS	EXIT!, DAT+7, DUE+7, DATES+13
ACRDIR	EXIT!, DUE*, DUE+3
>> ACRDOC	DOC1+2, DOC1+4, DOC1+5*, SS1+10
ACRDOC1	EXIT!, DOC1+3*, DOC1+4, W+8
ACRDOCDA	EXIT!, LIST1+3, LIST1+4, LIST1+5, LIST1+6, LIST1+10, DOC1+1, DOC1+10
ACRDSC1	EXIT!, SS1+4, SS1+5, SS1+6, W+2
ACRDSC2	EXIT!, SS1+5*, W+9
ACRDUET	EXIT!, LIST+4, DAT+4, DUE+3*, HEAD+7
ACRHD	DOC1+7~, DOC1+8, SS1+10
ACRINDEX	EXIT!, SS1*, W+1
ACRJ	EXIT!, LIST+2, LIST+4, LIST1+3, DOC1+9, SS1+11, W, W+6, W+9
ACRLATE	EXIT!, DAT+8*, W+5
>> ACROUT	EN+1, EN+3, LIST+3, LIST1+2, LIST1+4, DOC1+10, DATES+4, DATES+9
ACRQTY	EXIT!, SS1+2, SS1+9, W+4, QADJST+4
ACRQUIT	EN+1, EN+3, EXIT!, LIST+3, LIST+6!, LIST1+2, LIST1+4, DAT!, DAT+7, DOC1+10 , DUE+2, DATES+4, DATES+9
ACRRL	EN+1, EXIT!, LIST+3, LIST1+4, HEAD+2
ACRRRDA	QADJST+1~, QADJST+2, QADJST+3, QADJST+4
ACRRTN	EXIT!, ZIS+1*
>> ACRSSDA	DOC1+9, DOC1+10, SS1, SS1+1, SS1+4, QADJST+3
ACRUI	EXIT!, SS1+1, SS1+2, SS1+3, SS1+7*, W+3
ACRX	EXIT!
DATA	LIST1+1~, LIST1+6, LIST1+7, LIST1+8, LIST1+9, LIST1+10, LIST1+11, LIST1+12, LIST1+13, LIST1+14
>> DIR("A"	DATES+2, DATES+7
>> DIR(0	DUE, DATES+1, DATES+6*
DT	DAT+2, DUE+6, HEAD+4, DATES+11
IOF	HEAD
IOSL	W+10
U	LIST1+7, LIST1+8, LIST1+9, LIST1+11, LIST1+12, LIST1+13, LIST1+14, DOC1+2, DOC1+3, DOC1+5 , SS1, SS1+2, SS1+3, SS1+5, SS1+6, SS1+7, DUE+3, HEAD+2, QADJST+4
X	DAT+7, DAT+8, DOC1~, DOC1+1*, DOC1+2, DOC1+3, DOC1+5, DUE+3, DUE+5, DUE+10 , DATES+13
X1	DAT+2, DAT+6!, DUE+6, DATES+10*
X2	DAT+3, DAT+6!, DUE+5, DUE+7, DATES+11*
>> Y	DUE+2, DUE+4, DUE+11, HEAD+4*, HEAD+6, DATES+4, DATES+5, DATES+9, DATES+10
>> ZTDESC	ZIS*

Customize PDF page

Package: Commitment Register

Routine: ACRFDI

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: