Script to Update Preparer/ Requester in Requisitions using API

Get data to be modified from customer and load it into a staging table. Use this table in the below script to update Preparer/ Requester for PO Requisitions.

DECLARE
l_msg_data          VARCHAR2(2000);
     l_msg_count         NUMBER;
     l_return_status     VARCHAR2(1);
     l_update_person     VARCHAR2(200);  
     l_old_personid      NUMBER;  
     l_new_personid      NUMBER;  
     l_document_type     VARCHAR2(200);  
     l_document_no_from  VARCHAR2(200);  
     l_document_no_to    VARCHAR2(200);    
     l_date_from         VARCHAR2(200);        
     l_date_to           VARCHAR2(200);
     l_commit_interval   NUMBER;
     x_date_from         DATE;
     x_date_to           DATE;
   
cursor c1 is
(
select * from  XX_req_prep_chg /*use the table with the loaded data*/

);

BEGIN
 
fnd_global.apps_initialize (/*Pass the values*/);
mo_global.set_policy_context ('S', /*Pass the value*/);
 
for r in c1
loop

   DBMS_OUTPUT.put_line ('Calling API');
 
   l_update_person      := 'ALL';  
    l_old_personid       := /*Assign the value*/;  
    l_new_personid       := /*Assign the value*/;  
    l_document_type      := NULL;  
    l_document_no_from   := r.requisition;
    l_document_no_to     := r.requisition;
    l_commit_interval    := 100;
   
   
     
             
        PO_Mass_Update_Req_GRP.Update_Persons(p_update_person    => l_update_person,
                              p_old_personid     => l_old_personid,
                                      p_new_personid     => l_new_personid,
                          p_document_type    => l_document_type,
                                      p_document_no_from => l_document_no_from,
                              p_document_no_to   => l_document_no_to,
                                      p_date_from        => x_date_from,
                              p_date_to          => x_date_to,
                                      p_commit_interval  => l_commit_interval,
                                      p_msg_data         => l_msg_data,
                                  p_msg_count        => l_msg_count,
                          p_return_status    => l_return_status);


   DBMS_OUTPUT.put_line ('API Return status: ' || l_return_status);
 
   DBMS_OUTPUT.put_line ('API p_msg_count: ' || l_msg_count);
 
   DBMS_OUTPUT.put_line ('Requisition ' || r.requisition);

commit;
 
end loop;


exception
when others then
DBMS_OUTPUT.put_line ('Inside Exception');
 
END;

Extract for Payments - Check and EFT

 SELECT     papf.employee_number  employee_number
          , aps.vendor_name        payee_name
          , ieba.bank_account_num  bank_account_number
          , hp_bank.party_name     bank_name
          , hp_bank.organization_name_phonetic     bank_number
          , hps_branch.party_name  branch_name        
          , ipa.org_id             org_id
          , ipa.payment_date       payment_date
          , ieba.bank_account_type bank_account_type
          , ieba.bank_id
          , cba.bank_account_type  int_bank_account_type
          , cba.bank_account_num   int_bank_account_num
          , round(sum(ifdpv.payment_amount  *
                decode(ipa.payment_currency_code,
                     asp.base_currency_code,
                     1,
                     decode(aivsc.exchange_rate_type,
                            'User', --l_exchange_rate_type
                            ap_pmt_callout_pkg.get_user_rate(asp.base_currency_code,
                                                             ipa.payment_currency_code,
                                                             ifdpv.calling_app_doc_unique_ref1),
                            ap_utilities_pkg.get_exchange_rate(ipa.payment_currency_code,
                                                               asp.base_currency_code,
                                                               aivsc.exchange_rate_type,
                                                               aivsc.check_date,
                                                               'CONFIRM')))),0) payment_amount
          , MIN(ifdpv.calling_app_doc_ref_number)  reference
          , MIN(ifdpv.document_description)        document_description
       FROM iby_pay_instructions_all      ipia
          , iby_payments_all              ipa
          , iby_external_payees_all       iepa
          , ap_supplier_sites_all         assa
          , ap_suppliers                  aps
          , iby_ext_bank_accounts         ieba
          , hz_parties                    hp_bank
          , hz_parties                    hps_branch
          , iby_fd_docs_payable_v         ifdpv
          , ap_inv_selection_criteria_all aivsc
          , ap_system_parameters_all      asp
          , ce_bank_accounts              cba
 , per_all_people_f              papf
      WHERE ipia.payment_instruction_id       = p_payment_instruction_id
        AND ipia.payment_instruction_id       = ipa.payment_instruction_id
        AND ipa.ext_payee_id                  = iepa.ext_payee_id
        AND iepa.supplier_site_id             = assa.vendor_site_id
        AND assa.vendor_id                    = aps.vendor_id
        AND ipa.external_bank_account_id      = ieba.ext_bank_account_id (+)
        AND ieba.bank_id                      = hp_bank.party_id (+)
        AND ieba.branch_id                    = hps_branch.party_id (+)
        AND ipa.payment_id                    = ifdpv.payment_id
        AND ifdpv.calling_app_doc_unique_ref1 = aivsc.checkrun_id
        AND ipa.org_id                        = asp.org_id
        AND ipa.internal_bank_account_id      = cba.bank_account_id
AND aps.employee_id                   = papf.person_id (+)
      GROUP BY papf.employee_number
          , aps.vendor_name
          , ieba.bank_account_num
          , hp_bank.party_name
          , hp_bank.organization_name_phonetic
          , hps_branch.party_name        
          , ipa.org_id
          , ipa.payment_date
          , ieba.bank_account_type
          , ieba.bank_id
          , cba.bank_account_type
          , cba.bank_account_num;