MCDIE003.m

MCDIE003 ;HIRMFO/DAD-KILL ALL VARIABLES ;7/26/96  10:37

 ;;2.3;Medicine;;09/13/1996

 K O,O2HB,OBI,OBR,OBX,OCC,OFFSET,OID,OIEN,OKTOGO,OLD,OLDNAM,OLDNODE

 K OLDOCCS,OLDPIECE,OLDPTR,OLDREC,OLDSUB,OPT,OPTION,ORACTION,ORD

 K ORDER,OREND,ORG,ORIFN,ORSTS,OSI,ORTKG,ORVP,OT,OTEMP,OUT,OUT01

 K P,P1,P2,PAAO2,PAC,PACKAGE,PACO2,PAO2,PARAMS,PART,PARTREF,PATID

 K PATN,PC,PCE,PCI,PD1,PD11,PD2,PD21,PDATE,PDLCOSB,PDUZ,PE,PER,PERIOD

 K PERSON,PF,PFEF2575,PFEV1,PFIL,PFILE,PFRC,PFVC,PG,PGE,PGM,PH,PHYS

 K PI,PID,PIECE,PJ,PKG,PKGVER,PLS,PMVV,PNTR,POINT,POINTER,POP,POST

 K PPF,PR,PRE,PREC,PRED,PREFIX,PRID,PRIDSCD,PRNAME,PRO,PROC,PROV,PRV

 K PSDIV,PSIUDA,PSIUX,PSODTCT,PSOION,PSOPAR,PSRT,PT,PTDNM,PTDNO,PTDTO

 K PTER,PTLC,PTMP,PTN,PTNAM,PTR16,PTR200,PVC,PY

 K Q,QDT,QFC,QID,QLR,QP,QRD,QSQT,QUIT

 K R,RACE,RAP,RDATE,RDATE1,RDATE2,REC,REC2,RECC,RECN,RECORD,RECS

 K REDO,REF,RELDATE,RELEASE,RELSTAT,RENAMED,REQVER,RESULT,RET

 K RH,RIGHT,RM,RMFD,RN,RNF,RNG,RNV,ROOT,ROUTINE,ROV,RPT,RPTLIN1

 K RPTLIN2,RST,RSTT,RTN,RUN,RV,RX,RX0,RX2,RX3,RXD,RXF

 K S,S1,S1CNT,S2,S4,S5,S6,SAP,SCD,SCNT,SCRAMBLE,SCREEN,SDA,SDATE

 K SDRAFT,SDUZ,SENDATE,SERVER,SETFLAG,SETLOC,SEX,SFIELD,SFIELD1,SFILE

 K SFILE1,SFLD,SHOW,SITE,SIZE,SKIP,SL0,SL1,SL2,SNF,SNODE,SNODE1

 K SNOMED,SNOWMED,SP,SPACE,SPC,SPELL,SPIECE,SREC,SREC1,SRELEASE,SS

 K SSN,ST,ST0,STA,START,STAT,STATUS,STATUS2,STDATE,STEMP,STR,STRING

 K SUB,SUBENTRY,SUBFILE,SUBFILE1,SUBNAME,SUBNM,SUBNO,SUBNODE,SUBREC

 K SUBREC1,SUP,SUP1,SUP2,SUPD,SUPNUM,SUPV,SWITCH,SWS

 K T,TA,TAB,TASK,TD,TDATE,TECH,TEMP,TEMP1,TEMP2,TEP,TEST,TEXT,TFILE

 K TLC,TMP,TMP2,TMPDR,TN,TO,TOTAL,TOTS,TOTU,TP,TRAP,TRIES,TRUE,TSK

 K TST,TSUP2,TT,TTFLAG,TVER,TXT,TY,TYPE

 K UNIT,UNITS,UNSIGNED,UNT,UPFIL,UPFILNAM,UPFLDNAM,UPFLDNU,USER,USEREND

 K V,VA,VAL,VALUE,VAR,VC,VDATE,VE,VER,VERDATE,VERSION,VERTEXT,VES,VID

 K VIEW,VISOV,VNAME,VT1,VTI

 K W,WARD,WH,WORD,WT,WT1

 K X,X1,X2,XBACK,XCOUNT,XDAT,XDATE,XDR,XDUP,XDUZ,XERROR,XEXT,XFILE

 K XFLD,XFLDN,XHLD,XHOLD,XINT,XLOOP,XNODE,XPDABORT,XPDENV,XPDNM

 K XPLACE,XREC,XREF,XSFILE,XSTR,XTEMP,XTFILE,XTMP,XTMP2,XTOTAL

 K XTRANAME,XTYP,XTYPE,XX,XY

 K Y,Y0,Y1,YES,YMLH,YS,YY

 K Z,Z1,Z2,Z3,ZI,ZIP,ZREF,ZTDESC,ZTDTH,ZTIO,ZTPRI,ZTRTN,ZTSAVE,ZTSK

 K ZTSTOP,ZX,ZY,ZZ

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MCDIE003   2226     printed  Apr 09, 2024@21:14:20                                                                                                                                                                                                    Page 2

