[Home] [Help]
390: -- Added by Skgautam for bug 4177206
391: --Cursor to query user profile option name for given profile option name
392: CURSOR l_profile_name_csr(p_profile_code IN VARCHAR2) IS
393: SELECT USER_PROFILE_OPTION_NAME
394: FROM FND_PROFILE_OPTIONS_VL
395: WHERE PROFILE_OPTION_NAME = p_profile_code;
396:
397: l_profile_name FND_PROFILE_OPTIONS_TL.USER_PROFILE_OPTION_NAME%TYPE;
398:
393: SELECT USER_PROFILE_OPTION_NAME
394: FROM FND_PROFILE_OPTIONS_VL
395: WHERE PROFILE_OPTION_NAME = p_profile_code;
396:
397: l_profile_name FND_PROFILE_OPTIONS_TL.USER_PROFILE_OPTION_NAME%TYPE;
398:
399: BEGIN
400: fnd_profile.get('OKLINNTCINSEXPREQ',ls_reminder_yn);
401: fnd_profile.get('OKLINNTCINSEXP',ls_reminder_days);
396:
397: l_profile_name FND_PROFILE_OPTIONS_TL.USER_PROFILE_OPTION_NAME%TYPE;
398:
399: BEGIN
400: fnd_profile.get('OKLINNTCINSEXPREQ',ls_reminder_yn);
401: fnd_profile.get('OKLINNTCINSEXP',ls_reminder_days);
402:
403: ls_remder_num_days := TO_NUMBER(ls_reminder_days);
404:
397: l_profile_name FND_PROFILE_OPTIONS_TL.USER_PROFILE_OPTION_NAME%TYPE;
398:
399: BEGIN
400: fnd_profile.get('OKLINNTCINSEXPREQ',ls_reminder_yn);
401: fnd_profile.get('OKLINNTCINSEXP',ls_reminder_days);
402:
403: ls_remder_num_days := TO_NUMBER(ls_reminder_days);
404:
405: IF ls_reminder_yn = 'Y' THEN --Bug: 4177206
434:
435: IF l_return_status = 'S' AND lx_email <> -1 THEN --Bug: 4177206
436: ls_to_email := lx_email;
437: ELSE
438: ls_to_email := fnd_profile.value('OKL_EMAIL_IDENTITY');
439: -- Check for NULL values and return if either of these is null
440: IF ls_to_email = Okc_Api.G_MISS_CHAR OR ls_to_email IS NULL THEN
441: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'System profile value for ' || l_profile_name || ' is not defined');
442: RETURN;
446: OPEN get_email(l_cust_acct_id);
447: FETCH get_email INTO l_email;
448: CLOSE get_email;
449:
450: l_agent_id := FND_PROFILE.VALUE('USER_ID');
451: l_subject := 'Third party Insurance Reminder for Contract: '||ls_contract_number ;
452:
453: OKL_FULFILLMENT_PUB.create_fulfillment (
454: p_api_version => l_api_version,
763: -- Added by Skgautam for bug 4177206
764: --Cursor to query user profile option name for given profile option name
765: CURSOR l_profile_name_csr(p_profile_code IN VARCHAR2) IS
766: SELECT USER_PROFILE_OPTION_NAME
767: FROM FND_PROFILE_OPTIONS_VL
768: WHERE PROFILE_OPTION_NAME = p_profile_code;
769:
770: l_profile_name FND_PROFILE_OPTIONS_TL.USER_PROFILE_OPTION_NAME%TYPE;
771:
766: SELECT USER_PROFILE_OPTION_NAME
767: FROM FND_PROFILE_OPTIONS_VL
768: WHERE PROFILE_OPTION_NAME = p_profile_code;
769:
770: l_profile_name FND_PROFILE_OPTIONS_TL.USER_PROFILE_OPTION_NAME%TYPE;
771:
772: lx_email varchar2(240);
773: l_init_msg_list VARCHAR2(1) := Okc_Api.G_FALSE ;
774: l_msg_count NUMBER ;
816:
817: IF l_return_status = 'S' AND lx_email <> -1 THEN --Bug: 4177206
818: ls_to_email := lx_email;
819: ELSE
820: ls_to_email := fnd_profile.value('OKL_EMAIL_IDENTITY');
821: -- Check for NULL values and return if either of these is null
822: IF ls_to_email = Okc_Api.G_MISS_CHAR OR ls_to_email IS NULL THEN --Bug: 4177206
823: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'System profile value for ' || l_profile_name || ' is not defined');
824: RETURN;
828: -- Added by Skgautam to get email id for bug 4177206
829: OPEN get_email(l_cust_acct_id);
830: FETCH get_email INTO l_email;
831: CLOSE get_email;
832: l_agent_id := FND_PROFILE.VALUE('USER_ID');
833: l_subject := 'Insurance Proof for Contract: '||ls_contract_number ;
834:
835: OKL_FULFILLMENT_PUB.create_fulfillment (
836: p_api_version => l_api_version,
1044: --04-Jan-2004 PAGARG Bug# 3941338
1045: --Cursor to query user profile option name for given profile option name
1046: CURSOR l_profile_name_csr(p_profile_code IN VARCHAR2) IS
1047: SELECT USER_PROFILE_OPTION_NAME
1048: FROM FND_PROFILE_OPTIONS_VL
1049: WHERE PROFILE_OPTION_NAME = p_profile_code;
1050: l_profile_name FND_PROFILE_OPTIONS_TL.USER_PROFILE_OPTION_NAME%TYPE;
1051:
1052: BEGIN
1046: CURSOR l_profile_name_csr(p_profile_code IN VARCHAR2) IS
1047: SELECT USER_PROFILE_OPTION_NAME
1048: FROM FND_PROFILE_OPTIONS_VL
1049: WHERE PROFILE_OPTION_NAME = p_profile_code;
1050: l_profile_name FND_PROFILE_OPTIONS_TL.USER_PROFILE_OPTION_NAME%TYPE;
1051:
1052: BEGIN
1053:
1054: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'-------------------------------------------------------------');
1054: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'-------------------------------------------------------------');
1055: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'---Automatic Insurance Start---');
1056: Fnd_File.PUT_LINE(Fnd_File.OUTPUT,'-------------------------------------------------------------');
1057: -- Get values from system profile for Number of days
1058: l_afterlease_criteria := fnd_profile.value('OKLINDAYSFORAUTOINS');
1059:
1060: --04-Jan-2004 PAGARG Bug# 3941338
1061: --Obtain user profile option name for given profile option name
1062: OPEN l_profile_name_csr('OKLINDAYSFORAUTOINS');
1069: RETURN;
1070: END IF;
1071:
1072: -- Get all mandatory data
1073: ls_payment_freq := fnd_profile.value('OKLINPAYMENTFREQUENCY');
1074:
1075: --04-Jan-2004 PAGARG Bug# 3941338
1076: --Obtain user profile option name for given profile option name
1077: OPEN l_profile_name_csr('OKLINPAYMENTFREQUENCY');