Routine: ACHSEOB1

Information

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

Source Information

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

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!

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

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSEOB1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: