[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,
1590: log_debug('In Deal Line method..');
1591:
1592: select l.SOURCE_REF_LINE_ID, l.PN_INT_LINE_ID, l.PN_REQ_LINE_STATUS_FLAG
1593: bulk collect into t_src_line_id, t_int_line_id, t_status
1594: from qpr_pn_int_lines l, qpr_pn_int_headers h
1595: where h.source_ref_header_id = p_header_id
1596: and h.instance_id = g_instance_id
1597: and h.source_id = g_source_id
1598: and h.source_ref_header_short_desc = g_quote_hdr_sd
1665: log_debug('In price adjustments...');
1666:
1667: begin
1668: select 1 into l_status
1669: from qpr_pn_int_headers h
1670: where h.source_ref_header_id = p_header_id
1671: and h.instance_id = g_instance_id
1672: and h.source_id = g_source_id
1673: and h.pn_req_header_status_flag <> 'P';
2009: l_resp_cust qpr_pn_request_hdrs_b.customer_id%type;
2010: l_resp_sales_rep qpr_pn_request_hdrs_b.sales_rep_id%type;
2011: l_resp_sc qpr_pn_request_hdrs_b.sales_channel_code%type;
2012: l_request_hdr_id qpr_pn_request_hdrs_b.request_header_id%type;
2013: r_hdr qpr_pn_int_headers%rowtype;
2014: r_lines qpr_pn_int_lines%rowtype;
2015: l_hdr_matching boolean := false;
2016: l_line_matching boolean := false;
2017: l_org_id qpr_pn_lines.ORG_ID%type;