source: FOIAVistA/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSCEN37.m@ 635

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

initial load of FOIAVistA 6/30/08 version

File size: 612 bytes
Line 
1YSCEN37 ;SLC/TGA-MH CENSUS LOOKUPS BY WARD ;4/3/90 10:28 ;
2 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
3 ;
4 ; Called by routine YSCEN3
5 ;
6 K F3,P4,ZTSK,P1,G1,G2,G3,L,Y1,Y2,Y3,Y4,Y5,X,DIC,DIK,YSOPT1,YSOPT1L,C1,D,DIW,DIWF,DIWL,DIWR,DIWT,DN,DW2,DWI,I,N3,P,Q3,R,T6,V,W1,W2,W4,X1,Y,YSCEN3F,YSDFN,YSFIN,YSG,C7,G,N1,N7,N8,YSAGE,YSDOB,YSNM,YSSEX,YSSSN,YSTM,YSTMX,YSTS
7 K YSV,YSLDTY,YSSL,TYPE,YSCENN,YSTLE,YSOR,YSBID,ZZ,PTI,VA D KVAR^VADPT
8 K YSH1,YSIDT,YSLDT,YSLDT1,YSLFT,YSMOR,YSNT,YSOP,YSOPT2,YSP0,YSPF,YSTLL,YSTY,YSYDT,Z,DIWI,DIWTC,DIWX,DO,I0,A,C,DIYS,M,YSDTM,YSHR,YSMN,YSYD,F1,F2,F5,J,K,YSDOT,YSRD,%DT,YSPNH W !! D ^%ZISC Q
Note: See TracBrowser for help on using the repository browser.