| NAME |
CACHE/OpenM |
| BREAK LOGIC |
B X |
| CHECK EXISTENCE OF UCI |
X "N % S %=$P(X,"","",1),Y=0 I ##CLASS(%SYS.Namespace).Exists(%) S Y=%" |
| ECHO OFF |
U $I:("":"+S") |
| ECHO ON |
U $I:("":"-S") |
| ROUTINE EXISTENCE TEST |
I $T(^@X)]"" |
| WRITE FROM SDP |
C DIO O DIO F %=0:0 U DIO R % Q:%="#$#" U IO W % |
| FIND SDP END |
W !,"#$#",! C IO |
| GLOBAL LENGTH (MAX) |
250 |
| TURN OFF READ TERMINATORS |
U $I:("":"-I-T":$C(13,27)) |
| HIGHEST CHARACTER VALUE |
N DIUTF8 S DIUTF8=$L($C(256))>0 S Y=$C($S(DIUTF8:65533,1:255)) |
| TURN ON READ TERMINATORS |
U $I:("":"+I+T") |
| GET READ TERMINATOR |
S Y=$A($ZB),Y=$S(Y<32:Y,Y=127:Y,1:0) |
| SET $X & $Y FROM 'IOX' & 'IOY' |
S $Y=IOY,$X=IOX |
| ZSAVE CODE |
ZR X "S %Y=0 F S %Y=$O(^UTILITY($J,0,%Y)) Q:%Y="""" Q:'$D(^(%Y)) ZI ^(%Y)" ZS @X |
| DELETE ROUTINE |
X "ZR ZS @X" |
| LOAD ROUTINE INTO ARRAY |
N %,%N S %N=0 X "ZL @X F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N) Q:$L(%)=0 S @(DIF_XCNP_"",0)"")=%" |
| SELECT ROUTINES |
K ^UTILITY($J) D KERNEL^%RSET K %ST |
| ROUTINE SIZE (MAX) |
20000 |
| DISABLE TYPE AHEAD BUFFERING |
U $I:("":"+F":$C(13,27)) |
| ENABLE TYPE AHEAD BUFFERING |
U $I:("":"-F":$C(13,27)) |
| NEW COMMAND |
SUPPORTED |
| INDIVIDUAL SUBSCRIPT LENGTH |
250 |
| SAVE SYMBOL TABLE |
X ^DD("$O") |
| RIGHT MARGIN |
I $G(IOT)["TRM" U $I:X |
