- 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