Routine: ACHSEOBZ

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

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

Source Information

Source file <ACHSEOBZ.m>

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.

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

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

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

Call Graph Total: 7

Caller Graph Total: 1