M CODE: K:$P(X,"(")'?1(1"%",1U).15UN1"^"1(1"%",1U).15UN X I $D(X),X["(" K:$E(X,$L(X))'=")"!'$G(DIPA("PARAMETERS ALLOWED")) X I $D(X) S X="D "_X D ^DIM I $D(X) S X=$E(X,3,999)
M CODE: S:X]"" X=$P(X,U,2)_"."_$P(X,U)
M CODE: I $G(DIPA("PARAMETERS ALLOWED")) W !?5,"You may enter (ACTUAL PARAMETERS) after the reference."