| Name | Value |
|---|---|
| NAME | MSM |
| BREAK LOGIC | B X |
| CHECK EXISTENCE OF UCI | S Y=$$UCICHECK^DINVMSM(X) |
| ECHO OFF | U $I:(::::1) |
| ECHO ON | U $I:(:::::1) |
| ROUTINE EXISTENCE TEST | I $D(^ (X)) |
| WRITE FROM SDP | O @("DIO:"_DLP) F %=0:0 U DIO R % Q:$ZA=X&($ZB>Y)!($ZA>X) U IO W:$A(%)'=12 ! W % |
| FIND SDP END | S X=$ZA,Y=$ZB |
| GLOBAL LENGTH (MAX) | 127 |
| TURN OFF READ TERMINATORS | U $I:(::::::::$C(13,27)) |
| TURN ON READ TERMINATORS | U $I:(::::::::$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=$ZB |
| SET $X & $Y FROM 'IOX' & 'IOY' | S $X=IOX,$Y=IOY |
| 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" K ^UTILITY("%RD",X) |
| LOAD ROUTINE INTO ARRAY | 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) G ^%RSEL |
| ROUTINE SIZE (MAX) | 5000 |
| DISABLE TYPE AHEAD BUFFERING | U $I:(::::100663296) |
| ENABLE TYPE AHEAD BUFFERING | U $I:(::::67108864:33554432) |
| NEW COMMAND | SUPPORTED |
| INDIVIDUAL SUBSCRIPT LENGTH | 63 |
| SAVE SYMBOL TABLE | X ^DD("$O") |
| RIGHT MARGIN | U:IOT["TRM" $I:X |