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 Sep 15, 2024@21:14:30 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