| GENERAL DESCRIPTION |
PDM requests permission to look at the ^DD global for
following files:
Global route File # File
--------------------------------------------------------------------
^DD(50 50 DRUG
File 50 DRUG MUMPS x-ref (AUDAP)
Field .01 GENERIC NAME - ^DD(50,51,0).
^DD("50",".01","1","3","0")="50^AUDAP^MUMPS" ^DD("50",".01","1","3","1")="I
'$D(PSGINITF) S ^PSDRUG("AUDAP")=$S($D(^PS(59.7,1 ,20)):$P(^(20),"^"),1:"")"
^DD("50",".01","1","3","1.1")="S X=Y(0) S Y(1)=$S($D(^PSDRUG(D0,0)):^(0),1:"")
S
X=$P(Y(1),U,1) S XMB(1)=X" ^DD("50",".01","1","3","1.2")="S X=Y(0) S
Y(2)=$C(59)_$S($D(^DD(50,51,0)):$P(^(0
),U,3),1:""),Y(1)=$S($D(^PSDRUG(D0,0)):^(0),1:"") S
X=$P($P(Y(2),$C(59)_$P(Y(1), U,9)_":",2),$C(59),1) S XMB(2)=X"
^DD("50",".01","1","3","1.3")="S X=Y(0) S Y(1)=$S($DPSDRUG(D0,0)):^(0),1:"") S
X=$S('$D(^PS(50.5,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1)) S XMB(3)=X"
^DD("50",".01","1","3","1.4")="S X=Y(0) S Y(1)=$S($D(^PSDRUG(D0,0)):^(0),1:"")
S
X1),U,10) S XMB(4)=X" ^DD("50",".01","1","3","2")="Q"
^DD("50",".01","1","3","2.2")="S X=Y(0) S
Y(2)=$C(59)_$S($D(^DD(50,51,0)):$P(^(0
),U,3),1:""),Y(1)=$S($D(^PSDRUG(D0,0)):^(0),P(Y(2),$C(59)_$P(Y(1),
U,9)_":",2),$C(59),1) S XMB(2)=X" ^DD("50",".01","1","3","2.3")="S X=Y(0) S
Y(1)=$S($D(^PSDRUG(D0,0)):^(0),1:"") S
X=$S('$D(^PS(50.5,+$P(Y(1),U,2),0)):"",(0),U,1)) S XMB(3)=X"
^DD("50",".01","1","3","2.4")="S X=Y(0) S Y(1)=$S($D(^PSDRUG(D0,0)):^(0),1:"")
S
X=$P(Y(1),U,10) S XMB(4)=X" ^DD("50",".01","1","3","3")="Used by the Unit
npatient Medications package s."
****************
^DD(51.1 51.1 ADMINISTRATION SCHEDULE
File 52.6 IV ADDITIVES INPUT TRANSFORM
Field 5 ADMINISTRATION TIMES - ^DD(51.1,1,0)
^DD("52.6","5","0")="ADMINISTRATION TIMES^FX^^0;6^X
$P(^DD(51.1,1,0),"^",5,999) Q" ^DD("52.6","5","3")="Answer must be 2-119
characters in length." ^DD("52.6","5","20","0")="^.3LA^1^1"
^DD("52.6","5","20","1","0")="PSJI"
^DD("52.6","5","21","0")="^^3^3^2910412^^^^" ^DD("52.6","5","21","1","0")="
Enter the admin. times that this drug is given m ost frequently. This"
^DD("52.6","5","21","2","0")="field will be shown as default for the 'ADMIN.
TIM ES: ' prompt during" ^DD("52.6","5","21","3","0")="ordry of IVPB's."
^DD("52.6","5","DT")="2910412"
****************
^DD(52.6 52.6 IV ADDITIVES
File 52.6 IV ADDITIVES INPUT TRANSFORM
Field 13 CONCENTRATION - ^DD(52.6,2,0)
^DD("52.6","13","0")="CONCENTRATION^FX^^0;10^K:X'=+X!(X>99999)!(X<0)!(X?.E1"."3
N
.N) X I $D(X) S PSIVX=X,Y=^DD(52.6,2,0),X=$P(^PS(52.6,D0,0),"^",3) D ENC^PSIV
D EN^DDIOL(" "_X_"/ML","","?0") S X=PSIVX_" "_X_"/ML" K PSIVX"
^DD("52.6","13","3")="Type a number between 0 and 99999 (no more than 2
decimal digits, and no trailing 0's are allowed)."
****************
^DD(50.4 50.4 DRUG ELECTROLYTES
File 52.6 IV ADDITIVES INPUT TRANSFORM
Subfile 52.62 Field 1 CONCENTRATION - ^DD(50.4,1,0)
^DD("52.62","1","0")="CONCENTRATION^RFX^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."5
N
.N) X I $D(X) S
PSIVX=X,Y=^DD(50.4,1,0),X=$P(^PS(50.4,+^PS(52.6,DA(1),2,DA,0),0) ,"^",2) D
ENC^PSIV S X=PSIVX_" "_X K PSIVX D STRTH^PSSDDUT2" ^DD("52.62","1","3")="Type
a number between 0 and 99999."
****************
^DD(59.723 59.7 PHARMACY SYSTEM
File 59.7 PHARMACY SYSTEM INPUT TRANSFORM
Subfile 59.723 Field .01 TO SERVICE - ^DD(59.723,.01,0) PSYS2 D
EN^DDIOL("(""From"" service is "_$S('$D(PS(59.7,D0,23,D1,0)):"UNKNOWN"
,$P(^(0),"^")]"":$P(^PS(";"_$P(^DD(59.723,.01,0),"^",3),";"_$P(^PS(59.7,D0,23,D
1
,0),"^")_":",2),";"),1:"UNKNOWN")_")")
Q
****************
^DD(55.01 55 PHARMACY PATIENT
File 52.6 IV ADDITIVES INPUT TRANSFORM
Field 4 USUAL IV SCHEDULE - ^DD(55.01,.09,0) ^DD("52.61","4","0")="USUAL IV
SCHEDULE^FX^^0;5^X $P(^DD(55.01,.09,0),"^",5,999)
"
^DD("52.61","4","3")="Answer must be 1-22 characters in length."
^DD("52.61","4","20","0")="^.3LA^1^1" ^DD("52.61","4","20","1","0")="PSJI"
^DD("52.61","4","21","0")="^^2^2^2910305^^^" ^DD("52.61","4","21","1","0")="
Enter the schedule that should be 'stuffed' int o the schedule field"
^DD("52.61","4","21","2","0")="of the IV order using this quick code."
^DD("52.61","4","DT")="2860223"
****************
^DD(50.4 50.4 DRUG ELECTROLYTES
File 52.7 IV SOLUTIONS INPUT TRANSFORM
Subfile 52.702 Field 1 CONCENTRATION - ^DD(50.4,1,0)
^DD("52.702","1","0")="CONCENTRATION^RFX^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."
5
N.N) X I $D(X) S
PSIVX=X,Y=^DD(50.4,1,0),X=$P(^PS(50.4,+^PS(52.7,DA(1),2,DA,0),0 ),"^",2) D
ENC^PSIV S X=PSIVX_" "_X K PSIVX D STRTH^PSSDDUT2" ^DD("52.702","1","3")="Type
a number between 0 and 99999."
|