[Home] [Help]
4527:
4528: -- soagrawa 09-dec-2005 added this cursor for bug 4461415
4529: cursor c_lead_headers(srccd VARCHAR2) is
4530: SELECT IMPORT_INTERFACE_ID
4531: FROM as_import_interface
4532: where promotion_code = srccd;
4533:
4534:
4535: CURSOR c_batch_id IS
4536: SELECT as_sl_imp_batch_s.NEXTVAL
4537: FROM DUAL;
4538:
4539: CURSOR c_lead_header_id_csr IS
4540: SELECT AS_IMPORT_INTERFACE_S.NEXTVAL
4541: FROM dual;
4542:
4543: CURSOR c_lead_header_id_exists_csr (l_id IN NUMBER) IS
4544: SELECT 1 FROM dual
4541: FROM dual;
4542:
4543: CURSOR c_lead_header_id_exists_csr (l_id IN NUMBER) IS
4544: SELECT 1 FROM dual
4545: WHERE EXISTS (SELECT 1 FROM as_import_interface
4546: WHERE import_interface_id = l_id);
4547:
4548: CURSOR c_lead_line_id_csr IS
4549: SELECT AS_IMP_LINES_INTERFACE_S.NEXTVAL
4555: WHERE imp_lines_interface_id = l_id);
4556:
4557: CURSOR c_loaded_rows_for_lead (batch_id_in IN NUMBER) IS
4558: SELECT COUNT(*)
4559: FROM as_import_interface
4560: WHERE batch_id = batch_id_in;
4561:
4562: l_assoc_product_row c_assoc_products_csr%ROWTYPE;
4563: l_schedule_details c_schedule_details_csr%ROWTYPE;
4562: l_assoc_product_row c_assoc_products_csr%ROWTYPE;
4563: l_schedule_details c_schedule_details_csr%ROWTYPE;
4564: l_contact_party_details c_party_relationships_csr%ROWTYPE;
4565:
4566: TYPE Lead_Header_Id_Table IS TABLE OF as_import_interface.IMPORT_INTERFACE_ID%TYPE;
4567: l_lead_header_ids Lead_Header_Id_Table; -- no need to initialize
4568:
4569: TYPE Main_Party_Id_Table IS TABLE OF hz_parties.PARTY_ID%TYPE;
4570: l_main_party_ids Main_Party_Id_Table; -- no need to initialize
4692: );
4693:
4694: --now generate lead headers for all parties by bulk insert
4695: FORALL j IN l_main_party_ids.FIRST..l_main_party_ids.LAST
4696: -- insert in as_import_interface based on target group entry details
4697: INSERT INTO as_import_interface
4698: (
4699: IMPORT_INTERFACE_ID --NOT NULL NUMBER
4700: , LAST_UPDATE_DATE --NOT NULL DATE
4693:
4694: --now generate lead headers for all parties by bulk insert
4695: FORALL j IN l_main_party_ids.FIRST..l_main_party_ids.LAST
4696: -- insert in as_import_interface based on target group entry details
4697: INSERT INTO as_import_interface
4698: (
4699: IMPORT_INTERFACE_ID --NOT NULL NUMBER
4700: , LAST_UPDATE_DATE --NOT NULL DATE
4701: , LAST_UPDATED_BY --NOT NULL NUMBER
4720: ,offer_id --anchaudh added for bug#4957178
4721: )
4722: VALUES
4723: (
4724: AS_IMPORT_INTERFACE_S.NEXTVAL --IMPORT_INTERFACE_ID --NOT NULL NUMBER
4725: , SYSDATE --LAST_UPDATE_DATE --NOT NULL DATE
4726: , FND_GLOBAL.user_id --LAST_UPDATED_BY --NOT NULL NUMBER
4727: , SYSDATE --CREATION_DATE --NOT NULL DATE
4728: , FND_GLOBAL.user_id --CREATED_BY --NOT NULL NUMBER
4824: IF (AMS_DEBUG_HIGH_ON) THEN
4825: AMS_UTILITY_Pvt.debug_message('generate_leads: No. of Products/Categories : '||TO_CHAR(l_no_of_prods));
4826: END IF;
4827:
4828: -- At this point we will have added all the records in as_import_interface table.
4829: -- Now we can call the concurrent program for lead process.
4830: OPEN c_loaded_rows_for_lead(l_batch_id);
4831: FETCH c_loaded_rows_for_lead INTO l_loaded_rows;
4832: CLOSE c_loaded_rows_for_lead;