| [613] | 1 | PSSPOID2 ;BIR/RTR/WRT-Get drugs, additives, solutions ;02/14/00
|
|---|
| 2 | ;;1.0;PHARMACY DATA MANAGEMENT;**38**;9/30/97
|
|---|
| 3 | CHECK(PSSROIT) ;
|
|---|
| 4 | ;PSSDACT = ARRAY OF ACTIVE DISPENSE DRUGS
|
|---|
| 5 | ;PSSDACTI = ARRAY OF INACTIVE DISPENSE DRUGS
|
|---|
| 6 | ;PSSSACT = ARRAY OF ACTIVE SOLUTIONS
|
|---|
| 7 | ;PSSSACTI = ARRAY OF INACTIVE SOLUTIONS
|
|---|
| 8 | ;PSSAACT = ARRAY OF ACTIVE ADDITIVES
|
|---|
| 9 | ;PSSAACTI = ARRAY OF INACTIVE ADDITIVES
|
|---|
| 10 | K PSSDACT,PSSDACTI,PSSSACT,PSSSACTI,PSSAACT,PSSAACTI
|
|---|
| 11 | N PSSRDATE,PSSRFLAG,PSSAI
|
|---|
| 12 | Q:'$G(PSSROIT)
|
|---|
| 13 | I $D(^PS(50.7,PSSROIT,0)) D
|
|---|
| 14 | .F PSSAI=0:0 S PSSAI=$O(^PS(52.7,"AOI",PSSROIT,PSSAI)) Q:'PSSAI I $D(^PS(52.7,PSSAI,0)) D
|
|---|
| 15 | ..S PSSRDATE=$P($G(^PS(52.7,PSSAI,"I")),"^") D DTE
|
|---|
| 16 | ..I PSSRFLAG S PSSSACT(PSSAI)="" Q
|
|---|
| 17 | ..S PSSSACTI(PSSAI)=""
|
|---|
| 18 | .F PSSAI=0:0 S PSSAI=$O(^PS(52.6,"AOI",PSSROIT,PSSAI)) Q:'PSSAI I $D(^PS(52.6,PSSAI,0)) D
|
|---|
| 19 | ..S PSSRDATE=$P($G(^PS(52.6,PSSAI,"I")),"^") D DTE
|
|---|
| 20 | ..I PSSRFLAG S PSSAACT(PSSAI)="" Q
|
|---|
| 21 | ..S PSSAACTI(PSSAI)=""
|
|---|
| 22 | .F PSSAI=0:0 S PSSAI=$O(^PSDRUG("ASP",PSSROIT,PSSAI)) Q:'PSSAI I $D(^PSDRUG(PSSAI,0)) D
|
|---|
| 23 | ..S PSSRDATE=$P($G(^PSDRUG(PSSAI,"I")),"^") D DTE
|
|---|
| 24 | ..I PSSRFLAG S PSSDACT(PSSAI)="" Q
|
|---|
| 25 | ..S PSSDACTI(PSSAI)=""
|
|---|
| 26 | Q
|
|---|
| 27 | DTE ;
|
|---|
| 28 | S PSSRFLAG=0
|
|---|
| 29 | I '$G(PSSRDATE)!(+$G(PSSRDATE)>DT) S PSSRFLAG=1
|
|---|
| 30 | Q
|
|---|
