[Home] [Help]
1: PACKAGE BODY OKC_RENEW_PVT AS
2: /* $Header: OKCRRENB.pls 120.2 2006/08/02 17:58:30 skekkar noship $ */
3:
4: l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
5:
99: -- or (p_chr_id is null
100: -- and (k.END_date-k.auto_renew_days) <= trunc(sysdate)));
101:
102: --san rencol take out later p_auto_renew_rec renew_in_parameters_rec;
103: p_auto_renew_rec okc_renew_pvt.renew_in_parameters_rec;
104:
105: l_api_name constant VARCHAR2(30) := 'Auto_Renew';
106: l_return_status varchar2(1) := okc_api.g_ret_sts_success;
107: l_chr_id number;
118:
119: BEGIN
120:
121: IF (l_debug = 'Y') THEN
122: okc_debug.Set_Indentation('OKC_RENEW_PVT');
123: okc_debug.log('100: Entered Auto_Renew', 2);
124: END IF;
125:
126: retcode := '0';
315:
316: BEGIN
317:
318: IF (l_debug = 'Y') THEN
319: okc_debug.Set_Indentation('OKC_RENEW_PVT');
320: okc_debug.log('900: Entered is_renew_allowed', 2);
321: END IF;
322:
323: OPEN c_chr;
515:
516: BEGIN
517:
518: IF (l_debug = 'Y') THEN
519: okc_debug.Set_Indentation('OKC_RENEW_PVT');
520: okc_debug.log('1400: Entered VALIDATE', 2);
521: END IF;
522:
523: okc_api.init_msg_list(p_init_msg_list);
1043: l_cle_dates_rec:=get_date_rec(rule_rec.parent_id);
1044: -- okc_debug.log('3300: After get_date_rec');
1045: IF l_cle_dates_rec.id <> OKC_API.G_MISS_NUM then
1046:
1047: okc_renew_pvt.g_rulv_rec.id := rule_rec.id;
1048: okc_renew_pvt.g_rulv_rec.object_version_number := rule_rec.object_version_number;
1049:
1050: -- /striping/
1051: p_appl_id := okc_rld_pvt.get_appl_id(rule_rec.rule_information_category);
1044: -- okc_debug.log('3300: After get_date_rec');
1045: IF l_cle_dates_rec.id <> OKC_API.G_MISS_NUM then
1046:
1047: okc_renew_pvt.g_rulv_rec.id := rule_rec.id;
1048: okc_renew_pvt.g_rulv_rec.object_version_number := rule_rec.object_version_number;
1049:
1050: -- /striping/
1051: p_appl_id := okc_rld_pvt.get_appl_id(rule_rec.rule_information_category);
1052: p_dff_name := okc_rld_pvt.get_dff_name(rule_rec.rule_information_category);
1244: l_uom_code okx_units_of_measure_v.uom_code%type;
1245: BEGIN
1246:
1247: IF (l_debug = 'Y') THEN
1248: okc_debug.Set_Indentation('OKC_RENEW_PVT');
1249: okc_debug.log('4800: Entered update_condition_headers', 2);
1250: END IF;
1251:
1252: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1422: l_api_name constant VARCHAR2(30) := 'update_old_contract';
1423: l_date DATE := trunc(sysdate);
1424: BEGIN
1425: IF (l_debug = 'Y') THEN
1426: okc_debug.Set_Indentation('OKC_RENEW_PVT');
1427: okc_debug.log('5700: Entered update_old_contract', 2);
1428: END IF;
1429:
1430: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1796:
1797: BEGIN
1798:
1799: IF (l_debug = 'Y') THEN
1800: okc_debug.Set_Indentation('OKC_RENEW_PVT');
1801: okc_debug.log('6700: Entered Update_Renewal_Dates', 2);
1802: END IF;
1803:
1804: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2322: l_api_name Varchar2(30) := 'set_notify';
2323: BEGIN
2324:
2325: IF (l_debug = 'Y') THEN
2326: okc_debug.Set_Indentation('OKC_RENEW_PVT');
2327: okc_debug.log('7900: Entered set_notify', 2);
2328: END IF;
2329:
2330: x_return_status :=OKC_API.G_RET_STS_SUCCESS;
2506: l_api_name Varchar2(30) := 'notify';
2507: BEGIN
2508:
2509: IF (l_debug = 'Y') THEN
2510: okc_debug.Set_Indentation('OKC_RENEW_PVT');
2511: okc_debug.log('8100: Entered notify', 2);
2512: END IF;
2513:
2514: IF p_ren_type = OKC_API.G_MISS_CHAR then
2520: END IF;
2521:
2522: IF l_user_name <> OKC_API.G_MISS_CHAR AND l_user_name is not null then
2523:
2524: l_proc:='begin OKC_RENEW_PVT.SET_NOTIFY(x_return_status=>:1,p_old_k=>'''||
2525: p_renew_in_parameters_rec.p_contract_number ||'''';
2526: IF p_renew_in_parameters_rec.p_contract_modifier <> OKC_API.G_MISS_CHAR then
2527: l_proc:= l_proc||',p_old_mod=>'''||p_renew_in_parameters_rec.p_contract_modifier ||'''';
2528: END IF;
2598:
2599: BEGIN
2600:
2601: IF (l_debug = 'Y') THEN
2602: okc_debug.Set_Indentation('OKC_RENEW_PVT');
2603: okc_debug.log('8700: Entered post_renewed_contract', 2);
2604: END IF;
2605:
2606: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3041: l_return_status Varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
3042: Begin
3043:
3044: IF (l_debug = 'Y') THEN
3045: okc_debug.Set_Indentation('OKC_RENEW_PVT');
3046: okc_debug.log('11100: Entered Set_Evergreen_Date_Uom', 2);
3047: END IF;
3048:
3049: p_return_status := l_return_status;
3088: End Set_Evergreen_Date_Uom;
3089: BEGIN
3090:
3091: IF (l_debug = 'Y') THEN
3092: okc_debug.Set_Indentation('OKC_RENEW_PVT');
3093: okc_debug.log('11200: Entered set_attributes', 2);
3094: END IF;
3095:
3096: -- calculate new start date if not provided
3169: END Set_Attributes;
3170: BEGIN
3171:
3172: IF (l_debug = 'Y') THEN
3173: okc_debug.Set_Indentation('OKC_RENEW_PVT');
3174: okc_debug.log('11500: Entered Create_Renewed_Contract', 2);
3175: END IF;
3176:
3177: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3494: WHERE level_sequence = l_level;
3495: Begin
3496:
3497: IF (l_debug = 'Y') THEN
3498: okc_debug.Set_Indentation('OKC_RENEW_PVT');
3499: okc_debug.log('13300: Entered Update_Parents_Date_Renewed', 2);
3500: END IF;
3501:
3502: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3786: RETURN OKC_API.G_FALSE;
3787:
3788: END is_already_not_renewed;
3789:
3790: END OKC_RENEW_PVT;