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

Package: Controlled Substances

Routine: PSDNMRP


Information

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

Source Information

Source file <PSDNMRP.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 ;PSDNMRP - CSM Label Reprint; 18 DEC 02

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