IBCU7U ;ALB/ARH - BILL PROCEDURE UTILITIES ; 10-OCT-03
Source file <IBCU7U.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 |
|---|---|---|
| DELCPT(IBIFN,OLDDA) | ; delete a CPT code from a bill
; Input: OLDDA = ifn of cpt in bill cpt multiple to be deleted |
|
| EDITCPT(IBIFN,OLDDA,NEWCPT) | ; replace a CPT code on the bill with another CPT code
; Input: OLDDA = ifn of cpt in bill cpt multiple to be replaced ; NEWCPT = ifn of cpt code to be added |
|
| COPYCPT(IBIFN,OLDDA,NEWCPT) | ; add a new CPT and populate date fields with data from an existing bill cpt
; Input: OLDDA = ifn of cpt in bill cpt multiple to be copied ; NEWCPT = ifn of cpt code to be added |
|
| COPYCPQ | ||
| ADDCPT(IBIFN,SDLN) | ; add a new CPT code to a bill and populate it's data based on clinical data
; Input: SDLN - data line from ^UTILITY($J,"CPT-CNT" created in VST^IBCCPT ; ^utility($j,cpt-cnt,count)=code^date^on bill^is BASC^divis^nb^nb mess^provider^clinic^mod,mod^Opt Enc Ptr |
|
| ADDCPTQ | ||
| GETSD(IBIFN) | ; get the procedures from the clinical data covered by the bill
; Output: ^UTILITY($J,"CPT-CNT",X)= ... (from VST^IBCCPT) ; ^UTILITY($J,"CPT-CLN",CPT,EVDT)= ... |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | DELCPT+3, EDITCPT+4, COPYCPT+5, COPYCPT+24, COPYCPT+25, COPYCPT+26, ADDCPT+5, ADDCPT+9, GETSD+4 |
| ^UTILITY($J | GETSD+3!, GETSD+6, GETSD+7, GETSD+8* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | DELCPT+2~*, DELCPT+3, EDITCPT+3~*, EDITCPT+4, COPYCPT+3~, COPYCPT+10*, COPYCPT+21!, ADDCPT+3~, ADDCPT+11*, ADDCPT+16*! |
| DA(1 | DELCPT+2*, DELCPT+3, EDITCPT+3*, EDITCPT+4, COPYCPT+9*, COPYCPT+28*, ADDCPT+10* |
| DA(2 | COPYCPT+28* |
| DD | COPYCPT+3~, COPYCPT+9!, COPYCPT+28!, ADDCPT+3~, ADDCPT+10!, ADDCPT+16! |
| DFN | GETSD+3~, GETSD+4* |
| DGCNT | GETSD+3~ |
| DIC | DELCPT+2~, EDITCPT+3~, COPYCPT+3~, COPYCPT+9*!, COPYCPT+21!, COPYCPT+27*, COPYCPT+28!, ADDCPT+3~, ADDCPT+10*, ADDCPT+16! |
| DIC("DR" | COPYCPT+28* |
| DIC("P" | COPYCPT+26*, ADDCPT+9*, ADDCPT+10! |
| DIC(0 | COPYCPT+9*, COPYCPT+27*, ADDCPT+10* |
| DIE | DELCPT+2~, EDITCPT+3~, EDITCPT+4*, COPYCPT+3~, COPYCPT+9!, COPYCPT+21!, ADDCPT+3~, ADDCPT+16*! |
| DIK | DELCPT+2~, DELCPT+3* |
| DINUM | ADDCPT+3~, ADDCPT+16! |
| DLAYGO | COPYCPT+3~, COPYCPT+9*, COPYCPT+27*, ADDCPT+3~, ADDCPT+10* |
| DO | COPYCPT+3~, COPYCPT+9!, COPYCPT+21!, COPYCPT+28!, ADDCPT+3~, ADDCPT+10!, ADDCPT+16! |
| DR | EDITCPT+3~, EDITCPT+4*, COPYCPT+3~, COPYCPT+21!, ADDCPT+3~, ADDCPT+13*, ADDCPT+14*, ADDCPT+15* |
| IBFND | DELCPT+2~*, DELCPT+3*, DELCPT+4, EDITCPT+3~*, EDITCPT+4*, EDITCPT+5, COPYCPT+3~*, COPYCPT+10*, COPYCPQ, ADDCPT+3~* , ADDCPT+11*, ADDCPTQ |
| IBIFN | DELCPT~, DELCPT+2, EDITCPT~, EDITCPT+3, COPYCPT~, COPYCPT+5, COPYCPT+9, COPYCPT+13, COPYCPT+14, COPYCPT+24 , COPYCPT+25, COPYCPT+26, COPYCPT+27, COPYCPT+28, ADDCPT~, ADDCPT+5, ADDCPT+9, ADDCPT+10, ADDCPT+18, GETSD~ , GETSD+4 |
| IBNDA | COPYCPT+3~, COPYCPT+14*, COPYCPT+20 |
| IBNEW | COPYCPT+3~ |
| IBNEW( | COPYCPT+20* |
| IBNEW(0 | COPYCPT+21 |
| IBNEWDA | COPYCPT+3~, COPYCPT+10*, COPYCPT+14, COPYCPT+26, COPYCPT+27, COPYCPT+28, ADDCPT+3~, ADDCPT+11*, ADDCPT+16, ADDCPT+18 |
| IBODA | COPYCPT+3~, COPYCPT+13*, COPYCPT+15, COPYCPT+19 |
| IBOLD | COPYCPT+3~ |
| IBOLD( | COPYCPT+16, COPYCPT+17, COPYCPT+18, COPYCPT+20 |
| IBOPV1 | GETSD+3~ |
| IBOPV2 | GETSD+3~ |
| IBQUERY | GETSD+3~, GETSD+5 |
| IBSFILE | COPYCPT+3~, COPYCPT+16*, COPYCPT+17, COPYCPT+18, COPYCPT+20 |
| IBX | COPYCPT+3~, COPYCPT+18*, COPYCPT+19, COPYCPT+20, COPYCPT+24*, COPYCPT+25, GETSD+3~, GETSD+6*, GETSD+7 |
| IBXDA | COPYCPT+3~, COPYCPT+17*, COPYCPT+18, COPYCPT+19, COPYCPT+20 |
| IBY | COPYCPT+3~, COPYCPT+25*, COPYCPT+28, GETSD+3~, GETSD+7*, GETSD+8 |
| NEWCPT | EDITCPT~, EDITCPT+3*, EDITCPT+4, COPYCPT~, COPYCPT+6, COPYCPT+9 |
| OLDDA | DELCPT~, DELCPT+2, EDITCPT~, EDITCPT+3, COPYCPT~, COPYCPT+5, COPYCPT+13, COPYCPT+24, COPYCPT+25 |
| SDCNT | GETSD+3~ |
| SDLN | ADDCPT~, ADDCPT+6, ADDCPT+7, ADDCPT+10, ADDCPT+13, ADDCPT+14, ADDCPT+15, ADDCPT+18 |
| SDQDATA | GETSD+3~ |
| SDQUERY | GETSD+3~ |
| U | COPYCPT+28, ADDCPT+7, ADDCPT+13, ADDCPT+14, ADDCPT+15, ADDCPT+18, GETSD+4, GETSD+8 |
| V | GETSD+3~ |
| X | DELCPT+2~, EDITCPT+3~, COPYCPT+3~, COPYCPT+9*, COPYCPT+28*, ADDCPT+3~, ADDCPT+10*, GETSD+3~ |
| Y | DELCPT+2~, EDITCPT+3~, COPYCPT+3~, COPYCPT+10, ADDCPT+3~, ADDCPT+11 |
