BLRLTLX.m

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