LROW4.m

LROW4 ; IHS/DIR/AAB - LAB ORDER ENTRY, WARD (CONT.) 8/11/97 ;  [ 07/22/2002  1:37 PM ]

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

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

LREND ;from LROW,LROR3

 D EN2^LRDPA($G(DFN),0,0)

 K LROT,LRORDER,%,A,DFN,DIC,DL,DR,DX,I,J,K,LRBED,LRCCOM,LRCDT,LRCOL,LRCOM,LRCS,LRCSN,LRCSP,LRCSS,LRCSX,LRDAX,LRDFN,LRDPF,LRDTO,LREND,LREXP,LRLLOC,LRLWC,LRMAX,LRMOR,LRNN,LRODT,LRORD,LROUTINE,LRPR,LRPRAC,LRSAMP,LRSN,LRSNO,LRSPEC,LRPREV

 K %H,%X,%Y,DIWL,DIWR,DO,DPF,LRADDTST,LRFLOG,LRGCOM,LRIOZERO,LRM,LRNCWL,LRORDR,LRORDTIM,LRORIFN,LRSSX,LRSTIK,LRSVSN,LRTSTNM,LRTXD,LRTXP,LRWPC,LRMAX1,LRTIME,TT,LRY,LROLLOC,LRTREA

 ;K LRSES,LRSPCDSC,LRSSP,LRTEST,LRTN,LRTP,LRTSTN,LRTX,LRTY,LRUNQ,LRUR,LRUSI,LRUSNM,LRXS,LRYR,PNM,S,SSN,T,X,X1,X3,Y,Z,VA("BID"),VA("PID")

 K LRSES,LRSPCDSC,LRSSP,LRTEST,LRTN,LRTP,LRTSTN,LRTX,LRTY,LRUNQ,LRUR,LRUSI,LRUSNM,LRXS,LRYR,PNM,S,SSN,HRCN,T,X,X1,X3,Y,Z,VA("BID"),VA("PID")  ;IHS/ANMC/CLS 08/18/96

 K LRACN,LRACN0,LRCAPLOC,LRDOC,LRI,LRIO,LRJ,LRLL,LROD0,LROD1,LROD3,LRODTSV,LROOS,LROS,LROSD,LRROD,LRSNSV,LRTSTS,LRURG,NOW,LRIFN,X4,A,E

 K LRCOM,LRIDIV,DIR,LRNATURE,LRTCOM

 Q

LROW4     ; IHS/DIR/AAB - LAB ORDER ENTRY, WARD (CONT.) 8/11/97 ;  [ 07/22/2002  1:37 PM ]

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

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

LREND     ;from LROW,LROR3

 +1        DO EN2^LRDPA($GET(DFN),0,0)

 +2        KILL LROT,LRORDER,%,A,DFN,DIC,DL,DR,DX,I,J,K,LRBED,LRCCOM,LRCDT,LRCOL,LRCOM,LRCS,LRCSN,LRCSP,LRCSS,LRCSX,LRDAX,LRDFN,LRDPF,LRDTO,LREND,LREXP,LRLLOC,LRLWC,LRMAX,LRMOR,LRNN,LRODT,LRORD,LROUTINE,LRPR,LRPRAC,LRSAMP,LRSN,LRSNO,LRSPEC,LRPREV

 +3        KILL %H,%X,%Y,DIWL,DIWR,DO,DPF,LRADDTST,LRFLOG,LRGCOM,LRIOZERO,LRM,LRNCWL,LRORDR,LRORDTIM,LRORIFN,LRSSX,LRSTIK,LRSVSN,LRTSTNM,LRTXD,LRTXP,LRWPC,LRMAX1,LRTIME,TT,LRY,LROLLOC,LRTREA

 +4       ;K LRSES,LRSPCDSC,LRSSP,LRTEST,LRTN,LRTP,LRTSTN,LRTX,LRTY,LRUNQ,LRUR,LRUSI,LRUSNM,LRXS,LRYR,PNM,S,SSN,T,X,X1,X3,Y,Z,VA("BID"),VA("PID")

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

           KILL LRSES,LRSPCDSC,LRSSP,LRTEST,LRTN,LRTP,LRTSTN,LRTX,LRTY,LRUNQ,LRUR,LRUSI,LRUSNM,LRXS,LRYR,PNM,S,SSN,HRCN,T,X,X1,X3,Y,Z,VA("BID"),VA("PID")

 +6        KILL LRACN,LRACN0,LRCAPLOC,LRDOC,LRI,LRIO,LRJ,LRLL,LROD0,LROD1,LROD3,LRODTSV,LROOS,LROS,LROSD,LRROD,LRSNSV,LRTSTS,LRURG,NOW,LRIFN,X4,A,E

 +7        KILL LRCOM,LRIDIV,DIR,LRNATURE,LRTCOM

 +8        QUIT