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

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 4 NOW^%DTC  (,IX)^DIC  ^DIE  ^DIR  
Controlled Substances 2 ^PSDEVO1  ^PSDSET  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Controlled Substances 1 PSD EDIT/CANC VER ORD  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC CANC+8
^DIC ASKD+5, MON+2
IX^DIC GS+3
^DIE CANC+12, CANC+13, CANC+14, MON+3
^DIR ASK+3, CANC+3
^PSDEVO1 ASK+5
^PSDSET EN+1

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
Routine Call
  • DIE
  • Line Location:
    • CANC+12
    • CANC+13
    • CANC+14
    • MON+3
Routine Call
  • DIC
  • Line Location:
    • ASKD+5
    • MON+2
Routine Call
  • DIR
  • Line Location:
    • ASK+3
    • CANC+3
Routine Call
  • DIC
  • Line Location:
    • GS+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] GS+4, GS+5, CANC+7, CANC+9, CANC+10, MON+1, MON+2
^PSD(58.81 - [#58.81] GS+7
^PSD(58.85 - [#58.85] CANC+14
^PSDRUG - [#50] GS+3
^XUSEC("PSJ RPHARM" EN+2

Label References

Name Line Occurrences
CANC ASK+4
END EN+2, ASKD+5, GS+3, GS+4, GS+6, ASK+3, ASK+4
GS ASKD+2
MSG GS+4, GS+6, ASK+3, CANC+3, CANC+4

Naked Globals

Name Field # of Occurrence
^(0 GS+5, CANC+9*, MON+1*
^(4 GS+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!, CANC+8
%DT END!
%H END!
%I END!
ANS ASK+4*, ASK+5, END!
AQTY END!, CANC+5*, CANC+9, CANC+10, CANC+12
BAL END!, CANC+9*, CANC+10, CANC+12
D GS+1*, END!
DA ASKD+3!, GS+1!, ASK+1!, END!, CANC+2!, CANC+12!*, CANC+13!*, CANC+14*!, MON+2!, MON+3!*
DA(1 CANC+13*, MON+2*, MON+3*
DA(2 CANC+13*, MON+2*, MON+3*
DIC ASKD+3!*, ASKD+5!, GS+1!*, GS+3!, END!, MON+2!*
DIC("A" ASKD+3*, GS+1*
DIC("B" ASKD+4*
DIC("S" ASKD+3*, GS+2*
DIC(0 ASKD+4*, GS+1*, MON+2*
DIE END!, CANC+12!*, CANC+13!*, CANC+14*!, MON+3!*
>> DILOCKTM CANC+7
DINUM MON+2*!
DIR ASK+1!, ASK+3!, END!, CANC+2!, CANC+3!
DIR("?" ASK+2*, CANC+2*
DIR("A" ASK+1*, CANC+3*
DIR(0 ASK+1*, CANC+2*
DIROUT END!
DIRUT ASK+1!, ASK+3, END!, CANC+2!, CANC+3
DLAYGO MON+2*!
DR END!, CANC+12!*, CANC+13!*, CANC+14*!, MON+3!*
DT MON+2, MON+3
DTOUT END!
DUOUT END!
DUZ EN+2, EN+3
EXP END!
FIELD END!
LOT END!
MFG END!
NAOU GS+3*, END!, CANC+13, CANC+14
NAOUN END!
NBKU GS+5*, GS+6, GS+8, END!, CANC+1
NPKG GS+5*, GS+6, END!
NQTY GS+1!, GS+7*, GS+8, END!, CANC+1, CANC+5
OK END!
ORD GS+3*, END!, CANC+13, CANC+14
OREC END!
PSDA GS+3*, GS+7, END+1!, CANC+12
PSDOUT END+1!, CANC+3*, CANC+4*
PSDPN GS+3*, END+1!, CANC+1, MON+4
PSDR GS+3*, GS+4, GS+5, END+1!, CANC+7, CANC+9, CANC+10, CANC+13, CANC+14, MON+1
, MON+2, MON+3
PSDRN GS+3*, GS+4, GS+6, GS+8, END+1!
PSDS ASKD+1*, ASKD+6*, GS+4, GS+5, END+1!, CANC+7, CANC+9, CANC+10, MON+1, MON+2
, MON+3
>> PSDSITE EN+1, ASKD+1, ASKD+2, ASKD+6*
PSDSN ASKD+1*, ASKD+4, ASKD+6*, GS+4, GS+6, END+1!
PSDT END+1!, CANC+8*, CANC+12
PSDUZ EN+3*, END+1!, CANC+12
QTY GS+3*, GS+8, END+1!, CANC+1, CANC+5
RECD END+1!
RECDT END+1!
RQTY END+1!
STAT END+1!
STATN END+1!
SUB END+1!
U ASKD+1, ASKD+2, ASKD+6
WK END+1!
X END+1!, MON+2*
Y ASKD+5, ASKD+6, GS+3, ASK+4, END+1!, CANC+4
Y(0 GS+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All