LRRK.m

LRRK ;SLC/BA - INTERIM REPORT CLEANUP ; 3/16/88  8:00 PM [ 04/14/2003  12:13 PM ]

 ;;5.2T9;LR;*1018*;Nov 17, 2004

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

 ;

 ;from LRRD, LRRS, LRRSP, LRRP2, LRRP3

KILL ;D KVAR^VADPT,^%ZISC K AGE,SEX,LRPRAC,LRRB,LRTREA,VA,LRCHK,LRCNT

 ;----- BEGIN IHS MODIFICATIONS LR*5.2*1018

 D @$S($$ISPIMS^BLRUTIL:"KVAR^VADPT",1:"KVAR^BLRDPT") D ^%ZISC K AGE,SEX,LRPRAC,LRRB,LRTREA,VA,LRCHK,LRCNT

 ;----- END IHS MODIFICATIONS

 K ^TMP("LR",$J),%DT,A8,B,C,DFN,DIC,DOB,DTOUT,DUOUT,DZ,I,II,IOBS,J,LR0,LR2ORMOR,LRAA,LRAAO,LRABCNT,LRACC,LRAD,LRADM,LRADX,LRAFS,LRAMT,LRAN,LRAX,LRBRR,LRBUG,LRCDT,LRCMNT,LRCNIDT,LRCOMTAB,LRCS,LRCW,LRDATA,LRDCOM,LRDFN,LRDN,LRDOC

 K LRDPF,LREDT,LREF,LRELOC,LREND,LREPHY,LREXPD,LRFFLG,LRFLOC,LRFOUND,LRFMT,LRFOOT,LRFPHY,LRGRM,LRH,LRHF,LRHI,LRIDT,LRIFN,LRINTP,LRJJ,LRLAB,LRLLOC,LRLLT,LRLO,LRLOC,LRLTR,LRMF,LRMD,LRMI,LRMIEC,LRMNIDT,LRNAME,LRNS,LRNUM,LROC,LROCE,LRODT,LROK

 K LRONESPC,LRONETST,LROP,LRORDER,LRORG,LRPC,LRPG,LRPHY,LRPO,LRPRE,LRPRINT,LRQU,LRRC,LRSDT,LRSINGLE,LRSN,LRSPEC,LRSS,LRSSD,LRST,LRSTOP,LRSUB,LRTC,LRTEST,LRTHER,LRTK,LRTS,LRTSCRN,LRTSTS,LRTUS,LRUS,LRWRD,LRJ0,LRJ02

 ;K LRHCNT,N,PNM,POP,SSN,T,X,X1,X2,Y,^TMP("LRLTR",$J)

 ;----- BEGIN IHS MODIFICATIONS LR*5.2*1018

 K LRHCNT,N,PNM,POP,SSN,HRCN,T,X,X1,X2,Y,^TMP("LRLTR",$J)  ;IHS/ANMC/CLS08/18/96

 ;----- END IHS MODIFICATIONS

 K LRPLS,LRCUM,LRPG,LRPRTPG

 Q

LRRK      ;SLC/BA - INTERIM REPORT CLEANUP ; 3/16/88  8:00 PM [ 04/14/2003  12:13 PM ]

 +1       ;;5.2T9;LR;*1018*;Nov 17, 2004

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

 +3       ;

 +4       ;from LRRD, LRRS, LRRSP, LRRP2, LRRP3

KILL      ;D KVAR^VADPT,^%ZISC K AGE,SEX,LRPRAC,LRRB,LRTREA,VA,LRCHK,LRCNT

 +1       ;----- BEGIN IHS MODIFICATIONS LR*5.2*1018

 +2        DO @$SELECT($$ISPIMS^BLRUTIL:"KVAR^VADPT",1:"KVAR^BLRDPT")

           DO ^%ZISC

           KILL AGE,SEX,LRPRAC,LRRB,LRTREA,VA,LRCHK,LRCNT

 +3       ;----- END IHS MODIFICATIONS

 +4        KILL ^TMP("LR",$JOB),%DT,A8,B,C,DFN,DIC,DOB,DTOUT,DUOUT,DZ,I,II,IOBS,J,LR0,LR2ORMOR,LRAA,LRAAO,LRABCNT,LRACC,LRAD,LRADM,LRADX,LRAFS,LRAMT,LRAN,LRAX,LRBRR,LRBUG,LRCDT,LRCMNT,LRCNIDT,LRCOMTAB,LRCS,LRCW,LRDATA,LRDCOM,LRDFN,LRDN,LRDOC

 +5        KILL LRDPF,LREDT,LREF,LRELOC,LREND,LREPHY,LREXPD,LRFFLG,LRFLOC,LRFOUND,LRFMT,LRFOOT,LRFPHY,LRGRM,LRH,LRHF,LRHI,LRIDT,LRIFN,LRINTP,LRJJ,LRLAB,LRLLOC,LRLLT,LRLO,LRLOC,LRLTR,LRMF,LRMD,LRMI,LRMIEC,LRMNIDT,LRNAME,LRNS,LRNUM,LROC,LROCE,LRODT,LROK

 +6        KILL LRONESPC,LRONETST,LROP,LRORDER,LRORG,LRPC,LRPG,LRPHY,LRPO,LRPRE,LRPRINT,LRQU,LRRC,LRSDT,LRSINGLE,LRSN,LRSPEC,LRSS,LRSSD,LRST,LRSTOP,LRSUB,LRTC,LRTEST,LRTHER,LRTK,LRTS,LRTSCRN,LRTSTS,LRTUS,LRUS,LRWRD,LRJ0,LRJ02

 +7       ;K LRHCNT,N,PNM,POP,SSN,T,X,X1,X2,Y,^TMP("LRLTR",$J)

 +8       ;----- BEGIN IHS MODIFICATIONS LR*5.2*1018

 +9       ;IHS/ANMC/CLS08/18/96

           KILL LRHCNT,N,PNM,POP,SSN,HRCN,T,X,X1,X2,Y,^TMP("LRLTR",$JOB)

 +10      ;----- END IHS MODIFICATIONS

 +11       KILL LRPLS,LRCUM,LRPG,LRPRTPG

 +12       QUIT