LRUP.m

LRUP ; IHS/DIR/AAB - GET PARENT FILE DATA 3/12/98 13:32 ;

 ;;5.2;LR;**1006**;SEP 01, 1998

 ;

 ;;5.2;LAB SERVICE;**1,50,201**;Sep 27, 1994

 ; X is set by the ^LR(LRDFN,0) global node

 S DFN=$P(X,U,3),(LRDPF,P("F"))=$P(X,U,2) D DEM^LRX S DOB=$$FMTE^XLFDT(DOB)

 S LRP="" Q:LREND  S LRP=PNM Q

LRUP      ; IHS/DIR/AAB - GET PARENT FILE DATA 3/12/98 13:32 ;

 +1       ;;5.2;LR;**1006**;SEP 01, 1998

 +2       ;

 +3       ;;5.2;LAB SERVICE;**1,50,201**;Sep 27, 1994

 +4       ; X is set by the ^LR(LRDFN,0) global node

 +5        SET DFN=$PIECE(X,U,3)

           SET (LRDPF,P("F"))=$PIECE(X,U,2)

           DO DEM^LRX

           SET DOB=$$FMTE^XLFDT(DOB)

 +6        SET LRP=""

           IF LREND

               QUIT 

           SET LRP=PNM

           QUIT