Well the only reason I moved the memo to a PRG was I needed to get to the ADDPROPERTY so that I could read the values in the memo field:
WITH po_Object
AddProperty(po_Object, "SC_PTMETHOD", "D")
AddProperty(po_Object, "SL_DISCOUNT", .T.)
AddProperty(po_Object, "SN_DISCDAYS", 4)...