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

Package: Controlled Substances

Routine: PSDLBL


Information

PSDLBL ;BIR/JPW-CS Label Print for CS Disp Drug ; 5 Oct 94

Source Information

Source file <PSDLBL.m>

Entry Points

Name Comments DBIA/ICR reference
ASKD ;ask disp number range
CHKD
ONE ;asks print type
GS1 ;ask gs # range
SEL ;sel naou or group
DEV ;ask device and queue info
END ;kill variables and exit
SAVE ;save queued variables
GROUP ;select group of naous

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"print CS dispensing labels.",!!,"PSJ RPHARM, PSJ PHARM TECH or PSD TECH ADV security key required.",!
  • Line Location: PSDLBL+6
Function Call: WRITE
  • Prompt: !!,"There are no CS stocked drugs for your dispensing vault.",!!
  • Line Location: CHKD+0
Function Call: WRITE
  • Prompt: !!,"You may enter a Green Sheet # list and/or a Green Sheet # range.",!
  • Line Location: GS1+1
Function Call: WRITE
  • Prompt: "NOTE: This response must be a list or range, e.g. 1,3,5 or 2-4,8.",!
  • Line Location: GS1+2
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: SEL+1
Function Call: WRITE
  • Prompt: $C(7),!!,?3,"WARNING: The printing of these labels requires the use of a sheet fed",!,?12,"laser printer setup to create Controlled Substances",!,?12,"barcodes.",!
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !,?12,"*** Check printer for LABEL paper before printing! ***",!
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !!,"This report is designed for a 3 column label format.",!,"You may queue this report to print at a later time.",!!
  • Line Location: DEV+4
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+6
Info |  Source |  Entry Points |  Interaction Calls