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;
14: g_level_exception CONSTANT NUMBER := fnd_log.level_exception;
15: g_level_event CONSTANT NUMBER := fnd_log.level_event;
16: g_level_procedure CONSTANT NUMBER := fnd_log.level_procedure;
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;
14: g_level_exception CONSTANT NUMBER := fnd_log.level_exception;
15: g_level_event CONSTANT NUMBER := fnd_log.level_event;
16: g_level_procedure CONSTANT NUMBER := fnd_log.level_procedure;
17: g_level_statement CONSTANT NUMBER := fnd_log.level_statement;
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;
14: g_level_exception CONSTANT NUMBER := fnd_log.level_exception;
15: g_level_event CONSTANT NUMBER := fnd_log.level_event;
16: g_level_procedure CONSTANT NUMBER := fnd_log.level_procedure;
17: g_level_statement CONSTANT NUMBER := fnd_log.level_statement;
18: g_level_current CONSTANT NUMBER := fnd_log.g_current_runtime_level;
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;
14: g_level_exception CONSTANT NUMBER := fnd_log.level_exception;
15: g_level_event CONSTANT NUMBER := fnd_log.level_event;
16: g_level_procedure CONSTANT NUMBER := fnd_log.level_procedure;
17: g_level_statement CONSTANT NUMBER := fnd_log.level_statement;
18: g_level_current CONSTANT NUMBER := fnd_log.g_current_runtime_level;
19: g_module_current CONSTANT VARCHAR2 (255)
12: g_level_unexpected CONSTANT NUMBER := fnd_log.level_unexpected;
13: g_level_error CONSTANT NUMBER := fnd_log.level_error;
14: g_level_exception CONSTANT NUMBER := fnd_log.level_exception;
15: g_level_event CONSTANT NUMBER := fnd_log.level_event;
16: g_level_procedure CONSTANT NUMBER := fnd_log.level_procedure;
17: g_level_statement CONSTANT NUMBER := fnd_log.level_statement;
18: g_level_current CONSTANT NUMBER := fnd_log.g_current_runtime_level;
19: g_module_current CONSTANT VARCHAR2 (255)
20: := 'oks.plsql.oks_int_ocint_pub';
13: g_level_error CONSTANT NUMBER := fnd_log.level_error;
14: g_level_exception CONSTANT NUMBER := fnd_log.level_exception;
15: g_level_event CONSTANT NUMBER := fnd_log.level_event;
16: g_level_procedure CONSTANT NUMBER := fnd_log.level_procedure;
17: g_level_statement CONSTANT NUMBER := fnd_log.level_statement;
18: g_level_current CONSTANT NUMBER := fnd_log.g_current_runtime_level;
19: g_module_current CONSTANT VARCHAR2 (255)
20: := 'oks.plsql.oks_int_ocint_pub';
21:
14: g_level_exception CONSTANT NUMBER := fnd_log.level_exception;
15: g_level_event CONSTANT NUMBER := fnd_log.level_event;
16: g_level_procedure CONSTANT NUMBER := fnd_log.level_procedure;
17: g_level_statement CONSTANT NUMBER := fnd_log.level_statement;
18: g_level_current CONSTANT NUMBER := fnd_log.g_current_runtime_level;
19: g_module_current CONSTANT VARCHAR2 (255)
20: := 'oks.plsql.oks_int_ocint_pub';
21:
22: ----------------------------------------------------------------------------------------
1616: x_msg_count => l_msg_count,
1617: x_msg_data => l_msg_data
1618: );
1619:
1620: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1621: THEN
1622: fnd_log.STRING
1623: (fnd_log.level_event,
1624: g_module_current || '.ORDER_REPROCESS.CREATE_CONTRACT',
1618: );
1619:
1620: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1621: THEN
1622: fnd_log.STRING
1623: (fnd_log.level_event,
1624: g_module_current || '.ORDER_REPROCESS.CREATE_CONTRACT',
1625: ' okc_oc_int_pub.create_k_relationships(Return status = '
1626: || l_return_status
1619:
1620: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
1621: THEN
1622: fnd_log.STRING
1623: (fnd_log.level_event,
1624: g_module_current || '.ORDER_REPROCESS.CREATE_CONTRACT',
1625: ' okc_oc_int_pub.create_k_relationships(Return status = '
1626: || l_return_status
1627: || ')'
2210: p_crjv_tbl => l_crjv_tbl_in,
2211: x_crjv_tbl => l_crjv_tbl_out
2212: );
2213:
2214: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2215: THEN
2216: fnd_log.STRING
2217: (fnd_log.level_event,
2218: g_module_current
2212: );
2213:
2214: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2215: THEN
2216: fnd_log.STRING
2217: (fnd_log.level_event,
2218: g_module_current
2219: || '.Create_Obj_Rel.external_call_line.after',
2220: 'okc_k_rel_objs_pub.create_row(Return status = '
2213:
2214: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2215: THEN
2216: fnd_log.STRING
2217: (fnd_log.level_event,
2218: g_module_current
2219: || '.Create_Obj_Rel.external_call_line.after',
2220: 'okc_k_rel_objs_pub.create_row(Return status = '
2221: || l_return_status
2228: x_return_status := l_return_status;
2229: END IF;
2230:
2231:
2232: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2233: THEN
2234: fnd_log.STRING
2235: (fnd_log.level_event,
2236: g_module_current
2230:
2231:
2232: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2233: THEN
2234: fnd_log.STRING
2235: (fnd_log.level_event,
2236: g_module_current
2237: || '.Create_Subscription_Line.create.object_relation',
2238: 'create_obj_rel(Return status = '
2231:
2232: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2233: THEN
2234: fnd_log.STRING
2235: (fnd_log.level_event,
2236: g_module_current
2237: || '.Create_Subscription_Line.create.object_relation',
2238: 'create_obj_rel(Return status = '
2239: || l_return_status
2491: p_pavv_tbl => l_pavv_tbl_in,
2492: x_pavv_tbl => l_pavv_tbl_out
2493: );
2494:
2495: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2496: THEN
2497: fnd_log.STRING
2498: (fnd_log.level_event,
2499: g_module_current
2493: );
2494:
2495: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2496: THEN
2497: fnd_log.STRING
2498: (fnd_log.level_event,
2499: g_module_current
2500: || '.Create_K_Service_Lines.after_create.price_att',
2501: 'okc_price_adjustment_pvt.create_price_att_value(Return status = '
2494:
2495: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2496: THEN
2497: fnd_log.STRING
2498: (fnd_log.level_event,
2499: g_module_current
2500: || '.Create_K_Service_Lines.after_create.price_att',
2501: 'okc_price_adjustment_pvt.create_price_att_value(Return status = '
2502: || l_return_status
2698:
2699: --OKS_RENEW_PVT.DEBUG_LOG( '(OKS_EXTWARPRGM_PVT).Create_Billing_Schd :: Get_Duration Status : '|| l_return_status );
2700: --OKS_RENEW_PVT.DEBUG_LOG( '(OKS_EXTWARPRGM_PVT).Create_Billing_Schd :: Duration : '|| l_duration );
2701: --OKS_RENEW_PVT.DEBUG_LOG( '(OKS_EXTWARPRGM_PVT).Create_Billing_Schd :: Time Unit : '|| l_timeunits );
2702: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2703: THEN
2704: fnd_log.STRING
2705: (fnd_log.level_event,
2706: g_module_current || '.ORDER_REPROCESS.CREATE_CONTRACT',
2700: --OKS_RENEW_PVT.DEBUG_LOG( '(OKS_EXTWARPRGM_PVT).Create_Billing_Schd :: Duration : '|| l_duration );
2701: --OKS_RENEW_PVT.DEBUG_LOG( '(OKS_EXTWARPRGM_PVT).Create_Billing_Schd :: Time Unit : '|| l_timeunits );
2702: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2703: THEN
2704: fnd_log.STRING
2705: (fnd_log.level_event,
2706: g_module_current || '.ORDER_REPROCESS.CREATE_CONTRACT',
2707: ' Okc_time_util_pub.get_duration(Return status = '
2708: || l_return_status
2701: --OKS_RENEW_PVT.DEBUG_LOG( '(OKS_EXTWARPRGM_PVT).Create_Billing_Schd :: Time Unit : '|| l_timeunits );
2702: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2703: THEN
2704: fnd_log.STRING
2705: (fnd_log.level_event,
2706: g_module_current || '.ORDER_REPROCESS.CREATE_CONTRACT',
2707: ' Okc_time_util_pub.get_duration(Return status = '
2708: || l_return_status
2709: || ' ,Duration = '
2737: || l_return_status
2738: || ')'
2739: );
2740:
2741: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2742: THEN
2743: fnd_log.STRING
2744: (fnd_log.level_event,
2745: g_module_current || '.ORDER_REPROCESS.CREATE_CONTRACT',
2739: );
2740:
2741: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2742: THEN
2743: fnd_log.STRING
2744: (fnd_log.level_event,
2745: g_module_current || '.ORDER_REPROCESS.CREATE_CONTRACT',
2746: ' OKS_BILL_SCH.Create_Bill_Sch_Rules(Return status = '
2747: || l_return_status
2740:
2741: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2742: THEN
2743: fnd_log.STRING
2744: (fnd_log.level_event,
2745: g_module_current || '.ORDER_REPROCESS.CREATE_CONTRACT',
2746: ' OKS_BILL_SCH.Create_Bill_Sch_Rules(Return status = '
2747: || l_return_status
2748: || ')'
2785: || l_return_status
2786: );
2787: END IF;/*Added for ER 16039680*/
2788:
2789: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2790: THEN
2791: fnd_log.STRING
2792: (fnd_log.level_event,
2793: g_module_current || '.ORDER_REPROCESS.CREATE_CONTRACT',
2787: END IF;/*Added for ER 16039680*/
2788:
2789: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2790: THEN
2791: fnd_log.STRING
2792: (fnd_log.level_event,
2793: g_module_current || '.ORDER_REPROCESS.CREATE_CONTRACT',
2794: ' OKS_BILL_UTIL_PUB.CREATE_BCL_FOR_OM(Return status = '
2795: || l_return_status
2788:
2789: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2790: THEN
2791: fnd_log.STRING
2792: (fnd_log.level_event,
2793: g_module_current || '.ORDER_REPROCESS.CREATE_CONTRACT',
2794: ' OKS_BILL_UTIL_PUB.CREATE_BCL_FOR_OM(Return status = '
2795: || l_return_status
2796: || ')'
2851: 'IBNEW :- Update_OM_SLL_Date '
2852: || l_return_status
2853: );
2854:
2855: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
2856: )
2857: THEN
2858: fnd_log.STRING
2859: (fnd_log.level_event,
2854:
2855: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
2856: )
2857: THEN
2858: fnd_log.STRING
2859: (fnd_log.level_event,
2860: g_module_current
2861: || '.ORDER_REPROCESS.CREATE_CONTRACT',
2862: ' OKS_BILL_SCH.UPDATE_OM_SLL_DATE(Return status = '
2855: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
2856: )
2857: THEN
2858: fnd_log.STRING
2859: (fnd_log.level_event,
2860: g_module_current
2861: || '.ORDER_REPROCESS.CREATE_CONTRACT',
2862: ' OKS_BILL_SCH.UPDATE_OM_SLL_DATE(Return status = '
2863: || l_return_status
2884: 'Create_Contract :- Create_Bill_Sch_CP '
2885: || l_return_status
2886: );
2887:
2888: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
2889: )
2890: THEN
2891: fnd_log.STRING
2892: (fnd_log.level_event,
2887:
2888: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
2889: )
2890: THEN
2891: fnd_log.STRING
2892: (fnd_log.level_event,
2893: g_module_current
2894: || '.ORDER_REPROCESS.CREATE_CONTRACT',
2895: ' OKS_BILL_SCH.CREATE_BILL_SCH_CP(Return status = '
2888: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level
2889: )
2890: THEN
2891: fnd_log.STRING
2892: (fnd_log.level_event,
2893: g_module_current
2894: || '.ORDER_REPROCESS.CREATE_CONTRACT',
2895: ' OKS_BILL_SCH.CREATE_BILL_SCH_CP(Return status = '
2896: || l_return_status
2919: 'Create_Contract :- CREATE_BCL_FOR_OM '
2920: || l_return_status
2921: );
2922:
2923: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2924: THEN
2925: fnd_log.STRING
2926: (fnd_log.level_event,
2927: g_module_current || '.ORDER_REPROCESS.CREATE_CONTRACT',
2921: );
2922:
2923: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2924: THEN
2925: fnd_log.STRING
2926: (fnd_log.level_event,
2927: g_module_current || '.ORDER_REPROCESS.CREATE_CONTRACT',
2928: ' OKS_BILL_UTIL_PUB.CREATE_BCL_FOR_OM(Return status = '
2929: || l_return_status
2922:
2923: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)
2924: THEN
2925: fnd_log.STRING
2926: (fnd_log.level_event,
2927: g_module_current || '.ORDER_REPROCESS.CREATE_CONTRACT',
2928: ' OKS_BILL_UTIL_PUB.CREATE_BCL_FOR_OM(Return status = '
2929: || l_return_status
2930: || ')'
3568:
3569: --Call out to Pre-Integration
3570: --This is done as part of License Migration
3571: --Call out starts here
3572: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
3573: THEN
3574: fnd_log.string(FND_LOG.LEVEL_STATEMENT
3575: ,G_MODULE_CURRENT||'.ORDER_REPROCES'
3576: ,'Before OKS_OMIB_EXTNS_PUB.pre_integration call: ' ||
3570: --This is done as part of License Migration
3571: --Call out starts here
3572: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
3573: THEN
3574: fnd_log.string(FND_LOG.LEVEL_STATEMENT
3575: ,G_MODULE_CURRENT||'.ORDER_REPROCES'
3576: ,'Before OKS_OMIB_EXTNS_PUB.pre_integration call: ' ||
3577: ' ,p_api_version = '|| '1.0' ||
3578: ' ,p_init_msg_list = ' || 'T' ||
3597: ,x_return_status => x_return_status
3598: ,x_msg_count => x_msg_count
3599: ,x_msg_data => x_msg_data);
3600:
3601: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
3602: THEN
3603: fnd_log.string(FND_LOG.LEVEL_EVENT
3604: ,G_MODULE_CURRENT||'.IB_INTERFACE'
3605: ,'After OKS_OMIB_INT_EXTNS_PUB.pre_integration Call: ' ||
3599: ,x_msg_data => x_msg_data);
3600:
3601: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
3602: THEN
3603: fnd_log.string(FND_LOG.LEVEL_EVENT
3604: ,G_MODULE_CURRENT||'.IB_INTERFACE'
3605: ,'After OKS_OMIB_INT_EXTNS_PUB.pre_integration Call: ' ||
3606: ' ,x_process_status = ' || l_process_status ||
3607: ' ,x_return_status = ' || x_return_status);
3972: --Add Post_integration call out as part of code re-structuring for
3973: --license migrations.
3974: --call out starts here
3975:
3976: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
3977: THEN
3978: fnd_log.string(FND_LOG.LEVEL_STATEMENT
3979: ,G_MODULE_CURRENT||'.ORDER_REPROCESS'
3980: ,'Before OKS_OMIB_EXTNS_PUB.post_integration call: ' ||
3974: --call out starts here
3975:
3976: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
3977: THEN
3978: fnd_log.string(FND_LOG.LEVEL_STATEMENT
3979: ,G_MODULE_CURRENT||'.ORDER_REPROCESS'
3980: ,'Before OKS_OMIB_EXTNS_PUB.post_integration call: ' ||
3981: ' ,p_transaction_type = ' || NULL ||
3982: ' ,p_transaction_date = ' || NULL ||
4001: ,p_subline_id => l_upd_tbl(1).subline_id
4002: ,x_return_status => x_return_status
4003: ,x_msg_count => x_msg_count
4004: ,x_msg_data => x_msg_data);
4005: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
4006: THEN
4007: fnd_log.string(FND_LOG.LEVEL_EVENT
4008: ,G_MODULE_CURRENT||'.IB_INTERFACE'
4009: ,'After OKS_OMIB_INT_EXTNS_PUB.post_integration Call: ' ||
4003: ,x_msg_count => x_msg_count
4004: ,x_msg_data => x_msg_data);
4005: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
4006: THEN
4007: fnd_log.string(FND_LOG.LEVEL_EVENT
4008: ,G_MODULE_CURRENT||'.IB_INTERFACE'
4009: ,'After OKS_OMIB_INT_EXTNS_PUB.post_integration Call: ' ||
4010: ' ,x_return_status = ' || x_return_status);
4011: END IF;
4212: ELSE -- else of l_process_status from pre_integration
4213:
4214: --Call out to Post starts here if l_process_status <> 'C'(dont want to continue with
4215: --the existing logic above
4216: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
4217: THEN
4218: fnd_log.string(FND_LOG.LEVEL_STATEMENT
4219: ,G_MODULE_CURRENT||'.ORDER_REPROCESS'
4220: ,'Before OKS_OMIB_EXTNS_PUB.post_integration call: ' ||
4214: --Call out to Post starts here if l_process_status <> 'C'(dont want to continue with
4215: --the existing logic above
4216: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level
4217: THEN
4218: fnd_log.string(FND_LOG.LEVEL_STATEMENT
4219: ,G_MODULE_CURRENT||'.ORDER_REPROCESS'
4220: ,'Before OKS_OMIB_EXTNS_PUB.post_integration call: ' ||
4221: ' ,p_transaction_type = ' || NULL ||
4222: ' ,p_transaction_date = ' || NULL ||
4242: ,p_subline_id => NULL
4243: ,x_return_status => x_return_status
4244: ,x_msg_count => x_msg_count
4245: ,x_msg_data => x_msg_data);
4246: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
4247: THEN
4248: fnd_log.string(FND_LOG.LEVEL_EVENT
4249: ,G_MODULE_CURRENT||'.IB_INTERFACE'
4250: ,'After OKS_OMIB_INT_EXTNS_PUB.post_integration Call: ' ||
4244: ,x_msg_count => x_msg_count
4245: ,x_msg_data => x_msg_data);
4246: IF fnd_log.level_event >= fnd_log.g_current_runtime_level
4247: THEN
4248: fnd_log.string(FND_LOG.LEVEL_EVENT
4249: ,G_MODULE_CURRENT||'.IB_INTERFACE'
4250: ,'After OKS_OMIB_INT_EXTNS_PUB.post_integration Call: ' ||
4251: ' ,x_return_status = ' || x_return_status);
4252: END IF;
4936:
4937:
4938:
4939: Begin
4940: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
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';
4937:
4938:
4939: Begin
4940: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
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);
4954: p_msg_name => 'OKS_SUB_INVAL_LINE',
4955: p_token1 => 'LINEID',
4956: p_token1_value => p_cle_id
4957: );
4958: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4959: fnd_log.string(FND_LOG.LEVEL_ERROR,G_MODULE_CURRENT||'.OM_subscription_schedule.ERROR','Invalid Line');
4960: END IF;
4961: Raise gen_exit;
4962: END IF;
4955: p_token1 => 'LINEID',
4956: p_token1_value => p_cle_id
4957: );
4958: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4959: fnd_log.string(FND_LOG.LEVEL_ERROR,G_MODULE_CURRENT||'.OM_subscription_schedule.ERROR','Invalid Line');
4960: END IF;
4961: Raise gen_exit;
4962: END IF;
4963: Close kl_cur;
4966: IF p_template_id <> 1 THEN
4967: l_template_id :=p_template_id;
4968: END IF;
4969:
4970: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4971: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.OM_subscription_schedule.line_details',
4972: 'Header Id = '||g_chr_id||' ,Start Date = '||to_char(l_start_date,'DD-MON-YYYY')
4973: ||' ,End Date = '||to_char(l_end_date,'DD-MON-YYYY')||' ,Quantity = '||l_qty
4974: ||' ,UOM = '||l_uom||', Item Type Code = '||l_itype||' , Template Id = '||l_template_id
4967: l_template_id :=p_template_id;
4968: END IF;
4969:
4970: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4971: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.OM_subscription_schedule.line_details',
4972: 'Header Id = '||g_chr_id||' ,Start Date = '||to_char(l_start_date,'DD-MON-YYYY')
4973: ||' ,End Date = '||to_char(l_end_date,'DD-MON-YYYY')||' ,Quantity = '||l_qty
4974: ||' ,UOM = '||l_uom||', Item Type Code = '||l_itype||' , Template Id = '||l_template_id
4975: ||' ,NL Trackable(For Non-Subscription Items) = '||l_tangible
4977: END IF;
4978: IF l_itype = 'SUBSCRIPTION' Or l_tangible = 'Y' THEN
4979: -- For Subscription Items, get the subscription header details from the template
4980: If l_itype = 'SUBSCRIPTION' Then -- Tangible or Intangible Subscription Item
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;
4978: IF l_itype = 'SUBSCRIPTION' Or l_tangible = 'Y' THEN
4979: -- For Subscription Items, get the subscription header details from the template
4980: If l_itype = 'SUBSCRIPTION' Then -- Tangible or Intangible Subscription Item
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
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
4991: fnd_log.string(FND_LOG.LEVEL_ERROR,G_MODULE_CURRENT||'.OM_subscription_schedule.ERROR','No Template');
4992: END IF;
4993: Raise gen_exit;
4994: end if;
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
4991: fnd_log.string(FND_LOG.LEVEL_ERROR,G_MODULE_CURRENT||'.OM_subscription_schedule.ERROR','No Template');
4992: END IF;
4993: Raise gen_exit;
4994: end if;
4995: For osh_rec In osh_cur(l_template_id) Loop
5003: l_hdr_tbl_in(1).fulfillment_channel := osh_rec.fulfillment_channel;
5004: l_hdr_tbl_in(1).comments := osh_rec.comments;
5005: l_hdr_tbl_in(1).item_type := osh_rec.item_type;
5006: l_status := osh_rec.status;
5007: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5008: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.OM_subscription_schedule.template_details',
5009: 'Name = '||osh_rec.name||', Description = '||osh_rec.description
5010: ||', Subs. Type = '||osh_rec.subscription_type||', Media Type = '||osh_rec.media_type
5011: ||', Frequency = '||osh_rec.frequency||', Fulfill. Channel = '||osh_rec.fulfillment_channel
5004: l_hdr_tbl_in(1).comments := osh_rec.comments;
5005: l_hdr_tbl_in(1).item_type := osh_rec.item_type;
5006: l_status := osh_rec.status;
5007: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5008: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.OM_subscription_schedule.template_details',
5009: 'Name = '||osh_rec.name||', Description = '||osh_rec.description
5010: ||', Subs. Type = '||osh_rec.subscription_type||', Media Type = '||osh_rec.media_type
5011: ||', Frequency = '||osh_rec.frequency||', Fulfill. Channel = '||osh_rec.fulfillment_channel
5012: ||', Item Type = '||osh_rec.item_type||', Status = '||osh_rec.status
5021: p_msg_name => 'OKS_SUB_INACT_TMPL',
5022: p_token1 => 'TMPL',
5023: p_token1_value => l_hdr_tbl_in(1).name
5024: );
5025: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5026: fnd_log.string(FND_LOG.LEVEL_ERROR,G_MODULE_CURRENT||'.OM_subscription_schedule.ERROR','Inactive Template');
5027: END IF;
5028: Raise gen_exit;
5029: end if;
5022: p_token1 => 'TMPL',
5023: p_token1_value => l_hdr_tbl_in(1).name
5024: );
5025: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5026: fnd_log.string(FND_LOG.LEVEL_ERROR,G_MODULE_CURRENT||'.OM_subscription_schedule.ERROR','Inactive Template');
5027: END IF;
5028: Raise gen_exit;
5029: end if;
5030: -- Create Item Instance in the Installed Base --
5027: END IF;
5028: Raise gen_exit;
5029: end if;
5030: -- Create Item Instance in the Installed Base --
5031: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5032: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.OM_subscription_schedule.external_call.before',
5033: 'oks_auth_util_pub.create_cii_for_subscription(p_cle_id = '||p_cle_id||')');
5034: END IF;
5035:
5028: Raise gen_exit;
5029: end if;
5030: -- Create Item Instance in the Installed Base --
5031: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5032: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.OM_subscription_schedule.external_call.before',
5033: 'oks_auth_util_pub.create_cii_for_subscription(p_cle_id = '||p_cle_id||')');
5034: END IF;
5035:
5036: OKS_AUTH_UTIL_PUB.CREATE_CII_FOR_SUBSCRIPTION
5043: p_cle_id => p_cle_id,
5044: p_quantity => l_qty,
5045: x_instance_id => l_instance_id
5046: );
5047: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
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;
5044: p_quantity => l_qty,
5045: x_instance_id => l_instance_id
5046: );
5047: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
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
5065: l_hdr_tbl_in(1).fulfillment_channel := 'OM';
5066: l_hdr_tbl_in(1).item_type := 'NT';
5067: End If;
5068: l_hdr_tbl_in(1).status := 'A';
5069: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5070: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.OM_subscription_schedule.external_call.before',
5071: 'oks_subscr_hdr_pub.insert_row');
5072: END IF;
5073: OKS_SUBSCR_HDR_PUB.insert_row
5066: l_hdr_tbl_in(1).item_type := 'NT';
5067: End If;
5068: l_hdr_tbl_in(1).status := 'A';
5069: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5070: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.OM_subscription_schedule.external_call.before',
5071: 'oks_subscr_hdr_pub.insert_row');
5072: END IF;
5073: OKS_SUBSCR_HDR_PUB.insert_row
5074: (
5079: x_msg_data => x_msg_data,
5080: p_schv_tbl => l_hdr_tbl_in,
5081: x_schv_tbl => l_hdr_tbl_out
5082: );
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
5080: p_schv_tbl => l_hdr_tbl_in,
5081: x_schv_tbl => l_hdr_tbl_out
5082: );
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;
5090:
5091: -- FOR TANGIBLE ITEMS(SUBSCRIPTION OR NON-SUB), CREATE DEFAULT PATTERN --
5092: If l_hdr_tbl_out(1).fulfillment_channel <> 'NONE' then
5093: -- CREATE DEFAULT SCHEDULE PATTERN --
5094: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5095: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.OM_subscription_schedule.tangible','it is a tangible item');
5096: END IF;
5097: l_ptrns_tbl_in(1).osh_id := l_hdr_tbl_out(1).id;
5098: l_ptrns_tbl_in(1).dnz_chr_id := g_chr_id;
5091: -- FOR TANGIBLE ITEMS(SUBSCRIPTION OR NON-SUB), CREATE DEFAULT PATTERN --
5092: If l_hdr_tbl_out(1).fulfillment_channel <> 'NONE' then
5093: -- CREATE DEFAULT SCHEDULE PATTERN --
5094: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5095: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.OM_subscription_schedule.tangible','it is a tangible item');
5096: END IF;
5097: l_ptrns_tbl_in(1).osh_id := l_hdr_tbl_out(1).id;
5098: l_ptrns_tbl_in(1).dnz_chr_id := g_chr_id;
5099: l_ptrns_tbl_in(1).dnz_cle_id := p_cle_id;
5098: l_ptrns_tbl_in(1).dnz_chr_id := g_chr_id;
5099: l_ptrns_tbl_in(1).dnz_cle_id := p_cle_id;
5100: l_ptrns_tbl_in(1).seq_no := 1;
5101: if l_itype = 'SUBSCRIPTION' then
5102: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5103: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.OM_subscription_schedule.tansub',
5104: 'it is a tangible subscription item. creating default pattern');
5105: END IF;
5106: l_ptrns_tbl_in(1).year := '*';
5099: l_ptrns_tbl_in(1).dnz_cle_id := p_cle_id;
5100: l_ptrns_tbl_in(1).seq_no := 1;
5101: if l_itype = 'SUBSCRIPTION' then
5102: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5103: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.OM_subscription_schedule.tansub',
5104: 'it is a tangible subscription item. creating default pattern');
5105: END IF;
5106: l_ptrns_tbl_in(1).year := '*';
5107: if l_hdr_tbl_out(1).frequency = 'M' then
5113: l_ptrns_tbl_in(1).month := '*';
5114: l_ptrns_tbl_in(1).day := '*';
5115: end if;
5116: else -- non-subscription item, it will be shippable
5117: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5118: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.OM_subscription_schedule.tannonsub',
5119: 'it is a tangible non-subscription item. creating one-time schedule pattern');
5120: END IF;
5121: -- CREATE PATTERN FOR ONE-TIME SCHEDULE IF SHIPPABLE NON-SUBSCRIPTION ITEM
5114: l_ptrns_tbl_in(1).day := '*';
5115: end if;
5116: else -- non-subscription item, it will be shippable
5117: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5118: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.OM_subscription_schedule.tannonsub',
5119: 'it is a tangible non-subscription item. creating one-time schedule pattern');
5120: END IF;
5121: -- CREATE PATTERN FOR ONE-TIME SCHEDULE IF SHIPPABLE NON-SUBSCRIPTION ITEM
5122: l_ptrns_tbl_in(1).year := to_char(l_start_date,'YYYY');
5122: l_ptrns_tbl_in(1).year := to_char(l_start_date,'YYYY');
5123: l_ptrns_tbl_in(1).month := to_char(l_start_date,'MM');
5124: l_ptrns_tbl_in(1).day := to_char(l_start_date,'DD');
5125: end if;
5126: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5127: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.OM_subscription_schedule.external_call.before',
5128: 'oks_subscr_ptrns_pub.insert_row');
5129: END IF;
5130: OKS_SUBSCR_PTRNS_PUB.insert_row
5123: l_ptrns_tbl_in(1).month := to_char(l_start_date,'MM');
5124: l_ptrns_tbl_in(1).day := to_char(l_start_date,'DD');
5125: end if;
5126: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5127: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.OM_subscription_schedule.external_call.before',
5128: 'oks_subscr_ptrns_pub.insert_row');
5129: END IF;
5130: OKS_SUBSCR_PTRNS_PUB.insert_row
5131: (
5136: x_msg_data => x_msg_data,
5137: p_scpv_tbl => l_ptrns_tbl_in,
5138: x_scpv_tbl => l_ptrns_tbl_out
5139: );
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
5137: p_scpv_tbl => l_ptrns_tbl_in,
5138: x_scpv_tbl => l_ptrns_tbl_out
5139: );
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;
5150: l_pattern_tbl(1).mth_pattern := l_ptrns_tbl_out(1).month;
5151: l_pattern_tbl(1).week_pattern := l_ptrns_tbl_out(1).week;
5152: l_pattern_tbl(1).wday_pattern := l_ptrns_tbl_out(1).week_day;
5153: l_pattern_tbl(1).day_pattern := l_ptrns_tbl_out(1).day;
5154: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5155: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.OM_subscription_scheduleexternal_call.before',
5156: 'oks_subscription_sch_pvt.calc_delivery_date');
5157: END IF;
5158: OKS_SUBSCRIPTION_SCH_PVT.calc_delivery_date
5151: l_pattern_tbl(1).week_pattern := l_ptrns_tbl_out(1).week;
5152: l_pattern_tbl(1).wday_pattern := l_ptrns_tbl_out(1).week_day;
5153: l_pattern_tbl(1).day_pattern := l_ptrns_tbl_out(1).day;
5154: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5155: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.OM_subscription_scheduleexternal_call.before',
5156: 'oks_subscription_sch_pvt.calc_delivery_date');
5157: END IF;
5158: OKS_SUBSCRIPTION_SCH_PVT.calc_delivery_date
5159: (
5164: p_pattern_tbl => l_pattern_tbl,
5165: x_delivery_tbl => l_delivery_tbl,
5166: x_return_status => x_return_status
5167: );
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
5165: x_delivery_tbl => l_delivery_tbl,
5166: x_return_status => x_return_status
5167: );
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;
5191: idx := l_delivery_tbl.NEXT(idx);
5192: i := i + 1;
5193: END LOOP;
5194: tot_qty := i * l_qty;
5195: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5196: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.OM_subscription_schedule.external_call.before',
5197: 'oks_subscr_elems_pub.insert_row');
5198: END IF;
5199: OKS_SUBSCR_ELEMS_PUB.insert_row
5192: i := i + 1;
5193: END LOOP;
5194: tot_qty := i * l_qty;
5195: IF FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5196: fnd_log.string(FND_LOG.LEVEL_EVENT,G_MODULE_CURRENT||'.OM_subscription_schedule.external_call.before',
5197: 'oks_subscr_elems_pub.insert_row');
5198: END IF;
5199: OKS_SUBSCR_ELEMS_PUB.insert_row
5200: (
5205: x_msg_data => x_msg_data,
5206: p_scev_tbl => l_elems_tbl_in,
5207: x_scev_tbl => l_elems_tbl_out
5208: );
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
5206: p_scev_tbl => l_elems_tbl_in,
5207: x_scev_tbl => l_elems_tbl_out
5208: );
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;
5216: else
5217: Null; -- No Schedule for this line. Handle exception here if needed
5218: end if; -- l_delivery_tbl.COUNT
5219: Else
5220: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5221: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.OM_subscription_schedule.intansub',
5222: 'it is an intangible subscription item. only header is created');
5223: END IF;
5224: End If;
5217: Null; -- No Schedule for this line. Handle exception here if needed
5218: end if; -- l_delivery_tbl.COUNT
5219: Else
5220: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5221: fnd_log.string(FND_LOG.LEVEL_STATEMENT,G_MODULE_CURRENT||'.OM_subscription_schedule.intansub',
5222: 'it is an intangible subscription item. only header is created');
5223: END IF;
5224: End If;
5225: ELSE
5222: 'it is an intangible subscription item. only header is created');
5223: END IF;
5224: End If;
5225: ELSE
5226: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
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;
5223: END IF;
5224: End If;
5225: ELSE
5226: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
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
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',' ');
5236: END IF;
5237: Exception
5238: When gen_exit Then
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',' ');
5236: END IF;
5237: Exception
5238: When gen_exit Then
5239: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5235: fnd_log.string(FND_LOG.LEVEL_PROCEDURE,G_MODULE_CURRENT||'.OM_subscription_schedule.end',' ');
5236: END IF;
5237: Exception
5238: When gen_exit Then
5239: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5240: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE_CURRENT||'.OM_subscription_schedule.EXCEPTION','gen_exit');
5241: END IF;
5242: When OTHERS Then
5243: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5236: END IF;
5237: Exception
5238: When gen_exit Then
5239: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5240: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE_CURRENT||'.OM_subscription_schedule.EXCEPTION','gen_exit');
5241: END IF;
5242: When OTHERS Then
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',
5239: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5240: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE_CURRENT||'.OM_subscription_schedule.EXCEPTION','gen_exit');
5241: END IF;
5242: When OTHERS Then
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;
5240: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,G_MODULE_CURRENT||'.OM_subscription_schedule.EXCEPTION','gen_exit');
5241: END IF;
5242: When OTHERS Then
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