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

Package: Controlled Substances

Routine: PSDESTP


Information

PSDESTP ;BIR/BJW-Destroyed CS Drugs Report ; 28 Feb 98

Source Information

Source file <PSDESTP.m>

Entry Points

Name Comments DBIA/ICR reference
ASKD ;ask disp location
ASKV ;ask vault(s)
ASKV2 ;
DRUG ;ask drug
SKIP
DATE ;ask date range
DEV ;select device
START ;start looping
PRINT ;prints data,L-6 added 8/24/95 accum summ.total,10/20/95 chgs made
DONE ;
END ;
HDR ;prints header information
GTOT ;10/20/95 msg added,grand total,inserted 8/24/95
SAVE ;saves variables for queueing
SET ;sets data;10/20/95 added bal.adj comms. PBACOM

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: !!,?5,"You may select a single drug, several drugs,",!,?5,"or enter ^ALL to select all drugs.",!!
  • Line Location: DRUG+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUG+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+1
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: !!,"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+3
Function Call: WRITE
  • Prompt: !!,?10,"*** NO CONTROLLED SUBSTANCE DESTRUCTIONS ***",!!
  • Line Location: START+9
Function Call: WRITE
  • Prompt: "=> ",$P($G(^PSD(58.8,+PVAULT,0)),U),!
  • Condition for execution: JJ=1
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: "Drug: ",PSDRN
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?60
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: "GS #: ",$P(NODE,U,8)
  • Condition for execution: $P(NODE,"^",8)
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,"Quantity: ",$P(NODE,"^"),!,"Cost of above Qty: ",$P(NODE,U,11)
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: DONE+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?70,"PAGE: ",PG,!,?15,"DESTROYED CS DRUGS REPORT for ",PSDSN
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?15,"Period From: ",$P(PSDATE,"^")," to: ",$P(PSDATE,"^",2),!,?15,"Run Date: ",RPDT,!!,"=> VAULT",!,LN,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!!!?50,"Summary Total: ",PSDTOT
  • Line Location: GTOT+2
Function Call: WRITE
  • Prompt: !!!?15,"*** Drugs returned by a patient ARE NOT ADDED to Summary Total***"
  • Line Location: GTOT+3

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