Routine: ACHSEOBB

Package	Total	Call Graph
Contract Health Management Information System	8	($$AOP,$$IM,$$OS,$$PARM,$$ZEROTH)^ACHS ABEND^ACHSEOB (GBLD,SIGN)^ACHSEOB1 ^ACHSEOB2 ^ACHSEOB3 FILDEL^ACHSEOBC $$TERMINAL^ACHSHCMD ^ACHSUF
Kernel	3	^%ZISC ($$LIST,$$MV,$$OPEN)^%ZISH $$FMTE^XLFDT
IHS VA Utilities	1	$$DIR^XBDIR
VA Fileman	1	FILE^DICN

Package	Total	Caller Graph
Contract Health Management Information System	9	ACHSEOB ACHSEOB1 ACHSEOB2 ACHSEOB3 ACHSEOB6 ACHSEOB7 ACHSEOB9 ACHSEOBD ACHSEOBZ

Entry Points

Name	Comments	DBIA/ICR reference
M1A	;
C0END	;
M1	;EP
REC	;EP
HA	;;9.23.30;;10.31.38
G1	;;8.23.29;;9.30.36;;10.37.43;11.44.50;12.51.57
AREA	;EP - Update Area parameter file after processing FI EOBR file.
PRT	;EP - From EOBR Error Report.
FACSRCH	;EP
C3	;
FAC	;EP - Update CHS FACILITY with EOB Seq # and Process date.
C1	;
E1	;;8.23.31.S;;9.32.32;;10.33.41.S;;11.42.50.S;;12.51.56;;13.57.62;;14.63.68;;15.69.74;;16.75.80
C5	;
A	;;1.1.2;;2.3.4;;3.5.6;;4.7.8;;5.9.18;;8.23.31;;9.32.38;;10.39.45;;11.46.53;;12.54.65;;13.66.72;;14.73.78;;15.79.80
C	;;8.23.38;;9.39.42;;10.43.43;;11.44.44;;12.45.54;;13.55.55;;16.56.68
B	;;8.23.52;;9.53.59;;10.60.67;;11.68.69;;12.70.72;;14.73.76
E	;;8.23.31.S;;9.32.32;;10.33.41.S;;11.42.50.S;;12.51.55;;13.56.60;;14.61.65;;15.66.70;;16.71.75
D	;;8.23.52;;9.53.61.S;;10.62.70.S;;11.71.79.S
G	;;8.23.26;;9.27.30;;10.31.34
F	;;7.20.22;;8.23.30;;9.31.38;;10.39.43;;11.44.46;;12.47.55.S;;13.56.64.S;;14.65.68;;15.69.70;;16.71.75
I	;;8.23.29;;9.30.33;;10.34.38.S;;11.39.41;;12.42.50.S;;13.51.56.S;;14.57.66.S
H	;;1.1.2;;2.3.4;;4.7.8;;8.23.28;;11.41.45;;12.46.50;;13.51.55;;14.56.65.S;;16.66.70;;15.71.80.S
CA	;;14.23.30;;15.31.38
J	;;8.23.31.S;;9.32.32;;10.33.41.S;;11.42.50.S;;12.51.58;;13.59.66;;14.67.74
C2	;
C01	;
REC2(ACHSREC,ACHSARRY)	;EP - DIVIDE A RECORD INTO ITS RESPECTIVE FIELDS
KILL	;EP
REC1	;EP - Set values of EOBR being processed into local array.

External References

