Routine: ABPVRX03

Package	Total	Call Graph
VA Fileman	1	^%DT

Entry Points

External References

Name	Field # of Occurrence
^%DT	START+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$J(ABPVHRN,6),?8,ABPVNAME,?40,Y Line Location: C1+5
Function Call: WRITE	Prompt: !!,?8,ZINSNM,?40,$P(ABPVPRV,"^",2) Line Location: PI4+0
Function Call: WRITE	Prompt: !,?8,$P(ABPVPRV,"^",4) Line Location: PI4+1
Function Call: WRITE	Prompt: ?40,$P(^AUTTRLSH($P(ABPVPRV,"^",5),0),"^") Line Location: PI4+1
Function Call: WRITE	Prompt: ! Line Location: PI4+2
Function Call: WRITE	Prompt: !,?13,"** TOTAL DRUG COST ** = ",?42,$J(ABPVRXZM,6,2),! Line Location: SCRIPSUM+1
Function Call: WRITE	Prompt: @IOF Line Location: PRNT+0
Function Call: WRITE	Prompt: !,Y Line Location: PRNT+3
Function Call: WRITE	Prompt: ?13,$P(^PSDRUG(ABPVDDFN,0),"^") Line Location: PRNT+4
Function Call: WRITE	Prompt: ?42,ABPVNDC Line Location: PRNT+5
Function Call: WRITE	Prompt: !,?13,ABPVQTY_" "_ABPVDU Line Location: PRNT+7
Function Call: WRITE	Prompt: ?56,"PRICING INFO NOT CURRENT",! Line Location: PRNT+9
Function Call: WRITE	Prompt: ?56,"PRICING INFO NOT ON FILE",! Line Location: PRNT+11
Function Call: WRITE	Prompt: " at $"_$J(ABPVPPDU,6,3)_" each",?56,$J(ABPVCST,6,2),?64,$J(ABPVFEE,6,2),?72,$J(ABPVBILL,6,2),! Line Location: PRNT+13
Function Call: WRITE	Prompt: @IOF Line Location: HEAD1+0
Function Call: WRITE	Prompt: $P(^DIC(4,ABPV("SITE"),0),"^"),?57,ABPVDTP,?70,"Page ",ABPVPG,! Line Location: HEAD1+1
Function Call: WRITE	Prompt: !,"Prescriptions between "_ABPVSDY_" and "_ABPVFDY_" for Prvt. Insurance Eligibles." Line Location: HEAD1+2
Function Call: WRITE	Prompt: !!,?2,"HRCN",?8,"Patient Name",?40,"DOB",!!,?8,"Insurer",?40,"Policy Number",!,?8,"Name of Insured",?40,"Relationship" Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,ABPV80D Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,"Fill Date",?13,"Drug",?42,"NDC Code",?58,"Cost",?66,"Fee",?73,"Total",!,"-----------",?13,"---------------------------",?42,"------------",?58,"------",?64,"------",?72,"------" Line Location: SUBHD+1
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	DONE
^%ZTSK - [#14.4]	START+7, SCRIP, C2+2
^AUPNPRVT - [#9000006]	C2, PI
^AUTNINS - [#9999999.18]	PI+3, PI+4
^AUTTRLSH - [#9999999.36]	PI4+1
^DD("DD"	START+4, C1+1, PRNT+2
^DIC(4 - [#4]	HEAD1+1
^DPT - [#2]	C1+1
^PSDRUG - [#50]	PRNT+4, PRNT+5, PRNT+6, PRNT+8, PRNT+10
^PSRX - [#52]	PRNT+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ABPV("BEG"	START+1
>> ABPV("END"	START+1
>> ABPV("SITE"	HEAD1+1
>> ABPV("TASK"	START+1
>> ABPV80D	START+3*, HEAD1+4
ABPVBILL	PRNT+12*, PRNT+13, PRNTEND, DONE+1!
ABPVCST	PRNT+12*, PRNT+13, DONE+1!
ABPVD0D	DONE+1!
ABPVDDFN	PRNT+1*, PRNT+4, PRNT+5, PRNT+6, PRNT+8, PRNT+10, DONE+1!
ABPVDFN	START+7*, C1, C1+3, C1+4, SCRIP, C2+1, C2+2, PI, PRNTENDZ, DONE+1!
ABPVDPT	C1+1*, DONE+1!
ABPVDT	SCRIP*, C2+2, PI+1, PI+2, PRNT+2, DONE+1!
ABPVDTP	START+4*, HEAD1+1, DONE+1!
ABPVDU	PRNT+6*, PRNT+7, DONE+1!
ABPVFD	START+1*, START+4, DONE+1!
ABPVFDY	START+4*, HEAD1+2, DONE+1!
ABPVFEE	START+5*, PRNT+12, PRNT+13, DONE+1!
ABPVHRN	C1*, C1+5, DONE+1!
>> ABPVN0	PRNT+1*
>> ABPVNAME	C1+1*, C1+5
>> ABPVNDC	PRNT+5*
>> ABPVPDFN	C2+2*, PRNT+1
>> ABPVPG	START+6, HEAD, HEAD1+1
>> ABPVPPDU	PRNT+10*, PRNT+11, PRNT+12, PRNT+13
ABPVPRIV	DONE+1!
>> ABPVPRV	PI*, PI+1, PI+3, PI+4, PI4, PI4+1
ABPVPRVE	PI+1*, DONE+1!
>> ABPVPRVI	C2*, PI
ABPVPRVS	PI+1*, PI+2, DONE+1!
ABPVQTY	PRNT+1*, PRNT+7, PRNT+12, DONE+1!
ABPVRXZM	START+5, SCRIPSUM+1, PRNTEND*, DONE+1!
ABPVS	DONE+1!
>> ABPVSD	START+1*, START+4
>> ABPVSDY	START+4*, HEAD1+2
>> DFN	C1*, C1+1, C2, PI
DT	START+2*, START+4
>> I	START+7*
IOF	PRNT, HEAD1, DONE
IOSL	PRNT
J	C2*, DONE+1!
K	SCRIP*, DONE+1!
L	C2+2*, DONE+1!
X	START+2*, DONE+1!
Y	START+2, START+4, C1+1, C1+5, PRNT+2*, PRNT+3, DONE+1!
ZDFNS	START+6, C1+3, C1+4, DONE+1!
ZFL1	START+5, C2+1, PI, PRNTENDZ, DONE+1!
ZINSNM	PI+3, PI+4, PI4, DONE+1!
ZTSK	START+1*, START+7, SCRIP, C2+2, DONE+1!
ZUPDATE	PRNT+8*, PRNT+9, DONE+1!

Customize PDF page

Package: Third Party Tracking

Routine: ABPVRX03

Information

Source Information

Call Graph

Call Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
SCRIP
PRNTENDZ
PRNTEND
HEAD1
PRNT
HEAD
SUBHD	;
SCRIPSUM	;PRINT SUM OF DRUG COST
START	;
DONE
C2
C1
PI
PI4

Name	Line Occurrences
C1	START+7
C2	SCRIP
DONE	START+7
HEAD	C1+3
HEAD1	HEAD
PI	C2
PI4	PI+3
PRNT	C2+2
PRNTENDZ	PRNT+9, PRNT+11
SCRIPSUM	SCRIP+1
SUBHD	C2+1, PRNT