IBAMTS2 ;ALB/CPM - PROCESS UPDATED OUTPATIENT ENCOUNTERS ; 25-AUG-93
Source file <IBAMTS2.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 |
|---|---|---|
| UPD | ; Perform encounter update actions.
|
|
| UPDQ | ||
| BEDIT(IBOEN,IBEVT) | ; - perform batch edit
|
|
| CRES | ; List of cancellation reasons
|
|
| LINK(IBOE,IBEVT,IBN) | ; Was the billed charge for the current appointment?
; Input: IBOE -- Pointer to outpatient encounter in file #409.68 ; IBEVT -- Zeroth node of encounter in file #409.68 ; IBN -- Pointer to charge in file #350 ; Output: 0 -- Charge was not for current appointment ; 1 -- Charge was for current appointment |
|
| LINKQ | ||
| CLUPD() | ; Examine changes in the classification.
; Output: 0 -- no changes ; 1 -- changes require charges to be cancelled ; 2 -- changes require appt to be billed ; 3 -- [ec/swa] cancel charge, create deferred charge ; 4 -- [ec/swa] pass deferred charge, disposition case |
|
| CLUPDQ | ||
| CANC | ; Determine cancellation reason and cancel charge
; Input variables: IBCRES -- Code for reason to be determined ; IBBILLED -- Charge to be cancelled |
|
| ENCL(IBOE) | ; Return classification results for an encounter.
; Input: IBOE -- Pointer to outpatient encounter in file #409.68 ; Output: ao^ir^sc^swa^mst^hnc^cv^shad, where, for each piece, ; 1 - care was related to condition, and ; 0 (or null) - care not related to condition |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IB - [#350] | LINK+8 |
| ^IBE(350.3 - [#350.3] | CANC+3 |
| ^SDD(409.42 - [#409.42] | ENCL+6 |
| ^TMP("DIERR" | UPD+26! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CL | ENCL+5~, ENCL+6* |
| CLD | ENCL+5~, ENCL+6* |
| >> DFN | UPD+18, UPD+21 |
| I | CLUPD+6~, CLUPD+8*, CLUPD+9* |
| IBACT | UPD+7*, UPD+8, UPD+9, UPDQ! |
| >> IBAPTY | BEDIT+2* |
| >> IBAST | UPD+4, UPD+7 |
| >> IBBILLED | UPD+14, UPD+19*, BEDIT+12*, CANC+4 |
| >> IBBST | UPD+4, UPD+7 |
| IBC | UPDQ! |
| IBCBK | UPD+1~, UPD+25*, UPD+26 |
| IBCLSF | UPD+7, UPD+9~, UPDQ!, BEDIT+7*, BEDIT+8 |
| IBCLSF("AFTER" | CLUPD+7, CLUPD+8, CLUPD+9 |
| IBCLSF("BEFORE" | CLUPD+7, CLUPD+8, CLUPD+9 |
| >> IBCRES | UPD+4*, UPD+8*, UPD+13, CANC+3*, CANC+4 |
| >> IBDAT | UPD+21 |
| >> IBDISP | BEDIT+3* |
| >> IBDT | UPD+18 |
| >> IBEV0 | UPD+14 |
| IBEVT | UPD+14, UPDQ!, BEDIT~, BEDIT+1, BEDIT+2, BEDIT+3, LINK~, LINK+7, LINK+9 |
| IBFILTER | UPD+1~, UPD+22*, UPD+26 |
| IBN | LINK~, LINK+7, LINK+8 |
| IBOE | UPD+14, LINK~, LINK+7, LINK+10, ENCL~, ENCL+6 |
| IBOEN | UPDQ!, BEDIT~, BEDIT+3, BEDIT+7, BEDIT+9 |
| >> IBORG | BEDIT+2*, BEDIT+3 |
| IBSL | BEDIT+9*, LINK+6~, LINK+8*, LINK+9, LINK+10 |
| IBVAL | UPD+1~, UPD+26 |
| IBVAL("BDT" | UPD+21* |
| IBVAL("DFN" | UPD+21* |
| IBVAL("EDT" | UPD+21* |
| >> IBY | UPD+15 |
| U | BEDIT+1, BEDIT+2, CLUPD+8, CLUPD+9, ENCL+6 |
| >> UNBILLED | BEDIT+1* |
| X | ENCL+5~ |
| Y | LINK+6~, LINK+9*, LINK+10*, LINKQ, CLUPD+6~*, CLUPD+8*, CLUPD+9*, CLUPDQ, ENCL+5~*, ENCL+6* , ENCL+7 |
| Name | Field # of Occurrence |
|---|---|
| $T(CRES+IBCRES | CANC+3 |
