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

Package: Controlled Substances

Routine: PSDRDR


Information

PSDRDR ;BIR/BJW-Narc Disp/Rec Report (reprint VA FORM 10-2321) ; 12 Feb 98

Source Information

Source file <PSDRDR.m>

Entry Points

Name Comments DBIA/ICR reference
ASKD ;ask dispensing location
SUM ;if ret-to-stock or turn in for dest
COPY ;ask vault, nursing or both
ASKN ;ask naou or green sheet number
NAOU ;sel naou
DATE ;asks date range if naou is selected
DEV ;ask device and queue info
END
SAVE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"process/dispense narcotic supplies.",!!,"PSJ RPHARM, PSJ PHARM TECH or PSD TECH ADV security key required.",!
  • Line Location: PSDRDR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: SUM+1
Function Call: WRITE
  • Prompt: !,"No report will be printed.",!
  • Line Location: COPY+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKN+4
Function Call: WRITE
  • Prompt: !!,?5,"You may select a single NAOU, several NAOUs,",!,?5,"or enter ^ALL to select all NAOUs.",!!
  • Line Location: NAOU+1
Function Call: WRITE
  • Prompt: !!,"Please enter the DATE and TIME period you wish to reprint data for this report",!
  • Line Location: DATE+1
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+4
Function Call: WRITE
  • Prompt: !,"This report is designed for a 132 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
Info |  Source |  Entry Points |  Interaction Calls