Update Credit status field (CDTSTA)

SOLVED

Is there a way to update the credit status field of a sales order on creation?  I have tried setting the value on in APRES_CRE "[M:SOH1]CDTSTA = 4" without any luck.  I have also tried using the entry point TRTVENCDT > CALCREDIT also without any luck.

TRTVENCDT   

$CALCREDIT
  If GREP = "C" and [M:SOH0]SOHTYP = 'YSOH'
    CDTSTA = 4
  Endif
Return