LRUP ;AVAMC/REG/CYM - GET PARENT FILE DATA ;3/12/98 13:32 ;
;;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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRUP 262 printed Nov 22, 2024@17:31:53 Page 2
LRUP ;AVAMC/REG/CYM - GET PARENT FILE DATA ;3/12/98 13:32 ;
+1 ;;5.2;LAB SERVICE;**1,50,201**;Sep 27, 1994
+2 ; X is set by the ^LR(LRDFN,0) global node
+3 SET DFN=$PIECE(X,U,3)
SET (LRDPF,P("F"))=$PIECE(X,U,2)
DO DEM^LRX
SET DOB=$$FMTE^XLFDT(DOB)
+4 SET LRP=""
if LREND
QUIT
SET LRP=PNM
QUIT