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

Package: Controlled Substances

Routine: PSDLBL1


Information

PSDLBL1 ;BIR/JPW-CS Label Print for Vault Drugs ; 29 Aug 94

Source Information

Source file <PSDLBL1.m>

Entry Points

Name Comments DBIA/ICR reference
ASKD ;ask disp location
CHKD
DRUG ;ask drug
DEV ;ask device and queue info
START ;entry for compile and print labels
PRINT ;print labels
DONE
END ;kill variables and exit
SAVE ;save queued variables
PRINT1 ;prints labels

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 or PSJ PHARM TECH security key required.",!
  • Line Location: PSDLBL1+4
Function Call: WRITE
  • Prompt: !!,"There are no CS stocked drugs for your dispensing vault.",!!
  • Line Location: CHKD+0
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: $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+1
Function Call: WRITE
  • Prompt: !,?12,"*** Check printer for LABEL paper before printing! ***",!
  • Line Location: DEV+2
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+3
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT1+1
Function Call: WRITE
  • Prompt: ?PSDX1*33+1,$E(TEMP(PSDX1+1),1,30)
  • Line Location: PRINT1+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT1+2
Function Call: WRITE
  • Prompt: @PSDBAR1,TEST(PSDX1),@PSDBAR0
  • Line Location: PRINT1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: ?PSDX1*32+3,TEST(PSDX1+1)
  • Line Location: PRINT1+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINT1+4
Info |  Source |  Entry Points |  Interaction Calls