Routine: ACRFT25H

Package	Total	Call Graph
Commitment Register	3	$$TOTAMT^ACRFSSU ($$NOW,QUE)^ACRFUTL $$NAME2^ACRFUTL1
Kernel	2	HOME^%ZIS ^%ZISC
IHS VA Utilities	1	^XBKVAR
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
GET(ACRDATES)
DATES(ACRDATES,ACROUT)
TXT	;----- WRITE ROUTINE DESCRIPTION
EN	;----- MAIN ENTRY POINT
DLOOP	;----- DATE LOOP
PRINT(ACRDATES)
DESC	;----- ROUTINE DESCRIPTION
HDR(ACRDATES,ACROUT,ACRPAGE)	;
DQ	;EP -- QUEUED REPORT STARTS HERE

External References

Name	Field # of Occurrence
HOME^%ZIS	EN+5
^%ZISC	DQ+5
$$TOTAMT^ACRFSSU	GET+27
$$NOW^ACRFUTL	HDR+18
QUE^ACRFUTL	EN+15
$$NAME2^ACRFUTL1	GET+22
^DIR	DLOOP+8, DLOOP+13, HDR+7
^XBKVAR	EN+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DLOOP+3
Function Call: WRITE	Prompt: *7,!?5,"ENDING DATE cannot be less than BEGINNING DATE" Line Location: DLOOP+18
Function Call: WRITE	Prompt: ! Line Location: PRINT+15
Function Call: WRITE	Prompt: $P(ACRDATA,U) Line Location: PRINT+16
Function Call: WRITE	Prompt: ?15,$E($P(ACRDATA,U,2),1,15) Line Location: PRINT+17
Function Call: WRITE	Prompt: ?31,$P(ACRDATA,U,3) Line Location: PRINT+18
Function Call: WRITE	Prompt: ?40,$P(ACRDATA,U,4) Line Location: PRINT+19
Function Call: WRITE	Prompt: ?49,$P(ACRDATA,U,5) Line Location: PRINT+20
Function Call: WRITE	Prompt: ?57,$J($P(ACRDATA,U,6),6) Line Location: PRINT+21
Function Call: WRITE	Prompt: ?64,$P(ACRDATA,U,7) Line Location: PRINT+22
Function Call: WRITE	Prompt: ?68,$J($P(ACRDATA,U,8),12,2) Line Location: PRINT+23
Function Call: WRITE	Prompt: !?72,"--------" Line Location: PRINT+24
Function Call: WRITE	Prompt: !?61,"TOTAL" Line Location: PRINT+25
Function Call: WRITE	Prompt: ?68,$J(^TMP("ACR",$J,"TVL2500",ACRDOCNO,0),12,2) Line Location: PRINT+26
Function Call: WRITE	Prompt: ! Line Location: PRINT+27
Function Call: WRITE	Prompt: !?5,"NO DATA FOUND" Line Location: PRINT+29
Function Call: WRITE	Prompt: @IOF Line Location: HDR+11
Function Call: WRITE	Prompt: !,"TRAVEL VOUCHERS EXCEEDING $2500, " Line Location: HDR+12
Function Call: WRITE	Prompt: $E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3) Line Location: HDR+14
Function Call: WRITE	Prompt: "-" Line Location: HDR+15
Function Call: WRITE	Prompt: $E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3) Line Location: HDR+17
Function Call: WRITE	Prompt: ?52,$$NOW^ACRFUTL Line Location: HDR+18
Function Call: WRITE	Prompt: " PAGE ",$G(ACRPAGE) Line Location: HDR+19
Function Call: WRITE	Prompt: !,"TRAVEL" Line Location: HDR+20
Function Call: WRITE	Prompt: ?31,"DEPART" Line Location: HDR+21
Function Call: WRITE	Prompt: ?40,"RETURN" Line Location: HDR+22
Function Call: WRITE	Prompt: ?49,"CAN" Line Location: HDR+23
Function Call: WRITE	Prompt: ?59,"DEPT" Line Location: HDR+24
Function Call: WRITE	Prompt: ?64,"FY" Line Location: HDR+25
Function Call: WRITE	Prompt: !,"VOUCHER NO." Line Location: HDR+26
Function Call: WRITE	Prompt: ?15,"TRAVELER" Line Location: HDR+27
Function Call: WRITE	Prompt: ?31,"DATE" Line Location: HDR+28
Function Call: WRITE	Prompt: ?40,"DATE" Line Location: HDR+29
Function Call: WRITE	Prompt: ?49,"NO." Line Location: HDR+30
Function Call: WRITE	Prompt: ?59,"ACCT" Line Location: HDR+31
Function Call: WRITE	Prompt: ?64,"FUNDS" Line Location: HDR+32
Function Call: WRITE	Prompt: ?74,"AMOUNT" Line Location: HDR+33
Function Call: WRITE	Prompt: ! Line Location: HDR+34
Function Call: WRITE	Prompt: "-" Line Location: HDR+35
Function Call: WRITE	Prompt: !,X Line Location: TXT+3
Routine Call	%ZIS Line Location: EN+5
Routine Call	DIR Line Location: DLOOP+8 DLOOP+13 HDR+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACRDOC - [#9002196]	GET+13, GET+14, GET+17, GET+19, GET+28
^ACRDOC("REF"	GET+12
^ACRLOCB - [#9002188]	GET+32
^AUTTCAN - [#9999999.57]	GET+29
^AUTTDOCR("B"	GET+6
^TMP("ACR"	DQ+4!, GET+5!, GET+33, GET+34, PRINT+7, PRINT+8, PRINT+11, PRINT+12, PRINT+26

Label References

Name	Line Occurrences
DATES	EN+9
DLOOP	DLOOP+17
GET	DQ+2
HDR	PRINT+4, PRINT+13
PRINT	DQ+3
TXT	EN+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACR	PRINT+3~, PRINT+10, PRINT+11, PRINT+12
ACRAMT	GET+4~, GET+27*, GET+33, GET+34
ACRBEG	DLOOP+2~, DLOOP+11, DLOOP+17, DLOOP+19, GET+4~, GET+8, GET+15
ACRCAN	GET+4~, GET+28, GET+29, GET+33
ACRDATA	PRINT+3~, PRINT+12*, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+21, PRINT+22, PRINT+23
ACRDATES	EN+2~, EN+9, DATES~, DLOOP+19*, DQ+2, DQ+3, GET~, GET+8, GET+9, PRINT~ , PRINT+4, PRINT+13, HDR~, HDR+13, HDR+16
ACRDEPT	GET+4~, GET+30*, GET+32, GET+33
ACRDOC0	GET+4~, GET+17*, GET+18, GET+30
ACRDOCDA	GET+4~, GET+11, GET+12, GET+13, GET+14, GET+17, GET+19, GET+27, GET+28
ACRDOCNO	GET+4~, GET+18, GET+33, GET+34, PRINT+3~, PRINT+6, PRINT+7*, PRINT+8, PRINT+11, PRINT+12 , PRINT+26
ACRDTBEG	GET+4~, GET+14, GET+15, GET+16, GET+23, GET+24*, GET+33
ACRDTEND	GET+4~, GET+25, GET+26, GET+33
ACREND	DLOOP+2~, DLOOP+16, DLOOP+17, DLOOP+19, GET+4~, GET+9, GET+16
ACRFY	GET+4~, GET+31, GET+32, GET+33
ACROUT	EN+2~, EN+9, EN+10, DATES~, DLOOP+4, DLOOP+20, PRINT+3~, PRINT+4, PRINT+7, PRINT+11 , PRINT+13, PRINT+14, HDR~, HDR+4, HDR+5, HDR+8
ACRPAGE	PRINT+3~, PRINT+4, PRINT+13, HDR~, HDR+5, HDR+9*, HDR+19
ACRREF	GET+4~, GET+6*, GET+7, GET+12
ACRTO	GET+4~, GET+19*, GET+20, GET+23, GET+25
ACRTRAV	GET+4~, GET+20, GET+22, GET+33
ACRZ	PRINT+3~, PRINT+5, PRINT+9, PRINT+28
DIR	DLOOP+2~, HDR+3~
DIR("?"	DLOOP+7*
DIR("A"	DLOOP+6, DLOOP+12
DIR(0	DLOOP+5, HDR+6
DIRUT	DLOOP+2~, DLOOP+9, DLOOP+14
DTOUT	DLOOP+2~, DLOOP+9, DLOOP+14
DUOUT	DLOOP+2~, DLOOP+9
I	HDR+35, TXT+2~, TXT+3
IOF	HDR+11
IOSL	PRINT+13
IOST	HDR+5
U	DLOOP+19, GET+8, GET+9, GET+13, GET+14, GET+18, GET+20, GET+23, GET+25, GET+28 , GET+29, GET+30, GET+32, GET+33, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+21 , PRINT+22, PRINT+23, HDR+13, HDR+16
X	EN+2~, DLOOP+2~, HDR+3~, HDR+13, HDR+14, HDR+16, HDR+17, TXT+3*
Y	EN+2~, DLOOP+2~, DLOOP+10, DLOOP+11, DLOOP+15, DLOOP+16, HDR+8
ZTDESC	EN+2~, EN+14*, EN+15
ZTRTN	EN+2~, EN+12*, EN+15
ZTSAVE	EN+2~, EN+15
ZTSAVE("ACRDATES"	EN+13*

Customize PDF page

Package: Commitment Register

Routine: ACRFT25H

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items