KISHAN MUDIRAJ: 2014

CREATE OR REPLACE PACKAGE BODY ap_khr_inv_pkg

PROCEDURE ap_khr_inv_main (v_errbuff OUT VARCHAR2, v_retcode OUT NUMBER)

CURSOR c1

SELECT kihs.*, kihs.ROWID rid

FROM khr_inv_hdr_stg kihs

WHERE process_flag = 'N';

CURSOR c2 (p_inv_num VARCHAR2)

SELECT kils.*, kils.ROWID rid

FROM khr_inv_line_stg kils

WHERE process_flag = 'N' AND invoice_num = p_inv_num;

CURSOR c3

SELECT kihs.*, kihs.ROWID rid

FROM khr_inv_hdr_stg kihs

WHERE process_flag = 'V';

CURSOR c4 (p_inv_num VARCHAR2)

SELECT kils.*, kils.ROWID rid

FROM khr_inv_line_stg kils

WHERE process_flag = 'V' AND invoice_num = p_inv_num;

v_process_flag VARCHAR2 (10) := 'N';

v_error_message VARCHAR2 (1000);

v_org_id NUMBER;

v_vendor_id NUMBER;

v_vendor_site_id NUMBER;

v_term_id NUMBER;

v_inv_curr_code VARCHAR2 (20);

v_pay_curr_code VARCHAR2 (30);

v_lookup_code VARCHAR2 (30);

u_lookup_code VARCHAR2 (50);

t_lookup_code VARCHAR2 (50);

CONSTANT VARCHAR2 (100);

v_application_id NUMBER;

u_org_id NUMBER;

v_code_comb_id NUMBER;

u_line_type VARCHAR2 (50);

v_count_hdr_valid_record NUMBER;

v_count_line_valid_record NUMBER;

v_rec_pros_hdr_count NUMBER;

v_rec_prss_line_count NUMBER;

v_count_hdr_errors NUMBER;

v_count_hdr_insert NUMBER;

v_count_line_insert NUMBER;

v_count_line_errors NUMBER;

v_reject_rcd NUMBER;

v_line_rej_rd NUMBER;

v_requist_id NUMBER;

v_conc_prgm_id NUMBER;

v_conc_req_id NUMBER;

v_user_id NUMBER;

v_resp_id NUMBER;

v_resp_appl_id NUMBER;

v_boolean BOOLEAN;

v_phase VARCHAR2 (40);

v_status VARCHAR2 (40);

v_dev_phase VARCHAR2 (40);

v_dev_status VARCHAR2 (40);

v_message VARCHAR2 (40);

v_inv_count NUMBER;

BEGIN

v_conc_prgm_id := fnd_global.conc_program_id;

v_conc_req_id := fnd_global.conc_request_id;

v_user_id := fnd_global.user_id;

v_resp_id := fnd_global.resp_id;

v_resp_appl_id := fnd_global.resp_appl_id;

fnd_global.apps_initialize (v_user_id, v_resp_id, v_resp_appl_id);

mo_global.init ('SQLAP');

fnd_file.put_line (fnd_file.LOG, 'ENTER INTO BEGIN BLOCK');

FOR i IN c1

LOOP

v_process_flag := 'N';

v_rec_pros_hdr_count := c1%ROWCOUNT;

fnd_file.put_line (fnd_file.LOG, 'ENTER INTO BEGIN LOOP');

SELECT COUNT (*)

INTO v_inv_count

FROM ap_invoices_all aia,

ap_suppliers ass,

ap_supplier_sites_all assa

WHERE aia.invoice_num = i.invoice_num

AND ass.vendor_id = assa.vendor_id

AND assa.vendor_site_id = aia.vendor_site_id

AND ass.vendor_id = aia.vendor_id;

IF v_inv_count = 0

THEN

-----VALIDATIONS START-----

-----OPERATING UNTIT VALIDATION------

BEGIN

SELECT organization_id

INTO v_org_id

FROM hr_operating_units

