BLRORDK.m

BLRORDK ;SLC/FHS/TPF - CLEAN UP AFTER ACCESSIONING PROCESS ;8/11/97 [ 08/01/2002  8:21 AM ]

 ;;5.2;LR;**1,1013**;JUL 31, 1997

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

EN ;

KILL 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,LRSTIK,LRURG,LRFLOG,LRCS,LROT,LROLLOC,LRTREA

 K I9,LRTEST,LRZT,LRORDTIM,LRSX,LRSXN,LRTX,LRTSTNM,LRUNQ,LRWLC,LRWP,LRWPD,LRYR,PNM,S,SSN,HRCN,X,Y,Z,LRFIRST,LRSAME,LRSAMP,LRSPEC,LRORDR,LRECT,LRODT,LRSTIK,LRURG,LRFLOG,LRCS,LROT,LROLLOC,LRTREA  ;IHS/ANMC/CLS 08/18/96

 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

 D KVAR^BLRDPT  ;IHS/OIRM TUC/MJL

 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 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,HRCN,T,X,X1,X3,Y,Z,VA("BID"),VA("PID"),LRTCOM  ;IHS/ANMC/CLS 08/18/96

 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,LRSTIK,LRSVSN,LRSX,LRSXN,LRTEC,LRTJ,LRTOP,LRTSN,LRTXD,LRTXP,LRVOL,LRWP,LRWPC,LRWPD,LRWRDS,LRXL,LRZX,Z1,Z2,LRSN1,LRSAME,ZTSK,DIR,LRLABLIO,LRNATURE

 ;D KVAR^VADPT

 D KVAR^BLRDPT  ;IHS/OIRM TUC/MJL

 Q

BLRORDK   ;SLC/FHS/TPF - CLEAN UP AFTER ACCESSIONING PROCESS ;8/11/97 [ 08/01/2002  8:21 AM ]

 +1       ;;5.2;LR;**1,1013**;JUL 31, 1997

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

EN        ;

KILL       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

 +1       ;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,LRSTIK,LRURG,LRFLOG,LRCS,LROT,LROLLOC,LRTREA

 +2       ;IHS/ANMC/CLS 08/18/96

           KILL I9,LRTEST,LRZT,LRORDTIM,LRSX,LRSXN,LRTX,LRTSTNM,LRUNQ,LRWLC,LRWP,LRWPD,LRYR,PNM,S,SSN,HRCN,X,Y,Z,LRFIRST,LRSAME,LRSAMP,LRSPEC,LRORDR,LRECT,LRODT,LRSTIK,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       ;IHS/OIRM TUC/MJL

           DO KVAR^BLRDPT

 +8        QUIT 

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       ;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

 +3       ;IHS/ANMC/CLS 08/18/96

           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,HRCN,T,X,X1,X3,Y,Z,VA("BID"),VA("PID"),LRTCOM

 +4        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

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

 +6       ;D KVAR^VADPT

 +7       ;IHS/OIRM TUC/MJL

           DO KVAR^BLRDPT

 +8        QUIT