Routine: ABMRPVET

Package	Total	Call Graph
Third Party Billing	3	^ABMDRDBQ WHD^ABMDRHD $$SDT^ABMDUTL
VA Fileman	2	$$GET1^DIQ ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
COMPUTE	;EP - Entry Point for Setting up Data
HDR	;EP
DTYP	;
PRINT	;
SEL	;EP
DATA	;EP

Name	Field # of Occurrence
^ABMDRDBQ	SEL+10
WHD^ABMDRHD	HDR+3
$$SDT^ABMDUTL	SEL+4, PRINT+8
$$GET1^DIQ	DATA+6, DATA+7, DATA+9, DATA+12, PRINT+8, PRINT+9, PRINT+16
^DIR	DTYP+4, DTYP+9, HDR+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," ============ Entry of VISIT DATE Range =============",! Line Location: DTYP+1
Function Call: WRITE	Prompt: ! Line Location: DTYP+7
Function Call: WRITE	Prompt: !!,*7,"INPUT ERROR: Start Date is Greater than than the End Date, TRY AGAIN!",!! Line Location: DTYP+13
Function Call: WRITE	Prompt: ! Line Location: PRINT+13
Function Call: WRITE	Prompt: !,"PATIENT NAME",?40,"HRN",?48,"DOB",?59,"SSN",?69,"VISIT CNT" Line Location: HDR+4
Function Call: WRITE	Prompt: !,ABMLINE Line Location: HDR+5
Routine Call	DIR Line Location: DTYP+4 DTYP+9 HDR+1

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	DATA+15, PRINT+10
^AUPNVSIT("B"	DATA+3, DATA+5
^TMP($J	COMPUTE+2!, DATA+8, DATA+10, DATA+13, DATA+14, DATA+16, DATA+17*, PRINT+4, PRINT+6, PRINT+7 , PRINT+15, PRINT+16, PRINT+17, PRINT+18!

Name	Line Occurrences
DTYP	SEL+1, DTYP+11, DTYP+13
HDR	PRINT+1, PRINT+5

Name	Field # of Occurrence
ABM	ABMRPVET+6!
ABM("HD"	SEL+3, SEL+4
ABM("PG"	ABMRPVET+8, HDR+1, HDR+2
ABM("RTYP"	ABMRPVET+7*
ABM("SUBR"	COMPUTE+1*
>> ABMDOB	PRINT+8*, PRINT+11
>> ABMEND	DATA+2*, DATA+3
>> ABMHRN	PRINT+10*, PRINT+11
>> ABMLINE	SEL+5*, HDR+5
>> ABMN	PRINT+2, PRINT+4, PRINT+6, PRINT+11
>> ABMNAME	DATA+9*, DATA+10
>> ABMPT	DATA+6, DATA+7, DATA+8, DATA+9, DATA+10, DATA+14, DATA+15, DATA+17, PRINT+6, PRINT+7 , PRINT+8, PRINT+9, PRINT+10
>> ABMQ("NS"	SEL+8*
>> ABMQ("RC"	SEL+6*
>> ABMQ("RP"	SEL+9*
>> ABMQ("RX"	SEL+7*
>> ABMQFLG	PRINT+3*
>> ABMSSN	PRINT+9*, PRINT+11
>> ABMSTART	DATA+1, DATA+3, DATA+5
>> ABMVCNT	PRINT+7*, PRINT+11
>> ABMVIEN	DATA+4, DATA+5, DATA+6, DATA+12
>> ABMVLOC	DATA+12, DATA+13, DATA+14, DATA+15, DATA+16, DATA+17, PRINT+14, PRINT+15*, PRINT+16, PRINT+17
ABMY	ABMRPVET+6!
ABMY("DT"	SEL+4, DTYP+6, DTYP+12, DTYP+13, DATA+1, DATA+2
DIR	DTYP+10!, HDR+1!
DIR("A"	DTYP+2, DTYP+8
DIR(0	DTYP+3, HDR+1
>> DIROUT	SEL+2, DTYP+5, DTYP+11, PRINT+4, PRINT+5, HDR+1
>> DIRUT	SEL+2, DTYP+5, DTYP+11, PRINT+4, PRINT+5, HDR+1
>> DTOUT	SEL+2, DTYP+5, DTYP+11, PRINT+4, PRINT+5, HDR+1
>> DUOUT	SEL+2, DTYP+5, DTYP+11, PRINT+4, PRINT+5, HDR+1
DUZ(2	PRINT+10
IOSL	PRINT+5
IOST	PRINT+5, HDR+1
U	PRINT+10
>> Y	DTYP+6, DTYP+12, PRINT+5, HDR+1