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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ACHSEOB

Package: Contract Health Management Information System

Routine: ACHSEOB


Information

ACHSEOB ;IHS/ITSC/PMF - PROCESS EOBRS (1/6) - READ IN, PROCESS ; 22 Feb 2016 11:50 AM

Source Information

Source file <ACHSEOB.m>

Call Graph

Call Graph Total: 18

Package Total Call Graph
Contract Health Management Information System 10 ($$AOP,$$ASF,$$IM,$$LOCK,$$PARM,CLOSEALL,RTRN)^ACHS  REPORT^ACHSEOB0  ^ACHSEOB1  START^ACHSEOB6  ^ACHSEOB8  (AREA,FAC,FACSRCH,KILL)^ACHSEOBB  REPORT^ACHSEOBC  ^ACHSEOBS  
$$E^ACHSJCHK  ERROR^ACHSTCK1  
Kernel 3 (,HOME)^%ZIS  $$OPEN^%ZISH  ^%ZTLOAD  
VA Fileman 3 ^%DT  $$GET1^DIQ  ^DIR  
IHS VA Utilities 2 $$DIR^XBDIR  $$C^XBFUNC  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Contract Health Management Information System 5 ACHSAREAEOBRIN  ACHSEOB0  ACHSEOBB  ACHSEOBM  ACHSFEOBR  

Entry Points

Name Comments DBIA/ICR reference
SUF ;
CONT ;
S2 ;
S1 ;
S0 ;
A3A ;
SEQOK ;
RDHDR ;EP
A3 ;
CONT1 ;
ABEND ;EP
SEQOK1 ;
ENDX ;EP
XIT ;
SAVDCR(S) ;EP - Save DCR amounts for EOB Summary Report
; S = "B" for begin values, "E" for end values.

External References

Name Field # of Occurrence
^%DT XIT+12
^%ZIS A3A+2, S1+7, XIT+9
HOME^%ZIS A3A+2, S1+9, S1+14, XIT+6, XIT+9
$$OPEN^%ZISH CONT1+26
^%ZTLOAD XIT+17
$$AOP^ACHS A3+5, CONT1+26
$$ASF^ACHS S2+1
$$IM^ACHS CONT+3, CONT1+26
$$LOCK^ACHS CONT1+19, ENDX+4
$$PARM^ACHS A3A+7, SUF+7, CONT1+10
CLOSEALL^ACHS SEQOK1+11, ENDX+5
RTRN^ACHS ACHSEOB+15, SUF+3, ENDX+8
REPORT^ACHSEOB0 S1+4
^ACHSEOB1 RDHDR+1
START^ACHSEOB6 XIT+9
^ACHSEOB8 ENDX+9
AREA^ACHSEOBB RDHDR+3
FAC^ACHSEOBB RDHDR+5
FACSRCH^ACHSEOBB SUF+1
KILL^ACHSEOBB ENDX+5
REPORT^ACHSEOBC XIT+6
^ACHSEOBS S2+4
$$E^ACHSJCHK CONT1+10
ERROR^ACHSTCK1 CONT1+26
$$GET1^DIQ S1+12
^DIR CONT1+16
$$DIR^XBDIR S0+4, SUF+4, SUF+32, SUF+34, SEQOK1+10, CONT+3
$$C^XBFUNC CONT1+12, CONT1+13, CONT1+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!?10,"CHS Registers are Closed -- EOBR Posting CANCELLED",!
  • Line Location: ACHSEOB+15
Function Call: WRITE
  • Prompt: !!,"Your PRINT EOBR parameter is: ",ACHSPAR,"."
  • Line Location: A3A+1
Function Call: WRITE
  • Prompt: !
  • Line Location: A3A+2
Function Call: WRITE
  • Prompt: !!,"Your UPDATE DOCUMENT FROM EOBR parameter is : ",ACHSPAR,".",!
  • Line Location: A3A+8
