LRGVK.m

LRGVK ;SLC/RWF - KILL OFF VARIABLES FROM LRVR*,LRVER*,LRGV*,LRGP* ; 10/8/87  19:25 ; [ 04/14/2003  8:50 AM ]

 ;;5.2T9;LR;**1004,1018**;Nov 17, 2004

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

 K %,%DT,%H,%X,A2,AGE,B,C,D,D1,DA,DFN,DIC,DIE,DR,DTOUT,DUOUT,G,G1,G4,I,J,J1,K,LA,LASQ,LAST,LL,LR0,LRAA,LRACC,LRACD,LRAD,LRALL,LRAN,LRAOD,LRC,LRCDT,LRCFL,LRCH,LRCL,LRCNT,LRCRIT,LRCUP,LRCW

 K LRCWDT,LRDAT,LRDCNT,LRDEL,LRDELTA,LRDFN,LRDPF,LRDT,LRDTS,LRDV,LRDVF,LREAL,LRECUP,LREDIT,LREDT,LREND,LRESEQ,LREX1,LREX2,LREXEC,LREXPD,LRFAN,LRFCUP,LRFFLG,LRFI,LRFLG,LRFP,LRFTRAY,LRGVP,LRHED,LRHI

 K LRIDT,LRII,LRINI,LRIO,LRITC,LRLAN,LRLCT,LRLCUP,LRLDT,LRLI,LRLIX,LRLK,LRLL,LRLLOC,LRLLT,LRLN,LRLNM,LRLO,LRLOC,LRLTRAY,LRM,LRMAXCUP,LRMETH,LRMK,LRNAME,LRNG,LRNG2,LRNG3,LRNG4,LRNG5,LRNM,LRNOVER,LRNOW,LRNT

 K LRNTN,LRNUF,LRNX,LRODT,LRORD,LROUT,LROV,LROWDT,LRPANEL,LRPER,LRPGM,LRPLOC,LRPRGSQ,LRPROF,LRSA,LRSAMP,LRSB,LRSDT,LRSKIP,LRSET,LRSN,LRSPEC,LRSPNAM,LRSQ,LRSS,LRSSQ,LRSTAR

 K ^TMP("LR",$J,"T"),^TMP("LR",$J,"TMP"),^TMP("LR",$J,"VTO"),LRSUB,LRSUBS,LRTEC,LRTEST,LRTIME,LRTM60,LRTN,LRTOP,LRTRAY,LRTRCP,LRTS,LRTST,LRTSTS,LRTX,LRUSI,LRUTLITY,LRVF,LRVOL,LRVRFYAL,LRVRM,LRVTS,LRVWLE,LRWDTL,LRWT,LRXACC,LRXCEN

 ;K LRXD,LRXDH,LRXDP,LRXTC,LRZI,M,N,PNM,POP,S1,S2,S3,SEX,SSN,T,T1,V,X,X1,X2,X3,X5,X6,X7,X9,Y,Z,Z1,Z2,ZTRTN,ZTSK,LRLIST

 ;----- BEGIN IHS MODIFICATIONS LR*5.2*1018

 K LRXD,LRXDH,LRXDP,LRXTC,LRZI,M,N,PNM,POP,S1,S2,S3,SEX,SSN,HRCN,T,T1,V,X,X1,X2,X3,X5,X6,X7,X9,Y,Z,Z1,Z2,ZTRTN,ZTSK,LRLIST  ;IHS/ANMC/CLS 11/1/95

 ;----- END IHS MODIFICATIONS

 K LRORU3

 D ^LRVRKIL Q

LRGVK     ;SLC/RWF - KILL OFF VARIABLES FROM LRVR*,LRVER*,LRGV*,LRGP* ; 10/8/87  19:25 ; [ 04/14/2003  8:50 AM ]

 +1       ;;5.2T9;LR;**1004,1018**;Nov 17, 2004

 +2       ;;5.2;LAB SERVICE;**153**;Sep 27, 1994

 +3        KILL %,%DT,%H,%X,A2,AGE,B,C,D,D1,DA,DFN,DIC,DIE,DR,DTOUT,DUOUT,G,G1,G4,I,J,J1,K,LA,LASQ,LAST,LL,LR0,LRAA,LRACC,LRACD,LRAD,LRALL,LRAN,LRAOD,LRC,LRCDT,LRCFL,LRCH,LRCL,LRCNT,LRCRIT,LRCUP,LRCW

 +4        KILL LRCWDT,LRDAT,LRDCNT,LRDEL,LRDELTA,LRDFN,LRDPF,LRDT,LRDTS,LRDV,LRDVF,LREAL,LRECUP,LREDIT,LREDT,LREND,LRESEQ,LREX1,LREX2,LREXEC,LREXPD,LRFAN,LRFCUP,LRFFLG,LRFI,LRFLG,LRFP,LRFTRAY,LRGVP,LRHED,LRHI

 +5        KILL LRIDT,LRII,LRINI,LRIO,LRITC,LRLAN,LRLCT,LRLCUP,LRLDT,LRLI,LRLIX,LRLK,LRLL,LRLLOC,LRLLT,LRLN,LRLNM,LRLO,LRLOC,LRLTRAY,LRM,LRMAXCUP,LRMETH,LRMK,LRNAME,LRNG,LRNG2,LRNG3,LRNG4,LRNG5,LRNM,LRNOVER,LRNOW,LRNT

 +6        KILL LRNTN,LRNUF,LRNX,LRODT,LRORD,LROUT,LROV,LROWDT,LRPANEL,LRPER,LRPGM,LRPLOC,LRPRGSQ,LRPROF,LRSA,LRSAMP,LRSB,LRSDT,LRSKIP,LRSET,LRSN,LRSPEC,LRSPNAM,LRSQ,LRSS,LRSSQ,LRSTAR

 +7        KILL ^TMP("LR",$JOB,"T"),^TMP("LR",$JOB,"TMP"),^TMP("LR",$JOB,"VTO"),LRSUB,LRSUBS,LRTEC,LRTEST,LRTIME,LRTM60,LRTN,LRTOP,LRTRAY,LRTRCP,LRTS,LRTST,LRTSTS,LRTX,LRUSI,LRUTLITY,LRVF,LRVOL,LRVRFYAL,LRVRM,LRVTS,LRVWLE,LRWDTL,LRWT,LRXACC,LRXCEN

 +8       ;K LRXD,LRXDH,LRXDP,LRXTC,LRZI,M,N,PNM,POP,S1,S2,S3,SEX,SSN,T,T1,V,X,X1,X2,X3,X5,X6,X7,X9,Y,Z,Z1,Z2,ZTRTN,ZTSK,LRLIST

 +9       ;----- BEGIN IHS MODIFICATIONS LR*5.2*1018

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

           KILL LRXD,LRXDH,LRXDP,LRXTC,LRZI,M,N,PNM,POP,S1,S2,S3,SEX,SSN,HRCN,T,T1,V,X,X1,X2,X3,X5,X6,X7,X9,Y,Z,Z1,Z2,ZTRTN,ZTSK,LRLIST

 +11      ;----- END IHS MODIFICATIONS

 +12       KILL LRORU3

 +13       DO ^LRVRKIL

           QUIT