source: FOIAVistA/tag/r/SURGERY-SR/SRSKILL.m@ 1550

Last change on this file since 1550 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.6 KB
Line 
1SRSKILL ;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
Note: See TracBrowser for help on using the repository browser.