Routine: ABMRVTPB

Package	Total	Call Graph
Third Party Billing	3	^ABMDRDBQ (,WHD)^ABMDRHD PAZ^ABMDRUTL
VA Fileman	2	$$GET1^DIQ ^DIR

Entry Points

External References

Name	Field # of Occurrence
^ABMDRDBQ	END+13
^ABMDRHD	END+8
WHD^ABMDRHD	HDB
PAZ^ABMDRUTL	HD
$$GET1^DIQ	DATA+1, DATA+2, DATA+3, DATA+4, DATA+5, PRINT+21
^DIR	START+3, END+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," ============ Entry of VISIT Range =============",! Line Location: START+0
Function Call: WRITE	Prompt: ! Line Location: START+7
Function Call: WRITE	Prompt: !!,*7,"INPUT ERROR: Start Date is Greater than than the End Date, TRY AGAIN!",!! Line Location: END+5
Function Call: WRITE	Prompt: " (cont)" Line Location: PRINT+6
Function Call: WRITE	Prompt: !?3,"Visit Location: ",$P(ABM("TXT"),U,2) Line Location: PRINT+8
Function Call: WRITE	Prompt: !?2,"Patient",?18,"HRN",?25,"Clinic",?37,"Visit Date/Time",?57,"Third Party Billed" Line Location: HDB+1
Function Call: WRITE	Prompt: !,"-------------------------------------------------------------------------------" Line Location: HDB+2
Function Call: WRITE	Prompt: !?27,"------" Line Location: SUB+1
Function Call: WRITE	Prompt: !?19,"Count:",?27,ABM("CNT1") Line Location: SUB+2
Routine Call	DIR Line Location: START+3 END+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNVSIT - [#9000010]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PRINT+17, PRINT+18
^AUPNVSIT("B"	SLOOP+1, SLOOP+3
^DPT - [#2]	PRINT+16
^TMP("ABM-VTPB"	COMPUTE+1!, DATA+6*

Label References

Name	Line Occurrences
DATA	SLOOP+3
HD	PRINT+6
HDB	PRINT+1
START	END+3, END+5
SUB	PRINT+8, PRINT+25
XIT	PRINT+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABM	ABMRVTPB+3!, PRINT+4, PRINT+5, PRINT+7
ABM("CLIN"	PRINT+14*, PRINT+20
ABM("CNT"	PRINT+2, PRINT+23
ABM("CNT1"	PRINT+2, PRINT+23, SUB, SUB+2, SUB+3*
ABM("CNT2"	PRINT+2, PRINT+23, SUB+3*
ABM("HD"	END+7*
ABM("HRN"	PRINT+17, PRINT+18, PRINT+19
ABM("I"	HDB, SUB+3
ABM("NODX"	SEL+2*
ABM("PDFN"	PRINT+13*, PRINT+16, PRINT+17, PRINT+18
ABM("PG"	COMPUTE+1, PRINT+1, HDB*
ABM("SCAT"	PRINT+11*
ABM("STA"	SEL*, END+7, COMPUTE+1
ABM("SUBR"	COMPUTE+1*
ABM("T"	PRINT+7*, PRINT+23, PRINT+24
ABM("TOT"	PRINT+2, PRINT+23
ABM("TOT1"	PRINT+2, PRINT+24, SUB+3*
ABM("TOT2"	PRINT+2, PRINT+24, SUB+3*
ABM("TPB"	PRINT+10*, PRINT+22
ABM("TXT"	SEL+1, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+14
ABM("VDFN"	PRINT+12*, PRINT+21
ABM("VLOC"	PRINT+3, PRINT+8, PRINT+9, PRINT+17
ABM("Z"	PRINT+4*, PRINT+5
>> ABMP("CLIN"	DATA+4*, DATA+6
>> ABMP("PDFN"	DATA+5*, DATA+6
>> ABMP("SCAT"	DATA+3*, DATA+6
>> ABMP("TPB"	DATA+1*, DATA+6
>> ABMP("VLOC"	DATA+2*, DATA+6
>> ABMQ("NS"	END+11*
>> ABMQ("RC"	END+9*
>> ABMQ("RP"	END+12*
>> ABMQ("RX"	END+10*
>> ABMV	SLOOP, SLOOP+1, SLOOP+3
>> ABMVIEN	SLOOP+2, SLOOP+3, DATA+1, DATA+2, DATA+3, DATA+4, DATA+5, DATA+6
ABMY	ABMRVTPB+3!
ABMY("DT"	SEL+3, START+6, END+4*, END+5, SLOOP, SLOOP+1
DIR	END+2!
DIR("A"	START+1, END
DIR(0	START+2*
>> DIROUT	START+5, END+6, PRINT+5, PRINT+6, HD
>> DIRUT	START+5, END+3
>> DTOUT	START+5, END+6, PRINT+5, PRINT+6, HD
>> DUOUT	START+5, END+6, PRINT+5, PRINT+6, HD
DUZ(2	PRINT+18
IOSL	PRINT+6
U	DATA+6, PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12, PRINT+13, PRINT+14, PRINT+16 , PRINT+17, PRINT+18
>> Y	START+6, END+4

Customize PDF page

Package: Third Party Billing

Routine: ABMRVTPB

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
ALL	;ALL STATUS
COMPUTE	;EP - Entry Point for Setting up Data
SUB
SLOOP
START
XIT	;EXIT POINT
HDB
PRINT	;EP for printing data
END
SEL
DATA	;
HD