IBAMTD2 ;ALB/CPM - MOVEMENT BULLETIN PROCESSING ; 03-MAY-93
Source file <IBAMTD2.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 |
|---|---|---|
| APM() | ; Analyze patient movement to see if Means Test charges were effected.
; Input: DFN -- Pointer to patient in file #2 ; DGPMP -- Oth node in file #405 prior to change ; DGPMA -- Oth node in file #405 after the change ; Output: 0 -- No effect on Means Test charges (no bulletin) ; 1 -- Means Test charges were effected (send bulletin) |
|
| APMQ | ||
| CHG(DFN) | ; Were any Means Test Charges Billed for this Admission?
; Input: DFN -- Pointer to patient in file #2 ; Output: 1 -- Charges have been billed for the admission ; 0 -- Charges have not been billed for the admission |
|
| SET | ; Set Before/Afters for the mvmt date and treating specialty
|
|
| CHK | ; Check for changes in the movement date or treating specialty.
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IB - [#350] | CHG+7, CHG+8 |
| ^IB("AF" | CHG+8 |
| ^IB("AFDT" | CHG+7 |
| ^IBE(350.1 - [#350.1] | CHG+8 |
| ^UTILITY("DGPM" | SET+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | APM+10, CHG~, CHG+7 |
| >> DGPMA | APM+8, APM+13, APM+17, APM+20, APM+21, APM+22, CHG+6, SET+1, SET+2 |
| >> DGPMP | APM+8, APM+21, APM+22, CHG+6, SET+1, SET+2 |
| IBADM | APM+7~ |
| IBCHG | APM+7~, CHG+5~, CHG+8*, CHG+9 |
| IBD | CHG+5~, CHG+7*, CHG+8 |
| >> IBFTSA | SET+2*, SET+3*, SET+4, CHK+1, CHK+2 |
| >> IBFTSABS | SET+4*, CHK+1, CHK+2 |
| >> IBFTSP | SET+2*, SET+3*, SET+4, CHK+1, CHK+2 |
| >> IBFTSPBS | SET+4*, CHK+1, CHK+2 |
| >> IBJOB | APM+17 |
| IBLAST | CHG+5~, CHG+8* |
| IBMTYP | APM+7~, APM+8*, APM+9, APM+13, APM+16, APM+20, SET+2, SET+3 |
| IBMVTA | APM+7~, SET+1*, CHK+1, CHK+3 |
| IBMVTP | APM+7~, SET+1*, CHK+1, CHK+3 |
| IBN | CHG+5~, CHG+8* |
| IBND | CHG+5~, CHG+7* |
| IBNL | CHG+5~, CHG+8* |
| IBPM | APM+7~ |
| IBQ | CHG+5~, CHG+6*, CHG+7* |
| >> IBVAL(1 | CHK+2* |
| >> IBVAL(2 | APM+22*, CHK+3* |
| IBX | CHG+5~, CHG+6*, CHG+7* |
| IBY | APM+7~, APM+9*, APM+10*, APM+21*, APMQ, CHK+1* |
| PM | CHG+5~, CHG+6*, CHG+7 |
| X | SET+1~, SET+3* |