WHERE NAME = i.operating_unit;

fnd_file.put_line (fnd_file.LOG, 'ORG_ID:' || v_org_id);

EXCEPTION

WHEN NO_DATA_FOUND

THEN

fnd_file.put_line (fnd_file.LOG, 'ORG_ID not found');

v_process_flag := 'E';

v_error_message := 'ORGID not found';

WHEN TOO_MANY_ROWS

THEN

fnd_file.put_line (fnd_file.LOG,

'too may rows in OPERATING UNIT..'

);

v_process_flag := 'E';

v_error_message := 'to many values to ORG ID';

WHEN OTHERS

THEN

fnd_file.put_line

(fnd_file.LOG,

'other exceptions in OPERATING UNIT validation'

);

v_process_flag := 'E';

v_error_message :=

'in other exception of OPERATING UNIT valiation';

END;

-----------------END OPERATING UNIT VALIDATIONS-------------

-----VENDOR NAME VALIDATION------

BEGIN

SELECT vendor_id

INTO v_vendor_id

FROM ap_suppliers

WHERE vendor_name = i.vendor_name;

fnd_file.put_line (fnd_file.LOG, 'VENDOR ID:' || v_vendor_id);

EXCEPTION

WHEN NO_DATA_FOUND

THEN

fnd_file.put_line (fnd_file.LOG, 'VENDOR NAME not found');

v_process_flag := 'E';

v_error_message := 'VENDOR NAME not found';

WHEN TOO_MANY_ROWS

THEN

fnd_file.put_line (fnd_file.LOG,

'too may rows in VENDOR NAME..'

);

v_process_flag := 'E';

v_error_message := 'to many values to VENDOR NAME';

WHEN OTHERS

THEN

fnd_file.put_line

(fnd_file.LOG,

'other exceptions in VENDOR NAME validation'

);

v_process_flag := 'E';

v_error_message :=

'in other exception of VENDOR NAME valiation';

END;

-----------------END VENDOR NAME VALIDATIONS-------------

-----VENDOR SITE VALIDATION------

BEGIN

SELECT vendor_site_id

INTO v_vendor_site_id

FROM ap_supplier_sites_all

WHERE vendor_site_code = i.vendor_site_code

AND vendor_id = v_vendor_id

AND org_id = v_org_id;

fnd_file.put_line (fnd_file.LOG,

'VENDOR SITE ID :' || v_vendor_site_id

);

EXCEPTION

WHEN NO_DATA_FOUND

THEN

fnd_file.put_line (fnd_file.LOG, 'VENDOR SITE not found');

v_process_flag := 'E';

v_error_message := 'VENDOR SITE not found';

WHEN TOO_MANY_ROWS

THEN

fnd_file.put_line (fnd_file.LOG,

'too may rows in VENDOR SITE..'

);

v_process_flag := 'E';

v_error_message := 'to many values to VENDOR SITE';

WHEN OTHERS

THEN

fnd_file.put_line

(fnd_file.LOG,

'other exceptions in VENDOR SITE validation'

);

v_process_flag := 'E';

v_error_message :=

'in other exception of VENDOR SITE valiation';

END;

---------END VENDOR SITE VALIDATIONS------

-----TERM NAME VALIDATION------

BEGIN

SELECT term_id

INTO v_term_id

FROM ap_terms_tl

WHERE NAME = i.terms_name;

fnd_file.put_line (fnd_file.LOG, 'TERM ID :' || v_term_id);

EXCEPTION

WHEN NO_DATA_FOUND

THEN

fnd_file.put_line (fnd_file.LOG, 'TERM NAME not foUnd');

v_process_flag := 'E';

v_error_message := 'TERM NAME not found';

WHEN TOO_MANY_ROWS

THEN

fnd_file.put_line (fnd_file.LOG,

'too may rows in TERM NAME..'

);

v_process_flag := 'E';

v_error_message := 'to many values to TERM NAME';

WHEN OTHERS

THEN

fnd_file.put_line

