IBCU83 ;ALB/ARH - THIRD PARTY BILLING UTILITES (BILL-CT) ; 3/10/96
Source file <IBCU83.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
IFNTRN(IBIFN,ARRAY,ARR2) | ; find CT records for events on a bill: sched adm, inpt adm, outpt vsts, rx refills, prosthetics
; sets ARRAY=COUNT, ARRAY(IBTRN)=EV TYPE, if bill passed in defined ; ARR2(DATE,TRN)=TRN (based on IBCC1 and IBJTU5) |
|
SCH | ; -- scheduled admissions (all on event date of inpatient bills)
|
|
INPT | ; -- inpt admission (matches event date and episode date, does not check patient admission movement or PTF)
|
|
OPT | ; -- outpatient visits (all CT visits on bills's opt visit dates)
|
|
RX | ; -- rx refills (matches rx's (52: (362.4,.05)=(356,.08)) for refill dates on bill)
|
|
PRO | ; -- prosthetics (does not match delivery dates)
|
|
IFNQ |
Name | Line Occurrences |
---|---|
IFNQ | IFNTRN+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARR2 | IFNTRN~, IFNTRN+4! |
ARR2( | SCH+4*, INPT+5*, OPT+5*, RX+7*, PRO+5* |
ARRAY | IFNTRN~, IFNTRN+4!, IFNTRN+5*, PRO+7* |
ARRAY( | SCH+4*, INPT+5*, OPT+5*, RX+7*, PRO+5*, PRO+7 |
DFN | IFNTRN+4~, IFNTRN+6*, SCH+2, SCH+3, INPT+2, INPT+3, OPT+3, OPT+4, RX+5, RX+6 |
DIC | RX+3*! |
DIC(0 | RX+3* |
IBBDT | IFNTRN+4~, SCH+1*, SCH+2*, SCH+3, SCH+4, INPT+1*, INPT+2*, INPT+3, INPT+5, OPT+2* , OPT+3*, OPT+4, OPT+5, RX+4*, RX+5*, RX+6, RX+7 |
IBBILL | IFNTRN+4~, INPT+4* |
IBD0 | IFNTRN+4~, IFNTRN+5*, IFNTRN+6, SCH+1, INPT+1 |
IBDT | IFNTRN+4~, SCH+1*, INPT+1*, OPT+1*, OPT+2, RX+2*, RX+4, PRO+1*, PRO+2, PRO+5 |
IBEDT | IFNTRN+4~, SCH+1*, SCH+2, INPT+1*, INPT+2, OPT+2*, OPT+3, RX+4*, RX+5 |
IBI | IFNTRN+4~, RX+1*, RX+2, PRO+2*, PRO+3, PRO+7* |
IBIFN | IFNTRN~, IFNTRN+5, INPT+4, OPT+1, RX+1, PRO+1 |
IBN | IFNTRN+4~ |
IBPR | IFNTRN+4~, PRO+3* |
IBPRN | IFNTRN+4~, PRO+3*, PRO+4 |
IBRX | IFNTRN+4~, RX+2*, RX+3 |
IBRXN | IFNTRN+4~, RX+2*, RX+3*, RX+7 |
IBTRN | IFNTRN+4~, SCH+3*, SCH+4, INPT+3*, INPT+4, INPT+5, OPT+4*, OPT+5, RX+6*, RX+7 , PRO+4*, PRO+5 |
IBTYP | IFNTRN+4~, SCH+1*, SCH+2, SCH+3, SCH+4, INPT+1*, INPT+2, INPT+3, INPT+5, OPT+1* , OPT+3, OPT+4, OPT+5, RX+1*, RX+5, RX+6, RX+7, PRO+1*, PRO+5 |
IBX | IFNTRN+4~, PRO+1*, PRO+2 |
U | IFNTRN+6, SCH+1, INPT+1, INPT+4, RX+2, RX+7, PRO+3 |
X | RX+3*! |
Y | RX+3! |