source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSCEN37.m@ 947

YSCEN37 ;SLC/TGA-MH CENSUS LOOKUPS BY WARD ;4/3/90  10:28 ;
 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
 ;
 ; Called by routine YSCEN3
 ;
 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
 K YSV,YSLDTY,YSSL,TYPE,YSCENN,YSTLE,YSOR,YSBID,ZZ,PTI,VA D KVAR^VADPT
 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