Routine: PSOATRPP

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Outpatient Pharmacy	1	$$DIV^PSOATRP
Registration	1	DEM^VADPT
VA FileMan	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
START
END
HD	;PRINT PAGE HEADING
PRT	;PRINT REPORT
FO
T1
FO1
SET
SUMM	;

External References

Name	Field # of Occurrence
^%ZIS	PSOATRPP+3
^%ZISC	END
^%ZTLOAD	PSOATRPP+8
^DIR	START+16, END+2, PRT+3, T1, SUMM+3
$$DIV^PSOATRP	START+11
DEM^VADPT	SET+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO DATA FOUND TO PRINT FOR THIS RANGE.",! Line Location: START+15
Function Call: WRITE	Prompt: !,"INTERNET REFILL REPORT BY PATIENT - "_$S(PSODS="D":"Detail",1:"Summary") Line Location: HD+1
Function Call: WRITE	Prompt: ?45,$TR(RDATE,"@"," ") Line Location: HD+2
Function Call: WRITE	Prompt: ?$S($G(PSORMZ):120,1:68),"PAGE: "_PAGE Line Location: HD+2
Function Call: WRITE	Prompt: !,$S(PSODS="D":"Not Filled - ",1:"")_"For date range "_$G(PSOSDX)_" through "_$G(PSOEDX)_" for "_$P(^PS(59,DIV,0),"^") Line Location: HD+3
Function Call: WRITE	Prompt: !!,"Patient",?35,"Filled",?48,"Not Filled",?63,"Total" Line Location: HD+4
Function Call: WRITE	Prompt: ?$S($G(PSORMZ):56,1:20),"Reason" Line Location: HD+5
Function Call: WRITE	Prompt: !,LINE Line Location: HD+6
Function Call: WRITE	Prompt: ! Line Location: PRT+3
Function Call: WRITE	Prompt: !,$P(PSOAB,"^",2)_" ("_$P(PSOAB,"^",3)_")",?35,PSO(1),?48,PSO(2),?63,(PSO(1)+PSO(2)) Line Location: PRT+5
Function Call: WRITE	Prompt: ?$S($G(PSORMZ):56,1:20),$P(PNODE,"^",10) Line Location: PRT+8
Function Call: WRITE	Prompt: !!,"COUNT: ",?35,PSOT(1),?48,PSOT(2),?63,(PSOT(1)+PSOT(2)) Line Location: FO+0
Function Call: WRITE	Prompt: ! Line Location: T1+0
Function Call: WRITE	Prompt: !," Total transactions for patient = ",PSOPAT Line Location: FO1+0
Function Call: WRITE	Prompt: !!,"NO DATA FOUND TO PRINT FOR THIS RANGE.",! Line Location: SUMM+2
Function Call: WRITE	Prompt: @IOF Line Location: SUMM+3
Routine Call	%ZIS Line Location: PSOATRPP+3
Routine Call	DIR Line Location: START+16 END+2 PRT+3 T1 SUMM+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.43 - [#52.43]	START+8, START+9, PRT+6, SUMM+7
^PS(59 - [#59]	HD+3
^PSRX - [#52]	START+10
^TMP($J	START+3!, START+5, START+7, START+13, START+15, START+17, START+18, START+19, END!, FO , FO+1, FO1, SET+2*, SUMM+1, SUMM+2, SUMM+4, SUMM+5, SUMM+6

Label References

Name	Line Occurrences
END	PSOATRPP+3, PSOATRPP+4, START+12
FO	START+13, SUMM+1
FO1	START+17
HD	START+15, PRT+3, PRT+4, SUMM+2
PRT	START+19, SUMM+4
SET	START+11
SUMM	START+12
T1	FO

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	PSOATRPP+3!*
DFN	START+1~, SET+1*
DIR	START+16!, END+2!, PRT+3!, T1!, SUMM+3!
DIR("A"	START+16, END+2, PRT+3, T1, SUMM+3*
DIR(0	START+16, END+2, PRT+3, T1, SUMM+3*
DIV	START+1~, START+13, START+15, START+17, START+18, START+19, HD+3, FO, FO+1, FO1 , SUMM+1, SUMM+2, SUMM+4, SUMM+5, SUMM+6
EOFLAG	START+1~, PRT+2, PRT+3, PRT+4*
IO	START
IO("Q"	PSOATRPP+4, PSOATRPP+5!
IOF	START+13, END, HD+1, SUMM+1, SUMM+3
ION	PSOATRPP+3
IOP	PSOATRPP+3!*
IOSL	PRT+2
IOST	START+13, START+15, END, HD+1, PRT+3, PRT+4, T1, SUMM+1, SUMM+2
LINE	START+1~, START+3*, HD+6
PAGE	START+1~, START+3, START+15, HD+1, HD+2, HD+6, SUMM+2
PNODE	START+1~, PRT+6, PRT+7, PRT+8, SUMM+7
POP	PSOATRPP+3!
PSA	START+1~, START+6, START+9, SET+2
PSAB	START+1~, START+9*, START+10, SET
PSDD	START+1~, START+18, START+19, SUMM+5, SUMM+6
PSO	START+1~
PSO(	PRT+7, SUMM+7
PSO("TOT"	START+14, START+19, FO+2
PSO(1	START+14, PRT+1, PRT+5, SUMM+1, SUMM+4*
PSO(2	START+14, PRT+1, PRT+5, SUMM+1, SUMM+4*
PSOAB	START+1~, START+19, PRT+5, PRT+6, PRT+8, SUMM+6, SUMM+7
PSOAFLAG	START+1~, START+4*
>> PSOD	START+5, START+6, START+7
PSODFN	START+1~, START+10*, SET+1
>> PSODIV	START+6, START+11
>> PSODIV(	START+5, START+6
>> PSODS	START+12, HD+1, HD+3, HD+4, PRT+1, PRT+5, FO, FO+1, SET
>> PSOED	START+8
>> PSOEDX	HD+3, FO+2
PSOERR	START+1~, START+4, START+15, END, SUMM+2*
PSOION	PSOATRPP+3*!, PSOATRPP+4!
PSON	START+1~, START+18, START+19, PRT+8
PSONAM	START+1~, START+17, START+18, START+19, SUMM+4, SUMM+5, SUMM+6
PSOP5	START+2~, PRT+7*, PRT+8
PSOP6	START+2~, PRT+7, SUMM+7
PSOPAT	START+2~, START+17, START+19, FO1
PSOQUIT	PSOATRPP+3, PSOATRPP+4, START+2~, START+3, START+13, START+17, START+18, END, PRT+2, PRT+3 , SUMM+1, SUMM+4, SUMM+5
>> PSORMZ	START+3, HD+2, HD+5, PRT+8
PSORXDV	START+2~, START+10*, START+11, SET+2
PSORXIN	START+2~, START+10, START+11, START+18, START+19, SET+2, SUMM+5*, SUMM+6
>> PSOSD	START+8
PSOSD1	START+2~, START+8*, START+9, SET+2
>> PSOSDX	HD+3, FO+2
PSOT	START+2~
PSOT(1	PRT+1, FO, SUMM+1
PSOT(2	PRT+1, FO, SUMM+1
>> RDATE	HD+2
>> VA("BID"	SET+2
>> VADM(1	SET+2
VAR	PSOATRPP+5~, PSOATRPP+6*
X	START+2~
Y	START+2~, PRT+3, PRT+7*
>> ZTDESC	PSOATRPP+5*
ZTDTH	PSOATRPP+5!
ZTIO	PSOATRPP+5!
>> ZTQUEUED	END
>> ZTREQ	END*
>> ZTRTN	PSOATRPP+5*
ZTSAVE	PSOATRPP+5!
ZTSAVE(	PSOATRPP+6*
ZTSAVE("PSODIV*"	PSOATRPP+7*
ZTSK	PSOATRPP+4!, PSOATRPP+5!, PSOATRPP+8

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOATRPP

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: