Routine: IBOUNP5

Information

IBOUNP5 ;ALB/CJM - INPATIENT INSURANCE REPORT ;JAN 25,1992

Source file <IBOUNP5.m>

Package	Total	Call Graph
Registration	1	ELIG^VADPT
VA Fileman	1	(C,NOW)^%DTC

Package	Total	Caller Graph
Integrated Billing	1	IBOUNP4

Name	Comments	DBIA/ICR reference
INDEX	; indexes appointment,also indexs vet so he won't be reported twice
VET	; checks if patient is a vet
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
LOOP2	; finds admissions during selected date range for selected divisions
LOOP1	; finds current admissions for selected divisions
UNK	; goes in 'unknown' category if the field COVERED BY HEALTH INSURANCE
PROC	;
DIV	; checks if the division is on the list VAUTD()
LOOP	; loops through inpatients
CKINS	; checks if any insurance in insurance multiple of patient record

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

Name	Field # of Occurrence
^(	LOOP1+3, LOOP1+4, EXP+3
^(0	LOOP1+4

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