Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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 ;PSDNMWE - CSM No Visits in 12 Months; 18 DEC 02

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call