IBAMTS2 ;ALB/CPM - PROCESS UPDATED OUTPATIENT ENCOUNTERS ; 25-AUG-93
Source file <IBAMTS2.m>
| 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 |
