PSAPSI4 ;BIR/LTL-IV Dispensing (Single Drug) & (All Drugs) ;7/23/97
;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**3**; 10/24/97
;This routine gets and sets the IV conversion factors.
;
N PSADD,PSASOL,PSAC,Y,DIE,DA,DR
ADD S PSADD=$O(^PS(52.6,"AC",+PSAIT,0)) D:PSADD
.W !,PSAIT(2)," is an IV Additive and will therefore be"
I 'PSADD S PSASOL=$O(^PS(52.7,"AC",+PSAIT,0)) W !,PSAIT(2)," is an IV Solution and will therefore be"
W !!,"dispensed in the IV module by the " D:PSADD
.S Y=$P($G(^PS(52.6,+PSADD,0)),U,3),C=$P(^DD(52.6,2,0),U,3)
.D Y^DIQ W Y
W:$G(PSASOL) "ML"
W ", but in ",PSALOCN," by the ",$P(PSAIT(4),U,8),".",!!
W:PSADD "Please enter the number of ",Y,"s per ",$P(PSAIT(4),U,8),".",!
S DIE="^PSD(58.8,+PSALOC,1,",DA(1)=PSALOC,DA=PSAIT,DR="25"
I $G(PSASOL) W "The IV conversion factor is set to " S PSASOL(1)=+$P($G(^PS(52.7,+PSASOL,0)),U,3),DR="25////"_PSASOL(1) W PSASOL(1),". <determined by IV Solution volume>",!
D ^DIE K DIE,DA,DR,PSADD,PSASOL
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSAPSI4 994 printed Oct 16, 2024@17:51:06 Page 2
PSAPSI4 ;BIR/LTL-IV Dispensing (Single Drug) & (All Drugs) ;7/23/97
+1 ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**3**; 10/24/97
+2 ;This routine gets and sets the IV conversion factors.
+3 ;
+4 NEW PSADD,PSASOL,PSAC,Y,DIE,DA,DR
ADD SET PSADD=$ORDER(^PS(52.6,"AC",+PSAIT,0))
if PSADD
Begin DoDot:1
+1 WRITE !,PSAIT(2)," is an IV Additive and will therefore be"
End DoDot:1
+2 IF 'PSADD
SET PSASOL=$ORDER(^PS(52.7,"AC",+PSAIT,0))
WRITE !,PSAIT(2)," is an IV Solution and will therefore be"
+3 WRITE !!,"dispensed in the IV module by the "
if PSADD
Begin DoDot:1
+4 SET Y=$PIECE($GET(^PS(52.6,+PSADD,0)),U,3)
SET C=$PIECE(^DD(52.6,2,0),U,3)
+5 DO Y^DIQ
WRITE Y
End DoDot:1
+6 if $GET(PSASOL)
WRITE "ML"
+7 WRITE ", but in ",PSALOCN," by the ",$PIECE(PSAIT(4),U,8),".",!!
+8 if PSADD
WRITE "Please enter the number of ",Y,"s per ",$PIECE(PSAIT(4),U,8),".",!
+9 SET DIE="^PSD(58.8,+PSALOC,1,"
SET DA(1)=PSALOC
SET DA=PSAIT
SET DR="25"
+10 IF $GET(PSASOL)
WRITE "The IV conversion factor is set to "
SET PSASOL(1)=+$PIECE($GET(^PS(52.7,+PSASOL,0)),U,3)
SET DR="25////"_PSASOL(1)
WRITE PSASOL(1),". <determined by IV Solution volume>",!
+11 DO ^DIE
KILL DIE,DA,DR,PSADD,PSASOL
