/*
Inputs

txt_ststus(txt)
cdt_contactDetails (cdt)

*/
if(
  rule!APN_isEmpty(ri!cdt_contactDetails),
  {},
  apply(
    type!TEST_CONTACT(	/* the respected CDT */
      CNTCT_ID:_,
      FRST_NME:_,
      LST_NME:_,
      EMAIL_ADR:_,
      PHN_NBR_1:_,
      PHN_NBR_2:_,
      STUS_TXT:_
    ),
    merge(
      ri!cdt_contactDetails.CNTCT_ID,
      ri!cdt_contactDetails.FRST_NME,
      ri!cdt_contactDetails.LST_NME,
      ri!cdt_contactDetails.EMAIL_ADR,
      ri!cdt_contactDetails.PHN_NBR_1,
      ri!cdt_contactDetails.PHN_NBR_2,
      repeat(count(ri!cdt_contactDetails),ri!txt_ststus)
    )
  )
)