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* |