235: p_is_iban_acc IN varchar2 ) RETURN NUMBER IS
236: --
237: l_ret NUMBER ;
238: begin
239: -- hr_utility.trace_on(null,'ACCVAL');
240: l_ret :=0;
241: hr_utility.set_location('p_is_iban_acc ' || p_is_iban_acc,1);
242: hr_utility.set_location('p_account_number ' || p_acc_no,1);
243:
237: l_ret NUMBER ;
238: begin
239: -- hr_utility.trace_on(null,'ACCVAL');
240: l_ret :=0;
241: hr_utility.set_location('p_is_iban_acc ' || p_is_iban_acc,1);
242: hr_utility.set_location('p_account_number ' || p_acc_no,1);
243:
244: IF (p_acc_no IS NOT NULL AND p_is_iban_acc = 'N') then
245: l_ret := validate_account_number(p_acc_no);
238: begin
239: -- hr_utility.trace_on(null,'ACCVAL');
240: l_ret :=0;
241: hr_utility.set_location('p_is_iban_acc ' || p_is_iban_acc,1);
242: hr_utility.set_location('p_account_number ' || p_acc_no,1);
243:
244: IF (p_acc_no IS NOT NULL AND p_is_iban_acc = 'N') then
245: l_ret := validate_account_number(p_acc_no);
246: hr_utility.set_location('l_ret ' || l_ret,1);
242: hr_utility.set_location('p_account_number ' || p_acc_no,1);
243:
244: IF (p_acc_no IS NOT NULL AND p_is_iban_acc = 'N') then
245: l_ret := validate_account_number(p_acc_no);
246: hr_utility.set_location('l_ret ' || l_ret,1);
247: RETURN l_ret;
248: ELSIF (p_acc_no IS NOT NULL AND p_is_iban_acc = 'Y') then
249: l_ret := validate_iban_acc(p_acc_no);
250: hr_utility.set_location('l_ret ' || l_ret,3);
246: hr_utility.set_location('l_ret ' || l_ret,1);
247: RETURN l_ret;
248: ELSIF (p_acc_no IS NOT NULL AND p_is_iban_acc = 'Y') then
249: l_ret := validate_iban_acc(p_acc_no);
250: hr_utility.set_location('l_ret ' || l_ret,3);
251: RETURN l_ret;
252: ELSIF (p_acc_no IS NULL AND p_is_iban_acc IS NULL) then
253: hr_utility.set_location('Both Account Nos Null',4);
254: RETURN 1;
249: l_ret := validate_iban_acc(p_acc_no);
250: hr_utility.set_location('l_ret ' || l_ret,3);
251: RETURN l_ret;
252: ELSIF (p_acc_no IS NULL AND p_is_iban_acc IS NULL) then
253: hr_utility.set_location('Both Account Nos Null',4);
254: RETURN 1;
255: ELSE
256: hr_utility.set_location('l_ret: 3 ' ,5);
257: RETURN 3;
252: ELSIF (p_acc_no IS NULL AND p_is_iban_acc IS NULL) then
253: hr_utility.set_location('Both Account Nos Null',4);
254: RETURN 1;
255: ELSE
256: hr_utility.set_location('l_ret: 3 ' ,5);
257: RETURN 3;
258: END if;
259: End validate_account_entered;
260:
1090: DOCUMENT_TYPE_ID=P_DOCUMENT_TYPE_ID AND
1091: (P_DATE_FROM< DATE_TO AND P_DATE_TO > DATE_FROM );*/
1092: BEGIN
1093: IF P_ISSUED_DATE IS NULL THEN
1094: HR_UTILITY.SET_MESSAGE(800,'HR_376898_NO_DEI_DATE_REQD');
1095: hr_utility.raise_error;
1096: END IF;
1097:
1098: open csr_doc_exists;
1091: (P_DATE_FROM< DATE_TO AND P_DATE_TO > DATE_FROM );*/
1092: BEGIN
1093: IF P_ISSUED_DATE IS NULL THEN
1094: HR_UTILITY.SET_MESSAGE(800,'HR_376898_NO_DEI_DATE_REQD');
1095: hr_utility.raise_error;
1096: END IF;
1097:
1098: open csr_doc_exists;
1099: fetch csr_doc_exists into l_exists;
1097:
1098: open csr_doc_exists;
1099: fetch csr_doc_exists into l_exists;
1100: if csr_doc_exists%FOUND then
1101: hr_utility.set_message(800,'HR_376897_NO_OVERLAP_DEI_INFO');
1102: hr_utility.raise_error;
1103: end if;
1104: close csr_doc_exists;
1105:
1098: open csr_doc_exists;
1099: fetch csr_doc_exists into l_exists;
1100: if csr_doc_exists%FOUND then
1101: hr_utility.set_message(800,'HR_376897_NO_OVERLAP_DEI_INFO');
1102: hr_utility.raise_error;
1103: end if;
1104: close csr_doc_exists;
1105:
1106: END;
1132: DOCUMENT_TYPE_ID=P_DOCUMENT_TYPE_ID AND
1133: (P_DATE_FROM< DATE_TO AND P_DATE_TO > DATE_FROM );*/
1134: BEGIN
1135: IF P_ISSUED_DATE IS NULL THEN
1136: HR_UTILITY.SET_MESSAGE(800,'HR_376898_NO_DEI_DATE_REQD');
1137: HR_UTILITY.RAISE_ERROR;
1138: END IF;
1139:
1140: open csr_doc_exists;
1133: (P_DATE_FROM< DATE_TO AND P_DATE_TO > DATE_FROM );*/
1134: BEGIN
1135: IF P_ISSUED_DATE IS NULL THEN
1136: HR_UTILITY.SET_MESSAGE(800,'HR_376898_NO_DEI_DATE_REQD');
1137: HR_UTILITY.RAISE_ERROR;
1138: END IF;
1139:
1140: open csr_doc_exists;
1141: fetch csr_doc_exists into l_exists;
1139:
1140: open csr_doc_exists;
1141: fetch csr_doc_exists into l_exists;
1142: if csr_doc_exists%FOUND then
1143: hr_utility.set_message(800,'HR_376897_NO_OVERLAP_DEI_INFO');
1144: hr_utility.raise_error;
1145: end if;
1146: close csr_doc_exists;
1147:
1140: open csr_doc_exists;
1141: fetch csr_doc_exists into l_exists;
1142: if csr_doc_exists%FOUND then
1143: hr_utility.set_message(800,'HR_376897_NO_OVERLAP_DEI_INFO');
1144: hr_utility.raise_error;
1145: end if;
1146: close csr_doc_exists;
1147:
1148: END;
1175: OPEN csr_get_iana_charset;
1176: FETCH csr_get_iana_charset INTO lv_iana_charset;
1177: CLOSE csr_get_iana_charset;
1178:
1179: hr_utility.trace('IANA Charset = '||lv_iana_charset);
1180: RETURN (lv_iana_charset);
1181: END get_IANA_charset;
1182:
1183:
1189: --l_proc varchar2(72) := g_package||'.get_message';
1190: --
1191: BEGIN
1192: --
1193: --hr_utility.set_location('Entered '||l_proc,5);
1194: hr_utility.set_location('. Message Name: ' || p_message_name, 40);
1195: fnd_message.set_name(p_product, p_message_name);
1196:
1197: IF p_token1 IS NOT NULL THEN
1190: --
1191: BEGIN
1192: --
1193: --hr_utility.set_location('Entered '||l_proc,5);
1194: hr_utility.set_location('. Message Name: ' || p_message_name, 40);
1195: fnd_message.set_name(p_product, p_message_name);
1196:
1197: IF p_token1 IS NOT NULL THEN
1198:
1199: /* Obtain token 1 name and value */ l_colon_position := instr(p_token1, ':');
1200: l_token_name := SUBSTR(p_token1, 1, l_colon_position -1);
1201: l_token_value := SUBSTR(p_token1, l_colon_position + 1, LENGTH(p_token1));
1202: fnd_message.set_token(l_token_name, l_token_value);
1203: hr_utility.set_location('. Token1: ' || l_token_name || '. Value: ' || l_token_value, 50);
1204: END IF;
1205:
1206: IF p_token2 IS NOT NULL THEN
1207:
1208: /* Obtain token 2 name and value */ l_colon_position := instr(p_token2, ':');
1209: l_token_name := SUBSTR(p_token2, 1, l_colon_position -1);
1210: l_token_value := SUBSTR(p_token2, l_colon_position + 1, LENGTH(p_token2));
1211: fnd_message.set_token(l_token_name, l_token_value);
1212: hr_utility.set_location('. Token2: ' || l_token_name || '. Value: ' || l_token_value, 60);
1213: END IF;
1214:
1215: IF p_token3 IS NOT NULL THEN
1216:
1217: /* Obtain token 3 name and value */ l_colon_position := instr(p_token3, ':');
1218: l_token_name := SUBSTR(p_token3, 1, l_colon_position -1);
1219: l_token_value := SUBSTR(p_token3, l_colon_position + 1, LENGTH(p_token3));
1220: fnd_message.set_token(l_token_name, l_token_value);
1221: hr_utility.set_location('. Token3: ' || l_token_name || '. Value: ' || l_token_value, 70);
1222: END IF;
1223:
1224: l_message := SUBSTR(fnd_message.GET, 1, 254);
1225: --hr_utility.set_location('leaving '||l_proc,100);
1221: hr_utility.set_location('. Token3: ' || l_token_name || '. Value: ' || l_token_value, 70);
1222: END IF;
1223:
1224: l_message := SUBSTR(fnd_message.GET, 1, 254);
1225: --hr_utility.set_location('leaving '||l_proc,100);
1226: RETURN l_message;
1227: END get_message;
1228:
1229:
1255:
1256: EXCEPTION
1257:
1258: WHEN others THEN
1259: hr_utility.trace('SQLERRM:'||substr(sqlerrm,1,200));
1260: raise;
1261:
1262: END get_global_value;
1263: