Routine: IBOUNP2

Information

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

Package	Total	Caller Graph
Integrated Billing	1	IBOUNP1

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	Field # of Occurrence
C^%DTC	LOOPCLNC+2
ELIG^VADPT	VET+1

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	Field # of Occurrence
^(	EXP+3
^(0	LOOPAPPT+5, LOOPAPPT+6

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*