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

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

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
Info |  Source |  Entry Points |  Interaction Calls