121: l_oe_line_rec oe_order_pub.line_rec_type;
122: l_dequeue_mode VARCHAR2 (240) DEFAULT DBMS_AQ.remove;
123: l_navigation VARCHAR2 (240)
124: DEFAULT DBMS_AQ.next_message;
125: l_repv_rec oks_rep_pvt.repv_rec_type;
126: l_out_repv_rec oks_rep_pvt.repv_rec_type;
127: l_request_id NUMBER;
128: --General Variables
129: l_ctr NUMBER;
122: l_dequeue_mode VARCHAR2 (240) DEFAULT DBMS_AQ.remove;
123: l_navigation VARCHAR2 (240)
124: DEFAULT DBMS_AQ.next_message;
125: l_repv_rec oks_rep_pvt.repv_rec_type;
126: l_out_repv_rec oks_rep_pvt.repv_rec_type;
127: l_request_id NUMBER;
128: --General Variables
129: l_ctr NUMBER;
130: l_oldline_count NUMBER;
526: END oc_interface;
527:
528: PROCEDURE handle_order_error (
529: x_return_status OUT NOCOPY VARCHAR2,
530: p_upd_rec IN oks_rep_pvt.repv_rec_type
531: )
532: IS
533: CURSOR l_old_repv_csr (p_id NUMBER)
534: IS
537: WHERE ID = p_id;
538:
539: --l_old_repv_rec l_old_repv_csr%ROWTYPE;
540: l_obj_vers_num NUMBER;
541: l_new_repv_rec oks_rep_pvt.repv_rec_type;
542: l_repv_rec oks_rep_pvt.repv_rec_type;
543: l_return_status VARCHAR2 (1) := okc_api.g_ret_sts_success;
544: l_msg_count NUMBER;
545: l_msg_data VARCHAR2 (2000);
538:
539: --l_old_repv_rec l_old_repv_csr%ROWTYPE;
540: l_obj_vers_num NUMBER;
541: l_new_repv_rec oks_rep_pvt.repv_rec_type;
542: l_repv_rec oks_rep_pvt.repv_rec_type;
543: l_return_status VARCHAR2 (1) := okc_api.g_ret_sts_success;
544: l_msg_count NUMBER;
545: l_msg_data VARCHAR2 (2000);
546: l_index NUMBER;
785: l_bil_sch_out oks_bill_sch.itembillsch_tbl;
786: x_msg_count NUMBER;
787: x_msg_data VARCHAR2 (2000);
788: x_return_status VARCHAR2 (1) := okc_api.g_ret_sts_success;
789: l_repv_tbl oks_rep_pvt.repv_tbl_type;
790: l_reproc_line_rec oks_rep_pvt.repv_rec_type;
791: l_serv_ref_rec l_serv_ref_csr%ROWTYPE;
792: l_ordered_qty NUMBER;
793: l_upd_tbl oks_rep_pvt.repv_tbl_type;
786: x_msg_count NUMBER;
787: x_msg_data VARCHAR2 (2000);
788: x_return_status VARCHAR2 (1) := okc_api.g_ret_sts_success;
789: l_repv_tbl oks_rep_pvt.repv_tbl_type;
790: l_reproc_line_rec oks_rep_pvt.repv_rec_type;
791: l_serv_ref_rec l_serv_ref_csr%ROWTYPE;
792: l_ordered_qty NUMBER;
793: l_upd_tbl oks_rep_pvt.repv_tbl_type;
794: l_out_repv_rec oks_rep_pvt.repv_rec_type;
789: l_repv_tbl oks_rep_pvt.repv_tbl_type;
790: l_reproc_line_rec oks_rep_pvt.repv_rec_type;
791: l_serv_ref_rec l_serv_ref_csr%ROWTYPE;
792: l_ordered_qty NUMBER;
793: l_upd_tbl oks_rep_pvt.repv_tbl_type;
794: l_out_repv_rec oks_rep_pvt.repv_rec_type;
795: l_conc_rec oks_rep_pvt.repv_rec_type;
796: i NUMBER;
797: l_ctr1 NUMBER;
790: l_reproc_line_rec oks_rep_pvt.repv_rec_type;
791: l_serv_ref_rec l_serv_ref_csr%ROWTYPE;
792: l_ordered_qty NUMBER;
793: l_upd_tbl oks_rep_pvt.repv_tbl_type;
794: l_out_repv_rec oks_rep_pvt.repv_rec_type;
795: l_conc_rec oks_rep_pvt.repv_rec_type;
796: i NUMBER;
797: l_ctr1 NUMBER;
798: l_cont_line_id NUMBER;
791: l_serv_ref_rec l_serv_ref_csr%ROWTYPE;
792: l_ordered_qty NUMBER;
793: l_upd_tbl oks_rep_pvt.repv_tbl_type;
794: l_out_repv_rec oks_rep_pvt.repv_rec_type;
795: l_conc_rec oks_rep_pvt.repv_rec_type;
796: i NUMBER;
797: l_ctr1 NUMBER;
798: l_cont_line_id NUMBER;
799: l_dummy VARCHAR2 (30);
802:
803: l_process_status VARCHAR2(20);
804:
805: PROCEDURE create_contract (
806: p_reproc_line_rec oks_rep_pvt.repv_rec_type,
807: x_upd_tbl OUT NOCOPY oks_rep_pvt.repv_tbl_type,
808: x_return_status OUT NOCOPY VARCHAR2
809: )
810: IS
803: l_process_status VARCHAR2(20);
804:
805: PROCEDURE create_contract (
806: p_reproc_line_rec oks_rep_pvt.repv_rec_type,
807: x_upd_tbl OUT NOCOPY oks_rep_pvt.repv_tbl_type,
808: x_return_status OUT NOCOPY VARCHAR2
809: )
810: IS
811: CURSOR l_party_csr
3016: PROCEDURE get_order_details (
3017: p_option IN VARCHAR2,
3018: p_source IN VARCHAR2,
3019: x_return_status OUT NOCOPY VARCHAR2,
3020: x_repv_tbl OUT NOCOPY oks_rep_pvt.repv_tbl_type
3021: )
3022: IS
3023: --mmadhavi modified cursors for MOAC
3024: CURSOR l_order_line_sub_csr
3047: WHERE NVL (success_flag, 'E') IN ('E', 'N') ---IN ('R','N','E')
3048: AND rep.order_id = oh.header_id
3049: AND conc_request_id IS NULL;
3050:
3051: l_repv_tbl oks_rep_pvt.repv_tbl_type;
3052: l_return_status VARCHAR2 (1) := okc_api.g_ret_sts_success;
3053: l_ordline_rec oks_rep_pvt.repv_rec_type;
3054: l_ptr NUMBER;
3055: l_source VARCHAR2 (30);
3049: AND conc_request_id IS NULL;
3050:
3051: l_repv_tbl oks_rep_pvt.repv_tbl_type;
3052: l_return_status VARCHAR2 (1) := okc_api.g_ret_sts_success;
3053: l_ordline_rec oks_rep_pvt.repv_rec_type;
3054: l_ptr NUMBER;
3055: l_source VARCHAR2 (30);
3056:
3057: PROCEDURE get_order_lines (
3059: p_order_id IN NUMBER,
3060: p_ord_num IN NUMBER,
3061: p_success_flag IN VARCHAR2,
3062: p_source_flag IN VARCHAR2,
3063: x_repv_tbl OUT NOCOPY oks_rep_pvt.repv_tbl_type,
3064: x_return_status OUT NOCOPY VARCHAR2
3065: )
3066: IS
3067: CURSOR get_order_lines_csr (p_ord_num NUMBER)
3101: l_init_msg_list VARCHAR2 (1) := okc_api.g_false;
3102: l_return_status VARCHAR2 (1) := okc_api.g_ret_sts_success;
3103: l_msg_count NUMBER := 0;
3104: l_msg_data VARCHAR2 (2000);
3105: l_repv_rec oks_rep_pvt.repv_rec_type;
3106: l_out_repv_rec oks_rep_pvt.repv_rec_type;
3107: BEGIN
3108: fnd_file.put_line (fnd_file.LOG,
3109: 'Inside procedure Get Order Lines'
3102: l_return_status VARCHAR2 (1) := okc_api.g_ret_sts_success;
3103: l_msg_count NUMBER := 0;
3104: l_msg_data VARCHAR2 (2000);
3105: l_repv_rec oks_rep_pvt.repv_rec_type;
3106: l_out_repv_rec oks_rep_pvt.repv_rec_type;
3107: BEGIN
3108: fnd_file.put_line (fnd_file.LOG,
3109: 'Inside procedure Get Order Lines'
3110: );
4299: l_return_status VARCHAR2 (1) := okc_api.g_ret_sts_success;
4300: l_msg_count NUMBER;
4301: l_msg_data VARCHAR2 (2000);
4302: l_user_id NUMBER;
4303: l_del_rec oks_rep_pvt.repv_rec_type;
4304: l_repv_tbl oks_rep_pvt.repv_tbl_type;
4305: l_index NUMBER;
4306: l_line_count NUMBER;
4307: l_api_version CONSTANT NUMBER := 1.0;
4300: l_msg_count NUMBER;
4301: l_msg_data VARCHAR2 (2000);
4302: l_user_id NUMBER;
4303: l_del_rec oks_rep_pvt.repv_rec_type;
4304: l_repv_tbl oks_rep_pvt.repv_tbl_type;
4305: l_index NUMBER;
4306: l_line_count NUMBER;
4307: l_api_version CONSTANT NUMBER := 1.0;
4308: l_init_msg_list VARCHAR2 (1) DEFAULT fnd_api.g_false;
4310: PROCEDURE get_order_lines (
4311: x_return_status OUT NOCOPY VARCHAR2,
4312: x_msg_count OUT NOCOPY NUMBER,
4313: x_msg_data OUT NOCOPY VARCHAR2,
4314: x_repv_tbl OUT NOCOPY oks_rep_pvt.repv_tbl_type
4315: )
4316: IS
4317: CURSOR l_order_line_csr
4318: IS
4319: SELECT ID
4320: FROM oks_reprocessing_v
4321: WHERE success_flag = 'S';
4322:
4323: l_repv_tbl oks_rep_pvt.repv_tbl_type;
4324: l_return_status VARCHAR2 (1) := okc_api.g_ret_sts_success;
4325: l_ordline_rec oks_rep_pvt.repv_rec_type;
4326: l_ptr NUMBER;
4327: BEGIN
4321: WHERE success_flag = 'S';
4322:
4323: l_repv_tbl oks_rep_pvt.repv_tbl_type;
4324: l_return_status VARCHAR2 (1) := okc_api.g_ret_sts_success;
4325: l_ordline_rec oks_rep_pvt.repv_rec_type;
4326: l_ptr NUMBER;
4327: BEGIN
4328: fnd_file.put_line (fnd_file.LOG, 'Inside procedure Get Order lines');
4329: l_ptr := 0;
4469: l_oe_line_rec oe_order_pub.line_rec_type;
4470: l_dequeue_mode VARCHAR2 (240) DEFAULT DBMS_AQ.remove;
4471: l_navigation VARCHAR2 (240)
4472: DEFAULT DBMS_AQ.next_message;
4473: l_repv_rec oks_rep_pvt.repv_rec_type;
4474: l_out_repv_rec oks_rep_pvt.repv_rec_type;
4475: l_request_id NUMBER;
4476: --General Variables
4477: l_ctr NUMBER;
4470: l_dequeue_mode VARCHAR2 (240) DEFAULT DBMS_AQ.remove;
4471: l_navigation VARCHAR2 (240)
4472: DEFAULT DBMS_AQ.next_message;
4473: l_repv_rec oks_rep_pvt.repv_rec_type;
4474: l_out_repv_rec oks_rep_pvt.repv_rec_type;
4475: l_request_id NUMBER;
4476: --General Variables
4477: l_ctr NUMBER;
4478: l_oldline_count NUMBER;