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
|
---|