Routine: ABMDESL1

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIR
Third Party Billing	1	$$UPC^ABMERUTL

Entry Points

Name	Comments	DBIA/ICR reference
LOC	;EP for selecting location
CLN	;EP for selecting CLINIC
ELIG	;EP for selecting Bene Class
PAT
VTYP	;EP for selecting Visit Type
STARTR
SEQCK	;
INS
RANGE	;
PRV	;EP for selecting Provider
ALPHACK(X)	;
DT	;EP for selecting Visit Date Range
ENDR
TYP	;EP for selecting Billing Entity

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: LOC+1
Function Call: WRITE	Prompt: ! Line Location: INS+0
Function Call: WRITE	Prompt: ! Line Location: PAT+1
Function Call: WRITE	Prompt: !!," ============ Entry of ",Y," Range =============" Line Location: DT+4
Function Call: WRITE	Prompt: ! Line Location: DT+5
Function Call: WRITE	Prompt: ! Line Location: DT+8
Function Call: WRITE	Prompt: !!,*7,"INPUT ERROR: Start Date is Greater than than the End Date, TRY AGAIN!",!! Line Location: DT+11
Function Call: WRITE	Prompt: ! Line Location: CLN+1
Function Call: WRITE	Prompt: ! Line Location: VTYP+1
Function Call: WRITE	Prompt: ! Line Location: PRV+1
Function Call: WRITE	Prompt: !!,"Select RANGE OF PATIENTS to display:" Line Location: STARTR+0
Function Call: WRITE	Prompt: ! Line Location: STARTR+1
Function Call: WRITE	Prompt: !!?4,"Must be alpha characters only! (NO numbers, punctuation, etc)" Line Location: STARTR+6
Function Call: WRITE	Prompt: ! Line Location: ENDR+0
Function Call: WRITE	Prompt: !!?4,"Must be alpha characters only! (NO numbers, punctuaton, etc)" Line Location: ENDR+7
Function Call: WRITE	Prompt: !!?4,"Invalid range...please try again!" Line Location: ENDR+10
Routine Call	DIC Line Location: LOC+5 INS PAT+1 CLN+1 VTYP+1 PRV+1
Routine Call	DIR Line Location: TYP+7 DT+5 DT+8 ELIG+4 STARTR+3 ENDR+4

Name	Field # of Occurrence
ABMCK	STARTR+5, STARTR+6, ENDR+6, ENDR+7, ALPHACK+2~, ALPHACK+3, ALPHACK+8, ALPHACK+9*, ALPHACK+10
ABMI	ALPHACK+1~, ALPHACK+5, ALPHACK+6, ALPHACK+7, SEQCK+2*, SEQCK+4
>> ABMJ	SEQCK+3*, SEQCK+4
ABMPCE	ALPHACK+1~, ALPHACK+7*, ALPHACK+8, ALPHACK+9, SEQCK+1!
ABMPCE(	SEQCK+4*
ABMPCE(1	SEQCK+5
ABMPCE(2	SEQCK+5
ABMTST	ALPHACK+1~, ALPHACK+4*, ALPHACK+6, ALPHACK+7
>> ABMY("CLN"	CLN+1!, CLN+2*
>> ABMY("DT"	DT+1!, DT+2, DT+6!, DT+7, DT+9!, DT+10*, DT+11
>> ABMY("INS"	TYP+1!, INS!, INS+1*
>> ABMY("LOC"	LOC+1!, LOC+7*
>> ABMY("PAT"	TYP+1!, PAT!, PAT+2*
>> ABMY("PRV"	PRV+1!, PRV+2*
>> ABMY("PTYP"	ELIG+5*
>> ABMY("RNG"	TYP+5, RANGE+1!, STARTR+4!, STARTR+7, ENDR+3, ENDR+5!, ENDR+8, ENDR+10, SEQCK+4, SEQCK+5!
>> ABMY("TYP"	TYP+1!, TYP+12*, INS!, PAT!
>> ABMY("VTYP"	VTYP+1!, VTYP+2*
>> AUPNLK("ALL"	PAT+1!
DIC	LOC+1!, LOC+2, LOC+5!, INS, PAT+1, CLN+1!, VTYP+1!, PRV+1!
DIC("A"	LOC+4*
DIC(0	LOC+3, INS, PAT+1, CLN+1, VTYP+1, PRV+1
DIR	TYP+1!, TYP+7!, DT+1!, DT+6!, DT+8!, ELIG+1!, ELIG+4!, RANGE+1!, STARTR+4!, ENDR+4!
DIR("?"	ELIG+3, STARTR+2, ENDR+2*
DIR("A"	TYP+6, DT+5, DT+8, ELIG+2, STARTR+1, ENDR+4
DIR("B"	ENDR+3*
DIR(0	TYP+3, TYP+5, DT+5, ELIG+1, STARTR+3, ENDR+1
>> DIROUT	TYP+7, DT+6, DT+9, STARTR+4, ENDR+5
>> DIRUT	TYP+7, DT+6, DT+9, ELIG+4, STARTR+4, ENDR+5
X	ALPHACK~, ALPHACK+4
Y	LOC+6, LOC+7, TYP+12, TYP+13, INS+1, PAT+2, DT+3*, DT+4, DT+5, DT+7 , DT+10, CLN+2, VTYP+2, PRV+2, ELIG+5, STARTR+5, STARTR+6!, STARTR+7, ENDR+6, ENDR+7! , ENDR+8
Y(0	TYP+12, ELIG+5