IBAMTC ;ALB/CPM - MEANS TEST NIGHTLY COMPILATION JOB ; 07 Jun 2021 4:17 PM
Source file <IBAMTC.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INIT | ; Entry point - initialize variables and parameters
|
|
| CLEAN | ||
| PROC | ; Process all currently admitted patients.
|
|
| PROCQ | ||
| BSEC | ; Determine patient's bed section for the previous day.
|
|
| ERR | ; Error processing. Input: IBY, IBWHER, IBCNT
|
|
| ORIG | ; Find first admission date, considering ASIH movements
; Input: IBA Output: IBADMDT |
|
| CANCEL(STRTDT,ENDDT,MSG) | ; cancel copays (covid relief) IB*2.0*703
|
|
| KILL1 | ; Kill all IB variables.
|
|
| KILL | ; Kill all IB variables needed to build charges.
|
|
| UPDTS | ; update completion timestamp (350.9/.17) IB*2.0*760
|
|
| CANCCD | ; cancel copays (Cleland-Dole) IB*2.0*760
|
|
| UPDCANC(IBIEN) | ; update MH visit tracking for cancelled copay
|
|
| FNDMHVST(DFN,IBEVDT) | ; find existing MH visit on a given date IB*2.0*760
|
|
| GETMHFR(DFN,IBEVDT) | ; check if there's an existing free MH visit on a given date IB*2.0*760
|
|
| ISCLDL(IBN) | ; check if charge is Cleland-Dole eligible IB*2.0*760
|
|
| ISCMPCT(IBN) | ; check if charge is COMPACT Act related IB*2.0*760
|
|
| GETDX(IBDXLIST) | ; Populate the list of Comact Act eligible DX codes IB*2.0*760
|
|
| DXSLIST | ; List of Specific Compact Act Related Diagnosis codes IB*2.0*760
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^IB - [#350] | GET1^DIQ |
| ^IBE(350.1 - [#350.1] | GET1^DIQ |
| ^IBE(350.9 - [#350.9] | GET1^DIQ |
