LRGVK1.m

LRGVK1 ; IHS/DIR/AAB - KILL OFF VARIABLES FROM LRTSTJAN 8/11/97 ;  [ 07/22/2002  1:22 PM ]

 ;;5.2;LR;**1003,1013**;JUL 15, 2002

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

 ;K %,A,AGE,DFN,DIC,DOB,DR,I,K,LRAA,LRAD,LRAN,LRCWDT,LRDFN,LRDPF,LRDTM,LREND,LRIDT,LRNT,LROCN,LRODT,LROID,LRODN,LROWDT,LRSN,LRSS,LRWDT1,LRWL1,LRWRD,PNM,SEX,SSN,X,Y,Z

 K %,A,AGE,DFN,DIC,DOB,DR,I,K,LRAA,LRAD,LRAN,LRCWDT,LRDFN,LRDPF,LRDTM,LREND,LRIDT,LRNT,LROCN,LRODT,LROID,LRODN,LROWDT,LRSN,LRSS,LRWDT1,LRWL1,LRWRD,PNM,SEX,SSN,HRCN,X,Y,Z  ;IHS/ANMC/CLS 11/1/95

 K LRTCOM,%DT,%Y,A1,DA,DIWL,DIWR,DO,H,LRCCOM,LRCOM,LRCS,LRCSN,LRFLOG,LRM,LRORDR,LROT,LROUTINE,LRSPEC,LRSSX,LRSTIK,LRIS,LRTSTNM,LRTT,LRUNQ,LRWPC,P,R,LRF,LRJ,LRTST,ZZ,TF,LRUSNM

 Q

LRGVK1    ; IHS/DIR/AAB - KILL OFF VARIABLES FROM LRTSTJAN 8/11/97 ;  [ 07/22/2002  1:22 PM ]

 +1       ;;5.2;LR;**1003,1013**;JUL 15, 2002

 +2       ;;5.2;LAB SERVICE;**121**;Sep 27, 1994

 +3       ;K %,A,AGE,DFN,DIC,DOB,DR,I,K,LRAA,LRAD,LRAN,LRCWDT,LRDFN,LRDPF,LRDTM,LREND,LRIDT,LRNT,LROCN,LRODT,LROID,LRODN,LROWDT,LRSN,LRSS,LRWDT1,LRWL1,LRWRD,PNM,SEX,SSN,X,Y,Z

 +4       ;IHS/ANMC/CLS 11/1/95

           KILL %,A,AGE,DFN,DIC,DOB,DR,I,K,LRAA,LRAD,LRAN,LRCWDT,LRDFN,LRDPF,LRDTM,LREND,LRIDT,LRNT,LROCN,LRODT,LROID,LRODN,LROWDT,LRSN,LRSS,LRWDT1,LRWL1,LRWRD,PNM,SEX,SSN,HRCN,X,Y,Z

 +5        KILL LRTCOM,%DT,%Y,A1,DA,DIWL,DIWR,DO,H,LRCCOM,LRCOM,LRCS,LRCSN,LRFLOG,LRM,LRORDR,LROT,LROUTINE,LRSPEC,LRSSX,LRSTIK,LRIS,LRTSTNM,LRTT,LRUNQ,LRWPC,P,R,LRF,LRJ,LRTST,ZZ,TF,LRUSNM

 +6        QUIT