Routine: ACRFSPL1

Package	Total	Call Graph
IHS VA Utilities	2	^XBCLS ^XBKVAR
Kernel	1	HOME^%ZIS
VA Fileman	1	^DIR

Package	Total	Caller Graph
Commitment Register	1	ACRFSPL

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;----- BUILDS DISPLAY ARRAY
HDR1	;----- WRITES HEADER 1
LOOP(ACRD0)
PROMPT	;----- PROMPTS USER FOR WHICH BATCH TO EXPORT
EN(ACRCTR,ACRDTNM,ACRPKG)
SHOW	;----- SHOW BATCHES
DATE(X)	;----- RETURNS DATE IN MM/DD/YY FORMAT
GET	;----- GETS DATA TO DISPLAY
NTRL	;----- LISTS BATCHES WITH NO TRAILERS
HDR3	;----- WRITES HEADER 3
HDR2	;----- WRITES HEADER 2
HDR	;----- WRITES MAIN OPTION HEADER

External References

Name	Field # of Occurrence
HOME^%ZIS	EN+16
^DIR	PROMPT+6, NTRL+6
^XBCLS	HDR+2
^XBKVAR	EN+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SHOW+5
Function Call: WRITE	Prompt: ?$S(PC=1:5,1:41) Line Location: SHOW+8
Function Call: WRITE	Prompt: $$DATE($P(DATA,U)) Line Location: SHOW+9
Function Call: WRITE	Prompt: " " Line Location: SHOW+10
Function Call: WRITE	Prompt: $J($P(DATA,U,4),3) Line Location: SHOW+11
Function Call: WRITE	Prompt: " " Line Location: SHOW+12
Function Call: WRITE	Prompt: $P(DATA,U,2)_$S($P(DATA,U,2)]"":"-",1:"")_$P(DATA,U,3) Line Location: SHOW+13
Function Call: WRITE	Prompt: " " Line Location: SHOW+14
Function Call: WRITE	Prompt: $J($P(DATA,U,5),4) Line Location: SHOW+15
Function Call: WRITE	Prompt: " " Line Location: SHOW+16
Function Call: WRITE	Prompt: $J($P(DATA,U,6),3) Line Location: SHOW+17
Function Call: WRITE	Prompt: " \|" Line Location: SHOW+18
Function Call: WRITE	Prompt: ! Line Location: PROMPT+5
Function Call: WRITE	Prompt: !?10,*7,"Batch COLOR NOT AVAILABLE FOR EXPORT -- Select AGAIN" Line Location: PROMPT+11
Function Call: WRITE	Prompt: !!,*7,"All Batches MUST have a trailer -- JOB CANCELLED" Line Location: PROMPT+14
Function Call: WRITE	Prompt: !?5,$$DATE(ACRD1)_"-"_ACRI Line Location: NTRL+14
Function Call: WRITE	Prompt: !?18 Line Location: HDR+5
Function Call: WRITE	Prompt: "*" Line Location: HDR+6
Function Call: WRITE	Prompt: !?18,"*" Line Location: HDR+7
Function Call: WRITE	Prompt: ?22,"IHS AREA OFFICE DHR EXPORT (SPLITOUT)" Line Location: HDR+8
Function Call: WRITE	Prompt: ?62,"*" Line Location: HDR+9
Function Call: WRITE	Prompt: !?18,"*" Line Location: HDR+10
Function Call: WRITE	Prompt: ?26,ACRPKG Line Location: HDR+11
Function Call: WRITE	Prompt: ?62,"*" Line Location: HDR+12
Function Call: WRITE	Prompt: !?18,"*" Line Location: HDR+13
Function Call: WRITE	Prompt: ?34,"VERSION " Line Location: HDR+14
Function Call: WRITE	Prompt: $P($T(ACRFSPL1+1),";",3) Line Location: HDR+15
Function Call: WRITE	Prompt: ?62,"*" Line Location: HDR+16
Function Call: WRITE	Prompt: !?18 Line Location: HDR+17
Function Call: WRITE	Prompt: "*" Line Location: HDR+18
Function Call: WRITE	Prompt: !?5 Line Location: HDR1+3
Function Call: WRITE	Prompt: "-" Line Location: HDR1+4
Function Call: WRITE	Prompt: !?5,"*" Line Location: HDR1+5
Function Call: WRITE	Prompt: ?15,"COLOR = BLUE" Line Location: HDR1+6
Function Call: WRITE	Prompt: ?40,"*" Line Location: HDR1+7
Function Call: WRITE	Prompt: ?56,"COLOR = RED" Line Location: HDR1+8
Function Call: WRITE	Prompt: ?74,"*" Line Location: HDR1+9
Function Call: WRITE	Prompt: !?5 Line Location: HDR1+10
Function Call: WRITE	Prompt: "-" Line Location: HDR1+11
Function Call: WRITE	Prompt: !?5,"*" Line Location: HDR2+2
Function Call: WRITE	Prompt: ?10,$S($G(ACRZ(1)):"COLOR AVAILABLE FOR EXPORT",1:" NO DATA ON FILE") Line Location: HDR2+3
Function Call: WRITE	Prompt: ?40,"*" Line Location: HDR2+4
Function Call: WRITE	Prompt: ?45,$S($G(ACRZ(2)):"COLOR AVAILABLE FOR EXPORT",1:" NO DATA ON FILE") Line Location: HDR2+5
Function Call: WRITE	Prompt: ?74,"*" Line Location: HDR2+6
Function Call: WRITE	Prompt: !?5 Line Location: HDR2+7
Function Call: WRITE	Prompt: "-" Line Location: HDR2+8
Function Call: WRITE	Prompt: !,?6,"B. DATE #BCH ID'S RCDS NO-TR" Line Location: HDR3+2
Function Call: WRITE	Prompt: ?40,"\|" Line Location: HDR3+3
Function Call: WRITE	Prompt: ?42,"B. DATE #BCH ID'S RCDS NO-TR" Line Location: HDR3+4
Function Call: WRITE	Prompt: !?5 Line Location: HDR3+5
Function Call: WRITE	Prompt: "-" Line Location: HDR3+6
Routine Call	%ZIS Line Location: EN+16
Routine Call	DIR Line Location: PROMPT+6 NTRL+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AFSHRCDS(	LOOP+10, LOOP+12, LOOP+15, LOOP+16, LOOP+25

Label References

Name	Line Occurrences
$$DATE	SHOW+9, NTRL+14
DISP	GET+15
GET	EN+18
HDR	EN+17
HDR1	EN+19
HDR2	EN+20
HDR3	EN+21
LOOP	GET+12, GET+13, GET+14
NTRL	PROMPT+13
PROMPT	EN+23, PROMPT+11
SHOW	EN+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACR	EN+14~, GET+11!
ACR(	LOOP+11, LOOP+13, LOOP+17, LOOP+18, LOOP+19, LOOP+21, LOOP+26*, DISP+4, DISP+6, DISP+8 , PROMPT+11
ACRCTR	EN~, GET+12, GET+13, GET+14, PROMPT+8, PROMPT+9, HDR+4
ACRD0	EN+24!, GET+10~, GET+12, GET+13, GET+14, LOOP~, LOOP+10, LOOP+11, LOOP+12, LOOP+13 , LOOP+15, LOOP+16, LOOP+17, LOOP+18, LOOP+19, LOOP+21, LOOP+22, LOOP+23, LOOP+25, LOOP+26 , DISP+2~, DISP+3, DISP+4, DISP+6, DISP+8, DISP+9, PROMPT+8, PROMPT+9, PROMPT+10, PROMPT+11 , PROMPT+12, NTRL+2~, NTRL+8, NTRL+9*, NTRL+11, NTRL+13
ACRD1	LOOP+8~, LOOP+9, LOOP+10, LOOP+11, LOOP+15, LOOP+16, LOOP+17, LOOP+18, LOOP+19, LOOP+21 , LOOP+23, LOOP+25, LOOP+26, DISP+2~, DISP+5, DISP+6, DISP+8, NTRL+2~, NTRL+10, NTRL+11 , NTRL+13, NTRL+14
ACRD2	LOOP+8~, LOOP+14, LOOP+15, LOOP+16, LOOP+25
ACRD3	LOOP+8~, LOOP+24, LOOP+25
ACRDISP	EN+14~
ACRDISP(	DISP+8*, SHOW+4, SHOW+7
ACRDTNM	EN~
ACRI	NTRL+2~, NTRL+12, NTRL+13, NTRL+14
ACRNTRB	EN+14~
ACRNTRB(	LOOP+23*, NTRL+9, NTRL+11, NTRL+13
ACRNTRL	EN+14~
ACRNTRL(	LOOP+22*, PROMPT+12
ACROUT	EN+14~, EN+24, PROMPT+7, PROMPT+10, PROMPT+15*
ACRPKG	EN~, HDR+4*, HDR+11
ACRZ	EN+14~
ACRZ(	DISP+9*
ACRZ(1	DISP+3*, HDR2+3
ACRZ(2	DISP+3*, HDR2+5
CNT	DISP+2~, DISP+5, DISP+7, DISP+8
DATA	LOOP+8~, LOOP+12, LOOP+13, LOOP+16, LOOP+17, LOOP+18, LOOP+20, LOOP+23, SHOW+2~, SHOW+7* , SHOW+9, SHOW+11, SHOW+13, SHOW+15, SHOW+17
DIR	PROMPT+2~, NTRL+2~
DIR("A"	PROMPT+4, NTRL+4
DIR("B"	NTRL+5*
DIR(0	PROMPT+3, NTRL+3
>> DIRUT	PROMPT+7
I	SHOW+2~, SHOW+3, SHOW+4, SHOW+7, HDR+3~, HDR+6, HDR+18, HDR1+2~, HDR1+4, HDR1+11 , HDR2+8, HDR3+6
PC	SHOW+2~, SHOW+6*, SHOW+7, SHOW+8, SHOW+18
U	LOOP+12, LOOP+13, LOOP+17, LOOP+18, LOOP+19, LOOP+20, LOOP+21, LOOP+23, LOOP+26, DISP+8 , SHOW+9, SHOW+11, SHOW+13, SHOW+15, SHOW+17
X	DATE~, DATE+2*, DATE+3, PROMPT+2~, NTRL+2~
Y	PROMPT+2~, PROMPT+8, PROMPT+9, NTRL+2~, NTRL+7

Customize PDF page

Package: Commitment Register

Routine: ACRFSPL1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items