(fnd_file.LOG,

'other exceptions in TERM NAME validation'

);

v_process_flag := 'E';

v_error_message :=

'in other exception of TERM NAME valiation';

END;

---------END TERM NAME VALIDATIONS------

-----INVOICE CURRENCY CODE VALIDATION------

BEGIN

SELECT currency_code

INTO v_inv_curr_code

FROM fnd_currencies

WHERE currency_code = i.invoice_currency_code;

fnd_file.put_line (fnd_file.LOG,

'CURRENCY CODE :' || v_inv_curr_code

);

EXCEPTION

WHEN NO_DATA_FOUND

THEN

fnd_file.put_line (fnd_file.LOG,

'CURRENCY CODE not foUnd');

v_process_flag := 'E';

v_error_message := 'CURRENCY CODE not found';

WHEN TOO_MANY_ROWS

THEN

fnd_file.put_line (fnd_file.LOG,

'too may rows in CURRENCY CODE..'

);

v_process_flag := 'E';

v_error_message := 'to many values to CURRENCY CODE';

WHEN OTHERS

THEN

fnd_file.put_line

(fnd_file.LOG,

'other exceptions in CURRENCY CODE validation'

);

v_process_flag := 'E';

v_error_message :=

'in other exception of CURRENCY CODE valiation';

END;

---------END INVOICE CURRENCY CODE VALIDATIONS-----

-----PAYMENT CURRENCY CODE VALIDATION------

BEGIN

SELECT currency_code

INTO v_pay_curr_code

FROM fnd_currencies

WHERE currency_code = i.payment_currency_code;

fnd_file.put_line (fnd_file.LOG,

'PAY CURRENCY CODE :' || v_pay_curr_code

);

EXCEPTION

WHEN NO_DATA_FOUND

THEN

fnd_file.put_line (fnd_file.LOG,

'CURRENCY CODE not foUnd');

v_process_flag := 'E';

v_error_message := 'CURRENCY CODE not found';

WHEN TOO_MANY_ROWS

THEN

fnd_file.put_line (fnd_file.LOG,

'too may rows in PAYCURRENCY CODE..'

);

v_process_flag := 'E';

v_error_message := 'to many values to PAY CURRENCY CODE';

WHEN OTHERS

THEN

fnd_file.put_line

(fnd_file.LOG,

'other exceptions in PAY CURRENCY CODE validation'

);

v_process_flag := 'E';

v_error_message :=

'in other exception of PAY CURRENCY CODE valiation';

END;

---------END PAYMENT CURRENCY CODE VALIDATIONS----

-----INVOICE TYPE VALIDATION------

BEGIN

SELECT application_id

INTO v_application_id

FROM fnd_application

WHERE application_short_name = 'SQLAP';

SELECT lookup_code

INTO v_lookup_code

FROM fnd_lookup_values

WHERE lookup_type = 'INVOICE TYPE'

AND view_application_id = v_application_id

AND lookup_code = i.invoice_type_lookup_code;

fnd_file.put_line (fnd_file.LOG,

'LOOKUP CODE :' || v_lookup_code

);

fnd_file.put_line (fnd_file.LOG,

'APPLICATION ID :' || v_application_id

);

EXCEPTION

WHEN NO_DATA_FOUND

THEN

fnd_file.put_line (fnd_file.LOG, 'LOOKUP CODE not foUnd');

v_process_flag := 'E';

v_error_message := 'LOOKUP CODE not found';

WHEN TOO_MANY_ROWS

THEN

fnd_file.put_line (fnd_file.LOG,

'too may rows in LOOKUP CODE..'

);

v_process_flag := 'E';

v_error_message := 'to many values to LOOKUP CODE';

WHEN OTHERS

THEN

fnd_file.put_line

(fnd_file.LOG,

'other exceptions in LOOKUP CODE validation'

);

v_process_flag := 'E';

v_error_message :=

'in other exception of LOOKUP CODE valiation';

END;

