Routine: PSDNMRP

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 REPRINT

Entry Points

Name	Comments	DBIA/ICR reference
END
DQQ
EOR	;PSDNMRP - CSM Label Reprint; 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+13
^%ZISC	DQQ
^%ZTLOAD	ST+17
D^DIQ	DQ+19
^DIR	ST+10, PAGE+2
CII^PSDNMU	ST+8
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+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?5,"This report lists CS Prescriptions with label reprint" Line Location: ST+3
Function Call: WRITE	Prompt: !,?5,"request activity within the issue date range entered.",!! Line Location: ST+4
Function Call: WRITE	Prompt: ! Line Location: ST+8
Function Call: WRITE	Prompt: ! Line Location: ST+10
Function Call: WRITE	Prompt: " <No report>",! Line Location: ST+11
Function Call: WRITE	Prompt: !!,?9,"This report should be queued to run during non-peak hours.",! Line Location: ST+12
Function Call: WRITE	Prompt: " <No device selected.>" Line Location: ST+13
Function Call: WRITE	Prompt: !!?5,"TASK #",$G(ZTSK)," QUEUED!",! Line Location: ST+17
Function Call: WRITE	Prompt: @IOF,$$CJ^XLFSTR("CS Monitoring - Label Reprint Request Report",IOM) Line Location: HD+2
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(PSDL,IOM) Line Location: HD+6
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("Issue Date range: "_$P(PSDISD,U,2)_" thru "_$P(PSDIED,U,2),IOM) Line Location: HD+7
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(PSDL,IOM) Line Location: HD+10
Function Call: WRITE	Prompt: !,"Division: ",$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: !!,PSDRG Line Location: PRT+11
Function Call: WRITE	Prompt: !,$P(PSDY,U,1),?15,$P(PSDY,U,2),?40,$P(PSDY,U,3) Line Location: PRT+18
Function Call: WRITE	Prompt: !,?15,$P(PSDY,U,4) Line Location: PRT+19
Function Call: WRITE	Prompt: ! Line Location: DQQ+0
Function Call: WRITE	Prompt: !,"RX#",?15,"Activity Log Date",?40,"Initiator of Activity" Line Location: PHD+1
Function Call: WRITE	Prompt: !,?15,"Activity Log Comment" Line Location: PHD+2
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("_",IOM) Line Location: PHD+3
Function Call: WRITE	Prompt: ! Line Location: PAGE+2
Routine Call	DIR Line Location: ST+10 PAGE+2
Routine Call	%ZIS Line Location: ST+13

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
DQ	ST+18
DQQ	PRT+2
END	ST+5, ST+6, ST+8, ST+11, ST+13
HD	PRT+3, PRT+7, PRT+10, PRT+17
PAGE	PRT+10, PRT+17, PRT+20
PHD	PRT+3, PRT+7, PRT+10, PRT+17

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+13*
DIR	ST+2~, PAGE+1~
DIR("A"	ST+10*
DIR("B"	ST+10*
DIR(0	ST+10, 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+18
IO("Q"	ST+13!, ST+14, ST+18, ST+19!
IOF	HD+2
IOM	HD+2, HD+6, HD+7, HD+10, HD+14, PHD+3
IOP	ST+19!
IOSL	PRT+10, PRT+17
IOST	DQ+3, PAGE+2
POP	ST+2~, ST+13
PSDA	DQ+1~, DQ+13, DQ+17, DQ+18, DQ+19, DQ+20, DQ+21, PRT+14, PRT+15*, PRT+16
PSDCII	ST+1~, HD+9, HD+10, DQ+13, DQQ!
PSDD	HD+1~, HD+4, HD+5, HD+9*
PSDDTN	ST+1~, ST+6*
PSDED	ST+1~, ST+7
PSDFD	DQ+1~, DQ+4, DQ+5, DQ+7
PSDI	DQ+1~, DQ+15, DQ+16, DQ+17, DQ+21
PSDIDT	DQ+1~
PSDIED	ST+1~, ST+7*, HD+7, DQ+5, DQQ!
PSDISD	ST+1~, ST+7*, HD+7, DQ+4, DQQ!
PSDIV	HD+11, DQ+1~, PRT+3, PRT+5, PRT+6*, PRT+9, PRT+13, PRT+15, PRT+16, PRT+20
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+8, DQ+1~, PRT+1, PRT+6, PRT+9, PRT+10, PRT+13 , PRT+15, PRT+17, PRT+20, PAGE+3
PSDP	DQ+1~, DQ+12, DQ+13, DQ+14
PSDPG	HD+12, HD+13, DQ+1~, PRT+1, PRT+7*
PSDRG	DQ+1~, DQ+11, DQ+13, DQ+21, PRT+8, PRT+9*, PRT+11, PRT+13, PRT+15, PRT+16
PSDSD	ST+1~, ST+6, ST+7
PSDUZ	DQ+1~, DQ+20*, DQ+21
PSDX	DQ+1~, DQ+6, DQ+7, DQ+8, DQ+9, DQ+16, DQ+17, DQ+21, PRT+12, PRT+13 , PRT+15, PRT+16
PSDX0	DQ+1~, DQ+8*, DQ+11, DQ+21
PSDX2	DQ+1~, DQ+9*, DQ+10, DQ+21
PSDXOR1	DQ+1~
PSDY	DQ+1~, DQ+13, PRT+16, PRT+18, PRT+19
U	HD+5, HD+7, DQ+10, DQ+11, DQ+13, DQ+18, DQ+19, DQ+20, DQ+21, PRT+18 , PRT+19
X	ST+1~, HD+1~, DQ+1~, PAGE+1~
Y	ST+1~, ST+11, HD+1~, DQ+1~, DQ+19*, PAGE+1~
ZTDESC	ST+2~, ST+15*
ZTIO	ST+2~
ZTRTN	ST+2~, ST+15*
ZTSAVE	ST+2~
ZTSAVE("PSDCII"	ST+16*
ZTSAVE("PSDIED"	ST+16*
ZTSAVE("PSDISD"	ST+16*
ZTSAVE("PSDODIV("	ST+16*
ZTSK	ST+2~, ST+17

Customize PDF page

Package: Controlled Substances

Routine: PSDNMRP

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: