Routine: ACHSEOBB

Call Graph

Call Graph Total: 13

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

Package

Total

Caller Graph

Contract Health Management Information System

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

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

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!

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