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 ; 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