source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRRP4.m@ 724

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

initial load of WorldVistAEHR

File size: 786 bytes
Line 
1LRRP4 ;SLC/DCM - INTERIM REPORT FOR OE/RR PATIENT LISTS ;8/11/97
2 ;;5.2;LAB SERVICE;**121,242**;Sep 27, 1994
3OERR ;
4 S LRDFN=$$LRDFN^LR7OR1(DFN) I 'LRDFN W !,"No Lab Data for: "_$P(^(0),"^") Q
5 I '$D(^LR(LRDFN,0)) W !,"No Lab Data for: "_$P(^DPT(DFN,0),"^") Q
6 D DS^LRRP2
7 Q
8CLEAN ;
9 K DFN,DOB,LR0,LRAA,LRAAO,LRBLOOD,LRCDT,LRCMNT,LRCNIDT,LRCW,LRDATA,LRDFN,LRDN,LRDOC,LRDPF,LRDT0,LREDT,LREND,LRFFLG,LRFOOT,LRHF,LRHI,LRIDT,LRINTP,LRLAB,LRLABKY,LRLO,LRMNIDT,LROC,LRONESPC,LRONETST,LRPARAM,LRPC,LRPLASMA,LRPO
10 K LRSERUM,LRSPEC,LRSS,LRSTOP,LRSUB,LRTC,LRTHER,LRTSTS,LRUNKNOW,LRURINE,LRWRD,OREND,ORI,ORJ,OROPREF,ORUVP,ORVP,ORY,PNM,SEX,SSN,LRJ0,LRJ02
11 Q
12SET ;
13 D:'$D(LRPARAM) EN^LRPARAM D:'$D(LRDT0) DT^LRX
14 S LREND=0,(LRONETST,LRONESPC)="",LRLAB=$S($D(LRLABKY):1,1:0),LRIDT=0,LREDT=9999999
15 Q
Note: See TracBrowser for help on using the repository browser.