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

Package: Commitment Register

Routine: ACRFFF5


Information

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

Source Information

Source file <ACRFFF5.m>

Call Graph

Call Graph Total: 10

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

Entry Points

Name Comments DBIA/ICR reference
CAN(ACRDOCDA)
HFS(ACROUT,%FILE,ACRFILE)
CITY(X) ;----- RETURNS EXTERNAL ARMS PER DIEM CITY, STATE
UNIX(ACRFILE)
TITLE(X) ;----- RETURNS TRAINING COURSE TITLE
STAT(ACRDOCDA)
TVLT(X) ;----- RETURNS EXTERNAL TRAVEL TO CITY, STATE
ODSA(X) ;----- RETURNS OFFICIAL DUTY STATION AREA
GET(ACRDATES)
SER(X) ;----- RETURNS SERIES OF TRAVELER
FILE(ACRFILE)
TXT ;----- PRINT OPTION TEXT
PAYPLAN(X) ;----- RETURNS PAY PLAN OF TRAVELER
BEG(X) ;----- RETURNS TRAINING BEGIN DATE
EN ;EP -- MAIN ENTRY POINT
DT(X) ;----- RETURNS FM DATE
AMTS(ACRDOCDA)
DOCNO(X) ;----- RETURNS DOCUMENT NUMBER
ODS(X) ;----- RETURNS OFFICIAL DUTY STATION
TVLF(X) ;----- RETURNS EXTERNAL TRAVEL FROM CITY, STATE
DESC ;----- ROUTINE DESCRIPTION
END(X) ;----- RETURNS TRAINING END DATE
SEX(X) ;----- RETURNS GENDER
NAME(ACRDOCDA)
HRS(X) ;----- RETURNS TRAINING HOURS (DUTY)
DLOOP ;----- DATE LOOP
WRITE(X) ;
DATES(ACRDATES)
GRADE(X) ;----- RETURNS GRADE OF TRAVELER
ONE(ACRDOCDA)

External References

Name Field # of Occurrence
^%DT DT+6
HOME^%ZIS EN+5
^%ZISC EN+27, UNIX+16
OPEN^%ZISH HFS+9
$$ARMSDIR^ACRFSYS HFS+6
$$SLDATE^ACRFUTL BEG+7, END+7
$$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+14
Function Call: WRITE
  • Prompt: !!,ACRCNT_" Records have been put into file "_ACRFILE
  • Line Location: UNIX+15
Function Call: WRITE
  • Prompt: """"
  • Line Location: WRITE+7
Function Call: WRITE
  • Prompt: Y
  • Line Location: WRITE+8
Function Call: WRITE
  • Prompt: """"
  • Line Location: WRITE+9
