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

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls