Routine: PSDNMWE

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT ($$CJ,$$REPEAT)^XLFSTR
VA Fileman	4	(C,NOW)^%DTC D^DIQ EN^DIQ1 ^DIR
Controlled Substances	1	(CII,DATE,DISD,DIV)^PSDNMU
Registration	1	(DEM,IN5,KVA,SDA)^VADPT

Package	Total	Caller Graph
Controlled Substances	1	PSD NM RX WITHOUT VA

Entry Points

Name	Comments	DBIA/ICR reference
END
DQQ
EOR	;PSDNMWE - CSM No Visits in 12 Months; 18 DEC 02
ST	;CS Monitoring OPTION ENTRY
PRT	;Report print
PHD	;
PAGE	;
HD	;Report heading
DQ	;Report Run

External References

Name	Field # of Occurrence
C^%DTC	DQ+25, DQ+28, DQ+32
NOW^%DTC	HD+19
^%ZIS	ST+17
^%ZISC	DQQ
^%ZTLOAD	ST+21
D^DIQ	DQ+42
EN^DIQ1	DQ+45
^DIR	ST+10, ST+14, PAGE+2
CII^PSDNMU	ST+11
DATE^PSDNMU	ST+7
DISD^PSDNMU	ST+8
DIV^PSDNMU	ST+6
DEM^VADPT	DQ+19
IN5^VADPT	DQ+22
KVA^VADPT	DQ+10, DQ+47
SDA^VADPT	DQ+34
$$FMTE^XLFDT	HD+19
$$CJ^XLFSTR	HD+2, HD+6, HD+7, HD+13, HD+16
$$REPEAT^XLFSTR	HD+20, PHD+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?5,"This report lists released RXs without a visit within 12 months of the" Line Location: ST+3
Function Call: WRITE	Prompt: !,?5,"RX Release date. Excluding RXs released on the same day as a discharge" Line Location: ST+4
Function Call: WRITE	Prompt: !,?5,"and within a user defined discharge date range.",!! Line Location: ST+5
Function Call: WRITE	Prompt: ! Line Location: ST+8
Function Call: WRITE	Prompt: ! Line Location: ST+9
Function Call: WRITE	Prompt: ! Line Location: ST+14
Function Call: WRITE	Prompt: " <No report>",! Line Location: ST+15
Function Call: WRITE	Prompt: !!,?9,"This report should be queued to run during non-peak hours.",! Line Location: ST+16
Function Call: WRITE	Prompt: " <No device selected.>" Line Location: ST+17
Function Call: WRITE	Prompt: !!?5,"TASK #",$G(ZTSK)," QUEUED!",! Line Location: ST+21
Function Call: WRITE	Prompt: @IOF,$$CJ^XLFSTR("CS Monitoring - No Visits within 12 months of RX Release Report",IOM) Line Location: HD+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(PSDL,IOM) Line Location: HD+6
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Prescriptions released: "_$P(PSDSD,U,2)_" thru "_$P(PSDED,U,2),IOM) Line Location: HD+7
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(PSDL,IOM) Line Location: HD+13
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(PSDL,IOM) Line Location: HD+16
Function Call: WRITE	Prompt: !,"Division: ",$E($G(PSDIV),1,13),?25,"Report Run Date: " Line Location: HD+17
Function Call: WRITE	Prompt: $$FMTE^XLFDT(%),?70,"PAGE: ",PSDPG Line Location: HD+19
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",IOM) Line Location: HD+20
Function Call: WRITE	Prompt: !!,?10,"Compiling report, please wait ..." Line Location: DQ+5
Function Call: WRITE	Prompt: !!,?10,"<<<< NO DATA FOUND >>>>",! Line Location: PRT+4
Function Call: WRITE	Prompt: !!,?12,"RX PATIENT STATUS: ",PSDS Line Location: PRT+11
Function Call: WRITE	Prompt: !!,"PATIENT NAME: ",PSDRG Line Location: PRT+15
Function Call: WRITE	Prompt: !,$P(PSDY,U,1),?12,$P(PSDY,U,2),?40,$P(PSDY,U,3) Line Location: PRT+20
Function Call: WRITE	Prompt: !,?12,"*Date of Death "_$P(PSDY,U,4)_" before RX Release Date!" Line Location: PRT+21
Function Call: WRITE	Prompt: ! Line Location: DQQ+0
Function Call: WRITE	Prompt: !,"RX#",?12,"Release Date",?40,"Drug" Line Location: PHD+1
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("_",IOM) Line Location: PHD+2
Function Call: WRITE	Prompt: ! Line Location: PAGE+2
Routine Call	DIR Line Location: ST+10 ST+14 PAGE+2
Routine Call	%ZIS Line Location: ST+17

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSRX - [#52]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	DQ+43
^PSDRUG - [#50]	DQ+14
^PSRX - [#52]	DQ+11, DQ+12
^PSRX("AL"	DQ+7, DQ+9
^TMP("PSDNMWE"	DQ+4!, DQ+21, DQ+23, DQ+46, PRT+2, PRT+6, PRT+9, PRT+13, PRT+17, PRT+18 , PRT+22, DQQ!
^UTILITY("VASD"	DQ+36, DQ+37, DQ+40

Label References

Name	Line Occurrences
DQ	ST+22
DQQ	PRT+2
END	ST+6, ST+7, ST+8, ST+10, ST+11, ST+15, ST+17
HD	PRT+3, PRT+7, PRT+10, PRT+14, PRT+19
PAGE	PRT+10, PRT+14, PRT+19, PRT+22
PHD	PRT+3, PRT+7, PRT+10, PRT+14, PRT+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ST+1~, HD+1~, HD+19, DQ+3~
%DT	DQ+3~
%ZIS	ST+1~, ST+17*
D0	DQ+1~
DA	DQ+1~, DQ+44*
DFN	DQ+1~, DQ+19*, DQ+21, DQ+23, DQ+43
DIC	ST+2~, DQ+1~, DQ+44*
DIQ	DQ+1~, DQ+44*
DIQ(0	DQ+44*
DIR	ST+2~, ST+10!, PAGE+1~
DIR("A"	ST+9, ST+14
DIR("B"	ST+10, ST+14
DIR(0	ST+10, ST+14, PAGE+2*
DIROUT	ST+2~
DIRUT	ST+2~, PAGE+1~, PAGE+3
DR	DQ+1~, DQ+44*
DTOUT	ST+2~, ST+10, PAGE+1~, PAGE+3
DUOUT	ST+2~, PAGE+1~
IO	ST+22
IO("Q"	ST+17!, ST+18, ST+22, ST+23!
IOF	HD+2
IOM	HD+2, HD+6, HD+7, HD+13, HD+16, HD+20, PHD+2
IOP	ST+23!
IOSL	PRT+10, PRT+14, PRT+19
IOST	DQ+5, PAGE+2
POP	ST+2~, ST+17
PSDA	DQ+2~, DQ+16, DQ+42, DQ+46
PSDCII	ST+1~, ST+11, ST+12*, HD+15, HD+16, DQ+15, DQ+16, DQ+17, DQQ!
PSDD	HD+1~, HD+4, HD+5, HD+15, DQ+2~, DQ+25, DQ+26, DQ+28, DQ+29, DQ+32 , DQ+41*, DQ+46
PSDDTN	ST+1~, ST+7*
PSDED	ST+1~, HD+7, DQ+7, DQQ!
PSDFD	DQ+2~, DQ+6, DQ+7, DQ+9, DQ+20, DQ+32, DQ+33, DQ+42
PSDI	DQ+2~, DQ+37*, DQ+38
PSDIDT	DQ+2~
PSDISA	ST+1~, HD+8, HD+11, DQ+24, DQ+25, DQQ!
PSDISB	ST+1~, HD+8, HD+10, DQ+27, DQ+28, DQQ!
PSDIV	HD+17, DQ+2~, PRT+3, PRT+5, PRT+6*, PRT+9, PRT+13, PRT+17, PRT+18, PRT+22
PSDL	HD+1~, HD+3, HD+5, HD+6, HD+9, HD+10, HD+11, HD+12, HD+13, HD+14* , HD+15*, HD+16
PSDO	DQ+2~, DQ+45!
PSDO(52	DQ+46
PSDODIV	ST+1~, DQQ!
PSDODIV(	HD+5, DQ+13
PSDODIV(0	ST+6
PSDOUT	ST+1~, ST+6, ST+7, ST+8, ST+11, DQ+2~, PRT+1, PRT+6, PRT+9, PRT+10 , PRT+13, PRT+14, PRT+17, PRT+19, PRT+22, PAGE+3
PSDP	DQ+2~, DQ+15, DQ+16, DQ+17, DQ+20, DQ+22, DQ+23, DQ+24, DQ+26, DQ+27 , DQ+29, DQ+38!, DQ+39*, DQ+40
PSDPG	HD+18, HD+19, DQ+2~, PRT+1, PRT+3, PRT+7
PSDRG	DQ+2~, DQ+14, DQ+16, DQ+46, PRT+12, PRT+13*, PRT+15, PRT+17, PRT+18
PSDS	DQ+2~, PRT+8, PRT+9, PRT+11, PRT+13, PRT+17, PRT+18
PSDSD	ST+1~, ST+7, HD+7, DQ+6, DQQ!
PSDUZ	DQ+3~, DQ+43*, DQ+46
PSDX	DQ+3~, DQ+8, DQ+9, DQ+11, DQ+12, DQ+44, DQ+46, PRT+16, PRT+17, PRT+18
PSDX0	DQ+3~, DQ+11*, DQ+14, DQ+19, DQ+46
PSDX2	DQ+3~, DQ+12*, DQ+13
PSDXOR1	DQ+3~
PSDY	DQ+3~, DQ+16, DQ+32, DQ+33, DQ+35, DQ+36, DQ+37, PRT+18*, PRT+20, PRT+21
U	HD+5, HD+7, DQ+13, DQ+14, DQ+16, DQ+19, DQ+38, DQ+41, DQ+43, DQ+46 , PRT+20, PRT+21
>> VA("PID"	DQ+43
>> VADM(6	DQ+41
>> VAIP("D"	DQ+20*, DQ+21, DQ+23, DQ+26, DQ+29, DQ+41
>> VAIP(17	DQ+23, DQ+24, DQ+25, DQ+27, DQ+28
VASD	DQ+33!
VASD("F"	DQ+33*
VASD("T"	DQ+33*
VASD("W"	DQ+33*
X	ST+1~, ST+10, HD+1~, DQ+3~, DQ+25, DQ+28, DQ+32, PAGE+1~
X1	DQ+3~, DQ+25, DQ+28, DQ+32*
X2	DQ+3~, DQ+25, DQ+28, DQ+32*
Y	ST+1~, ST+11, ST+12, ST+15, HD+1~, DQ+3~, DQ+42*, PAGE+1~
ZTDESC	ST+2~, ST+19*
ZTIO	ST+2~
ZTRTN	ST+2~, ST+19*
ZTSAVE	ST+2~
ZTSAVE("PSDCII"	ST+20*
ZTSAVE("PSDED"	ST+20*
ZTSAVE("PSDISA"	ST+20*
ZTSAVE("PSDISB"	ST+20*
ZTSAVE("PSDODIV("	ST+20*
ZTSAVE("PSDSD"	ST+20*
ZTSK	ST+2~, ST+21

Customize PDF page

Package: Controlled Substances

Routine: PSDNMWE

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: