SRSKILL ;BIR/MAM - KILL LOCAL VARIABLES ;09/12/07
;;3.0; Surgery ;**38,48,134,164**;24 Jun 93;Build 2
I $G(SRTN) D UNLOCK^SROUTL(SRTN)
K ^TMP("SR",$J),^TMP("SRA",$J)
K %,%DT,%X,%Y,%ZIS,A,AB,ABORT,ADBY,ADDKEY,ADM,AE,AGE,AGNT,AMT,ANE,ANES,ANS,APP,ASA,ASK,ATT,AUTOP,AVOID,B,BB,BLOOD,C,CAN,CANRATE,CASE,CASES,CAUSE,CIRC,CLEAN,CMP,CNT,CODE,COLOR,COMM,COMP,COMPL,CON,CONS,CONT,CONV
K COUNT,COUNTER,CPRCNT,CPT,CPT1,CROSSM,CURLEY,D,D0,D1,DA,DATA,DATE,DAY,DAY2,DAYOFW,DAYS,DD,DE,DEATH,DFN,DI,DIAG,DIC,DIE,DIFQ,DIG,DIH,DIK,DINUM,DIR,DISP,DIU,DIV,DIWF,DIWL,DIWR,DLAYGO,DO,DOC,DOSE,DP,DQ,DR,DRESS,DRUG
K DTOUT,DUOUT,DURAL,DX,DY,E,ECYN,EDATE,EDATE1,EMERG,EMILY,EN1,EN2,END,ENDATE,ENDCASE,ENDDT,ENTRY,ERR1,ERR2,ET,ETIME,EXCL,EXIN,F,FIELD,FIRST,FLAG,FLD,FLDNO,FLG,FLUID,FNAME,FRST,GLOBAL,GMAJ,GMAR,GMAS,GMIN,GMIR,GMIS,GOOF,GRAMMER,GRAND
K HDR,HOUR,HOURS,I,II,ICD,IND,INF,INH,INSTR,INT,INTEG,INTRA,IO("Q"),IRR,ISC,ITEM,IV,J,J2,J3,K,KAREN,KEY,L,LEV,LINE,LOOP,LTYPE,M,M1,MAIN,MAJR,MAJS,MAJT,MAM,MATCH,MED,MG,MIN,MINR,MINS,MINT,MM,MMM,MODEL,MOE,MOOD,MORE
K N,N1,NAME,NEWHDR,NGAUGE,NLENGTH,NOASS,NODATE,NODE,NOGO,NOKEY,NON,NONUR,NOWAY,NUM,NUMB,NUMBER,NURSE,NYUK,O,OFF,OK,OLDATE,ON,OP,OPDATE,OPER,OPONE,OPPOSITE,OPS,OPT,OR,ORBY,OTH,OTHER,OUT
K P,P1,P01,P2,PACK,PAGE,PAT,PDATE,PEND,PERF,PERFA,PIECE,PO,POP,POST,PREPAGNT,PRIN,PRIND,PRINS,PRINT,PRIOR,PRO,PROC,PSIUDA,PSIUX,PSIVRES,PTAG,PUN,Q,Q0,Q1,Q2,Q3,Q4,Q5,Q6,Q7,Q8,QPQPQ,QQ,QQQ,QTY
K RR,RANGE,REASON,REFER,REIN,RELATED,REP,REQ,REST,RESTRICT,RET,RETURN,RH,RISK,ROOM,S,S1,S2,SA,SCH,SCND,SCRU,SCRUB,SD,SDATE,SDATE1,SDELAY
K SE,SEB,SECOND,SEN,SER,SERIAL,SERV,SERVICE,SET,SEX,SHARP,SHEMP,SITE,SIZE,SOLU,SP,SPEC,SPONGE,SPRCNT
K SR,SR1,SR10,SR16,SR1DAY,SR2,SR60,SRA,SRABATCH,SRABD,SRABORT,SRAC,SRAC1,SRACLR,SRACNT,SRACON,SRACT,SRAD,SRADATA,SRADATE,SRADFN,SRADN,SRADT
K SRAED,SRAENDT,SRAGE,SRAGNT,SRAID,SRAIDT,SRAK,SRALL,SRALLOP,SRALOCK,SRALR,SRAMAN,SRAMC,SRAMGR,SRAML,SRAMNUM,SRAMSG,SRAN,SRAN1
K SRAN2,SRANAME,SRANANUM,SRANASS,SRANATT,SRANE,SRANE1,SRANE2,SRANE3,SRANES,SRANESA,SRANM,SRANOCNT,SRANUM,SRANT,SRAO,SRAOP,SRAOPDT,SRAOTH,SRAP01,SRAPLOS,SRAPSITE
K SRART,SRAS,SRASA,SRASD,SRASEL,SRASITE,SRASK,SRASP,SRASS,SRASSES,SRASSN,SRASSNO,SRASTAT,SRASTDT,SRASUR,SRAT,SRATC,SRATDATE,SRATDT
K SRATIME,SRATN,SRATOT,SRATOTM,SRATT,SRATT1,SRATT2,SRATYPE,SRAUT,SRAUTO,SRAV,SRAV1,SRAVAL,SRAVG,SRAX,SRB,SRBACK,SRBED,SRBLANK,SRBLINK,SRBLOFF,SRBLON,SRBLOOD,SRBOTH,SRBT,SRBU,SRBX
K SRC,SRCAN,SRCARD,SRCASE,SRCASES,SRCAT,SRCAUS,SRCAUSE,SRCC,SRCD,SRCH,SRCHF,SRCHK,SRCHNG,SRCKNM,SRCL,SRCLASS,SRCLEAN,SRCMP,SRCNT,SRCNTR,SRCODE,SRCODES,SRCOL,SRCOM
K SR24,SRLR,SRNOPE,SRTIU,VAIN,VAIP
D ^SRSKILL1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSRSKILL 2641 printed Oct 16, 2024@18:48:10 Page 2
SRSKILL ;BIR/MAM - KILL LOCAL VARIABLES ;09/12/07
+1 ;;3.0; Surgery ;**38,48,134,164**;24 Jun 93;Build 2
+2 IF $GET(SRTN)
DO UNLOCK^SROUTL(SRTN)
+3 KILL ^TMP("SR",$JOB),^TMP("SRA",$JOB)
+4 KILL %,%DT,%X,%Y,%ZIS,A,AB,ABORT,ADBY,ADDKEY,ADM,AE,AGE,AGNT,AMT,ANE,ANES,ANS,APP,ASA,ASK,ATT,AUTOP,AVOID,B,BB,BLOOD,C,CAN,CANRATE,CASE,CASES,CAUSE,CIRC,CLEAN,CMP,CNT,CODE,COLOR,COMM,COMP,COMPL,CON,CONS,CONT,CONV
+5 KILL COUNT,COUNTER,CPRCNT,CPT,CPT1,CROSSM,CURLEY,D,D0,D1,DA,DATA,DATE,DAY,DAY2,DAYOFW,DAYS,DD,DE,DEATH,DFN,DI,DIAG,DIC,DIE,DIFQ,DIG,DIH,DIK,DINUM,DIR,DISP,DIU,DIV,DIWF,DIWL,DIWR,DLAYGO,DO,DOC,DOSE,DP,DQ,DR,DRESS,DRUG
+6 KILL DTOUT,DUOUT,DURAL,DX,DY,E,ECYN,EDATE,EDATE1,EMERG,EMILY,EN1,EN2,END,ENDATE,ENDCASE,ENDDT,ENTRY,ERR1,ERR2,ET,ETIME,EXCL,EXIN,F,FIELD,FIRST,FLAG,FLD,FLDNO,FLG,FLUID,FNAME,FRST,GLOBAL,GMAJ,GMAR,GMAS,GMIN,GMIR,GMIS,GOOF,GRAMMER,GRAND
+7 KILL HDR,HOUR,HOURS,I,II,ICD,IND,INF,INH,INSTR,INT,INTEG,INTRA,IO("Q"),IRR,ISC,ITEM,IV,J,J2,J3,K,KAREN,KEY,L,LEV,LINE,LOOP,LTYPE,M,M1,MAIN,MAJR,MAJS,MAJT,MAM,MATCH,MED,MG,MIN,MINR,MINS,MINT,MM,MMM,MODEL,MOE,MOOD,MORE
+8 KILL N,N1,NAME,NEWHDR,NGAUGE,NLENGTH,NOASS,NODATE,NODE,NOGO,NOKEY,NON,NONUR,NOWAY,NUM,NUMB,NUMBER,NURSE,NYUK,O,OFF,OK,OLDATE,ON,OP,OPDATE,OPER,OPONE,OPPOSITE,OPS,OPT,OR,ORBY,OTH,OTHER,OUT
+9 KILL P,P1,P01,P2,PACK,PAGE,PAT,PDATE,PEND,PERF,PERFA,PIECE,PO,POP,POST,PREPAGNT,PRIN,PRIND,PRINS,PRINT,PRIOR,PRO,PROC,PSIUDA,PSIUX,PSIVRES,PTAG,PUN,Q,Q0,Q1,Q2,Q3,Q4,Q5,Q6,Q7,Q8,QPQPQ,QQ,QQQ,QTY
+10 KILL RR,RANGE,REASON,REFER,REIN,RELATED,REP,REQ,REST,RESTRICT,RET,RETURN,RH,RISK,ROOM,S,S1,S2,SA,SCH,SCND,SCRU,SCRUB,SD,SDATE,SDATE1,SDELAY
+11 KILL SE,SEB,SECOND,SEN,SER,SERIAL,SERV,SERVICE,SET,SEX,SHARP,SHEMP,SITE,SIZE,SOLU,SP,SPEC,SPONGE,SPRCNT
+12 KILL SR,SR1,SR10,SR16,SR1DAY,SR2,SR60,SRA,SRABATCH,SRABD,SRABORT,SRAC,SRAC1,SRACLR,SRACNT,SRACON,SRACT,SRAD,SRADATA,SRADATE,SRADFN,SRADN,SRADT
+13 KILL SRAED,SRAENDT,SRAGE,SRAGNT,SRAID,SRAIDT,SRAK,SRALL,SRALLOP,SRALOCK,SRALR,SRAMAN,SRAMC,SRAMGR,SRAML,SRAMNUM,SRAMSG,SRAN,SRAN1
+14 KILL SRAN2,SRANAME,SRANANUM,SRANASS,SRANATT,SRANE,SRANE1,SRANE2,SRANE3,SRANES,SRANESA,SRANM,SRANOCNT,SRANUM,SRANT,SRAO,SRAOP,SRAOPDT,SRAOTH,SRAP01,SRAPLOS,SRAPSITE
+15 KILL SRART,SRAS,SRASA,SRASD,SRASEL,SRASITE,SRASK,SRASP,SRASS,SRASSES,SRASSN,SRASSNO,SRASTAT,SRASTDT,SRASUR,SRAT,SRATC,SRATDATE,SRATDT
+16 KILL SRATIME,SRATN,SRATOT,SRATOTM,SRATT,SRATT1,SRATT2,SRATYPE,SRAUT,SRAUTO,SRAV,SRAV1,SRAVAL,SRAVG,SRAX,SRB,SRBACK,SRBED,SRBLANK,SRBLINK,SRBLOFF,SRBLON,SRBLOOD,SRBOTH,SRBT,SRBU,SRBX
+17 KILL SRC,SRCAN,SRCARD,SRCASE,SRCASES,SRCAT,SRCAUS,SRCAUSE,SRCC,SRCD,SRCH,SRCHF,SRCHK,SRCHNG,SRCKNM,SRCL,SRCLASS,SRCLEAN,SRCMP,SRCNT,SRCNTR,SRCODE,SRCODES,SRCOL,SRCOM
+18 KILL SR24,SRLR,SRNOPE,SRTIU,VAIN,VAIP
+19 DO ^SRSKILL1
+20 QUIT