---------END INVOICE TYPE VALIDATIONS-----

-----PAYMENT METHOD VALIDATION------

BEGIN

SELECT lookup_code

INTO u_lookup_code

FROM fnd_lookup_values

WHERE lookup_type = 'PAYMENT METHOD'

AND view_application_id = v_application_id

AND lookup_code = i.payment_method_lookup_code;

fnd_file.put_line (fnd_file.LOG,

'PAYMENT METHOD :' || u_lookup_code

);

EXCEPTION

WHEN NO_DATA_FOUND

THEN

fnd_file.put_line (fnd_file.LOG,

'PAY LOOKUP CODE not foUnd'

);

v_process_flag := 'E';

v_error_message := 'PAY LOOKUP CODE not found';

WHEN TOO_MANY_ROWS

THEN

fnd_file.put_line (fnd_file.LOG,

'too may rows in PAY LOOKUP CODE..'

);

v_process_flag := 'E';

v_error_message := 'to many values to PAY LOOKUP CODE';

WHEN OTHERS

THEN

fnd_file.put_line

(fnd_file.LOG,

'other exceptions in PAY LOOKUP CODE validation'

);

v_process_flag := 'E';

v_error_message :=

'in other exception of PAY LOOKUP CODE valiation';

END;

---------END PAYMENT TYPE VALIDATIONS-----

----SOURCE VALIDATION------

BEGIN

SELECT lookup_code

INTO t_lookup_code

FROM fnd_lookup_values

WHERE lookup_type = 'SOURCE'

AND lookup_code = i.SOURCE

AND view_application_id = v_application_id;

fnd_file.put_line (fnd_file.LOG, 'SOURCE :' || t_lookup_code);

EXCEPTION

WHEN NO_DATA_FOUND

THEN

fnd_file.put_line (fnd_file.LOG, 'SOURCE not foUnd');

v_process_flag := 'E';

v_error_message := 'SOURCE not found';

WHEN TOO_MANY_ROWS

THEN

fnd_file.put_line (fnd_file.LOG,

'too may rows in SOURCE..');

v_process_flag := 'E';

v_error_message := 'to many values to SOURCE';

WHEN OTHERS

THEN

fnd_file.put_line (fnd_file.LOG,

'other exceptions in SOURCE validation'

);

v_process_flag := 'E';

v_error_message := 'in other exception ofSOURCE valiation';

END;

---------END SOURCE VALIDATIONS-----

IF v_process_flag != 'E'

THEN

fnd_file.put_line

(fnd_file.LOG,

'Inserting Values into Headers Interface Table'

);

UPDATE khr_inv_hdr_stg

SET process_flag = 'V',

error_message =

'VALID RECORDS INTO HEADER INTERFACE TABLE',

vendor_id = v_vendor_id,

vendor_site_id = v_vendor_site_id

WHERE ROWID = i.rid;

fnd_file.put_line (fnd_file.LOG,

'UPDATE STGING TABLE WITH SUCESS RECORDS'

);

fnd_file.put_line (fnd_file.LOG,

'STAGING TABLE IS UPDATED WITH VALID RECORD'

);

fnd_file.put_line (fnd_file.LOG, 'enter into c2 curSor');

FOR j IN c2 (i.invoice_num)

LOOP

v_rec_prss_line_count := c2%ROWCOUNT;

fnd_file.put_line (fnd_file.LOG, 'ENTER INTO LINE LOOP...');

----LINES VALIDATIONS----

-----OPERATING UNTIT VALIDATION------

BEGIN

SELECT organization_id

INTO u_org_id

FROM hr_operating_units

WHERE NAME = j.operating_unit;

fnd_file.put_line (fnd_file.LOG, 'ORG_ID:' || v_org_id);

EXCEPTION

WHEN NO_DATA_FOUND

THEN

fnd_file.put_line (fnd_file.LOG, 'ORG_ID not found');

v_process_flag := 'E';

v_error_message := 'ORGID not found';

