Routine: ACRFDHR5

Package	Total	Call Graph
Commitment Register	2	DHRRCD^ACRFDHR1 $$PAD^ACRFUTL
VA Fileman	1	^DIR

Entry Points

External References

Name	Field # of Occurrence
DHRRCD^ACRFDHR1	SET+63
$$PAD^ACRFUTL	SET+50
^DIR	ASK+8, DATELOOP+6, DATELOOP+12, IENLOOP+8, IENLOOP+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Records exist in ARMS-BLUE and/or ARMS-RED batches. These" Line Location: EN+5
Function Call: WRITE	Prompt: !,"records must be cleared before running this option." Line Location: EN+6
Function Call: WRITE	Prompt: ! Line Location: EN+7
Function Call: WRITE	Prompt: ! Line Location: DATELOOP+3
Function Call: WRITE	Prompt: !?5,"Cannot recover DHRs generated before July 1, 2000" Line Location: DATELOOP+10
Function Call: WRITE	Prompt: !?5,"ENDING DATE cannot be less than BEGINNING DATE" Line Location: DATELOOP+16
Function Call: WRITE	Prompt: ! Line Location: IENLOOP+4
Function Call: WRITE	Prompt: !?5,"ENDING IEN cannot be less than BEGINNING IEN" Line Location: IENLOOP+16
Function Call: WRITE	Prompt: !!?5,ACRCNT," records have been placed in ARMS batch" Line Location: LOOP1+13
Function Call: WRITE	Prompt: !!?5,"No records found " Line Location: LOOP1+15
Function Call: WRITE	Prompt: !!?5,ACRCNT," records have been placed in ARMS batch" Line Location: LOOP2+12
Function Call: WRITE	Prompt: !!?5,"No records found" Line Location: LOOP2+14
Function Call: WRITE	Prompt: !?5,$P(X,";",3) Line Location: TXT+3
Routine Call	DIR Line Location: ASK+8 DATELOOP+6 DATELOOP+12 IENLOOP+8 IENLOOP+12

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACRDHR - [#9002189.1]	LOOP1+10, LOOP2+7, LOOP2+8, LOOP2+9, SET+22, SET+26
^ACRDHR("D"	LOOP1+7, LOOP1+9
^ACRDOC - [#9002196]	SET+23
^ACRLOCB - [#9002188]	SET+25
^ACRSYS(1	SET+19
^AFSHRCDS(	CHK+10, CHK+12, CHK+13
^AUTTACPT - [#9999999.69]	SET+21

Label References

Name	Line Occurrences
$$CHK	EN+4
ASK	EN+8
DATA	EN+13
DATE	EN+10
DATELOOP	DATELOOP+9, DATELOOP+15
IEN	EN+11
IENLOOP	IENLOOP+15
LOOP1	DATA+3
LOOP2	DATA+4
SET	LOOP1+11, LOOP2+10
TXT	EN+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACR3	SET+16~, SET+27*, SET+29, SET+30
>> ACRACPT	SET+18, SET+21*
ACRASK	EN+2~, EN+8, EN+9, EN+10, EN+11, ASK~, ASK+4, ASK+10, DATE~, DATELOOP+17 , IEN~, IENLOOP+17
ACRBEG	DATELOOP+1~, DATELOOP+8, DATELOOP+9, DATELOOP+15, DATELOOP+17, IENLOOP+2~, IENLOOP+10, IENLOOP+15, IENLOOP+17
ACRCNT	LOOP1+3~, LOOP1+12, LOOP1+13, LOOP1+14, LOOP2+3~, LOOP2+11, LOOP2+12, LOOP2+13
ACRDATA	SET+16~, SET+26*, SET+27, SET+31, SET+32, SET+33, SET+34, SET+35, SET+36, SET+37 , SET+38, SET+39, SET+40, SET+41, SET+42, SET+43, SET+44, SET+45, SET+46, SET+47 , SET+48, SET+49, SET+50, SET+51, SET+52, SET+53, SET+54, SET+55, SET+56, SET+57 , SET+58, SET+59, SET+60
ACRDATE	LOOP1+3~, LOOP1+4, LOOP1+6, LOOP1+7*, LOOP1+9
ACRDEPT	SET+16~, SET+24*, SET+25
ACRDOC0	SET+16~, SET+22, SET+23, SET+24
ACRDR	SET+16~, SET+33, SET+34, SET+35, SET+36, SET+37, SET+38, SET+39, SET+40, SET+41* , SET+42, SET+43, SET+44, SET+45, SET+46, SET+47, SET+48, SET+49, SET+50, SET+51 , SET+52, SET+53, SET+54, SET+55, SET+56, SET+57, SET+58, SET+59, SET+60, SET+61
ACREND	DATELOOP+1~, DATELOOP+14, DATELOOP+15, DATELOOP+17, IENLOOP+2~, IENLOOP+14, IENLOOP+15, IENLOOP+17, LOOP1+3~, LOOP1+5* , LOOP1+7, LOOP2+3~, LOOP2+5*, LOOP2+7
ACRFY	SET+16~, SET+25*
ACRIEN	LOOP1+3~, LOOP1+8, LOOP1+9, LOOP1+10, LOOP1+11, LOOP2+3~, LOOP2+4, LOOP2+6, LOOP2+7*, LOOP2+8 , LOOP2+9, LOOP2+10, SET~, SET+22, SET+26, SET+61
ACRIV	SET+16~, SET+28, SET+29, SET+30*
ACRRANGE	EN+2~, EN+10, EN+11, EN+12, EN+13, DATE~, DATELOOP+2, DATELOOP+17, IEN~, IENLOOP+3* , IENLOOP+17*, DATA~, DATA+3, DATA+4, LOOP1~, LOOP1+4, LOOP1+5, LOOP2~, LOOP2+4, LOOP2+5
ACRRECOV	SET+16~, SET+17*
ACRREF	SET+16~, SET+31, SET+32
D0	CHK+6~, CHK+8*, CHK+10, CHK+12, CHK+13
D1	CHK+6~, CHK+9, CHK+10, CHK+12, CHK+13
D2	CHK+6~, CHK+11, CHK+12, CHK+13
DIR	ASK+3~, DATELOOP+1~, IENLOOP+2~
DIR("?"	ASK+7, IENLOOP+7
DIR("A"	ASK+6, DATELOOP+5, DATELOOP+11, IENLOOP+6, IENLOOP+11*
DIR(0	ASK+5, DATELOOP+4, IENLOOP+5*
DIRUT	ASK+3~, ASK+9, DATELOOP+1~, DATELOOP+7, DATELOOP+13, IENLOOP+2~, IENLOOP+9, IENLOOP+13
DTOUT	ASK+3~, ASK+9, DATELOOP+1~, DATELOOP+7, DATELOOP+13, IENLOOP+2~, IENLOOP+9, IENLOOP+13
DUOUT	ASK+3~, ASK+9, DATELOOP+1~, DATELOOP+7, DATELOOP+13, IENLOOP+2~, IENLOOP+9, IENLOOP+13
I	TXT+2~, TXT+3*
U	DATELOOP+17, IENLOOP+17, DATA+3, DATA+4, LOOP1+4, LOOP1+5, LOOP1+10, LOOP2+4, LOOP2+5, LOOP2+8 , LOOP2+9, SET+19, SET+21, SET+22, SET+24, SET+25, SET+27, SET+31, SET+32, SET+33 , SET+34, SET+35, SET+36, SET+37, SET+38, SET+39, SET+40, SET+41, SET+42, SET+43 , SET+44, SET+45, SET+46, SET+47, SET+48, SET+49, SET+50, SET+51, SET+52, SET+53 , SET+54, SET+55, SET+56, SET+57, SET+58, SET+59, SET+60
X	ASK+3~, DATELOOP+1~, IENLOOP+2~, SET+16~, SET+19, SET+20, SET+21, TXT+2~, TXT+3
Y	ASK+3~, ASK+10, DATELOOP+1~, DATELOOP+8, DATELOOP+14, IENLOOP+2~, IENLOOP+10, IENLOOP+14, CHK+7, CHK+13 , CHK+14

Name	Comments	DBIA/ICR reference
IENLOOP	;
ASK(ACRASK)
EN	;EP -- MAIN ENTRY POINT
LOOP1(ACRRANGE)
SET(ACRIEN)
LOOP2(ACRRANGE)
IEN(ACRASK,ACRRANGE)
DATA(ACRRANGE)
DATELOOP	;
DATE(ACRASK,ACRRANGE)
TXT	;----- WRITE TEXT
CHK()	;----- CHECKS TO SEE IF RECORDS EXISTIN ARMS-BLUE OR ARMS-RED
TXT1	;;

Customize PDF page

Package: Commitment Register

Routine: ACRFDHR5

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items