| 1 | LRRP4 ;SLC/DCM - INTERIM REPORT FOR OE/RR PATIENT LISTS ;8/11/97
|
|---|
| 2 | ;;5.2;LAB SERVICE;**121,242**;Sep 27, 1994
|
|---|
| 3 | OERR ;
|
|---|
| 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
|
|---|
| 8 | CLEAN ;
|
|---|
| 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
|
|---|
| 12 | SET ;
|
|---|
| 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
|
|---|
