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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSDORNV

Package: Controlled Substances

Routine: PSDORNV


Information

PSDORNV ;BIR/JPW,LTL-Nurse CS Infusion Order Request Entry ;12/14/99 16:36

Source Information

Source file <PSDORNV.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
Controlled Substances 7 LIST^PSDORL  DIE^PSDORN0  ^PSDORN1  ^PSDORN2  ^PSDORNC  ^PSDORP  ^PSDSET  
VA Fileman 5 ^DIC  Y^DIQ  ^DIR  ^DIWP  ^DIWW  
Kernel 3 (ENDR,ENS,KILL)^%ZISS  $$FMADD^XLFDT  EN^XQH  
Inpatient Medications 1 ENHS^PSJEEU0  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Controlled Substances 2 PSD NURSE INFUSION  PSDORNC  

Entry Points

Name Comments DBIA/ICR reference
PCA
PAT
DRUG ;select drug
QTY
CHEC
MSG ;display error message
END
NAOU ;select NAOU to order supplies for

External References

Name Field # of Occurrence
ENDR^%ZISS NAOU+13
ENS^%ZISS DRUG+6
KILL^%ZISS NAOU+15, DRUG+6
^DIC NAOU+3, PAT+2, DRUG+4, QTY+15
Y^DIQ QTY+12
^DIR PCA, QTY+10, QTY+14, QTY+21, QTY+26
^DIWP NAOU+14, QTY+8
^DIWW NAOU+15, QTY+9
LIST^PSDORL DRUG+12
DIE^PSDORN0 QTY+22, QTY+29
^PSDORN1 QTY+28
^PSDORN2 QTY+22
^PSDORNC PCA+1
^PSDORP PSDORNV+21
^PSDSET PSDORNV+17
ENHS^PSJEEU0 PCA+3
$$FMADD^XLFDT CHEC+2
EN^XQH PSDORNV+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,?9,"** Please contact your Coordinator for access to order",!,?12,"narcotic supplies.",!!,"PSJ RNURSE, PSJ RPHARM, or PSJ PHARM TECH security key required.",!
  • Line Location: PSDORNV+19
Function Call: WRITE
  • Prompt: !
  • Line Location: NAOU+3
Function Call: WRITE
  • Prompt: !!,"Contact your Pharmacy Coordinator.",!,"The Pharmacy Dispensing Site is invalid for this NAOU."
  • Line Location: NAOU+11
Function Call: WRITE
  • Prompt: !
  • Line Location: NAOU+12
Function Call: WRITE
  • Prompt: IORVON
  • Line Location: NAOU+13
Function Call: WRITE
  • Prompt: IORVOFF
  • Line Location: NAOU+15
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PCA+0
Function Call: WRITE
  • Prompt: !!,"Checking for active Controlled Substance IV orders."
  • Line Location: PCA+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUG+1
Function Call: WRITE
  • Prompt: IOBON,!!,?20,"ZERO BALANCE IN PHARMACY",IOBOFF
  • Line Location: DRUG+6
Function Call: WRITE
  • Prompt: !,"Checking for the last order for ",$P($G(^DPT(PAT,0)),U),".",!
  • Line Location: CHEC+0
Function Call: WRITE
  • Prompt: !
  • Line Location: QTY+6
Function Call: WRITE
  • Prompt: !
  • Line Location: QTY+15
Function Call: WRITE
  • Prompt: PSDR(1)
  • Line Location: QTY+16
Function Call: WRITE
  • Prompt: !
  • Line Location: QTY+21
Function Call: WRITE
  • Prompt: !!,"Quantity must be "_NPKG_" or a multiple of "_NPKG,!
  • Line Location: QTY+23
Function Call: WRITE
  • Prompt: !!,"This will be "_CNT_" separate order requests. The quantity is "_NPKG_" per request."
  • Line Location: QTY+24
Function Call: WRITE
  • Prompt: !
  • Line Location: QTY+25
Function Call: WRITE
  • Prompt: !,"No order request created. You must edit quantity.",!
  • Line Location: QTY+27
