SRSKILL.m

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

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