Customer RelationShips using API in Oracle

DECLARE
l_cust_acct_relate_rec   hz_cust_account_v2pub.cust_acct_relate_rec_type;
l_msg_count              NUMBER;
l_msg_data               VARCHAR2 (2000);
l_return_status          VARCHAR2 (2000);
BEGIN
l_cust_acct_relate_rec.cust_account_id :=l_main_rec (l_main).cust_account_id;
l_cust_acct_relate_rec.related_cust_account_id :=l_rel.cust_account_id;
l_cust_acct_relate_rec.relationship_type := 'ALL';
l_cust_acct_relate_rec.created_by_module := 'DELL_AP_DATA_MIGRATION';
l_cust_acct_relate_rec.CUSTOMER_RECIPROCAL_FLAG := 'Y';                                                    
              hz_cust_account_v2pub.create_cust_acct_relate
                                                     ('T',
                                                      l_cust_acct_relate_rec,
                                                      l_return_status,
                                                      l_msg_count,
                                                      l_msg_data
                                                      );
END;