source: WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOSUTL1.m@ 1704

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

initial load of WorldVistAEHR
File size: 4.2 KB
Line 
1PSOSUTL1 ;BIRM/WPB-Rx Suspense File Cross Reference Utility ; 12/7/95
2 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997
3SDIVAS 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)=""
4 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
5 .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)
6 .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)=""
7 Q
8KDIVAS 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)
9 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)
10 Q
11SPDTAS 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)=""
12 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
13 .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)
14 .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)=""
15 Q
16KPDTAS 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)
17 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)
18 Q
19SPBYAS 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)=""
20 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
21 .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)
22 .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)=""
23 Q
24KPBYAS 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)
25 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)
26 Q
27SSEQAS 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)=""
28 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
29 .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)
30 .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)=""
31 Q
32KSEQAS 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)
33 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)
34 Q
35SADL 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)=""
36 Q
37KADL 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)
38 Q
Note: See TracBrowser for help on using the repository browser.