Routine: PSORPTS1

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	^%DT ^DIR

Package

Total

Call Graph

^%DT ^DIR

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSO COMMON PSORPTS

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SDT+0
Function Call: WRITE	Prompt: ! Line Location: EDT+0
Function Call: WRITE	Prompt: !!?30,">>>>> NO DISPENSED DRUGS FOUND <<<<<" Line Location: RPT+7
Function Call: WRITE	Prompt: !,$J(DRG,5)," ",$S($D(^PSDRUG(DRG,0)):$P(^(0),"^"),1:"********"),?52,$J(QTY,12),?64,$J($P(^TMP($J,DV,0,DRG,QTY),"^"),7) Line Location: RPT+11
Function Call: WRITE	Prompt: ! Line Location: END+0
Function Call: WRITE	Prompt: @IOF,"MOST COMMONLY DISPENSED DRUGS FROM ",$E(SDT,4,5),"-",$E(SDT,6,7),"-",$E(SDT,2,3)," THRU ",$E(EDT,4,5),"-",$E(EDT,6,7),"-",$E(EDT,2,3),?70,$E(DT,4,5),"-",$E(DT,6,7),"-",$E(DT,2,3) Line Location: HD+1
Function Call: WRITE	Prompt: !?15,"MINIMUM DRUG COUNT OF "_PSMIN,?70,"Pg: "_PG,!,"ENTRY",!,"NUMBER",?10,"DRUG",?55,"QUANTITY",?68,"FILLS",! Line Location: HD+2
Function Call: WRITE	Prompt: "-" Line Location: HD+2
Routine Call	DIR Line Location: P0+1 HD
Routine Call	%ZIS Line Location: P0+2

Name	Line Occurrences (* Changed, ! Killed)
^PS(59 - [#59]	RPT+3, HD+3
^PSDRUG - [#50]	RPT+3, RPT+5, RPT+11
^PSRX - [#52]	RPT+2, P1+1
^PSRX("AD"	RPT+1
^TMP($J	RPT!, RPT+4, RPT+6, RPT+7, RPT+9, RPT+10, RPT+11, END!, P1, P1+1

Name	Field # of Occurrence
%DT	SDT, EDT!, END!
%DT("A"	SDT, EDT
%DT(0	SDT*
%ZIS	P0+2!*
DAT	END!
DIR	P0+1!, END!, HD!
DIR("A"	P0*
DIR("B"	P0*
DIR(0	P0, HD
DIROUT	END!
DIRUT	P0+1, RPT+9, RPT+10, RPT+11, END!, HD
DRG	RPT+3, RPT+11, END!, P1, P1+1
DT	HD+1
DTOUT	END!
DUOUT	END!
DV	RPT+3, RPT+4, RPT+6, RPT+8, RPT+9, RPT+10, RPT+11, END!, P1, P1+1 , HD+3
>> DVH	RPT+8, RPT+9, RPT+11
EDT	EDT*, RPT+1, END!, P1, P1+1, HD+1
G	P0+3*, END!
I	RPT+4*, RPT+5, RPT+6, END!
II	RPT+6, RPT+8, RPT+10*, RPT+11, END!
IO	RPT
IO("Q"	P0+3, P0+4!
IOF	HD+1
ION	P0+2
IOP	P0+2!*
IOSL	RPT+11
IOST	HD
IRN	RPT+1*, RPT+2, END!, P1+1
J	RPT+6, RPT+10, END!
PFT	RPT, RPT+1, END!, P1, P1+1
PG	RPT, END!, HD, HD+1, HD+2
POP	P0+2!
PSDT	RPT, RPT+1, END+1!
PSMIN	P0+1*, RPT+6, END!, HD+2
PSOION	P0+2*!, P0+3!, END!
QTY	RPT+11*, END!
SDT	SDT*, RPT, END!, P1, P1+1, HD+1
ST	RPT+6, RPT+9, RPT+10, RPT+11, END!
T	RPT+10*, RPT+11, END!
X	SDT, EDT, RPT*, END!
Y	SDT, EDT, P0+1, RPT+2, RPT+3, RPT+5*, RPT+6, END!, P1, P1+1
Y2	RPT+2*, RPT+3, END+1!, P1
ZI	END!, HD+2*
>> ZTDESC	P0+4*
>> ZTQUEUED	END
>> ZTREQ	END*
>> ZTRTN	P0+3*
>> ZTSAVE(	P0+3*
ZTSK	P0+2!, P0+4!

Information