Routine: LRGVGK

LRGVGK ; IHS/DIR/FJE - ROUTINE TO KILL A LIST OF VARIABLES 10/8/87 19:24 ;

 ;;5.2;LR;**1013**;JUL 15, 2002

 ;;5.2;LAB SERVICE;;Sep 27, 1994

 K %,%DT,%H,%ZIS,%X,%Y,%ZA,%ZB,%ZC,%ZTK,%ZTL,A2,AGE,C,D1,DA,DFN,DIC,DIE,DR,DTOUT,DUOUT,I,IOP,J,J1,LA,LRAA,LRACC,LRACD,LRAD,LRALL,LRAN,LRAOD,LRCFL,LRCH,LRCL,LRCRIT,LRCWDT,LRDAT,LRDEL,LRDELTA,LRDFN,LRDPF

 K LRDTS,LRDV,LRDVF,LREDIT,LREND,LREX1,LREX2,LREXEC,LREXPD,LRFAN,LRFFLG,LRFI,LRFP,LRGVP,LRHI,LRIDT,LRII,LRINI,LRIO,LRIOZERO,LRLAN,LRLCT,LRLDT,LRLLOC,LRLN,LRLO,LRLOC,LRNAME,LRNG,LRNG2,LRNG3,LRNG4

 K LRNG5,LRNOVER,LRNOW,LRNTN,LRNUF,LRNX,LRODT,LROUT,LROUTINE,LROV,LROWDT,LRPANEL,LRPER,LRPGM,LRPLOC,LRSA,LRSB,LRSKIP,LRSET,LRSN,LRSPEC,LRSPNAM,LRSS,LRSSQ,LRSUBS,LRTEC,LRTEST,LRTIME,LRTM60,LRTN

 ;K ^TMP("LR",$J,"T"),LRTOP,LRTS,LRTST,LRTSTS,LRTX,LRUSI,LRUTLITY,LRVF,LRVRFYAL,LRVRM,LRVTS,LRVWLE,LRXD,LRXDH,LRXDP,M,PNM,POP,S1,SEX,SSN,T,T1,V,X,X1,X2,X3,X9,Y,Z,Z1,Z2,ZTDESC,ZTDTH,ZTIO,ZTK,ZTL,ZTRTN,ZTSAVE

 K ^TMP("LR",$J,"T"),LRTOP,LRTS,LRTST,LRTSTS,LRTX,LRUSI,LRUTLITY,LRVF,LRVRFYAL,LRVRM,LRVTS,LRVWLE,LRXD,LRXDH,LRXDP,M,PNM,POP,S1,SEX,SSN,HRCN,T,T1,V,X,X1,X2,X3,X9,Y,Z,Z1,Z2,ZTDESC,ZTDTH,ZTIO,ZTK,ZTL,ZTRTN,ZTSAVE  ;IHS/ANMC/CLS 11/1/95

 K ZTSK,ZTUCI

LRGVGK    ; IHS/DIR/FJE - ROUTINE TO KILL A LIST OF VARIABLES 10/8/87 19:24 ;

 +1       ;;5.2;LR;**1013**;JUL 15, 2002

 +2       ;

 +3       ;;5.2;LAB SERVICE;;Sep 27, 1994

 +4        KILL %,%DT,%H,%ZIS,%X,%Y,%ZA,%ZB,%ZC,%ZTK,%ZTL,A2,AGE,C,D1,DA,DFN,DIC,DIE,DR,DTOUT,DUOUT,I,IOP,J,J1,LA,LRAA,LRACC,LRACD,LRAD,LRALL,LRAN,LRAOD,LRCFL,LRCH,LRCL,LRCRIT,LRCWDT,LRDAT,LRDEL,LRDELTA,LRDFN,LRDPF

 +5        KILL LRDTS,LRDV,LRDVF,LREDIT,LREND,LREX1,LREX2,LREXEC,LREXPD,LRFAN,LRFFLG,LRFI,LRFP,LRGVP,LRHI,LRIDT,LRII,LRINI,LRIO,LRIOZERO,LRLAN,LRLCT,LRLDT,LRLLOC,LRLN,LRLO,LRLOC,LRNAME,LRNG,LRNG2,LRNG3,LRNG4

 +6        KILL LRNG5,LRNOVER,LRNOW,LRNTN,LRNUF,LRNX,LRODT,LROUT,LROUTINE,LROV,LROWDT,LRPANEL,LRPER,LRPGM,LRPLOC,LRSA,LRSB,LRSKIP,LRSET,LRSN,LRSPEC,LRSPNAM,LRSS,LRSSQ,LRSUBS,LRTEC,LRTEST,LRTIME,LRTM60,LRTN

 +7       ;K ^TMP("LR",$J,"T"),LRTOP,LRTS,LRTST,LRTSTS,LRTX,LRUSI,LRUTLITY,LRVF,LRVRFYAL,LRVRM,LRVTS,LRVWLE,LRXD,LRXDH,LRXDP,M,PNM,POP,S1,SEX,SSN,T,T1,V,X,X1,X2,X3,X9,Y,Z,Z1,Z2,ZTDESC,ZTDTH,ZTIO,ZTK,ZTL,ZTRTN,ZTSAVE

 +8       ;IHS/ANMC/CLS 11/1/95

           KILL ^TMP("LR",$JOB,"T"),LRTOP,LRTS,LRTST,LRTSTS,LRTX,LRUSI,LRUTLITY,LRVF,LRVRFYAL,LRVRM,LRVTS,LRVWLE,LRXD,LRXDH,LRXDP,M,PNM,POP,S1,SEX,SSN,HRCN,T,T1,V,X,X1,X2,X3,X9,Y,Z,Z1,Z2,ZTDESC,ZTDTH,ZTIO,ZTK,ZTL,ZTRTN,ZTSAVE

 +9        KILL ZTSK,ZTUCI

LRGVGK.m