ZBCHKORDW
 Quit
 
CHECKORDW
 Do
 .New Check
 .Set Q="K"
 .Do ^cA604
 If '$D(Check) Write !!,"*** WMS ordw ***"
 Quit