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