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

Package: Controlled Substances

Routine: PSDNMBA


Information

PSDNMBA ;DOIFO/CMS - CSM Balance Adjustments ;18 Dec 02

Source Information

Source file <PSDNMBA.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 ;PSDNMBA - CSM Balance Adjustments; 18 DEC 02

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?5,"This report lists Drug Accountability Balance Adjustments"
  • Line Location: ST+3
Function Call: WRITE
  • Prompt: !,?5,"made for the Inpatient Site Pharmacy Location(s) entered.",!!
  • Line Location: ST+4
Function Call: WRITE
  • Prompt: !!,"<< Drug Accountability Transaction Type, Balance Adjustment, not defined! >>"
  • Line Location: ST+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ST+8
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 - Balance Adjustments Report",IOM)
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(PSDY,IOM)
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Balance Adjustments made: "_$P(PSDSD,U,2)_" thru "_$P(PSDED,U,2),IOM)
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,"Report Run: "_$E($$FMTE^XLFDT(%),1,18),?70,"PAGE: ",PSDPG
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !!,?10,"Compiling report, please wait ..."
  • Line Location: DQ+4
Function Call: WRITE
  • Prompt: !!,?10,"<<<< NO DATA FOUND >>>>",!
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !!,"Pharmacy Location: ",PSDIV
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: !,?19,"NO DATA FOUND"
  • Line Location: PRT+11
Function Call: WRITE
  • Prompt: !!,"TRANSACTOR: ",PSDS
  • Line Location: PRT+14
Function Call: WRITE
  • Prompt: !,$P(PSDY,U,1),?10,$P(PSDY,U,2),?33,$P(PSDY,U,3),?40,$P(PSDY,U,4)
  • Line Location: PRT+19
Function Call: WRITE
  • Prompt: !,?10,"Reason: ",$P(PSDY,U,5)
  • Line Location: PRT+20
Function Call: WRITE
  • Prompt: !
  • Line Location: DQQ+0
Function Call: WRITE
  • Prompt: !,"Trans. #",?10,"Date",?28,"Quantity",?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
Info |  Source |  Entry Points |  Interaction Calls