Routine: ACRFPD06

Information

ACRFPD06 ;IHS/OIRM/DSD/AEF - UPDATE ARMS PER DIEM CITY FILE [ 9/30/2005 10:01 AM ]

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA Fileman	4	^DIC FILE^DICN ^DIE EN^DIU2
IHS VA Utilities	1	^XBKVAR
Kernel	1	BMES^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
DEACT(CITY,IEN)
MULT	; LOOK AT IDENTICAL DUPLICATES
EDIT(IEN,CITY,STATE,LODGE,MEALS,EFFECT,BEGIN,END,COUNTY)
ADD(IEN,CITY,STATE)
BLDC	;----- BUILD GLOBAL CONTAINING CITY DATA
MSG(N,SUFX)	;LOCAL ENTRY
EN	;EP -- MAIN ENTRY POINT
MIL(CITY)	;EXTRINSIC FUNCTION TO DETERMINE IF MILITARY ENTRY
UP(ACRZD0)
UPDATE	;----- BEGIN UPDATE PROCESS
DATA(ACRZD0)
CLEAN	; CLEAN OUT OLD "D" CROSS-REFERENCES THAT POINT TO "XX" CITIES
BLD	;----- BUILD ^TMP GLOBAL ARRAYS CONTAINING PER DIEM CITY DATA
LOOP1	;----- BUILD GLOBAL CONTAINING CITY DATA FOR BAD DATA CLEANUP
BLDU	;----- BUILD GLOBAL CONTAINING UPDATE DATA
OTH(IEN,CITY,STATE)
CLEANX	; CLEAN OUT OLD INTERNAL "B" CROSS-REFERENCES THAT ARE NOT IN "B" X-REF
BLDA(IEN,CITY,STATE)
LEFT	;----- PROCESS LEFTOVERS ("XX" DUPLICATES)
CLEANC	; CLEAN OUT OLD "C" CROSS-REFERENCES THAT POINT TO "XX" CITIES
CLEANB	; CLEAN OUT OLD "B" CROSS-REFERENCES THAT POINT TO "XX" CITIES
LOOP	;-- LOOP THROUGH ALL CITIES NOT UPDATED AND SET TO STANDARD RATE
DELETE	;----- DELETE ACRZ ARMS PER DIEM CITY UPDATE FILE

External References

