IBOUNP5 ;ALB/CJM - INPATIENT INSURANCE REPORT ;JAN 25,1992
Source file <IBOUNP5.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 |
|---|---|---|
| LOOP | ; loops through inpatients
|
|
| LOOP1 | ; finds current admissions for selected divisions
|
|
| LOOP2 | ; finds admissions during selected date range for selected divisions
|
|
| PROC | ;
|
|
| VET | ; checks if patient is a vet
|
|
| DONE | ; checks if patient already on report
|
|
| INDEX | ; indexes appointment,also indexs vet so he won't be reported twice
|
|
| UNK | ; goes in 'unknown' category if the field COVERED BY HEALTH INSURANCE
; was not answered, was answered unknown, and there is no insurance data |
|
| EXP | ; goes in expired category only if there is insurance and
; all of it expired before end of specified period + 30 days |
|
| UNI | ; goes in unisured category if there is no insurance data and
; the field COVERED BY HEALTH INSURANCE was answered YES or NO |
|
| CKINS | ; checks if any insurance in insurance multiple of patient record
|
|
| DIV | ; checks if the division is on the list VAUTD()
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(40.8 - [#40.8] | INDEX+3 |
| ^DGPM - [#405] | LOOP1+4, LOOP2+5 |
| ^DGPM("AMV1" | LOOP2+4, LOOP2+5 |
| ^DIC(42 - [#42] | LOOP1+3, LOOP2+5 |
| ^DPT - [#2] | LOOP1+4, INDEX+6, UNK+2, EXP+3, UNI+2, CKINS+1 |
| ^DPT("CN" | LOOP1+4 |
| ^TMP($J | DONE+1, INDEX+7*, INDEX+8* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADM | LOOP1+1~, LOOP1+4* |
| CTG | LOOP+1~, INDEX+7, UNK+2*, EXP+3*, UNI+2* |
| D | INDEX+1~, INDEX+2*, INDEX+3*, INDEX+4*, INDEX+7 |
| DFN | LOOP+1~, LOOP1+4*, LOOP2+5*, DONE+1, INDEX+6, INDEX+7, INDEX+8, UNK+2, EXP+3, UNI+2 , CKINS+1 |
| DIV | LOOP+1~, LOOP1+3*, LOOP2+5*, INDEX+3, DIV+2, DIV+3 |
| DTH | LOOP1+1~, LOOP1+4* |
| E | EXP+2~, EXP+3* |
| END2 | LOOP+1~, LOOP1+2*, LOOP2+2*, EXP+3 |
| >> IBOBEG | LOOP2+3 |
| >> IBOBYWRD | INDEX+7 |
| >> IBOEND | LOOP2+2, LOOP2+4 |
| >> IBOEXP | PROC+1 |
| >> IBOPICK | LOOP+2, LOOP+3, PROC+1 |
| >> IBOUI | PROC+1 |
| >> IBOUK | PROC+1 |
| INS | LOOP+1~, UNK+2, EXP+2, UNI+2, CKINS+1* |
| NAME | INDEX+1~, INDEX+6*, INDEX+7 |
| PAT | LOOP+1~ |
| QUIT | LOOP+1~, LOOP1+3, LOOP2+5*, PROC+1, VET+1*, DONE+1*, DIV+1*, DIV+2*, DIV+3* |
| R | LOOP1+1~, LOOP1+3* |
| RPTD | LOOP+1~, PROC+1*, UNK+2*, EXP+2*, EXP+3*, UNI+2* |
| T | LOOP2+2~, LOOP2+3*, LOOP2+4*, LOOP2+5, UNK+2~*, EXP+2~, EXP+3*, UNI+2~* |
| TDY | LOOP1+1~, LOOP1+2*, LOOP1+4 |
| TIME | LOOP+1~, LOOP1+4*, LOOP2+5*, INDEX+7 |
| U | LOOP2+5 |
| >> VAEL(4 | VET+1 |
| >> VAERR | VET+1 |
| >> VAUTD | DIV+1 |
| >> VAUTD( | DIV+3 |
| WRD | LOOP1+1~*, LOOP1+3* |
| WRD0 | LOOP2+1~, LOOP2+5* |
| WRDN | LOOP1+1~, LOOP1+3*, LOOP1+4, LOOP2+1~, LOOP2+5*, INDEX+5*, INDEX+7 |
| >> X | LOOP1+2, LOOP2+2 |
| >> X1 | LOOP1+2*, LOOP2+2* |
| >> X2 | LOOP1+2*, LOOP2+2* |
