39 lines
4.2 KiB
Mathematica
39 lines
4.2 KiB
Mathematica
|
PSOSUTL1 ;BIRM/WPB-Rx Suspense File Cross Reference Utility ; 12/7/95
|
||
|
;;7.0;OUTPATIENT PHARMACY;;DEC 1997
|
||
|
SDIVAS S:$P($G(^PS(52.5,DA,0)),"^",9)&($P($G(^(0)),"^",11))&($P($G(^(0)),"^",8))&($P($G(^PS(52.5,DA,"P")),"^"))&($P($G(^PS(52.5,DA,0)),"^",7)="") ^PS(52.5,"AS",$P(^PS(52.5,DA,0),"^",8),$P(^PS(52.5,DA,0),"^",9),X,$P(^PS(52.5,DA,0),"^",11),DA)=""
|
||
|
I $P(^PS(52.5,DA,0),"^",7)="P"&($P($G(^PS(52.5,DA,0)),"^",9))&($P($G(^(0)),"^",11))&($P($G(^(0)),"^",8)) D
|
||
|
.K ^PS(52.5,"AS",$P(^PS(52.5,DA,0),"^",8),$P(^PS(52.5,DA,0),"^",9),X,$P(^PS(52.5,DA,0),"^",11),DA)
|
||
|
.S ^PS(52.5,"APR",$P(^PS(52.5,DA,0),"^",8),$P(^PS(52.5,DA,0),"^",9),X,$P(^PS(52.5,DA,0),"^",11),DA)=""
|
||
|
Q
|
||
|
KDIVAS K:$P($G(^PS(52.5,DA,0)),"^",9)&($P($G(^(0)),"^",11))&($P($G(^(0)),"^",8))&($P($G(^PS(52.5,DA,0)),"^",7)="") ^PS(52.5,"AS",$P(^PS(52.5,DA,0),"^",8),$P(^PS(52.5,DA,0),"^",9),X,$P(^PS(52.5,DA,0),"^",11),DA)
|
||
|
K:$P($G(^PS(52.5,DA,0)),"^",9)&($P($G(^(0)),"^",11))&($P($G(^(0)),"^",8))&($P($G(^PS(52.5,DA,0)),"^",7)="P") ^PS(52.5,"APR",$P(^PS(52.5,DA,0),"^",8),$P(^PS(52.5,DA,0),"^",9),X,$P(^PS(52.5,DA,0),"^",11),DA)
|
||
|
Q
|
||
|
SPDTAS S:$P($G(^PS(52.5,DA,0)),"^",9)&($P($G(^(0)),"^",11))&($P($G(^(0)),"^",6))&($P($G(^PS(52.5,DA,"P")),"^"))&($P($G(^PS(52.5,DA,0)),"^",7)="") ^PS(52.5,"AS",X,$P(^PS(52.5,DA,0),"^",9),$P(^PS(52.5,DA,0),"^",6),$P(^PS(52.5,DA,0),"^",11),DA)=""
|
||
|
I $P(^PS(52.5,DA,0),"^",7)="P"&($P($G(^PS(52.5,DA,0)),"^",9))&($P($G(^(0)),"^",11))&($P($G(^(0)),"^",6)) D
|
||
|
.K ^PS(52.5,"AS",X,$P(^PS(52.5,DA,0),"^",9),$P(^PS(52.5,DA,0),"^",6),$P(^PS(52.5,DA,0),"^",11),DA)
|
||
|
.S ^PS(52.5,"APR",X,$P(^PS(52.5,DA,0),"^",9),$P(^PS(52.5,DA,0),"^",6),$P(^PS(52.5,DA,0),"^",11),DA)=""
|
||
|
Q
|
||
|
KPDTAS K:$P($G(^PS(52.5,DA,0)),"^",9)&($P($G(^(0)),"^",11))&($P($G(^(0)),"^",6))&($P($G(^PS(52.5,DA,0)),"^",7)="") ^PS(52.5,"AS",X,$P(^PS(52.5,DA,0),"^",9),$P(^PS(52.5,DA,0),"^",6),$P(^PS(52.5,DA,0),"^",11),DA)
|
||
|
K:$P($G(^PS(52.5,DA,0)),"^",9)&($P($G(^(0)),"^",11))&($P($G(^(0)),"^",6))&($P($G(^PS(52.5,DA,0)),"^",7)="P") ^PS(52.5,"APR",X,$P(^PS(52.5,DA,0),"^",9),$P(^PS(52.5,DA,0),"^",6),$P(^PS(52.5,DA,0),"^",11),DA)
|
||
|
Q
|
||
|
SPBYAS S:$P($G(^PS(52.5,DA,0)),"^",8)&($P($G(^(0)),"^",11))&($P($G(^(0)),"^",6))&($P($G(^PS(52.5,DA,"P")),"^"))&($P($G(^PS(52.5,DA,0)),"^",7)="") ^PS(52.5,"AS",$P(^PS(52.5,DA,0),"^",8),X,$P(^PS(52.5,DA,0),"^",6),$P(^PS(52.5,DA,0),"^",11),DA)=""
|
||
|
I $P(^PS(52.5,DA,0),"^",7)="P"&($P($G(^PS(52.5,DA,0)),"^",8))&($P($G(^(0)),"^",11))&($P($G(^(0)),"^",6)) D
|
||
|
.K ^PS(52.5,"AS",$P(^PS(52.5,DA,0),"^",8),X,$P(^PS(52.5,DA,0),"^",6),$P(^PS(52.5,DA,0),"^",11),DA)
|
||
|
.S ^PS(52.5,"APR",$P(^PS(52.5,DA,0),"^",8),X,$P(^PS(52.5,DA,0),"^",6),$P(^PS(52.5,DA,0),"^",11),DA)=""
|
||
|
Q
|
||
|
KPBYAS K:$P($G(^PS(52.5,DA,0)),"^",8)&($P($G(^(0)),"^",11))&($P($G(^(0)),"^",6))&($P($G(^PS(52.5,DA,0)),"^",7)="") ^PS(52.5,"AS",$P(^PS(52.5,DA,0),"^",8),X,$P(^PS(52.5,DA,0),"^",6),$P(^PS(52.5,DA,0),"^",11),DA)
|
||
|
K:$P($G(^PS(52.5,DA,0)),"^",8)&($P($G(^(0)),"^",11))&($P($G(^(0)),"^",6))&($P($G(^PS(52.5,DA,0)),"^",7)="P") ^PS(52.5,"APR",$P(^PS(52.5,DA,0),"^",8),X,$P(^PS(52.5,DA,0),"^",6),$P(^PS(52.5,DA,0),"^",11),DA)
|
||
|
Q
|
||
|
SSEQAS S:$P($G(^PS(52.5,DA,0)),"^",8)&($P($G(^(0)),"^",9))&($P($G(^(0)),"^",6))&($P($G(^PS(52.5,DA,"P")),"^"))&($P($G(^PS(52.5,DA,0)),"^",7)="") ^PS(52.5,"AS",$P(^PS(52.5,DA,0),"^",8),$P(^PS(52.5,DA,0),"^",9),$P(^PS(52.5,DA,0),"^",6),X,DA)=""
|
||
|
I $P(^PS(52.5,DA,0),"^",7)="P"&($P($G(^PS(52.5,DA,0)),"^",8))&($P($G(^(0)),"^",9))&($P($G(^(0)),"^",6)) D
|
||
|
.K ^PS(52.5,"AS",$P(^PS(52.5,DA,0),"^",8),$P(^PS(52.5,DA,0),"^",9),$P(^PS(52.5,DA,0),"^",6),X,DA)
|
||
|
.S ^PS(52.5,"APR",$P(^PS(52.5,DA,0),"^",8),$P(^PS(52.5,DA,0),"^",9),$P(^PS(52.5,DA,0),"^",6),X,DA)=""
|
||
|
Q
|
||
|
KSEQAS K:$P($G(^PS(52.5,DA,0)),"^",8)&($P($G(^(0)),"^",9))&($P($G(^(0)),"^",6))&($P($G(^PS(52.5,DA,0)),"^",7)="") ^PS(52.5,"AS",$P(^PS(52.5,DA,0),"^",8),$P(^PS(52.5,DA,0),"^",9),$P(^PS(52.5,DA,0),"^",6),X,DA)
|
||
|
K:$P($G(^PS(52.5,DA,0)),"^",8)&($P($G(^(0)),"^",9))&($P($G(^(0)),"^",6))&($P($G(^PS(52.5,DA,0)),"^",7)="P") ^PS(52.5,"APR",$P(^PS(52.5,DA,0),"^",8),$P(^PS(52.5,DA,0),"^",9),$P(^PS(52.5,DA,0),"^",6),X,DA)
|
||
|
Q
|
||
|
SADL I $P($G(^PS(52.5,DA,0)),"^",8),$G(^PS(52.5,DA,"P")) S ^PS(52.5,"ADL",$E($P(^PS(52.5,DA,0),"^",8),1,7),DA)=""
|
||
|
Q
|
||
|
KADL I $P($G(^PS(52.5,DA,0)),"^",8),$G(^PS(52.5,DA,"P")) K ^PS(52.5,"ADL",$E($P(^PS(52.5,DA,0),"^",8),1,7),DA)
|
||
|
Q
|