BSTSXREF.m

BSTSXREF ;GDHS/HS/ALA-Concept ID Cross-references ; 16 Dec 2015  1:35 PM

 ;;2.0;IHS STANDARD TERMINOLOGY;;Dec 01, 2016;Build 62

 ;

 Q

 ;

 NEW CDN,CDS,CID,X,DA

 ;

VSX ;EP - Variable set xref

 I $G(DA(2)) D

 . D VR

 S ^BSTS(9002318.4,"J",CDS,CID,X,DA(2),DA(1),DA)=""

 Q

 ;

VKX ;EP - Variable kill xref

 I $G(DA(2)) D

 . D VR

 K ^BSTS(9002318.4,"J",CDS,CID,X,DA(2),DA(1),DA)

 Q

 ;

VR ;EP - Set up variables

 S CDN=$P($G(^BSTS(9002318.4,DA(2),0)),U,7),CDS=$P($G(^BSTS(9002318.1,CDN,0)),"^",1)

 S CID=$P($G(^BSTS(9002318.4,DA(2),0)),U,2)

 Q

BSTSXREF  ;GDHS/HS/ALA-Concept ID Cross-references ; 16 Dec 2015  1:35 PM

 +1       ;;2.0;IHS STANDARD TERMINOLOGY;;Dec 01, 2016;Build 62

 +2       ;

 +3        QUIT 

 +4       ;

 +5        NEW CDN,CDS,CID,X,DA

 +6       ;

VSX       ;EP - Variable set xref

 +1        IF $GET(DA(2))

               Begin DoDot:1

 +2                DO VR

               End DoDot:1

 +3        SET ^BSTS(9002318.4,"J",CDS,CID,X,DA(2),DA(1),DA)=""

 +4        QUIT 

 +5       ;

VKX       ;EP - Variable kill xref

 +1        IF $GET(DA(2))

               Begin DoDot:1

 +2                DO VR

               End DoDot:1

 +3        KILL ^BSTS(9002318.4,"J",CDS,CID,X,DA(2),DA(1),DA)

 +4        QUIT 

 +5       ;

VR        ;EP - Set up variables

 +1        SET CDN=$PIECE($GET(^BSTS(9002318.4,DA(2),0)),U,7)

           SET CDS=$PIECE($GET(^BSTS(9002318.1,CDN,0)),"^",1)

 +2        SET CID=$PIECE($GET(^BSTS(9002318.4,DA(2),0)),U,2)

 +3        QUIT