Routine: ACRFSPL3

Package	Total	Call Graph
Kernel	2	HOME^%ZIS ^%ZISC
VA Fileman	2	NOW^%DTC ^DIR
Commitment Register	1	QUE^ACRFUTL
IHS VA Utilities	1	^XBKVAR

Package

Total

Call Graph

HOME^%ZIS ^%ZISC

NOW^%DTC ^DIR

QUE^ACRFUTL

^XBKVAR

Package	Total	Caller Graph
Commitment Register	1	ACRFSPL

Package

Total

Caller Graph

Commitment Register

ACRFSPL

Name	Comments	DBIA/ICR reference
HDR	;----- WRITE REPORT HEADER
PRT	;----- PRINT REPORT
NOW()	;----- RETURNS CURRENT DATE/TIME
EN(ACRD0)
DQ	;----- QUEUED JOB STARTS HERE

Name	Field # of Occurrence
NOW^%DTC	NOW+3
HOME^%ZIS	EN+6
^%ZISC	EN+11, DQ+4
QUE^ACRFUTL	EN+10
^DIR	PRT+31, HDR+3
^XBKVAR	EN+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No records to print" Line Location: PRT+4
Function Call: WRITE	Prompt: !!,"BATCH: ",BATCHIDX Line Location: PRT+11
Function Call: WRITE	Prompt: ?20,"BATCH RECORD COUNT: ",$J($P(DATA,U),4) Line Location: PRT+13
Function Call: WRITE	Prompt: ?46,"BATCH AMOUNT: ",$J($P(DATA,U,2),12,2) Line Location: PRT+14
Function Call: WRITE	Prompt: !,"BATCH: ",ACRD1,"-",ACRD2 Line Location: PRT+18
Function Call: WRITE	Prompt: ! Line Location: PRT+22
Function Call: WRITE	Prompt: ^TMP("ACRDHR",ACRJOB,ACRD0,ACRD1,ACRD2,ACRD3,I) Line Location: PRT+23
Function Call: WRITE	Prompt: !!,"BATCH: ",BATCHIDX Line Location: PRT+25
Function Call: WRITE	Prompt: ?20,"BATCH RECORD COUNT: ",$J($P(DATA,U),4) Line Location: PRT+26
Function Call: WRITE	Prompt: ?46,"BATCH AMOUNT: ",$J($P(DATA,U,2),12,2) Line Location: PRT+27
Function Call: WRITE	Prompt: !!?20,"TOTAL RECORD COUNT: ",$J($P(DATA,U),4) Line Location: PRT+29
Function Call: WRITE	Prompt: ?46,"TOTAL AMOUNT: ",$J($P(DATA,U,2),12,2) Line Location: PRT+30
Function Call: WRITE	Prompt: @IOF Line Location: HDR+5
Function Call: WRITE	Prompt: !,"D H R S P L I T - O U T P R O G R A M" Line Location: HDR+6
Function Call: WRITE	Prompt: ?62,$$NOW Line Location: HDR+7
Function Call: WRITE	Prompt: !,$G(BATCH)," Listing of Individual Records" Line Location: HDR+8
Function Call: WRITE	Prompt: ?62,"PAGE ",$J(PAGE,3) Line Location: HDR+9
Function Call: WRITE	Prompt: !!,?9,1,?19,2,?29,3,?39,4,?49,5,?59,6,?69,7,?79,8 Line Location: HDR+10
Function Call: WRITE	Prompt: ! Line Location: HDR+11
Function Call: WRITE	Prompt: "1234567890" Line Location: HDR+12
Function Call: WRITE	Prompt: ! Line Location: HDR+13
Routine Call	%ZIS Line Location: EN+6
Routine Call	DIR Line Location: PRT+31 HDR+3

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	NOW+5
^TMP("ACRDHR"	PRT+4, PRT+6, PRT+8, PRT+12, PRT+17, PRT+23, PRT+24, PRT+28

Name	Line Occurrences
$$NOW	HDR+7
HDR	PRT+4, PRT+18, PRT+19, PRT+20
PRT	DQ+2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NOW+2~, NOW+6
%H	NOW+2~
%I	NOW+2~
ACRD0	EN~, PRT+3, PRT+6, PRT+8, PRT+12, PRT+17, PRT+23, PRT+24, PRT+28
ACRD1	PRT+2~, PRT+5, PRT+6, PRT+8, PRT+9, PRT+17, PRT+18, PRT+23
ACRD2	PRT+2~, PRT+7, PRT+8, PRT+9, PRT+17, PRT+18, PRT+23
ACRD2X	PRT+2~
ACRD3	PRT+2~, PRT+16, PRT+17, PRT+23
ACRJOB	EN+5~, EN+7*, PRT+4, PRT+6, PRT+8, PRT+12, PRT+17, PRT+23, PRT+24, PRT+28
ACROUT	PRT+2~, PRT+6, PRT+8, PRT+17, HDR+3*
BATCH	PRT+2~, PRT+3*, HDR+8
BATCHID	PRT+2~, PRT+9*, PRT+10, PRT+15
BATCHIDX	PRT+2~, PRT+5, PRT+10, PRT+11, PRT+12, PRT+15, PRT+24, PRT+25
CNT	PRT+2~, PRT+16, PRT+18, PRT+19, PRT+20, PRT+21
>> DATA	PRT+12, PRT+13, PRT+14, PRT+24, PRT+26, PRT+27, PRT+28*, PRT+29, PRT+30
DIR	PRT+2~, PRT+31!, HDR+2~, HDR+3!
DIR(0	PRT+31, HDR+3
DT	NOW+4
>> I	PRT+23, HDR+12
IOF	HDR+5
IOST	PRT+19, PRT+20, PRT+31, HDR+3
PAGE	PRT+2~, HDR+3, HDR+4*, HDR+9
U	PRT+13, PRT+14, PRT+26, PRT+27, PRT+29, PRT+30
X	EN+5~, PRT+2~, NOW+2~
Y	EN+5~, PRT+2~, HDR+3, NOW+4*, NOW+6
ZTDESC	EN+5~
ZTRTN	EN+5~
ZTSAVE	EN+5~, EN+10
ZTSAVE("ACRD0"	EN+9*
ZTSAVE("ACRJOB"	EN+8*

Customize PDF page

Package: Commitment Register

Routine: ACRFSPL3

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: