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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ACRFSPL1

Package: Commitment Register

Routine: ACRFSPL1


Information

ACRFSPL1 ;IHS/OIRM/DSD/AEF - DHR-SPLITOUT [ 11/01/2001 9:44 AM ]

Source Information

Source file <ACRFSPL1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
IHS VA Utilities 2 ^XBCLS  ^XBKVAR  
Kernel 1 HOME^%ZIS  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Commitment Register 1 ACRFSPL  

Entry Points

Name Comments DBIA/ICR reference
DISP ;----- BUILDS DISPLAY ARRAY
HDR1 ;----- WRITES HEADER 1
LOOP(ACRD0)
PROMPT ;----- PROMPTS USER FOR WHICH BATCH TO EXPORT
EN(ACRCTR,ACRDTNM,ACRPKG)
SHOW ;----- SHOW BATCHES
DATE(X) ;----- RETURNS DATE IN MM/DD/YY FORMAT
GET ;----- GETS DATA TO DISPLAY
NTRL ;----- LISTS BATCHES WITH NO TRAILERS
HDR3 ;----- WRITES HEADER 3
HDR2 ;----- WRITES HEADER 2
HDR ;----- WRITES MAIN OPTION HEADER

External References

Name Field # of Occurrence
HOME^%ZIS EN+16
^DIR PROMPT+6, NTRL+6
^XBCLS HDR+2
^XBKVAR EN+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOW+5
Function Call: WRITE
  • Prompt: ?$S(PC=1:5,1:41)
  • Line Location: SHOW+8
Function Call: WRITE
  • Prompt: $$DATE($P(DATA,U))
  • Line Location: SHOW+9
Function Call: WRITE
  • Prompt: " "
  • Line Location: SHOW+10
Function Call: WRITE
  • Prompt: $J($P(DATA,U,4),3)
  • Line Location: SHOW+11
Function Call: WRITE
  • Prompt: " "
  • Line Location: SHOW+12
Function Call: WRITE
  • Prompt: $P(DATA,U,2)_$S($P(DATA,U,2)]"":"-",1:"")_$P(DATA,U,3)
  • Line Location: SHOW+13
Function Call: WRITE
  • Prompt: " "
  • Line Location: SHOW+14
Function Call: WRITE
  • Prompt: $J($P(DATA,U,5),4)
  • Line Location: SHOW+15
Function Call: WRITE
  • Prompt: " "
  • Line Location: SHOW+16
Function Call: WRITE
  • Prompt: $J($P(DATA,U,6),3)
  • Line Location: SHOW+17
Function Call: WRITE
  • Prompt: " |"
  • Line Location: SHOW+18
Function Call: WRITE
  • Prompt: !
  • Line Location: PROMPT+5
Function Call: WRITE
  • Prompt: !?10,*7,"Batch COLOR NOT AVAILABLE FOR EXPORT -- Select AGAIN"
  • Line Location: PROMPT+11
Function Call: WRITE
  • Prompt: !!,*7,"All Batches MUST have a trailer -- JOB CANCELLED"
  • Line Location: PROMPT+14
Function Call: WRITE
  • Prompt: !?5,$$DATE(ACRD1)_"-"_ACRI
  • Line Location: NTRL+14
Function Call: WRITE
  • Prompt: !?18
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "*"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !?18,"*"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: ?22,"IHS AREA OFFICE DHR EXPORT (SPLITOUT)"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: ?62,"*"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !?18,"*"
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: ?26,ACRPKG
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: ?62,"*"
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !?18,"*"
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: ?34,"VERSION "
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: $P($T(ACRFSPL1+1),";",3)
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: ?62,"*"
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !?18
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: "*"
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: !?5
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: !?5,"*"
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: ?15,"COLOR = BLUE"
  • Line Location: HDR1+6
Function Call: WRITE
  • Prompt: ?40,"*"
  • Line Location: HDR1+7
Function Call: WRITE
  • Prompt: ?56,"COLOR = RED"
  • Line Location: HDR1+8
Function Call: WRITE
  • Prompt: ?74,"*"
  • Line Location: HDR1+9
Function Call: WRITE
  • Prompt: !?5
  • Line Location: HDR1+10
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR1+11
Function Call: WRITE
  • Prompt: !?5,"*"
  • Line Location: HDR2+2
Function Call: WRITE
  • Prompt: ?10,$S($G(ACRZ(1)):"COLOR AVAILABLE FOR EXPORT",1:" NO DATA ON FILE")
  • Line Location: HDR2+3
Function Call: WRITE
  • Prompt: ?40,"*"
  • Line Location: HDR2+4
Function Call: WRITE
  • Prompt: ?45,$S($G(ACRZ(2)):"COLOR AVAILABLE FOR EXPORT",1:" NO DATA ON FILE")
  • Line Location: HDR2+5
Function Call: WRITE
  • Prompt: ?74,"*"
  • Line Location: HDR2+6
