以下のコードのようにハードコーディングされた呼び出しを使用する代わりに、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 s str=$O(^XPTNAME(str)) q:str="" w !,"A = ",$L(str,"A")
q