source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XQSUITE1.m@ 1211

Last change on this file since 1211 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 549 bytes
Line 
1XQSUITE1 ;Subroutines for XQSUITE: SuiteMan ;11/29/94 11:47
2 ;;8.0;KERNEL;;Jul 10, 1995
3 ;;KV8
4 ;
5SPLIT ;Takes X, Returns Y1 and Y2
6 N XQIN,XQMID,XQDONE,XQSP
7 S XQIN=X,XQMID=($L(XQIN)\2)+1,XQDONE=0,XQSP=" "
8 I $E(XQIN,XQMID)=XQSP S Y1=$E(XQIN,1,XQMID-1),Y2=$E(XQIN,XQMID+1,$L(XQIN))
9 F XQI=1:1:XQMID-1 Q:XQDONE D
10 .I $E(XQIN,XQMID-XQI)=XQSP S Y1=$E(XQIN,1,(XQMID-XQI)-1),Y2=$E(XQIN,$L(Y1)+2,$L(XQIN)),XQDONE=1
11 .Q:XQDONE
12 .I $E(XQIN,XQMID+XQI)=XQSP S Y1=$E(XQIN,1,(XQMID+XQI)-1),Y2=$E(XQIN,$L(Y1)+2,$L(XQIN)),XQDONE=1
13 .Q
14 ;W !,XQIN,!,Y1,!,Y2
15 Q
Note: See TracBrowser for help on using the repository browser.