| [613] | 1 | YSDX3U00 ;DALISC/LJA - Continuation of YSDX3U00 code... ;8/17/94 08:22
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;;Dec 30, 1994
|
|---|
| 3 | ;;
|
|---|
| 4 | ;
|
|---|
| 5 | END ; 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 | ;
|
|---|
| 20 | EOR ;YSDX3U00 - Continuation of YSDX3U00 code... ;8/17/94
|
|---|
