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