source: FOIAVistA/trunk/r/CLINICAL_MONITORING_SYSTEM-QAM/QAMAUTO8.m@ 873

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

initial load of FOIAVistA 6/30/08 version

File size: 987 bytes
Line 
1QAMAUTO8 ;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
Note: See TracBrowser for help on using the repository browser.