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 | ||
| 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 |
| FileNo | Call Tags |
|---|---|
| ^IB - [#350] | GET1^DIQ |
| 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+29! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CL | ENCL+5~, ENCL+6* |
| CLD | ENCL+5~, ENCL+6* |
| >> DFN | UPD+21, UPD+24 |
| IBACT | UPD+7*, UPD+10, UPD+11, UPDQ! |
| >> IBAPTY | BEDIT+2* |
| >> IBAST | UPD+4, UPD+6 |
| IBBIL | UPD+1~, UPD+8*, UPD+9*, UPD+10, UPD+11 |
| >> IBBILLED | UPD+9, UPD+17, UPD+22*, BEDIT+11*, CANC+4 |
| >> IBBST | UPD+4, UPD+6 |
| IBC | UPDQ! |
| IBCBK | UPD+1~, UPD+28*, UPD+29 |
| IBCLSF | UPD+11~, UPDQ!, BEDIT+7* |
| >> IBCRES | UPD+4*, UPD+10*, UPD+16, CANC+3*, CANC+4 |
| >> IBDAT | UPD+24 |
| >> IBDISP | BEDIT+3* |
| >> IBDT | UPD+21 |
| >> IBEV0 | UPD+9, UPD+17 |
| IBEVT | UPD+9, UPD+17, UPDQ!, BEDIT~, BEDIT+1, BEDIT+2, BEDIT+3, LINK~, LINK+7, LINK+9 |
| IBFILTER | UPD+1~, UPD+25*, UPD+29 |
| IBN | LINK~, LINK+7, LINK+8 |
| IBOE | UPD+7, UPD+9, UPD+17, LINK~, LINK+7, LINK+10, ENCL~, ENCL+6 |
| IBOEN | UPDQ!, BEDIT~, BEDIT+3, BEDIT+7, BEDIT+8 |
| >> IBORG | BEDIT+2*, BEDIT+3 |
| IBSL | BEDIT+8*, LINK+6~, LINK+8*, LINK+9, LINK+10 |
| IBVAL | UPD+1~, UPD+29 |
| IBVAL("BDT" | UPD+24* |
| IBVAL("DFN" | UPD+24* |
| IBVAL("EDT" | UPD+24* |
| >> IBY | UPD+18 |
| U | UPD+9, BEDIT+1, BEDIT+2, ENCL+6 |
| >> UNBILLED | BEDIT+1* |
| X | ENCL+5~ |
| Y | LINK+6~, LINK+9*, LINK+10*, LINKQ, ENCL+5~*, ENCL+6*, ENCL+7 |
| Name | Field # of Occurrence |
|---|---|
| $T(CRES+IBCRES | CANC+3 |
