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