MCDIE003  ;HIRMFO/DAD-KILL ALL VARIABLES ;7/26/96  10:37

 +1       ;;2.3;Medicine;;09/13/1996

 +2        KILL O,O2HB,OBI,OBR,OBX,OCC,OFFSET,OID,OIEN,OKTOGO,OLD,OLDNAM,OLDNODE

 +3        KILL OLDOCCS,OLDPIECE,OLDPTR,OLDREC,OLDSUB,OPT,OPTION,ORACTION,ORD

 +4        KILL ORDER,OREND,ORG,ORIFN,ORSTS,OSI,ORTKG,ORVP,OT,OTEMP,OUT,OUT01

 +5        KILL P,P1,P2,PAAO2,PAC,PACKAGE,PACO2,PAO2,PARAMS,PART,PARTREF,PATID

 +6        KILL PATN,PC,PCE,PCI,PD1,PD11,PD2,PD21,PDATE,PDLCOSB,PDUZ,PE,PER,PERIOD

 +7        KILL PERSON,PF,PFEF2575,PFEV1,PFIL,PFILE,PFRC,PFVC,PG,PGE,PGM,PH,PHYS

 +8        KILL PI,PID,PIECE,PJ,PKG,PKGVER,PLS,PMVV,PNTR,POINT,POINTER,POP,POST

 +9        KILL PPF,PR,PRE,PREC,PRED,PREFIX,PRID,PRIDSCD,PRNAME,PRO,PROC,PROV,PRV

 +10       KILL PSDIV,PSIUDA,PSIUX,PSODTCT,PSOION,PSOPAR,PSRT,PT,PTDNM,PTDNO,PTDTO

 +11       KILL PTER,PTLC,PTMP,PTN,PTNAM,PTR16,PTR200,PVC,PY

 +12       KILL Q,QDT,QFC,QID,QLR,QP,QRD,QSQT,QUIT

 +13       KILL R,RACE,RAP,RDATE,RDATE1,RDATE2,REC,REC2,RECC,RECN,RECORD,RECS

 +14       KILL REDO,REF,RELDATE,RELEASE,RELSTAT,RENAMED,REQVER,RESULT,RET

 +15       KILL RH,RIGHT,RM,RMFD,RN,RNF,RNG,RNV,ROOT,ROUTINE,ROV,RPT,RPTLIN1

 +16       KILL RPTLIN2,RST,RSTT,RTN,RUN,RV,RX,RX0,RX2,RX3,RXD,RXF

 +17       KILL S,S1,S1CNT,S2,S4,S5,S6,SAP,SCD,SCNT,SCRAMBLE,SCREEN,SDA,SDATE

 +18       KILL SDRAFT,SDUZ,SENDATE,SERVER,SETFLAG,SETLOC,SEX,SFIELD,SFIELD1,SFILE

 +19       KILL SFILE1,SFLD,SHOW,SITE,SIZE,SKIP,SL0,SL1,SL2,SNF,SNODE,SNODE1

 +20       KILL SNOMED,SNOWMED,SP,SPACE,SPC,SPELL,SPIECE,SREC,SREC1,SRELEASE,SS

 +21       KILL SSN,ST,ST0,STA,START,STAT,STATUS,STATUS2,STDATE,STEMP,STR,STRING

 +22       KILL SUB,SUBENTRY,SUBFILE,SUBFILE1,SUBNAME,SUBNM,SUBNO,SUBNODE,SUBREC

 +23       KILL SUBREC1,SUP,SUP1,SUP2,SUPD,SUPNUM,SUPV,SWITCH,SWS

 +24       KILL T,TA,TAB,TASK,TD,TDATE,TECH,TEMP,TEMP1,TEMP2,TEP,TEST,TEXT,TFILE

 +25       KILL TLC,TMP,TMP2,TMPDR,TN,TO,TOTAL,TOTS,TOTU,TP,TRAP,TRIES,TRUE,TSK

 +26       KILL TST,TSUP2,TT,TTFLAG,TVER,TXT,TY,TYPE

 +27       KILL UNIT,UNITS,UNSIGNED,UNT,UPFIL,UPFILNAM,UPFLDNAM,UPFLDNU,USER,USEREND

 +28       KILL V,VA,VAL,VALUE,VAR,VC,VDATE,VE,VER,VERDATE,VERSION,VERTEXT,VES,VID

 +29       KILL VIEW,VISOV,VNAME,VT1,VTI

 +30       KILL W,WARD,WH,WORD,WT,WT1

 +31       KILL X,X1,X2,XBACK,XCOUNT,XDAT,XDATE,XDR,XDUP,XDUZ,XERROR,XEXT,XFILE

 +32       KILL XFLD,XFLDN,XHLD,XHOLD,XINT,XLOOP,XNODE,XPDABORT,XPDENV,XPDNM

 +33       KILL XPLACE,XREC,XREF,XSFILE,XSTR,XTEMP,XTFILE,XTMP,XTMP2,XTOTAL

 +34       KILL XTRANAME,XTYP,XTYPE,XX,XY

 +35       KILL Y,Y0,Y1,YES,YMLH,YS,YY

 +36       KILL Z,Z1,Z2,Z3,ZI,ZIP,ZREF,ZTDESC,ZTDTH,ZTIO,ZTPRI,ZTRTN,ZTSAVE,ZTSK

 +37       KILL ZTSTOP,ZX,ZY,ZZ

 +38       QUIT