[Home] [Help]
130: (p_product_category_id IS NULL OR EXISTS (SELECT 'X' FROM igr_i_a_lines_v alin
131: WHERE alin.person_id = eap.person_id AND
132: alin.enquiry_appl_number = eap.enquiry_appl_number AND
133: alin.product_category_id = p_product_category_id )) AND
134: (p_inq_info_type IS NULL OR EXISTS (SELECT 'X' FROM igr_i_a_itype ityp
135: WHERE ityp.person_id = eap.person_id AND
136: ityp.enquiry_appl_number = eap.enquiry_appl_number AND
137: ityp.info_type_id = p_inq_info_type))
138: FOR UPDATE OF eap.enquiry_status, eap.last_process_dt NOWAIT;
1601:
1602:
1603: BEGIN -- admp_del_eap_eitpi
1604: -- Description: This routine will delete all IGR_I_A_PKGITM records
1605: -- associated with an IGR_I_A_ITYPE record which is being deleted.
1606: DECLARE
1607: v_message_name VARCHAR2(30);
1608: e_resource_busy_exception EXCEPTION;
1609: PRAGMA EXCEPTION_INIT(e_resource_busy_exception, -54);
1623:
1624: --Check INFORMATION type packages.(Other than the parameter type)
1625: CURSOR c_eapit_eitpi(
1626: cp_enquiry_package_item_id AMS_DELIV_KIT_ITEMS.deliverable_kit_part_id%TYPE) IS
1627: SELECT 'X' FROM IGR_I_A_ITYPE eapit,
1628: AMS_DELIV_KIT_ITEMS akit,
1629: AMS_P_DELIVERABLES_V apd
1630: WHERE eapit.person_id = p_person_id AND
1631: eapit.enquiry_appl_number = p_enquiry_appl_number AND