IBECECX1 ;BSL/DVA - BILLING EXTRACTION AND FILING UTILITIES FOR IN PATIENT ACCUMULATOR INTERFACE ; 16 May 2022 8:47 AM
Source file <IBECECX1.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 |
|---|---|---|
| EN(DFN) | ;Retrieve existing Billing clock if present for this patient
|
|
| INPT(DFN) | ;Gather inpatient data
; Retrieve most recent Admission and Discharge dates from the PTF file |
|
| CCINPT(DFN,IBADMIT) | ;Gather inpatient data for CC billing
; Retrieve most recent Admission and Discharge dates from the PTF file |
|
| NOCLOCK | ;Set variables if no clock found
|
|
| CLSDT(IBECDT) | ;Calculate billing clock closed date taking into acct leap year
|
| FileNo | Call Tags |
|---|---|
| ^IBE(351 - [#351] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPT - [#45] | INPT+5, CCINPT+4 |
| ^DGPT("AAD" | INPT+4, INPT+5, CCINPT+3, CCINPT+4 |
| ^IBE(351 - [#351] | EN+6, EN+8, EN+13, EN+14, EN+15, EN+16, EN+17, EN+18, EN+19, EN+20 , EN+21 |
| Name | Line Occurrences |
|---|---|
| $$CLSDT | EN+10 |
| NOCLOCK | EN+4, EN+7, EN+12, EN+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | EN~, EN+4, EN+6, EN+8, INPT~, INPT+4, INPT+5, CCINPT~, CCINPT+3, CCINPT+4 |
| DT | INPT+2, CLSDT+5, CLSDT+6 |
| >> IB901 | EN+16*, NOCLOCK+1* |
| >> IB902 | EN+17*, NOCLOCK+1* |
| >> IB903 | EN+18*, NOCLOCK+1* |
| >> IB904 | EN+19*, NOCLOCK+1* |
| >> IBADM | NOCLOCK+1* |
| >> IBADM1 | INPT+5*, CCINPT+4* |
| IBADMIT | EN+3, INPT+2*, INPT+3*, INPT+5*, INPT+6*, CCINPT~, CCINPT+4*, CCINPT+5* |
| >> IBCKNUM | EN+22*, NOCLOCK+1* |
| >> IBCLDAY | EN+20*, NOCLOCK+1* |
| >> IBCLDT | EN+6, EN+14*, NOCLOCK+1* |
| >> IBCLNDT | EN+21*, NOCLOCK+1* |
| >> IBDISCH | INPT+2*, INPT+3*, INPT+5*, INPT+7*, CCINPT+2*, CCINPT+4*, CCINPT+6* |
| >> IBECADM | EN+3*, EN+6, EN+11 |
| IBECDT | EN+1~, EN+6*, EN+7, EN+8, EN+10, CLSDT~, CLSDT+2, CLSDT+5, CLSDT+6 |
| IBECLDT | EN+1~, EN+10*, EN+11, CLSDT+1~, CLSDT+5*, CLSDT+6* |
| IBERROR | EN+1~*, EN+9* |
| >> IBEVFAC | EN+2* |
| >> IBICNUM | EN+23*, NOCLOCK+1* |
| >> IBIEN | EN+8*, EN+9, EN+10, EN+13, EN+14, EN+15, EN+16, EN+17, EN+18, EN+19 , EN+20, EN+21, INPT+5*, CCINPT+4*, NOCLOCK+1* |
| IBLEAP | CLSDT+1~, CLSDT+3*, CLSDT+4*, CLSDT+5, CLSDT+6 |
| IBMTHDAY | CLSDT+1~, CLSDT+2*, CLSDT+3, CLSDT+4 |
| >> IBNGHTSK | INPT+2 |
| >> IBOADMIT | INPT+6*, CCINPT+5* |
| >> IBODISCH | INPT+7*, CCINPT+6* |
| >> IBSTAT | EN+15*, NOCLOCK+1* |
| IBYEAR | CLSDT+1~, CLSDT+2*, CLSDT+3, CLSDT+4 |
| >> IEN | NOCLOCK+1* |
| U | EN+13, EN+14, EN+15, EN+16, EN+17, EN+18, EN+19, EN+20, EN+21, INPT+5 , CCINPT+4 |
