| 1 | PSAPSI4 ;BIR/LTL-IV Dispensing (Single Drug) & (All Drugs) ;7/23/97
|
|---|
| 2 | ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;**3**; 10/24/97
|
|---|
| 3 | ;This routine gets and sets the IV conversion factors.
|
|---|
| 4 | ;
|
|---|
| 5 | N PSADD,PSASOL,PSAC,Y,DIE,DA,DR
|
|---|
| 6 | ADD S PSADD=$O(^PS(52.6,"AC",+PSAIT,0)) D:PSADD
|
|---|
| 7 | .W !,PSAIT(2)," is an IV Additive and will therefore be"
|
|---|
| 8 | I 'PSADD S PSASOL=$O(^PS(52.7,"AC",+PSAIT,0)) W !,PSAIT(2)," is an IV Solution and will therefore be"
|
|---|
| 9 | W !!,"dispensed in the IV module by the " D:PSADD
|
|---|
| 10 | .S Y=$P($G(^PS(52.6,+PSADD,0)),U,3),C=$P(^DD(52.6,2,0),U,3)
|
|---|
| 11 | .D Y^DIQ W Y
|
|---|
| 12 | W:$G(PSASOL) "ML"
|
|---|
| 13 | W ", but in ",PSALOCN," by the ",$P(PSAIT(4),U,8),".",!!
|
|---|
| 14 | W:PSADD "Please enter the number of ",Y,"s per ",$P(PSAIT(4),U,8),".",!
|
|---|
| 15 | S DIE="^PSD(58.8,+PSALOC,1,",DA(1)=PSALOC,DA=PSAIT,DR="25"
|
|---|
| 16 | 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>",!
|
|---|
| 17 | D ^DIE K DIE,DA,DR,PSADD,PSASOL
|
|---|
