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

Package: Controlled Substances

Routine: PSDORST


Information

PSDORST ;BIR/JPW-Pharmacy Vault Order Stats Report ; 29 Aug 94

Source Information

Source file <PSDORST.m>

Entry Points

Name Comments DBIA/ICR reference
ASKD ;ask dispensing location
DEV ;ask device and queue info
START ;loops thru pending orders and orders cancelled in the past 3 days
PRINT ;prints the report
DONE
END
LOOP ;starts drug loop for all orders
SET ;sets data for printing
HDR ;header for log

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Pharmacy Coordinator for access to",!,?12,"print this status report.",!!,"PSJ RPHARM or PSJ PHARM TECH security key required.",!
  • Line Location: PSDORST+4
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 PENDING ORDERS TO REPORT ****"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,?2,"=> ",DRUG,!!
  • Line Location: PRINT+5
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: !,?20,"Pharmacy Status of Pending Narcotic Orders",?70,"Page: ",PG,!,?35,PSDSN,!,?35,RPDT,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?2,"=> DRUG",!,?13,"DATE",!,"DISP #",?12,"ORDERED",?32,"QTY",?40,"NAOU",?55,"ORDER STATUS"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: HDR+4
Info |  Source |  Entry Points |  Interaction Calls