| 1 | PSODISP2 ;BHAM ISC/SAB - report of released scripts ; 03/29/93 16:49
|
|---|
| 2 | ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
|
|---|
| 3 | S (RXN,ND)=0,BDT=BEGDT-1 F S BDT=$O(^PSRX("ADP",BDT)) Q:'BDT!(BDT>ENDDT) F S RXN=$O(^PSRX("ADP",BDT,RXN)) Q:'RXN D
|
|---|
| 4 | .F S ND=$O(^PSRX("ADP",BDT,RXN,ND)) Q:'ND!($G(^PSRX(RXN,0))']"") S PAR=1,NODE=ND D K LB,LBLP I $Y+4>IOSL D HD^PSODISP1
|
|---|
| 5 | ..I $P($G(^PSRX(RXN,"P",NODE,0)),"^",19),DUD Q
|
|---|
| 6 | ..I $P($G(^PSRX(RXN,"P",NODE,0)),"^",9)'=SITE Q
|
|---|
| 7 | ..I $P($G(^PSRX(RXN,"P",NODE,0)),"^",16)]"" Q
|
|---|
| 8 | ..S XY=$P(^PSRX(RXN,"STA"),"^") I (XY=3)!(XY=4)!(XY=13) Q
|
|---|
| 9 | ..I $P($G(^PSRX(RXN,"P",NODE,0)),"^",19) D D CP1^PSODISP1
|
|---|
| 10 | ...W !,$P(^PSRX(RXN,0),"^"),?16,"Partial #"_NODE S Y=$P(^PSRX(RXN,"P",NODE,0),"^",19) X ^DD("DD") W ?29,$S(Y["@":$P(Y,"@"),1:Y),?50,"Yes"
|
|---|
| 11 | ..I '$P(^PSRX(RXN,"P",NODE,0),"^",19) D Q:'$G(LBLP) W !,$P(^PSRX(RXN,0),"^"),?16,"Partial #"_NODE,?50,"No" D CP1^PSODISP1 S UNREL=UNREL+1 K LBLP
|
|---|
| 12 | ...F LB=0:0 S LB=$O(^PSRX(RXN,"L",LB)) Q:'LB I $P(^PSRX(RXN,"L",LB,0),"^",2)=(99-NODE) S LBLP=1
|
|---|
| 13 | Q
|
|---|
