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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ACHSUF

Package: Contract Health Management Information System

Routine: ACHSUF


Information

ACHSUF ; IHS/ITSC/PMF - SET CHS FACILITY VARS, CHECK DATA INTEGRITY ; [ 10/16/2001 8:16 AM ]

Source Information

Source file <ACHSUF.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Contract Health Management Information System 2 $$LOCK^ACHS  AUTO^ACHSNEW  
IHS VA Utilities 1 $$DIR^XBDIR  

Caller Graph

Caller Graph Total: 44

Package Total Caller Graph
Contract Health Management Information System 44 ACHSA  ACHSAC  ACHSBUG3  ACHSCHF  ACHSDSF  ACHSDST  ACHSDSTE  ACHSDSU  
ACHSEOB3  ACHSEOB9  ACHSEOBB  ACHSIC3  ACHSMD0  ACHSNEW  ACHSODB  ACHSODP  
ACHSODP2  ACHSODQ  ACHSPAC  ACHSPDC  ACHSPDC1  ACHSRELG  ACHSRGPR  ACHSRP1  
ACHSRPF  ACHSSIG1  ACHSSIG2  ACHSSIGA  ACHSSIGB  ACHSTX2  ACHSTX7X  ACHSTXA1  
ACHSTXAR  ACHSTXF  ACHSTXF1  ACHSTXP2  ACHSTXX  ACHSVAR  ACHSVDC  ACHSVDF  
ACHSVND  ACHSVUR  ACHSVUR2  ACHSVURT  

Entry Points

Name Comments DBIA/ICR reference
INIT ;EP
ERR ;
FY ;EP - Set FY and Current FY.
WK ;SET ACHSFYWK ARRAY
FC ;EP - Set Finance Code.
WK1 ;
S18 ;
I1 ;
S17 ;
S16 ;
S15 ;
INITEND ;
C3 ;
C2 ;
C1 ;
CEND ;
END ;
GLOBERR ;EP.
H ;EP - From DIR via HELP^ACHS().
K ;
FNCDERR ;
INERR ;
C0SUB ;EP - Ensure the number of registers agree with 0th node.
; Set the ACHSFYWK array.
; ACHSRX is Fiscal Year. ACHSRXX is Register (DCR) number.
ERR1 ;

External References

Name Field # of Occurrence
$$LOCK^ACHS INIT+2, INITEND+1
AUTO^ACHSNEW S16+9
$$DIR^XBDIR S16+5, S16+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"LOCK FAILED AT INIT+2^ACHSUF"
  • Line Location: INIT+2
Function Call: WRITE
  • Prompt: *7,*7,!!!,"THE CHS SYSTEM HAS NOT BEEN INITIALIZED FOR THE CURRENT FISCAL YEAR",!!
  • Line Location: S16+4
Function Call: WRITE
  • Prompt: !!,"SETTING UP NEW FISCAL YEAR. PLEASE WAIT........"
  • Line Location: S16+8
