Routine: ACHSEOBZ

Information

ACHSEOBZ ; IHS/ITSC/TPF/PMF - PROCESS EOBRS (5/6) - UPDATE DOCUMENT(2/2) ;

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA Fileman	3	^DIC FILE^DICN ^DIE
Contract Health Management Information System	2	REC2^ACHSEOBB ^ACHSEOBG
DRG Grouper	1	$$CPT^ICPTCOD
Kernel	1	$$STRIP^XLFSTR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSEOB4

Entry Points

Name	Comments	DBIA/ICR reference
CK	; Following code creates DR and tmp string that will resemble what ; will be in the document file before it is set ; This allows a check against the file itself for possible duplicates ; If it does find a duplicate, it sets error code and quits
DOCUMENT(ACHSX,ACHSY,ACHSDIC)	; Add EOBR info to CPT/REV/ADA multiple in DOCUMENT multiple.
SET	;Check/create zero/.01 nodes X/Y set in C1,REV,ADA or CPT
CPTREV	;EP - Process EOBR CPT / REVENUE / ADA codes.
REV	; Add missing Revenue Code.
MSGSET(X)	; Set message node
ADA	; Add missing ADA code.
C2	;ACHS3.118 NEW LINE
C1	;
NEXT	;Prepare for messages
CPT	; Add missing CPT code.

External References

Name	Field # of Occurrence
REC2^ACHSEOBB	DOCUMENT+4
^ACHSEOBG	REV+3, ADA+3, CPT+3, CK+12, SET+6, SET+12, MSGSET+6
^DIC	C1+21, REV+6, ADA+6, CPT+7
FILE^DICN	SET+5, MSGSET+5
^DIE	SET+9
$$CPT^ICPTCOD	C1+20
$$STRIP^XLFSTR	C1+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	C1+14
^ACHSF - [#9002080]	CK+10, CK+11
^DD(	C1+13
^DD(9002080.01	SET+4
^DD(9002080.197	MSGSET+4
^TMP("ACHSEOB"	C1+1, C1+4, NEXT+4, NEXT+5

Label References

Name	Line Occurrences
ADA	C2+8
C1	C2+5, REV+9, ADA+9, CPT+11
C2	C1+20
CPT	C2+9
DOCUMENT	C2+5, REV+8, ADA+8, CPT+10
MSGSET	SET+13, SET+14
NEXT	SET+14
REV	C2+7
SET	CK+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACHS	CPTREV+2, C1+1, C1+2, C1+4
>> ACHSDA	SET+7*, MSGSET+2
ACHSDIC	CPTREV+1~, C2+2*, C2+5, REV+4, ADA+4, CPT+4, DOCUMENT~, CK+9, SET+11
ACHSDICP	SET+1~, SET+4, MSGSET+4
>> ACHSDIEN	CK+10, CK+11, SET+2, MSGSET+2
ACHSDR	DOCUMENT+2~, CK+9!*, CK+11, SET+2
ACHSDR(	CK+5, CK+7
ACHSDR(1	DOCUMENT+5*
ACHSDR(10	DOCUMENT+13*
ACHSDR(2	DOCUMENT+6*
ACHSDR(3	DOCUMENT+7*
ACHSDR(4	DOCUMENT+8*
ACHSDR(5	DOCUMENT+9*
ACHSDR(6	DOCUMENT+10*
ACHSDR(7	DOCUMENT+11*
ACHSDR(8	DOCUMENT+12*
>> ACHSEDAT	REV+2, REV+7, ADA+2, ADA+7, CPT+2, CPT+9, CK+12, SET+6, SET+12, MSGSET+6*
>> ACHSEOBR	DOCUMENT+4
>> ACHSEOBR("F"	C1+4*, C1+5, DOCUMENT+4, DOCUMENT+5, DOCUMENT+6, DOCUMENT+7, DOCUMENT+8, DOCUMENT+9, DOCUMENT+10, DOCUMENT+11 , DOCUMENT+12
>> ACHSEOBR("G"	NEXT+5*, NEXT+6, NEXT+7
>> ACHSERRE	REV+1, ADA+1, CPT+1, CK+12, CK+13, SET+6, SET+11, MSGSET+6*
ACHSFDA	DOCUMENT+2~
>> ACHSMRCA	C1+3, REV+7, ADA+7, CPT+9, SET+13
>> ACHSMSG	DOCUMENT+10, SET+14, NEXT+6, NEXT+7, NEXT+8*
>> ACHSTDA	DOCUMENT+13
ACHSTMP	DOCUMENT+2~, CK+4, CK+7, CK+9
ACHSX	CPTREV+1~, C1+5, C1+6, C1+12, C1+16, C1+18, C1+20, C2+5, C2+7, C2+8 , REV+2, ADA+2, CPT+2, DOCUMENT~, SET+6, SET+12, MSGSET+6, NEXT+3~, NEXT+4*, NEXT+5
ACHSY	CPTREV+1~, C2+1*, C2+5, DOCUMENT~, CK+9
DA	SET+1~, SET+7*
DA(1	SET+2, SET+3, MSGSET+2, MSGSET+3
DA(2	SET+2, SET+3, MSGSET+2, MSGSET+3
DA(3	MSGSET+2*, MSGSET+3
DD	SET+5!, MSGSET+5!
DIC	C1+16, C2+2, REV+4, REV+8, ADA+4, ADA+8, CPT+4, CPT+10, SET+1~, SET+3* , SET+8, MSGSET+3*
DIC("P"	SET+4, MSGSET+4
DIC(0	C1+12, C1+14, CPT+6, CPT+8, SET+2, MSGSET+2
>> DIE	SET+8*
DO	SET+5!, MSGSET+5!
DR	DOCUMENT+2~, CK+4, CK+6, CK+7*, CK+12
DUZ(2	CK+10, CK+11, SET+2, MSGSET+2
I	DOCUMENT+2~, CK+4, CK+5, CK+7, CK+10*, CK+11
U	C1+20, CK+4, CK+7, CK+9, CK+11, SET+2, SET+4, MSGSET+4
X	C1+12, C1+13, C1+14, C1+18, REV+5, REV+7, REV+8, ADA+5, ADA+7, ADA+8 , CPT+5, CPT+9, CPT+10, SET+1~, SET+2*, MSGSET~, MSGSET+1
Y	C1+20*, C2+1, C2+5, REV+8, ADA+8, CPT+10, SET+1~, SET+6, SET+7, SET+10 , MSGSET+6

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSEOBZ

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: