954: p_data => l_msg_data,
955: p_msg_index_out => l_index
956: );
957: l_order_error := l_order_error || l_msg_data || '#';
958: fnd_message.set_encoded (l_msg_data);
959: l_msg_data := fnd_message.get;
960: fnd_file.put_line (fnd_file.LOG,
961: 'GET CONTRACT HDR FAILURE ' || l_msg_data
962: );
955: p_msg_index_out => l_index
956: );
957: l_order_error := l_order_error || l_msg_data || '#';
958: fnd_message.set_encoded (l_msg_data);
959: l_msg_data := fnd_message.get;
960: fnd_file.put_line (fnd_file.LOG,
961: 'GET CONTRACT HDR FAILURE ' || l_msg_data
962: );
963: END LOOP;
998: p_data => l_msg_data,
999: p_msg_index_out => l_index
1000: );
1001: l_order_error := l_order_error || l_msg_data || '#';
1002: fnd_message.set_encoded (l_msg_data);
1003: l_msg_data := fnd_message.get;
1004: fnd_file.put_line (fnd_file.LOG,
1005: 'GET ORDER LINE FAILURE ' || l_msg_data
1006: );
999: p_msg_index_out => l_index
1000: );
1001: l_order_error := l_order_error || l_msg_data || '#';
1002: fnd_message.set_encoded (l_msg_data);
1003: l_msg_data := fnd_message.get;
1004: fnd_file.put_line (fnd_file.LOG,
1005: 'GET ORDER LINE FAILURE ' || l_msg_data
1006: );
1007: END LOOP;
1201: IF l_hdr_scs_code <> fnd_profile.VALUE ('OKS_CONTRACT_CATEGORY')
1202: THEN
1203: l_return_status := okc_api.g_ret_sts_error;
1204: --OKC_API.set_message(G_APP_NAME,'OKS_CONTRACT_CATEGORY','Cat',l_hdr_scs_code);
1205: fnd_message.set_name ('OKS', 'OKS_CONTRACT_CATEGORY');
1206: fnd_message.set_token (token => 'Cat',
1207: VALUE => l_hdr_scs_code);
1208: l_order_error := '#' || fnd_message.get_encoded || '#';
1209: x_upd_tbl (1).ERROR_TEXT := l_order_error;
1202: THEN
1203: l_return_status := okc_api.g_ret_sts_error;
1204: --OKC_API.set_message(G_APP_NAME,'OKS_CONTRACT_CATEGORY','Cat',l_hdr_scs_code);
1205: fnd_message.set_name ('OKS', 'OKS_CONTRACT_CATEGORY');
1206: fnd_message.set_token (token => 'Cat',
1207: VALUE => l_hdr_scs_code);
1208: l_order_error := '#' || fnd_message.get_encoded || '#';
1209: x_upd_tbl (1).ERROR_TEXT := l_order_error;
1210: x_upd_tbl (1).success_flag := 'E';
1204: --OKC_API.set_message(G_APP_NAME,'OKS_CONTRACT_CATEGORY','Cat',l_hdr_scs_code);
1205: fnd_message.set_name ('OKS', 'OKS_CONTRACT_CATEGORY');
1206: fnd_message.set_token (token => 'Cat',
1207: VALUE => l_hdr_scs_code);
1208: l_order_error := '#' || fnd_message.get_encoded || '#';
1209: x_upd_tbl (1).ERROR_TEXT := l_order_error;
1210: x_upd_tbl (1).success_flag := 'E';
1211: x_upd_tbl (1).order_line_id := p_reproc_line_rec.order_line_id;
1212: x_upd_tbl (1).ID := p_reproc_line_rec.ID;
1405: p_data => l_msg_data,
1406: p_msg_index_out => l_index
1407: );
1408: l_order_error := l_order_error || l_msg_data || '#';
1409: fnd_message.set_encoded (l_msg_data);
1410: l_msg_data := fnd_message.get;
1411: fnd_file.put_line (fnd_file.LOG,
1412: 'Create_k_hdr FAILURE ' || l_msg_data
1413: );
1406: p_msg_index_out => l_index
1407: );
1408: l_order_error := l_order_error || l_msg_data || '#';
1409: fnd_message.set_encoded (l_msg_data);
1410: l_msg_data := fnd_message.get;
1411: fnd_file.put_line (fnd_file.LOG,
1412: 'Create_k_hdr FAILURE ' || l_msg_data
1413: );
1414: END LOOP;
1632: p_data => l_msg_data,
1633: p_msg_index_out => l_index
1634: );
1635: l_order_error := l_order_error || l_msg_data || '#';
1636: fnd_message.set_encoded (l_msg_data);
1637: l_msg_data := fnd_message.get;
1638: fnd_file.put_line (fnd_file.LOG,
1639: 'Create_k_service_line FAILURE '
1640: || l_msg_data
1633: p_msg_index_out => l_index
1634: );
1635: l_order_error := l_order_error || l_msg_data || '#';
1636: fnd_message.set_encoded (l_msg_data);
1637: l_msg_data := fnd_message.get;
1638: fnd_file.put_line (fnd_file.LOG,
1639: 'Create_k_service_line FAILURE '
1640: || l_msg_data
1641: );
1863: p_data => l_msg_data,
1864: p_msg_index_out => l_index
1865: );
1866: l_order_error := l_order_error || l_msg_data || '#';
1867: fnd_message.set_encoded (l_msg_data);
1868: l_msg_data := fnd_message.get;
1869: fnd_file.put_line
1870: (fnd_file.LOG,
1871: 'Create_K_Covered_levels FAILURE '
1864: p_msg_index_out => l_index
1865: );
1866: l_order_error := l_order_error || l_msg_data || '#';
1867: fnd_message.set_encoded (l_msg_data);
1868: l_msg_data := fnd_message.get;
1869: fnd_file.put_line
1870: (fnd_file.LOG,
1871: 'Create_K_Covered_levels FAILURE '
1872: || l_msg_data
3027: || ' not fulfilled'
3028: );
3029: l_upd_tbl (1).ID := l_repv_tbl (l_count).ID;
3030: l_upd_tbl (1).ERROR_TEXT := '#';
3031: fnd_message.set_name ('OKS', 'OKS_REQUEST');
3032: fnd_message.set_token (token => 'ID', VALUE => l_req_id);
3033: l_upd_tbl (1).ERROR_TEXT :=
3034: l_upd_tbl (1).ERROR_TEXT || fnd_message.get_encoded
3035: || '#';
3028: );
3029: l_upd_tbl (1).ID := l_repv_tbl (l_count).ID;
3030: l_upd_tbl (1).ERROR_TEXT := '#';
3031: fnd_message.set_name ('OKS', 'OKS_REQUEST');
3032: fnd_message.set_token (token => 'ID', VALUE => l_req_id);
3033: l_upd_tbl (1).ERROR_TEXT :=
3034: l_upd_tbl (1).ERROR_TEXT || fnd_message.get_encoded
3035: || '#';
3036: fnd_message.set_name ('OKS', 'OKS_LINE_NOT_FULFILLED');
3030: l_upd_tbl (1).ERROR_TEXT := '#';
3031: fnd_message.set_name ('OKS', 'OKS_REQUEST');
3032: fnd_message.set_token (token => 'ID', VALUE => l_req_id);
3033: l_upd_tbl (1).ERROR_TEXT :=
3034: l_upd_tbl (1).ERROR_TEXT || fnd_message.get_encoded
3035: || '#';
3036: fnd_message.set_name ('OKS', 'OKS_LINE_NOT_FULFILLED');
3037: fnd_message.set_token
3038: (token => 'ORD_LINE',
3032: fnd_message.set_token (token => 'ID', VALUE => l_req_id);
3033: l_upd_tbl (1).ERROR_TEXT :=
3034: l_upd_tbl (1).ERROR_TEXT || fnd_message.get_encoded
3035: || '#';
3036: fnd_message.set_name ('OKS', 'OKS_LINE_NOT_FULFILLED');
3037: fnd_message.set_token
3038: (token => 'ORD_LINE',
3039: VALUE => l_repv_tbl (l_count).order_line_id
3040: );
3033: l_upd_tbl (1).ERROR_TEXT :=
3034: l_upd_tbl (1).ERROR_TEXT || fnd_message.get_encoded
3035: || '#';
3036: fnd_message.set_name ('OKS', 'OKS_LINE_NOT_FULFILLED');
3037: fnd_message.set_token
3038: (token => 'ORD_LINE',
3039: VALUE => l_repv_tbl (l_count).order_line_id
3040: );
3041: l_upd_tbl (1).ERROR_TEXT :=
3038: (token => 'ORD_LINE',
3039: VALUE => l_repv_tbl (l_count).order_line_id
3040: );
3041: l_upd_tbl (1).ERROR_TEXT :=
3042: l_upd_tbl (1).ERROR_TEXT || fnd_message.get_encoded
3043: || '#';
3044: l_upd_tbl (1).success_flag := 'E';
3045: l_upd_tbl (1).conc_request_id := NULL;
3046: handle_order_error (x_return_status => l_return_status,
3204: THEN
3205: fnd_file.put_line (fnd_file.LOG, 'Cannot process line ...');
3206: l_upd_tbl (1).ID := l_repv_tbl (l_count).ID;
3207: l_upd_tbl (1).ERROR_TEXT := '#';
3208: fnd_message.set_name ('OKS', 'OKS_REQUEST');
3209: fnd_message.set_token (token => 'ID', VALUE => l_req_id);
3210: l_upd_tbl (1).ERROR_TEXT :=
3211: l_upd_tbl (1).ERROR_TEXT || fnd_message.get_encoded
3212: || '#';
3205: fnd_file.put_line (fnd_file.LOG, 'Cannot process line ...');
3206: l_upd_tbl (1).ID := l_repv_tbl (l_count).ID;
3207: l_upd_tbl (1).ERROR_TEXT := '#';
3208: fnd_message.set_name ('OKS', 'OKS_REQUEST');
3209: fnd_message.set_token (token => 'ID', VALUE => l_req_id);
3210: l_upd_tbl (1).ERROR_TEXT :=
3211: l_upd_tbl (1).ERROR_TEXT || fnd_message.get_encoded
3212: || '#';
3213: fnd_message.set_name ('OKS', 'OKS_PRODUCT_NOT_FOUND');
3207: l_upd_tbl (1).ERROR_TEXT := '#';
3208: fnd_message.set_name ('OKS', 'OKS_REQUEST');
3209: fnd_message.set_token (token => 'ID', VALUE => l_req_id);
3210: l_upd_tbl (1).ERROR_TEXT :=
3211: l_upd_tbl (1).ERROR_TEXT || fnd_message.get_encoded
3212: || '#';
3213: fnd_message.set_name ('OKS', 'OKS_PRODUCT_NOT_FOUND');
3214: l_upd_tbl (1).ERROR_TEXT :=
3215: l_upd_tbl (1).ERROR_TEXT || fnd_message.get_encoded
3209: fnd_message.set_token (token => 'ID', VALUE => l_req_id);
3210: l_upd_tbl (1).ERROR_TEXT :=
3211: l_upd_tbl (1).ERROR_TEXT || fnd_message.get_encoded
3212: || '#';
3213: fnd_message.set_name ('OKS', 'OKS_PRODUCT_NOT_FOUND');
3214: l_upd_tbl (1).ERROR_TEXT :=
3215: l_upd_tbl (1).ERROR_TEXT || fnd_message.get_encoded
3216: || '#';
3217: --'Referenced Product not present in the Installed Base';
3211: l_upd_tbl (1).ERROR_TEXT || fnd_message.get_encoded
3212: || '#';
3213: fnd_message.set_name ('OKS', 'OKS_PRODUCT_NOT_FOUND');
3214: l_upd_tbl (1).ERROR_TEXT :=
3215: l_upd_tbl (1).ERROR_TEXT || fnd_message.get_encoded
3216: || '#';
3217: --'Referenced Product not present in the Installed Base';
3218: l_upd_tbl (1).success_flag := 'E';
3219: l_upd_tbl (1).conc_request_id := NULL;
3278: p_data => l_msg_data,
3279: p_msg_index_out => l_index
3280: );
3281: l_error_msg := l_error_msg || l_msg_data || '#';
3282: fnd_message.set_encoded (l_msg_data);
3283: l_msg_data := fnd_message.get;
3284: fnd_file.put_line (fnd_file.LOG,
3285: 'GET ORDER LINE FAILURE '
3286: || l_msg_data
3279: p_msg_index_out => l_index
3280: );
3281: l_error_msg := l_error_msg || l_msg_data || '#';
3282: fnd_message.set_encoded (l_msg_data);
3283: l_msg_data := fnd_message.get;
3284: fnd_file.put_line (fnd_file.LOG,
3285: 'GET ORDER LINE FAILURE '
3286: || l_msg_data
3287: );
3288: END LOOP;
3289:
3290: DBMS_TRANSACTION.rollback_savepoint ('OKS_REPROC');
3291: l_error_temp := '#';
3292: fnd_message.set_name ('OKS', 'OKS_REQUEST');
3293: fnd_message.set_token (token => 'ID',
3294: VALUE => l_req_id
3295: );
3296: l_error_temp :=
3289:
3290: DBMS_TRANSACTION.rollback_savepoint ('OKS_REPROC');
3291: l_error_temp := '#';
3292: fnd_message.set_name ('OKS', 'OKS_REQUEST');
3293: fnd_message.set_token (token => 'ID',
3294: VALUE => l_req_id
3295: );
3296: l_error_temp :=
3297: l_error_temp || fnd_message.get_encoded;
3293: fnd_message.set_token (token => 'ID',
3294: VALUE => l_req_id
3295: );
3296: l_error_temp :=
3297: l_error_temp || fnd_message.get_encoded;
3298:
3299: IF (l_upd_tbl (1).ERROR_TEXT = okc_api.g_miss_char)
3300: THEN
3301: l_upd_tbl (1).ERROR_TEXT :=
3374:
3375: -- OM INT User Hook End
3376:
3377: l_error_temp := '#';
3378: fnd_message.set_name ('OKS', 'OKS_REQUEST');
3379: fnd_message.set_token (token => 'ID',
3380: VALUE => l_req_id
3381: );
3382: l_error_temp :=
3375: -- OM INT User Hook End
3376:
3377: l_error_temp := '#';
3378: fnd_message.set_name ('OKS', 'OKS_REQUEST');
3379: fnd_message.set_token (token => 'ID',
3380: VALUE => l_req_id
3381: );
3382: l_error_temp :=
3383: l_error_temp || fnd_message.get_encoded || '#';
3379: fnd_message.set_token (token => 'ID',
3380: VALUE => l_req_id
3381: );
3382: l_error_temp :=
3383: l_error_temp || fnd_message.get_encoded || '#';
3384: l_upd_tbl (1).ID := l_repv_tbl (l_count).ID;
3385: fnd_message.set_name ('OKS', 'OKS_CONTRACT_SUCCESS');
3386: l_upd_tbl (1).ERROR_TEXT := fnd_message.get_encoded;
3387: --'Contract Successfully created';
3381: );
3382: l_error_temp :=
3383: l_error_temp || fnd_message.get_encoded || '#';
3384: l_upd_tbl (1).ID := l_repv_tbl (l_count).ID;
3385: fnd_message.set_name ('OKS', 'OKS_CONTRACT_SUCCESS');
3386: l_upd_tbl (1).ERROR_TEXT := fnd_message.get_encoded;
3387: --'Contract Successfully created';
3388: l_upd_tbl (1).ERROR_TEXT :=
3389: l_error_temp || l_upd_tbl (1).ERROR_TEXT || '#';
3382: l_error_temp :=
3383: l_error_temp || fnd_message.get_encoded || '#';
3384: l_upd_tbl (1).ID := l_repv_tbl (l_count).ID;
3385: fnd_message.set_name ('OKS', 'OKS_CONTRACT_SUCCESS');
3386: l_upd_tbl (1).ERROR_TEXT := fnd_message.get_encoded;
3387: --'Contract Successfully created';
3388: l_upd_tbl (1).ERROR_TEXT :=
3389: l_error_temp || l_upd_tbl (1).ERROR_TEXT || '#';
3390: l_upd_tbl (1).success_flag := 'S';
3401: END IF;
3402:
3403: FOR i IN 2 .. l_upd_tbl.LAST
3404: LOOP
3405: fnd_message.set_name ('OKS', 'OKS_REQUEST');
3406: fnd_message.set_token (token => 'ID',
3407: VALUE => l_req_id
3408: );
3409: l_upd_tbl (i).ERROR_TEXT :=
3402:
3403: FOR i IN 2 .. l_upd_tbl.LAST
3404: LOOP
3405: fnd_message.set_name ('OKS', 'OKS_REQUEST');
3406: fnd_message.set_token (token => 'ID',
3407: VALUE => l_req_id
3408: );
3409: l_upd_tbl (i).ERROR_TEXT :=
3410: '#' || fnd_message.get_encoded || '#';
3406: fnd_message.set_token (token => 'ID',
3407: VALUE => l_req_id
3408: );
3409: l_upd_tbl (i).ERROR_TEXT :=
3410: '#' || fnd_message.get_encoded || '#';
3411: fnd_message.set_name ('OKS',
3412: 'OKS_CONTRACT_SUCCESS');
3413: l_upd_tbl (i).ERROR_TEXT :=
3414: l_upd_tbl (i).ERROR_TEXT
3407: VALUE => l_req_id
3408: );
3409: l_upd_tbl (i).ERROR_TEXT :=
3410: '#' || fnd_message.get_encoded || '#';
3411: fnd_message.set_name ('OKS',
3412: 'OKS_CONTRACT_SUCCESS');
3413: l_upd_tbl (i).ERROR_TEXT :=
3414: l_upd_tbl (i).ERROR_TEXT
3415: || fnd_message.get_encoded
3411: fnd_message.set_name ('OKS',
3412: 'OKS_CONTRACT_SUCCESS');
3413: l_upd_tbl (i).ERROR_TEXT :=
3414: l_upd_tbl (i).ERROR_TEXT
3415: || fnd_message.get_encoded
3416: || '#'; --'Contract Successfully created';
3417: l_upd_tbl (i).success_flag := 'S';
3418: l_upd_tbl (i).conc_request_id := NULL;
3419: l_upd_tbl (i).order_line_id :=
3471: CLOSE l_contract_line_csr;
3472:
3473: l_upd_tbl (1).contract_line_id := l_cont_line_id;
3474: l_upd_tbl (1).success_flag := 'S';
3475: fnd_message.set_name ('OKS', 'OKS_REQUEST');
3476: fnd_message.set_token (token => 'ID',
3477: VALUE => l_req_id);
3478: l_upd_tbl (1).ERROR_TEXT :=
3479: '#' || fnd_message.get_encoded || '#';
3472:
3473: l_upd_tbl (1).contract_line_id := l_cont_line_id;
3474: l_upd_tbl (1).success_flag := 'S';
3475: fnd_message.set_name ('OKS', 'OKS_REQUEST');
3476: fnd_message.set_token (token => 'ID',
3477: VALUE => l_req_id);
3478: l_upd_tbl (1).ERROR_TEXT :=
3479: '#' || fnd_message.get_encoded || '#';
3480: fnd_message.set_name ('OKS', 'OKS_DUPLICATE_ORD_LINE');
3475: fnd_message.set_name ('OKS', 'OKS_REQUEST');
3476: fnd_message.set_token (token => 'ID',
3477: VALUE => l_req_id);
3478: l_upd_tbl (1).ERROR_TEXT :=
3479: '#' || fnd_message.get_encoded || '#';
3480: fnd_message.set_name ('OKS', 'OKS_DUPLICATE_ORD_LINE');
3481: l_upd_tbl (1).ERROR_TEXT :=
3482: l_upd_tbl (1).ERROR_TEXT
3483: || fnd_message.get_encoded
3476: fnd_message.set_token (token => 'ID',
3477: VALUE => l_req_id);
3478: l_upd_tbl (1).ERROR_TEXT :=
3479: '#' || fnd_message.get_encoded || '#';
3480: fnd_message.set_name ('OKS', 'OKS_DUPLICATE_ORD_LINE');
3481: l_upd_tbl (1).ERROR_TEXT :=
3482: l_upd_tbl (1).ERROR_TEXT
3483: || fnd_message.get_encoded
3484: || '#';
3479: '#' || fnd_message.get_encoded || '#';
3480: fnd_message.set_name ('OKS', 'OKS_DUPLICATE_ORD_LINE');
3481: l_upd_tbl (1).ERROR_TEXT :=
3482: l_upd_tbl (1).ERROR_TEXT
3483: || fnd_message.get_encoded
3484: || '#';
3485: l_upd_tbl (1).order_line_id :=
3486: l_repv_tbl (l_count).order_line_id;
3487: l_upd_tbl (1).ID := l_repv_tbl (l_count).ID;
3501: FOR i IN 2 .. l_ctr1
3502: LOOP
3503: l_upd_tbl (i).contract_line_id := l_cont_line_id;
3504: l_upd_tbl (i).success_flag := 'S';
3505: fnd_message.set_name ('OKS', 'OKS_REQUEST');
3506: fnd_message.set_token (token => 'ID',
3507: VALUE => l_req_id
3508: );
3509: l_upd_tbl (i).ERROR_TEXT :=
3502: LOOP
3503: l_upd_tbl (i).contract_line_id := l_cont_line_id;
3504: l_upd_tbl (i).success_flag := 'S';
3505: fnd_message.set_name ('OKS', 'OKS_REQUEST');
3506: fnd_message.set_token (token => 'ID',
3507: VALUE => l_req_id
3508: );
3509: l_upd_tbl (i).ERROR_TEXT :=
3510: '#' || fnd_message.get_encoded || '#';
3506: fnd_message.set_token (token => 'ID',
3507: VALUE => l_req_id
3508: );
3509: l_upd_tbl (i).ERROR_TEXT :=
3510: '#' || fnd_message.get_encoded || '#';
3511: fnd_message.set_name ('OKS',
3512: 'OKS_DUPLICATE_ORD_LINE'
3513: );
3514: l_upd_tbl (i).ERROR_TEXT :=
3507: VALUE => l_req_id
3508: );
3509: l_upd_tbl (i).ERROR_TEXT :=
3510: '#' || fnd_message.get_encoded || '#';
3511: fnd_message.set_name ('OKS',
3512: 'OKS_DUPLICATE_ORD_LINE'
3513: );
3514: l_upd_tbl (i).ERROR_TEXT :=
3515: l_upd_tbl (i).ERROR_TEXT
3512: 'OKS_DUPLICATE_ORD_LINE'
3513: );
3514: l_upd_tbl (i).ERROR_TEXT :=
3515: l_upd_tbl (i).ERROR_TEXT
3516: || fnd_message.get_encoded
3517: || '#';
3518: l_upd_tbl (i).order_line_id :=
3519: l_repv_tbl (l_count).order_line_id;
3520: l_upd_tbl (i).order_number :=