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

BLRLTLX.m

Go to the documentation of this file.
BLRLTLX ; IHS/DIR/FJE - SETS UP CROSS REFERENCE ; [ 07/30/2002  8:35 AM ]
 ;;5.2;LR;**1013**;JULY 30, 2002
 ;
XREF ; Entry point
 S BLRSBSTR=""
 F BLRN=1:1:$L(BLRSUBS,"~") S BLRSUB=$P(BLRSUBS,"~",BLRN) D  Q:BLRSB(BLRN)=""
 .I BLRN>1 S BLRNODE=+BLRSUB,BLRPCE=$P(BLRSUB,",",2),BLRSB(BLRN)=$S(BLRPCE'="":$P($G(^BLRTXLOG(DA,BLRNODE)),U,BLRPCE),1:X),BLRSBSTR=BLRSBSTR_",BLRSB("_BLRN_")" Q
 .S BLRSB(1)=$P(BLRSUBS,"~"),BLRSBSTR="BLRSB(1)"
 I BLRSB(BLRN)'="" S BLRG="^BLRTXLOG("_BLRSBSTR_",DA)" D
 .I $G(BLRSET) S @BLRG="" Q
 .K @BLRG
 K BLRG,BLRN,BLRNODE,BLRPCE,BLRSB,BLRSBSTR,BLRSET,BLRSUB,BLRSUBS
 Q