intersystems-cache - 検証パターン MUMPS

Question

特定の形式の名前の入力を読み取るプログラムを M で作成しようとしています。ユーザーが null 値を配置すると、すべての値が出力されます。私が立ち往生しているのは、グローバル変数への読み込みです。受信できる情報を楽しみにしています。

          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=""
          f  w !,prompt r val q:val=""  d   q:done 
          . i val'?1.A1",".1" "1.A.1(1" "1A) w !,"Invalid name" q
          . s val=$GET(^ZNAME)
          . s done=1
          i val="" q  
          w !,"You entered: ",val
         . s done=1
         q