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

Package: Controlled Substances

Routine: PSDEVO


Information

PSDEVO ;BIR/JPW,BJW-Edit/Cancel a Verified Order ; 20 Aug 98

Source Information

Source file <PSDEVO.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;entry for edit/cancel verified order
ASKD ;ask disp site
GS ;ask gs #
ASK ;edit or cancel
END
CANC ;canc ver ord
MON ;monthly activity
MSG

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Contact your Pharmacy Coordinator for access to edit or cancel",!,"a verified Controlled Substances order.",!!,"PSJ RPHARM security key required.",!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: $C(7),!!,?18,"*** NOTE ***",!,?5,"Only Verified Orders with a status of FILLED - NOT DELIVERED",!,?5,"may be edited or cancelled.",!!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,PSDRN," is not stocked in ",PSDSN,!!
  • Line Location: GS+4
Function Call: WRITE
  • Prompt: !!,PSDRN," is missing breakdown unit or ",!,"package size data in ",PSDSN,".",!!
  • Line Location: GS+6
Function Call: WRITE
  • Prompt: !!,"Drug: ",PSDRN,!," Quantity: ",$S($D(NQTY):NQTY,1:QTY)," Breakdown Unit: ",NBKU,!!
  • Line Location: GS+8
Function Call: WRITE
  • Prompt: !!,"Green Sheet # ",PSDPN," Quantity Dispensed: ",$S($D(NQTY):NQTY,1:QTY)," Breakdown Unit: ",NBKU,!
  • Line Location: CANC+1
Function Call: WRITE
  • Prompt: !!,"Accessing your transaction history..."
  • Line Location: CANC+6
Function Call: WRITE
  • Prompt: !!,"Old Balance: ",BAL,?35,"New Balance :",BAL+AQTY,!!
  • Line Location: CANC+10
Function Call: WRITE
  • Prompt: !!,"Updating your transaction history now..."
  • Line Location: CANC+11
Function Call: WRITE
  • Prompt: !!,"Order record..."
  • Line Location: CANC+13
Function Call: WRITE
  • Prompt: "worksheet..."
  • Line Location: CANC+14
Function Call: WRITE
  • Prompt: !!,"Finished. Your Green Sheet # ",PSDPN," has been cancelled.",!!
  • Line Location: MON+4
Function Call: WRITE
  • Prompt: !!,"** No action taken. **",!!
  • Line Location: MSG+0
Info |  Source |  Entry Points |  Interaction Calls