Function Call: WRITE
  • Prompt: *7,!!,"The '^ACHSEOBR(' work global is about to be killed.",!!,"Are you sure previously processed EOBRs were sent to your facilities",!,"via the EOBR OUT Area option?"
  • Line Location: S0+3
Function Call: WRITE
  • Prompt: !
  • Line Location: S1+1
Function Call: WRITE
  • Prompt: !!,*7,"No EOBR Files Available for Processing",!
  • Line Location: SUF+3
Function Call: WRITE
  • Prompt: !!,*7,$G(IORVON),"FILE selected is out of sequence!",$G(IORVOFF)
  • Line Location: SUF+21
Function Call: WRITE
  • Prompt: !!,"Current EOBR file selected: "
  • Line Location: SUF+23
Function Call: WRITE
  • Prompt: $P(ACHSUFLS(ACHSK(Y))," ")," file is ",+$P(ACHSUFLS(ACHSK(Y))," ",3)
  • Line Location: SUF+24
Function Call: WRITE
  • Prompt: !!,"Last sequence number processed in CHS FACILITY file is ",ACHSEOSQ
  • Line Location: SUF+26
Function Call: WRITE
  • Prompt: !!
  • Line Location: SUF+29
Function Call: WRITE
  • Prompt: *7,!
  • Line Location: SEQOK1+9
Function Call: WRITE
  • Prompt: !!!!,*7,$$C^XBFUNC("The compiled menu indicates CHS Users are Active -- EOBR'S CANNOT BE POSTED")
  • Line Location: CONT1+12
Function Call: WRITE
  • Prompt: !!,$$C^XBFUNC("You can Exercise the"),!,$$C^XBFUNC("'Clean old Job Nodes in XUTL'"),!
  • Line Location: CONT1+13
Function Call: WRITE
  • Prompt: $$C^XBFUNC("option (usually) on the site mgr's menu and try again."),!!
  • Line Location: CONT1+14
Function Call: WRITE
  • Prompt: !!,"CHS file lock failed, make sure all CHS user's are logged off."
  • Line Location: CONT1+19
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT1+29
Function Call: WRITE
  • Prompt: !,"Unlock of CHS Global failed, log out of CHS"
  • Line Location: ENDX+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: ENDX+7
Routine Call
  • %ZIS
  • Line Location:
    • A3A+2
    • S1+9
    • S1+14
    • XIT+6
    • XIT+9
Routine Call
  • DIR
  • Line Location:
    • CONT1+16
Routine Call
  • %ZIS
  • Line Location:
    • A3A+2
    • S1+7
    • XIT+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^%ZIS(1 - [#3.5] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHS(9 - [#9002069] ACHSEOB+15, SAVDCR+4
^ACHSEOBR CONT1+22*, CONT1+22!
^ACHSEOBR("0" S0+2, CONT1+23*
^ACHSEOBR("DCR" SAVDCR+4*
^ACHSF - [#9002080] A3A+11, SUF+12*, SEQOK1+6
^ACHSUSE("EOBR" CONT1+20*
^AUTTLOC - [#9999999.06] XIT+15

Label References

Name Line Occurrences
A3 ACHSEOB+13
ABEND S2+6, RDHDR+2, XIT+6, XIT+18
CONT SUF+30, SEQOK1+6, SEQOK1+7
CONT1 S2+8
ENDX ACHSEOB+15, A3A+2, S0+6, S1+4, S1+9, S2+6, SUF+3, SUF+5, SUF+34, CONT+4
, CONT1+10, CONT1+19, CONT1+26, XIT+3, XIT+6, XIT+9, ABEND+1
S1 S0+2
S2 S1+4
SAVDCR CONT1+27, RDHDR+5
SEQOK SUF+9, SUF+18
SUF S2+1, SUF+34, SEQOK1+12
XIT RDHDR+3

Naked Globals

Name Field # of Occurrence
^(0 ACHSEOB+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % XIT+16*
>> %DT XIT+11*
>> %ZIS S1+6*
>> %ZIS("A" A3A+2*, S1+6*
>> %ZIS("IOPAR" XIT+9*
ACHSAEND S2+2*, S2+6, S2+7!, ENDX+9
>> ACHSCFY ACHSEOB+15
>> ACHSCTR CONT1+23*
>> ACHSCTR(1 CONT1+23*
>> ACHSEMSG CONT1+26*
>> ACHSEOBD SEQOK+1*, SEQOK1+6
>> ACHSEOIO A3A+4*, S1+10*, XIT+9*
>> ACHSEOSQ SUF+7*, SUF+9, SUF+12, SUF+18, SUF+26, SUF+30
>> ACHSERPT S1+13*, XIT+3, XIT+6
>> ACHSERR XIT+6
>> ACHSFCSQ A3A+11*
>> ACHSFYWK( ACHSEOB+15, SAVDCR+4
>> ACHSIO("Q" S1+8*, XIT+9
>> ACHSISAC S0+6*, ENDX+9
>> ACHSISAO ACHSEOB+13, A3+5, A3A+2, A3A+7, A3A+8, S0+2, S1+4, S2+1, CONT1+10, CONT1+19
, CONT1+26, CONT1+27, RDHDR+3, RDHDR+5, XIT+2, ENDX+4, ENDX+9
>> ACHSK( SUF+18, SUF+24, SUF+30, SEQOK+1, SEQOK+2, SEQOK1+7, CONT+2
>> ACHSMEDA S2+1*, CONT+2*, CONT+3, CONT1+26
>> ACHSMEDY S2+1*, S2+2*
>> ACHSPAR A3+5*, A3A+1, A3A+2, A3A+7*, A3A+8
>> ACHSREP SUF+17*, SUF+30, SUF+32*, RDHDR+5
>> ACHSRPT XIT+1*, XIT+2*
>> ACHSSEQN SEQOK+2*
>> ACHSTERR RDHDR+2
>> ACHSUFLS( SUF+18, SUF+24, SUF+30, SEQOK+1, SEQOK+2, SEQOK1+7, CONT+2
>> ACHSUFLS(0 SUF+3
>> ACHSUFLS(9999 SUF+4
CONT ENDX+6!
DIR CONT1+17!, ENDX+6!
DIR("?" CONT1+15*
DIR("A" CONT1+15*
DIR("B" CONT1+15*
DIR(0 CONT1+15*
>> DIRUT S1+4, SUF+5, CONT+4
>> DTOUT S0+6, S1+4, CONT+4
>> DUOUT S0+6, S1+4, SUF+5, CONT+4
DUZ(2 ACHSEOB+15, A3A+11, S2+1, SUF+12, SEQOK1+6, XIT+15, SAVDCR+4
IO A3A+4, S1+10, S1+15, XIT+6, XIT+9
IO("Q" S1+8
IO(0 SUF+2, SUF+19, SEQOK1+8, CONT1+11, CONT1+28
IOM S1+13
ION S1+13
>> IONOFF ENDX+2*
>> IOP XIT+9*
>> IOPAR S1+12, XIT+14*
>> IORVOFF SUF+21
>> IORVON SUF+21
>> IOS S1+12
IOSL S1+13
IOST S1+13
>> POP A3A+2, S1+9
S SAVDCR~, SAVDCR+4
U ACHSEOB+15, A3A+11, SUF+12, XIT+15
>> X XIT+11*
Y S0+4*, S0+6, SUF+4*, SUF+5, SUF+18, SUF+24, SUF+30, SUF+32~, SEQOK+1, SEQOK+2
, SEQOK1+7, CONT+2, CONT+3*, CONT+4, CONT1+10, XIT+13, SAVDCR+2~, SAVDCR+3*, SAVDCR+4*
>> ZTDESC XIT+15*
>> ZTDTH XIT+13*
ZTIO S1+13*, XIT+9!
ZTIO("IOPAR" S1+12*, XIT+9, XIT+14
>> ZTRTN XIT+15*
>> ZTSAVE( XIT+16*
>> ZTSK XIT+18
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All