Routine: ACRFDHRV

Package	Total	Call Graph
Commitment Register	3	DISPLAY^ACRFDHRD ($$DATE,EDIT,SEL,TRAIL)^ACRFDHRE $$PAD^ACRFUTL
VA Fileman	3	^DIK EN1^DIP ^DIR
IHS VA Utilities	1	^XBKVAR
Kernel	1	HOME^%ZIS

Entry Points

Name	Comments	DBIA/ICR reference
BDEL	;EP -- DELETE BATCH
B	;
NEXT(ACRD0,ACRD1,ACRD2,Y,ACROUT)
SHOW	;EP -- DISPLAY DHR RECORDS
LIST	;EP -- LIST DHR RECORDS IN BATCH
EN	;EP -- VISUAL VERIFY MAIN ENTRY POINT
CLOSE	;EP -- CLOSE DHR BATCH
STR(X)	;----- FORMAT DHR DATA STRING FOR DISPLAY
EDIT(ACRD0,ACRD1,ACRD2,ACROUT)
LOOP(ACRD0,ACRD1,ACRD2,ACROUT)

External References

Name	Field # of Occurrence
HOME^%ZIS	EN+3, CLOSE+5, SHOW+3, LIST+3, BDEL+3
DISPLAY^ACRFDHRD	EN+7, CLOSE+9, SHOW+7, LIST+7, BDEL+7
$$DATE^ACRFDHRE	BDEL+10
EDIT^ACRFDHRE	EDIT+7
SEL^ACRFDHRE	EN+8, CLOSE+10, SHOW+8, LIST+8, BDEL+8
TRAIL^ACRFDHRE	CLOSE+14
$$PAD^ACRFUTL	STR+8, STR+10, STR+13, STR+14, STR+15, STR+16, STR+17, STR+18, STR+19, STR+20 , STR+21, STR+22, STR+23, STR+24, STR+25, STR+26, STR+27
^DIK	BDEL+22
EN1^DIP	LOOP+16, LIST+20
^DIR	B+6, LIST+22, BDEL+15
^XBKVAR	EN+4, CLOSE+6, SHOW+4, LIST+4, BDEL+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,"This batch has been exported" Line Location: EN+11
Function Call: WRITE	Prompt: *7," Non-existent record" Line Location: B+10
Function Call: WRITE	Prompt: *7,"This batch has been exported" Line Location: CLOSE+13
Function Call: WRITE	Prompt: *7 Line Location: BDEL+14
Function Call: WRITE	Prompt: !,BATCH," <DELETED>" Line Location: BDEL+23
Routine Call	%ZIS Line Location: EN+3 CLOSE+5 SHOW+3 LIST+3 BDEL+3
Routine Call	DIR Line Location: B+6 LIST+22 BDEL+15

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AFSHRCDS(	EN+10, EDIT+5, EDIT+6, B+5, B+9, CLOSE+12, LOOP+5, LOOP+12, LIST+16, BDEL+10

Label References

Name	Line Occurrences
B	B+9
BDEL	BDEL+17, BDEL+25
CLOSE	CLOSE+12, CLOSE+15
EDIT	EN+12
EN	EN+10, EN+13
LIST	LIST+23
LOOP	SHOW+10
NEXT	EDIT+8, LOOP+17
SHOW	SHOW+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACRADD	EN+2~, EN+5, EN+8, CLOSE+4~, CLOSE+7, CLOSE+10, SHOW+2~, SHOW+5, SHOW+8, LIST+2~ , LIST+5, LIST+8, BDEL+2~, BDEL+5*, BDEL+8
>> ACRCLR	EN+8, CLOSE+10, SHOW+8, LIST+8, BDEL+8
ACRD0	EN+2~, EN+8, EN+10, EN+12, EDIT~, EDIT+5, EDIT+6, EDIT+7, EDIT+8, NEXT~ , B+5, B+9, CLOSE+4~, CLOSE+10, CLOSE+12, CLOSE+14, SHOW+2~, SHOW+8, SHOW+10, LOOP~ , LOOP+5, LOOP+10, LOOP+12, LOOP+17, LIST+2~, LIST+8, LIST+14, LIST+16, BDEL+2~, BDEL+8 , BDEL+10, BDEL+18
ACRD1	EN+2~, EN+8, EN+12, EDIT~, EDIT+5, EDIT+6, EDIT+7, EDIT+8, NEXT~, B+5 , B+9, CLOSE+4~, CLOSE+10, CLOSE+14, SHOW+2~, SHOW+8, SHOW+10, LOOP~, LOOP+5, LOOP+11 , LOOP+12, LOOP+17, LIST+2~, LIST+8, LIST+15, LIST+16, BDEL+2~, BDEL+8, BDEL+10, BDEL+19
ACRD2	EN+2~, EN+8, EN+12, EDIT~, EDIT+5, EDIT+6, EDIT+7, EDIT+8, NEXT~, B+5 , B+9, CLOSE+4~, CLOSE+10, CLOSE+14, SHOW+2~, SHOW+8, SHOW+10, LOOP~, LOOP+5, LOOP+12 , LOOP+17, LIST+2~, LIST+8, LIST+16, BDEL+2~, BDEL+8, BDEL+10, BDEL+20
ACRD3	EN+2~, EDIT+3~, EDIT+4, EDIT+5, EDIT+6, EDIT+7, EDIT+9, LOOP+3~, LOOP+4, LOOP+5* , LOOP+13, LOOP+18*
ACROPT	EN+2~, EN+6, EN+7, EN+8, CLOSE+8, CLOSE+9, CLOSE+10, SHOW+2~, SHOW+6, SHOW+7 , SHOW+8, LIST+2~, LIST+6, LIST+7, LIST+8, BDEL+2~, BDEL+6*, BDEL+7, BDEL+8
ACROUT	EN+2~, EN+5, EN+8, EN+9, EN+12, EDIT~, EDIT+5, EDIT+8, NEXT~, B+7 , CLOSE+4~, CLOSE+7, CLOSE+10, CLOSE+11, SHOW+2~, SHOW+5, SHOW+8, SHOW+9, SHOW+10, LOOP~ , LOOP+5, LOOP+17, LIST+2~, LIST+5, LIST+8, LIST+9, BDEL+2~, BDEL+5, BDEL+8, BDEL+9
ACRTYPE	EDIT+3~, EDIT+6*, EDIT+7
BATCH	BDEL+2~, BDEL+10*, BDEL+12, BDEL+23
BY	LOOP+3~, LOOP+9, LIST+2~, LIST+13
DA	BDEL+2~, BDEL+20*
DA(1	BDEL+19*, BDEL+21
DA(2	BDEL+18*, BDEL+21
DIC	LOOP+3~, LOOP+6, LIST+10
DIK	BDEL+2~, BDEL+21*
DIR	B+1~, LIST+2~, BDEL+2~, BDEL+16!
DIR("?"	B+5*
DIR("A"	B+3, BDEL+12
DIR("B"	B+4, BDEL+13
DIR(0	B+2, LIST+21, BDEL+11*
DIRUT	B+1~, B+7
DTOUT	B+1~, B+7
DUOUT	B+1~, B+7
FLDS	LOOP+3~, LOOP+8, LIST+2~, LIST+12
FR	LOOP+3~, LOOP+10, LOOP+11, LOOP+12, LOOP+13, LOOP+14, LIST+2~, LIST+14, LIST+15, LIST+16* , LIST+17, LIST+18*
IOP	LOOP+3~, LOOP+15*
L	LOOP+3~, LOOP+7, LIST+2~, LIST+11
TO	LOOP+3~, LOOP+14, LIST+2~, LIST+17, LIST+19*
U	EN+10, EDIT+6, CLOSE+12, LOOP+12, LIST+16, BDEL+10, STR+8, STR+10, STR+11, STR+14 , STR+15, STR+16, STR+17, STR+18, STR+19, STR+20, STR+21, STR+22, STR+23, STR+24 , STR+25, STR+26, STR+27
X	LOOP+3~, LIST+2~, BDEL+2~, STR~, STR+8, STR+10, STR+11, STR+14, STR+15, STR+16 , STR+17, STR+18, STR+19, STR+20, STR+21, STR+22, STR+23, STR+24, STR+25, STR+26 , STR+27
Y	EDIT+3~, EDIT+8, EDIT+9, NEXT~, B+8, B+9, LOOP+3~, LOOP+17, LOOP+18, LIST+2~ , BDEL+2~, BDEL+17, STR+7~, STR+11, STR+12, STR+13
Z	STR+7~, STR+8, STR+9, STR+10, STR+13, STR+14, STR+15, STR+16, STR+17, STR+18* , STR+19, STR+20, STR+21, STR+22, STR+23, STR+24, STR+25, STR+26, STR+27*, STR+28

Customize PDF page

Package: Commitment Register

Routine: ACRFDHRV

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: