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: ACRFFF3

Package: Commitment Register

Routine: ACRFFF3


Information

ACRFFF3 ;IHS/OIRM/DSD/AEF - PRODUCE FLAT FILE OF TRAVEL INFORMATION [ 09/23/2005 4:18 PM ]

Source Information

Source file <ACRFFF3.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Commitment Register 4 $$ARMSDIR^ACRFSYS  ($$DOL,$$SLDATE)^ACRFUTL  $$NAME2^ACRFUTL1  PAUSE^ACRFWARN  
Kernel 3 HOME^%ZIS  ^%ZISC  OPEN^%ZISH  
VA Fileman 2 ^%DTC  ^DIR  
IHS VA Utilities 1 ^XBKVAR  

Entry Points

Name Comments DBIA/ICR reference
NAME(X) ;----- RETURN EXTERNAL TRAVELER NAME
HFS(ACROUT,%FILE,ACRFILE)
CITY(X) ;----- RETURNS EXTERNAL ARMS PER DIEM CITY^STATE
UNIX(ACRFILE)
ONE(ACRDOCDA,ACRDATES,ACRREF)
PURP(X) ;----- RETURN PURPOSE OF TRAVEL
TVLT(X) ;----- RETURNS EXTERNAL TRAVEL TO CITY^STATE
CAN(X) ;----- RETURN EXTERNAL CAN NUMBER
ASUFAC(D0)
GET(ACRDATES)
OBL(X) ;----- RETURNS AMOUNT OBLIGATED
SPNT(X) ;----- RETURNS AMOUNT SPENT
SETAMT(ACRDOCDA,ACRDOCNO)
SER(X) ;----- RETURNS SERIES OF TRAVELER
ODSA(X) ;----- RETURNS OFFICIAL DUTY STATION AREA
FILE(ACRFILE)
SEX(X) ;----- RETURNS GENDER
TDAYS(ACRDOCDA,ACRDOCNO)
PAYPLAN(X)
EN ;EP -- MAIN ENTRY POINT
STAT(X) ;----- RETURNS DOCUMENT STATUS
ODS(X) ;----- RETURNS OFFICAL DUTY STATION
LOC(X) ;----- RETURNS INTERNAL LOCATION IEN OF TRAVELER OFFICIAL DUTY STATION
TVLF(X) ;----- RETURNS EXTERNAL TRAVEL FROM CITY^STATE
DESC ;----- ROUTINE DESCRIPTION
SETTD(ACRDOCNO)
TXT ;----- PRINT OPTION TEXT
NTDAYS(X1,X2)
TVLR(X) ;----- RETURN TRAVELER IEN
DLOOP ;----- DATE LOOP
WRITE(X) ;
REQ(X) ;----- RETURNS AMOUNT REQUESTED
DATES(ACRDATES)
SET(ACRDOCDA,ACRDOCNO,ACRTVLR)
GRADE(X) ;----- RETURNS GRADE OF TRAVELER

External References

Name Field # of Occurrence
^%DTC NTDAYS+5
HOME^%ZIS EN+5
^%ZISC EN+27, UNIX+18
OPEN^%ZISH HFS+9
$$ARMSDIR^ACRFSYS HFS+6
$$DOL^ACRFUTL SETAMT+6, SETAMT+7, SETAMT+8
$$SLDATE^ACRFUTL SETTD+9, SETTD+10, TDAYS+9
$$NAME2^ACRFUTL1 NAME+7
PAUSE^ACRFWARN EN+21, EN+29
^DIR DLOOP+7, DLOOP+13, FILE+8
^XBKVAR EN+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " please wait..."
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: !!,"No data found"
  • Line Location: EN+20
Function Call: WRITE
  • Prompt: !
  • Line Location: UNIX+16
Function Call: WRITE
  • Prompt: !!,ACRCNT_" Records have been put into file "_ACRFILE
  • Line Location: UNIX+17
Function Call: WRITE
  • Prompt: """"
  • Line Location: WRITE+6
Function Call: WRITE
  • Prompt: Y
  • Line Location: WRITE+7
Function Call: WRITE
  • Prompt: """"
  • Line Location: WRITE+8
Function Call: WRITE
  • Prompt: ","
  • Line Location: WRITE+9
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: "CANNOT OPEN FILE "_ZISH2_ZISH3
  • Line Location: HFS+11
Function Call: WRITE
  • Prompt: !,X
  • Line Location: TXT+3
Routine Call
  • %ZIS
  • Line Location:
    • EN+5
Routine Call
  • DIR
  • Line Location:
    • DLOOP+7
    • DLOOP+13
    • FILE+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACRAU - [#9002185.3] LOC+6, PAYPLAN+7, GRADE+6, SER+6, ODS+6, ODSA+6
^ACRCAN - [#9002186.5] CAN+7
^ACRDOC - [#9002196] GET+13, ONE+6, CAN+6, TVLR+6, TVLF+6, TVLT+6, TVLT+7, STAT+6, STAT+13
^ACRDOC("REF" GET+12
^ACROBL - [#9002189] PURP+7, STAT+10, REQ+5, OBL+5, SPNT+6
^ACRPD - [#9002193.9] CITY+6
^ACRTV - [#9002193.5] TDAYS+7
^ACRTV("D" TDAYS+6
^AUTTAREA - [#9999999.21] ODSA+8
^AUTTCAN - [#9999999.57] CAN+8
^AUTTDOCR - [#9999999.63] STAT+9
^AUTTDOCR("B" GET+8, GET+9
^AUTTLOC - [#9999999.06] ODS+7, ODSA+7
^DD(9999999.06 ASUFAC+7
^DIC(4 - [#4] ODS+8
^DIC(5 - [#5] CITY+9
^TMP("ACR" EN+19, GET+5!, GET+6!, SET+5, SET+21*, SET+22*, SETAMT+5, SETAMT+9*, SETTD+5, SETTD+6
, SETTD+7, SETTD+12*, UNIX+4, UNIX+10, UNIX+12, UNIX+14, TDAYS+9*
^VA(200 - [#200] SEX+6

Label References

Name Line Occurrences
$$ASUFAC SET+6
$$CAN SET+7
$$CITY TVLF+7, TVLT+8
$$GRADE SET+14
$$LOC SET+6
$$NAME SET+9
$$NTDAYS SETTD+8
$$OBL SETAMT+7
$$ODS SET+10
$$ODSA SET+11
$$PAYPLAN SET+13
$$PURP SET+22
$$REQ SETAMT+6
$$SER SET+15
$$SEX SET+12
$$SPNT SETAMT+8
$$STAT SET+20
$$TVLF SET+16, SET+17
$$TVLR ONE+9
$$TVLT SET+18, SET+19
DATES EN+9
DLOOP DLOOP+17
FILE EN+12
GET EN+17
HFS UNIX+5
ONE GET+16
SET ONE+18
SETAMT ONE+15, ONE+19
SETTD ONE+16, ONE+20
TDAYS ONE+12
TXT EN+7
UNIX EN+23
WRITE UNIX+13, UNIX+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%FILE UNIX+3~, UNIX+5, UNIX+7, HFS~, HFS+13*
%Y NTDAYS+3~, NTDAYS+6
ACRBEG DLOOP+2~, DLOOP+10*, DLOOP+17, DLOOP+19
ACRCNT UNIX+3~, UNIX+8*, UNIX+11*, UNIX+17
ACRDATA GET+3~, GET+13*, GET+14, GET+15
ACRDATES EN+2~, EN+9, EN+10, EN+17, GET~, GET+14, GET+15, GET+16, ONE~, DATES~
, DLOOP+19*
ACRDOCDA GET+3~, GET+11*, GET+12*, GET+13, GET+16, ONE~, ONE+6, ONE+9, ONE+12, ONE+15
, ONE+18, ONE+19, SET~, SET+7, SET+16, SET+17, SET+18, SET+19, SET+20, SET+22
, SETAMT~, SETAMT+6, SETAMT+7, SETAMT+8, UNIX+3~, UNIX+9*, UNIX+10*, UNIX+12, UNIX+14, TDAYS~
, TDAYS+6
ACRDOCNO ONE+3~, ONE+6*, ONE+12, ONE+14, ONE+15, ONE+16, ONE+18, ONE+19, ONE+20, SET~
, SET+5, SET+8, SET+21, SET+22, SETAMT~, SETAMT+5, SETAMT+9, SETTD~, SETTD+5, SETTD+6
, SETTD+7, SETTD+12, TDAYS~, TDAYS+9
ACREND DLOOP+2~, DLOOP+16*, DLOOP+17, DLOOP+19
ACRF SETTD+3~, SETTD+6*, SETTD+8, SETTD+9
ACRFILE EN+2~, EN+12, EN+13, EN+23, UNIX~, UNIX+5, UNIX+17, FILE~, FILE+4*, FILE+10*
, HFS~, HFS+7
ACRL SETTD+3~, SETTD+7*, SETTD+8, SETTD+10
ACRN SETTD+3~, SETTD+8*, SETTD+11
ACROUT UNIX+3~, UNIX+5, UNIX+6, HFS~, HFS+12*
ACRREF GET+3~, GET+10*, GET+12, GET+16, ONE~, STAT+4~, STAT+8*, STAT+9*, STAT+11, STAT+12
ACRTOREF GET+3~, GET+8*, GET+10
ACRTVLR ONE+3~, ONE+9*, ONE+18, SET~, SET+6, SET+9, SET+10, SET+11, SET+12, SET+13
, SET+14, SET+15
ACRTVREF GET+3~, GET+9*, GET+10
D0 ASUFAC~, ASUFAC+7
DIR DLOOP+2~, FILE+3~
DIR("?" DLOOP+6*, DLOOP+12*, FILE+7*
DIR("A" DLOOP+5*, DLOOP+11*, FILE+6*
DIR(0 DLOOP+4*, FILE+5*
DIRUT DLOOP+2~, DLOOP+8, DLOOP+14, FILE+3~, FILE+9
DTOUT DLOOP+2~, DLOOP+8, DLOOP+14, FILE+3~, FILE+9
DUOUT DLOOP+2~, DLOOP+8, DLOOP+14, FILE+3~, FILE+9
G PURP+4~, PURP+6*, PURP+7
I WRITE+3~, WRITE+4*, WRITE+5, PURP+4~, PURP+8*, PURP+9, TXT+2~, TXT+3*
IO HFS+13
POP HFS+3~, HFS+10
U GET+14, GET+15, ONE+6, SET+6, SET+7, SET+8, SET+9, SET+10, SET+11, SET+12
, SET+13, SET+14, SET+15, SET+16, SET+17, SET+18, SET+19, SET+20, SETAMT+6, SETAMT+7
, SETAMT+8, SETTD+9, SETTD+10, SETTD+11, WRITE+4, WRITE+5, DLOOP+19, LOC+6, ASUFAC+8, CAN+6
, CAN+7, CAN+8, TVLR+6, TDAYS+7, TVLF+6, TVLT+7, CITY+7, CITY+8, CITY+9, CITY+10
, PURP+9, STAT+7, STAT+8, STAT+9, STAT+11, STAT+12, STAT+13, SEX+6, PAYPLAN+8, GRADE+7
, SER+6, ODS+6, ODS+7, ODS+8, ODSA+6, ODSA+7, ODSA+8, REQ+5, OBL+5, SPNT+6
X SET+3~, SET+5*, SET+6*, SET+7*, SET+8*, SET+9*, SET+10*, SET+11*, SET+12*, SET+13*
, SET+14*, SET+15*, SET+16*, SET+17*, SET+18*, SET+19*, SET+20*, SET+21, SETAMT+3~, SETAMT+5*
, SETAMT+6*, SETAMT+7*, SETAMT+8*, SETAMT+9, SETTD+3~, SETTD+5*, SETTD+9*, SETTD+10*, SETTD+11*, SETTD+12
, UNIX+3~, UNIX+12*, UNIX+13, UNIX+14*, UNIX+15, WRITE~, WRITE+4, WRITE+5, DLOOP+2~, FILE+3~
, HFS+3~, LOC~, LOC+6, CAN~, CAN+6, TVLR~, TVLR+6, NAME~, NAME+7, TDAYS+3~
, TDAYS+5*, TDAYS+6*, TDAYS+7, NTDAYS+3~, NTDAYS+6, TVLF~, TVLF+6*, TVLF+7, TVLT~, TVLT+6
, TVLT+7, CITY~, CITY+6*, CITY+7, CITY+8*, CITY+9*, CITY+10, PURP~, PURP+7, STAT~
, STAT+6, STAT+10, STAT+13, SEX~, SEX+6, PAYPLAN~, PAYPLAN+7*, PAYPLAN+8, GRADE~, GRADE+6*
, GRADE+7, SER~, SER+6, ODS~, ODS+6, ODSA~, ODSA+6, REQ~, REQ+5, OBL~
, OBL+5, SPNT~, SPNT+6, TXT+2~, TXT+3*
X1 NTDAYS~
X2 NTDAYS~
Y WRITE+3~, WRITE+5*, WRITE+7, DLOOP+2~, DLOOP+9, DLOOP+10, DLOOP+15, DLOOP+16, FILE+3~, FILE+10
, HFS+3~, LOC+4~, LOC+5*, LOC+6*, LOC+7, ASUFAC+5~, ASUFAC+6*, ASUFAC+8*, ASUFAC+9, CAN+4~
, CAN+5*, CAN+6*, CAN+7*, CAN+8*, CAN+9, TVLR+4~, TVLR+5*, TVLR+6*, TVLR+7, NAME+4~
, NAME+5*, NAME+7*, NAME+8, TDAYS+3~, TDAYS+4*, NTDAYS+3~, NTDAYS+4*, NTDAYS+6*, NTDAYS+7, TVLF+4~
, TVLF+5*, TVLF+7*, TVLF+8, TVLT+4~, TVLT+5*, TVLT+8*, TVLT+9, CITY+4~, CITY+5*, CITY+7*
, CITY+10*, CITY+11, PURP+4~, PURP+5*, PURP+9*, PURP+10, STAT+4~, STAT+5*, STAT+7, STAT+11*
, STAT+12*, STAT+14*, STAT+15, SEX+4~, SEX+5*, SEX+6*, SEX+7, PAYPLAN+5~, PAYPLAN+6*, PAYPLAN+8*
, PAYPLAN+9, GRADE+4~, GRADE+5*, GRADE+7*, GRADE+8, SER+4~, SER+5*, SER+6*, SER+7, ODS+4~
, ODS+5*, ODS+6*, ODS+7*, ODS+8*, ODS+9, ODSA+4~, ODSA+5*, ODSA+6*, ODSA+7*, ODSA+8*
, ODSA+9, REQ+3~, REQ+4*, REQ+5*, REQ+6, OBL+3~, OBL+4*, OBL+5*, OBL+6, SPNT+4~
, SPNT+5*, SPNT+6*, SPNT+7
Y( ASUFAC+8
Z TDAYS+3~, TDAYS+7*, TDAYS+8, TDAYS+9, TVLT+4~, TVLT+6*, TVLT+7*, TVLT+8, PURP+4~, PURP+7*
, PURP+9, STAT+4~, STAT+6*, STAT+7, STAT+8, STAT+10*, STAT+11*, STAT+12*, STAT+13*, STAT+14
ZISH1 HFS+3~, HFS+4*, HFS+9
ZISH2 HFS+3~, HFS+6*, HFS+9, HFS+11
ZISH3 HFS+3~, HFS+7*, HFS+9, HFS+11
ZISH4 HFS+3~, HFS+8*, HFS+9

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