LRGVK.m

LRGVK ;SLC/RWF - KILL OFF VARIABLES FROM LRVR*,LRVER*,LRGV*,LRGP* ; 10/8/87  19:25 ;

 ;;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

 K LRORU3

 D ^LRVRKIL Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LRGVK   1266     printed  Apr 09, 2024@21:07:40                                                                                                                                                                                                       Page 2

LRGVK     ;SLC/RWF - KILL OFF VARIABLES FROM LRVR*,LRVER*,LRGV*,LRGP* ; 10/8/87  19:25 ;

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

 +2        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

 +3        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

 +4        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

 +5        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

 +6        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

 +7        KILL 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

 +8        KILL LRORU3

 +9        DO ^LRVRKIL

           QUIT