Routine: PSDNMSP

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT ($$CJ,$$REPEAT)^XLFSTR
VA Fileman	3	NOW^%DTC D^DIQ ^DIR
Controlled Substances	1	(CII,DATE,DIV)^PSDNMU

Package	Total	Caller Graph
Controlled Substances	1	PSD NM RX SAME PERSON

Entry Points

Name	Comments	DBIA/ICR reference
END
DQQ
EOR	;PSDNMSP - CSM RX Processed by Same Person; 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
NOW^%DTC	HD+13
^%ZIS	ST+12
^%ZISC	DQQ
^%ZTLOAD	ST+16
D^DIQ	DQ+19
^DIR	ST+9, PAGE+2
CII^PSDNMU	ST+7
DATE^PSDNMU	ST+6
DIV^PSDNMU	ST+5
$$FMTE^XLFDT	HD+13
$$CJ^XLFSTR	HD+2, HD+6, HD+7, HD+10
$$REPEAT^XLFSTR	HD+14, PHD+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?5,"This report lists CS prescriptions that were entered," Line Location: ST+3
Function Call: WRITE	Prompt: !,?5,"finished and released by the same person.",!! Line Location: ST+4
Function Call: WRITE	Prompt: ! Line Location: ST+9
Function Call: WRITE	Prompt: " <No report>",! Line Location: ST+10
Function Call: WRITE	Prompt: !!,?9,"This report should be queued to run during non-peak hours.",! Line Location: ST+11
Function Call: WRITE	Prompt: " <No device selected.>" Line Location: ST+12
Function Call: WRITE	Prompt: !!?5,"TASK #",$G(ZTSK)," QUEUED!",! Line Location: ST+16
Function Call: WRITE	Prompt: @IOF,$$CJ^XLFSTR("CS Monitoring - RX by Same Person Report",IOM) Line Location: HD+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(PSDL,IOM) Line Location: HD+6
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Fill Date range: "_$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+10
Function Call: WRITE	Prompt: !,"Station: ",$E($G(PSDIV),1,13),?25,"Report Run Date: " Line Location: HD+11
Function Call: WRITE	Prompt: $$FMTE^XLFDT(%),?70,"PAGE: ",PSDPG Line Location: HD+13
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",IOM) Line Location: HD+14
Function Call: WRITE	Prompt: !!,?10,"Compiling report, please wait ..." Line Location: DQ+3
Function Call: WRITE	Prompt: !!,?10,"<<<< NO DATA FOUND >>>>",! Line Location: PRT+4
Function Call: WRITE	Prompt: !!,PSDUZ Line Location: PRT+11
Function Call: WRITE	Prompt: !,$P(PSDY,U,1),?25,$P(PSDY,U,2),?40,$P(PSDY,U,3) Line Location: PRT+16
Function Call: WRITE	Prompt: ! Line Location: DQQ+0
Function Call: WRITE	Prompt: !,"Pharmacy User" Line Location: PHD+0
Function Call: WRITE	Prompt: !,"RX#",?25,"Fill Date",?40,"Drug Name" 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+9 PAGE+2
Routine Call	%ZIS Line Location: ST+12

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(59 - [#59]	DQ+20
^PSDRUG - [#50]	DQ+11
^PSRX - [#52]	DQ+8, DQ+9, DQ+17
^PSRX("AD"	DQ+5, DQ+7
^TMP("PSDNMSP"	DQ+2!, DQ+20*, PRT+2, PRT+6, PRT+9, PRT+13, PRT+14, PRT+17, DQQ!
^VA(200 - [#200]	DQ+20

Label References

Name	Line Occurrences
DQ	ST+17
DQQ	PRT+2
END	ST+5, ST+6, ST+7, ST+10, ST+12
HD	PRT+3, PRT+7, PRT+10, PRT+15
PAGE	PRT+10, PRT+15, PRT+17
PHD	PRT+3, PRT+7, PRT+10, PRT+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ST+1~, HD+1~, HD+13, DQ+1~
%ZIS	ST+2~, ST+12*
DIR	ST+2~, PAGE+1~
DIR("A"	ST+9*
DIR("B"	ST+9*
DIR(0	ST+9, PAGE+2
DIROUT	ST+2~
DIRUT	ST+2~, PAGE+1~, PAGE+3
DTOUT	ST+2~, PAGE+1~, PAGE+3
DUOUT	ST+2~, PAGE+1~
IO	ST+17
IO("Q"	ST+12!, ST+13, ST+17, ST+18!
IOF	HD+2
IOM	HD+2, HD+6, HD+7, HD+10, HD+14, PHD+2
IOP	ST+18!
IOSL	PRT+10, PRT+15
IOST	DQ+3, PAGE+2
POP	ST+2~, ST+12
PSDA	DQ+1~, DQ+13*
PSDCII	ST+1~, ST+7, HD+9, HD+10, DQ+13, DQQ!
PSDD	HD+1~, HD+4, HD+5, HD+9*
PSDDTN	ST+1~, ST+6*
PSDED	ST+1~, HD+7, DQ+5, DQQ!
PSDFD	DQ+1~, DQ+4, DQ+5, DQ+7, DQ+19
PSDIDT	DQ+1~, DQ+19*, DQ+20
PSDIV	HD+11, DQ+1~, PRT+3, PRT+5, PRT+6*, PRT+9, PRT+13, PRT+14, PRT+17
PSDL	HD+1~, HD+3, HD+5, HD+6, HD+8, HD+9, HD+10
PSDODIV	ST+1~, DQQ!
PSDODIV(	HD+5, DQ+10
PSDODIV(0	ST+5
PSDOUT	ST+1~, ST+5, ST+6, ST+7, DQ+1~, PRT+1, PRT+6, PRT+9, PRT+10, PRT+13 , PRT+15, PRT+17, PAGE+3
PSDP	DQ+1~, DQ+12, DQ+13, DQ+14
PSDPG	HD+12, HD+13, DQ+1~, PRT+1, PRT+3, PRT+7
PSDRG	DQ+1~, DQ+11*, DQ+13, DQ+20
PSDSD	ST+1~, ST+6, HD+7, DQ+4, DQQ!
PSDUZ	DQ+1~, DQ+15, DQ+16, DQ+18, DQ+20, PRT+8, PRT+9*, PRT+11, PRT+13, PRT+14
PSDX	DQ+1~, DQ+6, DQ+7, DQ+8, DQ+9, DQ+17, DQ+20, PRT+12, PRT+13, PRT+14
PSDX0	DQ+1~, DQ+8*, DQ+11, DQ+15, DQ+20
PSDX2	DQ+1~, DQ+9*, DQ+10, DQ+16, DQ+20
PSDXOR1	DQ+1~, DQ+17*, DQ+18
PSDY	DQ+1~, DQ+13, PRT+14, PRT+16
U	HD+5, HD+7, DQ+10, DQ+11, DQ+13, DQ+15, DQ+16, DQ+18, DQ+20, PRT+16
X	ST+1~, HD+1~, DQ+1~, PAGE+1~
Y	ST+1~, ST+10, HD+1~, DQ+1~, DQ+19*, PAGE+1~
ZTDESC	ST+2~, ST+14*
ZTIO	ST+2~
ZTRTN	ST+2~, ST+14*
ZTSAVE	ST+2~
ZTSAVE("PSDCII"	ST+15*
ZTSAVE("PSDED"	ST+15*
ZTSAVE("PSDODIV("	ST+15*
ZTSAVE("PSDSD"	ST+15*
ZTSK	ST+2~, ST+16

Customize PDF page

Package: Controlled Substances

Routine: PSDNMSP

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: