source: FOIAVistA/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSDX3U00.m@ 899

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

initial load of FOIAVistA 6/30/08 version

File size: 849 bytes
Line 
1YSDX3U00 ;DALISC/LJA - Continuation of YSDX3U00 code... ;8/17/94 08:22
2 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
3 ;;
4 ;
5END ; called by routine YSDX3
6 ;D RECORD^YSDX0001("END^YSDX3U00") ;Used for testing. Inactivated in YSDX0001...
7 D KVAR^VADPT
8 K A,A1,A2,C1,C2,F1,F2,F3,G,G1,G2,G3,G4,G5,G6,G7,G8,G9,G10,G11
9 K I,J,J1,J2,J3,J4,J5,J6,J7,J8,K1,K2,K3,K4,K5,K6
10 K L1,L2,L3,L4,L5,L6,L7,L8,L9,M2,M3,N,N1,N2,N3,N4
11 K P1,P2,P3,P4,P5,S1,S2,S3,V,W1,W2,W3,W4,W5,W6
12 K X,X1,X2,X3,X4,X5,X6,Y,DFN,DIWL,DIWR,DIWF
13 K YSDFN,YSDTY,YSDXN,YSDXNN,YSDXST,YSDXDT,YSAX,YSDXLS
14 K YSDXDA,YSDA,YSNM,YSWN,YSW,YSDR,YSDXD,YSDXDA1,YSDXND,YSMOD
15 K YSAGE,YSDOB,YSNO,YSSEX,YSSSN,YSALZ,YSDXLSD,YSDXLX,YSDXLSN
16 K YSGAF,YSCON,YSMODI,YSDXSTAT,YSTATDT,YSPLIC,YSPLDX
17 K CK,CK1,YSDUPDA,YSF1,YSSTOP,L10,YSDUZ,YSQT,YSTOUT,YSUOUT
18 QUIT
19 ;
20EOR ;YSDX3U00 - Continuation of YSDX3U00 code... ;8/17/94
Note: See TracBrowser for help on using the repository browser.