1 | QAMAUTO8 ;HISC/DAD-AUTO ENROLL CLEAN UP ;6/29/93 08:24
|
---|
2 | ;;1.0;Clinical Monitoring System;;09/13/1993
|
---|
3 | F QA=1:1 S X="C"_QA Q:$D(@X)[0 K @X
|
---|
4 | K %,%DT,%H,%T,%ZIS,COND,D,D0,DA,DD,DIC,DIE,DIK,DINUM,DIQ,DIR,DLAYGO,DO,DR,DUPLICAT,ELEM,I,LEAPYEAR,LP,LP0,MAX,PAGE,PERCENT,POP,PROBLEM,QA,QA1,QA2,QADA,QAM,QAM1,QAMARUN,QAMAXDAY,QAMBULL,QAMC0,QAMC1,QAMCCODE,QAMCCOND,QAMCND,QAMCOND,QAMD0
|
---|
5 | K QAMD1,QAMDA,QAMDATA,QAMDATE,QAMDAYS,QAMDD,QAMDENOM,QAMDFN,QAMDOM,QAMDT,QAMDT0,QAME0,QAME1,QAME2,QAMELEM,QAMEND,QAMEVENT,QAMFALL,QAMFALL0,QAMFG,QAMFLD,QAMFRAME,QAMGROUP,QAMHANG,QAMHD,QAMHD1,QAMHILO,QAMHISD0,QAMHIST,QAMLEVL,QAMMET,QAMNUMER
|
---|
6 | K QAMONE,QAMONTH1,QAMONTH2,QAMONTHS,QAMPARAM,QAMPG,QAMPRG,QAMQBEG,QAMQEND,QAMQTIME,QAMQUIT,QAMRELAT,QAMSAMPL,QAMSSN,QAMST,QAMSTART,QAMTHRES,QAMTODAY,QAMWEEK,QAMWHEN,QAMZ,QAMZERO,QAQ2HED,QAQQUIT,QAQTART,TODAY,UNDL,X,X1,X2,XMB,XMDUZ,XMY,Y
|
---|
7 | K ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK
|
---|
8 | K ^UTILITY($J,"QAM"),^("QAM CONDITION"),^("QAM FALL OUT"),^("QAM SAMPLE"),^("QAM TEMP")
|
---|
9 | Q
|
---|