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
BLRLTLX ; IHS/DIR/FJE - SETS UP CROSS REFERENCE ; [ 07/30/2002 8:35 AM ]
+1 ;;5.2;LR;**1013**;JULY 30, 2002
+2 ;
XREF ; Entry point
+1 SET BLRSBSTR=""
+2 FOR BLRN=1:1:$LENGTH(BLRSUBS,"~")
SET BLRSUB=$PIECE(BLRSUBS,"~",BLRN)
Begin DoDot:1
+3 IF BLRN>1
SET BLRNODE=+BLRSUB
SET BLRPCE=$PIECE(BLRSUB,",",2)
SET BLRSB(BLRN)=$SELECT(BLRPCE'="":$PIECE($GET(^BLRTXLOG(DA,BLRNODE)),U,BLRPCE),1:X)
SET BLRSBSTR=BLRSBSTR_",BLRSB("_BLRN_")"
QUIT
+4 SET BLRSB(1)=$PIECE(BLRSUBS,"~")
SET BLRSBSTR="BLRSB(1)"
End DoDot:1
IF BLRSB(BLRN)=""
QUIT
+5 IF BLRSB(BLRN)'=""
SET BLRG="^BLRTXLOG("_BLRSBSTR_",DA)"
Begin DoDot:1
+6 IF $GET(BLRSET)
SET @BLRG=""
QUIT
+7 KILL @BLRG
End DoDot:1
+8 KILL BLRG,BLRN,BLRNODE,BLRPCE,BLRSB,BLRSBSTR,BLRSET,BLRSUB,BLRSUBS
+9 QUIT