SRSKILL2.m

SRSKILL2 ;BIR/MAM - KILL SURGERY VARIABLES ;07/05/05

 ;;3.0; Surgery ;**38,70,142,167**;24 Jun 93;Build 27

 K SRSTATN,SRSTATUS,SRSTFLAG,SRSTIME,SRSTIME1,SRSTOP,SRSTOWN,SRSTYP,SRSUB,SRSUMM,SRSUP,SRSUPCPT,SRSUPDT,SRSUR,SRSURG,SRSWDT,SRSWOP,SRSZIP,SRT,SRT1,SRTACD,SRTBL,SRTBLD,SRTC,SRTCC,SRTCHK,SRTCMP,SRTCMP1

 K SRTDA,SRTDATE,SRTDFN,SRTDG,SRTDG1,SRTDG2,SRTECH,SRTEMP,SRTI,SRTIME,SRTIMEIN,SRTITLE,SRTMAJ,SRTMS,SRTN1,SRTNEW,SRTNM,SRTO,SRTOLD,SRTP,SRTQ,SRTRAUMA,SRTREAT,SRTS,SRTSP,SRTWO,SRTY,SRTYPDD,SRTYPE

 K SRU,SRUL,SRUP,SRUPDT,SRUPPER,SRURET,SRUSER,SRUTIL,SRUTL,SRUTT,SRVADPT,SRVAMC,SRVFR,SRVIA,SRW,SRWARD,SRWC,SRWD,SRWL,SRWRONG,SRX,SRX1,SRX2,SRXRAY,SRXRAY1,SRXRAY2,SRXREF,SRY,SRYN,SRYR,SRZ,SRZT,SRZZ,SS,SSN,SSOPT,ST,STAFF,START

 K STARTDT,STATE,STATNUM,STATUS,STBY,STIME,STNAME,STOP,STORE,STY,SUB,SUBT,SUR,SURE,SURG,SX,T,TC,TCAN,TECH,TEMP,TEMPDT,TH,TIME,TIME2,TIMEIN,TIMEOUT,TIMES,TITLE,TOT,TOT1,TOT2,TOTAL,TOTANES,TOTDED,TOTMAJ,TOTMAR,TOTMAS,TOTMIN,TOTMIR

 K TOTMIS,TOTRATE,TOUR,TPRCNT,TT,TYPE,UL,UNIT,UR,URINE,USED,USER,V,V1,V2,VA,VADM,VAEL,VAERR,VALUE,VAPA,VERIFY,VIA,VV,W,X,X0,X1,X2,X3,X5,XMDUZ,XMER,XMFROM,XMMSG,XMREC,XMRG,XMSUB,XMTEXT,XMY,XMZ,XQSUB,XRTL,XRTN,XRT0,XX,Y,YEAR

 K Z,Z0,Z1,Z2,ZRTN,ZTCPU,ZTDESC,ZTDTH,ZTIO,ZTREG,ZTREQ,ZTRTN,ZTSAVE,ZTSK,ZZ

 K LN,ORL,SREXCL,SRG,SRMNA

 K LINE1,SRCURL,SREMIL,SRMD,SRMDD,SRNXT,SRODD,SRRT,SRSHEMP,SRSRT,SRVSIT,SRZ1,TL

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SRSKILL2   1377     printed  Apr 09, 2024@21:42:09                                                                                                                                                                                                    Page 2

SRSKILL2  ;BIR/MAM - KILL SURGERY VARIABLES ;07/05/05

 +1       ;;3.0; Surgery ;**38,70,142,167**;24 Jun 93;Build 27

 +2        KILL SRSTATN,SRSTATUS,SRSTFLAG,SRSTIME,SRSTIME1,SRSTOP,SRSTOWN,SRSTYP,SRSUB,SRSUMM,SRSUP,SRSUPCPT,SRSUPDT,SRSUR,SRSURG,SRSWDT,SRSWOP,SRSZIP,SRT,SRT1,SRTACD,SRTBL,SRTBLD,SRTC,SRTCC,SRTCHK,SRTCMP,SRTCMP1

 +3        KILL SRTDA,SRTDATE,SRTDFN,SRTDG,SRTDG1,SRTDG2,SRTECH,SRTEMP,SRTI,SRTIME,SRTIMEIN,SRTITLE,SRTMAJ,SRTMS,SRTN1,SRTNEW,SRTNM,SRTO,SRTOLD,SRTP,SRTQ,SRTRAUMA,SRTREAT,SRTS,SRTSP,SRTWO,SRTY,SRTYPDD,SRTYPE

 +4        KILL SRU,SRUL,SRUP,SRUPDT,SRUPPER,SRURET,SRUSER,SRUTIL,SRUTL,SRUTT,SRVADPT,SRVAMC,SRVFR,SRVIA,SRW,SRWARD,SRWC,SRWD,SRWL,SRWRONG,SRX,SRX1,SRX2,SRXRAY,SRXRAY1,SRXRAY2,SRXREF,SRY,SRYN,SRYR,SRZ,SRZT,SRZZ,SS,SSN,SSOPT,ST,STAFF,START

 +5        KILL STARTDT,STATE,STATNUM,STATUS,STBY,STIME,STNAME,STOP,STORE,STY,SUB,SUBT,SUR,SURE,SURG,SX,T,TC,TCAN,TECH,TEMP,TEMPDT,TH,TIME,TIME2,TIMEIN,TIMEOUT,TIMES,TITLE,TOT,TOT1,TOT2,TOTAL,TOTANES,TOTDED,TOTMAJ,TOTMAR,TOTMAS,TOTMIN,TOTMIR

 +6        KILL TOTMIS,TOTRATE,TOUR,TPRCNT,TT,TYPE,UL,UNIT,UR,URINE,USED,USER,V,V1,V2,VA,VADM,VAEL,VAERR,VALUE,VAPA,VERIFY,VIA,VV,W,X,X0,X1,X2,X3,X5,XMDUZ,XMER,XMFROM,XMMSG,XMREC,XMRG,XMSUB,XMTEXT,XMY,XMZ,XQSUB,XRTL,XRTN,XRT0,XX,Y,YEAR

 +7        KILL Z,Z0,Z1,Z2,ZRTN,ZTCPU,ZTDESC,ZTDTH,ZTIO,ZTREG,ZTREQ,ZTRTN,ZTSAVE,ZTSK,ZZ

 +8        KILL LN,ORL,SREXCL,SRG,SRMNA

 +9        KILL LINE1,SRCURL,SREMIL,SRMD,SRMDD,SRNXT,SRODD,SRRT,SRSHEMP,SRSRT,SRVSIT,SRZ1,TL

 +10       QUIT