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

Package: Controlled Substances

Routine: PSDEVO1


Information

PSDEVO1 ;BIR/JPW - Edit/Cancel a Verified Order (cont'd) ;22 Jun 93

Source Information

Source file <PSDEVO1.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 3 NOW^%DTC  ^DIE  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSDEVO  

Entry Points

Name Comments DBIA/ICR reference
EN ;entry for edit verified order
UPDATE ;
NQ
DIE ;
ORDER
REPRT ;
MSG

External References

Name Field # of Occurrence
NOW^%DTC UPDATE+1, DIE+1
^DIE DIE+3, ORDER+1
^DIR EN+5, NQ+1, NQ+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?5,"You may edit quantity, manufacturer, lot # and expiration date.",!,?5,"If you wish to edit drug or NAOU, you must cancel this order",!,?5,"and enter a new order.",!!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,"This verified order has been previously edited.",!,"You must cancel this order and re-enter a new one.",!!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,"Sorry. You've selected ZERO as the new dispensing balance.",!,"If the new balance is ZERO, please CANCEL this order."
  • Line Location: NQ+3
Function Call: WRITE
  • Prompt: !!,"Old Dispensed Quantity: ",QTY," New Dispensed Quantity: ",NQTY,!
  • Line Location: NQ+4
Function Call: WRITE
  • Prompt: !!,"This transaction cannot be processed.",!,"Your vault balance is ",$P(^PSD(58.8,+PSDS,1,+PSDR,0),"^",4),"."
  • Line Location: NQ+5
Function Call: WRITE
  • Prompt: !!,"Accessing your transaction information..."
  • Line Location: NQ+9
Function Call: WRITE
  • Prompt: !!,"Old Balance: ",BAL,?35,"New Balance: ",BAL+AQTY,!!
  • Line Location: NQ+11
Function Call: WRITE
  • Prompt: !,"Updating transaction history..."
  • Line Location: DIE+4
Function Call: WRITE
  • Prompt: !,"Updating Order..."
  • Line Location: DIE+9
Function Call: WRITE
  • Prompt: "done."
  • Line Location: ORDER+3
Function Call: WRITE
  • Prompt: !!,"The VA FORM 10-2321 has been previously printed for this order.",!,"Please use the 'Reprint VA FORM 10-2321' .",!!
  • Line Location: REPRT+1
Function Call: WRITE
  • Prompt: !!,"** No action taken. **",!!
  • Line Location: MSG+0
Routine Call
  • DIE
  • Line Location:
    • DIE+3
    • ORDER+1
Routine Call
  • DIR
  • Line Location:
    • EN+5
    • NQ+1
    • NQ+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] UPDATE+1, NQ+5, NQ+10, DIE+5, DIE+6*, DIE+7
^PSD(58.81 - [#58.81] DIE+8, REPRT+1
^PSD(58.85 - [#58.85] ORDER+2

Label References

Name Line Occurrences
DIE UPDATE+1
MSG EN+2, EN+5, NQ+2, NQ+3, NQ+5, NQ+8, DIE+3

Naked Globals

Name Field # of Occurrence
^("CS" REPRT+1
^(0 DIE+8, ORDER+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % UPDATE+1, DIE+1
>> AQTY UPDATE+1*, NQ+4*, NQ+5, NQ+11, DIE+2, DIE+6
>> BAL UPDATE+1*, NQ+10*, NQ+11, DIE+2
DA EN+3!, NQ!, NQ+6!, DIE+2!*, DIE+3!, ORDER!*, ORDER+1!
DA(1 ORDER*
DA(2 ORDER*
DIE DIE+2!*, DIE+3!, ORDER!*, ORDER+1!
>> DILOCKTM DIE+5
DIR EN+3!, EN+5!, NQ!, NQ+1!, NQ+6!, NQ+8!
DIR("?" EN+4*, EN+5*, NQ+1*, NQ+6*
DIR("A" EN+5*, NQ*, NQ+7*
DIR("B" NQ+7*
DIR(0 EN+3*, NQ*, NQ+6*
DIRUT EN+3!, EN+5, NQ+6!, NQ+8
DR DIE+2!*, DIE+3!, ORDER!, ORDER+1*!
DTOUT NQ!, NQ+2, DIE+3
DUOUT NQ!, NQ+2, DIE+3
>> EXP DIE+8*, ORDER+1
>> FIELD EN+6*, UPDATE+1
>> LOT DIE+8*, ORDER+1
>> MFG DIE+8*, ORDER+1
>> NAOU ORDER, ORDER+2
>> NBKU NQ
>> NPKG NQ
>> NQTY EN+2, UPDATE+1*, NQ+3*, NQ+4, DIE+2, ORDER+1, ORDER+2
>> ORD ORDER, ORDER+2
>> PSDA DIE+2, DIE+8, REPRT+1
>> PSDOUT EN+2*, EN+5*, NQ+2*, NQ+3*, NQ+8*, DIE+3*
>> PSDR UPDATE+1, NQ+5, NQ+10, DIE+5, DIE+6, DIE+7, ORDER, ORDER+2
>> PSDS UPDATE+1, NQ+5, NQ+10, DIE+5, DIE+6, DIE+7
>> PSDT UPDATE+1*, DIE+1*, DIE+2
>> PSDUZ DIE+2
>> QTY UPDATE+1, NQ+4
>> WK ORDER+2*
>> Y EN+6, NQ+3, NQ+8, DIE+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All