LROW4.m

LROW4 ;SLC/CJS - LAB ORDER ENTRY, WARD (CONT.) ;8/11/97

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LROW4   881     printed  Apr 09, 2024@21:09:18                                                                                                                                                                                                        Page 2

LROW4     ;SLC/CJS - LAB ORDER ENTRY, WARD (CONT.) ;8/11/97

 +1       ;;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        KILL 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        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

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

 +7        QUIT