/*
"Unsent_" &_Cust.MsgType &"_" &_Xact
&"_" &_Shooter.Subject &"_" &_Shooter.Twi &"_"
_Customer.Addtl 50 left asc2hex &
&"_" _Customer.Image asc2hex &
*/
dup "_" 1 8 1 parse
noext !Fup.PhoNum
!Fup.PhoSend
_Fup.PhoNum any)?
{
}
{
 false !Fup.PhoSend
} ifelse
noext hex2asc !Customer.Image
hex2asc !Customer.Addtl
!Shooter.Twi
!Shooter.Subject
!Xact
dup !Cust.MsgType
"Mtext" *aamgnums ^"Msg." _
_Customer.Addtl any?
{
 catcr &
} if
"%2" empty chained *custsrvr ^ replall
!Customer.Message
_Customer.Image
1
'<Type value="MMout"/>'
_Customer.Message
"cvp" log)(

%
% stack: img-ref msg-xml-ins msg-body
%
% non-test messages are for outside customer reference
%
_Shooter.Subject
%
% stack: img-ref num-mms msg-xml-ins msg-body phone-number
%
"outph" log)(

*twiloutm