source: IHS-VA_UTILITIES-XB/XBGXFR.m@ 641

XBGXFR  ; IHS/ADC/GTH - TRANSFERS GLOBAL TREES ; [ 02/07/97   3:02 PM ]
        ;;4.0;XB;;Jul 20, 2009;Build 2
        ;
        ; CREATED BY GIS 7/17/85 FOR MSM UNIX MUMPS (2.3)
        ; MODIFIED AND RENAMED BY EDE 12/21/86
        ;
START   ;
        D SEARCH
        KILL FROM,TO,TALK
        Q
        ;
SEARCH  ; 
        NEW (FROM,TO,TALK)
        S F="F",T="T",C=",",P=")",NF=$L(FROM,C)-1,NT=$L(TO,C)-1,L=1,F1=""
        S TF=FROM
        F I=1:1:30 S TF=TF_F_I_C
        S TT=TO
        F I=1:1:30 S TT=TT_F_I_C
        S Y=$E(FROM,1,$L(FROM)-1)_$S($E(FROM,$L(FROM))=",":")",1:"")
        I $D(@(Y))#2 S Z=TO_$P(FROM,"(",2),Z=$E(Z,1,$L(Z)-1)_")",@Z=@Y
EXTR    ;
        S X=F_L,Y=$P(TF,C,1,L+NF)_P,@X=$O(@Y)
        I @X]"" D:$D(@(Y))#2 SUB S L=L+1,@(F_L)="" G EXTR
        S L=L-1
        Q:L=0
        G EXTR
        ;
SUB     ;
        S Z=$P(TT,C,1,L+NT)_P,@Z=@Y
        W:$D(TALK) "."
        Q
        ;
EN(FROM,TO,TALK)        ;PEP - Transfer global trees.
        Q:$G(FROM)=""
        Q:$G(TO)=""
        S TALK=$G(TALK)
        G START
        ;