LRORDK.m

LRORDK ;VA/SLC/FHS - CLEAN UP AFTER ACCESSIONING PROCESS ; 11-Dec-2014 15:39 ; MAW

 ;;5.2;LAB SERVICE;**61,100,1010,121,153,201,1018,1025,1034**;NOV 01, 1997;Build 88

EN ;

KILL K LRSD,LRXDFN,LRXDPF,LR696IEN,LABTEST

 K %,A,D,DO,DA,DFN,DIC,DQ,DTOUT,DX,H8,J,K,L,LRAA,LRACC,LRAD,LRAN,LRCCOM,LRCDT,LRCSN,LRD,LRDFN,LRDPF,LREAL,LREDO,LREND,LREXP,LRIDT,LRIN,LRIX,LRLBLBP,LRLLOC,LRM,LRN,LRNT,LRORD,LROUTINE,LRPR,LRPRAC,LRRB,LRSN,LRSSP,LRSSX,LRST,LRSUM

 K I9,LRTEST,LRZT,LRORDTIM,LRSX,LRSXN,LRTX,LRTSTNM,LRUNQ,LRWLC,LRWP,LRWPD,LRYR,PNM,S,SSN,X,Y,Z,LRFIRST,LRSAME,LRSAMP,LRSPEC,LRORDR,LRECT,LRODT,LRURG,LRFLOG,LRCS,LROT,LROLLOC,LRTREA

 K LRBED,LRCSS,LRDTO,LRK,LRLWC,LRORDER,LRTP,LRTSTS,LRUR,LRUSI,LRUSNM,LRSLIP,I7,%H,%X,%Y,DIWL,DIWR,DPF,I1,I2,I5,LABEL,LRADDTST,LRCE,LRDAT,LRECOM,LRINFW,LRIOZERO,LRNCWL,LRNIDT,LRNOLABL,LROCN,LROID,LROLRDFN,LRORIFN,LROSN,LRPHSET,LRPREF

 K LRSPCDSC,LRSVSN,LRTJ,LRTOP,LRTS,LRTXD,LRTXP,LRWL0,LRWPC,LRXL,S5,LRACD,LRACN,LRACN0,LRDOC,LRLL,LROD0,LROD1,LROD3,LROS,LROSD,LRROD,LRTT,T,X,X1,X2,X3,X4,Z,LRIDIV,LRCOM,LRNATURE,LRTCOM

 K LRIO,LRJ,LROOS,LRSS,LRTN,LRTIME,LRIO,LRURGG,LRLWCURG,LRCAPLOC,LRDAX,LRDMAX,LRDTST,LRTMAX,LRSAMPX,TT,LRMAX1,LROUT,LRSAVE,LRMAX2,LRMAXX,LRTY,LRSPN,DR,DIR,VA("PID"),VA("BID")

 ; D KVAR^VADPT

 ;----- BEGIN IHS/OIT/MKK MODIFICATIONS LR*5.2*1025

 D @$S($$ISPIMS^BLRUTIL:"KVAR^VADPT",1:"KVAR^BLRDPT")

 ;----- END IHS/OIT/MKK MODIFICATIONS

 K LRDPTDFN,LRI,LRIEN,LRNLT,LRODTSV,LRORU3,LRPAT,LRPCEVSO

 K LRREFBAR,LRRSITE,LRRUID,LRSNSV,LRTREAT,LRTSORU,LRUID,LRWRD

 K NOW,SEX,LRTNSV,LRORDRR,AGE,LRRSTAT,DUOUT,LRRIEN,DIRUT,DOB,C,LRVV

 K LRAFJDFN,LRDPTDFN,D0,ANS,LRY,D1,X,DI

 K ^TMP("LRSTIK",$J)

 ; D ^%ZISC

 ;----- BEGIN IHS/OIT/MKK MODIFICATIONS LR*5.2*1025

 K HRCN

 K BLRINS,BLRDXS,BLRINSS,AGINS,AGINS1,AGINSNN,BLRRL,BLRRLCLA  ;cmi/7/1/2010 reference lab ledi variables

 K BLRASFLG  ;ihs/cmi/maw 12/10/2014 p1034

 D:'$G(BLRGUI) ^%ZISC

 ;----- END IHS/OIT/MKK MODIFICATIONS

 Q

 ;

LROEND ;KILL LROE ROUTINE VARIABLES

 K %,A,AGE,DFN,DIC,DL,DOB,DR,DX,H8,J,K,LRAA,LRACC,LRAD,LRAN,LRCCOM,LRCDT,LRCHK,LRCOM,LRCS,LRCSN,LRCSP,LRCSX,LRD,LRDAX,LRDFN,LRDPF,LREAL,LREND,LREXP,LRIDT,LRIN,LRIX,LRLBLBP,LRLLOC,LRLWC,LRMAX,LRMOR,LRNN,LRNT,LRODT,LROLLOC,LRTREA,LRSPCDSC

 K LRORD,LRPR,LRPRAC,LRRB,LRSAMP,LRSNO,LRSPEC,LRSSP,LRST,LRSTATUS,LRTEST,LRTIM,LRTM7,LRTN,LRTS,LRTSTN,LRTY,LRUN,LRUNQ,LRURG,LRWL0,LRWLC,LRWRD,LRXS,LRXST,LRYR,M9,PNM,S,SEX,SSN,T,X,X1,X3,Y,Z,VA("BID"),VA("PID"),LRTCOM

 K %H,%X,%Y,DICS,DO,DPF,DSC,G1,G2,G4,I1,I2,I7,J1,LABEL,LOC,LRACD,LRADDTST,LRAOD,LRCE,LRDC,LRECOM,LRECT,LREDO,LREXEC,LRFLOG,LRGVP,LRINFW,LRIOZERO,LRK,LRNIDT,LRNONE,LROLRDFN,LRORDR,LRORDTIM,LRORIFN,LRPER,LRPHSET,LRPLOC,LRPREF

 K LRQUICK,LRRND,LRSLIP,LRSSQ,LRSSX,LRSVSN,LRSX,LRSXN,LRTEC,LRTJ,LRTOP,LRTSN,LRTXD,LRTXP,LRVOL,LRWP,LRWPC,LRWPD,LRWRDS,LRXL,LRZX,Z1,Z2,LRSN1,LRSAME,ZTSK,DIR,LRLABLIO,LRNATURE

 K ^TMP("LRSTIK",$J)

 ; D KVAR^VADPT D ^%ZISC

 ;----- BEGIN IHS/OIT/MKK MODIFICATIONS LR*5.2*1025

 K HRCN

 D @$S($$ISPIMS^BLRUTIL:"KVAR^VADPT",1:"KVAR^BLRDPT")

 D:'$G(BLRGUI) ^%ZISC

 ;----- END IHS/OIT/MKK MODIFICATIONS

 Q

LRORDK    ;VA/SLC/FHS - CLEAN UP AFTER ACCESSIONING PROCESS ; 11-Dec-2014 15:39 ; MAW

 +1       ;;5.2;LAB SERVICE;**61,100,1010,121,153,201,1018,1025,1034**;NOV 01, 1997;Build 88

EN        ;

KILL       KILL LRSD,LRXDFN,LRXDPF,LR696IEN,LABTEST

 +1        KILL %,A,D,DO,DA,DFN,DIC,DQ,DTOUT,DX,H8,J,K,L,LRAA,LRACC,LRAD,LRAN,LRCCOM,LRCDT,LRCSN,LRD,LRDFN,LRDPF,LREAL,LREDO,LREND,LREXP,LRIDT,LRIN,LRIX,LRLBLBP,LRLLOC,LRM,LRN,LRNT,LRORD,LROUTINE,LRPR,LRPRAC,LRRB,LRSN,LRSSP,LRSSX,LRST,LRSUM

 +2        KILL I9,LRTEST,LRZT,LRORDTIM,LRSX,LRSXN,LRTX,LRTSTNM,LRUNQ,LRWLC,LRWP,LRWPD,LRYR,PNM,S,SSN,X,Y,Z,LRFIRST,LRSAME,LRSAMP,LRSPEC,LRORDR,LRECT,LRODT,LRURG,LRFLOG,LRCS,LROT,LROLLOC,LRTREA

 +3        KILL LRBED,LRCSS,LRDTO,LRK,LRLWC,LRORDER,LRTP,LRTSTS,LRUR,LRUSI,LRUSNM,LRSLIP,I7,%H,%X,%Y,DIWL,DIWR,DPF,I1,I2,I5,LABEL,LRADDTST,LRCE,LRDAT,LRECOM,LRINFW,LRIOZERO,LRNCWL,LRNIDT,LRNOLABL,LROCN,LROID,LROLRDFN,LRORIFN,LROSN,LRPHSET,LRPREF

 +4        KILL LRSPCDSC,LRSVSN,LRTJ,LRTOP,LRTS,LRTXD,LRTXP,LRWL0,LRWPC,LRXL,S5,LRACD,LRACN,LRACN0,LRDOC,LRLL,LROD0,LROD1,LROD3,LROS,LROSD,LRROD,LRTT,T,X,X1,X2,X3,X4,Z,LRIDIV,LRCOM,LRNATURE,LRTCOM

 +5        KILL LRIO,LRJ,LROOS,LRSS,LRTN,LRTIME,LRIO,LRURGG,LRLWCURG,LRCAPLOC,LRDAX,LRDMAX,LRDTST,LRTMAX,LRSAMPX,TT,LRMAX1,LROUT,LRSAVE,LRMAX2,LRMAXX,LRTY,LRSPN,DR,DIR,VA("PID"),VA("BID")

 +6       ; D KVAR^VADPT

 +7       ;----- BEGIN IHS/OIT/MKK MODIFICATIONS LR*5.2*1025

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

 +9       ;----- END IHS/OIT/MKK MODIFICATIONS

 +10       KILL LRDPTDFN,LRI,LRIEN,LRNLT,LRODTSV,LRORU3,LRPAT,LRPCEVSO

 +11       KILL LRREFBAR,LRRSITE,LRRUID,LRSNSV,LRTREAT,LRTSORU,LRUID,LRWRD

 +12       KILL NOW,SEX,LRTNSV,LRORDRR,AGE,LRRSTAT,DUOUT,LRRIEN,DIRUT,DOB,C,LRVV

 +13       KILL LRAFJDFN,LRDPTDFN,D0,ANS,LRY,D1,X,DI

 +14       KILL ^TMP("LRSTIK",$JOB)

 +15      ; D ^%ZISC

 +16      ;----- BEGIN IHS/OIT/MKK MODIFICATIONS LR*5.2*1025

 +17       KILL HRCN

 +18      ;cmi/7/1/2010 reference lab ledi variables

           KILL BLRINS,BLRDXS,BLRINSS,AGINS,AGINS1,AGINSNN,BLRRL,BLRRLCLA

 +19      ;ihs/cmi/maw 12/10/2014 p1034

           KILL BLRASFLG

 +20       IF '$GET(BLRGUI)

               DO ^%ZISC

 +21      ;----- END IHS/OIT/MKK MODIFICATIONS

 +22       QUIT 

 +23      ;

