11 lines
871 B
Mathematica
11 lines
871 B
Mathematica
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
|