source: WorldVistAEHR/trunk/r/DRUG_ACCOUNTABILITY-PSA/PSAPSI4.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 977 bytes
Line 
1PSAPSI4 ;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
6ADD 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
Note: See TracBrowser for help on using the repository browser.