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

Package: Controlled Substances

Routine: PSDHRPT


Information

PSDHRPT ;BIR/BJW-Destructions Holding file Report ; 3 Mar 98

Source Information

Source file <PSDHRPT.m>

Entry Points

Name Comments DBIA/ICR reference
ASKD ;ask disp location
ASKV ;ask vault(s)
DEV ;select device
START ;start looping
DONE
END ;
PRINT ;print data
HDR ;prints header information
SAVE ;4/5/95 added by bjw

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single VAULT, several VAULT(s),",!,?5,"or enter ^ALL to select all VAULT(s).",!
  • Line Location: ASKV+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !!,?10,"*** NO HOLDING FOR DESTRUCTIONS ***",!!
  • Line Location: START+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: !,"=> ",$P($G(^PSD(58.8,+PVAULT,0)),U)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: ?24,PSDCOMS
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: ?24,REAS
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: ?24,BAREAS
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: ?24,PSDCNL
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: ?85,PSDGS,!
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?125,"PAGE: ",PG,!,?42,"DESTRUCTION HOLDING FILE REPORT for ",PSDSN,!,?42,"Run Date: ",RPDT,!,"=> VAULT",!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"HOLD #",?13,"DRUG",?80,"# OF CONT",?92,"QTY",?102,"TURN IN",?115,"DATE HLD#",?127,"PHARM",!,?15,"COMMENTS",?85,"GS#",?104,"DATE",?115,"CANCELLED",!,LN,!
  • Line Location: HDR+4

FileMan Files Accessed Via FileMan Db Call

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