XQSUITE1.m

XQSUITE1 ;Subroutines for XQSUITE: SuiteMan ;11/29/94  11:47 [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

 ;;8.0;KERNEL;;Jul 10, 1995

 ;;KV8

 ;

SPLIT ;Takes X, Returns Y1 and Y2

 N XQIN,XQMID,XQDONE,XQSP

 S XQIN=X,XQMID=($L(XQIN)\2)+1,XQDONE=0,XQSP=" "

 I $E(XQIN,XQMID)=XQSP S Y1=$E(XQIN,1,XQMID-1),Y2=$E(XQIN,XQMID+1,$L(XQIN))

 F XQI=1:1:XQMID-1 Q:XQDONE  D

 .I $E(XQIN,XQMID-XQI)=XQSP S Y1=$E(XQIN,1,(XQMID-XQI)-1),Y2=$E(XQIN,$L(Y1)+2,$L(XQIN)),XQDONE=1

 .Q:XQDONE 

 .I $E(XQIN,XQMID+XQI)=XQSP S Y1=$E(XQIN,1,(XQMID+XQI)-1),Y2=$E(XQIN,$L(Y1)+2,$L(XQIN)),XQDONE=1

 .Q

 ;W !,XQIN,!,Y1,!,Y2

 Q

XQSUITE1  ;Subroutines for XQSUITE: SuiteMan ;11/29/94  11:47 [ 04/02/2003   8:29 AM ]

 +1       ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

 +2       ;;8.0;KERNEL;;Jul 10, 1995

 +3       ;;KV8

 +4       ;

SPLIT     ;Takes X, Returns Y1 and Y2

 +1        NEW XQIN,XQMID,XQDONE,XQSP

 +2        SET XQIN=X

           SET XQMID=($LENGTH(XQIN)\2)+1

           SET XQDONE=0

           SET XQSP=" "

 +3        IF $EXTRACT(XQIN,XQMID)=XQSP

               SET Y1=$EXTRACT(XQIN,1,XQMID-1)

               SET Y2=$EXTRACT(XQIN,XQMID+1,$LENGTH(XQIN))

 +4        FOR XQI=1:1:XQMID-1

               IF XQDONE

                   QUIT 

               Begin DoDot:1

 +5                IF $EXTRACT(XQIN,XQMID-XQI)=XQSP

                       SET Y1=$EXTRACT(XQIN,1,(XQMID-XQI)-1)

                       SET Y2=$EXTRACT(XQIN,$LENGTH(Y1)+2,$LENGTH(XQIN))

                       SET XQDONE=1

 +6                IF XQDONE

                       QUIT 

 +7                IF $EXTRACT(XQIN,XQMID+XQI)=XQSP

                       SET Y1=$EXTRACT(XQIN,1,(XQMID+XQI)-1)

                       SET Y2=$EXTRACT(XQIN,$LENGTH(Y1)+2,$LENGTH(XQIN))

                       SET XQDONE=1

 +8                QUIT 

               End DoDot:1

 +9       ;W !,XQIN,!,Y1,!,Y2

 +10       QUIT