LRVRKIL.m

LRVRKIL ;DALISC/FHS - LAB ROUTINE DATA VERFICATION VARIABLE KILLER ;03/24/92 17:30

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

 ;Formerly apart of LRVR

EN ;From LRVR

 D ^%ZISC,KVA^VADPT

 K D1,DL,LRAL,LRALERT,LRCAPWA,LRCDEFOX,LRLD,LRNOCODE,LRORU3,LRPCEVSO

 K LRPRAC,LRRB,LRSUFO,LRTM60,LRTREA,LRTT,LRURGW,ORIFN,RSITE,X,XP

 K X3,LRT,LRCFL,LRCSQ,D0,GLB,LRAA,LRCAPMS,LRCDEF,LRCDEF0,LRCNT,LRCODE,LRCODEN,LRCWT,LRI,LRNOW,NOW,LRP,LRPN,LRQC,LRSSC,LRSSCX,LRSTD,NODE,NODE0,S2,ZTSK,LRTIME,Y

 K EAMODE,LROUTINE,LRPANEL,LRSAMP,LRSN,LRSP,LRSPEC,LRSS,LRSUB,LRTN,LRTS,LRTSTLM,LRTYPE,LRUSI,LRUSNM,LRVERVER,LRVF,^TMP("LR",$J,"VTO"),LRVTS,LRWRD,N,PNM,SEX,SSN,X,X1,X2,X6,X7,Y,Z,VA("PID"),VA("BID")

 K ^TMP("LR",$J,"TMP"),%,A,AGE,B,DFN,DIC,DOB,I,IFN,LRNOECHO,LRSBCOM,LRLKOK,I1,J,LRACC,LRCDT,LRCEN,LRCW,LRDAT,LRDFN,LRDPF,LRDV,LRDVF,LREAL,LREDIT

 K LRNOW,LRTEC,LRAA,LRACD,LRAD,LRAN,LRAOD,LREND,LRMA,LRMACH,LRMAX2,LRMAXX,LRPROF,LRSQ,LRTNSV,LRTY,LRVRM,S,Z1,Z2,DX,LRLL,LRODTSV,LRSPN,LRTRCP,LRTSE,KK,NOW,LRCFL,LRSNSV,G,G6

 K LRFLG,LRIDT,LRINI,LRLCT,LRLK,LRLLOC,LRMETH,LRNG2,LRNG3,LRNG4,LRNG5,LRNT,LRNTN,LRNX,LRODT,LROUT,LRORD,LRPER,LRM Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LRVRKIL   1118     printed  Apr 09, 2024@21:25:13                                                                                                                                                                                                     Page 2

LRVRKIL   ;DALISC/FHS - LAB ROUTINE DATA VERFICATION VARIABLE KILLER ;03/24/92 17:30

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

 +2       ;Formerly apart of LRVR

EN        ;From LRVR

 +1        DO ^%ZISC

           DO KVA^VADPT

 +2        KILL D1,DL,LRAL,LRALERT,LRCAPWA,LRCDEFOX,LRLD,LRNOCODE,LRORU3,LRPCEVSO

 +3        KILL LRPRAC,LRRB,LRSUFO,LRTM60,LRTREA,LRTT,LRURGW,ORIFN,RSITE,X,XP

 +4        KILL X3,LRT,LRCFL,LRCSQ,D0,GLB,LRAA,LRCAPMS,LRCDEF,LRCDEF0,LRCNT,LRCODE,LRCODEN,LRCWT,LRI,LRNOW,NOW,LRP,LRPN,LRQC,LRSSC,LRSSCX,LRSTD,NODE,NODE0,S2,ZTSK,LRTIME,Y

 +5        KILL EAMODE,LROUTINE,LRPANEL,LRSAMP,LRSN,LRSP,LRSPEC,LRSS,LRSUB,LRTN,LRTS,LRTSTLM,LRTYPE,LRUSI,LRUSNM,LRVERVER,LRVF,^TMP("LR",$JOB,"VTO"),LRVTS,LRWRD,N,PNM,SEX,SSN,X,X1,X2,X6,X7,Y,Z,VA("PID"),VA("BID")

 +6        KILL ^TMP("LR",$JOB,"TMP"),%,A,AGE,B,DFN,DIC,DOB,I,IFN,LRNOECHO,LRSBCOM,LRLKOK,I1,J,LRACC,LRCDT,LRCEN,LRCW,LRDAT,LRDFN,LRDPF,LRDV,LRDVF,LREAL,LREDIT

 +7        KILL LRNOW,LRTEC,LRAA,LRACD,LRAD,LRAN,LRAOD,LREND,LRMA,LRMACH,LRMAX2,LRMAXX,LRPROF,LRSQ,LRTNSV,LRTY,LRVRM,S,Z1,Z2,DX,LRLL,LRODTSV,LRSPN,LRTRCP,LRTSE,KK,NOW,LRCFL,LRSNSV,G,G6

 +8        KILL LRFLG,LRIDT,LRINI,LRLCT,LRLK,LRLLOC,LRMETH,LRNG2,LRNG3,LRNG4,LRNG5,LRNT,LRNTN,LRNX,LRODT,LROUT,LRORD,LRPER,LRM

           QUIT