source: FOIAVistA/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSKFASIK.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 1010 bytes
Line 
1YSKFASIK ;16IT/PTC - KILL VARIABLES FOR ASI ;5/22/01 11:31
2 ;;5.01;MENTAL HEALTH;**73**;Dec 30, 1994
3 K INPT,INPTDIFF,LESS24,LESS24P,MOVE,NAME,NEW,NEWASI,NEWASIP,NEWPTP,NEXTDT,NOASI,NOASINEW,NOASIP,NODE,NOTNEW,NOTNEWP,NWNOASIP,OPT,OPTDIFF
4 K P,PHYSMV,PRTDT,PRTNAME,PRV,PRVDER,PT,RECHK,SSN,STOPDT,TAG,TAGNEW,THISDT,THISONE,THREE,THREEP,TOTAL,WARE,X,X1,X2,XDT
5 K ADMIT,ADMTIEN,YSKF90,YSKFADT,YSKFASDT,YSKFASI,YSKFBDT,YSKFCLS,YSKFDFN,YSKFDT,YSKFECDT,YSKFEDT,YSKFENC,YSKFFY,YSKFIEN
6 K YSKFJCNT,YSKFL,YSKFLCNT,YSKFLM,YSKFPRVN,YSKFPRVP,YSKFS90,YSKFSP,YSKFSTOP,YSKFVTDT,ASI,ASIINPT,ASIINPTP
7 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
8 K OPTDIFFP,T,WARD,YSKFFY1
9 F T="INITIAL","RPT1","RPT2","SAVENC","X90","XM","XN","XN1","XNNEW","XNOPT","NOCTNEW","SHORT","UNKASI","MAYBE","CHKDT" K ^TMP(T,$J)
10 K ^TMP($J),^UTILITY($J),^TMP("SHORTFOLL",$J),^TMP("FOLLUP",$J),^TMP("FOLLASI",$J),^TMP("RPT",$J),^TMP("PTNOFOLL",$J)
11 Q
Note: See TracBrowser for help on using the repository browser.