WHEN TOO_MANY_ROWS

THEN

fnd_file.put_line (fnd_file.LOG,

'too may rows in OPERATING UNIT..'

);

v_process_flag := 'E';

v_error_message := 'to many values to ORG ID';

WHEN OTHERS

THEN

fnd_file.put_line

(fnd_file.LOG,

'other exceptions in OPERATING UNIT validation'

);

v_process_flag := 'E';

v_error_message :=

'in other exception of OPERATING UNIT valiation';

END;

-----------------END OPERATING UNIT VALIDATIONS-------------

------- Account Validation -------

BEGIN

SELECT code_combination_id

INTO v_code_comb_id

FROM gl_code_combinations_kfv gcc, gl_ledgers gl

WHERE gcc.concatenated_segments = j.ACCOUNT

AND gcc.chart_of_accounts_id = gl.chart_of_accounts_id

AND gl.ledger_id =

fnd_profile.VALUE ('GL_SET_OF_BKS_ID');

fnd_file.put_line (fnd_file.LOG,

'Code Combination ID is : '

|| v_code_comb_id

);

EXCEPTION

WHEN NO_DATA_FOUND

THEN

v_process_flag := 'E';

v_error_message :=

'No Data Found for Code Combination';

WHEN TOO_MANY_ROWS

THEN

v_process_flag := 'E';

v_error_message :=

'Too Many Rows for Code Combination';

WHEN OTHERS

THEN

v_process_flag := 'E';

v_error_message :=

'In Others of Code Combination Validation';

END;

--------END ACCOUNT VALIDATION---------

------- LINE TYPE Validation -------

BEGIN

SELECT lookup_code

INTO u_line_type

FROM fnd_lookup_values

WHERE lookup_code = j.line_type_lookup_code

AND lookup_type = 'INVOICE LINE TYPE';

fnd_file.put_line (fnd_file.LOG,

'LINE TYPE IS:' || u_line_type

);

EXCEPTION

WHEN NO_DATA_FOUND

THEN

v_process_flag := 'E';

v_error_message :=

v_error_message || 'Line Type not found';

WHEN TOO_MANY_ROWS

THEN

v_process_flag := 'E';

v_error_message :=

v_error_message || 'Too Many Values to Line Type';

WHEN OTHERS

THEN

v_process_flag := 'E';

v_error_message :=

v_error_message

|| 'In OTHERS of Line Type Validation';

END;

--------END LINE TYPE VALIDATION---------

IF v_process_flag != 'E'

THEN

UPDATE khr_inv_line_stg

SET process_flag = 'V',

error_message =

'VALID RECORD INSERT INTO LINE INTERFACE TABLE'

WHERE ROWID = j.rid;

fnd_file.put_line (fnd_file.LOG, 'VAILD RECORD ');

fnd_file.put_line (fnd_file.LOG,

'LINE STAGING TABLE IS UPDATED'

);

ELSE

UPDATE khr_inv_line_stg

SET process_flag = v_process_flag,

error_message = v_error_message

WHERE ROWID = i.rid;

fnd_file.put_line

(fnd_file.LOG,

'INSERTED INTO ERROR RECORD INTERFACE TABLE'

);

fnd_file.put_line (fnd_file.LOG,

'STAGING TABLE IS UPDATED WITH ERRORS'

);

END IF;

END LOOP; ----LINES END LOOP

ELSE

UPDATE khr_inv_hdr_stg

SET process_flag = 'E',

error_message = v_error_message,

vendor_id = v_vendor_id,

vendor_site_id = v_vendor_site_id

WHERE ROWID = i.rid;

fnd_file.put_line (fnd_file.LOG,

'UPDATE STGING TABLE WITH ERROR RECORDS'

);

fnd_file.put_line (fnd_file.LOG,

'STAGING TABLE IS UPDATED WITH ERRORS'

);

END IF;

ELSE

v_process_flag := 'E';

v_error_message := 'Invoice num already Exist';

