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

Package: Controlled Substances

Routine: PSDREPD


Information

PSDREPD ;BIR/BJW-Invoice Review by Date Range ; 12 Feb 98

Source Information

Source file <PSDREPD.m>

Entry Points

Name Comments DBIA/ICR reference
DATE ;ask date range
SUM ;if summary only
DEV ;asks device and queueing information
START
END
HEADER ;prints header info
HDR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Sorry, no Master Vaults set up for this site.",!!
  • Line Location: PSDREPD+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PSDREPD+15
Function Call: WRITE
  • Prompt: !,"Select Invoice Date Range",!
  • Line Location: PSDREPD+20
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !!,"The ending date of the range must be later than the starting date."
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SUM+1
Function Call: WRITE
  • Prompt: !!,"This report is designed for a 80 column format.",!,"You may queue this report to print at a later time.",!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+4
Function Call: WRITE
  • Prompt: !!,"Invoice Number ==> ",PSDINV," Order Number ==> ",PSDORD
  • Line Location: START+22
Function Call: WRITE
  • Prompt: !!,"Invoice Number ==> ",PSDINV," Order Number ==> ",PSDORD
  • Line Location: START+23
Function Call: WRITE
  • Prompt: " (Continued)"
  • Line Location: START+23
Function Call: WRITE
  • Prompt: !
  • Line Location: END+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),"^"),"."
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !?2,$E($S($P($G(^VA(200,+$G(DUZ),.1)),"^",4)]"":$P($G(^(.1)),"^",4),1:$P($P($G(^VA(200,+$G(DUZ),0)),"^"),",",2)),1,20),"'s Invoice Review From "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: $P(PSDATE,"^")," To ",$P(PSDATE,"^",2),?72,"Page ",PSDPG,!?2,$P($G(^PSD(58.8,PSDS,0)),"^"),!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?45,"Report Date: ",PSDT(1)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,"Date",?26,"Invoice#",?38,"Order#",?50,"Received By",!,PSDSLN
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!?5,"Drug",?34,"Quantity Received By Date",!,PSDSLN
  • Line Location: HDR+5

FileMan Files Accessed Via FileMan Db Call

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