The format for the $GET function is:
$G[ET](glvn[,expr])
M defines $GET(x,y) as equivalent to:
$Select($Data(x)[0:y,1:x)
$GET(x,"")
setstatus; if '$data(^PNT(NAME,TSTR)) set STATUS="NEW TEST" else if ^PNT(NAME,TSTR)="" set STATUS="WAITING FOR RESULT" else set STATUS=^PNT(NAME,TSTR)
set STATUS=$get(^PNT(NAME,TSTR)) if STATUS="" set STATUS="WAITING FOR RESULT"
This is solved by using the two-argument form of $GET():
set STATUS=$get(^PNT(NAME,TSTR),"NEW TEST") if STATUS="" set STATUS="WAITING FOR RESULT"