Routine: IBTRE6

Information

IBTRE6 ;ALB/AAS - CLAIMS TRACKING OUTPUT CLIN DATA ; 2-SEP-1993

Source file <IBTRE6.m>

Package	Total	Caller Graph
Integrated Billing	5	IBTOAT1 IBTOBI2 IBTRCD IBTRE IBTRED0

Name	Comments	DBIA/ICR reference
PDIAGQ
DIAG(X,Y)	; -- Expand diagnosis from pointer
APROV(IBTRN)	; -- return provider (inpatient)
APROVQ
IPROC	; -- inpatient procedures
OPROV	; -- returns outpatient providers
ATTEND	; -- return attendings (inpatient)
ODIAG	; -- return outpatient diagnosis
PROV	; -- return providers (inpatient)
LISTP(IBTRN,IBXY)	; -- return last y procedures for a tracking entry
ADMDIAG(IBTRN)	; -- output admitting diagnosis (inpatient)
LISTPQ
ADMDQ
DTCHK(DA,X)	; -- input transform for 356.94;.01. date not before admission or after discharge
SDIAG	; -- return secondary diagnosis (inpatient
PDIAG(IBTRN)	; -- return primary diagnosis (inpatient)
LSTPDQ
OPROC	; -- outpatient procedures
LSTPDG(X,IBDT,Y)	; -- return current diagnosis for a tracking entry
DTCHKQ
PROC(X,Y)	; -- Expand procedure from pointer

Name	Line Occurrences (* Changed, ! Killed)
^IBT(356 - [#356]	ADMDIAG+5, ADMDIAG+9, PDIAG+3, APROV+4, APROV+5, APROV+9, LISTP+7, DTCHK+4
^IBT(356.9 - [#356.9]	ADMDIAG+5, PDIAG+3, LSTPDG+10, LSTPDG+11
^IBT(356.91 - [#356.91]	LISTP+9, LISTP+10
^IBT(356.94 - [#356.94]	APROV+4, APROV+5, DTCHK+4
^ICD0 - [#80.1]	PROC+6
^ICD9 - [#80]	DIAG+4
^VA(200 - [#200]	APROVQ

Name	Line Occurrences
$$DIAG	ADMDIAG+5, PDIAG+3
ADMDQ	ADMDIAG+3, ADMDIAG+4, ADMDIAG+5
APROVQ	APROV+3, APROV+4, APROV+5
DTCHKQ	DTCHK+3, DTCHK+5, DTCHK+7, DTCHK+8, DTCHK+9
LISTPQ	LISTP+6
LSTPDQ	LSTPDG+7
PDIAGQ	PDIAG+2

Name	Field # of Occurrence
^(0	LSTPDG+11

Name	Field # of Occurrence
DA	DTCHK~, DTCHK+3, DTCHK+4
DT	LSTPDG+8, DTCHK+9
IBCDT	DTCHK+1~, DTCHK+6*, DTCHK+7, DTCHK+8
IBCNT	LISTP+4~
IBDA	LISTP+4~, LISTP+9, LISTP+10, LISTP+12, LISTP+14, LSTPDG+10*, LSTPDG+11
IBDGPM	LISTP+4~, LISTP+7*, LISTP+8, LISTP+9
IBDT	LISTP+4~, LISTP+5, LISTP+9, LISTP+10, LISTP+12, LISTP+14, LSTPDG~, LSTPDG+8, LSTPDG+10*
>> IBETYP	ADMDIAG+4*
IBOK	DTCHK+1~, DTCHK+2, DTCHK+7, DTCHK+8, DTCHK+9, DTCHKQ
IBTRN	ADMDIAG~, ADMDIAG+3, ADMDIAG+4, ADMDIAG+5, ADMDIAG+9, PDIAG~, PDIAG+2, PDIAG+3, APROV~, APROV+3 , APROV+4, APROV+5, APROV+9, LISTP~, LISTP+6, LISTP+7, DTCHK+1~, DTCHK+4*, DTCHK+5, DTCHK+6
IBX	LISTP+4~, LISTP+5, LSTPDG+6~
IBX(	LISTP+10*, LISTP+12, LISTP+14
IBXY	LISTP~, LISTP+5, LISTP+13, LISTP+14
IBXY(	LISTP+14*
IBY	LSTPDG+6~, LSTPDG+10, LSTPDG+11, LSTPDQ
U	ADMDIAG+9, APROV+9, LSTPDG+11
>> VA200	ADMDIAG+10, APROV+10
VAIN	ADMDIAG+8~, APROV+8~
VAIN(11	APROV+6, APROV+12
VAIN(2	APROV+6, APROV+7, APROV+11
VAIN(9	ADMDIAG+6, ADMDIAG+7, ADMDIAG+11
VAINDT	ADMDIAG+8~, ADMDIAG+9, APROV+8~, APROV+9
X	ADMDIAG+2~, ADMDIAG+5, ADMDIAG+6, ADMDIAG+11, ADMDQ, PDIAG+1~, PDIAG+3, PDIAGQ, DIAG~, DIAG+3 , DIAG+4, APROV+2~, APROV+4, APROV+5, APROV+6, APROV+11, APROV+12, APROVQ, PROC~, PROC+5 , PROC+6, LSTPDG~, LSTPDG+7, LSTPDG+10, DTCHK~, DTCHK+3, DTCHK+7, DTCHK+8, DTCHK+9
Y	DIAG~, DIAG+4, PROC~, PROC+6, LSTPDG~, LSTPDG+9*, LSTPDG+11
>> Z	PROC+4*