IBCU65 ;ALB/ARH - BILL CHARGE UTILITY: COMBINE E&M ; 12/01/04
Source file <IBCU65.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 |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 1 | IBCSCE |
Name | Comments | DBIA/ICR reference |
---|---|---|
ASKCMB(IBIFN) | ; if the user requests, combine (E&M) charges on the bill
|
|
CHGCMB(IBIFN) | ; combine certain E&M codes on the bill
|
|
RVDEL(IBIFN,RCIFN) | ; delete charge line item, Output: 0/1
; Input: IBIFN = Bill Number, RCIFN = Charge Line Item in RC multiple |
|
RVCHG(IBIFN,RCIFN,CHG) | ; update line item charge and remove component, Output: 0/1
; Input: IBIFN = Bill Number, RCIFN = Charge Line Item in RC multiple, CHG = New Charge Amount |
|
CHKCODE(CPT) | ; return true if CPT code combinable
|
|
CHKCODQ | ||
CHKBILL(IBIFN) | ; return true if combining charges is applicable or available for bill
; bill must be Provider Based and have at least one combinable procedure |
|
CHKBILQ | ||
BILLCHG(IBIFN) | ; get all possible charges for bill with discounts applied
; output array of charges for combinable procedures ; Output: ^TMP($J,"IBCU65 CMB", "units ^ cpt ^ div ^ itm type ^ itm ptr") = inst chg ^ prof chg ^ total chg |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGCR(399 - [#399] | CHGCMB+5, CHGCMB+6, RVDEL+3, RVCHG+3, CHKBILL+4, CHKBILL+6, BILLCHG+7, BILLCHG+9 |
^TMP($J | CHGCMB+1!, CHGCMB+3, CHGCMB+14, CHGCMB+25!, BILLCHG+5!, BILLCHG+6!, BILLCHG+20, BILLCHG+21, BILLCHG+29*, BILLCHG+30* , BILLCHG+34, BILLCHG+35, BILLCHG+37, BILLCHG+38, BILLCHG+40*, BILLCHG+43! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CHG | RVCHG~, RVCHG+4 |
CPT | CHKCODE~, CHKCODE+1*, CHKCODE+2, CHKCODE+4, CHKCODE+5, CHKCODE+6, CHKCODE+7, CHKCODE+8, CHKCODE+9, CHKCODE+10 , CHKCODE+11 |
D | RVCHG+2~ |
D0 | RVDEL+2~, RVCHG+2~ |
D1 | RVDEL+2~, RVCHG+2~ |
DA | RVDEL+2~, RVDEL+4*, RVCHG+2~, RVCHG+4* |
DA(1 | RVDEL+4*, RVCHG+4* |
DG | RVDEL+2~ |
DGXRF1 | RVDEL+2~, RVCHG+2~ |
DI | RVCHG+2~ |
DIC | RVDEL+2~, RVCHG+2~ |
DICR | RVDEL+2~ |
DIE | RVCHG+2~, RVCHG+4* |
DIG | RVDEL+2~ |
DIH | RVDEL+2~ |
DIK | RVDEL+2~, RVDEL+4*! |
DIR | ASKCMB+1~ |
DIR("?" | ASKCMB+5*, ASKCMB+6*, ASKCMB+7* |
DIR("A" | ASKCMB+8* |
DIR("B" | ASKCMB+8* |
DIR(0 | ASKCMB+9* |
DIRUT | ASKCMB+1~, ASKCMB+9 |
DIW | RVDEL+2~ |
DQ | RVCHG+2~ |
DR | RVCHG+2~, RVCHG+4* |
DTOUT | ASKCMB+1~ |
DUOUT | ASKCMB+1~ |
IB0 | BILLCHG+4~, BILLCHG+9*, BILLCHG+10 |
>> IBAUTO | CHGCMB+24 |
IBBRT | BILLCHG+4~, BILLCHG+10*, BILLCHG+13 |
IBBTYPE | BILLCHG+4~, BILLCHG+10*, BILLCHG+13 |
IBCBARR | BILLCHG+4~, BILLCHG+13, BILLCHG+16 |
IBCHGI | BILLCHG+4~, BILLCHG+37*, BILLCHG+40 |
IBCHGP | BILLCHG+4~, BILLCHG+38*, BILLCHG+40 |
IBCHGS | CHGCMB+1~, CHGCMB+14*, CHGCMB+19, CHGCMB+22 |
IBCMP | BILLCHG+4~, BILLCHG+24*, BILLCHG+30 |
IBCPT | CHGCMB+1~, CHGCMB+8*, CHGCMB+12, CHGCMB+17, CHGCMB+22, BILLCHG+4~, BILLCHG+23* |
IBDONE | CHGCMB+1~ |
IBDONE( | CHGCMB+16, CHGCMB+21* |
IBIFN | ASKCMB~, ASKCMB+1*, ASKCMB+3, ASKCMB+11, CHGCMB~, CHGCMB+1, CHGCMB+3, CHGCMB+5, CHGCMB+6, CHGCMB+16 , CHGCMB+21, RVDEL~, RVDEL+3, RVDEL+4, RVCHG~, RVCHG+3, RVCHG+4, CHKBILL~, CHKBILL+2*, CHKBILL+4 , CHKBILL+6, BILLCHG~, BILLCHG+6, BILLCHG+7, BILLCHG+9, BILLCHG+16 |
IBLN | BILLCHG+4~, BILLCHG+21*, BILLCHG+23, BILLCHG+24, BILLCHG+25, BILLCHG+26, BILLCHG+28, BILLCHG+30 |
IBMATCH | CHGCMB+1~, CHGCMB+12*, CHGCMB+14, CHGCMB+16, CHGCMB+21 |
IBOUT | CHKCODE+1~*, CHKCODE+2*, CHKCODE+4*, CHKCODE+5*, CHKCODE+6*, CHKCODE+7*, CHKCODE+8*, CHKCODE+9*, CHKCODE+10*, CHKCODE+11* , CHKCODQ, CHKBILL+2~*, CHKBILL+4*, CHKBILL+6*, CHKBILQ |
IBRC | CHGCMB+1~, CHGCMB+5*, CHGCMB+6, CHGCMB+16, CHGCMB+17, CHGCMB+21, CHGCMB+22 |
IBRC0 | CHGCMB+1~, CHGCMB+6*, CHGCMB+8, CHGCMB+9, CHGCMB+10, CHGCMB+12, CHGCMB+17 |
IBRCCT | CHGCMB+1~, CHGCMB+9*, CHGCMB+17 |
IBSBCR | BILLCHG+4~, BILLCHG+28*, BILLCHG+29, BILLCHG+30, BILLCHG+34*, BILLCHG+35, BILLCHG+37, BILLCHG+38, BILLCHG+40 |
IBTCHG | CHGCMB+1~, CHGCMB+19*, CHGCMB+21, CHGCMB+22 |
IBU | BILLCHG+4~, BILLCHG+9*, BILLCHG+13 |
IBX | CHGCMB+1~, CHGCMB+24*, RVDEL+2~*, RVDEL+3*, RVDEL+5, RVCHG+2~*, RVCHG+3*, RVCHG+5, CHKBILL+2~, CHKBILL+4* , CHKBILL+6*, BILLCHG+4~, BILLCHG+20*, BILLCHG+21 |
IBX( | CHGCMB+17*, CHGCMB+22*, CHGCMB+24 |
IBY | CHKBILL+2~, CHKBILL+4* |
RCIFN | RVDEL~, RVDEL+3, RVDEL+4, RVCHG~, RVCHG+3, RVCHG+4 |
U | CHGCMB+8, CHGCMB+9, CHGCMB+10, CHGCMB+12, CHGCMB+17, CHGCMB+19, CHGCMB+22, CHKBILL+4, BILLCHG+10, BILLCHG+13 , BILLCHG+23, BILLCHG+24, BILLCHG+25, BILLCHG+26, BILLCHG+28, BILLCHG+37, BILLCHG+38, BILLCHG+40 |
X | ASKCMB+1~, RVDEL+2~, RVCHG+2~ |
Y | ASKCMB+1~, ASKCMB+9, ASKCMB+11, RVDEL+2~, RVCHG+2~ |
Z | RVDEL+2~, RVCHG+2~ |
Z1 | RVDEL+2~, RVCHG+2~ |
>> ZTQUEUED | CHGCMB+24 |