Name	Field # of Occurrence
^DIC	ADD+9
FILE^DICN	OTH+14
^DIE	EDIT+16, DEACT+16, LOOP+26
EN^DIU2	DELETE+5
^XBKVAR	EN+2
BMES^XPDUTL	MSG+1, MSG+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"BEGINNING CLEAN UP OF MISSING STATE/MILLITARY INSTALLATION ENTRIES" Line Location: EN+8
Function Call: WRITE	Prompt: !!,"BEGINNING UPDATES" Line Location: EN+11
Function Call: WRITE	Prompt: !!,"BEGINNING CROSS-REFERENCES CLEAN UP" Line Location: EN+14
Function Call: WRITE	Prompt: !,N,?7,NAME_" Node 1 KILLED" Line Location: DEACT+8
Routine Call	DIE Line Location: EDIT+16 DEACT+16 LOOP+26
Routine Call	DIC Line Location: ADD+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACRPD - [#9002193.9]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACRPD - [#9002193.9]	LOOP1+5, LOOP1+6, LOOP1+11!, EDIT+5, OTH+6, DEACT+3, DEACT+7, DEACT+8!, DEACT+9, DEACT+18! , BLDC+6, BLDC+7, BLDA+4, BLDA+5, BLDA+8!, BLDA+9!, LOOP+4, LOOP+5, LOOP+8, CLEAN+5 , CLEANB+5, CLEANC+5, CLEANX+3, CLEANX+4, CLEANX+6, CLEANX+7, CLEANX+9, CLEANX+10, CLEANX+11!, CLEANX+12! , MULT+4, MULT+5
^ACRPD("B"	CLEANB+3, CLEANB+4, CLEANB+7!
^ACRPD("C"	CLEANC+3, CLEANC+4, CLEANC+7!
^ACRPD("D"	CLEAN+3, CLEAN+4, CLEAN+7!
^ACRZPDC(9002199.9	EN+25!, UPDATE+4, DATA+3, BLDU+5, BLDU+6
^DD(9002199.9	OTH+10
^DIC(5 - [#5]	MSG+3
^TMP("ACRZ"	EN+20!, EN+21!, EN+22!, LOOP1+2!, LOOP1+14, LOOP1+17, LOOP1+19!, UP+5, UP+10!, OTH+3 , OTH+5, LEFT+4, LEFT+6, BLDC+3!, BLDC+4!, BLDC+13, BLDA+10, BLDU+3!, BLDU+12, MULT+1! , MULT+10, MULT+12

Label References

Name	Line Occurrences
$$MIL	LOOP1+13, CLEAN+6, CLEANB+6, CLEANC+6, CLEANX+10
ADD	UP+6
BLD	EN+12
BLDA	BLDC+14
BLDC	BLD+2
BLDU	BLD+2
CLEAN	EN+16
CLEANB	EN+17
CLEANC	EN+18
CLEANX	EN+19
DATA	UP+3
DEACT	LOOP1+15, LOOP1+18, LEFT+7, MULT+11
EDIT	UP+8
LEFT	UPDATE+6
LOOP	UPDATE+7
LOOP1	EN+9
MSG	EN+3, EN+23, EN+26, EDIT+18, OTH+15, ADD+10, ADD+12, DEACT+17, DEACT+19, DELETE+6
MULT	EN+15
OTH	EDIT+17
UP	UPDATE+5
UPDATE	EN+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACRZD0	UPDATE+2~, UPDATE+3, UPDATE+4, UPDATE+5, UP~, UP+3, DATA~, DATA+3
ADDCITY	OTH+2~, OTH+4, OTH+5, OTH+6, OTH+12, BLDA+2~, BLDA+5*, BLDA+6, BLDA+7, BLDA+9 , BLDA+10
BEGIN	UP+2~, UP+8, EDIT~, EDIT+11, MSG+5, DATA+7*
CITST	MULT+2~, MULT+9*, MULT+10, MULT+12
CITY	LOOP1+3~, LOOP1+8, LOOP1+9, LOOP1+10, LOOP1+13, LOOP1+14, LOOP1+15, LOOP1+17, LOOP1+18, UP+2~ , UP+4, UP+5, UP+6, UP+8, UP+10, EDIT~, EDIT+17, MSG+2, OTH~, OTH+3 , OTH+5, ADD~, ADD+8, LEFT+2~, LEFT+3, LEFT+4, LEFT+6, LEFT+7, DEACT~, DATA+4 , BLDC+2~, BLDC+9, BLDC+10, BLDC+13, BLDC+14, BLDA~, BLDA+7, BLDA+10, BLDU+2~, BLDU+8 , BLDU+9, BLDU+12, CLEAN+1~, CLEAN+5, CLEAN+6, CLEANB+1~, CLEANB+5, CLEANB+6, CLEANC+1~, CLEANC+5* , CLEANC+6, CLEANX+1~, CLEANX+7, CLEANX+10, CLEANX+11, MIL~, MIL+1, MIL+2, MIL+3, MIL+4 , MIL+5, MIL+6, MIL+7, MIL+8, MIL+9, MIL+10, MIL+11, MULT+2~, MULT+6, MULT+7 , MULT+9, MULT+11
CNT	EN+5~, EN+23, UPDATE+3, EDIT+4
COUNTY	UP+2~, UP+8, EDIT~, EDIT+5, EDIT+13, DATA+6
D1	BLDA+2~, BLDA+3, BLDA+4, BLDA+5, BLDA+8
DA	EDIT+3~, EDIT+7, OTH+2~, DEACT+2~, DEACT+14, DEACT+17, LOOP+2~, LOOP+25*
DA(1	OTH+7*, OTH+8
DATA	LOOP1+3~, LOOP1+6, LOOP1+7, LOOP1+8, LOOP1+12, DEACT+2~, DEACT+3, DEACT+4, DEACT+5, DEACT+12 , DATA+2~, DATA+3, DATA+4, DATA+5, DATA+6, DATA+7, DATA+8, DATA+9, DATA+10, DATA+11 , BLDC+2~, BLDC+7, BLDC+8, BLDC+9, BLDC+11, BLDU+2~, BLDU+6, BLDU+7, BLDU+8, BLDU+10 , LOOP+2~, LOOP+5, LOOP+6, LOOP+7, LOOP+8, LOOP+9, LOOP+11, MULT+2~, MULT+5, MULT+6 , MULT+8, MULT+10, MULT+12
DD	OTH+2~, OTH+13!
DIADD	ADD+2~, ADD+7*
DIC	OTH+2~, OTH+8, ADD+2~, ADD+3
DIC("DR"	ADD+5*
DIC("P"	OTH+10*
DIC(0	OTH+9, ADD+4
DIE	EDIT+3~, EDIT+6, DEACT+2~, DEACT+13, LOOP+2~, LOOP+24*
DIU	DELETE+2~, DELETE+3*
DIU(0	DELETE+4*
DLAYGO	OTH+2~, OTH+11, ADD+2~, ADD+6
DO	OTH+2~, OTH+13!
DR	EDIT+3~, EDIT+8, EDIT+9, EDIT+10, EDIT+11, EDIT+12, EDIT+13, EDIT+14, EDIT+15, DEACT+2~ , DEACT+15, LOOP+2~, LOOP+12, LOOP+15, LOOP+17, LOOP+21, LOOP+22, LOOP+23*
DT	EN+7
EFFECT	UP+2~, UP+8, EDIT~, EDIT+10, DATA+11*
END	UP+2~, UP+8, EDIT~, EDIT+12, MSG+6, DATA+8*
IEN	LOOP1+3~, LOOP1+4, LOOP1+5, LOOP1+6, LOOP1+11, LOOP1+14, LOOP1+15, LOOP1+17, LOOP1+18, UP+2~ , UP+5, UP+6, UP+7, UP+8, UP+9, UP+10, EDIT~, EDIT+5, EDIT+7, EDIT+17 , MSG+2, OTH~, OTH+6, OTH+7, ADD~, ADD+10, ADD+11, LEFT+2~, LEFT+5, LEFT+6* , LEFT+7, DEACT~, DEACT+3, DEACT+9, DEACT+14, DEACT+18, BLDC+2~, BLDC+5, BLDC+6, BLDC+7 , BLDC+13, BLDC+14, BLDA~, BLDA+4, BLDA+5, BLDA+8, BLDA+9, BLDU+2~, BLDU+4, BLDU+5 , BLDU+6
>> INSTALL	EN+7*, EDIT+15, DEACT+15, LOOP+23
LAST	LOOP+2~
LOCAL	DEACT+9, DEACT+10, LOOP+2~, LOOP+11, LOOP+12, LOOP+13
LODGE	UP+2~, UP+8, EDIT~, EDIT+8, DATA+9*
MEALS	UP+2~, UP+8, EDIT~, EDIT+9, DATA+10*
N	MSG~, MSG+1, MSG+4, DEACT+7, DEACT+8, CLEAN+1~, CLEAN+2, CLEAN+3, CLEAN+4, CLEAN+7 , CLEANB+1~, CLEANB+2, CLEANB+3, CLEANB+4, CLEANB+7, CLEANC+1~, CLEANC+2, CLEANC+3, CLEANC+4, CLEANC+7 , CLEANX+1~, CLEANX+2, CLEANX+3, CLEANX+4, CLEANX+6, CLEANX+7, CLEANX+9, CLEANX+10, CLEANX+11, CLEANX+12 , MULT+2~, MULT+3, MULT+4, MULT+5, MULT+11
NAME	DEACT+2~, DEACT+5, DEACT+6, DEACT+8, DEACT+11
OLDATE	LOOP+2~, LOOP+9*, LOOP+10
OLDIEN	UP+2~, UP+5*, UP+9
P	CLEAN+1~, CLEAN+4, CLEAN+5, CLEAN+7, CLEANB+1~, CLEANB+4, CLEANB+5, CLEANB+7, CLEANC+1~, CLEANC+4* , CLEANC+5, CLEANC+7, CLEANX+1~, CLEANX+5, CLEANX+6, CLEANX+7, CLEANX+9, CLEANX+12, MULT+2~
PD	LOOP+2~, LOOP+3, LOOP+4, LOOP+5, LOOP+8, LOOP+25
Q	CLEANX+1~, CLEANX+8, CLEANX+9, MULT+2~
STATE	LOOP1+3~, LOOP1+12, LOOP1+16, UP+2~, UP+4, UP+5, UP+6, UP+8, UP+10, EDIT~ , EDIT+17, MSG+3, OTH~, OTH+3, OTH+5, ADD~, DEACT+2~, DEACT+12, DATA+5, BLDC+2~ , BLDC+11, BLDC+12, BLDC+13, BLDC+14, BLDA~, BLDA+10, BLDU+2~, BLDU+10, BLDU+11, BLDU+12 , LOOP+2~, LOOP+7, LOOP+15, LOOP+17, LOOP+18, MULT+2~, MULT+8*, MULT+9
STR	EDIT+3~, MSG+2, MSG+3, MSG+5, MSG+6, MSG+7
SUFX	MSG~, MSG+1, MSG+7
U	LOOP1+8, LOOP1+12, EDIT+5, MSG+3, OTH+10, DEACT+5, DEACT+9, DEACT+12, DATA+4, DATA+5 , DATA+6, DATA+7, DATA+8, DATA+9, DATA+10, DATA+11, BLDC+9, BLDC+11, BLDU+8, BLDU+10 , LOOP+6, LOOP+7, LOOP+9, LOOP+11, CLEAN+5, CLEANB+5, CLEANC+5, MULT+6, MULT+8
UPDATE	EN+5~, EN+6*, EDIT+14, LOOP+10, LOOP+22
X	EDIT+3~, OTH+2~, OTH+12, ADD+2~, ADD+8
Y	EDIT+3~, OTH+2~, OTH+15, ADD+2~, ADD+10, ADD+11

Customize PDF page

Package: Commitment Register

Routine: ACRFPD06

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: