1 | SRSKILL ;BIR/MAM - KILL LOCAL VARIABLES ;09/12/07
|
---|
2 | ;;3.0; Surgery ;**38,48,134,164**;24 Jun 93;Build 2
|
---|
3 | I $G(SRTN) D UNLOCK^SROUTL(SRTN)
|
---|
4 | K ^TMP("SR",$J),^TMP("SRA",$J)
|
---|
5 | 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
|
---|
6 | 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
|
---|
7 | 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
|
---|
8 | 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
|
---|
9 | 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
|
---|
10 | 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
|
---|
11 | 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
|
---|
12 | K SE,SEB,SECOND,SEN,SER,SERIAL,SERV,SERVICE,SET,SEX,SHARP,SHEMP,SITE,SIZE,SOLU,SP,SPEC,SPONGE,SPRCNT
|
---|
13 | K SR,SR1,SR10,SR16,SR1DAY,SR2,SR60,SRA,SRABATCH,SRABD,SRABORT,SRAC,SRAC1,SRACLR,SRACNT,SRACON,SRACT,SRAD,SRADATA,SRADATE,SRADFN,SRADN,SRADT
|
---|
14 | K SRAED,SRAENDT,SRAGE,SRAGNT,SRAID,SRAIDT,SRAK,SRALL,SRALLOP,SRALOCK,SRALR,SRAMAN,SRAMC,SRAMGR,SRAML,SRAMNUM,SRAMSG,SRAN,SRAN1
|
---|
15 | K SRAN2,SRANAME,SRANANUM,SRANASS,SRANATT,SRANE,SRANE1,SRANE2,SRANE3,SRANES,SRANESA,SRANM,SRANOCNT,SRANUM,SRANT,SRAO,SRAOP,SRAOPDT,SRAOTH,SRAP01,SRAPLOS,SRAPSITE
|
---|
16 | K SRART,SRAS,SRASA,SRASD,SRASEL,SRASITE,SRASK,SRASP,SRASS,SRASSES,SRASSN,SRASSNO,SRASTAT,SRASTDT,SRASUR,SRAT,SRATC,SRATDATE,SRATDT
|
---|
17 | 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
|
---|
18 | 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
|
---|
19 | K SR24,SRLR,SRNOPE,SRTIU,VAIN,VAIP
|
---|
20 | D ^SRSKILL1
|
---|
21 | Q
|
---|