IBOUNP2 ;ALB/CJM - OUTPATIENT INSURANCE REPORT ;JAN 25,1992
Source file <IBOUNP2.m>
Package | Total | Call Graph |
---|---|---|
Registration | 1 | ELIG^VADPT |
VA Fileman | 1 | C^%DTC |
Name | Comments | DBIA/ICR reference |
---|---|---|
STATUS | ; checks if appt status="",otherwise should not be on report
|
|
INDEX | ; indexes appointment,also indexs vet so he won't be reported
|
|
VET | ; checks if patient is a vet
|
|
LOOPCLNC | ; loops through selected clinics
|
|
LOOPAPPT | ; loops through appointments for a selected clinic
|
|
DONE | ; checks if patient already on report
|
|
EXP | ; goes in expired category only if there is insurance and
|
|
UNI | ; goes in unisured category if there is no insurance data and
|
|
UNK | ; goes in 'unknown' category if the field COVERED BY HEALTH INSURANCE
|
|
CKINS | ; checks if any insurance in insurance multiple of patient record
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DG(40.8 - [#40.8] | LOOPAPPT+2 |
^DPT - [#2] | LOOPAPPT+6, STATUS+1, INDEX+1, UNK+2, EXP+3, UNI+2, CKINS+1 |
^SC - [#44] | LOOPAPPT+1, LOOPAPPT+2, LOOPAPPT+3, LOOPAPPT+4 |
^SC("AC" | LOOPCLNC+3 |
^TMP($J | DONE+1, INDEX+2*, INDEX+3* |
Name | Line Occurrences |
---|---|
CKINS | UNK+2, EXP+2, UNI+2 |
DONE | LOOPAPPT+6 |
EXP | LOOPAPPT+6 |
INDEX | LOOPAPPT+6 |
LOOPAPPT | LOOPCLNC+3, LOOPCLNC+4 |
STATUS | LOOPAPPT+6 |
UNI | LOOPAPPT+6 |
UNK | LOOPAPPT+6 |
VET | LOOPAPPT+6 |
Name | Field # of Occurrence |
---|---|
^( | EXP+3 |
^(0 | LOOPAPPT+5, LOOPAPPT+6 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> DFN | LOOPAPPT+5*, LOOPAPPT+6, DONE+1, STATUS+1, INDEX+1, INDEX+2, INDEX+3, UNK+2, EXP+3, UNI+2 , CKINS+1 |
E | EXP+2~, EXP+3* |
>> IBOBEG | LOOPAPPT+4 |
IBOCLN | LOOPAPPT+1~, LOOPAPPT+3~*, INDEX+2 |
IBOCLNC | LOOPCLNC+1~*, LOOPCLNC+3*, LOOPCLNC+4*, LOOPAPPT+1, LOOPAPPT+2, LOOPAPPT+3, LOOPAPPT+4 |
IBOCTG | LOOPCLNC+1~, INDEX+2, UNK+2*, EXP+3*, UNI+2* |
IBODIV | LOOPAPPT+1~, LOOPAPPT+2*, INDEX+2 |
>> IBOEND | LOOPCLNC+2, LOOPAPPT+4 |
IBOEND2 | LOOPCLNC+1~, LOOPCLNC+2*, EXP+3 |
>> IBOEXP | LOOPAPPT+6 |
IBOINS | LOOPCLNC+1~, UNK+2, EXP+2, UNI+2, CKINS+1* |
IBONAME | LOOPCLNC+1~, INDEX+1*, INDEX+2 |
>> IBOQUIT | LOOPAPPT+6*, VET+1*, DONE+1*, STATUS+1* |
IBORPTD | LOOPCLNC+1~, LOOPAPPT+6*, UNK+2*, EXP+2*, EXP+3*, UNI+2* |
IBOTIME | LOOPCLNC+1~, LOOPAPPT+4*, LOOPAPPT+6, STATUS+1, INDEX+2 |
>> IBOUI | LOOPAPPT+6 |
>> IBOUK | LOOPAPPT+6 |
J | LOOPAPPT+1~, LOOPAPPT+4* |
R | LOOPAPPT+1~, LOOPAPPT+5*, LOOPAPPT+6 |
T | UNK+2~*, EXP+2~, EXP+3*, UNI+2~* |
>> VAEL(4 | VET+1 |
>> VAERR | VET+1 |
>> VAUTC | LOOPCLNC+3, LOOPCLNC+4 |
>> VAUTC( | LOOPCLNC+4 |
>> X | LOOPCLNC+2 |
>> X1 | LOOPCLNC+2* |
>> X2 | LOOPCLNC+2* |