Context Navigation

← Previous Change
Next Change →

MENTAL_HEALTH-YS-RUCL-YI-YT

Timestamp:

Dec 4, 2009, 8:26:01 PM (15 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

: 126 edited
: 1 copied

. (copied) (copied from FOIAVistA/trunk/r )
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAA.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAA1.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAA2.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAA3.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAA4.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAB.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAB1.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAB2.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAB3.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAB4.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAC.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAC1.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAC2.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAC3.m (modified) (2 diffs)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAC4.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAC5.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAC6.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAC7.m (modified) (2 diffs)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAC8.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAD.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAD1.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAD2.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAE.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAE1.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAE2.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAE3.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAE4.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAF.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAF1.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAF2.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAF3.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAF4.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAF5.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAF6.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAG.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAG1.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAG2.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAJ.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAJ1.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAJ2.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAJ3.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAJ4.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK1.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK10.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK11.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK12.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK2.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK3.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK4.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK5.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK6.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK7.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK8.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK9.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAL.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAL1.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAL2.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAM.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAM1.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAM2.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAN.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAN1.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAN2.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAO.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAO1.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAO2.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAP.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAP1.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAP2.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAQ.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAQ1.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAQ2.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAQ3.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAQ4.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAR.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAR1.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAR2.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAS.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAS1.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAS2.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAT.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAT1.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAT2.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAT3.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAT4.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAT5.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAT6.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAU.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAU1.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAU2.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAV.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAV1.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAV2.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAW.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAW1.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAW2.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAX.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAX1.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAX2.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAX3.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAX4.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAY.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAY1.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAY2.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAY3.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAY4.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAZ.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAZ1.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAZ2.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAZ3.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAZ4.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAZ5.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAZ6.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRBA.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRBA1.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRBA2.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRBA3.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRBA4.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRBA5.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRBA6.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YTAPI5.m (modified) (3 diffs)
MENTAL_HEALTH-YS-RUCL-YI-YT/YTAUIRR.m (modified) (3 diffs)
MENTAL_HEALTH-YS-RUCL-YI-YT/YTDOMR.m (modified) (2 diffs)
MENTAL_HEALTH-YS-RUCL-YI-YT/YTKIL.m (modified) (1 diff)
MENTAL_HEALTH-YS-RUCL-YI-YT/YTPCL.m (modified) (2 diffs)

Legend:

: Unmodified
: Added
: Removed

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAA.m

r628	r636
1		YSXRAA ; DRIVER FOR COMPILED XREFS FOR FILE #600.7 ; ~~10/15/04~~
	1	YSXRAA ; DRIVER FOR COMPILED XREFS FOR FILE #600.7 ; 01/30/05
2	2	;
3	3	N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAA1.m

r628	r636
1		YSXRAA1 ; COMPILED XREF FOR FILE #600.7 ; ~~10/15/04~~
	1	YSXRAA1 ; COMPILED XREF FOR FILE #600.7 ; 01/30/05
2	2	;
3	3	S DIKZK=2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAA2.m

r628	r636
1		YSXRAA2 ; COMPILED XREF FOR FILE #600.71 ; ~~10/15/04~~
	1	YSXRAA2 ; COMPILED XREF FOR FILE #600.71 ; 01/30/05
2	2	;
3	3	S DA(1)=DA S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAA3.m

r628	r636
1		YSXRAA3 ; COMPILED XREF FOR FILE #600.7 ; ~~10/15/04~~
	1	YSXRAA3 ; COMPILED XREF FOR FILE #600.7 ; 01/30/05
2	2	;
3	3	S DIKZK=1

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAA4.m

r628	r636
1		YSXRAA4 ; COMPILED XREF FOR FILE #600.71 ; ~~10/15/04~~
	1	YSXRAA4 ; COMPILED XREF FOR FILE #600.71 ; 01/30/05
2	2	;
3	3	S DA(1)=DA S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAB.m

r628	r636
1		YSXRAB ; DRIVER FOR COMPILED XREFS FOR FILE #601 ; ~~10/15/04~~
	1	YSXRAB ; DRIVER FOR COMPILED XREFS FOR FILE #601 ; 01/30/05
2	2	;
3	3	N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAB1.m

r628	r636
1		YSXRAB1 ; COMPILED XREF FOR FILE #601 ; ~~10/15/04~~
	1	YSXRAB1 ; COMPILED XREF FOR FILE #601 ; 01/30/05
2	2	;
3	3	S DIKZK=2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAB2.m

r628	r636
1		YSXRAB2 ; COMPILED XREF FOR FILE #601.01 ; ~~10/15/04~~
	1	YSXRAB2 ; COMPILED XREF FOR FILE #601.01 ; 01/30/05
2	2	;
3	3	S DA(1)=DA S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAB3.m

r628	r636
1		YSXRAB3 ; COMPILED XREF FOR FILE #601 ; ~~10/15/04~~
	1	YSXRAB3 ; COMPILED XREF FOR FILE #601 ; 01/30/05
2	2	;
3	3	S DIKZK=1

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAB4.m

r628	r636
1		YSXRAB4 ; COMPILED XREF FOR FILE #601.01 ; ~~10/15/04~~
	1	YSXRAB4 ; COMPILED XREF FOR FILE #601.01 ; 01/30/05
2	2	;
3	3	S DA(1)=DA S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAC.m

r628	r636
1		YSXRAC ; DRIVER FOR COMPILED XREFS FOR FILE #601.2 ; ~~12/28/04~~
	1	YSXRAC ; DRIVER FOR COMPILED XREFS FOR FILE #601.2 ; 04/07/05
2	2	;
3	3	N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAC1.m

r628	r636
1		YSXRAC1 ; COMPILED XREF FOR FILE #601.2 ; ~~12/28/04~~
	1	YSXRAC1 ; COMPILED XREF FOR FILE #601.2 ; 04/07/05
2	2	;
3	3	S DIKZK=2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAC2.m

r628	r636
1		YSXRAC2 ; COMPILED XREF FOR FILE #601.21 ; ~~12/28/04~~
	1	YSXRAC2 ; COMPILED XREF FOR FILE #601.21 ; 04/07/05
2	2	;
3	3	S DA(1)=DA S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAC3.m

-              r628
+              r636
 YSXRAC3 ; COMPILED XREF FOR FILE #601.22 ; 12/28/04
+YSXRAC3 ; COMPILED XREF FOR FILE #601.22 ; 04/07/05
+ ;
  S DA(2)=DA(1) S DA(1)=0 S DA=0
 …
  S X=$P(DIKZ(0),U,1)
  I X'="" D KILL^YTCROSS
 CR1 S DIXR=476
+CR1 S DIXR=491
  K X
  S X(1)=$P(DIKZ(0),U,1)

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAC4.m

r628	r636
1		YSXRAC4 ; COMPILED XREF FOR FILE #601.2213 ; ~~12/28/04~~
	1	YSXRAC4 ; COMPILED XREF FOR FILE #601.2213 ; 04/07/05
2	2	;
3	3	S DA(3)=DA(2) S DA(2)=0 S DA(1)=0 S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAC5.m

r628	r636
1		YSXRAC5 ; COMPILED XREF FOR FILE #601.2 ; ~~12/28/04~~
	1	YSXRAC5 ; COMPILED XREF FOR FILE #601.2 ; 04/07/05
2	2	;
3	3	S DIKZK=1

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAC6.m

r628	r636
1		YSXRAC6 ; COMPILED XREF FOR FILE #601.21 ; ~~12/28/04~~
	1	YSXRAC6 ; COMPILED XREF FOR FILE #601.21 ; 04/07/05
2	2	;
3	3	S DA(1)=DA S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAC7.m

-              r628
+              r636
 YSXRAC7 ; COMPILED XREF FOR FILE #601.22 ; 12/28/04
+YSXRAC7 ; COMPILED XREF FOR FILE #601.22 ; 04/07/05
+ ;
  S DA(2)=DA(1) S DA(1)=0 S DA=0
 …
  S X=$P(DIKZ(0),U,1)
  I X'="" D SET^YTCROSS
 CR1 S DIXR=476
+CR1 S DIXR=491
  K X
  S X(1)=$P(DIKZ(0),U,1)

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAC8.m

r628	r636
1		YSXRAC8 ; COMPILED XREF FOR FILE #601.2213 ; ~~12/28/04~~
	1	YSXRAC8 ; COMPILED XREF FOR FILE #601.2213 ; 04/07/05
2	2	;
3	3	S DA(3)=DA(2) S DA(2)=0 S DA(1)=0 S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAD.m

r628	r636
1		YSXRAD ; DRIVER FOR COMPILED XREFS FOR FILE #601.3 ; ~~10/15/04~~
	1	YSXRAD ; DRIVER FOR COMPILED XREFS FOR FILE #601.3 ; 01/30/05
2	2	;
3	3	N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAD1.m

r628	r636
1		YSXRAD1 ; COMPILED XREF FOR FILE #601.3 ; ~~10/15/04~~
	1	YSXRAD1 ; COMPILED XREF FOR FILE #601.3 ; 01/30/05
2	2	;
3	3	S DIKZK=2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAD2.m

r628	r636
1		YSXRAD2 ; COMPILED XREF FOR FILE #601.3 ; ~~10/15/04~~
	1	YSXRAD2 ; COMPILED XREF FOR FILE #601.3 ; 01/30/05
2	2	;
3	3	S DIKZK=1

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAE.m

r628	r636
1		YSXRAE ; DRIVER FOR COMPILED XREFS FOR FILE #601.4 ; ~~10/15/04~~
	1	YSXRAE ; DRIVER FOR COMPILED XREFS FOR FILE #601.4 ; 01/30/05
2	2	;
3	3	N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAE1.m

r628	r636
1		YSXRAE1 ; COMPILED XREF FOR FILE #601.4 ; ~~10/15/04~~
	1	YSXRAE1 ; COMPILED XREF FOR FILE #601.4 ; 01/30/05
2	2	;
3	3	S DIKZK=2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAE2.m

r628	r636
1		YSXRAE2 ; COMPILED XREF FOR FILE #601.41 ; ~~10/15/04~~
	1	YSXRAE2 ; COMPILED XREF FOR FILE #601.41 ; 01/30/05
2	2	;
3	3	S DA(1)=DA S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAE3.m

r628	r636
1		YSXRAE3 ; COMPILED XREF FOR FILE #601.4 ; ~~10/15/04~~
	1	YSXRAE3 ; COMPILED XREF FOR FILE #601.4 ; 01/30/05
2	2	;
3	3	S DIKZK=1

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAE4.m

r628	r636
1		YSXRAE4 ; COMPILED XREF FOR FILE #601.41 ; ~~10/15/04~~
	1	YSXRAE4 ; COMPILED XREF FOR FILE #601.41 ; 01/30/05
2	2	;
3	3	S DA(1)=DA S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAF.m

r628	r636
1		YSXRAF ; DRIVER FOR COMPILED XREFS FOR FILE #602 ; ~~10/15/04~~
	1	YSXRAF ; DRIVER FOR COMPILED XREFS FOR FILE #602 ; 01/30/05
2	2	;
3	3	N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAF1.m

r628	r636
1		YSXRAF1 ; COMPILED XREF FOR FILE #602 ; ~~10/15/04~~
	1	YSXRAF1 ; COMPILED XREF FOR FILE #602 ; 01/30/05
2	2	;
3	3	S DIKZK=2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAF2.m

r628	r636
1		YSXRAF2 ; COMPILED XREF FOR FILE #602.01 ; ~~10/15/04~~
	1	YSXRAF2 ; COMPILED XREF FOR FILE #602.01 ; 01/30/05
2	2	;
3	3	S DA(1)=DA S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAF3.m

r628	r636
1		YSXRAF3 ; COMPILED XREF FOR FILE #602.015 ; ~~10/15/04~~
	1	YSXRAF3 ; COMPILED XREF FOR FILE #602.015 ; 01/30/05
2	2	;
3	3	S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAF4.m

r628	r636
1		YSXRAF4 ; COMPILED XREF FOR FILE #602 ; ~~10/15/04~~
	1	YSXRAF4 ; COMPILED XREF FOR FILE #602 ; 01/30/05
2	2	;
3	3	S DIKZK=1

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAF5.m

r628	r636
1		YSXRAF5 ; COMPILED XREF FOR FILE #602.01 ; ~~10/15/04~~
	1	YSXRAF5 ; COMPILED XREF FOR FILE #602.01 ; 01/30/05
2	2	;
3	3	S DA(1)=DA S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAF6.m

r628	r636
1		YSXRAF6 ; COMPILED XREF FOR FILE #602.015 ; ~~10/15/04~~
	1	YSXRAF6 ; COMPILED XREF FOR FILE #602.015 ; 01/30/05
2	2	;
3	3	S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAG.m

r628	r636
1		YSXRAG ; DRIVER FOR COMPILED XREFS FOR FILE #605 ; ~~10/15/04~~
	1	YSXRAG ; DRIVER FOR COMPILED XREFS FOR FILE #605 ; 01/30/05
2	2	;
3	3	N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAG1.m

r628	r636
1		YSXRAG1 ; COMPILED XREF FOR FILE #605 ; ~~10/15/04~~
	1	YSXRAG1 ; COMPILED XREF FOR FILE #605 ; 01/30/05
2	2	;
3	3	S DIKZK=2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAG2.m

r628	r636
1		YSXRAG2 ; COMPILED XREF FOR FILE #605 ; ~~10/15/04~~
	1	YSXRAG2 ; COMPILED XREF FOR FILE #605 ; 01/30/05
2	2	;
3	3	S DIKZK=1

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAJ.m

r628	r636
1		YSXRAJ ; DRIVER FOR COMPILED XREFS FOR FILE #615 ; ~~10/15/04~~
	1	YSXRAJ ; DRIVER FOR COMPILED XREFS FOR FILE #615 ; 01/30/05
2	2	;
3	3	N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAJ1.m

r628	r636
1		YSXRAJ1 ; COMPILED XREF FOR FILE #615 ; ~~10/15/04~~
	1	YSXRAJ1 ; COMPILED XREF FOR FILE #615 ; 01/30/05
2	2	;
3	3	S DIKZK=2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAJ2.m

r628	r636
1		YSXRAJ2 ; COMPILED XREF FOR FILE #615.01 ; ~~10/15/04~~
	1	YSXRAJ2 ; COMPILED XREF FOR FILE #615.01 ; 01/30/05
2	2	;
3	3	S DA(1)=DA S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAJ3.m

r628	r636
1		YSXRAJ3 ; COMPILED XREF FOR FILE #615 ; ~~10/15/04~~
	1	YSXRAJ3 ; COMPILED XREF FOR FILE #615 ; 01/30/05
2	2	;
3	3	S DIKZK=1

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAJ4.m

r628	r636
1		YSXRAJ4 ; COMPILED XREF FOR FILE #615.01 ; ~~10/15/04~~
	1	YSXRAJ4 ; COMPILED XREF FOR FILE #615.01 ; 01/30/05
2	2	;
3	3	S DA(1)=DA S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK.m

r628	r636
1		YSXRAK ; DRIVER FOR COMPILED XREFS FOR FILE #615.2 ; ~~10/15/04~~
	1	YSXRAK ; DRIVER FOR COMPILED XREFS FOR FILE #615.2 ; 01/30/05
2	2	;
3	3	N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK1.m

r628	r636
1		YSXRAK1 ; COMPILED XREF FOR FILE #615.2 ; ~~10/15/04~~
	1	YSXRAK1 ; COMPILED XREF FOR FILE #615.2 ; 01/30/05
2	2	;
3	3	S DIKZK=2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK10.m

r628	r636
1		YSXRAK10 ; COMPILED XREF FOR FILE #615.24 ; ~~10/15/04~~
	1	YSXRAK10 ; COMPILED XREF FOR FILE #615.24 ; 01/30/05
2	2	;
3	3	S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK11.m

r628	r636
1		YSXRAK11 ; COMPILED XREF FOR FILE #615.34 ; ~~10/15/04~~
	1	YSXRAK11 ; COMPILED XREF FOR FILE #615.34 ; 01/30/05
2	2	;
3	3	S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK12.m

r628	r636
1		YSXRAK12 ; COMPILED XREF FOR FILE #615.35 ; ~~10/15/04~~
	1	YSXRAK12 ; COMPILED XREF FOR FILE #615.35 ; 01/30/05
2	2	;
3	3	S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK2.m

r628	r636
1		YSXRAK2 ; COMPILED XREF FOR FILE #615.21 ; ~~10/15/04~~
	1	YSXRAK2 ; COMPILED XREF FOR FILE #615.21 ; 01/30/05
2	2	;
3	3	S DA(1)=DA S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK3.m

r628	r636
1		YSXRAK3 ; COMPILED XREF FOR FILE #615.23 ; ~~10/15/04~~
	1	YSXRAK3 ; COMPILED XREF FOR FILE #615.23 ; 01/30/05
2	2	;
3	3	S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK4.m

r628	r636
1		YSXRAK4 ; COMPILED XREF FOR FILE #615.24 ; ~~10/15/04~~
	1	YSXRAK4 ; COMPILED XREF FOR FILE #615.24 ; 01/30/05
2	2	;
3	3	S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK5.m

r628	r636
1		YSXRAK5 ; COMPILED XREF FOR FILE #615.34 ; ~~10/15/04~~
	1	YSXRAK5 ; COMPILED XREF FOR FILE #615.34 ; 01/30/05
2	2	;
3	3	S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK6.m

r628	r636
1		YSXRAK6 ; COMPILED XREF FOR FILE #615.35 ; ~~10/15/04~~
	1	YSXRAK6 ; COMPILED XREF FOR FILE #615.35 ; 01/30/05
2	2	;
3	3	S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK7.m

r628	r636
1		YSXRAK7 ; COMPILED XREF FOR FILE #615.2 ; ~~10/15/04~~
	1	YSXRAK7 ; COMPILED XREF FOR FILE #615.2 ; 01/30/05
2	2	;
3	3	S DIKZK=1

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK8.m

r628	r636
1		YSXRAK8 ; COMPILED XREF FOR FILE #615.21 ; ~~10/15/04~~
	1	YSXRAK8 ; COMPILED XREF FOR FILE #615.21 ; 01/30/05
2	2	;
3	3	S DA(1)=DA S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAK9.m

r628	r636
1		YSXRAK9 ; COMPILED XREF FOR FILE #615.23 ; ~~10/15/04~~
	1	YSXRAK9 ; COMPILED XREF FOR FILE #615.23 ; 01/30/05
2	2	;
3	3	S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAL.m

r628	r636
1		YSXRAL ; DRIVER FOR COMPILED XREFS FOR FILE #615.5 ; ~~10/15/04~~
	1	YSXRAL ; DRIVER FOR COMPILED XREFS FOR FILE #615.5 ; 01/30/05
2	2	;
3	3	N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAL1.m

r628	r636
1		YSXRAL1 ; COMPILED XREF FOR FILE #615.5 ; ~~10/15/04~~
	1	YSXRAL1 ; COMPILED XREF FOR FILE #615.5 ; 01/30/05
2	2	;
3	3	S DIKZK=2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAL2.m

r628	r636
1		YSXRAL2 ; COMPILED XREF FOR FILE #615.5 ; ~~10/15/04~~
	1	YSXRAL2 ; COMPILED XREF FOR FILE #615.5 ; 01/30/05
2	2	;
3	3	S DIKZK=1

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAM.m

r628	r636
1		YSXRAM ; DRIVER FOR COMPILED XREFS FOR FILE #615.6 ; ~~10/15/04~~
	1	YSXRAM ; DRIVER FOR COMPILED XREFS FOR FILE #615.6 ; 01/30/05
2	2	;
3	3	N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAM1.m

r628	r636
1		YSXRAM1 ; COMPILED XREF FOR FILE #615.6 ; ~~10/15/04~~
	1	YSXRAM1 ; COMPILED XREF FOR FILE #615.6 ; 01/30/05
2	2	;
3	3	S DIKZK=2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAM2.m

r628	r636
1		YSXRAM2 ; COMPILED XREF FOR FILE #615.6 ; ~~10/15/04~~
	1	YSXRAM2 ; COMPILED XREF FOR FILE #615.6 ; 01/30/05
2	2	;
3	3	S DIKZK=1

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAN.m

r628	r636
1		YSXRAN ; DRIVER FOR COMPILED XREFS FOR FILE #615.7 ; ~~10/15/04~~
	1	YSXRAN ; DRIVER FOR COMPILED XREFS FOR FILE #615.7 ; 01/30/05
2	2	;
3	3	N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAN1.m

r628	r636
1		YSXRAN1 ; COMPILED XREF FOR FILE #615.7 ; ~~10/15/04~~
	1	YSXRAN1 ; COMPILED XREF FOR FILE #615.7 ; 01/30/05
2	2	;
3	3	S DIKZK=2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAN2.m

r628	r636
1		YSXRAN2 ; COMPILED XREF FOR FILE #615.7 ; ~~10/15/04~~
	1	YSXRAN2 ; COMPILED XREF FOR FILE #615.7 ; 01/30/05
2	2	;
3	3	S DIKZK=1

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAO.m

r628	r636
1		YSXRAO ; DRIVER FOR COMPILED XREFS FOR FILE #615.8 ; ~~10/15/04~~
	1	YSXRAO ; DRIVER FOR COMPILED XREFS FOR FILE #615.8 ; 01/30/05
2	2	;
3	3	N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAO1.m

r628	r636
1		YSXRAO1 ; COMPILED XREF FOR FILE #615.8 ; ~~10/15/04~~
	1	YSXRAO1 ; COMPILED XREF FOR FILE #615.8 ; 01/30/05
2	2	;
3	3	S DIKZK=2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAO2.m

r628	r636
1		YSXRAO2 ; COMPILED XREF FOR FILE #615.8 ; ~~10/15/04~~
	1	YSXRAO2 ; COMPILED XREF FOR FILE #615.8 ; 01/30/05
2	2	;
3	3	S DIKZK=1

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAP.m

r628	r636
1		YSXRAP ; DRIVER FOR COMPILED XREFS FOR FILE #615.9 ; ~~10/15/04~~
	1	YSXRAP ; DRIVER FOR COMPILED XREFS FOR FILE #615.9 ; 01/30/05
2	2	;
3	3	N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAP1.m

r628	r636
1		YSXRAP1 ; COMPILED XREF FOR FILE #615.9 ; ~~10/15/04~~
	1	YSXRAP1 ; COMPILED XREF FOR FILE #615.9 ; 01/30/05
2	2	;
3	3	S DIKZK=2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAP2.m

r628	r636
1		YSXRAP2 ; COMPILED XREF FOR FILE #615.9 ; ~~10/15/04~~
	1	YSXRAP2 ; COMPILED XREF FOR FILE #615.9 ; 01/30/05
2	2	;
3	3	S DIKZK=1

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAQ.m

r628	r636
1		YSXRAQ ; DRIVER FOR COMPILED XREFS FOR FILE #617 ; ~~10/15/04~~
	1	YSXRAQ ; DRIVER FOR COMPILED XREFS FOR FILE #617 ; 01/30/05
2	2	;
3	3	N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAQ1.m

r628	r636
1		YSXRAQ1 ; COMPILED XREF FOR FILE #617 ; ~~10/15/04~~
	1	YSXRAQ1 ; COMPILED XREF FOR FILE #617 ; 01/30/05
2	2	;
3	3	S DIKZK=2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAQ2.m

r628	r636
1		YSXRAQ2 ; COMPILED XREF FOR FILE #617.01 ; ~~10/15/04~~
	1	YSXRAQ2 ; COMPILED XREF FOR FILE #617.01 ; 01/30/05
2	2	;
3	3	S DA(1)=DA S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAQ3.m

r628	r636
1		YSXRAQ3 ; COMPILED XREF FOR FILE #617 ; ~~10/15/04~~
	1	YSXRAQ3 ; COMPILED XREF FOR FILE #617 ; 01/30/05
2	2	;
3	3	S DIKZK=1

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAQ4.m

r628	r636
1		YSXRAQ4 ; COMPILED XREF FOR FILE #617.01 ; ~~10/15/04~~
	1	YSXRAQ4 ; COMPILED XREF FOR FILE #617.01 ; 01/30/05
2	2	;
3	3	S DA(1)=DA S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAR.m

r628	r636
1		YSXRAR ; DRIVER FOR COMPILED XREFS FOR FILE #618 ; ~~10/15/04~~
	1	YSXRAR ; DRIVER FOR COMPILED XREFS FOR FILE #618 ; 01/30/05
2	2	;
3	3	N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAR1.m

r628	r636
1		YSXRAR1 ; COMPILED XREF FOR FILE #618 ; ~~10/15/04~~
	1	YSXRAR1 ; COMPILED XREF FOR FILE #618 ; 01/30/05
2	2	;
3	3	S DIKZK=2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAR2.m

r628	r636
1		YSXRAR2 ; COMPILED XREF FOR FILE #618 ; ~~10/15/04~~
	1	YSXRAR2 ; COMPILED XREF FOR FILE #618 ; 01/30/05
2	2	;
3	3	S DIKZK=1

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAS.m

r628	r636
1		YSXRAS ; DRIVER FOR COMPILED XREFS FOR FILE #618.2 ; ~~10/15/04~~
	1	YSXRAS ; DRIVER FOR COMPILED XREFS FOR FILE #618.2 ; 01/30/05
2	2	;
3	3	N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAS1.m

r628	r636
1		YSXRAS1 ; COMPILED XREF FOR FILE #618.2 ; ~~10/15/04~~
	1	YSXRAS1 ; COMPILED XREF FOR FILE #618.2 ; 01/30/05
2	2	;
3	3	S DIKZK=2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAS2.m

r628	r636
1		YSXRAS2 ; COMPILED XREF FOR FILE #618.2 ; ~~10/15/04~~
	1	YSXRAS2 ; COMPILED XREF FOR FILE #618.2 ; 01/30/05
2	2	;
3	3	S DIKZK=1

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAT.m

r628	r636
1		YSXRAT ; DRIVER FOR COMPILED XREFS FOR FILE #618.4 ; ~~10/15/04~~
	1	YSXRAT ; DRIVER FOR COMPILED XREFS FOR FILE #618.4 ; 01/30/05
2	2	;
3	3	N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAT1.m

r628	r636
1		YSXRAT1 ; COMPILED XREF FOR FILE #618.4 ; ~~10/15/04~~
	1	YSXRAT1 ; COMPILED XREF FOR FILE #618.4 ; 01/30/05
2	2	;
3	3	S DIKZK=2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAT2.m

r628	r636
1		YSXRAT2 ; COMPILED XREF FOR FILE #618.418 ; ~~10/15/04~~
	1	YSXRAT2 ; COMPILED XREF FOR FILE #618.418 ; 01/30/05
2	2	;
3	3	S DA(1)=DA S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAT3.m

r628	r636
1		YSXRAT3 ; COMPILED XREF FOR FILE #618.419 ; ~~10/15/04~~
	1	YSXRAT3 ; COMPILED XREF FOR FILE #618.419 ; 01/30/05
2	2	;
3	3	S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAT4.m

r628	r636
1		YSXRAT4 ; COMPILED XREF FOR FILE #618.4 ; ~~10/15/04~~
	1	YSXRAT4 ; COMPILED XREF FOR FILE #618.4 ; 01/30/05
2	2	;
3	3	S DIKZK=1

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAT5.m

r628	r636
1		YSXRAT5 ; COMPILED XREF FOR FILE #618.418 ; ~~10/15/04~~
	1	YSXRAT5 ; COMPILED XREF FOR FILE #618.418 ; 01/30/05
2	2	;
3	3	S DA(1)=DA S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAT6.m

r628	r636
1		YSXRAT6 ; COMPILED XREF FOR FILE #618.419 ; ~~10/15/04~~
	1	YSXRAT6 ; COMPILED XREF FOR FILE #618.419 ; 01/30/05
2	2	;
3	3	S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAU.m

r628	r636
1		YSXRAU ; DRIVER FOR COMPILED XREFS FOR FILE #620 ; ~~10/15/04~~
	1	YSXRAU ; DRIVER FOR COMPILED XREFS FOR FILE #620 ; 01/30/05
2	2	;
3	3	N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAU1.m

r628	r636
1		YSXRAU1 ; COMPILED XREF FOR FILE #620 ; ~~10/15/04~~
	1	YSXRAU1 ; COMPILED XREF FOR FILE #620 ; 01/30/05
2	2	;
3	3	S DIKZK=2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAU2.m

r628	r636
1		YSXRAU2 ; COMPILED XREF FOR FILE #620 ; ~~10/15/04~~
	1	YSXRAU2 ; COMPILED XREF FOR FILE #620 ; 01/30/05
2	2	;
3	3	S DIKZK=1

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAV.m

r628	r636
1		YSXRAV ; DRIVER FOR COMPILED XREFS FOR FILE #625 ; ~~10/15/04~~
	1	YSXRAV ; DRIVER FOR COMPILED XREFS FOR FILE #625 ; 01/30/05
2	2	;
3	3	N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAV1.m

r628	r636
1		YSXRAV1 ; COMPILED XREF FOR FILE #625 ; ~~10/15/04~~
	1	YSXRAV1 ; COMPILED XREF FOR FILE #625 ; 01/30/05
2	2	;
3	3	S DIKZK=2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAV2.m

r628	r636
1		YSXRAV2 ; COMPILED XREF FOR FILE #625 ; ~~10/15/04~~
	1	YSXRAV2 ; COMPILED XREF FOR FILE #625 ; 01/30/05
2	2	;
3	3	S DIKZK=1

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAW.m

r628	r636
1		YSXRAW ; DRIVER FOR COMPILED XREFS FOR FILE #627 ; ~~10/15/04~~
	1	YSXRAW ; DRIVER FOR COMPILED XREFS FOR FILE #627 ; 01/30/05
2	2	;
3	3	N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAW1.m

r628	r636
1		YSXRAW1 ; COMPILED XREF FOR FILE #627 ; ~~10/15/04~~
	1	YSXRAW1 ; COMPILED XREF FOR FILE #627 ; 01/30/05
2	2	;
3	3	S DIKZK=2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAW2.m

r628	r636
1		YSXRAW2 ; COMPILED XREF FOR FILE #627 ; ~~10/15/04~~
	1	YSXRAW2 ; COMPILED XREF FOR FILE #627 ; 01/30/05
2	2	;
3	3	S DIKZK=1

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAX.m

r628	r636
1		YSXRAX ; DRIVER FOR COMPILED XREFS FOR FILE #627.5 ; ~~10/15/04~~
	1	YSXRAX ; DRIVER FOR COMPILED XREFS FOR FILE #627.5 ; 01/30/05
2	2	;
3	3	N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAX1.m

r628	r636
1		YSXRAX1 ; COMPILED XREF FOR FILE #627.5 ; ~~10/15/04~~
	1	YSXRAX1 ; COMPILED XREF FOR FILE #627.5 ; 01/30/05
2	2	;
3	3	S DIKZK=2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAX2.m

r628	r636
1		YSXRAX2 ; COMPILED XREF FOR FILE #627.51 ; ~~10/15/04~~
	1	YSXRAX2 ; COMPILED XREF FOR FILE #627.51 ; 01/30/05
2	2	;
3	3	S DA(1)=DA S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAX3.m

r628	r636
1		YSXRAX3 ; COMPILED XREF FOR FILE #627.5 ; ~~10/15/04~~
	1	YSXRAX3 ; COMPILED XREF FOR FILE #627.5 ; 01/30/05
2	2	;
3	3	S DIKZK=1

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAX4.m

r628	r636
1		YSXRAX4 ; COMPILED XREF FOR FILE #627.51 ; ~~10/15/04~~
	1	YSXRAX4 ; COMPILED XREF FOR FILE #627.51 ; 01/30/05
2	2	;
3	3	S DA(1)=DA S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAY.m

r628	r636
1		YSXRAY ; DRIVER FOR COMPILED XREFS FOR FILE #627.8 ; ~~10/15/04~~
	1	YSXRAY ; DRIVER FOR COMPILED XREFS FOR FILE #627.8 ; 01/30/05
2	2	;
3	3	N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAY1.m

r628	r636
1		YSXRAY1 ; COMPILED XREF FOR FILE #627.8 ; ~~10/15/04~~
	1	YSXRAY1 ; COMPILED XREF FOR FILE #627.8 ; 01/30/05
2	2	;
3	3	S DIKZK=2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAY2.m

r628	r636
1		YSXRAY2 ; COMPILED XREF FOR FILE #627.82 ; ~~10/15/04~~
	1	YSXRAY2 ; COMPILED XREF FOR FILE #627.82 ; 01/30/05
2	2	;
3	3	S DA(1)=DA S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAY3.m

r628	r636
1		YSXRAY3 ; COMPILED XREF FOR FILE #627.8 ; ~~10/15/04~~
	1	YSXRAY3 ; COMPILED XREF FOR FILE #627.8 ; 01/30/05
2	2	;
3	3	S DIKZK=1

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAY4.m

r628	r636
1		YSXRAY4 ; COMPILED XREF FOR FILE #627.82 ; ~~10/15/04~~
	1	YSXRAY4 ; COMPILED XREF FOR FILE #627.82 ; 01/30/05
2	2	;
3	3	S DA(1)=DA S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAZ.m

r628	r636
1		YSXRAZ ; DRIVER FOR COMPILED XREFS FOR FILE #627.9 ; ~~10/15/04~~
	1	YSXRAZ ; DRIVER FOR COMPILED XREFS FOR FILE #627.9 ; 01/30/05
2	2	;
3	3	N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAZ1.m

r628	r636
1		YSXRAZ1 ; COMPILED XREF FOR FILE #627.9 ; ~~10/15/04~~
	1	YSXRAZ1 ; COMPILED XREF FOR FILE #627.9 ; 01/30/05
2	2	;
3	3	S DIKZK=2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAZ2.m

r628	r636
1		YSXRAZ2 ; COMPILED XREF FOR FILE #627.904 ; ~~10/15/04~~
	1	YSXRAZ2 ; COMPILED XREF FOR FILE #627.904 ; 01/30/05
2	2	;
3	3	S DA(1)=DA S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAZ3.m

r628	r636
1		YSXRAZ3 ; COMPILED XREF FOR FILE #627.92 ; ~~10/15/04~~
	1	YSXRAZ3 ; COMPILED XREF FOR FILE #627.92 ; 01/30/05
2	2	;
3	3	S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAZ4.m

r628	r636
1		YSXRAZ4 ; COMPILED XREF FOR FILE #627.9 ; ~~10/15/04~~
	1	YSXRAZ4 ; COMPILED XREF FOR FILE #627.9 ; 01/30/05
2	2	;
3	3	S DIKZK=1

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAZ5.m

r628	r636
1		YSXRAZ5 ; COMPILED XREF FOR FILE #627.904 ; ~~10/15/04~~
	1	YSXRAZ5 ; COMPILED XREF FOR FILE #627.904 ; 01/30/05
2	2	;
3	3	S DA(1)=DA S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRAZ6.m

r628	r636
1		YSXRAZ6 ; COMPILED XREF FOR FILE #627.92 ; ~~10/15/04~~
	1	YSXRAZ6 ; COMPILED XREF FOR FILE #627.92 ; 01/30/05
2	2	;
3	3	S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRBA.m

r628	r636
1		YSXRBA ; DRIVER FOR COMPILED XREFS FOR FILE #628 ; ~~10/15/04~~
	1	YSXRBA ; DRIVER FOR COMPILED XREFS FOR FILE #628 ; 01/30/05
2	2	;
3	3	N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRBA1.m

r628	r636
1		YSXRBA1 ; COMPILED XREF FOR FILE #628 ; ~~10/15/04~~
	1	YSXRBA1 ; COMPILED XREF FOR FILE #628 ; 01/30/05
2	2	;
3	3	S DIKZK=2

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRBA2.m

r628	r636
1		YSXRBA2 ; COMPILED XREF FOR FILE #628.02 ; ~~10/15/04~~
	1	YSXRBA2 ; COMPILED XREF FOR FILE #628.02 ; 01/30/05
2	2	;
3	3	S DA(1)=DA S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRBA3.m

r628	r636
1		YSXRBA3 ; COMPILED XREF FOR FILE #628.23 ; ~~10/15/04~~
	1	YSXRBA3 ; COMPILED XREF FOR FILE #628.23 ; 01/30/05
2	2	;
3	3	S DA(2)=DA(1) S DA(1)=0 S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRBA4.m

r628	r636
1		YSXRBA4 ; COMPILED XREF FOR FILE #628 ; ~~10/15/04~~
	1	YSXRBA4 ; COMPILED XREF FOR FILE #628 ; 01/30/05
2	2	;
3	3	S DIKZK=1

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRBA5.m

r628	r636
1		YSXRBA5 ; COMPILED XREF FOR FILE #628.02 ; ~~10/15/04~~
	1	YSXRBA5 ; COMPILED XREF FOR FILE #628.02 ; 01/30/05
2	2	;
3	3	S DA(1)=DA S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSXRBA6.m

r628	r636
1		YSXRBA6 ; COMPILED XREF FOR FILE #628.23 ; ~~10/15/04~~
	1	YSXRBA6 ; COMPILED XREF FOR FILE #628.23 ; 01/30/05
2	2	;
3	3	S DA(2)=DA(1) S DA(1)=0 S DA=0

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTAPI5.m

-              r628
+              r636
 YTAPI5 ;ALB/ASF- MH API NOTES ; 7/24/07 4:11pm
  ;;5.01;MENTAL HEALTH;**62,85**;Dec 30, 1994;Build 48
+YTAPI5 ;ALB/ASF- MH API NOTES ;3/17/00  14:54
+ ;;5.01;MENTAL HEALTH;**62**;Dec 30, 1994
+ Q
 OUTNOTE(YSDATA) ;
  N G,I,N,P,R,X,Y,YS2,YSADATE,YSCODE,YSGG,YSGG1,YSGG2,YSJ,YSJJ,YSNCODE,YSSET,YSSR,YSST,YSX1,YSX2,YSX3,YIN,YSINN,YSINE,YSMC
  I $G(YSDATA(1))?1"[ERROR".E Q  ;---->
  I '$D(YSDATA(5)) S YSDATA(1)="[ERROR]",YSDATA(2)="bad ysdata to outnote" Q  ;--->
+ I '$D(YSDATA(5)) S YSDATA(1)="ERROR]",YSDATA(2)="bad ysdata to outnote" Q  ;--->
  S YS2=$G(YSDATA(2))
  S YSCODE=$P(YS2,U,2)
 …
  S YSST=$P(YSDATA(6),U,4)
  S Y=$G(^YTT(601.6,YSNCODE,2))
  I Y="" S YSDATA(1)="[ERROR]",YSDATA(2)="no mh mult outcome code" Q  ;--->
+ I Y="" S YSDATA(1)="[ERROR"],YSDATA(2)="no mh mult outcome code" Q  ;--->
+ ;
  X Y
 …
  N YSCODE,YSET
  S YSCODE=$G(YS("CODE"),-1)
