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

Package: Controlled Substances

Routine: PSDRPGS


Information

PSDRPGS ;BIR/JPW-Reprint Green Sheet (VA FORM 10-2638) ; 29 Aug 94

Source Information

Source file <PSDRPGS.m>

Entry Points

Name Comments DBIA/ICR reference
ASKD ;ask dispensing location
GS1 ;ask gs # range
DEV ;ask device and queue info
END
SAVE ;save var

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"reprint Green Sheets.",!!,"PSJ RPHARM or PSJ PHARM TECH or PSD TECH ADV security key required.",!
  • Line Location: PSDRPGS+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKD+3
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: $C(7),!!,"This report now prints on plain paper.",!,"Please check your printer before starting this report.",!!,"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+4
Info |  Source |  Entry Points |  Interaction Calls