| Name | Value |
|---|---|
| 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") |