QAMAUTO8 ;HISC/DAD-AUTO ENROLL CLEAN UP ;6/29/93 08:24
;;1.0;Clinical Monitoring System;;09/13/1993
F QA=1:1 S X="C"_QA Q:$D(@X)[0 K @X
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
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
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
K ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK
K ^UTILITY($J,"QAM"),^("QAM CONDITION"),^("QAM FALL OUT"),^("QAM SAMPLE"),^("QAM TEMP")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HQAMAUTO8 996 printed Sep 02, 2024@18:27:14 Page 2
QAMAUTO8 ;HISC/DAD-AUTO ENROLL CLEAN UP ;6/29/93 08:24
+1 ;;1.0;Clinical Monitoring System;;09/13/1993
+2 FOR QA=1:1
SET X="C"_QA
if $DATA(@X)[0
QUIT
KILL @X
+3 KILL %,%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
+4 KILL 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
+5 KILL 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
+6 KILL ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK
+7 KILL ^UTILITY($JOB,"QAM"),^("QAM CONDITION"),^("QAM FALL OUT"),^("QAM SAMPLE"),^("QAM TEMP")
+8 QUIT