process/one-off/db-chng/set-order-entities.p

   1 /* Update orders to apply entitytype / entitycode changes */
   2 FOR EACH Project NO-LOCK, EACH Order OF Project:
   3   IF Project.ExpenditureType = "G" THEN DO:
   4     Order.EntityType = Project.EntityType.
   5     Order.EntityCode = Project.EntityCode.
   6   END.
   7   ELSE IF Order.EntityType = ? OR Order.EntityType = "" THEN DO:
   8     Order.EntityType = "J".
   9     Order.EntityCode = Order.ProjectCode.
  10   END.
  11 END.