source: FOIAVistA/trunk/r/LAB_SERVICE-LR-LS/LROW4.m@ 811

Last change on this file since 811 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 871 bytes
Line 
1LROW4 ;SLC/CJS - LAB ORDER ENTRY, WARD (CONT.) ;8/11/97
2 ;;5.2;LAB SERVICE;**100,121**;Sep 27, 1994
3LREND ;from LROW,LROR3
4 D EN2^LRDPA($G(DFN),0,0)
5 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
6 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
7 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")
8 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
9 K LRCOM,LRIDIV,DIR,LRNATURE,LRTCOM
10 Q
Note: See TracBrowser for help on using the repository browser.