Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ACRFT25H

Package: Commitment Register

Routine: ACRFT25H


Information

ACRFT25H ;IHS/OIRM/DSD/AEF - FIND TRAVEL VOUCHERS > $2500 [ 09/26/2005 9:44 AM ]

Source Information

Source file <ACRFT25H.m>

Call Graph

Call Graph Total: 7

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*

Marked Items

Name Field # of Occurrence
$T(DESC+I TXT+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All