我正在努力在M中创建一个读取某种格式名称输入的程序。一旦用户放置一个空值，它将打印出所有的值。我陷入困境的是读入全局变量。我期待着我可以收到的任何投入。 n prompt,val,done
s prompt="Enter a name (LAST,FIRST MI): "
s val="" f in=1:1 s val=$O(^ZNAME(val)) q:val="
我想弄清楚下面遍历全局的最佳方法是我写的。 s X="^ZNAME"
r !,"Please insert a name or a portion of a name: ",str
d {
s X=$Q(@X) Q:X=""
i X[str!(@X[str)
{
w !,X
}
} While X'=""
q
如果名
而不是象我在下面的代码中那样使用硬编码调用，是否可以在For循环中使用WRITE命令来打印每个字符的使用次数？下面是我写的，它会给我“A = n”，但是如果没有硬编码，我想是“A = n”，“B = n”等等。 CHARCOUNT
n str
f r !,"Enter patient's name: ",str q:str="" d
. s ^XPTNAME(str)=""
w #
f