IBAMTI ;ALB/CPM - SPECIAL INPATIENT BILLING CASES ; 11-AUG-93
Source file <IBAMTI.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADM(DFN,IBPM,IBCL) | ; Create a new case record upon admission
; Input: DFN -- Pointer to the patient in file #2 ; IBPM -- Pointer to the adm movement in file #405 ; IBCL -- Patient class [1-ao|2-ir|3-sc|4-swa|5-mst|6-hnc|7-cv|8-shad] |
|
| ADMQ | ||
| DIS(IBPM) | ; Update the case record upon discharge
; Input: IBPM -- Pointer to the adm movement in file #405 |
|
| DISQ | ||
| BGJ | ; Perform nightly background monitoring of all case records.
|
|
| BULL(IBEV,IBCL) | ; Send a bulletin at admission and discharge.
; Input: IBEV -- Event [1:admission|2:discharge] ; IBCL -- Patient class [1-ao|2-ir|3-swa|4-sc|5-mst|6-hnc|7-cv|8-shad] |
|
| NOTICE(IBNUM,DFN,IBPM,IBCL) | ; Notice to disposition billing case
; Input: IBNUM -- Number of days since discharge ; DFN -- Pointer to the patient in file #2 ; IBPM -- Pointer to the admission in file #405 ; IBCL -- Patient class [1-ao|2-ir|3-swa|4-sc|5-mst|6-hnc|7-cv|8-shad] |
|
| UCCL(X) | ; Return the upper case classification description.
; Input: X -- Patient class [1-ao|2-ir|3-swa|4-sc|5-mst|6-hnc|7-cv|8-shad] |
|
| LCCL(X) | ; Return the lower case classification description.
; Input: X -- Patient class [1-ao|2-ir|3-swa|4-sc|5-mst|6-hnc|7-cv|8-shad] |
| FileNo | Call Tags |
|---|---|
| ^IBE(351.2 - [#351.2] | Classic Fileman Calls |
