Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSDNMRP

Package: Controlled Substances

Routine: PSDNMRP


Information

PSDNMRP ;DOIFO/CMS - CSM Label Reprint ;18 Dec 02

Source Information

Source file <PSDNMRP.m>

Call Graph

Call Graph Total: 9

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  

Caller Graph

Caller Graph Total: 1

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All