SRSKILL1 ;B'HAM ISC/MAM - KILL SURGERY VARIABLES ; [ 04/14/97 1:50 PM ]
;;3.0; Surgery ;**38,61,66**;24 Jun 93
K SRCOMP,SRCOMPS,SRCON,SRCONC,SRCONS,SRCONV,SRCOUNT,SRCPT,SRCPU,SRCR,SRCT,SRCTN,SRCUSS,SRCUTDT,SRCVA,SRD,SRD1,SRDA,SRDAT,SRDATE,SRDATEO,SRDATES,SRDAY,SRDAZE,SRDC,SRDD,SRDDATE,SRDEAD,SRDEATH,SRDEL,SRDELT,SRDESC,SRDEV,SRDFN,SRDG
K SRDG1,SRDIAG,SRDIAG1,SRDIS,SRDISP,SRDISP1,SRDL,SRDLAY,SRDLC,SRDLSITE,SRDLT,SRDLTYPE,SRDOC,SRDONE,SRDOW,SRDPT,SRDR,SRDT,SRDT1,SRDT2,SRDTCH,SRDTIME,SRDTL,SRDTNEW,SRDTNOW,SRDTOLD,SRDTS,SRDTYPE,SRDUOUT,SRDY,SRE,SRED,SRED1,SREDT,SREFER
K SREL,SRELATE,SRELP,SRELP2,SREM,SREMDATE,SREMERG,SREMO,SREND,SRENDT,SRENT,SRENTRY,SREPORT,SREPOS,SREQ,SREQDAY,SREQDT,SREQST,SRERRDT,SREST,SREST1,SRET,SRET1,SRETDT,SRETURN,SREXP,SREXT,SRF,SRFG,SRFIELD,SRFILE,SRFIND,SRFLAG,SRFLD,SRFLG
K SRFN,SRFNAME,SRFORM,SRFQ,SRFROZ,SRFST,SRFYR,SRGRAMM,SRGOOD,SRGRPH,SRH,SRHALT,SRHD,SRHDR,SRHDR1,SRHDT,SRHOLID,SRHR1,SRHR2,SRHRS,SRI,SRIC,SRICD,SRICDD,SRIEN,SRIN,SRIND,SRINDEX,SRINPAT,SRINST,SRINTIME,SRINVDT
K SRIMAGE ;for Imaging SRR 05/22/94
K SRION,SRIRR,SRIRR1,SRISK,SRIV,SRIX,SRJ,SRJINC,SRK,SRKEY,SRKILL,SRL,SRLATE,SRLENGTH,SRLINE,SRLN,SRLNTH,SRLNTH1,SRLOC,SRLOCAL,SRLOCN,SRLONG,SRLOWER,SRM,SRMAIN,SRMAJ,SRMAJOR,SRMANAGE,SRMATCH,SRMAX,SRMG,SRMIN,SRMLC,SRMLCA,SRMLCNA
K SRMISS,SRMM,SRMONTH,SRMOOD,SRMORT,SRMSG,SRMSG1,SRMX,SRN,SRNAME,SRNCC,SRNDE,SRNET,SRNEW,SRNEWDT,SRNEWM,SRNEWOP,SRNEXT,SRNIGHT,SRNM,SRNOASS,SRNOCON,SRNODE,SRNOGO,SRNOK,SRNOMORE,SRNON,SRNOREQ,SRNOW
K SRNST,SRNUM,SRNUMB,SRNUR,SRNURIN,SRNURSE,SRO,SROATT,SROC,SROCC,SROCCDT,SROD,SRODATE,SRODR,SRODT,SROFL,SROFN,SROIU,SROIUA,SROIUDA,SROIUQ,SROIUT,SROIUX,SROIUY,SROK,SROLD,SROLDDT,SROLOCK,SRONUR,SROOC,SROOM,SROP,SROP1,SROPCAN
K SROPCOM,SROPD,SROPDT,SROPER,SROPERS,SROPS,SROPT,SROPTIME,SROR,SROR1,SRORD,SRORDER,SROREND,SRORN,SRORNM,SRORST,SRORX,SROSUR,SROT,SROTH,SROTHER,SROTOT,SROUD,SROUT,SROUTC,SROUTIME,SROUTS,SROVER,SROVRT,SRP,SRPAGE,SRPAIR,SRPAT
K SRPATIN,SRPATOUT,SRPBY1,SRPC,SRPERC,SRPG,SRPHY,SRPNM,SRPO,SRPOC,SRPOINT,SRPOS,SRPOSS,SRPOST,SRPRE,SRPREAD,SRPRIN,SRPRINT,SRPRIO,SRPRO,SRPROC,SRPROMPT,SRPROV,SRPST,SRPTF,SRPTMODT,SRPX,SRQ,SRQTR,SRQUIT,SRR,SRRE,SRREA,SRREC,SRRECNO,SRREL
K SRRET,SRS,SRS1,SRS2,SRSA,SRSADD,SRSALL,SRSAS,SRSATT,SRSAV,SRSAVE,SRSAVG,SRSBANG,SRSBEG,SRSBEG1,SRSBOUT,SRSC1,SRSCAN,SRSCC,SRSCC1,SRSCHD,SRSCHED,SRSCHST,SRSCON,SRSCPT,SRSD,SRSD1,SRSD2,SRSDA,SRSDAT,SRSDATE,SRSDATE1,SRSDAY
K SRSDEAD,SRSDEL,SRSDFN,SRSDOC,SRSDOCC,SRSDPT,SRSDT,SRSDT1,SRSDT2,SRSDT3,SRSDTT,SRSDUZ,SRSEDT,SRSEND,SRSEND1,SRSER,SRSERV,SRSET,SRSET1,SRSFLG,SRSKIN,SRSLAP,SRSLOC,SRSMED,SRSMO,SRSNM,SRSNUM,SRSNUMB,SRSOP,SRSOP1
K SRSOR,SRSORD,SRSORN,SRSOTH,SRSOUT,SRSP,SRSPEC,SRSPECN,SRSPEND,SRSPER,SRSPH1,SRSPH2,SRSPST,SRSRDT,SRSREQ,SRSS,SRSS1,SRSSDT,SRSSER,SRSSER1,SRSSET,SRSSL,SRSSN,SRSSNM,SRSSP,SRSST,SRSST1,SRST,SRST1,SRSTART,SRSTAT,SRSTATE
D ^SRSKILL2
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSRSKILL1 2857 printed Oct 16, 2024@18:48:11 Page 2
SRSKILL1 ;B'HAM ISC/MAM - KILL SURGERY VARIABLES ; [ 04/14/97 1:50 PM ]
+1 ;;3.0; Surgery ;**38,61,66**;24 Jun 93
+2 KILL SRCOMP,SRCOMPS,SRCON,SRCONC,SRCONS,SRCONV,SRCOUNT,SRCPT,SRCPU,SRCR,SRCT,SRCTN,SRCUSS,SRCUTDT,SRCVA,SRD,SRD1,SRDA,SRDAT,SRDATE,SRDATEO,SRDATES,SRDAY,SRDAZE,SRDC,SRDD,SRDDATE,SRDEAD,SRDEATH,SRDEL,SRDELT,SRDESC,SRDEV,SRDFN,SRDG
+3 KILL SRDG1,SRDIAG,SRDIAG1,SRDIS,SRDISP,SRDISP1,SRDL,SRDLAY,SRDLC,SRDLSITE,SRDLT,SRDLTYPE,SRDOC,SRDONE,SRDOW,SRDPT,SRDR,SRDT,SRDT1,SRDT2,SRDTCH,SRDTIME,SRDTL,SRDTNEW,SRDTNOW,SRDTOLD,SRDTS,SRDTYPE,SRDUOUT,SRDY,SRE,SRED,SRED1,SREDT,SREFER
+4 KILL SREL,SRELATE,SRELP,SRELP2,SREM,SREMDATE,SREMERG,SREMO,SREND,SRENDT,SRENT,SRENTRY,SREPORT,SREPOS,SREQ,SREQDAY,SREQDT,SREQST,SRERRDT,SREST,SREST1,SRET,SRET1,SRETDT,SRETURN,SREXP,SREXT,SRF,SRFG,SRFIELD,SRFILE,SRFIND,SRFLAG,SRFLD,SRFLG
+5 KILL SRFN,SRFNAME,SRFORM,SRFQ,SRFROZ,SRFST,SRFYR,SRGRAMM,SRGOOD,SRGRPH,SRH,SRHALT,SRHD,SRHDR,SRHDR1,SRHDT,SRHOLID,SRHR1,SRHR2,SRHRS,SRI,SRIC,SRICD,SRICDD,SRIEN,SRIN,SRIND,SRINDEX,SRINPAT,SRINST,SRINTIME,SRINVDT
+6 ;for Imaging SRR 05/22/94
KILL SRIMAGE
+7 KILL SRION,SRIRR,SRIRR1,SRISK,SRIV,SRIX,SRJ,SRJINC,SRK,SRKEY,SRKILL,SRL,SRLATE,SRLENGTH,SRLINE,SRLN,SRLNTH,SRLNTH1,SRLOC,SRLOCAL,SRLOCN,SRLONG,SRLOWER,SRM,SRMAIN,SRMAJ,SRMAJOR,SRMANAGE,SRMATCH,SRMAX,SRMG,SRMIN,SRMLC,SRMLCA,SRMLCNA
+8 KILL SRMISS,SRMM,SRMONTH,SRMOOD,SRMORT,SRMSG,SRMSG1,SRMX,SRN,SRNAME,SRNCC,SRNDE,SRNET,SRNEW,SRNEWDT,SRNEWM,SRNEWOP,SRNEXT,SRNIGHT,SRNM,SRNOASS,SRNOCON,SRNODE,SRNOGO,SRNOK,SRNOMORE,SRNON,SRNOREQ,SRNOW
+9 KILL SRNST,SRNUM,SRNUMB,SRNUR,SRNURIN,SRNURSE,SRO,SROATT,SROC,SROCC,SROCCDT,SROD,SRODATE,SRODR,SRODT,SROFL,SROFN,SROIU,SROIUA,SROIUDA,SROIUQ,SROIUT,SROIUX,SROIUY,SROK,SROLD,SROLDDT,SROLOCK,SRONUR,SROOC,SROOM,SROP,SROP1,SROPCAN
+10 KILL SROPCOM,SROPD,SROPDT,SROPER,SROPERS,SROPS,SROPT,SROPTIME,SROR,SROR1,SRORD,SRORDER,SROREND,SRORN,SRORNM,SRORST,SRORX,SROSUR,SROT,SROTH,SROTHER,SROTOT,SROUD,SROUT,SROUTC,SROUTIME,SROUTS,SROVER,SROVRT,SRP,SRPAGE,SRPAIR,SRPAT
+11 KILL SRPATIN,SRPATOUT,SRPBY1,SRPC,SRPERC,SRPG,SRPHY,SRPNM,SRPO,SRPOC,SRPOINT,SRPOS,SRPOSS,SRPOST,SRPRE,SRPREAD,SRPRIN,SRPRINT,SRPRIO,SRPRO,SRPROC,SRPROMPT,SRPROV,SRPST,SRPTF,SRPTMODT,SRPX,SRQ,SRQTR,SRQUIT,SRR,SRRE,SRREA,SRREC,SRRECNO,SRREL
+12 KILL SRRET,SRS,SRS1,SRS2,SRSA,SRSADD,SRSALL,SRSAS,SRSATT,SRSAV,SRSAVE,SRSAVG,SRSBANG,SRSBEG,SRSBEG1,SRSBOUT,SRSC1,SRSCAN,SRSCC,SRSCC1,SRSCHD,SRSCHED,SRSCHST,SRSCON,SRSCPT,SRSD,SRSD1,SRSD2,SRSDA,SRSDAT,SRSDATE,SRSDATE1,SRSDAY
+13 KILL SRSDEAD,SRSDEL,SRSDFN,SRSDOC,SRSDOCC,SRSDPT,SRSDT,SRSDT1,SRSDT2,SRSDT3,SRSDTT,SRSDUZ,SRSEDT,SRSEND,SRSEND1,SRSER,SRSERV,SRSET,SRSET1,SRSFLG,SRSKIN,SRSLAP,SRSLOC,SRSMED,SRSMO,SRSNM,SRSNUM,SRSNUMB,SRSOP,SRSOP1
+14 KILL SRSOR,SRSORD,SRSORN,SRSOTH,SRSOUT,SRSP,SRSPEC,SRSPECN,SRSPEND,SRSPER,SRSPH1,SRSPH2,SRSPST,SRSRDT,SRSREQ,SRSS,SRSS1,SRSSDT,SRSSER,SRSSER1,SRSSET,SRSSL,SRSSN,SRSSNM,SRSSP,SRSST,SRSST1,SRST,SRST1,SRSTART,SRSTAT,SRSTATE
+15 DO ^SRSKILL2
+16 QUIT
