| NAME |
GT.M(UNIX) |
| BREAK LOGIC |
U @("$I:"_$P("NO",1,'X)_"CENABLE") |
| CHECK EXISTENCE OF UCI |
S Y=1 |
| ECHO OFF |
U $I:(NOECHO) |
| ECHO ON |
U $I:(ECHO) |
| ROUTINE EXISTENCE TEST |
I $L($T(^@X)) |
| WRITE FROM SDP |
O DIO F U DIO R % Q:%="#$#" U IO W:$A(%)'=12 ! W % |
| FIND SDP END |
W !,"#$#",! C IO |
| GLOBAL LENGTH (MAX) |
250 |
| TURN OFF READ TERMINATORS |
U $I:(TERMINATOR="") |
| HIGHEST CHARACTER VALUE |
N DIUTF8 S DIUTF8=$L($C(256))>0 S Y=$C($S(DIUTF8:983037,1:255)) |
| TURN ON READ TERMINATORS |
U $I:(TERMINATOR=$C(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,127)) |
| GET READ TERMINATOR |
S Y=$A($ZB) |
| SET $X & $Y FROM 'IOX' & 'IOY' |
S $X=IOX,$Y=IOY |
| ZSAVE CODE |
N %,%I,%F,%S S %I=$I,%F=$P($P($P($ZRO,")"),"(",2)," ")_"/"_X_".m" O %F:(NEWVERSION) U %F X "S %S=0 F S %S=$O(^UTILITY($J,0,%S)) Q:%S="""" Q:'$D(^(%S)) S %=^UTILITY($J,0,%S) I $E(%)'="";"" W %,!" C %F U %I ZLINK X |
| DELETE ROUTINE |
D DEL^DINVGUX(X) |
| LOAD ROUTINE INTO ARRAY |
N %,%N S %N=0 F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N^@X) Q:$L(%)=0 S @(DIF_XCNP_",0)")=% |
| SELECT ROUTINES |
K ^UTILITY($J) D ^%RSEL S X="" X "F S X=$O(%ZR(X)) Q:X="""" S ^UTILITY($J,X)=""""" K %ZR |
| ROUTINE SIZE (MAX) |
15000 |
| DISABLE TYPE AHEAD BUFFERING |
U $I:(NOTYPEAHEAD) |
| ENABLE TYPE AHEAD BUFFERING |
U $I:(TYPEAHEAD) |
| NEW COMMAND |
SUPPORTED |
| INDIVIDUAL SUBSCRIPT LENGTH |
250 |
| SAVE SYMBOL TABLE |
X ^DD("$O") ;D DOLRO^%ZOSV |
| RIGHT MARGIN |
U $I:(WIDTH=$S(X<256:X,1:0):FILTER="ESCAPE") |