fnd_file.put_line (fnd_file.LOG, 'Invoice already exist');

END IF;

END LOOP; ---HEADER LOOP

fnd_file.put_line (fnd_file.LOG, 'inserting into header interface');

FOR k IN c3

LOOP

INSERT INTO ap_invoices_interface

(invoice_num, invoice_id,

gl_date, last_update_date, last_updated_by,

invoice_currency_code, payment_currency_code,

payment_cross_rate, invoice_type_lookup_code,

vendor_id, vendor_site_id, org_id,

invoice_date, invoice_amount, terms_date,

terms_id, payment_method_lookup_code, SOURCE

)

VALUES (k.invoice_num, ap_invoices_interface_s.NEXTVAL,

k.gl_date, k.last_update_date, k.last_updated_by,

v_inv_curr_code, v_pay_curr_code,

k.payment_cross_rate, v_lookup_code,

v_vendor_id, v_vendor_site_id, v_org_id,

k.invoice_date, k.invoice_amount, k.terms_date,

v_term_id, k.payment_method_lookup_code, k.SOURCE

);

fnd_file.put_line (fnd_file.LOG, 'inserted into header interface');

UPDATE khr_inv_hdr_stg

SET process_flag = 'I',

error_message = 'INSERT INTO HEADER INTERFACE TABLE',

invoice_id = ap_invoices_interface_s.CURRVAL

WHERE ROWID = k.rid;

fnd_file.put_line (fnd_file.LOG,

'INSERT INTO SUCESS RECORD INTO INTERFACE TABLE'

);

fnd_file.put_line (fnd_file.LOG, 'inserting into lines interface');

FOR l IN c4 (k.invoice_num)

LOOP

INSERT INTO ap_invoice_lines_interface

(line_number, line_type_lookup_code,

accounting_date, invoice_id,

invoice_line_id,

dist_code_combination_id, org_id, amount

)

VALUES (l.line_number, l.line_type_lookup_code,

l.accounting_date, ap_invoices_interface_s.CURRVAL,

ap_invoice_lines_interface_s.NEXTVAL,

v_code_comb_id, u_org_id, l.amount

);

fnd_file.put_line (fnd_file.LOG, 'inserted into lines interface');

UPDATE khr_inv_line_stg

SET process_flag = 'I',

error_message = 'INSERT INTO LINES INTERFACE TABLE'

WHERE ROWID = l.rid;

fnd_file.put_line

(fnd_file.LOG,

'INSERT INTO SUCESS RECORD INTO LINES INTERFACE TABLE'

);

END LOOP; ---------------C4 LOOP

END LOOP; ----------------C3 LOOP

SELECT COUNT (*)

INTO v_reject_rcd

FROM khr_inv_hdr_stg

WHERE v_process_flag = 'E';

SELECT COUNT (*)

INTO v_line_rej_rd

FROM khr_inv_line_stg

WHERE v_process_flag = 'E';

-------------------SUMMARY INFORMATION-------------------

SELECT RPAD (LPAD ('SUMMARY INFORMATION', 50, '-'), 80, '-')

INTO CONSTANT

FROM DUAL;

fnd_file.put_line (fnd_file.output, CONSTANT);

fnd_file.put_line (fnd_file.output,

'Total no of hdr processed record is:'

|| v_rec_pros_hdr_count

);

fnd_file.put_line (fnd_file.output,

'total no of lines processed record is :'

|| v_rec_prss_line_count

);

fnd_file.put_line (fnd_file.output,

'Rejectd record hdr is ' || v_reject_rcd

);

fnd_file.put_line (fnd_file.output,

'Rejectd record line is ' || v_line_rej_rd

);

SELECT COUNT (*)

INTO v_count_hdr_valid_record

FROM khr_inv_hdr_stg

WHERE process_flag = 'N';

SELECT COUNT (*)

INTO v_count_line_valid_record

FROM khr_inv_line_stg

WHERE process_flag = 'N';

SELECT COUNT (*)

INTO v_count_hdr_insert

