source: WorldVistAEHR/trunk/r/MEDICINE-MC/MCDIE003.m@ 861

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

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1MCDIE003 ;HIRMFO/DAD-KILL ALL VARIABLES ;7/26/96 10:37
2 ;;2.3;Medicine;;09/13/1996
3 K O,O2HB,OBI,OBR,OBX,OCC,OFFSET,OID,OIEN,OKTOGO,OLD,OLDNAM,OLDNODE
4 K OLDOCCS,OLDPIECE,OLDPTR,OLDREC,OLDSUB,OPT,OPTION,ORACTION,ORD
5 K ORDER,OREND,ORG,ORIFN,ORSTS,OSI,ORTKG,ORVP,OT,OTEMP,OUT,OUT01
6 K P,P1,P2,PAAO2,PAC,PACKAGE,PACO2,PAO2,PARAMS,PART,PARTREF,PATID
7 K PATN,PC,PCE,PCI,PD1,PD11,PD2,PD21,PDATE,PDLCOSB,PDUZ,PE,PER,PERIOD
8 K PERSON,PF,PFEF2575,PFEV1,PFIL,PFILE,PFRC,PFVC,PG,PGE,PGM,PH,PHYS
9 K PI,PID,PIECE,PJ,PKG,PKGVER,PLS,PMVV,PNTR,POINT,POINTER,POP,POST
10 K PPF,PR,PRE,PREC,PRED,PREFIX,PRID,PRIDSCD,PRNAME,PRO,PROC,PROV,PRV
11 K PSDIV,PSIUDA,PSIUX,PSODTCT,PSOION,PSOPAR,PSRT,PT,PTDNM,PTDNO,PTDTO
12 K PTER,PTLC,PTMP,PTN,PTNAM,PTR16,PTR200,PVC,PY
13 K Q,QDT,QFC,QID,QLR,QP,QRD,QSQT,QUIT
14 K R,RACE,RAP,RDATE,RDATE1,RDATE2,REC,REC2,RECC,RECN,RECORD,RECS
15 K REDO,REF,RELDATE,RELEASE,RELSTAT,RENAMED,REQVER,RESULT,RET
16 K RH,RIGHT,RM,RMFD,RN,RNF,RNG,RNV,ROOT,ROUTINE,ROV,RPT,RPTLIN1
17 K RPTLIN2,RST,RSTT,RTN,RUN,RV,RX,RX0,RX2,RX3,RXD,RXF
18 K S,S1,S1CNT,S2,S4,S5,S6,SAP,SCD,SCNT,SCRAMBLE,SCREEN,SDA,SDATE
19 K SDRAFT,SDUZ,SENDATE,SERVER,SETFLAG,SETLOC,SEX,SFIELD,SFIELD1,SFILE
20 K SFILE1,SFLD,SHOW,SITE,SIZE,SKIP,SL0,SL1,SL2,SNF,SNODE,SNODE1
21 K SNOMED,SNOWMED,SP,SPACE,SPC,SPELL,SPIECE,SREC,SREC1,SRELEASE,SS
22 K SSN,ST,ST0,STA,START,STAT,STATUS,STATUS2,STDATE,STEMP,STR,STRING
23 K SUB,SUBENTRY,SUBFILE,SUBFILE1,SUBNAME,SUBNM,SUBNO,SUBNODE,SUBREC
24 K SUBREC1,SUP,SUP1,SUP2,SUPD,SUPNUM,SUPV,SWITCH,SWS
25 K T,TA,TAB,TASK,TD,TDATE,TECH,TEMP,TEMP1,TEMP2,TEP,TEST,TEXT,TFILE
26 K TLC,TMP,TMP2,TMPDR,TN,TO,TOTAL,TOTS,TOTU,TP,TRAP,TRIES,TRUE,TSK
27 K TST,TSUP2,TT,TTFLAG,TVER,TXT,TY,TYPE
28 K UNIT,UNITS,UNSIGNED,UNT,UPFIL,UPFILNAM,UPFLDNAM,UPFLDNU,USER,USEREND
29 K V,VA,VAL,VALUE,VAR,VC,VDATE,VE,VER,VERDATE,VERSION,VERTEXT,VES,VID
30 K VIEW,VISOV,VNAME,VT1,VTI
31 K W,WARD,WH,WORD,WT,WT1
32 K X,X1,X2,XBACK,XCOUNT,XDAT,XDATE,XDR,XDUP,XDUZ,XERROR,XEXT,XFILE
33 K XFLD,XFLDN,XHLD,XHOLD,XINT,XLOOP,XNODE,XPDABORT,XPDENV,XPDNM
34 K XPLACE,XREC,XREF,XSFILE,XSTR,XTEMP,XTFILE,XTMP,XTMP2,XTOTAL
35 K XTRANAME,XTYP,XTYPE,XX,XY
36 K Y,Y0,Y1,YES,YMLH,YS,YY
37 K Z,Z1,Z2,Z3,ZI,ZIP,ZREF,ZTDESC,ZTDTH,ZTIO,ZTPRI,ZTRTN,ZTSAVE,ZTSK
38 K ZTSTOP,ZX,ZY,ZZ
39 Q
Note: See TracBrowser for help on using the repository browser.