source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK7.m@ 1297

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

initial load of WorldVistAEHR

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