source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK1.m@ 1800

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

initial load of WorldVistAEHR

File size: 795 bytes
Line 
1YSXRAK1 ; COMPILED XREF FOR FILE #615.2 ; 01/30/05
2 ;
3 S DIKZK=2
4 S DIKZ(0)=$G(^YS(615.2,DA,0))
5 S X=$P(DIKZ(0),U,2)
6 I X'="" K ^YS(615.2,"AC",$E(X,1,30),DA)
7 S X=$P(DIKZ(0),U,2)
8 I X'="" K ^YS(615.2,"C",$E(X,1,30),DA)
9 S X=$P(DIKZ(0),U,4)
10 I X'="" K ^YS(615.2,"AE",$P(^YS(615.2,DA,0),"^",3),$E(X,1,30),DA)
11 S DIKZ(25)=$G(^YS(615.2,DA,25))
12 S X=$P(DIKZ(25),U,2)
13 I X'="" K ^YS(615.2,"AF",$P(^YS(615.2,DA,0),"^",2),DA)
14 S DIKZ(40)=$G(^YS(615.2,DA,40))
15 S X=$P(DIKZ(40),U,5)
16 I X'="" K ^YS(615.2,"AC",$P(^YS(615.2,DA,0),"^",2),DA)
17 S X=$P(DIKZ(40),U,5)
18 I X'="" K ^YS(615.2,"AD",$P(^YS(615.2,DA,0),"^",2),DA)
19 S DIKZ(50)=$G(^YS(615.2,DA,50))
20 S X=$P(DIKZ(50),U,5)
21 I X'="" K ^YS(615.2,"AD",$P(^YS(615.2,DA,0),"^",2),DA)
22 S X=$P(DIKZ(0),U,1)
23 I X'="" K ^YS(615.2,"B",$E(X,1,30),DA)
24END G ^YSXRAK2
Note: See TracBrowser for help on using the repository browser.