Routine: ACRFSHI1

Package	Total	Call Graph
Commitment Register	3	(DIE,DIK,DIR,FILE)^ACRFDIC (DISP,HEAD,ITEM)^ACRFSHIP PAUSE^ACRFWARN

Package	Total	Caller Graph
Commitment Register	1	ACRFSHIP

Entry Points

Name	Comments	DBIA/ICR reference
IARRAY	;EP - SET DOCUMENT ITEM ARRAY
P	;SCREEN CONTROL
I1
ITEMS	;EP - LIST BY ITEM NUMBER ITEMS TO BE SHIPPED
IQUAN	;SET QUANTITIY TO BE SHIPPED
IDELETE	;
IEDIT	;EDIT EXISTING SHIPPING INSTRUTIONS
QUAN	;CALCULATE QUANTITY MARKED AS SHIP
IDISP	;EP;DISPLAY ITEMS FOR EACH SHIPPING LOCATION
IC	;EP;TO CHOOSE ITEM(S) TO ADD OR EDIT CTION
IE	;LOOP THROUGH ITEMS
ICHOOSE	;CHOOSE ITEM TO BE EDITED
IADD

External References

Name	Field # of Occurrence
DIE^ACRFDIC	IQUAN+8
DIK^ACRFDIC	IDELETE+4
DIR^ACRFDIC	IC+3, ICHOOSE+5
FILE^ACRFDIC	I1+5
DISP^ACRFSHIP	P+2
HEAD^ACRFSHIP	P+2
ITEM^ACRFSHIP	IADD
PAUSE^ACRFWARN	IE+9, P+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: IDISP+1
Function Call: WRITE	Prompt: ! Line Location: IC+2
Function Call: WRITE	Prompt: ! Line Location: ICHOOSE+4
Function Call: WRITE	Prompt: !!,"TOTAL QUANTITY ORDRD..: ",$P(ACRSS("ACRSS",+ACRSSI),U,2) Line Location: IQUAN+1
Function Call: WRITE	Prompt: !,"TOTAL MARKED SHIPPED..: ",+$G(ACRQUAN(+ACRSSI)) Line Location: IQUAN+2
Function Call: WRITE	Prompt: !,"TOTAL TO THIS LOCATION: ",+$G(ACRQUAN(+ACRSSI,ACRSIDA)) Line Location: IQUAN+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACRSI - [#9003010]	IDISP+4, IC+1, IADD+3, I1*, I1+8, IE+2, QUAN+6, QUAN+7
^ACRSI("B"	QUAN+3
^ACRSS - [#9002193]	IARRAY+4
^ACRSS("J"	IARRAY+3

Label References

Name	Line Occurrences
I1	IADD+3
IADD	IC+5
IARRAY	IDISP+2
IC	ITEMS+1
ICHOOSE	IEDIT+3
IDELETE	IC+7
IE	IEDIT+5
IEDIT	IC+6
IQUAN	I1+9, IE+10
P	IDISP+13

Naked Globals

Name	Field # of Occurrence
^(0	IDISP+4, QUAN+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACRDOCDA	IARRAY+3, QUAN+3
>> ACRI	IDISP+5, IDISP+6, IDISP+7, IDISP+8, IDISP+11, IEDIT+5*
>> ACRIMAX	IDISP+8, I1+7, IEDIT+1*, IEDIT+2, ICHOOSE+1, ICHOOSE+2
>> ACRITEMS	IADD+2, IADD+3
>> ACRJ	IARRAY+2, IARRAY+5, IARRAY+6, IARRAY+7, IADD+3*
>> ACROUT	IC+4, IADD+1, IEDIT+4, IEDIT+5
ACRQUAN	ITEMS+2!, QUAN+7*, QUAN+8
ACRQUAN(	IDISP+9, IDISP+10, IE+4, IQUAN+2, IQUAN+3, QUAN+8*
ACRQUIT	ITEMS+1, ITEMS+2!, IC+4, IADD+1, IEDIT+4, IEDIT+5, ICHOOSE+6*
ACRSIDA	IDISP+4, IDISP+10, IC+1, IADD+3, I1, I1+1, I1+2, I1+8, IDELETE+1, IDELETE+3 , IE+2, IQUAN+3, IQUAN+4, IQUAN+7, QUAN+1~, QUAN+2, QUAN+3, QUAN+6, QUAN+7
ACRSS	ITEMS+2!, IARRAY+1!
ACRSS(	IDISP+6, IARRAY+6*, IADD+3, I1+4
ACRSS("ACRSS"	IARRAY+7*, IE+3, IQUAN+1
>> ACRSSDA	IARRAY+2, IARRAY+3, IARRAY+4, IARRAY+6, IARRAY+7, QUAN+7*, QUAN+8
>> ACRSSDT	IARRAY+4*, IARRAY+6, IARRAY+7
ACRSSI	ITEMS+2!, IDISP+4, IDISP+6, IDISP+9, IDISP+10, IDISP+12, I1+8, IE+2*, IE+3, IE+4 , IQUAN+1, IQUAN+2, IQUAN+3
ACRSSI(	IDISP+7*, IEDIT+5, IE+1
ACRSSIDA	IDISP+3, IDISP+4, IDISP+7, I1+6, I1+8, IDELETE+2, IE+1, IE+2, IQUAN+5, QUAN+4~ , QUAN+5, QUAN+6, QUAN+7
>> ACRX	IADD+3, I1+4, IEDIT+2, IEDIT+5, ICHOOSE+1, ICHOOSE+7
>> DA	IDELETE+2, IE+1, IQUAN+5*
>> DA(1	I1+1, IDELETE+1, IQUAN+4*
>> DIC	I1+2*
>> DIC(0	I1+3*
>> DIE	IQUAN+7*
>> DIK	IDELETE+3*
>> DIR("A"	ICHOOSE+3*
>> DIR(0	IC+1, ICHOOSE+2
>> DR	IQUAN+6*
IOSL	P+1
IOST	P+2, P+3
U	IDISP+9, IDISP+10, IDISP+12, IARRAY+6, IARRAY+7, IE+3, IQUAN+1, QUAN+7
>> X	I1+4, IE+3, IE+5, IE+6
>> Y	IC+4, IC+5, IC+6, IC+7, I1+6, IEDIT+5, ICHOOSE+6, ICHOOSE+7, IE+1, IE+4 , IE+5, IE+7

Customize PDF page

Package: Commitment Register

Routine: ACRFSHI1

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: