YSKFASIK ;16IT/PTC - KILL VARIABLES FOR ASI ;5/22/01  11:31
 ;;5.01;MENTAL HEALTH;**73**;Dec 30, 1994
 K INPT,INPTDIFF,LESS24,LESS24P,MOVE,NAME,NEW,NEWASI,NEWASIP,NEWPTP,NEXTDT,NOASI,NOASINEW,NOASIP,NODE,NOTNEW,NOTNEWP,NWNOASIP,OPT,OPTDIFF
 K P,PHYSMV,PRTDT,PRTNAME,PRV,PRVDER,PT,RECHK,SSN,STOPDT,TAG,TAGNEW,THISDT,THISONE,THREE,THREEP,TOTAL,WARE,X,X1,X2,XDT
 K ADMIT,ADMTIEN,YSKF90,YSKFADT,YSKFASDT,YSKFASI,YSKFBDT,YSKFCLS,YSKFDFN,YSKFDT,YSKFECDT,YSKFEDT,YSKFENC,YSKFFY,YSKFIEN
 K YSKFJCNT,YSKFL,YSKFLCNT,YSKFLM,YSKFPRVN,YSKFPRVP,YSKFS90,YSKFSP,YSKFSTOP,YSKFVTDT,ASI,ASIINPT,ASIINPTP
 K ASIOPT,ASIOPTP,ASIP,CHKDT,CKCTT,CKCTTP,CLIN,CLINIC,CT,DIFF,ECDT,ENC,ENCDT,ENCEND,EXCLP,EXCLUDE,FIRSTDT,FISCAL,FND,I,IEN,INPTDIFP,NONCT,NONCTP
 K OPTDIFFP,T,WARD,YSKFFY1
 F T="INITIAL","RPT1","RPT2","SAVENC","X90","XM","XN","XN1","XNNEW","XNOPT","NOCTNEW","SHORT","UNKASI","MAYBE","CHKDT" K ^TMP(T,$J)
 K ^TMP($J),^UTILITY($J),^TMP("SHORTFOLL",$J),^TMP("FOLLUP",$J),^TMP("FOLLASI",$J),^TMP("RPT",$J),^TMP("PTNOFOLL",$J)
 Q