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

Package: Controlled Substances

Routine: PSDORD


Information

PSDORD ;BIR/JPW,LTL - Nurse CS Order Request Entry DIR style; 8 Aug 94

Source Information

Source file <PSDORD.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 5 NOW^%DTC  ^DIC  FILE^DICN  ^DIE  ^DIR  
Controlled Substances 4 ^PSDORD1  ^PSDORD3  ^PSDORD4  LIST^PSDORL  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Controlled Substances 2 PSDORD3  PSDORN  

Entry Points

Name Comments DBIA/ICR reference
MSG ;display error message
DIE ;create the order request
END
DRUG ;select drug
QTY

External References

Name Field # of Occurrence
NOW^%DTC DIE+4
^DIC DRUG+10
FILE^DICN DIE+3
^DIE DIE+5
^DIR QTY+2, QTY+7
^PSDORD1 PSDORD+7, DRUG+10
^PSDORD3 DRUG+19
^PSDORD4 DRUG+11
LIST^PSDORL DRUG+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Searching for ",$P($G(^VA(200,DUZ,.1)),U,4),"'s pending requests."
  • Line Location: PSDORD+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: PSDORD+6
Function Call: WRITE
  • Prompt: !
  • Line Location: QTY+3
Function Call: WRITE
  • Prompt: !!,"Quantity must be "_NPKG_" or a multiple of "_NPKG,!
  • Line Location: QTY+4
Function Call: WRITE
  • Prompt: !!,"This will be "_CNT_" separate order requests. The quantity is "_NPKG_" per request."
  • Line Location: QTY+5
Function Call: WRITE
  • Prompt: !
  • Line Location: QTY+6
Function Call: WRITE
  • Prompt: !,"No order request created. You must edit quantity.",!
  • Line Location: QTY+8
Function Call: WRITE
  • Prompt: !!,"The "_CNT_" requests are being created.",!
  • Line Location: QTY+9
Function Call: WRITE
  • Prompt: !
  • Line Location: QTY+9
Function Call: WRITE
  • Prompt: !!,"Creating your order request # "_ORD_" of "_CNT_" for "_PSDRN
  • Line Location: QTY+10
Function Call: WRITE
  • Prompt: !
  • Line Location: QTY+11
Function Call: WRITE
  • Prompt: ?10,!!,"processing now..."
  • Line Location: DIE+4
Function Call: WRITE
  • Prompt: $C(7),!!,?10,"Contact your Pharmacy Coordinator.",!,?10,"This "_$S(MSG=2:"Dispensing Site",MSG=1:"NAOU",1:"Drug")_" is missing "
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: $S(MSG1=1:"Primary Disp. Site",MSG1=2:"stocked drugs",MSG1=3:"narcotic breakdown unit",MSG1=4:"narcotic package size",1:"data")_".",!
  • Line Location: MSG+2
Routine Call
  • DIE
  • Line Location:
    • DIE+5
Routine Call
  • DIC
  • Line Location:
    • DRUG+10
Routine Call
  • DIR
  • Line Location:
    • QTY+2
    • QTY+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSD(58.8 - [#58.8] PSDORD+5, PSDORD+6, DRUG+6, DRUG+11, DRUG+12, DRUG+13, DRUG+14, DRUG+19, QTY+10, DIE+1
, DIE+2*, DIE+6
^PSDRUG - [#50] DRUG+10
^VA(200 - [#200] PSDORD+4

Label References

Name Line Occurrences
DIE QTY+3, QTY+10, DIE+2
DRUG DRUG+11, QTY+2, QTY+3, QTY+9, QTY+11
END PSDORD+7, DRUG+10, DRUG+11, DRUG+12, DRUG+13, DRUG+15, DRUG+16, QTY+2, QTY+7
MSG DRUG+12, DRUG+13, DRUG+15, DRUG+16
QTY QTY+4, QTY+8

Naked Globals

Name Field # of Occurrence
^(0 PSDORD+6, DRUG+10, DRUG+11, DRUG+14, DIE+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!, DIE+4
%DT END!
%H END!
%I END!
CNT QTY+5*, QTY+6, QTY+9, QTY+10, END!
CNT1 END!
DA DRUG+2!, QTY+6!, END!, DIE+3!, DIE+5*
DA(1 DRUG+4*, DRUG+9*, DIE+3*, DIE+5*
DA(2 DIE+3*, DIE+5*
DD DIE+3!
DIC DRUG+2!, DRUG+4*, DRUG+9*, DRUG+10!, END!, DIE+3!*
DIC("S" DRUG+3*, DRUG+8*
DIC("W" DRUG+2*, DRUG+7*
DIC(0 DRUG+4*, DIE+3*
DIE END!, DIE+3!*, DIE+5!
DINUM END!, DIE+3*
DIR QTY+2!, QTY+6!, QTY+7!, END!
DIR("?" QTY+6*, QTY+7*
DIR("A" QTY+1*, QTY+6*
DIR("B" QTY+1*, QTY+6*
DIR(0 QTY*, QTY+6*
DIROUT END!
DIRUT DRUG+11, QTY+2, QTY+6!, QTY+7, END!
DIWF END!
DIWL END!
DIWR END!
DO DIE+3!
DR END!, DIE+3!, DIE+5*!
DT DRUG+11
DTOUT DRUG+10, END!
DUOUT DRUG+10, END!
DUZ PSDORD+4, PSDORD+6
LN END!
MSG DRUG+1*, DRUG+13*, END!, MSG+1
MSG1 DRUG+15*, DRUG+16*, END!, MSG+2
NAOU PSDORD+5, PSDORD+6, DRUG+9, DRUG+11, DRUG+12, DRUG+19, QTY+10, END+1!, DIE+1, DIE+2
, DIE+3, DIE+5, DIE+6
NAOUN END+1!
NBKU DRUG+14*, DRUG+15, QTY+1, END+1!
NPKG DRUG+14*, DRUG+16, QTY+1, QTY+3, QTY+4, QTY+5, QTY+9, END+1!
OK END+1!
OKTYP END+1!
ORD QTY!, QTY+10*, END+1!
PSD PSDORD+3!*, PSDORD+5*, PSDORD+6, END+1!
PSD(1 PSDORD+6*
PSDA PSDORD+3!, QTY+10, END+1!, DIE+2*, DIE+3, DIE+5, DIE+6
PSDA( PSDORD+6*, QTY+10*, DIE+6*
PSDA(0 PSDORD+7, PSDORD+8, DRUG+10
PSDB PSDORD+3!, END+1!
PSDOUT PSDORD+7, QTY*, QTY+11, END+1!
PSDQTY QTY+3*, QTY+9*, END+1!, DIE+5
PSDR DRUG+2!, DRUG+10*, DRUG+11, DRUG+12, DRUG+13, DRUG+14, QTY+10, END+1!, DIE+1, DIE+2
, DIE+3, DIE+5, DIE+6
PSDRD END+1!
PSDRN DRUG+10*, QTY+10, END+1!
PSDS DRUG+4, DRUG+6, DRUG+13, DRUG+14, END+1!, DIE+5
PSDT END+1!, DIE+4*, DIE+5
PSDUZ END+1!, DIE+5
PSDUZN END+1!
REQD END+1!
TEXT END+1!
TYPE END+1!
U PSDORD+4, PSDORD+6, DRUG+6, DRUG+11, DRUG+19
WORD END+1!
X QTY+4, QTY+5, END+1!, DIE+3*
Y DRUG+10, QTY+2, QTY+3, QTY+8, QTY+9, END+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All