4: g_unexpected_error CONSTANT VARCHAR2 (200)
5: := 'OKC_CONTRACTS_UNEXP_ERROR';
6: g_sqlcode_token CONSTANT VARCHAR2 (200) := 'SQLcode';
7: g_sqlerrm_token CONSTANT VARCHAR2 (200) := 'SQLerrm';
8: g_required_value CONSTANT VARCHAR2 (200) := okc_api.g_required_value;
9: g_col_name_token CONSTANT VARCHAR2 (200) := okc_api.g_col_name_token;
10: ----------------------------------------------------------------------------------------
11: -- Constants used for Message Logging
12: g_level_unexpected CONSTANT NUMBER := fnd_log.level_unexpected;
5: := 'OKC_CONTRACTS_UNEXP_ERROR';
6: g_sqlcode_token CONSTANT VARCHAR2 (200) := 'SQLcode';
7: g_sqlerrm_token CONSTANT VARCHAR2 (200) := 'SQLerrm';
8: g_required_value CONSTANT VARCHAR2 (200) := okc_api.g_required_value;
9: g_col_name_token CONSTANT VARCHAR2 (200) := okc_api.g_col_name_token;
10: ----------------------------------------------------------------------------------------
11: -- Constants used for Message Logging
12: g_level_unexpected CONSTANT NUMBER := fnd_log.level_unexpected;
13: g_level_error CONSTANT NUMBER := fnd_log.level_error;
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;
547: BEGIN
612: );
613: x_return_status := l_return_status;
614: WHEN OTHERS
615: THEN
616: x_return_status := okc_api.g_ret_sts_unexp_error;
617: fnd_file.put_line (fnd_file.LOG,
618: 'Oracle Error Code is -' || TO_CHAR (SQLCODE)
619: );
620: fnd_file.put_line (fnd_file.LOG,
784: l_sll_tbl oks_bill_sch.streamlvl_tbl;
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;
1343:
1344: IF l_contract_item_type_code <> 'SUBSCRIPTION' THEN
1345: IF l_hdr_scs_code <> l_hdr_rec.scs_code /* Commented for CLOUD ER fnd_profile.VALUE ('OKS_CONTRACT_CATEGORY') */
1346: THEN
1347: l_return_status := okc_api.g_ret_sts_error;
1348: --OKC_API.set_message(G_APP_NAME,'OKS_CONTRACT_CATEGORY','Cat',l_hdr_scs_code);
1349: fnd_message.set_name ('OKS', 'OKS_CONTRACT_CATEGORY');
1350: fnd_message.set_token (token => 'Cat',
1351: VALUE => l_hdr_scs_code);
1344: IF l_contract_item_type_code <> 'SUBSCRIPTION' THEN
1345: IF l_hdr_scs_code <> l_hdr_rec.scs_code /* Commented for CLOUD ER fnd_profile.VALUE ('OKS_CONTRACT_CATEGORY') */
1346: THEN
1347: l_return_status := okc_api.g_ret_sts_error;
1348: --OKC_API.set_message(G_APP_NAME,'OKS_CONTRACT_CATEGORY','Cat',l_hdr_scs_code);
1349: fnd_message.set_name ('OKS', 'OKS_CONTRACT_CATEGORY');
1350: fnd_message.set_token (token => 'Cat',
1351: VALUE => l_hdr_scs_code);
1352: l_order_error := '#' || fnd_message.get_encoded || '#';
1365: Fetch l_hdr_ste_csr into l_hdr_ste_code,l_k_number;
1366: Close l_hdr_ste_csr;
1367:
1368: If l_hdr_ste_code = 'HOLD' Then
1369: l_return_status := OKC_API.G_RET_STS_ERROR;
1370: fnd_message.set_name('OKS','OKS_INVALID_STS');
1371: fnd_message.set_token(token => 'Token',value => l_k_number);
1372: l_order_error := '#'||fnd_message.get_encoded||'#';
1373: FND_FILE.PUT_LINE (FND_FILE.LOG, 'OC INTERFACE :- Error: Trying to add service line to a contract in Hold Status:'||l_return_status);
1442:
1443: --mmadhavi bug 4069827
1444:
1445: -- rty_code has been added, (Extwarranty consolidation) vigandhi
1446: l_hdr_rec.contract_number := okc_api.g_miss_char;
1447: l_hdr_rec.rty_code := 'CONTRACTSERVICESORDER';
1448: l_hdr_rec.start_date := l_k_line_rec.srv_sdt;
1449: l_hdr_rec.end_date := l_k_line_rec.srv_edt;
1450: -- l_hdr_rec.sts_code := 'ACTIVE';
1603: THEN
1604: okc_oc_int_pub.create_k_relationships
1605: (p_api_version => l_api_version,
1606: p_init_msg_list => l_init_msg_list,
1607: p_commit => okc_api.g_false,
1608: p_sales_contract_id => okc_api.g_miss_num,
1609: p_service_contract_id => l_chrid,
1610: p_quote_id => okc_api.g_miss_num,
1611: p_quote_line_tab => okc_oc_int_pub.g_miss_ql_tab,
1604: okc_oc_int_pub.create_k_relationships
1605: (p_api_version => l_api_version,
1606: p_init_msg_list => l_init_msg_list,
1607: p_commit => okc_api.g_false,
1608: p_sales_contract_id => okc_api.g_miss_num,
1609: p_service_contract_id => l_chrid,
1610: p_quote_id => okc_api.g_miss_num,
1611: p_quote_line_tab => okc_oc_int_pub.g_miss_ql_tab,
1612: p_order_id => l_hdr_rec.order_hdr_id,
1606: p_init_msg_list => l_init_msg_list,
1607: p_commit => okc_api.g_false,
1608: p_sales_contract_id => okc_api.g_miss_num,
1609: p_service_contract_id => l_chrid,
1610: p_quote_id => okc_api.g_miss_num,
1611: p_quote_line_tab => okc_oc_int_pub.g_miss_ql_tab,
1612: p_order_id => l_hdr_rec.order_hdr_id,
1613: p_order_line_tab => okc_oc_int_pub.g_miss_ol_tab,
1614: p_trace_mode => NULL,
1717: 'OC_INT ...... Cov Temp Id = '
1718: || NVL (l_k_line_rec.coverage_schd_id, -12345)
1719: );
1720: l_line_rec.k_id := l_chrid;
1721: l_line_rec.k_line_number := okc_api.g_miss_char;
1722: -- l_line_rec.line_sts_code := 'ACTIVE';
1723: l_line_rec.cust_account := l_k_line_rec.customer_acct_id;
1724: l_line_rec.org_id := l_k_header_rec.authoring_org_id;
1725: -- mmadhavi should change to org_id for MOAC
1949:
1950: -- mmadhavi end of BOM explosion
1951: l_covd_rec.k_id := l_chrid;
1952: l_covd_rec.attach_2_line_id := l_lineid;
1953: l_covd_rec.line_number := okc_api.g_miss_char;
1954: --l_covd_rec.product_sts_code := 'ACTIVE';
1955: l_covd_rec.customer_product_id := l_cp_tbl (cp_ctr).cp_id;
1956: --l_covd_rec.Product_Segment1 := l_cp_name;
1957: --l_covd_rec.Product_Desc := l_cp_desc;
2135: || l_return_status
2136: );
2137: x_return_status := l_return_status;
2138:
2139: IF NOT l_return_status = okc_api.g_ret_sts_success
2140: THEN
2141: x_return_status := l_return_status;
2142: RAISE g_exception_halt_validation;
2143: END IF;
2177: || l_return_status
2178: );
2179: x_return_status := l_return_status;
2180:
2181: IF NOT l_return_status = okc_api.g_ret_sts_success
2182: THEN
2183: x_return_status := l_return_status;
2184: RAISE g_exception_halt_validation;
2185: END IF;
2240: || ')'
2241: );
2242: END IF;
2243:
2244: IF NOT l_return_status = okc_api.g_ret_sts_success
2245: THEN
2246: okc_api.set_message (g_app_name,
2247: g_required_value,
2248: g_col_name_token,
2242: END IF;
2243:
2244: IF NOT l_return_status = okc_api.g_ret_sts_success
2245: THEN
2246: okc_api.set_message (g_app_name,
2247: g_required_value,
2248: g_col_name_token,
2249: 'Order Line Id ( SUBSCRIPTION LINE)'
2250: );
2507: IF l_return_status = 'S'
2508: THEN
2509: l_priceattrib_id := l_pavv_tbl_out (1).ID;
2510: ELSE
2511: okc_api.set_message (g_app_name,
2512: g_required_value,
2513: g_col_name_token,
2514: 'PRICE ATTRIBUTES (SUBSCRIPTION LINE)'
2515: );
2749: );
2750: END IF;
2751:
2752: --OKS_RENEW_PVT.DEBUG_LOG( '(OKS_EXTWARPRGM_PVT).Create_Billing_Schd :: Create_Bill_Sch_Rules Status : '|| l_return_status );
2753: IF l_return_status <> okc_api.g_ret_sts_success
2754: THEN
2755: okc_api.set_message (g_app_name,
2756: g_required_value,
2757: g_col_name_token,
2751:
2752: --OKS_RENEW_PVT.DEBUG_LOG( '(OKS_EXTWARPRGM_PVT).Create_Billing_Schd :: Create_Bill_Sch_Rules Status : '|| l_return_status );
2753: IF l_return_status <> okc_api.g_ret_sts_success
2754: THEN
2755: okc_api.set_message (g_app_name,
2756: g_required_value,
2757: g_col_name_token,
2758: 'Sched Billing Rule (LINE)'
2759: );
2936: THEN
2937: RAISE g_exception_halt_validation;
2938: END IF;
2939: ELSE
2940: okc_api.set_message (g_app_name,
2941: g_required_value,
2942: g_col_name_token,
2943: 'level elements NOT EXIST'
2944: );
2996: CLOSE c_extwar_hdr_amount;
2997: END IF;
2998: WHEN OTHERS
2999: THEN
3000: x_return_status := okc_api.g_ret_sts_unexp_error;
3001: IF c_extwar_line_amount%ISOPEN THEN
3002: CLOSE c_extwar_line_amount;
3003: END IF;
3004: IF c_extwar_hdr_amount%ISOPEN THEN
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);
3056:
3097: l_fulfilled_qty NUMBER;
3098: l_exists VARCHAR2 (1) := 'Y';
3099: l_ptr1 NUMBER;
3100: l_first_order_line 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;
3098: l_exists VARCHAR2 (1) := 'Y';
3099: l_ptr1 NUMBER;
3100: l_first_order_line 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;
3291: || SQLCODE
3292: || ':'
3293: || SQLERRM
3294: );
3295: okc_api.set_message (g_app_name,
3296: g_unexpected_error,
3297: g_sqlcode_token,
3298: SQLCODE,
3299: g_sqlerrm_token,
3300: SQLERRM
3301: );
3302: WHEN OTHERS
3303: THEN
3304: x_return_status := okc_api.g_ret_sts_unexp_error;
3305: fnd_file.put_line (fnd_file.LOG,
3306: ' Error in Get_Order_lines : '
3307: || SQLCODE
3308: || ':'
3307: || SQLCODE
3308: || ':'
3309: || SQLERRM
3310: );
3311: okc_api.set_message (g_app_name,
3312: g_unexpected_error,
3313: g_sqlcode_token,
3314: SQLCODE,
3315: g_sqlerrm_token,
3503: || SQLCODE
3504: || ':'
3505: || SQLERRM
3506: );
3507: okc_api.set_message (g_app_name,
3508: g_unexpected_error,
3509: g_sqlcode_token,
3510: SQLCODE,
3511: g_sqlerrm_token,
3512: SQLERRM
3513: );
3514: WHEN OTHERS
3515: THEN
3516: x_return_status := okc_api.g_ret_sts_unexp_error;
3517: fnd_file.put_line (fnd_file.LOG,
3518: ' Error in Get_Order_Details : '
3519: || SQLCODE
3520: || ':'
3519: || SQLCODE
3520: || ':'
3521: || SQLERRM
3522: );
3523: okc_api.set_message (g_app_name,
3524: g_unexpected_error,
3525: g_sqlcode_token,
3526: SQLCODE,
3527: g_sqlerrm_token,
3939: );
3940: l_error_temp :=
3941: l_error_temp || fnd_message.get_encoded;
3942:
3943: IF (l_upd_tbl (1).ERROR_TEXT = okc_api.g_miss_char)
3944: THEN
3945: l_upd_tbl (1).ERROR_TEXT :=
3946: l_error_temp || l_error_msg;
3947: l_upd_tbl (1).success_flag := 'E';
4274: THEN
4275: fnd_file.put_line (fnd_file.LOG,
4276: 'In OTHERS Exception of Order_Reprocess'
4277: );
4278: x_return_status := okc_api.g_ret_sts_unexp_error;
4279: fnd_file.put_line (fnd_file.LOG,
4280: ' Error in Order Reprocess : '
4281: || SQLCODE
4282: || ':'
4281: || SQLCODE
4282: || ':'
4283: || SQLERRM
4284: );
4285: okc_api.set_message (g_app_name,
4286: g_unexpected_error,
4287: g_sqlcode_token,
4288: SQLCODE,
4289: g_sqlerrm_token,
4295: errbuf OUT NOCOPY VARCHAR2,
4296: retcode OUT NOCOPY NUMBER
4297: )
4298: IS
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;
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
4328: fnd_file.put_line (fnd_file.LOG, 'Inside procedure Get Order lines');
4339: fnd_file.put_line (fnd_file.LOG, 'Exiting Get Order Details');
4340: EXCEPTION
4341: WHEN OTHERS
4342: THEN
4343: x_return_status := okc_api.g_ret_sts_unexp_error;
4344: fnd_file.put_line (fnd_file.LOG,
4345: ' Error in Get_Order_Details : '
4346: || SQLCODE
4347: || ':'
4346: || SQLCODE
4347: || ':'
4348: || SQLERRM
4349: );
4350: okc_api.set_message (g_app_name,
4351: g_unexpected_error,
4352: g_sqlcode_token,
4353: SQLCODE,
4354: g_sqlerrm_token,
4941: fnd_log.string(FND_LOG.LEVEL_PROCEDURE ,G_MODULE_CURRENT||'.OM_subscription_schedule.begin'
4942: ,'p_cle_id = '||p_cle_id);
4943: END IF;
4944: x_return_status := 'S';
4945: OKC_API.init_msg_list(p_init_msg_list);
4946: l_status := 'I';
4947: Open kl_cur;
4948: Fetch kl_cur Into g_chr_id, l_start_date, l_end_date, l_qty, l_uom, l_itype, l_template_id, l_tangible;
4949: IF kl_cur%NotFound THEN
4947: Open kl_cur;
4948: Fetch kl_cur Into g_chr_id, l_start_date, l_end_date, l_qty, l_uom, l_itype, l_template_id, l_tangible;
4949: IF kl_cur%NotFound THEN
4950: Close kl_cur;
4951: x_return_status := OKC_API.G_RET_STS_ERROR;
4952: OKC_API.set_message
4953: ( p_app_name => 'OKS',
4954: p_msg_name => 'OKS_SUB_INVAL_LINE',
4955: p_token1 => 'LINEID',
4948: Fetch kl_cur Into g_chr_id, l_start_date, l_end_date, l_qty, l_uom, l_itype, l_template_id, l_tangible;
4949: IF kl_cur%NotFound THEN
4950: Close kl_cur;
4951: x_return_status := OKC_API.G_RET_STS_ERROR;
4952: OKC_API.set_message
4953: ( p_app_name => 'OKS',
4954: p_msg_name => 'OKS_SUB_INVAL_LINE',
4955: p_token1 => 'LINEID',
4956: p_token1_value => p_cle_id
4981: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4982: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.OM_subscription_schedule.subs','it is a subscription item');
4983: END IF;
4984: if l_template_id is null then
4985: x_return_status := OKC_API.G_RET_STS_ERROR;
4986: OKC_API.set_message
4987: ( p_app_name => 'OKS',
4988: p_msg_name => 'OKS_SUB_NO_TMPL'
4989: );
4982: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.OM_subscription_schedule.subs','it is a subscription item');
4983: END IF;
4984: if l_template_id is null then
4985: x_return_status := OKC_API.G_RET_STS_ERROR;
4986: OKC_API.set_message
4987: ( p_app_name => 'OKS',
4988: p_msg_name => 'OKS_SUB_NO_TMPL'
4989: );
4990: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5014: END IF;
5015: Exit;
5016: End Loop;
5017: if NVL(l_status, 'A') <> 'A' then
5018: x_return_status := OKC_API.G_RET_STS_ERROR;
5019: OKC_API.set_message
5020: ( p_app_name => 'OKS',
5021: p_msg_name => 'OKS_SUB_INACT_TMPL',
5022: p_token1 => 'TMPL',
5015: Exit;
5016: End Loop;
5017: if NVL(l_status, 'A') <> 'A' then
5018: x_return_status := OKC_API.G_RET_STS_ERROR;
5019: OKC_API.set_message
5020: ( p_app_name => 'OKS',
5021: p_msg_name => 'OKS_SUB_INACT_TMPL',
5022: p_token1 => 'TMPL',
5023: p_token1_value => l_hdr_tbl_in(1).name
5048: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.OM_subscription_schedule.external_call.after',
5049: 'oks_auth_util_pub.create_cii_for_subscription(x_return_status = '||x_return_status
5050: ||', x_instance_id = '||l_instance_id||')');
5051: END IF;
5052: If NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS Then
5053: Raise gen_exit;
5054: End If;
5055: l_hdr_tbl_in(1).instance_id := l_instance_id;
5056:
5083: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5084: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.OM_subscription_schedule.external_call.after',
5085: 'oks_subscr_hdr_pub.insert_row(x_return_status = '||x_return_status||')');
5086: END IF;
5087: If NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS Then
5088: Raise gen_exit;
5089: End If;
5090:
5091: -- FOR TANGIBLE ITEMS(SUBSCRIPTION OR NON-SUB), CREATE DEFAULT PATTERN --
5140: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5141: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.OM_subscription_scheduleexternal_call.after',
5142: 'oks_subscr_ptrns_pub.insert_row(x_return_status = '||x_return_status||')');
5143: END IF;
5144: if NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS then
5145: Raise gen_exit;
5146: end if;
5147:
5148: -- CALCULATE DEFAULT DELIVERY SCHEDULE --
5168: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5169: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.OM_subscription_schedule.external_call.after',
5170: 'oks_subscription_sch_pvt.calc_delivery_date(x_return_status = '||x_return_status||')');
5171: END IF;
5172: if NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS then
5173: Raise gen_exit;
5174: end if;
5175:
5176: -- CREATE SCHEDULE ELEMENTS --
5209: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5210: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.OM_subscription_schedule.external_call.after',
5211: 'oks_subscr_elems_pub.insert_row(x_return_status = '||x_return_status||')');
5212: END IF;
5213: if NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS then
5214: Raise gen_exit;
5215: end if;
5216: else
5217: Null; -- No Schedule for this line. Handle exception here if needed
5227: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.OM_subscription_schedule.intannonsub',
5228: 'it is an intangible non-subscription item. nothing created (only pricing will be called)');
5229: END IF;
5230: END IF;
5231: IF NVL(x_return_status,'!') <> OKC_API.G_RET_STS_SUCCESS THEN
5232: Raise gen_exit;
5233: END IF;
5234: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5235: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.OM_subscription_schedule.end',' ');
5243: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5244: fnd_log.string(FND_LOG.LEVEL_UNEXPECTED,G_MODULE_CURRENT||'.OM_subscription_schedule.UNEXPECTED',
5245: 'sqlcode = '||sqlcode||', sqlerrm = '||sqlerrm);
5246: END IF;
5247: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5248: OKC_API.set_message
5249: ( p_app_name => 'OKS',
5250: p_msg_name => 'OKC_CONTRACTS_UNEXP_ERROR',
5251: p_token1 => 'ERROR_CODE',
5244: fnd_log.string(FND_LOG.LEVEL_UNEXPECTED,G_MODULE_CURRENT||'.OM_subscription_schedule.UNEXPECTED',
5245: 'sqlcode = '||sqlcode||', sqlerrm = '||sqlerrm);
5246: END IF;
5247: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5248: OKC_API.set_message
5249: ( p_app_name => 'OKS',
5250: p_msg_name => 'OKC_CONTRACTS_UNEXP_ERROR',
5251: p_token1 => 'ERROR_CODE',
5252: p_token1_value => sqlcode,