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 |  All
Print Page as PDF
Routine: ACHSBRF

Package: Contract Health Management Information System

Routine: ACHSBRF


Information

ACHSBRF ; IHS/ITSC/TPF/PMF - FIX CHS REGISTER BALANCES ;

Source Information

Source file <ACHSBRF.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Contract Health Management Information System 2 $$LOCK^ACHS  SB1^ACHSFU  
IHS VA Utilities 1 $$DIR^XBDIR  
VA Fileman 1 WAIT^DICD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Contract Health Management Information System 1 ACHSUUP  

Entry Points

Name Comments DBIA/ICR reference
DATES ;
FIX(ACHSFY,ACHSREG) ;EP - Fix the Acct Balances and YTD obligated.
VARS ;
FY ; ----- Display FYs, ask FY.
BDT(F,R) ; Given FY and Reg #, return the Beginning date of the Register.
START ;
; ----- Initialize vars.
EXIT ;
EDT(F,R) ; Given FY and Reg #, return the Ending date of the Register.
REG ; ----- Ask Register.

External References

Name Field # of Occurrence
$$LOCK^ACHS DATES+68, DATES+77
SB1^ACHSFU FY+3
WAIT^DICD DATES+8
$$DIR^XBDIR FY+5, REG+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"FY DOES NOT EXIST."
  • Line Location: FY+7
Function Call: WRITE
  • Prompt: !!,"REGISTER DOES NOT EXIST."
  • Line Location: REG+3
Function Call: WRITE
  • Prompt: !,"Checking transactions for FY ",ACHSFY,", Register ",ACHSREG,"."
  • Line Location: DATES+6
Function Call: WRITE
  • Prompt: "."
  • Line Location: DATES+14
Function Call: WRITE
  • Prompt: !,"YTD Amount is ",$FN($P($G(^ACHS(9,DUZ(2),ACHSFY,0)),U,3),",",2)," and should be ",$FN(ACHS,",",2),"."
  • Line Location: DATES+64
Function Call: WRITE
  • Prompt: !!,"FILE IN USE BY ANOTHER USER, TRY LATER.........."
  • Line Location: DATES+68
Function Call: WRITE
  • Prompt: !!,"UPDATING ACCOUNT BALANCES FOR THE REGISTERS."
  • Line Location: DATES+69
Function Call: WRITE
  • Prompt: !,"UPDATING YTD OBLIGATED."
  • Line Location: DATES+74
Function Call: WRITE
  • Prompt: !,"Done."
  • Line Location: DATES+78

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHS(9 - [#9002069] REG+1, REG+3, DATES+46, DATES+51, DATES+58, DATES+61, DATES+64, DATES+70*, DATES+71, DATES+75*
, BDT+1, EDT+1
^ACHSF - [#9002080] DATES+11, DATES+12, DATES+14, DATES+15, DATES+16, DATES+21, DATES+24, DATES+28, BDT+2

Label References

Name Line Occurrences
$$BDT DATES+1
$$EDT DATES+2
DATES VARS+5
EXIT DATES+68
FY FY+7
REG REG+3
START FIX+3
VARS START+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % VARS+3*, VARS+7*, DATES+34*, DATES+35, DATES+48*, DATES+54*, DATES+55, DATES+56, DATES+57, DATES+58
, DATES+59, DATES+63*, DATES+73*
>> ACHS DATES+62*, DATES+63*, DATES+64, DATES+72*, DATES+73*, DATES+75
ACHSAMT VARS+1~, DATES+21*, DATES+24*, DATES+28*, DATES+31*, DATES+35
ACHSBDT VARS+1~, DATES+1*, DATES+11*, DATES+12, DATES+14, DATES+15
ACHSDCR VARS+1~
ACHSDCR( VARS+3*, DATES+35*, DATES+48, DATES+54*, DATES+55, DATES+56, DATES+59
ACHSDIEN VARS+1~, DATES+12*, DATES+14*, DATES+15, DATES+16, DATES+21, DATES+24, DATES+28
ACHSDOCR VARS+1~, DATES+16*, DATES+18, DATES+34, DATES+43*
ACHSEDT VARS+1~, DATES+2*, DATES+11
ACHSFLG START+2, VARS+5, FIX+1~, FIX+2*
ACHSFY START+3~, FY+5*, FY+7, REG+1, REG+3, DATES+1, DATES+2, DATES+6, DATES+18, DATES+46
, DATES+51, DATES+61, DATES+64, DATES+70, DATES+71, DATES+75, FIX~
>> ACHSFYWK( VARS+7, FY+7
ACHSMAX VARS+1~, VARS+7*, FY+5
ACHSMIN VARS+1~, VARS+7*, FY+5
ACHSRCOR VARS+1~, DATES+43*, DATES+48*, DATES+54, DATES+63, DATES+70, DATES+73
ACHSREG START+3~, REG+1*, REG+3, DATES+1, DATES+2, DATES+6, DATES+46, DATES+51, DATES+61, DATES+70
, DATES+71, FIX~
ACHSROUT VARS+1~, DATES+51*, DATES+54
ACHSRPRV VARS+1~, DATES+43*, DATES+46*, DATES+48
ACHSTIEN VARS+1~, DATES+14*, DATES+15*, DATES+21
ACHSTOTL VARS+1~, DATES+43*, DATES+56*, DATES+61
ACHSTYPE VARS+1~, DATES+11*, DATES+12*, DATES+13, DATES+14, DATES+15, DATES+24, DATES+28, DATES+31
DT EDT+3
>> DTOUT FY+6, REG+2
>> DUOUT FY+6, REG+2
DUZ(2 VARS+7, FY+7, REG+1, REG+3, DATES+11, DATES+12, DATES+14, DATES+15, DATES+16, DATES+21
, DATES+24, DATES+28, DATES+46, DATES+51, DATES+58, DATES+61, DATES+64, DATES+70, DATES+71, DATES+75
, BDT+1, BDT+2, EDT+1
F BDT~, BDT+1, BDT+2, EDT~, EDT+1
R BDT~, BDT+1, EDT~, EDT+1
U REG+1, DATES+18, DATES+21, DATES+24, DATES+28, DATES+34, DATES+48, DATES+54, DATES+58, DATES+63
, DATES+64, DATES+73, DATES+75, BDT+1, BDT+2, EDT+1
>> X EDT+1*, EDT+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All