Routine: ACRFSHFT

Package	Total	Call Graph
Commitment Register	2	(DIC,DIE,DIK,DIR)^ACRFDIC PAUSE^ACRFWARN
VA Fileman	1	WAIT^DICD

Entry Points

Name	Comments	DBIA/ICR reference
WARN
EN	;EP;
CSUP	;CHANGE SUPPLY/ITEM FILE
DEPT	;
P
TO	;SELECT ACCOUNT TO SHIFT TO
CSA	;CHANGE SUB-ALLOWANCE
AL	;SELECT ACCOUNT LEVEL
CLB	;CHANGE DEPARTMENT ACCOUNT
APPR	;DELETE APPROPRIATIONS
ALLW	;
EN1	;
CRQ	;CHANGE REQUEST
EXIT
W1
ID	;SELECT ID NO(S) TO SHIFT
SALW	;

External References

Name	Field # of Occurrence
DIC^ACRFDIC	TO+6
DIE^ACRFDIC	DEPT+12, DEPT+19, SALW+12, SALW+19, ALLW+12, ALLW+19, APPR+12, CSA+6, CLB+6, CRQ+6 , CSUP+6
DIK^ACRFDIC	DEPT+15, SALW+15, ALLW+15, APPR+15
DIR^ACRFDIC	AL+4, AL+13, ID+4, WARN+6
PAUSE^ACRFWARN	P
WAIT^DICD	WARN+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: AL+3
Function Call: WRITE	Prompt: ! Line Location: AL+12
Function Call: WRITE	Prompt: ! Line Location: ID+3
Function Call: WRITE	Prompt: !!,"Select the ",$S(ACRAL=1:"Sub-Allowance",ACRAL=2:"Allowance",1:"Appropration")," to move selected ",$S(ACRAL=1:"Department Account(s)",ACRAL=2:"Sub-Allowance(s)",1:"Allowance(s)")," to: " Line Location: TO+4
Function Call: WRITE	Prompt: ! Line Location: TO+5
Function Call: WRITE	Prompt: ! Line Location: WARN+5
Function Call: WRITE	Prompt: ! Line Location: WARN+9
Function Call: WRITE	Prompt: !,$S(ACRAL=1:"Department Account(s)",ACRAL=2:"Sub-Allowance(s)",ACRAL=3:"Allowance(s)",1:"Appropriation(s)"),": ",ACRID Line Location: W1+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACRAPP - [#9002185]	Classic Fileman Calls
^ACRALW - [#9002186]	Classic Fileman Calls
^ACRALC - [#9002187]	Classic Fileman Calls
^ACRLOCB - [#9002188]	Classic Fileman Calls
^ACROBL - [#9002189]	Classic Fileman Calls
^ACRSS - [#9002193]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACRALC - [#9002187]	SALW+1
^ACRALC("M"	ALLW+3, ALLW+8, CSA+2
^ACRALC("NEXTFY"	SALW+9
^ACRALC(0	ID+1
^ACRALW - [#9002186]	ALLW+1
^ACRALW("M"	APPR+3, APPR+8
^ACRALW("NEXTFY"	ALLW+9
^ACRALW(0	ID+1
^ACRAPP - [#9002185]	APPR+1
^ACRAPP("NEXTFY"	APPR+9
^ACRAPP(0	ID+1
^ACRLOCB - [#9002188]	DEPT+1, CLB+2
^ACRLOCB("M"	SALW+3, SALW+8, CLB+2
^ACRLOCB("NEXTFY"	DEPT+9
^ACRLOCB(0	ID+1
^ACROBL("C"	SALW+3, SALW+8
^ACROBL("D"	DEPT+3, DEPT+8, CRQ+2
^ACROBL("LOT"	ALLW+3, ALLW+8
^ACROBL("PROP"	APPR+3, APPR+8
^ACRSS("F"	CSUP+2

Label References

Name	Line Occurrences
ALLW	WARN+13
APPR	WARN+14
CLB	SALW+20, CSA+7
CRQ	DEPT+20, CLB+7
CSA	ALLW+20
DEPT	WARN+11
EN1	EN+1
SALW	WARN+12
TO	ID+8
W1	WARN+1
WARN	ID+9

Naked Globals

Name	Field # of Occurrence
^(	DEPT+9, SALW+9, ALLW+9, APPR+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACR	EXIT!
>> ACRAL	AL+16*, TO+2, TO+3, TO+4, WARN+11, WARN+12, WARN+13, WARN+14, W1+1, W1+2
>> ACRALC(	CSA+2
>> ACRALDA	ALLW+1*, ALLW+3, ALLW+5, ALLW+8, ALLW+9, ALLW+13, ALLW+16, CSA+2, CSA+5
>> ACRAPPDA	APPR+1*, APPR+3, APPR+5, APPR+8, APPR+9, APPR+13
ACRDEL	AL+7*, AL+8!, AL+10, ID+8, DEPT+2, SALW+2, ALLW+2, APPR+2, W1, W1+2
>> ACRDOCDA	CRQ+1, CRQ+2, CRQ+3
>> ACRI	DEPT+1, SALW+1, ALLW+1, APPR+1
>> ACRID	ID+7*, DEPT+1, SALW+1, ALLW+1, APPR+1, W1+1
>> ACRLBDA	DEPT+1, DEPT+3, DEPT+5, DEPT+8, DEPT+9, DEPT+13, DEPT+16, CLB+1, CLB+2*, CLB+3 , CRQ+2, CRQ+5, CSUP+2, CSUP+5
>> ACROF	DEPT+5, SALW+5, ALLW+5, APPR+5
>> ACRON	DEPT+5, SALW+5, ALLW+5, APPR+5
>> ACROUT	AL+5, AL+14, ID+5, TO+7, WARN+7
>> ACRQUIT	AL+5, AL+14, ID+5, TO+7, TO+8, WARN, WARN+7
ACRSADA	EXIT!, SALW+1, SALW+3, SALW+5, SALW+8, SALW+9, SALW+13, SALW+16, CSA+1, CSA+2* , CSA+3, CLB+2, CLB+5
>> ACRSSDA	CSUP+1, CSUP+2, CSUP+3
>> ACRTO	TO+9*, DEPT+18, SALW+18, ALLW+18, W1+2, CSA+5
>> ACRY	AL+6, AL+15, AL+16, ID+1, ID+6, ID+7
>> DA	DEPT+9, DEPT+13, DEPT+16, SALW+9, SALW+13, SALW+16, ALLW+9, ALLW+13, ALLW+16, APPR+9 , APPR+13, CSA+3, CLB+3, CRQ+3, CSUP+3*
>> DIC	TO+2*
>> DIC("A"	TO+3*
>> DIC(0	TO+1*
>> DIE	DEPT+10, DEPT+17, SALW+10, SALW+17, ALLW+10, ALLW+17, APPR+10, CSA+4, CLB+4, CRQ+4 , CSUP+4*
>> DIK	DEPT+14, SALW+14, ALLW+14, APPR+14
>> DIR("A"	AL+2, AL+11, ID+2, WARN+3
>> DIR("B"	WARN+4*
>> DIR(0	AL+1, AL+9, AL+10, ID+1, WARN+2*
>> DR	DEPT+11, DEPT+18, SALW+11, SALW+18, ALLW+11, ALLW+18, APPR+11, CSA+5, CLB+5, CRQ+5 , CSUP+5*
IOST	WARN+10
U	ID+1
>> Y	AL+5, AL+7, AL+14, ID+5, TO+7, TO+8, TO+9, WARN+8

Customize PDF page

Package: Commitment Register

Routine: ACRFSHFT

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: