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

Package: Contract Health Management Information System

Routine: ACHSEOB1


Information

ACHSEOB1 ; IHS/ITSC/TPF/PMF - PROCESS EOBRS (2/6) - READ IN, PROCESS ; 15 Feb 2016 5:00 PM

Source Information

Source file <ACHSEOB1.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Contract Health Management Information System 3 ($$AOP,$$OS,$$PARM,CLOSEALL,NOW)^ACHS  (REC,REC1)^ACHSEOBB  ^ACHSEOBM  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  $$FMTE^XLFDT  
IHS VA Utilities 2 $$DIR^XBDIR  $$C^XBFUNC  
VA Fileman 1 COMMA^%DTC  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Contract Health Management Information System 3 ACHSEOB  ACHSEOBB  ACHSEOBM  

Entry Points

Name Comments DBIA/ICR reference
END1 ;EP.
GBLD ;EP - Build ACHSEOBR("M") MESSAGE ARRAY from "F" records.
CONT ;
ERR ;
KYL ; Close device, kill vars, quit.
FLC(ACHSZ3) ;
; Attempt to find Location based on FLC of EOBR.
; The ASUFAC code for any given facility may have changed since
; the document left the facility, and the EOBR created.
; Assume the ^AUTTLOC("FLC" x-ref has a bug, if you get this far,
; (that's why you got this far) and use the ^AUTTLOC("FL" x-ref
; and the single-character code from the AREA file.
; Once the "FLC" x-ref is corrected, this code not needed.
SIGN ;EP - Extract the Sign of the field from the last character in
; the field.
WRITE ;
SUMM ;THIS IS THE SUMMARY
END ;
MAIN ;
TERR ;

External References

Name Field # of Occurrence
COMMA^%DTC SUMM+32, SUMM+35
^%ZIS SUMM+2
HOME^%ZIS SUMM+37
^%ZISC KYL+1, KYL+2
$$AOP^ACHS WRITE+8
$$OS^ACHS MAIN+7
$$PARM^ACHS WRITE+8
CLOSEALL^ACHS KYL+3
NOW^ACHS ACHSEOB1+4
REC^ACHSEOBB MAIN+19
REC1^ACHSEOBB SUMM+1
^ACHSEOBM ACHSEOB1+9
$$DIR^XBDIR ERR+3, TERR+8, END1+3
$$C^XBFUNC ACHSEOB1+5, SUMM+4
$$FMTE^XLFDT SUMM+23, SUMM+25

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: 300
  • Variable: ACHSEOBR
  • Line Location: MAIN+2
Function Call: WRITE
  • Prompt: !,"Unexpected End Of File! This file is incomplete."
  • Line Location: MAIN+5
Function Call: WRITE
  • Prompt: !,"FACILITY CODE PROBLEM -- USING DOCUMENT LOCATION"
  • Line Location: MAIN+40
Function Call: WRITE
  • Prompt: !!?10,"Processing EOBR Data for: ",ACHSZFNM,!!
  • Line Location: CONT+5
Function Call: WRITE
  • Prompt: $J(ACHSZRC,8)
  • Line Location: WRITE+17
Function Call: WRITE
  • Prompt: @IOF,!!?24,"--- SUMMARY OF EOBR PROCESSED ---",!!,$$C^XBFUNC(ACHSTIME,80),!!!
  • Line Location: SUMM+4
Function Call: WRITE
  • Prompt: !!,"SU: "
  • Line Location: SUMM+8
Function Call: WRITE
  • Prompt: $P(^AUTTSU($O(^AUTTSU("C",ACHSEOBR("H",1)_ACHSEOBR("H",2),0)),0),U)
  • Line Location: SUMM+9
Function Call: WRITE
  • Prompt: "INCOMPLETE INFORMATION TO FIND SERVICE UNIT"
  • Line Location: SUMM+10
Function Call: WRITE
  • Prompt: !!!?23,"FISCAL YEAR: ",$G(ACHSEOBR("H",4))
  • Line Location: SUMM+12
Function Call: WRITE
  • Prompt: !!!!!?15,"AUTHORIZING FACILITY: "
  • Line Location: SUMM+14
Function Call: WRITE
  • Prompt: "UNDEFINED"
  • Line Location: SUMM+17
Function Call: WRITE
  • Prompt: ?20,"PERIOD COVER(S): "
  • Line Location: SUMM+21
Function Call: WRITE
  • Prompt: !?38,$$FMTE^XLFDT($S(+$E(ACHSEOBR("H",10),1,2)>50:2,1:3)_"000000"+ACHSEOBR("H",10))
  • Line Location: SUMM+25
Function Call: WRITE
  • Prompt: !!?21,"TYPE 43 CLAIMS:",$J(+$G(ACHSEOBR("H",11)),13),!!?21,"TYPE 57 CLAIMS:",$J(+$G(ACHSEOBR("H",12)),13),!!?21,"TYPE 64 CLAIMS:",$J(+$G(ACHSEOBR("H",13)),13)
  • Line Location: SUMM+27
Function Call: WRITE
  • Prompt: !!?18,"TOTAL OF PAYMENTS: $"
  • Line Location: SUMM+29
Function Call: WRITE
  • Prompt: X,!!," NET ADJ. OF PAYMENT VS. OBLIGATION: $"
  • Line Location: SUMM+33
Function Call: WRITE
  • Prompt: X,@IOF
  • Line Location: SUMM+36
Function Call: WRITE
  • Prompt: !!,"Total EOBR Records Processed = ",ACHSZRC,!!
  • Line Location: END+1
Function Call: WRITE
  • Prompt: *7,*7,!!,"AN ERROR HAS BEEN DETECTED IN THE",!,"FINANCE PARAMETERS OR DATA GLOBAL STRUCTURE.",!!,"PLEASE CONTACT YOUR SITEMANAGER FOR ASSISTANCE",!!
  • Line Location: ERR+2
Function Call: WRITE
  • Prompt: *7,!!,"EOBR PROCESSING ERROR.",!!,"Notify your supervisor.",!
  • Line Location: TERR+2
Function Call: WRITE
  • Prompt: !,"PROBLEM HINT AT NODE ^ACHSEOBR(""SEQ-ERROR"")=",$G(ACHSEOBR)," POSSIBLE CHAR 19 IN RECORD IMPROPER"
  • Line Location: TERR+3
Function Call: WRITE
  • Prompt: !,"IMPROPER RECORD TYPE - ",$E(ACHSEOBR,19)
  • Line Location: TERR+4
Function Call: WRITE
  • Prompt: !,"INVALID FACILITY CODE - ",$E(ACHSEOBR,1,6)
  • Line Location: TERR+5
Function Call: WRITE
  • Prompt: !!,"No CHS EOBR Data Processed"
  • Line Location: END1+2
Routine Call
  • %ZIS
  • Line Location:
    • SUMM+37
Routine Call
  • %ZIS
  • Line Location:
    • SUMM+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSEOBR WRITE+3*
^AUTTAREA - [#9999999.21] SUMM+6, FLC+11
^AUTTAREA("C" SUMM+6
^AUTTLOC - [#9999999.06] SUMM+18, FLC+11
^AUTTLOC("C" MAIN+26, SUMM+16
^AUTTLOC("CTOO" MAIN+30
^AUTTLOC("FL" FLC+11
^AUTTLOC("FLC" MAIN+34
^AUTTSU - [#9999999.22] SUMM+9
^AUTTSU("C" SUMM+9
^DIC(4 - [#4] CONT+2
^TMP("ACHSEOB" ACHSEOB1+3!

Label References

Name Line Occurrences
$$FLC MAIN+42
@( MAIN+12, MAIN+16
CONT MAIN+37, MAIN+40
END MAIN+12, TERR+9
KYL ERR+4, END1+4
MAIN WRITE+10, WRITE+19
SUMM WRITE+8
TERR MAIN+5, MAIN+20, MAIN+45
WRITE MAIN+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ACHSAEND ACHSEOB1+11
>> ACHSCTR ACHSEOB1+7*, WRITE+1*, WRITE+3, WRITE+15
>> ACHSCTR(1 WRITE+15*
>> ACHSEDXT ACHSEOB1+7*
>> ACHSEFL9 ACHSEOB1+7*
ACHSEOBR MAIN+2*, MAIN+5, MAIN+7*, MAIN+12, MAIN+13, MAIN+16, MAIN+22, MAIN+24, MAIN+32, MAIN+46
, CONT+7, WRITE+3, WRITE+8, WRITE+10, KYL+4!, TERR+3, TERR+4, TERR+5
ACHSEOBR( WRITE+18!
ACHSEOBR("F" GBLD+4
ACHSEOBR("H" SUMM+6, SUMM+9, SUMM+12, SUMM+15, SUMM+16, SUMM+22, SUMM+23, SUMM+25, SUMM+27, SUMM+30
, SUMM+34
ACHSEOBR("M" GBLD+1*, GBLD+6, GBLD+7*, GBLD+8*
ACHSEOIO SUMM+2, SUMM+3, KYL+2, KYL+4!
ACHSERRA KYL+4!
>> ACHSISAO MAIN+7, WRITE+8
>> ACHSMEDA MAIN+12, MAIN+16
>> ACHSMSEQ GBLD+6*, GBLD+7, GBLD+8
>> ACHSMSG GBLD+2*, GBLD+4*, GBLD+5, GBLD+8
ACHSOLD ACHSEOB1+7*, MAIN+13*, MAIN+16, KYL+4!
>> ACHSREC SIGN+3, SIGN+4*, SIGN+5*
>> ACHSTERR ACHSEOB1+7*, ACHSEOB1+11*, MAIN+5*, MAIN+16, MAIN+20, MAIN+48*, TERR+3, TERR+4, TERR+5
ACHSTIME ACHSEOB1+5*, SUMM+4, KYL+4!
>> ACHSUFLS( MAIN+47
ACHSX KYL+4!
ACHSZ3 MAIN+32*, MAIN+34, MAIN+42, FLC~, FLC+11
>> ACHSZFCT( WRITE+13*, WRITE+14*
>> ACHSZFLC ACHSEOB1+7*, MAIN+22*, CONT+7*
>> ACHSZFNM CONT+2*, CONT+5
>> ACHSZFPT MAIN+26*, MAIN+30*, MAIN+37, MAIN+40*, MAIN+42*, MAIN+45, CONT+2, WRITE+3, WRITE+13, WRITE+14
>> ACHSZPT3 MAIN+34*, MAIN+37, MAIN+40
>> ACHSZRC ACHSEOB1+7*, WRITE+16*, WRITE+17, END+1
>> ACHSZZ MAIN+24*, MAIN+26, MAIN+30
IO MAIN+1, SUMM+2, KYL+1, KYL+2*
IO("S" KYL+1
IO(0 MAIN+4, MAIN+40, MAIN+45, CONT+4, WRITE+17, END+1, KYL+1, ERR+1, TERR+1, END1+1
IOF SUMM+4, SUMM+36
>> IOP SUMM+2*
U CONT+2, SUMM+6, SUMM+9, SUMM+18, FLC+11
X WRITE+18*, SIGN+3, SIGN+4, SIGN+5, SUMM+30*, SUMM+33, SUMM+34*, SUMM+36, ERR+3*, TERR+8*
, END1+3*, FLC+9~, FLC+10*, FLC+11*
X1 SUMM+31!
X2 SUMM+31!
Y MAIN+47, SIGN+3*, SIGN+4, SIGN+5, SUMM+16*, SUMM+17, SUMM+18*, SUMM+19, FLC+9~, FLC+10*
, FLC+11*, FLC+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All