Function Call: WRITE
  • Prompt: ","
  • Line Location: WRITE+10
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] ODS+6, ODSA+6, PAYPLAN+6, GRADE+6, SER+6
^ACRCAN - [#9002186.5] CAN+6
^ACRDOC - [#9002196] GET+10, ONE+12, ONE+13, ONE+16, CAN+5, NAME+5, AMTS+6, DOCNO+6, TVLF+6, TVLT+6
, TVLT+7, BEG+6, END+6, TITLE+6, HRS+6
^ACRDOC("REF" GET+9
^ACROBL - [#9002189] STAT+4
^ACRPD - [#9002193.9] CITY+6
^ACRSS - [#9002193] AMTS+10, AMTS+12, AMTS+14
^ACRSS("C" AMTS+9
^AUTTAREA - [#9999999.21] ODSA+8
^AUTTCAN - [#9999999.57] CAN+7
^AUTTDOCR("B" GET+7
^AUTTLOC - [#9999999.06] ODS+7, ODSA+7
^DIC(4 - [#4] ODS+8
^DIC(5 - [#5] CITY+9
^TMP("ACR" EN+19, GET+5!, ONE+39, ONE+40, ONE+45, ONE+46, ONE+47, ONE+48, ONE+51*, ONE+53
, ONE+54*, ONE+56, ONE+66*, UNIX+4, UNIX+10, UNIX+11, AMTS+16*
^VA(200 - [#200] SEX+6

Label References

Name Line Occurrences
$$BEG ONE+34
$$CAN ONE+25
$$CITY TVLF+7, TVLT+8
$$DOCNO ONE+11
$$DT ONE+57, ONE+58
$$END ONE+35
$$GRADE ONE+32
$$HRS ONE+37
$$NAME ONE+27
$$ODS ONE+28
$$ODSA ONE+29
$$PAYPLAN ONE+31
$$SER ONE+33
$$SEX ONE+30
$$STAT ONE+49
$$TITLE ONE+36
$$TVLF ONE+43
$$TVLT ONE+44
AMTS ONE+19, ONE+20
DATES EN+9
DLOOP DLOOP+17
FILE EN+12
GET EN+17
HFS UNIX+5
ONE GET+13
TXT EN+7
UNIX EN+23
WRITE UNIX+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT DT+5*
%FILE UNIX+3~, UNIX+5, UNIX+7, HFS~, HFS+13*
ACRAMT AMTS+4~, AMTS+13*, AMTS+15*, AMTS+16
>> ACRATT ONE+12*, ONE+28, ONE+29, ONE+30, ONE+31, ONE+32, ONE+33
ACRBEG DLOOP+2~, DLOOP+10*, DLOOP+17, DLOOP+19
ACRCNT UNIX+3~, UNIX+8*, UNIX+12*, UNIX+15
ACRD0 AMTS+4~, AMTS+8*, AMTS+9*, AMTS+10, AMTS+12, AMTS+14
ACRDATA GET+3~, GET+10*, GET+11, GET+12, AMTS+4~, AMTS+12*, AMTS+13, AMTS+15
ACRDATES EN+2~, EN+9, EN+10, EN+17, GET~, GET+11, GET+12, DATES~, DLOOP+19*
ACRDOCDA GET+3~, GET+8*, GET+9*, GET+10, GET+13, ONE~, ONE+11, ONE+12, ONE+13, ONE+19
, ONE+25, ONE+27, ONE+34, ONE+35, ONE+36, ONE+37, ONE+49, UNIX+3~, UNIX+9*, UNIX+10*
, UNIX+11, CAN~, CAN+5, NAME~, NAME+5, AMTS~, AMTS+6, AMTS+9, STAT~, STAT+4
ACRDOCNO GET+3~, ONE+9~, ONE+11*, ONE+26, ONE+38, ONE+39, ONE+40, ONE+51, ONE+53, ONE+54
, ONE+56, ONE+66, AMTS+4~, AMTS+6*, AMTS+7, AMTS+16
ACREND DLOOP+2~, DLOOP+16*, DLOOP+17, DLOOP+19
ACRFILE EN+2~, EN+12, EN+13, EN+23, UNIX~, UNIX+5, UNIX+15, FILE~, FILE+4*, FILE+10*
, HFS~, HFS+7
ACRKW AMTS+4~, AMTS+10*, AMTS+11, AMTS+16
ACROUT UNIX+3~, UNIX+5, UNIX+6, HFS~, HFS+12*
ACRREF GET+3~, GET+7*, GET+9
ACRTODA ONE+9~, ONE+13*, ONE+15, ONE+16, ONE+20, ONE+43, ONE+44
ACRTONO GET+3~, ONE+9~, ONE+14*, ONE+16*, ONE+41, ONE+42, ONE+45, ONE+46, ONE+47, ONE+48
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
I WRITE+3~, WRITE+5*, WRITE+6, TXT+2~, TXT+3*
IO HFS+13
POP HFS+3~, HFS+10
U GET+11, GET+12, ONE+12, ONE+13, ONE+16, ONE+25, ONE+26, ONE+27, ONE+28, ONE+29
, ONE+30, ONE+31, ONE+32, ONE+33, ONE+34, ONE+35, ONE+36, ONE+37, ONE+39, ONE+40
, ONE+42, ONE+43, ONE+44, ONE+45, ONE+46, ONE+47, ONE+48, ONE+49, ONE+57, ONE+58
, ONE+59, ONE+60, ONE+61, ONE+62, ONE+63, ONE+64, WRITE+5, WRITE+6, DLOOP+19, CAN+5
, CAN+6, CAN+7, NAME+5, AMTS+6, AMTS+10, AMTS+13, AMTS+14, AMTS+15, STAT+4, DOCNO+6
, TVLF+6, TVLT+7, CITY+7, CITY+8, CITY+9, ODS+6, ODS+7, ODS+8, ODSA+6, ODSA+7
, ODSA+8, SEX+6, PAYPLAN+7, GRADE+7, SER+6, BEG+6, END+6, TITLE+6, HRS+6
X UNIX+3~, UNIX+11*, UNIX+13, WRITE~, WRITE+5, WRITE+6, DLOOP+2~, FILE+3~, HFS+3~, AMTS+4~
, TXT+2~, TXT+3*, DT~, DOCNO~, DOCNO+6, TVLF~, TVLF+6, TVLT~, TVLT+6, TVLT+7
, CITY~, CITY+6*, CITY+7, CITY+8*, CITY+9*, CITY+10, ODS~, ODS+6, ODSA~, ODSA+6
, SEX~, SEX+6, PAYPLAN~, PAYPLAN+6*, PAYPLAN+7, GRADE~, GRADE+6*, GRADE+7, SER~, SER+6
, BEG~, BEG+6, END~, END+6, TITLE~, TITLE+6, HRS~, HRS+6
Y ONE+56*, ONE+57*, ONE+58*, ONE+59*, ONE+60*, ONE+61*, ONE+62*, ONE+63*, ONE+64*, ONE+66
, WRITE+3~, WRITE+6*, WRITE+8, DLOOP+2~, DLOOP+9, DLOOP+10, DLOOP+15, DLOOP+16, FILE+3~, FILE+10
, HFS+3~, CAN+3~, CAN+4*, CAN+5*, CAN+6*, CAN+7*, CAN+8, NAME+3~, NAME+4*, NAME+5*
, NAME+7*, NAME+8, STAT+3~, STAT+4*, STAT+5*, STAT+6, DT+4~, DT+7, DOCNO+4~, DOCNO+5*
, DOCNO+6*, DOCNO+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, ODS+4~, ODS+5*, ODS+6*, ODS+7*, ODS+8*
, ODS+9, ODSA+4~, ODSA+5*, ODSA+6*, ODSA+7*, ODSA+8*, ODSA+9, SEX+4~, SEX+5*, SEX+6*
, SEX+7, PAYPLAN+4~, PAYPLAN+5*, PAYPLAN+7*, PAYPLAN+8, GRADE+4~, GRADE+5*, GRADE+7*, GRADE+8, SER+4~
, SER+5*, SER+6*, SER+7, BEG+4~, BEG+5*, BEG+6*, BEG+7*, BEG+8, END+4~, END+5*
, END+6*, END+7*, END+8, TITLE+4~, TITLE+5*, TITLE+6*, TITLE+7, HRS+4~, HRS+5*, HRS+6*
, HRS+7
Z ONE+9~, ONE+25*, ONE+26*, ONE+27*, ONE+28*, ONE+29*, ONE+30*, ONE+31*, ONE+32*, ONE+33*
, ONE+34*, ONE+35*, ONE+36*, ONE+37*, ONE+39*, ONE+40*, ONE+42*, ONE+43*, ONE+44*, ONE+45*
, ONE+46*, ONE+47*, ONE+48*, ONE+49*, ONE+51, ONE+54, ONE+57, ONE+58, ONE+59, ONE+60
, ONE+61, ONE+62, ONE+63, ONE+64, TVLF+4~, TVLF+6*, TVLF+7, TVLT+4~, TVLT+6*, TVLT+7*
, TVLT+8
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