- 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 Mar 13, 2025@21:20:10 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