[Home] [Help]
26:
27: g_t_src_lines QPR_SRC_QTN_LINE_TYPE;
28: g_r_ins_deal QPR_DEAL_LINE_TYPE;
29: g_r_upd_deal QPR_DEAL_LINE_TYPE;
30: g_quote_hdr_sd QPR_PN_INT_HEADERS.SOURCE_REF_HEADER_SHORT_DESC%TYPE;
31: g_source_id number;
32:
33: num_meas_cname CONSTANT varchar2(30) := 'MEASURE#_NUMBER';
34: char_meas_cname CONSTANT varchar2(30) := 'MEASURE#_CHAR';
38: MEAS_TYPE_ADJ CONSTANT varchar2(30) := 'ADJUSTMENT';
39: MEAS_TYPE_OFFADJ CONSTANT varchar2(30) := 'OFFADJDATA';
40: OM_MEAS_TYPE_DEALINT CONSTANT varchar2(30) := 'OM_DEALINT';
41: ASO_MEAS_TYPE_DEALINT CONSTANT varchar2(30) := 'ASO_DEALINT';
42: DEAL_HEADER_TBL CONSTANT varchar2(30) := 'QPR_PN_INT_HEADERS';
43: DEAL_LINE_TBL CONSTANT varchar2(30) := 'QPR_PN_INT_LINES';
44: SEEDED_INSTANCE_ID CONSTANT number := 1;
45:
46: NO_TBL_DEF exception;
802: b_insert boolean := false;
803: l_req_int_hdr_id number;
804: s_status varchar2(1);
805: c_get_hdr SYS_REFCURSOR;
806: r_hdr QPR_PN_INT_HEADERS%rowtype;
807: begin
808: log_debug('In deal header method...');
809: open c_get_hdr for p_sql using p_header_id;
810: fetch c_get_hdr into r_hdr;
817:
818: begin
819: select PN_INT_HEADER_ID, PN_REQ_HEADER_STATUS_FLAG
820: into l_req_int_hdr_id, s_status
821: from qpr_pn_int_headers
822: where source_ref_header_id = p_header_id
823: and instance_id = g_instance_id
824: and source_id = g_source_id
825: and source_ref_header_short_desc = g_quote_hdr_sd;
829: end;
830:
831: if b_insert= true then
832: log_debug('Inserting deal interface header...');
833: insert into qpr_pn_int_headers(
834: PN_INT_HEADER_ID,
835: INSTANCE_ID,
836: SOURCE_REF_HEADER_ID,
837: SOURCE_REF_HEADER_SHORT_DESC,
859: MEASURE10_CHAR,
860: REQUEST_ID, CREATION_DATE, CREATED_BY, LAST_UPDATE_DATE,
861: LAST_UPDATED_BY, LAST_UPDATE_LOGIN,
862: PROGRAM_APPLICATION_ID,PROGRAM_ID)
863: values(qpr_pn_int_headers_s.nextval,
864: g_instance_id,
865: r_hdr.SOURCE_REF_HEADER_ID,
866: r_hdr.SOURCE_REF_HEADER_SHORT_DESC,
867: r_hdr.SOURCE_REF_HEADER_LONG_DESC,
901: log_debug('PN_INT_HEADER_ID:' || l_req_int_hdr_id);
902: else
903: if s_status <> 'P' then
904: log_debug('Updating deal interface header...');
905: update qpr_pn_int_headers set
906: INSTANCE_ID = g_instance_id,
907: SOURCE_REF_HEADER_SHORT_DESC = r_hdr.SOURCE_REF_HEADER_SHORT_DESC,
908: SOURCE_REF_HEADER_LONG_DESC = r_hdr.SOURCE_REF_HEADER_LONG_DESC,
909: CUSTOMER_ID = r_hdr.CUSTOMER_ID,
1594: log_debug('In Deal Line method..');
1595:
1596: select l.SOURCE_REF_LINE_ID, l.PN_INT_LINE_ID, l.PN_REQ_LINE_STATUS_FLAG
1597: bulk collect into t_src_line_id, t_int_line_id, t_status
1598: from qpr_pn_int_lines l, qpr_pn_int_headers h
1599: where h.source_ref_header_id = p_header_id
1600: and h.instance_id = g_instance_id
1601: and h.source_id = g_source_id
1602: and h.source_ref_header_short_desc = g_quote_hdr_sd
1678: log_debug('In price adjustments...');
1679:
1680: begin
1681: select 1 into l_status
1682: from qpr_pn_int_headers h
1683: where h.source_ref_header_id = p_header_id
1684: and h.instance_id = g_instance_id
1685: and h.source_id = g_source_id
1686: and h.pn_req_header_status_flag <> 'P';
2022: l_resp_cust qpr_pn_request_hdrs_b.customer_id%type;
2023: l_resp_sales_rep qpr_pn_request_hdrs_b.sales_rep_id%type;
2024: l_resp_sc qpr_pn_request_hdrs_b.sales_channel_code%type;
2025: l_request_hdr_id qpr_pn_request_hdrs_b.request_header_id%type;
2026: r_hdr qpr_pn_int_headers%rowtype;
2027: r_lines qpr_pn_int_lines%rowtype;
2028: l_hdr_matching boolean := false;
2029: l_line_matching boolean := false;
2030: l_org_id qpr_pn_lines.ORG_ID%type;