Function Call: WRITE
  • Prompt: *7,*7,!!,"A NEW FISCAL YEAR "_ACHSCFY_" HAS BEEN SET UP.",!,"PLEASE NOTIFY THE CONTRACT HEALTH MANAGER.",!
  • Line Location: S16+13

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHS(9 - [#9002069] ACHSUF+5*, ACHSUF+10, ACHSUF+14, ACHSUF+15, ACHSUF+16, ACHSUF+18, ACHSUF+19, I1+3, I1+4*, I1+5*
, I1+6*, END+5*, C0SUB+3, C1+1, C2+1, C3+1, C3+2, C3+3, WK1+1, WK1+4
^ACHSF - [#9002080] FY+4*, FY+7, FY+10, FY+14, FY+16
^AUTTAREA - [#9999999.21] FC+4
^AUTTLOC - [#9999999.06] FC+2, FC+4

Label References

Name Line Occurrences
C0SUB ACHSUF+8, END+3, S16+11
C1 C1+2, C3+4
CEND C1+2, C3+1
END ACHSUF+15, ACHSUF+16, ACHSUF+18, S18+2
ERR ACHSUF+10
ERR1 INERR+2, FNCDERR+2, GLOBERR+2, S16+10
FC ACHSUF+6
FNCDERR FC+3
FY ACHSUF+11
GLOBERR ACHSUF+9, END+4
I1 I1+7
INITEND I1+2
K ACHSUF+7, ERR1+3, S16+6
S15 ACHSUF+15, ACHSUF+16
S16 ACHSUF+12, ACHSUF+14
S17 ACHSUF+19
S18 S15+2
WK C0SUB+3
WK1 WK1+2, WK1+5

Naked Globals

Name Field # of Occurrence
^(0 ACHSUF+15, ACHSUF+16, I1+6*, FY+7*, FY+14, FY+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACHS C2+1*
>> ACHS("FYX" K+1!, C2+1*
>> ACHS("SETNEW" S16+1
>> ACHS("YR" S16+7*
>> ACHS("ZL" ACHSUF+15*, ACHSUF+16*, K+1!
>> ACHSACFY ACHSUF+14, ACHSUF+15, ACHSUF+16, ACHSUF+18, ACHSUF+19, S16+7, FY+1*, FY+14*, FY+16*, FY+17*
ACHSACWK ACHSUF+13*, ACHSUF+14, ACHSUF+15, ACHSUF+16, ACHSUF+18, ACHSUF+19, K+1!
>> ACHSAUTO S16+7*
>> ACHSCFY ACHSUF+12, ACHSUF+13, S16+13, FY+17*
ACHSCHSS ACHSUF+3*, ACHSUF+4*, K+1!, S15+1, S18+1
ACHSERR ACHSUF+7, ACHSUF+9, INIT+2*, END+1*, END+4, ERR1+1*, S16+6*, S16+10, C3+1*, C3+2*
, C3+3*, FC+1!
>> ACHSFC FC+2*, FC+3, FC+4*
>> ACHSFYDT FY+10*, FY+11*
>> ACHSFYWK( ACHSUF+12, ACHSUF+13, I1+1, I1+3, C2+1*, WK1+4*
ACHSGCHK END+2!
>> ACHSISAO ERR+1, ERR1+2, INERR+1, FNCDERR+1, GLOBERR+1, S15+1, S16+2, S17+2, S18+1
ACHSRX C0SUB+4*, C1+1*, C1+2, C2+1, C3+1, C3+2, C3+3, CEND+1!, WK+1*, WK1+1*
, WK1+2, WK1+3!, WK1+4
ACHSRXX C0SUB+4*, C1+3*, C2+1*, CEND+1!
ACHSSRXX C1+4*, C2+1*, C3+3, CEND+1!
ACHSTCNT C1+3*, C2+1*, C3+2, CEND+1!
ACHSXX I1+3*, I1+5, K+1!
DT ACHSUF+15, ACHSUF+16, END+5, C0SUB+3, FY+1, FY+10, FY+11, FY+14, FY+16
>> DTOUT S16+6
>> DUOUT S16+6
DUZ(2 ACHSUF+5, ACHSUF+10, ACHSUF+12, ACHSUF+13, ACHSUF+14, ACHSUF+15, ACHSUF+16, ACHSUF+18, ACHSUF+19, I1+1
, I1+3, I1+4, I1+5, I1+6, END+5, C0SUB+3, C1+1, C2+1, C3+1, C3+2
, C3+3, FY+4, FY+7, FY+10, FY+14, FY+16, FC+2, FC+4, WK1+1, WK1+4
IO(0 S16+3, S16+12, S17+1
>> R INIT+1*, I1+1*, I1+2, I1+3, I1+4, I1+5, I1+6
U ACHSUF+15, ACHSUF+16, I1+6, C3+2, C3+3, FY+4, FY+7, FY+10, FY+14, FY+16
, FC+2, FC+4, WK1+4
>> X I1+3*, I1+4, I1+5, I1+6
>> Y S16+5*, S16+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All