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

Package: Controlled Substances

Routine: PSDPSI


Information

PSDPSI ;BIR/JPW-Green Sheets Placed on Insp Hold Rpt ; 29 Aug 94

Source Information

Source file <PSDPSI.m>

Entry Points

Name Comments DBIA/ICR reference
ASKD ;ask disp location
ASKN ;ask naou or group
DEV ;ask device and queue info
START ;compile data
PRINT ;print green sheets picked up naou, green sheet #
DONE
END
GROUP ;select group of naous
SAVE
HDR ;header for log

Interaction Calls

Name Line Occurrences
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: ASKN+1
Function Call: WRITE
  • Prompt: !!,"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: !!,?10,"**** NO GREEN SHEETS ON INSPECTOR HOLD ****"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,?2,"=> NAOU: "_NAOU,!
  • Line Location: PRINT+3
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: !,?15,"Green Sheets Placed on Hold for Inspector Review",?70,"Page: ",PG,!,?26,"Run Date: ",RPDT,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"DISP #",?12,"DRUG",?55,"PLACED ON HOLD BY",!,?15,"DATE PLACED ON HOLD",!,?15,"HOLD REMARKS"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: HDR+4
Info |  Source |  Entry Points |  Interaction Calls