| Name | Value |
|---|---|
| NAME | DTM-PC |
| BREAK LOGIC | B X |
| ROUTINE EXISTENCE TEST | I $ZRSTATUS(X)'="" |
| WRITE FROM SDP | O @("DIO:"_"(""R"":"_$P(DLP,":",2,9)) F %=0:0 U DIO R % Q:$ZIOS=3 U IO W:$A(%)'=12 ! W % |
| FIND SDP END | Q |
| GLOBAL LENGTH (MAX) | 127 |
| SET $X & $Y FROM 'IOX' & 'IOY' | S $X=IOX,$Y=IOY |
| ZSAVE CODE | S %X="" X "S %Y=0 F S %Y=$O(^UTILITY($J,0,%Y)) Q:%Y="""" Q:'$D(^(%Y)) S %X=%X_$C(10)_^(%Y)" ZS @X:$E(%X,2,999999) |
| ROUTINE SIZE (MAX) | 5000 |
| NEW COMMAND | SUPPORTED |
| INDIVIDUAL SUBSCRIPT LENGTH | 115 |
| SAVE SYMBOL TABLE | D:$P($ZVER,"/",2)<4 ^%VARLOG X:$P($ZVER,"/",2)'<4 ^DD("$O") |