Name	Field # of Occurrence
^%ZISC	C01+27, C0END+2
$$LIST^%ZISH	FACSRCH+2
$$MV^%ZISH	AREA+11
$$OPEN^%ZISH	C01+23
$$AOP^ACHS	M1+3, AREA+10, AREA+11, AREA+12
$$IM^ACHS	FACSRCH+2, C01+5, C01+15, C01+23
$$OS^ACHS	C01+4, C01+14
$$PARM^ACHS	M1+7, REC2+6, REC2+7, C1+2
$$ZEROTH^ACHS	AREA+1, FAC+1
ABEND^ACHSEOB	FACSRCH+2, C01+23, C01+26
GBLD^ACHSEOB1	PRT+2
SIGN^ACHSEOB1	REC2+14, REC2+23
^ACHSEOB2	M1+3
^ACHSEOB3	M1+7
FILDEL^ACHSEOBC	C0END+3
$$TERMINAL^ACHSHCMD	C01+9, C01+19
^ACHSUF	M1+7
FILE^DICN	AREA+3, FAC+3
$$DIR^XBDIR	AREA+4
$$FMTE^XLFDT	C3+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: 7,7,!!,"LAST RECORD READ WAS OUT OF SEQUENCE",!!,"CONTACT YOUR SITEMANAGER - SEE ^ACHSEOBR(""SEQ-ERROR"").",!! Line Location: M1+16
Function Call: WRITE	Prompt: *7,!,"A Record was found that was not type 'A' thru 'I'.",!,"'",ACHSEOBR,"'" Line Location: REC+2
Function Call: WRITE	Prompt: *7,!,"A Record was found that was not type 'A' thru 'J'.",!,"'",ACHSEOBR,"'" Line Location: REC+3
Function Call: WRITE	Prompt: DEC Line Location: REC2+8
Function Call: WRITE	Prompt: !,*7,"UNABLE TO POST EOBR PROCESS DATE - NOTIFY SUPERVISOR",!,$$DIR^XBDIR("E","Enter <RETURN> to Continue") Line Location: AREA+4
Function Call: WRITE	Prompt: !,*7,"Archive of '",$$AOP^ACHS(2,1),ACHSMEDA,"' to '",$$AOP^ACHS(2,7),ACHSMEDA,"' failed..." Line Location: AREA+11
Function Call: WRITE	Prompt: !,"'",$$AOP^ACHS(2,1),ACHSMEDA,"' Archived to '",$$AOP^ACHS(2,7),ACHSMEDA,"'" Line Location: AREA+12
Function Call: READ	Timeout: DTIME Variable: X Line Location: C01+25
Function Call: WRITE	Prompt: !!," Files Available for Processing are Listed Below:",!?40,"Last Fac Seq # Processed = ",$J($$PARM^ACHS(2,21),5) Line Location: C1+2
Function Call: WRITE	Prompt: !!?5,"Number",?15,"File Name",?45,"EOBR Proc Date",?65,"Fac Seq #",!?5,"------",?15,"----------------",?45,"--------------",?65,"---------" Line Location: C1+3
Function Call: WRITE	Prompt: !?5,$J(ACHSJ,3),?15,$P(ACHSUFLS(ACHSK(ACHSJ))," ",1),?45,$$FMTE^XLFDT($P(ACHSUFLS(ACHSK(ACHSJ))," ",2)),?67,$J(+$P(ACHSUFLS(ACHSK(ACHSJ))," ",3),5) Line Location: C3+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSAOP - [#9002079]	AREA+1, AREA+5, AREA+7, AREA+8, AREA+9
^ACHSEOBR("P"	M1A+2*
^ACHSEOBR("SEQ-ERROR"	M1+17*
^ACHSF - [#9002080]	AREA+8, FAC+1, FAC+4*
^ACHSUSE("EOBR"	KILL+7!
^TMP("ACHSEOB"	M1A+5!, PRT+2, PRT+5

Label References

Name	Line Occurrences
C01	C01+28, C01+30
C0END	C01+2
C2	C3+2
C3	C3+6
C5	C2+2
M1A	M1+13
REC1	PRT+2
REC2	REC1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%MT	KILL+2!
ACHS	REC2+2~, REC2+13, REC2+15, REC2+23
>> ACHSAOSQ	AREA+7
ACHSARRY	REC2~
ACHSARRY(	REC2+16, REC2+17, REC2+23*
ACHSCTR	KILL+2!
ACHSCTR(1	M1A+2
ACHSDA	KILL+2!
ACHSDATE	KILL+3!
ACHSDELD	KILL+3!
ACHSDERR	KILL+2!
ACHSDIEN	KILL+2!
ACHSDOCR	KILL+2!
ACHSDSAV	KILL+3!
ACHSDUZ2	M1+7*, KILL+2!
ACHSEBET	KILL+3!
ACHSEDXT	REC2+12*, REC2+16, KILL+6!
ACHSEOBD	AREA+2, AREA+5, FAC+2, KILL+3!
ACHSEOBR	M1+13, M1+17, M1A+3, M1A+4, M1A+5!, M1A+6, REC+1, REC+3, PRT+2, PRT+5 , REC1+1, KILL+2!
ACHSEOBR("A"	M1A+1, M1A+2
ACHSEOBR("E"	REC1+2
ACHSEOBR("J"	REC1+2
ACHSEOIO	KILL+2!
ACHSERDT	KILL+3!
ACHSERPT	KILL+3!
ACHSERR	KILL+3!
ACHSERRC	KILL+3!
ACHSERRE	M1A+5!
ACHSFILE	AREA+7, KILL+3!
ACHSFNAM	KILL+3!
ACHSFSIZ	KILL+3!
ACHSHCMD	C01+5, C01+9, C01+15, C01+19, KILL+3!
ACHSHFS1	KILL+4!
ACHSI	C1+4, C2+3, C3+1*, C3+2, C3+3, KILL+4!
ACHSII	C1+4, C2+1, C2+2, C3+1, KILL+4!
>> ACHSISAC	AREA+13*
>> ACHSISAO	M1+3, M1+7
ACHSISEQ	KILL+4!
>> ACHSJ	C1+4, C3+3, C3+5
>> ACHSK(	C3+3*, C3+5
ACHSLCTR	KILL+4!
ACHSLEOB	KILL+4!
ACHSLMT	KILL+4!
ACHSMCNT	AREA+9, KILL+4!
ACHSMEDA	REC2+8, AREA+11, AREA+12, FACSRCH+2, KILL+2!
ACHSMEDY	KILL+2!
ACHSMFLG	KILL+4!
ACHSMSEQ	KILL+4!
ACHSMSG	KILL+2!
ACHSOLD	M1A+3*, KILL+2!
ACHSOMSG	KILL+4!
ACHSPDT	KILL+4!
ACHSPG	KILL+4!
ACHSQUIT	KILL+4!
ACHSR	KILL+4!
ACHSRCT	KILL+4!
ACHSRDAT	KILL+4!
ACHSREC	REC2~, REC2+3, REC2+4, REC2+5, REC2+12, REC2+16, REC2+17, REC2+23
>> ACHSREJ	REC1+2*
>> ACHSRJCT	REC2+12*, REC2+15
ACHSRL	REC2+2~, REC2+9*, REC2+13, REC2+23
ACHSRPT	KILL+4!
ACHSRR	KILL+4!
ACHSRT	REC2+2~, REC2+3, REC2+4, REC2+5, REC2+6, REC2+7, REC2+8, REC2+11, REC2+16, REC2+17 , REC2+22*, REC2+23
>> ACHSRTCD	C01+9, C01+19
ACHSSEL	KILL+4!
ACHSSEQN	FAC+4, KILL+6!
ACHSSUF	KILL+2!
ACHSTDA	KILL+2!
ACHSTERR	M1+17, REC+3, KILL+2!
ACHSTIME	KILL+4!
ACHSUFLS	FACSRCH+1!, FACSRCH+2, FACSRCH+4, C01+1, C01+2, C01+3, C01+11, C01+21, C01+23, C01+28 , C01+29, KILL+4!
ACHSUFLS(	AREA+7, C01+1, C01+3, C01+11, C01+21, C01+23, C01+28, C01+29, C3+5
ACHSUFLS("C"	C2+1, C3+1
ACHSUFLS(0	FACSRCH+3
ACHSXX	KILL+5!
ACHSYAYA	M1+7*!
ACHSZ3	KILL+5!
ACHSZDEV	KILL+5!
ACHSZFCT	KILL+5!
ACHSZFLC	KILL+5!
ACHSZFN	KILL+5!
ACHSZFNM	KILL+5!
ACHSZFO	KILL+5!
ACHSZFPT	M1A+2, KILL+5!
ACHSZIN	KILL+5!
ACHSZRC	KILL+5!
ACHSZZ	KILL+5!
ACHSZZA	KILL+5!
>> DA(1	AREA+2, FAC+2
DD	AREA+3!, FAC+3!
DIC	AREA+2, FAC+2, KILL+5!
DIC(0	AREA+2, FAC+2
>> DINUM	AREA+2, FAC+2
DIR	KILL+5!
DO	AREA+3!, FAC+3!
DT	REC2+6, REC2+7, AREA+9
DTIME	C01+25
DUZ(2	M1+7*, AREA+1, AREA+2, AREA+5, AREA+7, AREA+8, AREA+9, FAC+1, FAC+2, FAC+4
DX	KILL+2!
DY	KILL+2!
IO	C01+24
IO(0	M1+14, REC+3, AREA+4, C1+1, C3+4
>> IONOFF	C0END+1*
U	AREA+5, AREA+7, AREA+8, AREA+9, FAC+4
X	M1A+4, M1A+6, REC2+13, REC2+14, REC2+16, REC2+17, REC2+23, AREA+2, FAC+2, C01+25 , C01+28, C01+29, KILL+5!
X1	KILL+5!
X2	KILL+5!
Y	AREA+4, C01+3*, C01+4, C01+5, C01+11, C01+14, C01+15, C01+21, KILL+5!
Z	KILL+5!

Marked Items

Name	Field # of Occurrence
$T(@ACHSRT	REC2+9

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSEOBB

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items