Routine: PSOATRD

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

Entry Points

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

External References

Name	Field # of Occurrence
DD^%DT	PRTD
^%ZIS	PSOATRD+3
^%ZISC	END
^%ZTLOAD	PSOATRD+8
^DIR	START+16, END+2, PRT+2, T1, SUMM+4
$$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: @IOF Condition for execution: $E(IOST)="P" Line Location: START+15
Function Call: WRITE	Prompt: @IOF Line Location: START+16
Function Call: WRITE	Prompt: !,"INTERNET REFILL BY DATE - "_$S(PSODS="D":" Detail",1:"Summary") Line Location: HD+1
Function Call: WRITE	Prompt: ?41,$P(RDATE,":",1,2) 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: !!,"Date Processed",?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+2
Function Call: WRITE	Prompt: ?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+6
Function Call: WRITE	Prompt: !,Y Line Location: PRTD+0
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: !,"Count: ",PSOT(2),! Line Location: FO1+2
Function Call: WRITE	Prompt: !!,"NO DATA FOUND TO PRINT FOR THIS RANGE.",! Line Location: SUMM+3
Function Call: WRITE	Prompt: @IOF Line Location: SUMM+4
Routine Call	DIR Line Location: START+16 END+2 PRT+2 T1 SUMM+4
Routine Call	%ZIS Line Location: PSOATRD+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.43 - [#52.43]	START+8, START+9, PRT+4, SET1+1
^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+2, SET+2*, SET1+1, SUMM+1, SUMM+3, SUMM+5, SUMM+6, SUMM+7

Label References

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOATRD

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: