[Home] [Help]
977:
978: -- Populating internal fields --
979:
980: IF p_header_rec.interface_action_code(I) = 'INSERT' THEN
981: Select qp_list_headers_b_s.nextval
982: into p_header_rec.list_header_id(I)
983: from dual;
984: END IF;
985:
1367: Select 1 into l_exist
1368: from qp_list_headers_tl
1369: where name= p_header_rec.name(I)
1370: and list_header_id <>
1371: (select list_header_id From qp_list_headers_b
1372: -- ENH unod alcoa changes RAVI
1373: /**
1374: The key between interface and qp tables is only orig_sys_hdr_ref
1375: (not list_header_id)
1413: l_exist := NULL;
1414:
1415: BEGIN
1416: select 1, list_header_id into l_exist, l_list_header_id
1417: from qp_list_headers_b
1418: -- ENH unod alcoa changes START RAVI
1419: /**
1420: The key between interface and qp tables is only orig_sys_hdr_ref
1421: (not list_header_id)
1762: l_orig_sys_header_ref <> p_line_rec.orig_sys_header_ref(I) THEN
1763: Begin
1764: select list_header_id, start_date_active
1765: into p_line_rec.list_header_id(I), l_start_date
1766: from qp_list_headers_b
1767: where orig_system_header_ref = p_line_rec.orig_sys_header_ref(I);
1768: Exception
1769: When no_data_found then
1770: p_line_rec.list_header_id(I) := -1;
2368: IF l_header_start_date IS NULL THEN
2369: BEGIN
2370: select start_date_active, end_date_active
2371: into l_header_start_date, l_header_end_date
2372: from qp_list_headers_b
2373: where orig_system_header_ref=p_line_rec.orig_sys_header_ref(I);
2374: EXCEPTION
2375: WHEN OTHERS
2376: THEN
2787: IF p_qualifier_rec.qualifier_context(I) = 'MODLIST'
2788: AND p_qualifier_rec.qualifier_attribute(I) = 'QUALIFIER_ATTRIBUTE4'
2789: THEN
2790: begin
2791: select 1 into l_exist from qp_list_headers_b
2792: where list_header_id = to_number(p_qualifier_rec.qualifier_attr_value(I));
2793: exception when others then
2794: p_qualifier_rec.process_status_flag(I):=NULL;
2795: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
2999:
3000: Begin
3001: select list_header_id, active_flag
3002: into p_qualifier_rec.list_header_id(I), p_qualifier_rec.active_flag(i)
3003: from qp_list_headers_b
3004: where orig_system_header_ref = p_qualifier_rec.orig_sys_header_ref(I);
3005: Exception
3006: When NO_DATA_FOUND then
3007: p_qualifier_rec.process_status_flag(I):=NULL;
3694:
3695: BEGIN
3696: select list_header_id
3697: into p_pricing_attr_rec.list_header_id(I)
3698: from qp_list_headers_b
3699: where orig_system_header_ref = p_pricing_attr_rec.orig_sys_header_ref(I);
3700: EXCEPTION
3701: WHEN NO_DATA_FOUND THEN
3702: p_pricing_attr_rec.list_header_id(I) := -1;
5793: AND qpiq.process_status_flag ='P' --is null
5794: AND qpiq.interface_action_code IN ('INSERT', 'UPDATE')
5795: AND qpiq.orig_sys_header_ref is NOT NULL
5796: AND NOT EXISTS ( SELECT orig_system_header_ref
5797: FROM qp_list_headers_b
5798: WHERE orig_system_header_ref = qpiq.orig_sys_header_ref);
5799:
5800: --3. Secondary Pricelist
5801:
6102: FND_GLOBAL.USER_ID, FND_GLOBAL.CONC_LOGIN_ID, qpil.request_id, 661,
6103: NULL,NULL, 'PRL', 'QP_INTERFACE_PRICING_ATTRIBS', 'PRODUCT_UOM_CODE',
6104: qpip.orig_sys_header_ref,qpip.orig_sys_line_ref,null,
6105: qpip.orig_sys_pricing_attr_ref, l_msg_txt
6106: FROM QP_INTERFACE_LIST_LINES qpil, QP_INTERFACE_PRICING_ATTRIBS qpip, QP_LIST_HEADERS_B qplh
6107: WHERE qpil.request_id = p_request_id
6108: AND qpip.request_id = p_request_id -- bug no 5881528
6109: AND qpil.process_status_flag ='P' --is null
6110: AND qpil.orig_sys_line_ref = qpip.orig_sys_line_ref
6188: FND_GLOBAL.USER_ID, FND_GLOBAL.CONC_LOGIN_ID, qpil.request_id, 661,
6189: NULL,NULL, 'PRL', 'QP_INTERFACE_PRICING_ATTRIBS', 'PRODUCT_UOM_CODE',
6190: qpip.orig_sys_header_ref,qpip.orig_sys_line_ref,null,
6191: qpip.orig_sys_pricing_attr_ref, l_msg_txt
6192: FROM QP_INTERFACE_LIST_LINES qpil, QP_INTERFACE_PRICING_ATTRIBS qpip, QP_LIST_HEADERS_B qplh
6193: WHERE qpil.request_id = p_request_id
6194: AND qpip.request_id = p_request_id -- bug no 5881528
6195: AND qpil.process_status_flag ='P' --is null
6196: AND qpil.orig_sys_line_ref = qpip.orig_sys_line_ref