- ;ASF 03/08/06
- I (YSCODE="GAF")!(YSCODE="ASI") S YSDATA(1)="[DATA]",YSDATA(2)="1^exempt test" Q  ;-->out test exempt
- I $D(^YTT(601.71,"B",YSCODE)) D  Q  ;--> out
- . S YSET=$O(^YTT(601.71,"B",YSCODE,0))
- . S YSDATA(1)="[DATA]"
- . S YSKEY=$$GET1^DIQ(601.71,YSET_",",9)
- . I YSKEY="" S YSDATA(2)="1^exempt test" Q  ;-->out
- . I $D(^XUSEC(YSKEY,DUZ)) S YSDATA(2)="1^user privileged" Q  ;-->out has key
- . S YSDATA(2)="0^no access" Q  ;->out
+ ;
  I '$D(^YTT(601,"B",YSCODE)) S YSDATA(1)="[ERROR]",YSDATA(2)="BAD TEST CODE" Q  ;--> out
  S YSET=$O(^YTT(601,"B",YSCODE,0))

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTAUIRR.m

-              r628
+              r636
 YTAUIRR ;ALB/ASF-   AUI-R REPORT ;11/15/90  16:58 ; 4/6/07 4:12pm
  ;;5.01;MENTAL HEALTH;**37,85**;Dec 30, 1994;Build 48
