| [613] | 1 | YSKFASIK ;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
|
|---|
