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.
  1. LRUP ;AVAMC/REG/CYM - GET PARENT FILE DATA ;3/12/98 13:32 ;
  1. ;;5.2;LAB SERVICE;**1,50,201**;Sep 27, 1994
  1. ; X is set by the ^LR(LRDFN,0) global node
  1. S DFN=$P(X,U,3),(LRDPF,P("F"))=$P(X,U,2) D DEM^LRX S DOB=$$FMTE^XLFDT(DOB)
  1. S LRP="" Q:LREND S LRP=PNM Q