FROM khr_inv_hdr_stg

WHERE process_flag = 'I';

SELECT COUNT (*)

INTO v_count_hdr_errors

FROM khr_inv_hdr_stg

WHERE process_flag = 'E';

SELECT COUNT (*)

INTO v_count_line_insert

FROM khr_inv_hdr_stg

WHERE process_flag = 'I';

SELECT COUNT (*)

INTO v_count_line_errors

FROM khr_inv_hdr_stg

WHERE process_flag = 'E';

fnd_file.put_line (fnd_file.LOG,

'COUNT OF HDR VALID RECORD :'

|| v_count_hdr_valid_record

);

fnd_file.put_line (fnd_file.LOG,

'COUNT OF LINE VALID RECORD :'

|| v_count_line_valid_record

);

fnd_file.put_line (fnd_file.LOG,

'COUNT OF HEADER PROCESS RECORD:'

|| v_rec_pros_hdr_count

);

fnd_file.put_line (fnd_file.LOG,

'COUNT OF LINE PROCESS RECORD:'

|| v_rec_prss_line_count

);

fnd_file.put_line (fnd_file.LOG,

'COUNT OF HEADER INSERT RECORD:'

|| v_count_hdr_insert

);

fnd_file.put_line (fnd_file.LOG,

'COUNT OF HDR ERROR RECORD:'

|| v_count_hdr_errors

);

fnd_file.put_line (fnd_file.LOG,

'COUNT OF LINE INSERT RECORD:'

|| v_count_line_insert

);

fnd_file.put_line (fnd_file.LOG,

'COUNT OF LINE ERROR RECORD:'

|| v_count_line_errors

);

COMMIT;

fnd_file.put_line (fnd_file.LOG, 'SUBMITTING THE STANDARD PROGRAM---');

v_requist_id :=

fnd_request.submit_request ('SQLAP', ---APPLICATION SHOT NAME

'APXIIMPT', ------PROGRAM SHOT NAME

'Payables Open Interface Import',

'14-sep-2013',

FALSE,

204,

'ERS',

NULL,

'N/A',

NULL,

NULL

);

COMMIT;

fnd_file.put_line (fnd_file.LOG, 'REQUIST_ID :' || v_requist_id);

fnd_file.put_line (fnd_file.LOG, 'CONN REQUEST ID :' || v_conc_req_id);

fnd_file.put_line (fnd_file.LOG, 'CON PROGRAM ID :' || v_conc_prgm_id);

v_boolean :=

fnd_concurrent.wait_for_request (request_id => v_requist_id,

INTERVAL => 60,

max_wait => 0,

phase => v_phase,

status => v_status,

dev_phase => v_dev_phase,

dev_status => v_dev_status,

MESSAGE => v_message

);

COMMIT;

fnd_file.put_line (fnd_file.LOG, 'PHASE :' || v_phase);

fnd_file.put_line (fnd_file.LOG, 'STATUS :' || v_status);

fnd_file.put_line (fnd_file.LOG, 'DEV_PHASE :' || v_dev_phase);

fnd_file.put_line (fnd_file.LOG, 'DEV STATUS :' || v_dev_status);

fnd_file.put_line (fnd_file.LOG, 'MESSAGE :' || v_message);

EXCEPTION

WHEN NO_DATA_FOUND

THEN

fnd_file.put_line (fnd_file.LOG, 'NO DATA FOUND');

WHEN TOO_MANY_ROWS

THEN

fnd_file.put_line (fnd_file.LOG, 'TOO MANY VALUES');

WHEN OTHERS

THEN

fnd_file.put_line (fnd_file.LOG, 'OTHER THAN EXCEPTION');

END ap_khr_inv_main;

END ap_khr_inv_pkg;

KISHAN MUDIRAJ

Sunday, 5 October 2014

SCM Modules Table Links

Fnd Load In Oracle Apps

Tuesday, 30 September 2014

Ap Invoice Interface Program in Oracle Apps