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

Package: Controlled Substances

Routine: PSDPWK


Information

PSDPWK ;BIR/JPW,BJW-Print Pharm Disp. Worksheet ; 3 Aug 98

Source Information

Source file <PSDPWK.m>

Entry Points

Name Comments DBIA/ICR reference
SUM ;ask worksheet, summary or both
ASKD ;ask disp location
CHKD
ASKN ;ask naou or group
SORT ;asks sort
DEV ;ask device and queue info
END
GROUP ;select group of naous
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: PSDPWK+7
Function Call: WRITE
  • Prompt: !!,"=> This report lists all pending CS requests for a dispensing site.",!!
  • Line Location: PSDPWK+8
Function Call: WRITE
  • Prompt: $C(7),!!,"There are no pending request orders.",!!
  • Line Location: PSDPWK+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKD+3
Function Call: WRITE
  • Prompt: !!,"There are no pending CS requests for "_PSDSN_".",!!
  • Line Location: CHKD+0
Function Call: WRITE
  • Prompt: !!,?5,"Select one of the following:",!!,?10,"N",?20,"NAOU (One, Some, or ^ALL)",!,?10,"G",?20,"Group of NAOUs",!
  • Line Location: ASKN+1
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+2
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+4
Info |  Source |  Entry Points |  Interaction Calls