Function Call: WRITE
  • Prompt: !!,"The "_CNT_" requests are being created. You must review every request.",!
  • Line Location: QTY+28
Function Call: WRITE
  • Prompt: !!,"Creating your order request # "_ORD_" of "_CNT_" for "_PSDRN
  • Line Location: QTY+29
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
  • DIC
  • Line Location:
    • NAOU+3
    • PAT+2
    • DRUG+4
    • QTY+15
Routine Call
  • DIR
  • Line Location:
    • PCA
    • QTY+10
    • QTY+14
    • QTY+21
    • QTY+26

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^PS(52.6 - [#52.6] Classic Fileman Calls
^PS(52.7 - [#52.7] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PSDORNV+22, QTY+21
^DD(52.6 QTY+12
^DPT - [#2] CHEC
^PS(52.6 - [#52.6] PCA+4, PCA+7
^PSD(58.8 - [#58.8] NAOU+4, NAOU+5, NAOU+6, NAOU+7, NAOU+9, NAOU+10, NAOU+11, NAOU+14, DRUG+6, DRUG+8
, DRUG+9
^PSD(58.81 - [#58.81] CHEC+3, CHEC+4, QTY+8
^PSDRUG - [#50] PCA+4, PCA+7, DRUG+4
^TMP("PSG" PCA+3!
^TMP("PSIV" PCA+7, PCA+9, PCA+10!
^UTILITY("PSG" PCA+3!
^UTILITY("PSIV" PCA+4, PCA+6, PCA+10!
^UTILITY($J NAOU+12!, QTY+6!
^VA(200 - [#200] PSDORNV+20
^XUSEC("PSJ PHARM TECH" PSDORNV+18
^XUSEC("PSJ RNURSE" PSDORNV+18
^XUSEC("PSJ RPHARM" PSDORNV+18

Label References

Name Line Occurrences
DRUG QTY+5, QTY+11, QTY+21, QTY+30
END PSDORNV+20, NAOU+3, NAOU+4, NAOU+5, NAOU+8, NAOU+9, NAOU+10, NAOU+11, PAT+2, PCA
, DRUG+4, DRUG+8, DRUG+10, DRUG+11, QTY+22, QTY+26, QTY+28
MSG NAOU+4, NAOU+5, NAOU+8, NAOU+9, NAOU+10, DRUG+8, DRUG+10, DRUG+11
PAT PCA+1, QTY+22
QTY QTY+23, QTY+27

Naked Globals

Name Field # of Occurrence
^( PCA+6, PCA+9
^(0 DRUG+4, DRUG+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
%DT END!
%H END!
%I END!
>> C QTY+12*
CNT QTY+22*, QTY+24*, QTY+25, QTY+28, QTY+29, END!
CNT1 END!
DA NAOU+1!, DRUG+2!, QTY+25!, END!
DFN PAT~, PAT+2*
DIC NAOU+1!*, NAOU+3!, PAT~*, PAT+2!, DRUG+2!, DRUG+3*, DRUG+4!, QTY+15*!, END!
DIC("A" NAOU+1*, PAT+1*, DRUG+3*
DIC("S" NAOU+2*, DRUG+3*
DIC(0 NAOU+1*, PAT*, DRUG+3*, QTY+15*
DIE END!
DINUM END!
DIR PCA!, QTY+10!, QTY+14!, QTY+21!, QTY+25!, QTY+26!, END!
DIR("?" QTY+18*, QTY+19*, QTY+20*, QTY+25*, QTY+26*
DIR("A" QTY+10*, QTY+13*, QTY+17*, QTY+25*
DIR("B" QTY+25*
DIR(0 PCA*, QTY+10*, QTY+13*, QTY+17*, QTY+25*
DIROUT END!
DIRUT PCA, QTY+5, QTY+11, QTY+14, QTY+21, QTY+25!, QTY+26, END!
DIWF NAOU+12~, NAOU+13*, QTY+6~, QTY+7*, END!
DIWL NAOU+12~, NAOU+13*, QTY+6~, QTY+7*, END!
DIWR NAOU+12~, NAOU+13*, QTY+6~, QTY+7*, END!
DR END!
DT PSDORNV+22, CHEC+2
DTOUT PAT~, END!
DUOUT PAT~, END!
DUZ PSDORNV+18, PSDORNV+20, PSDORNV+22
>> IOBOFF DRUG+6
>> IOBON DRUG+6
>> IORVOFF NAOU+15
>> IORVON NAOU+13
LN END!
MSG PSDORNV+22*, NAOU+4*, NAOU+5*, NAOU+8*, NAOU+9*, NAOU+10*, DRUG+8*, END!, MSG+1
MSG1 PSDORNV+22*, NAOU+5*, NAOU+8*, NAOU+10*, DRUG+10*, DRUG+11*, END!, MSG+2
NAOU NAOU+3*, NAOU+4, NAOU+5, NAOU+6, END+1!
NAOUN NAOU+3*, END+1!
NBKU DRUG+9*, DRUG+10, END+1!
NPKG DRUG+9*, DRUG+11, QTY+23, QTY+24, QTY+28, END+1!
OK PSDORNV+18*, PSDORNV+19!, PSDORNV+21, END+1!
OKTYP NAOU+11*, END+1!
ORD QTY!, QTY+29*, END+1!
ORD( QTY+29*
PAT PAT~, PAT+2*, CHEC, CHEC+3
PSD NAOU+12~, NAOU+13*, NAOU+14*, PCA+4*, PCA+6, PCA+7*, PCA+9, CHEC+1~, CHEC+2*, CHEC+3*
PSD(1 PCA+3*, PCA+4*, PCA+6, PCA+7*, PCA+9, CHEC+3*
PSD(2 PCA+4*, PCA+5, PCA+7*, PCA+8, CHEC+3*, CHEC+4, QTY+8
PSD(3 CHEC+3*, CHEC+4, QTY+5
PSD(4 QTY+10*, QTY+11
PSD1 QTY+6~, QTY+7*, QTY+8*
PSDA QTY+29, END+1!
PSDEM QTY+22!, END+1!
PSDOUT PAT~, QTY*, QTY+22, QTY+28, QTY+29, QTY+30, END+1!
PSDQTY QTY+22*, QTY+28*, END+1!
PSDR DRUG+2!, DRUG+4*, DRUG+6, DRUG+8, DRUG+9, CHEC+3, END+1!
PSDR(1 DRUG+4*, CHEC+4*, QTY+13*, QTY+14*, QTY+16*
PSDR(2 DRUG+4*, QTY+12
PSDRD END+1!
PSDRN DRUG+4*, QTY+29, END+1!
PSDS NAOU+6*, NAOU+7*, NAOU+8, NAOU+9, NAOU+10, NAOU+11, NAOU+14, DRUG+6, DRUG+8, DRUG+9
, CHEC+3, END+1!
>> PSDSITE PSDORNV+17
PSDT END+1!
PSDT(8 CHEC+4*, QTY+12*, QTY+22, QTY+23, QTY+24
PSDT(9 QTY+21*
PSDUZ PSDORNV+22*, END+1!
PSDUZN END+1!
REQD PSDORNV+22*, END+1!
TEXT END+1!
TYPE NAOU+11*, END+1!
U PSDORNV+20, PCA+4, PCA+5, PCA+6, PCA+7, PCA+8, PCA+9, DRUG+4, DRUG+6, CHEC
, CHEC+3, CHEC+4, QTY+12, QTY+16
WORD END+1!
X NAOU+12~, NAOU+13*, NAOU+14*, PAT~, QTY+6~, QTY+8*, END+1!
XQH PSDORNV+20~*
Y PSDORNV+22*, NAOU+3, PAT~, PAT+2, PCA+1, DRUG+4, QTY+10, QTY+11, QTY+12*, QTY+13
, QTY+14, QTY+15, QTY+16, QTY+21, QTY+27, QTY+28, END+1!
Y(0 DRUG+4, QTY+16
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All