Example for adding/extend custom tags to R12 Payment Funds Disbursement XML file

Here, i want to add alternate supplier name in the tag Extend/AltSupName. So modified the Get_Pmt_Ext_Agg function in IBY_FD_EXTRACT_EXT_PUB package as below.

FUNCTION Get_Pmt_Ext_Agg (p_payment_id IN NUMBER)
   RETURN XMLTYPE
IS
   v_supplier_name       ap_suppliers.vendor_name%TYPE;
   v_alt_supplier_name   XMLTYPE;
BEGIN
   BEGIN
      SELECT NVL (HP.ORGANIZATION_NAME_PHONETIC, HP.PARTY_NAME)
        INTO V_SUPPLIER_NAME
        FROM iby_payments_all IPA, HZ_PARTIES HP
       WHERE IPA.INV_PAYEE_PARTY_ID = HP.PARTY_ID
             AND ipa.payment_id = p_payment_id;
   EXCEPTION
      WHEN OTHERS
      THEN
         v_supplier_name := NULL;
   END;

   --build the XML string
   SELECT XMLCONCAT (
             XMLELEMENT ("Extend",
                         XMLELEMENT ("AltSupName", v_supplier_name)))
     INTO v_alt_supplier_name
     FROM DUAL;

   RETURN v_alt_supplier_name;
--RETURN NULL;
END Get_Pmt_Ext_Agg;

Give custom tag in document like as below:

Read: Adding new fields to the R12 Payment Funds Disbursement XML file