LROEND    ;KILL LROE ROUTINE VARIABLES

 +1        KILL %,A,AGE,DFN,DIC,DL,DOB,DR,DX,H8,J,K,LRAA,LRACC,LRAD,LRAN,LRCCOM,LRCDT,LRCHK,LRCOM,LRCS,LRCSN,LRCSP,LRCSX,LRD,LRDAX,LRDFN,LRDPF,LREAL,LREND,LREXP,LRIDT,LRIN,LRIX,LRLBLBP,LRLLOC,LRLWC,LRMAX,LRMOR,LRNN,LRNT,LRODT,LROLLOC,LRTREA,LRSPCDSC

 +2        KILL LRORD,LRPR,LRPRAC,LRRB,LRSAMP,LRSNO,LRSPEC,LRSSP,LRST,LRSTATUS,LRTEST,LRTIM,LRTM7,LRTN,LRTS,LRTSTN,LRTY,LRUN,LRUNQ,LRURG,LRWL0,LRWLC,LRWRD,LRXS,LRXST,LRYR,M9,PNM,S,SEX,SSN,T,X,X1,X3,Y,Z,VA("BID"),VA("PID"),LRTCOM

 +3        KILL %H,%X,%Y,DICS,DO,DPF,DSC,G1,G2,G4,I1,I2,I7,J1,LABEL,LOC,LRACD,LRADDTST,LRAOD,LRCE,LRDC,LRECOM,LRECT,LREDO,LREXEC,LRFLOG,LRGVP,LRINFW,LRIOZERO,LRK,LRNIDT,LRNONE,LROLRDFN,LRORDR,LRORDTIM,LRORIFN,LRPER,LRPHSET,LRPLOC,LRPREF

 +4        KILL LRQUICK,LRRND,LRSLIP,LRSSQ,LRSSX,LRSVSN,LRSX,LRSXN,LRTEC,LRTJ,LRTOP,LRTSN,LRTXD,LRTXP,LRVOL,LRWP,LRWPC,LRWPD,LRWRDS,LRXL,LRZX,Z1,Z2,LRSN1,LRSAME,ZTSK,DIR,LRLABLIO,LRNATURE

 +5        KILL ^TMP("LRSTIK",$JOB)

 +6       ; D KVAR^VADPT D ^%ZISC

 +7       ;----- BEGIN IHS/OIT/MKK MODIFICATIONS LR*5.2*1025

 +8        KILL HRCN

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

 +10       IF '$GET(BLRGUI)

               DO ^%ZISC

 +11      ;----- END IHS/OIT/MKK MODIFICATIONS

 +12       QUIT