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 ---[H[J[2J[HLRVRKIL 1118 printed Dec 13, 2024@02:22:47 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
