LRKILL ;SLC/CJS - CLEAN-UP AFTER LR ROUTINES ;8/11/97
;;5.2;LAB SERVICE;**71,121**;Sep 27, 1994
K LRBLOOD,LRPARAM,LRPLASMA,LRSERUM,LRUNKNOW,LRURINE
K LRPANEL,LRTM60,LRDT0,LRLABKY,VA("BID"),VA("PID")
K LRVIDO,LRVIDOF,LRPCEVSO D KVAR^VADPT
K LR,LRABV,LRAX,LRBLOOD,LRCAPA,LRDPAF,LRDT0,LRH,LRSF,LRT,LRU,LRWHO
D ^LRORDK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRKILL 332 printed Oct 16, 2024@18:16:34 Page 2
LRKILL ;SLC/CJS - CLEAN-UP AFTER LR ROUTINES ;8/11/97
+1 ;;5.2;LAB SERVICE;**71,121**;Sep 27, 1994
+2 KILL LRBLOOD,LRPARAM,LRPLASMA,LRSERUM,LRUNKNOW,LRURINE
+3 KILL LRPANEL,LRTM60,LRDT0,LRLABKY,VA("BID"),VA("PID")
+4 KILL LRVIDO,LRVIDOF,LRPCEVSO
DO KVAR^VADPT
+5 KILL LR,LRABV,LRAX,LRBLOOD,LRCAPA,LRDPAF,LRDT0,LRH,LRSF,LRT,LRU,LRWHO
+6 DO ^LRORDK
+7 QUIT