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

Package: Controlled Substances

Routine: PSDORL


Information

PSDORL ;BIR/JPW/LTL-CS Order Entry Listing and Cancel ; 19 Dec 94

Source Information

Source file <PSDORL.m>

Entry Points

Name Comments DBIA/ICR reference
LIST ;list if pending orders
CANC ;ask to cancel orders
ASK
ORD ;update ord
END
MSG
SORT ;searches for orders
PRT ;displays list

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Searching for pending orders..."
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !,"You may cancel one order at a time.",!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: $C(7),!!,"** The order you selected has been cancelled. **",!
  • Line Location: ORD+4
Function Call: WRITE
  • Prompt: !!,"No orders cancelled. Continue processing your order.",!
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !!,$S(OCNT:"Orders pending: "_OCNT_" Quantity Ordered ("_NBKU_"): "_TOT,1:"No orders pending"),!!
  • Line Location: SORT+5
Function Call: WRITE
  • Prompt: $C(7),"All pending orders are currently being processed. Please review the PENDING ",!,"CS ORDERS REPORT for more information.",!
  • Line Location: SORT+7
Function Call: WRITE
  • Prompt: !!,"Accessing pending orders for ",PSDRN,"...",!!,"The following orders may be cancelled:",!
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !,?6,"DATE ORDERED",?25,"QUANTITY",?38,"ORDERED BY",!
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+10
Info |  Source |  Entry Points |  Interaction Calls