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

Package: Controlled Substances

Routine: PSDRWK


Information

PSDRWK ;BIR/JPW-Reprint Pharm Disp. Worksheet ;12/14/99 16:40

Source Information

Source file <PSDRWK.m>

Entry Points

Name Comments DBIA/ICR reference
ASKD ;ask disp location
CHKD
DEV ;ask device and queue info
START ;entry for reprint
DONE
END
SAVE
HDR ;lists header information

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: PSDRWK+12
Function Call: WRITE
  • Prompt: !!,"=> This report reprints a worksheet listing of all pending CS requests for a",!," dispensing site.",!!
  • Line Location: PSDRWK+13
Function Call: WRITE
  • Prompt: $C(7),!!,"There are no pending request orders.",!!
  • Line Location: PSDRWK+14
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: !!,"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
Function Call: WRITE
  • Prompt: !!,?45,"**** NO REQUESTS PREVIOUSLY PRINTED FOR THIS DISPENSING LOCATION ****"
  • Line Location: START+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?40,"PHARMACY DISPENSING WORKSHEET (Reprint)",!!,"Dispensing Location: ",PSDSN,?65,RPDT,?105,"PG "_PG,!!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "WS #",?10,"DRUG",?50,"QUANTITY",?60,"DISPENSE TO",!,?12,"COMMENTS",?50,"ORDERED",?60,"LOCATION",?102,"ORDERED BY",!,LN,!
  • Line Location: HDR+3
Info |  Source |  Entry Points |  Interaction Calls