Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: LRUP

LRUP.m

Go to the documentation of this file.

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  Oct 16, 2024@18:22:33                                                                                                                                                                                                         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