Routine: DGBTUTL1

Information

DGBTUTL1 ;PAV - BENEFICIARY/TRAVEL UTILITY ROUTINES ; 11/14/11

Name	Comments	DBIA/ICR reference
ELIG(DFN)	;***PAVEL
PCE	; Patient Encounter
EXIT	;
VIS(DGBTCSN)	;
BTC	; List of entries in 392.41 file
SETC	;Set entries into 392.41 if these are not there
KILLC	;Remove all entries from 392.41
QUALQUES	;this will ask if the appointment was a qualified appointment if the patient is SC 30% or greater
MTCHK(DFN,DGBTDTI)	;
MTQ	;
RESADDR(DGBTADDR)	;dgbt1.039 - residential address
DASHADDR(DFN)	;dgbt1.039 - function to pull the address for the bt dashboard patient class

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"IS THIS A CLAIM FOR A SERVICE CONNECTED APPOINTMENT" Line Location: PCE+23
Function Call: WRITE	Prompt: !,"IS THIS A CLAIM FOR A COMP AND PENSION APPOINTMENT" Line Location: PCE+26
Function Call: WRITE	Prompt: !!,"PATIENT IS NOT ELIGIBLE FOR BT REIMBURSEMENT" Line Location: PCE+29
Function Call: WRITE	Prompt: !!,"CONTINUE WITH CLAIM" Line Location: PCE+30
Function Call: WRITE	Prompt: !!,"Answer NO if you want to deny claim for any reason. Want to continue" Line Location: QUALQUES+4