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

Package: Controlled Substances

Routine: PSDGSL


Information

PSDGSL ;BIR/BJW-Review Green Sheet Log ; 10 Feb 98

Source Information

Source file <PSDGSL.m>

Entry Points

Name Comments DBIA/ICR reference
ASKD ;ask disp location
SORT ;sort gs number or date
DATE ;ask date range
GS ;ask gs num range
GS2
DEV ;asks device and queueing information
END
SAVE ;sets variables for queueing

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to view",!,?12,"Green Sheets. PSJ RPHARM or PSJ PHARM TECH security key required.",!
  • Line Location: PSDGSL+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !!,"The ending date of the range must be later than the starting date."
  • Line Location: DATE+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: GS+1
Function Call: WRITE
  • Prompt: !!,"Please enter your starting Green Sheet number from 1 to 999999999.",!
  • Line Location: GS+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: GS2+0
Function Call: WRITE
  • Prompt: !!,"Please enter your ending Green Sheet number from 1 to 999999999.",!
  • Line Location: GS2+1
Function Call: WRITE
  • Prompt: !!,"Ending GS number must be larger that the starting GS number.",!
  • Line Location: GS2+2
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: !
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!"
  • Line Location: DEV+3
Info |  Source |  Entry Points |  Interaction Calls