Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA Fileman 2 ^DIE  ^DIR  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Controlled Substances 8 PSDORD  PSDORD4  PSDORN  PSDORNC  PSDORNO  PSDORNV  PSDORP  PSDORV  

Entry Points

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

External References

Name Field # of Occurrence
^DIE ORD+1, ORD+3
^DIR CANC+2, ASK+3

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
Routine Call
  • DIE
  • Line Location:
    • ORD+1
    • ORD+3
Routine Call
  • DIR
  • Line Location:
    • CANC+2
    • ASK+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRT+6
^PSD(58.85 - [#58.85] SORT+2, SORT+3, SORT+4, PRT+4, PRT+5
^VA(200 - [#200] PRT+7

Label References

Name Line Occurrences
END LIST+2, CANC+2, ASK+3
LIST ORD+5
MSG CANC+2, ASK+3
PRT CANC+3
SORT LIST+2

Naked Globals

Name Field # of Occurrence
^(0 PRT+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AA END!, SORT+2*, SORT+4
DA CANC+1!, ASK!, ORD+1!*, ORD+2*, ORD+3!, END!
DA(1 ORD+1*
DA(2 ORD+1*
DIE ORD+1!*, ORD+3!*
DIR CANC+1!, ASK!, END!
DIR("?" CANC+1*, ASK+2*
DIR("A" CANC+1*, ASK+2*
DIR("B" CANC+2*
DIR(0 CANC+1*, ASK+2*
DIROUT END!
DIRUT CANC+1!, CANC+2, ASK!, END!
DR ORD+1!*, ORD+3!*
DTOUT END!
DUOUT END!
JJ END!, SORT+2*
KK END!, SORT+2*, SORT+3, SORT+4, PRT+3*, PRT+4*, PRT+5, PRT+8
KK2 END!, PRT+6*, PRT+8
KK3 END!, PRT+6*, PRT+8, PRT+9
KK4 END!, PRT+6*, PRT+8, PRT+9
KK5 END!, PRT+7*, PRT+8, PRT+9
KKO ASK+4*, ORD+1, ORD+2, END!
LL END!, SORT+1!
LL( SORT+4*, PRT+4
LL(0 SORT+7
LOC END!, PRT+1!
LOC( ORD+1, ORD+2, PRT+8*
>> NAOU ORD+1, SORT+2
>> NBKU SORT+5
NODEL END!, SORT+3*, PRT+5*, PRT+6, PRT+7
OCNT ASK+2, END!, SORT+2*, SORT+3*, SORT+5, SORT+6, PRT+3*, PRT+8*, PRT+9
PSDOUT LIST+2*, END!, SORT+6*, SORT+7*
>> PSDR ORD+1, SORT+2
>> PSDRN PRT+2
TOT END!, SORT+2*, SORT+3*, SORT+5
Y CANC+2, ASK+3, ASK+4, END!, PRT+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All