Function Call: WRITE
  • Prompt: !?5
  • Line Location: HDR2+7
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR2+8
Function Call: WRITE
  • Prompt: !,?6,"B. DATE #BCH ID'S RCDS NO-TR"
  • Line Location: HDR3+2
Function Call: WRITE
  • Prompt: ?40,"|"
  • Line Location: HDR3+3
Function Call: WRITE
  • Prompt: ?42,"B. DATE #BCH ID'S RCDS NO-TR"
  • Line Location: HDR3+4
Function Call: WRITE
  • Prompt: !?5
  • Line Location: HDR3+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR3+6
Routine Call
  • %ZIS
  • Line Location:
    • EN+16
Routine Call
  • DIR
  • Line Location:
    • PROMPT+6
    • NTRL+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AFSHRCDS( LOOP+10, LOOP+12, LOOP+15, LOOP+16, LOOP+25

Label References

Name Line Occurrences
$$DATE SHOW+9, NTRL+14
DISP GET+15
GET EN+18
HDR EN+17
HDR1 EN+19
HDR2 EN+20
HDR3 EN+21
LOOP GET+12, GET+13, GET+14
NTRL PROMPT+13
PROMPT EN+23, PROMPT+11
SHOW EN+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACR EN+14~, GET+11!
ACR( LOOP+11*, LOOP+13*, LOOP+17*, LOOP+18*, LOOP+19*, LOOP+21*, LOOP+26*, DISP+4, DISP+6, DISP+8
, PROMPT+11
ACRCTR EN~, GET+12, GET+13, GET+14, PROMPT+8, PROMPT+9, HDR+4
ACRD0 EN+24!, GET+10~, GET+12*, GET+13*, GET+14*, LOOP~, LOOP+10, LOOP+11, LOOP+12, LOOP+13
, LOOP+15, LOOP+16, LOOP+17, LOOP+18, LOOP+19, LOOP+21, LOOP+22, LOOP+23, LOOP+25, LOOP+26
, DISP+2~, DISP+3*, DISP+4*, DISP+6, DISP+8, DISP+9, PROMPT+8*, PROMPT+9*, PROMPT+10, PROMPT+11
, PROMPT+12, NTRL+2~, NTRL+8*, NTRL+9*, NTRL+11, NTRL+13
ACRD1 LOOP+8~, LOOP+9*, LOOP+10*, LOOP+11, LOOP+15, LOOP+16, LOOP+17, LOOP+18, LOOP+19, LOOP+21
, LOOP+23, LOOP+25, LOOP+26, DISP+2~, DISP+5*, DISP+6*, DISP+8, NTRL+2~, NTRL+10*, NTRL+11*
, NTRL+13, NTRL+14
ACRD2 LOOP+8~, LOOP+14*, LOOP+15*, LOOP+16, LOOP+25
ACRD3 LOOP+8~, LOOP+24*, LOOP+25*
ACRDISP EN+14~
ACRDISP( DISP+8*, SHOW+4, SHOW+7
ACRDTNM EN~
ACRI NTRL+2~, NTRL+12*, NTRL+13*, NTRL+14
ACRNTRB EN+14~
ACRNTRB( LOOP+23*, NTRL+9, NTRL+11, NTRL+13
ACRNTRL EN+14~
ACRNTRL( LOOP+22*, PROMPT+12
ACROUT EN+14~, EN+24, PROMPT+7*, PROMPT+10*, PROMPT+15*
ACRPKG EN~, HDR+4*, HDR+11
ACRZ EN+14~
ACRZ( DISP+9*
ACRZ(1 DISP+3*, HDR2+3
ACRZ(2 DISP+3*, HDR2+5
CNT DISP+2~, DISP+5*, DISP+7*, DISP+8
DATA LOOP+8~, LOOP+12*, LOOP+13, LOOP+16*, LOOP+17, LOOP+18, LOOP+20, LOOP+23, SHOW+2~, SHOW+7*
, SHOW+9, SHOW+11, SHOW+13, SHOW+15, SHOW+17
DIR PROMPT+2~, NTRL+2~
DIR("A" PROMPT+4*, NTRL+4*
DIR("B" NTRL+5*
DIR(0 PROMPT+3*, NTRL+3*
>> DIRUT PROMPT+7
I SHOW+2~, SHOW+3*, SHOW+4*, SHOW+7, HDR+3~, HDR+6*, HDR+18*, HDR1+2~, HDR1+4*, HDR1+11*
, HDR2+8*, HDR3+6*
PC SHOW+2~, SHOW+6*, SHOW+7, SHOW+8, SHOW+18
U LOOP+12, LOOP+13, LOOP+17, LOOP+18, LOOP+19, LOOP+20, LOOP+21, LOOP+23, LOOP+26, DISP+8
, SHOW+9, SHOW+11, SHOW+13, SHOW+15, SHOW+17
X DATE~, DATE+2*, DATE+3, PROMPT+2~, NTRL+2~
Y PROMPT+2~, PROMPT+8, PROMPT+9, NTRL+2~, NTRL+7

Marked Items

Name Field # of Occurrence
$T(ACRFSPL1+1 HDR+15
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All