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: PSDNMSP

Package: Controlled Substances

Routine: PSDNMSP


Information

PSDNMSP ;DOIFO/CMS - CSM RX Processed by Same Person ;18 Dec 02

Source Information

Source file <PSDNMSP.m>

Call Graph

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

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Controlled Substances 1 PSD NM RX SAME PERSON  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
ST ;CS Monitoring OPTION ENTRY
END
HD ;Report heading
DQ ;Report Run
PRT ;Report print
DQQ
PHD
PAGE ;
EOR ;PSDNMSP - CSM RX Processed by Same Person; 18 DEC 02

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