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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSDNMWE

Package: Controlled Substances

Routine: PSDNMWE


Information

PSDNMWE ;DOIFO/CMS - CSM No Visits within 12 Months ;18 Dec 02

Source Information

Source file <PSDNMWE.m>

Call Graph

Call Graph Total: 11

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  

Caller Graph

Caller Graph Total: 1

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