+YTAUIRR ;ALB/ASF-   AUI-R REPORT ;11/15/90  16:58 ;
+ ;;5.01;MENTAL HEALTH;**37**;Dec 30, 1994
 F0 ;
  S R="",J=1
 …
  S S=S_$P(^YTT(601,7,"S",J,"M"),U,A+2-L1)_"^",J=J+1 G LK
 REPT ;
- Q:YSTY["X"  ;--> out ASF 09/15/04
  S X1="",$P(X1,"# ",60)=""
  S X=$P(^YTT(601,YSTEST,"P"),U),A=$P(^("P"),U,2),B=$P(^("P"),U,3),L1=58-A\2,L2=L1+A+4 S:A<9 A=9
 …
  W @IOF Q
 DTA ;
- D KVAR^VADPT S DFN=YSDFN
- D DEM^VADPT,PID^VADPT
- S YSNM=VADM(1),YSSEX=$P(VADM(5),U),YSDOB=$P(VADM(3),U,2),YSAGE=VADM(4),YSSSN=VA("PID"),YSBID=VA("BID")
- D KVAR^VADPT
  S X0=^YTD(601.2,YSDFN,1,YSET,1,YSED,0),YSDTA=$P(X0,U,5) S:YSDTA'="" YSDTA=$$FMTE^XLFDT(YSDTA,"5ZD")
- S YSSX=YSSEX,YSBL="           ",YSHDR=YSSSN_"  "_YSNM_YSBL_YSBL_YSBL,YSHD=DT
  S YSHDR=$E(YSHDR,1,43)_" "_YSSEX_" AGE "_$J(YSAGE,2,0)_" "_YSDT(0)_" "_$$FMTE^XLFDT(YSHD,"5ZD") W @IOF,YSHDR," ",YSDTA
- S X=$P(^YTT(601,YSTEST,"P"),U)
  W ! S X7=$P(X0,U),X8=$P(X0,U,8) I X8,X8<X7 W "Begun: ",$$FMTE^XLFDT(X8,"5ZD"),"  Finished ",$$FMTE^XLFDT(X7,"5ZD")
  W ?53,"PRINTED  ENTERED  " W:YSDTA'="" "ADMIN" Q

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTDOMR.m

-              r628
+              r636
 YTDOMR ;ALB/ASF-DEPRESSION OUTCOME MODULE REPORT ; 5/7/07 10:39am
  ;;5.01;MENTAL HEALTH;**31,85**;Dec 30, 1994;Build 48
+YTDOMR ;ALB/ASF-DEPRESSION OUTCOME MODULE REPORT ;2/23/99  15:09
+ ;;5.01;MENTAL HEALTH;**31**;Dec 30, 1994
 EN81 ;
  D ^YTDOMR1
 …
  W !,"Felt fearful: " S YSI=3 D ENGQ
  W !,"Sleep was restless: " S YSI=4 D ENGQ
  W !,"Felt hopeless about the future: " S YSI=5 D ENGQ
+ W !,"Felt hopeful about the future: " S YSI=5 D ENGQ
  S X=^YTD(601.2,YSDFN,1,YSET,1,YSED,1)
+ S (YSMISS,YSDEP)=0 F I=1:1:4 S YSDEP=YSDEP+$E(X,I) S:$E(X,I)="X" YSMISS=YSMISS+1 ; ASF 10/20/06
+ S:$E(X,5)?1N YSDEP=YSDEP+(3-$E(X,5)) S:$E(X,5)="X" YSMISS=YSMISS+1
+ S (YSMISS,YSDEP)=0 F I=1:1:5 S YSDEP=YSDEP+$E(X,I) S:$E(X,I)="X" YSMISS=YSMISS+1
  I YSMISS=1 S YSDEP=YSDEP+(YSDEP/4)
  I YSMISS>1 W !!,"The validity of this test is compromised as "_YSMISS_" of the 5 questions",!,"were not answered." Q

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTKIL.m

-              r628
+              r636
 YTKIL ;SLC/TGA-KILL TEST/INTERVIEW DATA ;4/21/92  08:50 ; 10/31/07 12:41pm
  ;;5.01;MENTAL HEALTH;**37,85**;Dec 30, 1994;Build 48
+YTKIL ;SLC/TGA-KILL TEST/INTERVIEW DATA ;4/21/92  08:50 ;03/11/94 12:49
+ ;;5.01;MENTAL HEALTH;**37**;Dec 30, 1994
+ ;
  ; Called from the top by MENU option YSMKIL
+ ;
  S YSO=0,YSNOKILL=1 W @IOF,!!,"Delete Patient Data"
+ W ! D ^YSLRP G:YSDFN<1 END
+ S DIR(0)="Y",DIR("A")="Delete MHA3 data",DIR("B")="No" D ^DIR
+ Q:$G(DIRUT)
+ IF Y D EN^YTQKIL Q  ;-->out
+ I '$D(^YTD(601.2,YSDFN)),'$D(^YTD(601.4,YSDFN)) W !!,"NO DATA ON THIS PATIENT!" G END
+ W ! D ^YSLRP G:YSDFN<1 END I '$D(^YTD(601.2,YSDFN)),'$D(^YTD(601.4,YSDFN)) W !!,"NO DATA ON THIS PATIENT!" G END
 R ;
  R !!,"Delete All tests and interviews? N// ",A:DTIME S YSTOUT='$T,YSUOUT=A["^" G:YSTOUT!YSUOUT END S A=$TR($E(A_"N"),"yn","YN") I "YN"'[A W:A'["?" " ?",$C(7) G R

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTPCL.m

-              r628
+              r636
 YTPCL ;ALB/ASF TEST-PTST CHECKLISTS ; 4/5/07 10:05am
  ;;5.01;MENTAL HEALTH;**66,85**;Dec 30, 1994;Build 48
+YTPCL ;ALB/ASF TEST-PTST CHECKLISTS ;7/19/00  11:11
+ ;;5.01;MENTAL HEALTH;**66**;Dec 30, 1994
+ ;
  ;Reference to ^DIR supported by IA #10026
 …
  W !!
  I IOST?1"C".E W ! S DIR(0)="E" D ^DIR Q:Y'=1
+ W !!!,"Items"
+ F I=1:1:17 D
+ . W !,I,". ",^YTT(601,YSET,"Q",I,"T",1,0)
+ . I $D(^YTT(601,YSET,"Q",I,"T",2,0)) W:^(0)'=" " !?7,^(0)
+ . I I=5 W !?7,^YTT(601,YSET,"Q",I,"T",3,0)
+ . W " :",$E(^YTD(601.2,YSDFN,1,YSET,1,YSED,1),I)
+ W !!,"1= Not at all 2= A little bit 3= Moderately 4= Quite a bit 5= Extremely"
+ D IR^YTREPT
+ Q
 SPTSD ;SCREENING REPORT

Note: See TracChangeset for help on using the changeset viewer.

Context Navigation

Changeset 636 for FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT

Legend:

Download in other formats: