LRRP4.m

LRRP4 ;SLC/DCM - INTERIM REPORT FOR OE/RR PATIENT LISTS ;8/11/97

 ;;5.2;LAB SERVICE;**121,242**;Sep 27, 1994

OERR ;

 S LRDFN=$$LRDFN^LR7OR1(DFN) I 'LRDFN W !,"No Lab Data for: "_$P(^(0),"^") Q

 I '$D(^LR(LRDFN,0)) W !,"No Lab Data for: "_$P(^DPT(DFN,0),"^") Q

 D DS^LRRP2

 Q

CLEAN ;

 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

 K LRSERUM,LRSPEC,LRSS,LRSTOP,LRSUB,LRTC,LRTHER,LRTSTS,LRUNKNOW,LRURINE,LRWRD,OREND,ORI,ORJ,OROPREF,ORUVP,ORVP,ORY,PNM,SEX,SSN,LRJ0,LRJ02

 Q

SET ;

 D:'$D(LRPARAM) EN^LRPARAM D:'$D(LRDT0) DT^LRX

 S LREND=0,(LRONETST,LRONESPC)="",LRLAB=$S($D(LRLABKY):1,1:0),LRIDT=0,LREDT=9999999

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LRRP4   801     printed  Apr 09, 2024@21:15:07                                                                                                                                                                                                        Page 2

LRRP4     ;SLC/DCM - INTERIM REPORT FOR OE/RR PATIENT LISTS ;8/11/97

 +1       ;;5.2;LAB SERVICE;**121,242**;Sep 27, 1994

OERR      ;

 +1        SET LRDFN=$$LRDFN^LR7OR1(DFN)

           IF 'LRDFN

               WRITE !,"No Lab Data for: "_$PIECE(^(0),"^")

               QUIT 

 +2        IF '$DATA(^LR(LRDFN,0))

               WRITE !,"No Lab Data for: "_$PIECE(^DPT(DFN,0),"^")

               QUIT 

 +3        DO DS^LRRP2

 +4        QUIT 

CLEAN     ;

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

 +2        KILL LRSERUM,LRSPEC,LRSS,LRSTOP,LRSUB,LRTC,LRTHER,LRTSTS,LRUNKNOW,LRURINE,LRWRD,OREND,ORI,ORJ,OROPREF,ORUVP,ORVP,ORY,PNM,SEX,SSN,LRJ0,LRJ02

 +3        QUIT 

SET       ;

 +1        if '$DATA(LRPARAM)

               DO EN^LRPARAM

           if '$DATA(LRDT0)

               DO DT^LRX

 +2        SET LREND=0

           SET (LRONETST,LRONESPC)=""

           SET LRLAB=$SELECT($DATA(LRLABKY):1,1:0)

           SET LRIDT=0

           SET LREDT=9999999

 +3        QUIT