[Home] [Help]
230: p_class_cat_rec,
231: 'C',
232: x_return_status);
233:
234: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
235: RAISE FND_API.G_EXC_ERROR;
236: END IF;
237:
238: If HZ_CLASS_VALIDATE_V2PUB.is_valid_delimiter(p_class_cat_rec.class_category,p_class_cat_rec.delimiter)='N'
231: 'C',
232: x_return_status);
233:
234: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
235: RAISE FND_API.G_EXC_ERROR;
236: END IF;
237:
238: If HZ_CLASS_VALIDATE_V2PUB.is_valid_delimiter(p_class_cat_rec.class_category,p_class_cat_rec.delimiter)='N'
239: then
238: If HZ_CLASS_VALIDATE_V2PUB.is_valid_delimiter(p_class_cat_rec.class_category,p_class_cat_rec.delimiter)='N'
239: then
240: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_DELIMITER');
241: FND_MSG_PUB.ADD;
242: RAISE FND_API.G_EXC_ERROR;
243: end if;
244:
245: HZ_CLASS_CATEGORIES_PKG.Insert_Row (
246: X_CLASS_CATEGORY => p_class_cat_rec.class_category,
311: THEN
312: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
313: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_CLASS_CATEGORIES');
314: FND_MSG_PUB.ADD;
315: RAISE FND_API.G_EXC_ERROR;
316: END IF;
317:
318: p_object_version_number := nvl(l_object_version_number, 1) + 1;
319:
321: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
322: FND_MESSAGE.SET_TOKEN('RECORD', 'HZ_CLASS_CATEGORIES');
323: FND_MESSAGE.SET_TOKEN('VALUE', 'p_class_cat_rec.class_category');
324: FND_MSG_PUB.ADD;
325: RAISE FND_API.G_EXC_ERROR;
326: END;
327:
328: -- call for validations.
329: HZ_CLASS_VALIDATE_V2PUB.validate_class_category(p_class_cat_rec, 'U', x_return_status);
327:
328: -- call for validations.
329: HZ_CLASS_VALIDATE_V2PUB.validate_class_category(p_class_cat_rec, 'U', x_return_status);
330:
331: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
332: RAISE FND_API.G_EXC_ERROR;
333: END IF;
334:
335: if p_class_cat_rec.delimiter is not null
328: -- call for validations.
329: HZ_CLASS_VALIDATE_V2PUB.validate_class_category(p_class_cat_rec, 'U', x_return_status);
330:
331: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
332: RAISE FND_API.G_EXC_ERROR;
333: END IF;
334:
335: if p_class_cat_rec.delimiter is not null
336: and (nvl(l_delimiter,fnd_api.g_miss_char) <> p_class_cat_rec.delimiter)
332: RAISE FND_API.G_EXC_ERROR;
333: END IF;
334:
335: if p_class_cat_rec.delimiter is not null
336: and (nvl(l_delimiter,fnd_api.g_miss_char) <> p_class_cat_rec.delimiter)
337: then
338: If HZ_CLASS_VALIDATE_V2PUB.is_valid_delimiter(p_class_cat_rec.class_category,p_class_cat_rec.delimiter)='N'
339: then
340: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_DELIMITER');
338: If HZ_CLASS_VALIDATE_V2PUB.is_valid_delimiter(p_class_cat_rec.class_category,p_class_cat_rec.delimiter)='N'
339: then
340: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_DELIMITER');
341: FND_MSG_PUB.ADD;
342: RAISE FND_API.G_EXC_ERROR;
343: end if;
344: end if;
345:
346: if (p_class_cat_rec.allow_leaf_node_only_flag is not null
343: end if;
344: end if;
345:
346: if (p_class_cat_rec.allow_leaf_node_only_flag is not null
347: and (nvl(l_allow_leaf_node_only_flag,fnd_api.g_miss_char) <> p_class_cat_rec.allow_leaf_node_only_flag))
348: or (p_class_cat_rec.delimiter is not null
349: and (nvl(l_delimiter,fnd_api.g_miss_char) <> p_class_cat_rec.delimiter))
350: or (p_class_cat_rec.allow_multi_parent_flag is not null
351: and (nvl(l_allow_multi_parent_flag,fnd_api.g_miss_char) <> p_class_cat_rec.allow_multi_parent_flag))
345:
346: if (p_class_cat_rec.allow_leaf_node_only_flag is not null
347: and (nvl(l_allow_leaf_node_only_flag,fnd_api.g_miss_char) <> p_class_cat_rec.allow_leaf_node_only_flag))
348: or (p_class_cat_rec.delimiter is not null
349: and (nvl(l_delimiter,fnd_api.g_miss_char) <> p_class_cat_rec.delimiter))
350: or (p_class_cat_rec.allow_multi_parent_flag is not null
351: and (nvl(l_allow_multi_parent_flag,fnd_api.g_miss_char) <> p_class_cat_rec.allow_multi_parent_flag))
352: then
353: set_frozen_flag(p_class_cat_rec.class_category);
347: and (nvl(l_allow_leaf_node_only_flag,fnd_api.g_miss_char) <> p_class_cat_rec.allow_leaf_node_only_flag))
348: or (p_class_cat_rec.delimiter is not null
349: and (nvl(l_delimiter,fnd_api.g_miss_char) <> p_class_cat_rec.delimiter))
350: or (p_class_cat_rec.allow_multi_parent_flag is not null
351: and (nvl(l_allow_multi_parent_flag,fnd_api.g_miss_char) <> p_class_cat_rec.allow_multi_parent_flag))
352: then
353: set_frozen_flag(p_class_cat_rec.class_category);
354: end if;
355:
405:
406: -- Bug 3816590. Default start_date_active to sysdate if user has not passed any value.
407:
408: If p_class_code_rel_rec.start_date_active is null
409: OR p_class_code_rel_rec.start_date_active = fnd_api.g_miss_date
410: then
411: p_class_code_rel_rec.start_date_active := sysdate;
412: end if;
413:
415: p_class_code_rel_rec,
416: 'C',
417: x_return_status);
418:
419: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
420: RAISE FND_API.G_EXC_ERROR;
421: END IF;
422:
423: HZ_CLASS_CODE_RELATIONS_PKG.Insert_Row (
416: 'C',
417: x_return_status);
418:
419: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
420: RAISE FND_API.G_EXC_ERROR;
421: END IF;
422:
423: HZ_CLASS_CODE_RELATIONS_PKG.Insert_Row (
424: X_CLASS_CATEGORY => p_class_code_rel_rec.class_category,
489: THEN
490: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
491: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_CLASS_CODE_RELATIONS');
492: FND_MSG_PUB.ADD;
493: RAISE FND_API.G_EXC_ERROR;
494: END IF;
495:
496: p_object_version_number := nvl(l_object_version_number, 1) + 1;
497:
499: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
500: FND_MESSAGE.SET_TOKEN('RECORD', 'HZ_CLASS_CODE_RELATIONS');
501: FND_MESSAGE.SET_TOKEN('VALUE', 'p_class_code_rel_rec.class_category');
502: FND_MSG_PUB.ADD;
503: RAISE FND_API.G_EXC_ERROR;
504: END;
505:
506: -- call for validations.
507: HZ_CLASS_VALIDATE_V2PUB.validate_class_code_relation(
508: p_class_code_rel_rec,
509: 'U',
510: x_return_status);
511:
512: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
513: RAISE FND_API.G_EXC_ERROR;
514: END IF;
515:
516: if p_class_code_rel_rec.end_date_active is not null
509: 'U',
510: x_return_status);
511:
512: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
513: RAISE FND_API.G_EXC_ERROR;
514: END IF;
515:
516: if p_class_code_rel_rec.end_date_active is not null
517: and (nvl(l_end_date_active,fnd_api.g_miss_date) <> p_class_code_rel_rec.end_date_active)
513: RAISE FND_API.G_EXC_ERROR;
514: END IF;
515:
516: if p_class_code_rel_rec.end_date_active is not null
517: and (nvl(l_end_date_active,fnd_api.g_miss_date) <> p_class_code_rel_rec.end_date_active)
518: then
519: set_frozen_flag(p_class_code_rel_rec.class_category);
520: end if;
521:
574: ) IS
575:
576: l_rowid ROWID := NULL;
577:
578: dss_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
579: dss_msg_count NUMBER := 0;
580: dss_msg_data VARCHAR2(2000):= null;
581: l_test_security VARCHAR2(1):= 'F';
582:
605:
606: BEGIN
607:
608: -- Bug 3070461. Default start_date_active to sysdate if user has not passed any value.
609: If p_code_assignment_rec.start_date_active is null OR p_code_assignment_rec.start_date_active = fnd_api.g_miss_date then
610: p_code_assignment_rec.start_date_active := sysdate;
611: end if;
612:
613:
614: --Bug Number 2824772 . API should default the 'content_source_type' column value to'USER_ENTERED'
615:
616: IF p_code_assignment_rec.content_source_type IS NULL
617: OR
618: p_code_assignment_rec.content_source_type = FND_API.G_MISS_CHAR
619: THEN
620: p_code_assignment_rec.content_source_type :='USER_ENTERED';
621: END IF;
622:
626: p_code_assignment_rec,
627: 'C',
628: x_return_status);
629:
630: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
631: RAISE FND_API.G_EXC_ERROR;
632: END IF;
633:
634: --Bug 2830772: For 'NACE' lookup type, if the content_source_type is not
627: 'C',
628: x_return_status);
629:
630: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
631: RAISE FND_API.G_EXC_ERROR;
632: END IF;
633:
634: --Bug 2830772: For 'NACE' lookup type, if the content_source_type is not
635: --'USER_ENTERED', even if the lookup_code is passed incorrectly with respect
696: x_return_status => dss_return_status,
697: x_msg_count => dss_msg_count,
698: x_msg_data => dss_msg_data);
699:
700: if dss_return_status <> fnd_api.g_ret_sts_success THEN
701: RAISE FND_API.G_EXC_ERROR;
702: end if;
703:
704: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
697: x_msg_count => dss_msg_count,
698: x_msg_data => dss_msg_data);
699:
700: if dss_return_status <> fnd_api.g_ret_sts_success THEN
701: RAISE FND_API.G_EXC_ERROR;
702: end if;
703:
704: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
705: --
700: if dss_return_status <> fnd_api.g_ret_sts_success THEN
701: RAISE FND_API.G_EXC_ERROR;
702: end if;
703:
704: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
705: --
706: -- Bug 3835601: replaced the dss message with a more user friendly message
707: --
708: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_INSERT_PRIVILEGE');
708: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_INSERT_PRIVILEGE');
709: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',
710: hz_dss_util_pub.get_display_name('HZ_CODE_ASSIGNMENTS', null));
711: FND_MSG_PUB.ADD;
712: RAISE FND_API.G_EXC_ERROR;
713: end if;
714: END IF;
715:
716:
730: p_code_assignment_rec.start_date_active<=sysdate
731: AND
732: (
733: p_code_assignment_rec.end_date_active is NULL
734: OR p_code_assignment_rec.end_date_active=fnd_api.g_miss_date
735: OR p_code_assignment_rec.end_date_active>sysdate
736: )
737: THEN
738: OPEN c_party_type(p_code_assignment_rec.owner_table_id);
767: x_profile_id,
768: x_return_status,
769: dss_msg_count,
770: dss_msg_data);
771: IF x_return_status <> fnd_api.g_ret_sts_success THEN
772: RAISE FND_API.G_EXC_ERROR;
773: END IF;
774: END IF;
775: END IF;
768: x_return_status,
769: dss_msg_count,
770: dss_msg_data);
771: IF x_return_status <> fnd_api.g_ret_sts_success THEN
772: RAISE FND_API.G_EXC_ERROR;
773: END IF;
774: END IF;
775: END IF;
776: END IF;
788: p_code_assignment_rec.start_date_active<=sysdate
789: AND
790: (
791: p_code_assignment_rec.end_date_active is NULL
792: OR p_code_assignment_rec.end_date_active=fnd_api.g_miss_date
793: OR p_code_assignment_rec.end_date_active>sysdate
794: )
795: THEN
796: update hz_parties
945: THEN
946: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
947: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_CODE_ASSIGNMENTS');
948: FND_MSG_PUB.ADD;
949: RAISE FND_API.G_EXC_ERROR;
950: END IF;
951:
952: p_object_version_number := nvl(l_object_version_number, 1) + 1;
953:
955: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
956: FND_MESSAGE.SET_TOKEN('RECORD', 'HZ_CODE_ASSIGNMENTS');
957: FND_MESSAGE.SET_TOKEN('VALUE', 'p_code_assignment_rec.code_assignment_id');
958: FND_MSG_PUB.ADD;
959: RAISE FND_API.G_EXC_ERROR;
960: END;
961:
962: -- call for validations.
963: HZ_CLASS_VALIDATE_V2PUB.validate_code_assignment(
964: p_code_assignment_rec,
965: 'U',
966: x_return_status);
967:
968: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
969: RAISE FND_API.G_EXC_ERROR;
970: END IF;
971:
972: --Bug 2830772: For 'NACE' lookup type, if the content_source_type is not
965: 'U',
966: x_return_status);
967:
968: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
969: RAISE FND_API.G_EXC_ERROR;
970: END IF;
971:
972: --Bug 2830772: For 'NACE' lookup type, if the content_source_type is not
973: --'USER_ENTERED', even if the lookup_code is passed incorrectly with respect
1050: nvl(p_code_assignment_rec.primary_flag,l_primary_flag)='Y'
1051: AND
1052: (
1053: ( nvl(p_code_assignment_rec.end_date_active,l_end_date)<= SYSDATE
1054: AND nvl(p_code_assignment_rec.end_date_active,l_end_date)<> fnd_api.g_miss_date
1055: )
1056: OR
1057: nvl(p_code_assignment_rec.start_date_active,l_start_date)> SYSDATE
1058:
1071: OPEN c_new_denorm(l_owner_table_id,p_code_assignment_rec.code_assignment_id);
1072: FETCH c_new_denorm into l_organization_rec.SIC_CODE_TYPE ,l_organization_rec.SIC_CODE ;
1073: IF c_new_denorm%NOTFOUND
1074: THEN
1075: l_organization_rec.SIC_CODE_TYPE := fnd_api.g_miss_char;
1076: l_organization_rec.SIC_CODE := fnd_api.g_miss_char;
1077: END IF;
1078: CLOSE c_new_denorm;
1079:
1072: FETCH c_new_denorm into l_organization_rec.SIC_CODE_TYPE ,l_organization_rec.SIC_CODE ;
1073: IF c_new_denorm%NOTFOUND
1074: THEN
1075: l_organization_rec.SIC_CODE_TYPE := fnd_api.g_miss_char;
1076: l_organization_rec.SIC_CODE := fnd_api.g_miss_char;
1077: END IF;
1078: CLOSE c_new_denorm;
1079:
1080: l_party_rec.party_id := l_owner_table_id;
1092: x_return_status,
1093: dss_msg_count,
1094: dss_msg_data);
1095:
1096: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1097: RAISE FND_API.G_EXC_ERROR;
1098: END IF;
1099: END IF;
1100: ELSIF
1093: dss_msg_count,
1094: dss_msg_data);
1095:
1096: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1097: RAISE FND_API.G_EXC_ERROR;
1098: END IF;
1099: END IF;
1100: ELSIF
1101: nvl(p_code_assignment_rec.primary_flag,l_primary_flag)='Y'
1103: nvl(p_code_assignment_rec.start_date_active,l_start_date)<=sysdate
1104: AND
1105: (
1106: nvl(p_code_assignment_rec.end_date_active,l_end_date) is NULL
1107: OR nvl(p_code_assignment_rec.end_date_active,l_end_date)=fnd_api.g_miss_date
1108: OR nvl(p_code_assignment_rec.end_date_active,l_end_date)>sysdate
1109: )
1110: THEN
1111: OPEN c_party_type(nvl(p_code_assignment_rec.owner_table_id,l_owner_table_id));
1141: x_profile_id,
1142: x_return_status,
1143: dss_msg_count,
1144: dss_msg_data);
1145: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1146: RAISE FND_API.G_EXC_ERROR;
1147: END IF;
1148: END IF;
1149: END IF;
1142: x_return_status,
1143: dss_msg_count,
1144: dss_msg_data);
1145: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1146: RAISE FND_API.G_EXC_ERROR;
1147: END IF;
1148: END IF;
1149: END IF;
1150: END IF;
1162: nvl(p_code_assignment_rec.primary_flag,l_primary_flag)='Y'
1163: AND
1164: (
1165: ( nvl(p_code_assignment_rec.end_date_active,l_end_date)<= SYSDATE
1166: AND nvl(p_code_assignment_rec.end_date_active,l_end_date)<> fnd_api.g_miss_date
1167: )
1168: OR
1169: nvl(p_code_assignment_rec.start_date_active,l_start_date)> SYSDATE
1170:
1186: nvl(p_code_assignment_rec.start_date_active,l_start_date)<=sysdate
1187: AND
1188: (
1189: nvl(p_code_assignment_rec.end_date_active,l_end_date) is NULL
1190: OR nvl(p_code_assignment_rec.end_date_active,l_end_date)=fnd_api.g_miss_date
1191: OR nvl(p_code_assignment_rec.end_date_active,l_end_date)>sysdate
1192: )
1193: THEN
1194: update hz_parties
1244: p_class_category_use_rec,
1245: 'C',
1246: x_return_status);
1247:
1248: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1249: RAISE FND_API.G_EXC_ERROR;
1250: END IF;
1251:
1252: HZ_CLASS_CATEGORY_USES_PKG.Insert_Row (
1245: 'C',
1246: x_return_status);
1247:
1248: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1249: RAISE FND_API.G_EXC_ERROR;
1250: END IF;
1251:
1252: HZ_CLASS_CATEGORY_USES_PKG.Insert_Row (
1253: X_CLASS_CATEGORY => p_class_category_use_rec.class_category,
1315: THEN
1316: FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
1317: FND_MESSAGE.SET_TOKEN('TABLE', 'HZ_CLASS_CATEGORY_USES');
1318: FND_MSG_PUB.ADD;
1319: RAISE FND_API.G_EXC_ERROR;
1320: END IF;
1321:
1322: p_object_version_number := nvl(l_object_version_number, 1) + 1;
1323:
1325: FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
1326: FND_MESSAGE.SET_TOKEN('RECORD', 'HZ_CLASS_CATEGORY_USES');
1327: FND_MESSAGE.SET_TOKEN('VALUE', 'p_class_category_use_rec.class_category');
1328: FND_MSG_PUB.ADD;
1329: RAISE FND_API.G_EXC_ERROR;
1330: END;
1331:
1332: -- call for validations.
1333: HZ_CLASS_VALIDATE_V2PUB.validate_class_category_use(
1334: p_class_category_use_rec,
1335: 'U',
1336: x_return_status);
1337:
1338: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1339: RAISE FND_API.G_EXC_ERROR;
1340: END IF;
1341:
1342: -- call to table-handler.
1335: 'U',
1336: x_return_status);
1337:
1338: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1339: RAISE FND_API.G_EXC_ERROR;
1340: END IF;
1341:
1342: -- call to table-handler.
1343: HZ_CLASS_CATEGORY_USES_PKG.Update_Row (
1367: *
1368: * ARGUMENTS
1369: * IN:
1370: * p_init_msg_list Initialize message stack if it is set to
1371: * FND_API.G_TRUE. Default is FND_API.G_FALSE.
1372: * p_class_category_rec Class category record.
1373: * IN/OUT:
1374: * OUT:
1375: * x_return_status Return status after the call. The status can
1372: * p_class_category_rec Class category record.
1373: * IN/OUT:
1374: * OUT:
1375: * x_return_status Return status after the call. The status can
1376: * be FND_API.G_RET_STS_SUCCESS (success),
1377: * FND_API.G_RET_STS_ERROR (error),
1378: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1379: * x_msg_count Number of messages in message stack.
1380: * x_msg_data Message text if x_msg_count is 1.
1373: * IN/OUT:
1374: * OUT:
1375: * x_return_status Return status after the call. The status can
1376: * be FND_API.G_RET_STS_SUCCESS (success),
1377: * FND_API.G_RET_STS_ERROR (error),
1378: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1379: * x_msg_count Number of messages in message stack.
1380: * x_msg_data Message text if x_msg_count is 1.
1381: *
1374: * OUT:
1375: * x_return_status Return status after the call. The status can
1376: * be FND_API.G_RET_STS_SUCCESS (success),
1377: * FND_API.G_RET_STS_ERROR (error),
1378: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1379: * x_msg_count Number of messages in message stack.
1380: * x_msg_data Message text if x_msg_count is 1.
1381: *
1382: * NOTES
1387: *
1388: */
1389:
1390: PROCEDURE create_class_category(
1391: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1392: p_class_category_rec IN CLASS_CATEGORY_REC_TYPE,
1393: x_return_status OUT NOCOPY VARCHAR2,
1394: x_msg_count OUT NOCOPY NUMBER,
1395: x_msg_data OUT NOCOPY VARCHAR2
1402: -- standard start of API savepoint
1403: SAVEPOINT create_class_category;
1404:
1405: -- initialize message list if p_init_msg_list is set to TRUE.
1406: IF FND_API.to_Boolean(p_init_msg_list) THEN
1407: FND_MSG_PUB.initialize;
1408: END IF;
1409:
1410: -- initialize API return status to success.
1407: FND_MSG_PUB.initialize;
1408: END IF;
1409:
1410: -- initialize API return status to success.
1411: x_return_status := FND_API.G_RET_STS_SUCCESS;
1412:
1413: -- call to business logic.
1414: do_create_class_category(
1415: l_class_cat_rec,
1414: do_create_class_category(
1415: l_class_cat_rec,
1416: x_return_status);
1417:
1418: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1419:
1420: -- Invoke business event system.
1421: --Bug 4743141.
1422: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('Y', 'EVENTS_ENABLED')) THEN
1427: END IF;
1428:
1429: -- standard call to get message count and if count is 1, get message info.
1430: FND_MSG_PUB.Count_And_Get(
1431: p_encoded => FND_API.G_FALSE,
1432: p_count => x_msg_count,
1433: p_data => x_msg_data);
1434:
1435: EXCEPTION
1432: p_count => x_msg_count,
1433: p_data => x_msg_data);
1434:
1435: EXCEPTION
1436: WHEN FND_API.G_EXC_ERROR THEN
1437: ROLLBACK TO create_class_category;
1438: x_return_status := FND_API.G_RET_STS_ERROR;
1439: FND_MSG_PUB.Count_And_Get(
1440: p_encoded => FND_API.G_FALSE,
1434:
1435: EXCEPTION
1436: WHEN FND_API.G_EXC_ERROR THEN
1437: ROLLBACK TO create_class_category;
1438: x_return_status := FND_API.G_RET_STS_ERROR;
1439: FND_MSG_PUB.Count_And_Get(
1440: p_encoded => FND_API.G_FALSE,
1441: p_count => x_msg_count,
1442: p_data => x_msg_data);
1436: WHEN FND_API.G_EXC_ERROR THEN
1437: ROLLBACK TO create_class_category;
1438: x_return_status := FND_API.G_RET_STS_ERROR;
1439: FND_MSG_PUB.Count_And_Get(
1440: p_encoded => FND_API.G_FALSE,
1441: p_count => x_msg_count,
1442: p_data => x_msg_data);
1443:
1444: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1440: p_encoded => FND_API.G_FALSE,
1441: p_count => x_msg_count,
1442: p_data => x_msg_data);
1443:
1444: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1445: ROLLBACK TO create_class_category;
1446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1447: FND_MSG_PUB.Count_And_Get(
1448: p_encoded => FND_API.G_FALSE,
1442: p_data => x_msg_data);
1443:
1444: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1445: ROLLBACK TO create_class_category;
1446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1447: FND_MSG_PUB.Count_And_Get(
1448: p_encoded => FND_API.G_FALSE,
1449: p_count => x_msg_count,
1450: p_data => x_msg_data);
1444: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1445: ROLLBACK TO create_class_category;
1446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1447: FND_MSG_PUB.Count_And_Get(
1448: p_encoded => FND_API.G_FALSE,
1449: p_count => x_msg_count,
1450: p_data => x_msg_data);
1451:
1452: WHEN OTHERS THEN
1450: p_data => x_msg_data);
1451:
1452: WHEN OTHERS THEN
1453: ROLLBACK TO create_class_category;
1454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1455: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1456: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1457: FND_MSG_PUB.ADD;
1458: FND_MSG_PUB.Count_And_Get(
1455: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1456: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1457: FND_MSG_PUB.ADD;
1458: FND_MSG_PUB.Count_And_Get(
1459: p_encoded => FND_API.G_FALSE,
1460: p_count => x_msg_count,
1461: p_data => x_msg_data);
1462: END create_class_category;
1463:
1472: *
1473: * ARGUMENTS
1474: * IN:
1475: * p_init_msg_list Initialize message stack if it is set to
1476: * FND_API.G_TRUE. Default is FND_API.G_FALSE.
1477: * p_class_category_rec Class category record.
1478: * IN/OUT:
1479: * p_object_version_number Used for locking the being updated record.
1480: * OUT:
1478: * IN/OUT:
1479: * p_object_version_number Used for locking the being updated record.
1480: * OUT:
1481: * x_return_status Return status after the call. The status can
1482: * be FND_API.G_RET_STS_SUCCESS (success),
1483: * FND_API.G_RET_STS_ERROR (error),
1484: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1485: * x_msg_count Number of messages in message stack.
1486: * x_msg_data Message text if x_msg_count is 1.
1479: * p_object_version_number Used for locking the being updated record.
1480: * OUT:
1481: * x_return_status Return status after the call. The status can
1482: * be FND_API.G_RET_STS_SUCCESS (success),
1483: * FND_API.G_RET_STS_ERROR (error),
1484: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1485: * x_msg_count Number of messages in message stack.
1486: * x_msg_data Message text if x_msg_count is 1.
1487: *
1480: * OUT:
1481: * x_return_status Return status after the call. The status can
1482: * be FND_API.G_RET_STS_SUCCESS (success),
1483: * FND_API.G_RET_STS_ERROR (error),
1484: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1485: * x_msg_count Number of messages in message stack.
1486: * x_msg_data Message text if x_msg_count is 1.
1487: *
1488: * NOTES
1493: *
1494: */
1495:
1496: PROCEDURE update_class_category (
1497: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1498: p_class_category_rec IN CLASS_CATEGORY_REC_TYPE,
1499: p_object_version_number IN OUT NOCOPY NUMBER,
1500: x_return_status OUT NOCOPY VARCHAR2,
1501: x_msg_count OUT NOCOPY NUMBER,
1510: -- standard start of API savepoint
1511: SAVEPOINT update_class_category;
1512:
1513: -- initialize message list if p_init_msg_list is set to TRUE.
1514: IF FND_API.to_Boolean(p_init_msg_list) THEN
1515: FND_MSG_PUB.initialize;
1516: END IF;
1517:
1518: -- initialize API return status to success.
1515: FND_MSG_PUB.initialize;
1516: END IF;
1517:
1518: -- initialize API return status to success.
1519: x_return_status := FND_API.G_RET_STS_SUCCESS;
1520:
1521: -- Get old records. Will be used by business event system.
1522: get_class_category_rec (
1523: p_class_category => l_class_cat_rec.class_category,
1525: x_return_status => x_return_status,
1526: x_msg_count => x_msg_count,
1527: x_msg_data => x_msg_data );
1528:
1529: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1530: RAISE FND_API.G_EXC_ERROR;
1531: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1533: END IF;
1526: x_msg_count => x_msg_count,
1527: x_msg_data => x_msg_data );
1528:
1529: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1530: RAISE FND_API.G_EXC_ERROR;
1531: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1533: END IF;
1534:
1527: x_msg_data => x_msg_data );
1528:
1529: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1530: RAISE FND_API.G_EXC_ERROR;
1531: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1533: END IF;
1534:
1535: -- call to business logic.
1528:
1529: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1530: RAISE FND_API.G_EXC_ERROR;
1531: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1533: END IF;
1534:
1535: -- call to business logic.
1536: do_update_class_category(
1537: l_class_cat_rec,
1538: p_object_version_number,
1539: x_return_status);
1540:
1541: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1542:
1543: -- Invoke business event system.
1544: --Bug 4743141.
1545: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('Y', 'EVENTS_ENABLED')) THEN
1551: END IF;
1552:
1553: -- standard call to get message count and if count is 1, get message info.
1554: FND_MSG_PUB.Count_And_Get(
1555: p_encoded => FND_API.G_FALSE,
1556: p_count => x_msg_count,
1557: p_data => x_msg_data);
1558:
1559: EXCEPTION
1556: p_count => x_msg_count,
1557: p_data => x_msg_data);
1558:
1559: EXCEPTION
1560: WHEN FND_API.G_EXC_ERROR THEN
1561: ROLLBACK TO update_class_category;
1562: x_return_status := FND_API.G_RET_STS_ERROR;
1563: FND_MSG_PUB.Count_And_Get(
1564: p_encoded => FND_API.G_FALSE,
1558:
1559: EXCEPTION
1560: WHEN FND_API.G_EXC_ERROR THEN
1561: ROLLBACK TO update_class_category;
1562: x_return_status := FND_API.G_RET_STS_ERROR;
1563: FND_MSG_PUB.Count_And_Get(
1564: p_encoded => FND_API.G_FALSE,
1565: p_count => x_msg_count,
1566: p_data => x_msg_data);
1560: WHEN FND_API.G_EXC_ERROR THEN
1561: ROLLBACK TO update_class_category;
1562: x_return_status := FND_API.G_RET_STS_ERROR;
1563: FND_MSG_PUB.Count_And_Get(
1564: p_encoded => FND_API.G_FALSE,
1565: p_count => x_msg_count,
1566: p_data => x_msg_data);
1567:
1568: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1564: p_encoded => FND_API.G_FALSE,
1565: p_count => x_msg_count,
1566: p_data => x_msg_data);
1567:
1568: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1569: ROLLBACK TO update_class_category;
1570: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1571: FND_MSG_PUB.Count_And_Get(
1572: p_encoded => FND_API.G_FALSE,
1566: p_data => x_msg_data);
1567:
1568: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1569: ROLLBACK TO update_class_category;
1570: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1571: FND_MSG_PUB.Count_And_Get(
1572: p_encoded => FND_API.G_FALSE,
1573: p_count => x_msg_count,
1574: p_data => x_msg_data);
1568: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1569: ROLLBACK TO update_class_category;
1570: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1571: FND_MSG_PUB.Count_And_Get(
1572: p_encoded => FND_API.G_FALSE,
1573: p_count => x_msg_count,
1574: p_data => x_msg_data);
1575:
1576: WHEN OTHERS THEN
1574: p_data => x_msg_data);
1575:
1576: WHEN OTHERS THEN
1577: ROLLBACK TO update_class_category;
1578: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1579: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1580: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1581: FND_MSG_PUB.ADD;
1582: FND_MSG_PUB.Count_And_Get(
1579: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1580: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1581: FND_MSG_PUB.ADD;
1582: FND_MSG_PUB.Count_And_Get(
1583: p_encoded => FND_API.G_FALSE,
1584: p_count => x_msg_count,
1585: p_data => x_msg_data);
1586:
1587: END update_class_category;
1597: *
1598: * ARGUMENTS
1599: * IN:
1600: * p_init_msg_list Initialize message stack if it is set to
1601: * FND_API.G_TRUE. Default is FND_API.G_FALSE.
1602: * p_class_code_relation_rec Class code relation record.
1603: * IN/OUT:
1604: * OUT:
1605: * x_return_status Return status after the call. The status can
1602: * p_class_code_relation_rec Class code relation record.
1603: * IN/OUT:
1604: * OUT:
1605: * x_return_status Return status after the call. The status can
1606: * be FND_API.G_RET_STS_SUCCESS (success),
1607: * FND_API.G_RET_STS_ERROR (error),
1608: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1609: * x_msg_count Number of messages in message stack.
1610: * x_msg_data Message text if x_msg_count is 1.
1603: * IN/OUT:
1604: * OUT:
1605: * x_return_status Return status after the call. The status can
1606: * be FND_API.G_RET_STS_SUCCESS (success),
1607: * FND_API.G_RET_STS_ERROR (error),
1608: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1609: * x_msg_count Number of messages in message stack.
1610: * x_msg_data Message text if x_msg_count is 1.
1611: *
1604: * OUT:
1605: * x_return_status Return status after the call. The status can
1606: * be FND_API.G_RET_STS_SUCCESS (success),
1607: * FND_API.G_RET_STS_ERROR (error),
1608: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1609: * x_msg_count Number of messages in message stack.
1610: * x_msg_data Message text if x_msg_count is 1.
1611: *
1612: * NOTES
1617: *
1618: */
1619:
1620: PROCEDURE create_class_code_relation(
1621: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1622: p_class_code_relation_rec IN CLASS_CODE_RELATION_REC_TYPE,
1623: x_return_status OUT NOCOPY VARCHAR2,
1624: x_msg_count OUT NOCOPY NUMBER,
1625: x_msg_data OUT NOCOPY VARCHAR2
1632: -- standard start of API savepoint
1633: SAVEPOINT create_class_code_relation;
1634:
1635: -- initialize message list if p_init_msg_list is set to TRUE.
1636: IF FND_API.to_Boolean(p_init_msg_list) THEN
1637: FND_MSG_PUB.initialize;
1638: END IF;
1639:
1640: -- initialize API return status to success.
1637: FND_MSG_PUB.initialize;
1638: END IF;
1639:
1640: -- initialize API return status to success.
1641: x_return_status := FND_API.G_RET_STS_SUCCESS;
1642: -- call to business logic.
1643: do_create_class_code_relation(
1644: l_class_code_rel_rec,
1645: x_return_status);
1643: do_create_class_code_relation(
1644: l_class_code_rel_rec,
1645: x_return_status);
1646:
1647: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1648:
1649: -- Invoke business event system.
1650: --Bug 4743141.
1651: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('Y', 'EVENTS_ENABLED')) THEN
1656: END IF;
1657:
1658: -- standard call to get message count and if count is 1, get message info.
1659: FND_MSG_PUB.Count_And_Get(
1660: p_encoded => FND_API.G_FALSE,
1661: p_count => x_msg_count,
1662: p_data => x_msg_data);
1663:
1664: EXCEPTION
1661: p_count => x_msg_count,
1662: p_data => x_msg_data);
1663:
1664: EXCEPTION
1665: WHEN FND_API.G_EXC_ERROR THEN
1666: ROLLBACK TO create_class_code_relation;
1667: x_return_status := FND_API.G_RET_STS_ERROR;
1668: FND_MSG_PUB.Count_And_Get(
1669: p_encoded => FND_API.G_FALSE,
1663:
1664: EXCEPTION
1665: WHEN FND_API.G_EXC_ERROR THEN
1666: ROLLBACK TO create_class_code_relation;
1667: x_return_status := FND_API.G_RET_STS_ERROR;
1668: FND_MSG_PUB.Count_And_Get(
1669: p_encoded => FND_API.G_FALSE,
1670: p_count => x_msg_count,
1671: p_data => x_msg_data);
1665: WHEN FND_API.G_EXC_ERROR THEN
1666: ROLLBACK TO create_class_code_relation;
1667: x_return_status := FND_API.G_RET_STS_ERROR;
1668: FND_MSG_PUB.Count_And_Get(
1669: p_encoded => FND_API.G_FALSE,
1670: p_count => x_msg_count,
1671: p_data => x_msg_data);
1672:
1673: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1669: p_encoded => FND_API.G_FALSE,
1670: p_count => x_msg_count,
1671: p_data => x_msg_data);
1672:
1673: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1674: ROLLBACK TO create_class_code_relation;
1675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1676: FND_MSG_PUB.Count_And_Get(
1677: p_encoded => FND_API.G_FALSE,
1671: p_data => x_msg_data);
1672:
1673: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1674: ROLLBACK TO create_class_code_relation;
1675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1676: FND_MSG_PUB.Count_And_Get(
1677: p_encoded => FND_API.G_FALSE,
1678: p_count => x_msg_count,
1679: p_data => x_msg_data);
1673: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1674: ROLLBACK TO create_class_code_relation;
1675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1676: FND_MSG_PUB.Count_And_Get(
1677: p_encoded => FND_API.G_FALSE,
1678: p_count => x_msg_count,
1679: p_data => x_msg_data);
1680:
1681: WHEN OTHERS THEN
1679: p_data => x_msg_data);
1680:
1681: WHEN OTHERS THEN
1682: ROLLBACK TO create_class_code_relation;
1683: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1684: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1685: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1686: FND_MSG_PUB.ADD;
1687: FND_MSG_PUB.Count_And_Get(
1684: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1685: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1686: FND_MSG_PUB.ADD;
1687: FND_MSG_PUB.Count_And_Get(
1688: p_encoded => FND_API.G_FALSE,
1689: p_count => x_msg_count,
1690: p_data => x_msg_data);
1691: END create_class_code_relation;
1692:
1701: *
1702: * ARGUMENTS
1703: * IN:
1704: * p_init_msg_list Initialize message stack if it is set to
1705: * FND_API.G_TRUE. Default is FND_API.G_FALSE.
1706: * p_class_code_relation_rec Class code relation record.
1707: * IN/OUT:
1708: * p_object_version_number Used for locking the being updated record.
1709: * OUT:
1707: * IN/OUT:
1708: * p_object_version_number Used for locking the being updated record.
1709: * OUT:
1710: * x_return_status Return status after the call. The status can
1711: * be FND_API.G_RET_STS_SUCCESS (success),
1712: * FND_API.G_RET_STS_ERROR (error),
1713: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1714: * x_msg_count Number of messages in message stack.
1715: * x_msg_data Message text if x_msg_count is 1.
1708: * p_object_version_number Used for locking the being updated record.
1709: * OUT:
1710: * x_return_status Return status after the call. The status can
1711: * be FND_API.G_RET_STS_SUCCESS (success),
1712: * FND_API.G_RET_STS_ERROR (error),
1713: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1714: * x_msg_count Number of messages in message stack.
1715: * x_msg_data Message text if x_msg_count is 1.
1716: *
1709: * OUT:
1710: * x_return_status Return status after the call. The status can
1711: * be FND_API.G_RET_STS_SUCCESS (success),
1712: * FND_API.G_RET_STS_ERROR (error),
1713: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1714: * x_msg_count Number of messages in message stack.
1715: * x_msg_data Message text if x_msg_count is 1.
1716: *
1717: * NOTES
1722: *
1723: */
1724:
1725: PROCEDURE update_class_code_relation(
1726: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1727: p_class_code_relation_rec IN CLASS_CODE_RELATION_REC_TYPE,
1728: p_object_version_number IN OUT NOCOPY NUMBER,
1729: x_return_status OUT NOCOPY VARCHAR2,
1730: x_msg_count OUT NOCOPY NUMBER,
1739: -- standard start of API savepoint
1740: SAVEPOINT update_class_code_relation;
1741:
1742: -- initialize message list if p_init_msg_list is set to TRUE.
1743: IF FND_API.to_Boolean(p_init_msg_list) THEN
1744: FND_MSG_PUB.initialize;
1745: END IF;
1746:
1747: -- initialize API return status to success.
1744: FND_MSG_PUB.initialize;
1745: END IF;
1746:
1747: -- initialize API return status to success.
1748: x_return_status := FND_API.G_RET_STS_SUCCESS;
1749:
1750: -- Get old records. Will be used by business event system.
1751: get_class_code_relation_rec (
1752: p_class_category => l_class_code_rel_rec.class_category,
1757: x_return_status => x_return_status,
1758: x_msg_count => x_msg_count,
1759: x_msg_data => x_msg_data );
1760:
1761: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1762: RAISE FND_API.G_EXC_ERROR;
1763: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1765: END IF;
1758: x_msg_count => x_msg_count,
1759: x_msg_data => x_msg_data );
1760:
1761: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1762: RAISE FND_API.G_EXC_ERROR;
1763: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1765: END IF;
1766:
1759: x_msg_data => x_msg_data );
1760:
1761: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1762: RAISE FND_API.G_EXC_ERROR;
1763: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1765: END IF;
1766:
1767: -- call to business logic.
1760:
1761: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1762: RAISE FND_API.G_EXC_ERROR;
1763: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1765: END IF;
1766:
1767: -- call to business logic.
1768: do_update_class_code_relation(
1769: l_class_code_rel_rec,
1770: p_object_version_number,
1771: x_return_status);
1772:
1773: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1774:
1775: -- Invoke business event system.
1776: --Bug 4743141.
1777: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('Y', 'EVENTS_ENABLED')) THEN
1783: END IF;
1784:
1785: -- standard call to get message count and if count is 1, get message info.
1786: FND_MSG_PUB.Count_And_Get(
1787: p_encoded => FND_API.G_FALSE,
1788: p_count => x_msg_count,
1789: p_data => x_msg_data);
1790:
1791: EXCEPTION
1788: p_count => x_msg_count,
1789: p_data => x_msg_data);
1790:
1791: EXCEPTION
1792: WHEN FND_API.G_EXC_ERROR THEN
1793: ROLLBACK TO update_class_code_relation;
1794: x_return_status := FND_API.G_RET_STS_ERROR;
1795: FND_MSG_PUB.Count_And_Get(
1796: p_encoded => FND_API.G_FALSE,
1790:
1791: EXCEPTION
1792: WHEN FND_API.G_EXC_ERROR THEN
1793: ROLLBACK TO update_class_code_relation;
1794: x_return_status := FND_API.G_RET_STS_ERROR;
1795: FND_MSG_PUB.Count_And_Get(
1796: p_encoded => FND_API.G_FALSE,
1797: p_count => x_msg_count,
1798: p_data => x_msg_data);
1792: WHEN FND_API.G_EXC_ERROR THEN
1793: ROLLBACK TO update_class_code_relation;
1794: x_return_status := FND_API.G_RET_STS_ERROR;
1795: FND_MSG_PUB.Count_And_Get(
1796: p_encoded => FND_API.G_FALSE,
1797: p_count => x_msg_count,
1798: p_data => x_msg_data);
1799:
1800: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1796: p_encoded => FND_API.G_FALSE,
1797: p_count => x_msg_count,
1798: p_data => x_msg_data);
1799:
1800: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1801: ROLLBACK TO update_class_code_relation;
1802: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1803: FND_MSG_PUB.Count_And_Get(
1804: p_encoded => FND_API.G_FALSE,
1798: p_data => x_msg_data);
1799:
1800: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1801: ROLLBACK TO update_class_code_relation;
1802: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1803: FND_MSG_PUB.Count_And_Get(
1804: p_encoded => FND_API.G_FALSE,
1805: p_count => x_msg_count,
1806: p_data => x_msg_data);
1800: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1801: ROLLBACK TO update_class_code_relation;
1802: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1803: FND_MSG_PUB.Count_And_Get(
1804: p_encoded => FND_API.G_FALSE,
1805: p_count => x_msg_count,
1806: p_data => x_msg_data);
1807:
1808: WHEN OTHERS THEN
1806: p_data => x_msg_data);
1807:
1808: WHEN OTHERS THEN
1809: ROLLBACK TO update_class_code_relation;
1810: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1811: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1812: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1813: FND_MSG_PUB.ADD;
1814: FND_MSG_PUB.Count_And_Get(
1811: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1812: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1813: FND_MSG_PUB.ADD;
1814: FND_MSG_PUB.Count_And_Get(
1815: p_encoded => FND_API.G_FALSE,
1816: p_count => x_msg_count,
1817: p_data => x_msg_data);
1818:
1819: END update_class_code_relation;
1829: *
1830: * ARGUMENTS
1831: * IN:
1832: * p_init_msg_list Initialize message stack if it is set to
1833: * FND_API.G_TRUE. Default is FND_API.G_FALSE.
1834: * p_code_assignement_rec Code assignment record.
1835: * IN/OUT:
1836: * OUT:
1837: * x_return_status Return status after the call. The status can
1834: * p_code_assignement_rec Code assignment record.
1835: * IN/OUT:
1836: * OUT:
1837: * x_return_status Return status after the call. The status can
1838: * be FND_API.G_RET_STS_SUCCESS (success),
1839: * FND_API.G_RET_STS_ERROR (error),
1840: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1841: * x_msg_count Number of messages in message stack.
1842: * x_msg_data Message text if x_msg_count is 1.
1835: * IN/OUT:
1836: * OUT:
1837: * x_return_status Return status after the call. The status can
1838: * be FND_API.G_RET_STS_SUCCESS (success),
1839: * FND_API.G_RET_STS_ERROR (error),
1840: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1841: * x_msg_count Number of messages in message stack.
1842: * x_msg_data Message text if x_msg_count is 1.
1843: * x_code_assignment_id Code assignment ID.
1836: * OUT:
1837: * x_return_status Return status after the call. The status can
1838: * be FND_API.G_RET_STS_SUCCESS (success),
1839: * FND_API.G_RET_STS_ERROR (error),
1840: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1841: * x_msg_count Number of messages in message stack.
1842: * x_msg_data Message text if x_msg_count is 1.
1843: * x_code_assignment_id Code assignment ID.
1844: *
1858:
1859: */
1860:
1861: PROCEDURE create_code_assignment(
1862: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1863: p_code_assignment_rec IN CODE_ASSIGNMENT_REC_TYPE,
1864: x_return_status OUT NOCOPY VARCHAR2,
1865: x_msg_count OUT NOCOPY NUMBER,
1866: x_msg_data OUT NOCOPY VARCHAR2,
1877: -- standard start of API savepoint
1878: SAVEPOINT create_code_assignment;
1879:
1880: -- initialize message list if p_init_msg_list is set to TRUE.
1881: IF FND_API.to_Boolean(p_init_msg_list) THEN
1882: FND_MSG_PUB.initialize;
1883: END IF;
1884:
1885: -- initialize API return status to success.
1882: FND_MSG_PUB.initialize;
1883: END IF;
1884:
1885: -- initialize API return status to success.
1886: x_return_status := FND_API.G_RET_STS_SUCCESS;
1887:
1888: -- SSM SST Integration and Extension
1889: HZ_MIXNM_UTILITY.AssignDataSourceDuringCreation (
1890: p_entity_name => 'HZ_CODE_ASSIGNMENTS',
1905:
1906: -- assign out NOCOPY param
1907: x_code_assignment_id := l_code_assignment_rec.code_assignment_id;
1908:
1909: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1910: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('Y', 'EVENTS_ENABLED')) THEN
1911: -- Invoke business event system.
1912: HZ_BUSINESS_EVENT_V2PVT.create_code_assignment_event (
1913: l_code_assignment_rec );
1921: END IF;
1922:
1923: -- standard call to get message count and if count is 1, get message info.
1924: FND_MSG_PUB.Count_And_Get(
1925: p_encoded => FND_API.G_FALSE,
1926: p_count => x_msg_count,
1927: p_data => x_msg_data);
1928:
1929: EXCEPTION
1926: p_count => x_msg_count,
1927: p_data => x_msg_data);
1928:
1929: EXCEPTION
1930: WHEN FND_API.G_EXC_ERROR THEN
1931: ROLLBACK TO create_code_assignment;
1932: x_return_status := FND_API.G_RET_STS_ERROR;
1933: FND_MSG_PUB.Count_And_Get(
1934: p_encoded => FND_API.G_FALSE,
1928:
1929: EXCEPTION
1930: WHEN FND_API.G_EXC_ERROR THEN
1931: ROLLBACK TO create_code_assignment;
1932: x_return_status := FND_API.G_RET_STS_ERROR;
1933: FND_MSG_PUB.Count_And_Get(
1934: p_encoded => FND_API.G_FALSE,
1935: p_count => x_msg_count,
1936: p_data => x_msg_data);
1930: WHEN FND_API.G_EXC_ERROR THEN
1931: ROLLBACK TO create_code_assignment;
1932: x_return_status := FND_API.G_RET_STS_ERROR;
1933: FND_MSG_PUB.Count_And_Get(
1934: p_encoded => FND_API.G_FALSE,
1935: p_count => x_msg_count,
1936: p_data => x_msg_data);
1937:
1938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1934: p_encoded => FND_API.G_FALSE,
1935: p_count => x_msg_count,
1936: p_data => x_msg_data);
1937:
1938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1939: ROLLBACK TO create_code_assignment;
1940: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1941: FND_MSG_PUB.Count_And_Get(
1942: p_encoded => FND_API.G_FALSE,
1936: p_data => x_msg_data);
1937:
1938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1939: ROLLBACK TO create_code_assignment;
1940: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1941: FND_MSG_PUB.Count_And_Get(
1942: p_encoded => FND_API.G_FALSE,
1943: p_count => x_msg_count,
1944: p_data => x_msg_data);
1938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1939: ROLLBACK TO create_code_assignment;
1940: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1941: FND_MSG_PUB.Count_And_Get(
1942: p_encoded => FND_API.G_FALSE,
1943: p_count => x_msg_count,
1944: p_data => x_msg_data);
1945:
1946: WHEN OTHERS THEN
1944: p_data => x_msg_data);
1945:
1946: WHEN OTHERS THEN
1947: ROLLBACK TO create_code_assignment;
1948: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1949: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1950: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1951: FND_MSG_PUB.ADD;
1952: FND_MSG_PUB.Count_And_Get(
1949: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
1950: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1951: FND_MSG_PUB.ADD;
1952: FND_MSG_PUB.Count_And_Get(
1953: p_encoded => FND_API.G_FALSE,
1954: p_count => x_msg_count,
1955: p_data => x_msg_data);
1956: END create_code_assignment;
1957:
1966: *
1967: * ARGUMENTS
1968: * IN:
1969: * p_init_msg_list Initialize message stack if it is set to
1970: * FND_API.G_TRUE. Default is FND_API.G_FALSE.
1971: * p_code_assignment_rec Code assignment record.
1972: * IN/OUT:
1973: * p_object_version_number Used for locking the being updated record.
1974: * OUT:
1972: * IN/OUT:
1973: * p_object_version_number Used for locking the being updated record.
1974: * OUT:
1975: * x_return_status Return status after the call. The status can
1976: * be FND_API.G_RET_STS_SUCCESS (success),
1977: * FND_API.G_RET_STS_ERROR (error),
1978: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1979: * x_msg_count Number of messages in message stack.
1980: * x_msg_data Message text if x_msg_count is 1.
1973: * p_object_version_number Used for locking the being updated record.
1974: * OUT:
1975: * x_return_status Return status after the call. The status can
1976: * be FND_API.G_RET_STS_SUCCESS (success),
1977: * FND_API.G_RET_STS_ERROR (error),
1978: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1979: * x_msg_count Number of messages in message stack.
1980: * x_msg_data Message text if x_msg_count is 1.
1981: *
1974: * OUT:
1975: * x_return_status Return status after the call. The status can
1976: * be FND_API.G_RET_STS_SUCCESS (success),
1977: * FND_API.G_RET_STS_ERROR (error),
1978: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
1979: * x_msg_count Number of messages in message stack.
1980: * x_msg_data Message text if x_msg_count is 1.
1981: *
1982: * NOTES
1987: * 29-MAY-2003 Jyoti Pandey o Make the API protected by Data security Bug 2963010
1988: */
1989:
1990: PROCEDURE update_code_assignment (
1991: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
1992: p_code_assignment_rec IN CODE_ASSIGNMENT_REC_TYPE,
1993: p_object_version_number IN OUT NOCOPY NUMBER,
1994: x_return_status OUT NOCOPY VARCHAR2,
1995: x_msg_count OUT NOCOPY NUMBER,
1998:
1999: l_code_assignment_rec CODE_ASSIGNMENT_REC_TYPE := p_code_assignment_rec;
2000: l_old_code_assignment_rec CODE_ASSIGNMENT_REC_TYPE;
2001:
2002: dss_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2003: dss_msg_count NUMBER := 0;
2004: dss_msg_data VARCHAR2(2000):= null;
2005: l_test_security VARCHAR2(1):= 'F';
2006:
2009: -- standard start of API savepoint
2010: SAVEPOINT update_code_assignment;
2011:
2012: -- initialize message list if p_init_msg_list is set to TRUE.
2013: IF FND_API.to_Boolean(p_init_msg_list) THEN
2014: FND_MSG_PUB.initialize;
2015: END IF;
2016:
2017: -- initialize API return status to success.
2014: FND_MSG_PUB.initialize;
2015: END IF;
2016:
2017: -- initialize API return status to success.
2018: x_return_status := FND_API.G_RET_STS_SUCCESS;
2019:
2020: -- Get old records. Will be used by business event system.
2021: get_code_assignment_rec (
2022: p_code_assignment_id => l_code_assignment_rec.code_assignment_id,
2025: x_msg_count => x_msg_count,
2026: x_msg_data => x_msg_data );
2027:
2028: -- Bug:2154581
2029: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
2030: IF l_code_assignment_rec.start_date_active IS NULL OR
2031: l_code_assignment_rec.start_date_active = FND_API.G_MISS_DATE THEN
2032: l_code_assignment_rec.start_date_active := l_old_code_assignment_rec.start_date_active;
2033: END IF;
2027:
2028: -- Bug:2154581
2029: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
2030: IF l_code_assignment_rec.start_date_active IS NULL OR
2031: l_code_assignment_rec.start_date_active = FND_API.G_MISS_DATE THEN
2032: l_code_assignment_rec.start_date_active := l_old_code_assignment_rec.start_date_active;
2033: END IF;
2034: END IF;
2035: --
2032: l_code_assignment_rec.start_date_active := l_old_code_assignment_rec.start_date_active;
2033: END IF;
2034: END IF;
2035: --
2036: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2037: RAISE FND_API.G_EXC_ERROR;
2038: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2039: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2040: END IF;
2033: END IF;
2034: END IF;
2035: --
2036: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2037: RAISE FND_API.G_EXC_ERROR;
2038: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2039: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2040: END IF;
2041:
2034: END IF;
2035: --
2036: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2037: RAISE FND_API.G_EXC_ERROR;
2038: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2039: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2040: END IF;
2041:
2042: ---Bug 2963010 make table HZ_CODE_ASSIGNMENTS protected by Data Security
2035: --
2036: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2037: RAISE FND_API.G_EXC_ERROR;
2038: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2039: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2040: END IF;
2041:
2042: ---Bug 2963010 make table HZ_CODE_ASSIGNMENTS protected by Data Security
2043: ---Check if the DSS security is granted to the user
2057: x_return_status => dss_return_status,
2058: x_msg_count => dss_msg_count,
2059: x_msg_data => dss_msg_data);
2060:
2061: if dss_return_status <> fnd_api.g_ret_sts_success THEN
2062: RAISE FND_API.G_EXC_ERROR;
2063: end if;
2064:
2065: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
2058: x_msg_count => dss_msg_count,
2059: x_msg_data => dss_msg_data);
2060:
2061: if dss_return_status <> fnd_api.g_ret_sts_success THEN
2062: RAISE FND_API.G_EXC_ERROR;
2063: end if;
2064:
2065: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
2066: --
2061: if dss_return_status <> fnd_api.g_ret_sts_success THEN
2062: RAISE FND_API.G_EXC_ERROR;
2063: end if;
2064:
2065: if (l_test_security <> 'T' OR l_test_security <> FND_API.G_TRUE) then
2066: --
2067: -- Bug 3835601: replaced the dss message with a more user friendly message
2068: --
2069: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_UPDATE_PRIVILEGE');
2068: --
2069: FND_MESSAGE.SET_NAME('AR', 'HZ_DSS_NO_UPDATE_PRIVILEGE');
2070: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',
2071: hz_dss_util_pub.get_display_name('HZ_CODE_ASSIGNMENTS', null)); FND_MSG_PUB.ADD;
2072: RAISE FND_API.G_EXC_ERROR;
2073: end if;
2074: END IF;
2075:
2076: --Call to business logic.
2078: l_code_assignment_rec,
2079: p_object_version_number,
2080: x_return_status);
2081:
2082: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
2083: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('Y', 'EVENTS_ENABLED')) THEN
2084: -- Invoke business event system.
2085: HZ_BUSINESS_EVENT_V2PVT.update_code_assignment_event (
2086: l_code_assignment_rec,
2096:
2097: HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
2098: -- standard call to get message count and if count is 1, get message info.
2099: FND_MSG_PUB.Count_And_Get(
2100: p_encoded => FND_API.G_FALSE,
2101: p_count => x_msg_count,
2102: p_data => x_msg_data);
2103:
2104: EXCEPTION
2101: p_count => x_msg_count,
2102: p_data => x_msg_data);
2103:
2104: EXCEPTION
2105: WHEN FND_API.G_EXC_ERROR THEN
2106: ROLLBACK TO update_code_assignment;
2107: HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
2108: x_return_status := FND_API.G_RET_STS_ERROR;
2109: FND_MSG_PUB.Count_And_Get(
2104: EXCEPTION
2105: WHEN FND_API.G_EXC_ERROR THEN
2106: ROLLBACK TO update_code_assignment;
2107: HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
2108: x_return_status := FND_API.G_RET_STS_ERROR;
2109: FND_MSG_PUB.Count_And_Get(
2110: p_encoded => FND_API.G_FALSE,
2111: p_count => x_msg_count,
2112: p_data => x_msg_data);
2106: ROLLBACK TO update_code_assignment;
2107: HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
2108: x_return_status := FND_API.G_RET_STS_ERROR;
2109: FND_MSG_PUB.Count_And_Get(
2110: p_encoded => FND_API.G_FALSE,
2111: p_count => x_msg_count,
2112: p_data => x_msg_data);
2113:
2114: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2110: p_encoded => FND_API.G_FALSE,
2111: p_count => x_msg_count,
2112: p_data => x_msg_data);
2113:
2114: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2115: ROLLBACK TO update_code_assignment;
2116: HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
2117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2118: FND_MSG_PUB.Count_And_Get(
2113:
2114: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2115: ROLLBACK TO update_code_assignment;
2116: HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
2117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2118: FND_MSG_PUB.Count_And_Get(
2119: p_encoded => FND_API.G_FALSE,
2120: p_count => x_msg_count,
2121: p_data => x_msg_data);
2115: ROLLBACK TO update_code_assignment;
2116: HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
2117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2118: FND_MSG_PUB.Count_And_Get(
2119: p_encoded => FND_API.G_FALSE,
2120: p_count => x_msg_count,
2121: p_data => x_msg_data);
2122:
2123: WHEN OTHERS THEN
2122:
2123: WHEN OTHERS THEN
2124: ROLLBACK TO update_code_assignment;
2125: HZ_UTILITY_V2PUB.G_UPDATE_ACS := NULL;
2126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2127: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2128: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2129: FND_MSG_PUB.ADD;
2130: FND_MSG_PUB.Count_And_Get(
2127: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2128: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2129: FND_MSG_PUB.ADD;
2130: FND_MSG_PUB.Count_And_Get(
2131: p_encoded => FND_API.G_FALSE,
2132: p_count => x_msg_count,
2133: p_data => x_msg_data);
2134:
2135: END update_code_assignment;
2144: *
2145: * ARGUMENTS
2146: * IN:
2147: * p_init_msg_list Initialize message stack if it is set to
2148: * FND_API.G_TRUE. Default is FND_API.G_FALSE.
2149: * p_owner_table_name Owner table name.
2150: * p_owner_table_id Owner table ID.
2151: * p_class_category Class category.
2152: * p_class_code Class code.
2155: * IN/OUT:
2156: * OUT:
2157: * x_code_assignment_id Code assignment ID.
2158: * x_return_status Return status after the call. The status can
2159: * be FND_API.G_RET_STS_SUCCESS (success),
2160: * FND_API.G_RET_STS_ERROR (error),
2161: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
2162: * x_msg_count Number of messages in message stack.
2163: * x_msg_data Message text if x_msg_count is 1.
2156: * OUT:
2157: * x_code_assignment_id Code assignment ID.
2158: * x_return_status Return status after the call. The status can
2159: * be FND_API.G_RET_STS_SUCCESS (success),
2160: * FND_API.G_RET_STS_ERROR (error),
2161: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
2162: * x_msg_count Number of messages in message stack.
2163: * x_msg_data Message text if x_msg_count is 1.
2164: *
2157: * x_code_assignment_id Code assignment ID.
2158: * x_return_status Return status after the call. The status can
2159: * be FND_API.G_RET_STS_SUCCESS (success),
2160: * FND_API.G_RET_STS_ERROR (error),
2161: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
2162: * x_msg_count Number of messages in message stack.
2163: * x_msg_data Message text if x_msg_count is 1.
2164: *
2165: * NOTES
2171: *
2172: */
2173:
2174: PROCEDURE set_primary_code_assignment(
2175: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2176: p_owner_table_name IN VARCHAR2,
2177: p_owner_table_id IN NUMBER,
2178: p_class_category IN VARCHAR2,
2179: p_class_code IN VARCHAR2,
2210: --Standard start of API savepoint
2211: SAVEPOINT set_primary_code_assign;
2212:
2213: --Initialize message list if p_init_msg_list is set to TRUE.
2214: IF FND_API.to_Boolean(p_init_msg_list) THEN
2215: FND_MSG_PUB.initialize;
2216: END IF;
2217:
2218: --Initialize API return status to success.
2215: FND_MSG_PUB.initialize;
2216: END IF;
2217:
2218: --Initialize API return status to success.
2219: x_return_status := FND_API.G_RET_STS_SUCCESS;
2220:
2221: -- the assignment exists?
2222: l_count := 0;
2223: OPEN c_code_assign(
2255: WHERE code_assignment_id = l_rec.code_assignment_id;
2256: --WHERE CURRENT OF c_code_assign;
2257:
2258: -- Bug 3876180
2259: IF(p_class_code=fnd_api.g_miss_char)
2260: THEN
2261: l_count := l_count + 1;
2262: x_code_assignment_id := l_rec.code_assignment_id;
2263: END IF;
2276: END IF;
2277: END LOOP;
2278: CLOSE c_code_assign;
2279: -- Bug 6982657
2280: IF (l_count = 0) AND (NVL(p_class_code,fnd_api.g_miss_char) <> fnd_api.g_miss_char)
2281: THEN
2282: l_code_assign_rec.owner_table_name := p_owner_table_name;
2283: l_code_assign_rec.owner_table_id := p_owner_table_id;
2284: l_code_assign_rec.class_category := p_class_category;
2301: END IF;
2302:
2303: --Standard call to get message count and if count is 1, get message info.
2304: FND_MSG_PUB.Count_And_Get(
2305: p_encoded => FND_API.G_FALSE,
2306: p_count => x_msg_count,
2307: p_data => x_msg_data);
2308:
2309: EXCEPTION
2306: p_count => x_msg_count,
2307: p_data => x_msg_data);
2308:
2309: EXCEPTION
2310: WHEN FND_API.G_EXC_ERROR THEN
2311: ROLLBACK TO set_primary_code_assign;
2312: x_return_status := FND_API.G_RET_STS_ERROR;
2313: FND_MSG_PUB.Count_And_Get(
2314: p_encoded => FND_API.G_FALSE,
2308:
2309: EXCEPTION
2310: WHEN FND_API.G_EXC_ERROR THEN
2311: ROLLBACK TO set_primary_code_assign;
2312: x_return_status := FND_API.G_RET_STS_ERROR;
2313: FND_MSG_PUB.Count_And_Get(
2314: p_encoded => FND_API.G_FALSE,
2315: p_count => x_msg_count,
2316: p_data => x_msg_data);
2310: WHEN FND_API.G_EXC_ERROR THEN
2311: ROLLBACK TO set_primary_code_assign;
2312: x_return_status := FND_API.G_RET_STS_ERROR;
2313: FND_MSG_PUB.Count_And_Get(
2314: p_encoded => FND_API.G_FALSE,
2315: p_count => x_msg_count,
2316: p_data => x_msg_data);
2317:
2318: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2314: p_encoded => FND_API.G_FALSE,
2315: p_count => x_msg_count,
2316: p_data => x_msg_data);
2317:
2318: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2319: ROLLBACK TO set_primary_code_assign;
2320: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2321: FND_MSG_PUB.Count_And_Get(
2322: p_encoded => FND_API.G_FALSE,
2316: p_data => x_msg_data);
2317:
2318: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2319: ROLLBACK TO set_primary_code_assign;
2320: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2321: FND_MSG_PUB.Count_And_Get(
2322: p_encoded => FND_API.G_FALSE,
2323: p_count => x_msg_count,
2324: p_data => x_msg_data);
2318: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2319: ROLLBACK TO set_primary_code_assign;
2320: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2321: FND_MSG_PUB.Count_And_Get(
2322: p_encoded => FND_API.G_FALSE,
2323: p_count => x_msg_count,
2324: p_data => x_msg_data);
2325:
2326: WHEN OTHERS THEN
2324: p_data => x_msg_data);
2325:
2326: WHEN OTHERS THEN
2327: ROLLBACK TO set_primary_code_assign;
2328: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2329: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2330: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2331: FND_MSG_PUB.ADD;
2332: FND_MSG_PUB.Count_And_Get(
2329: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
2330: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2331: FND_MSG_PUB.ADD;
2332: FND_MSG_PUB.Count_And_Get(
2333: p_encoded => FND_API.G_FALSE,
2334: p_count => x_msg_count,
2335: p_data => x_msg_data);
2336: END;
2337:
2346: *
2347: * ARGUMENTS
2348: * IN:
2349: * p_init_msg_list Initialize message stack if it is set to
2350: * FND_API.G_TRUE. Default is FND_API.G_FALSE.
2351: * p_class_category_use_rec Class category use record.
2352: * IN/OUT:
2353: * OUT:
2354: * x_return_status Return status after the call. The status can
2351: * p_class_category_use_rec Class category use record.
2352: * IN/OUT:
2353: * OUT:
2354: * x_return_status Return status after the call. The status can
2355: * be FND_API.G_RET_STS_SUCCESS (success),
2356: * FND_API.G_RET_STS_ERROR (error),
2357: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
2358: * x_msg_count Number of messages in message stack.
2359: * x_msg_data Message text if x_msg_count is 1.
2352: * IN/OUT:
2353: * OUT:
2354: * x_return_status Return status after the call. The status can
2355: * be FND_API.G_RET_STS_SUCCESS (success),
2356: * FND_API.G_RET_STS_ERROR (error),
2357: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
2358: * x_msg_count Number of messages in message stack.
2359: * x_msg_data Message text if x_msg_count is 1.
2360: *
2353: * OUT:
2354: * x_return_status Return status after the call. The status can
2355: * be FND_API.G_RET_STS_SUCCESS (success),
2356: * FND_API.G_RET_STS_ERROR (error),
2357: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
2358: * x_msg_count Number of messages in message stack.
2359: * x_msg_data Message text if x_msg_count is 1.
2360: *
2361: * NOTES
2366: *
2367: */
2368:
2369: PROCEDURE create_class_category_use(
2370: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2371: p_class_category_use_rec IN CLASS_CATEGORY_USE_REC_TYPE,
2372: x_return_status OUT NOCOPY VARCHAR2,
2373: x_msg_count OUT NOCOPY NUMBER,
2374: x_msg_data OUT NOCOPY VARCHAR2
2381: -- standard save point
2382: SAVEPOINT create_class_category_use;
2383:
2384: -- initialize message list if p_init_msg_list is TRUE
2385: IF FND_API.to_Boolean(p_init_msg_list) THEN
2386: FND_MSG_PUB.INITIALIZE;
2387: END IF;
2388:
2389: -- initialize API return status to SUCCESS
2386: FND_MSG_PUB.INITIALIZE;
2387: END IF;
2388:
2389: -- initialize API return status to SUCCESS
2390: x_return_status := FND_API.G_RET_STS_SUCCESS;
2391:
2392: -- call to business logic
2393: do_create_class_category_use(
2394: l_class_category_use_rec,
2393: do_create_class_category_use(
2394: l_class_category_use_rec,
2395: x_return_status);
2396:
2397: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
2398:
2399: -- Invoke business event system.
2400: --Bug 4743141.
2401: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('Y', 'EVENTS_ENABLED')) THEN
2406: END IF;
2407:
2408: -- standard Call to get message count and if count is 1 get message info.
2409: FND_MSG_PUB.count_and_get(
2410: p_encoded => fnd_api.g_false,
2411: p_count => x_msg_count,
2412: p_data => x_msg_data );
2413:
2414: EXCEPTION
2411: p_count => x_msg_count,
2412: p_data => x_msg_data );
2413:
2414: EXCEPTION
2415: WHEN FND_API.G_EXC_ERROR THEN
2416: ROLLBACK TO create_class_category_use;
2417: x_return_status := FND_API.G_RET_STS_ERROR;
2418: FND_MSG_PUB.Count_And_Get(
2419: p_encoded => FND_API.G_FALSE,
2413:
2414: EXCEPTION
2415: WHEN FND_API.G_EXC_ERROR THEN
2416: ROLLBACK TO create_class_category_use;
2417: x_return_status := FND_API.G_RET_STS_ERROR;
2418: FND_MSG_PUB.Count_And_Get(
2419: p_encoded => FND_API.G_FALSE,
2420: p_count => x_msg_count,
2421: p_data => x_msg_data );
2415: WHEN FND_API.G_EXC_ERROR THEN
2416: ROLLBACK TO create_class_category_use;
2417: x_return_status := FND_API.G_RET_STS_ERROR;
2418: FND_MSG_PUB.Count_And_Get(
2419: p_encoded => FND_API.G_FALSE,
2420: p_count => x_msg_count,
2421: p_data => x_msg_data );
2422:
2423: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2419: p_encoded => FND_API.G_FALSE,
2420: p_count => x_msg_count,
2421: p_data => x_msg_data );
2422:
2423: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2424: ROLLBACK TO create_class_category_use;
2425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2426: FND_MSG_PUB.Count_And_Get(
2427: p_encoded => FND_API.G_FALSE,
2421: p_data => x_msg_data );
2422:
2423: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2424: ROLLBACK TO create_class_category_use;
2425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2426: FND_MSG_PUB.Count_And_Get(
2427: p_encoded => FND_API.G_FALSE,
2428: p_count => x_msg_count,
2429: p_data => x_msg_data );
2423: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2424: ROLLBACK TO create_class_category_use;
2425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2426: FND_MSG_PUB.Count_And_Get(
2427: p_encoded => FND_API.G_FALSE,
2428: p_count => x_msg_count,
2429: p_data => x_msg_data );
2430:
2431: WHEN OTHERS THEN
2429: p_data => x_msg_data );
2430:
2431: WHEN OTHERS THEN
2432: ROLLBACK TO create_class_category_use;
2433: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2434: FND_MESSAGE.Set_Name('AR','HZ_API_OTHERS_EXCEP');
2435: FND_MESSAGE.Set_Token('ERROR',SQLERRM);
2436: FND_MSG_PUB.Count_And_Get(
2437: p_encoded => FND_API.G_FALSE,
2433: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2434: FND_MESSAGE.Set_Name('AR','HZ_API_OTHERS_EXCEP');
2435: FND_MESSAGE.Set_Token('ERROR',SQLERRM);
2436: FND_MSG_PUB.Count_And_Get(
2437: p_encoded => FND_API.G_FALSE,
2438: p_count => x_msg_count,
2439: p_data => x_msg_data );
2440:
2441: END create_class_category_use;
2451: *
2452: * ARGUMENTS
2453: * IN:
2454: * p_init_msg_list Initialize message stack if it is set to
2455: * FND_API.G_TRUE. Default is FND_API.G_FALSE.
2456: * p_class_category_use_rec Class category use record.
2457: * IN/OUT:
2458: * p_object_version_number Used for locking the being updated record.
2459: * OUT:
2457: * IN/OUT:
2458: * p_object_version_number Used for locking the being updated record.
2459: * OUT:
2460: * x_return_status Return status after the call. The status can
2461: * be FND_API.G_RET_STS_SUCCESS (success),
2462: * FND_API.G_RET_STS_ERROR (error),
2463: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
2464: * x_msg_count Number of messages in message stack.
2465: * x_msg_data Message text if x_msg_count is 1.
2458: * p_object_version_number Used for locking the being updated record.
2459: * OUT:
2460: * x_return_status Return status after the call. The status can
2461: * be FND_API.G_RET_STS_SUCCESS (success),
2462: * FND_API.G_RET_STS_ERROR (error),
2463: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
2464: * x_msg_count Number of messages in message stack.
2465: * x_msg_data Message text if x_msg_count is 1.
2466: *
2459: * OUT:
2460: * x_return_status Return status after the call. The status can
2461: * be FND_API.G_RET_STS_SUCCESS (success),
2462: * FND_API.G_RET_STS_ERROR (error),
2463: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
2464: * x_msg_count Number of messages in message stack.
2465: * x_msg_data Message text if x_msg_count is 1.
2466: *
2467: * NOTES
2472: *
2473: */
2474:
2475: PROCEDURE update_class_category_use(
2476: p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE,
2477: p_class_category_use_rec IN CLASS_CATEGORY_USE_REC_TYPE,
2478: p_object_version_number IN OUT NOCOPY NUMBER,
2479: x_return_status OUT NOCOPY VARCHAR2,
2480: x_msg_count OUT NOCOPY NUMBER,
2489: -- standard start of API savepoint
2490: SAVEPOINT update_class_category_use;
2491:
2492: -- initialize message list if p_init_msg_list is set to TRUE.
2493: IF FND_API.to_Boolean(p_init_msg_list) THEN
2494: FND_MSG_PUB.initialize;
2495: END IF;
2496:
2497: -- Initialize API return status to success.
2494: FND_MSG_PUB.initialize;
2495: END IF;
2496:
2497: -- Initialize API return status to success.
2498: x_return_status := FND_API.G_RET_STS_SUCCESS;
2499:
2500: -- Get old records. Will be used by business event system.
2501: get_class_category_use_rec (
2502: p_class_category => l_class_cat_use_rec.class_category,
2505: x_return_status => x_return_status,
2506: x_msg_count => x_msg_count,
2507: x_msg_data => x_msg_data );
2508:
2509: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2510: RAISE FND_API.G_EXC_ERROR;
2511: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2512: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2513: END IF;
2506: x_msg_count => x_msg_count,
2507: x_msg_data => x_msg_data );
2508:
2509: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2510: RAISE FND_API.G_EXC_ERROR;
2511: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2512: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2513: END IF;
2514:
2507: x_msg_data => x_msg_data );
2508:
2509: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2510: RAISE FND_API.G_EXC_ERROR;
2511: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2512: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2513: END IF;
2514:
2515: -- call to business logic.
2508:
2509: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2510: RAISE FND_API.G_EXC_ERROR;
2511: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2512: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2513: END IF;
2514:
2515: -- call to business logic.
2516: do_update_class_category_use(
2517: l_class_cat_use_rec,
2518: p_object_version_number,
2519: x_return_status);
2520:
2521: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
2522:
2523: -- Invoke business event system.
2524: --Bug 4743141.
2525: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('Y', 'EVENTS_ENABLED')) THEN
2531: END IF;
2532:
2533: -- standard call to get message count and if count is 1, get message info.
2534: FND_MSG_PUB.Count_And_Get(
2535: p_encoded => FND_API.G_FALSE,
2536: p_count => x_msg_count,
2537: p_data => x_msg_data);
2538:
2539: EXCEPTION
2536: p_count => x_msg_count,
2537: p_data => x_msg_data);
2538:
2539: EXCEPTION
2540: WHEN FND_API.G_EXC_ERROR THEN
2541: ROLLBACK TO update_class_category_use;
2542: x_return_status := FND_API.G_RET_STS_ERROR;
2543:
2544: FND_MSG_PUB.Count_And_Get(
2538:
2539: EXCEPTION
2540: WHEN FND_API.G_EXC_ERROR THEN
2541: ROLLBACK TO update_class_category_use;
2542: x_return_status := FND_API.G_RET_STS_ERROR;
2543:
2544: FND_MSG_PUB.Count_And_Get(
2545: p_encoded => FND_API.G_FALSE,
2546: p_count => x_msg_count,
2541: ROLLBACK TO update_class_category_use;
2542: x_return_status := FND_API.G_RET_STS_ERROR;
2543:
2544: FND_MSG_PUB.Count_And_Get(
2545: p_encoded => FND_API.G_FALSE,
2546: p_count => x_msg_count,
2547: p_data => x_msg_data );
2548:
2549: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2545: p_encoded => FND_API.G_FALSE,
2546: p_count => x_msg_count,
2547: p_data => x_msg_data );
2548:
2549: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2550: ROLLBACK TO update_class_category_use;
2551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2552:
2553: FND_MSG_PUB.Count_And_Get(
2547: p_data => x_msg_data );
2548:
2549: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2550: ROLLBACK TO update_class_category_use;
2551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2552:
2553: FND_MSG_PUB.Count_And_Get(
2554: p_encoded => FND_API.G_FALSE,
2555: p_count => x_msg_count,
2550: ROLLBACK TO update_class_category_use;
2551: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2552:
2553: FND_MSG_PUB.Count_And_Get(
2554: p_encoded => FND_API.G_FALSE,
2555: p_count => x_msg_count,
2556: p_data => x_msg_data );
2557:
2558: WHEN OTHERS THEN
2556: p_data => x_msg_data );
2557:
2558: WHEN OTHERS THEN
2559: ROLLBACK TO update_class_category_use;
2560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2561:
2562: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
2563: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2564: FND_MSG_PUB.ADD;
2563: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2564: FND_MSG_PUB.ADD;
2565:
2566: FND_MSG_PUB.Count_And_Get(
2567: p_encoded => FND_API.G_FALSE,
2568: p_count => x_msg_count,
2569: p_data => x_msg_data );
2570:
2571: END update_class_category_use;
2765: *
2766: * ARGUMENTS
2767: * IN:
2768: * p_init_msg_list Initialize message stack if it is set to
2769: * FND_API.G_TRUE. Default is FND_API.G_FALSE.
2770: * p_class_category Class category name.
2771: * IN/OUT:
2772: * OUT:
2773: * x_class_category_rec Returned class category record.
2771: * IN/OUT:
2772: * OUT:
2773: * x_class_category_rec Returned class category record.
2774: * x_return_status Return status after the call. The status can
2775: * be FND_API.G_RET_STS_SUCCESS (success),
2776: * FND_API.G_RET_STS_ERROR (error),
2777: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
2778: * x_msg_count Number of messages in message stack.
2779: * x_msg_data Message text if x_msg_count is 1.
2772: * OUT:
2773: * x_class_category_rec Returned class category record.
2774: * x_return_status Return status after the call. The status can
2775: * be FND_API.G_RET_STS_SUCCESS (success),
2776: * FND_API.G_RET_STS_ERROR (error),
2777: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
2778: * x_msg_count Number of messages in message stack.
2779: * x_msg_data Message text if x_msg_count is 1.
2780: *
2773: * x_class_category_rec Returned class category record.
2774: * x_return_status Return status after the call. The status can
2775: * be FND_API.G_RET_STS_SUCCESS (success),
2776: * FND_API.G_RET_STS_ERROR (error),
2777: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
2778: * x_msg_count Number of messages in message stack.
2779: * x_msg_data Message text if x_msg_count is 1.
2780: *
2781: * NOTES
2786: *
2787: */
2788:
2789: PROCEDURE get_class_category_rec (
2790: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2791: p_class_category IN VARCHAR2,
2792: x_class_category_rec OUT NOCOPY CLASS_CATEGORY_REC_TYPE,
2793: x_return_status OUT NOCOPY VARCHAR2,
2794: x_msg_count OUT NOCOPY NUMBER,
2797:
2798: BEGIN
2799:
2800: --Initialize message list if p_init_msg_list is set to TRUE.
2801: IF FND_API.to_Boolean(p_init_msg_list) THEN
2802: FND_MSG_PUB.initialize;
2803: END IF;
2804:
2805: --Initialize API return status to success.
2802: FND_MSG_PUB.initialize;
2803: END IF;
2804:
2805: --Initialize API return status to success.
2806: x_return_status := FND_API.G_RET_STS_SUCCESS;
2807:
2808: --Check whether primary key has been passed in.
2809: IF p_class_category IS NULL OR
2810: p_class_category = FND_API.G_MISS_CHAR THEN
2806: x_return_status := FND_API.G_RET_STS_SUCCESS;
2807:
2808: --Check whether primary key has been passed in.
2809: IF p_class_category IS NULL OR
2810: p_class_category = FND_API.G_MISS_CHAR THEN
2811: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
2812: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'class_category' );
2813: FND_MSG_PUB.ADD;
2814: RAISE FND_API.G_EXC_ERROR;
2810: p_class_category = FND_API.G_MISS_CHAR THEN
2811: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
2812: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'class_category' );
2813: FND_MSG_PUB.ADD;
2814: RAISE FND_API.G_EXC_ERROR;
2815: END IF;
2816:
2817: x_class_category_rec.class_category := p_class_category;
2818:
2827: );
2828:
2829: --Standard call to get message count and if count is 1, get message info.
2830: FND_MSG_PUB.Count_And_Get(
2831: p_encoded => FND_API.G_FALSE,
2832: p_count => x_msg_count,
2833: p_data => x_msg_data );
2834:
2835: EXCEPTION
2832: p_count => x_msg_count,
2833: p_data => x_msg_data );
2834:
2835: EXCEPTION
2836: WHEN FND_API.G_EXC_ERROR THEN
2837: x_return_status := FND_API.G_RET_STS_ERROR;
2838:
2839: FND_MSG_PUB.Count_And_Get(
2840: p_encoded => FND_API.G_FALSE,
2833: p_data => x_msg_data );
2834:
2835: EXCEPTION
2836: WHEN FND_API.G_EXC_ERROR THEN
2837: x_return_status := FND_API.G_RET_STS_ERROR;
2838:
2839: FND_MSG_PUB.Count_And_Get(
2840: p_encoded => FND_API.G_FALSE,
2841: p_count => x_msg_count,
2836: WHEN FND_API.G_EXC_ERROR THEN
2837: x_return_status := FND_API.G_RET_STS_ERROR;
2838:
2839: FND_MSG_PUB.Count_And_Get(
2840: p_encoded => FND_API.G_FALSE,
2841: p_count => x_msg_count,
2842: p_data => x_msg_data );
2843:
2844: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2840: p_encoded => FND_API.G_FALSE,
2841: p_count => x_msg_count,
2842: p_data => x_msg_data );
2843:
2844: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2846:
2847: FND_MSG_PUB.Count_And_Get(
2848: p_encoded => FND_API.G_FALSE,
2841: p_count => x_msg_count,
2842: p_data => x_msg_data );
2843:
2844: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2846:
2847: FND_MSG_PUB.Count_And_Get(
2848: p_encoded => FND_API.G_FALSE,
2849: p_count => x_msg_count,
2844: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2846:
2847: FND_MSG_PUB.Count_And_Get(
2848: p_encoded => FND_API.G_FALSE,
2849: p_count => x_msg_count,
2850: p_data => x_msg_data );
2851:
2852: WHEN OTHERS THEN
2849: p_count => x_msg_count,
2850: p_data => x_msg_data );
2851:
2852: WHEN OTHERS THEN
2853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2854:
2855: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
2856: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2857: FND_MSG_PUB.ADD;
2856: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2857: FND_MSG_PUB.ADD;
2858:
2859: FND_MSG_PUB.Count_And_Get(
2860: p_encoded => FND_API.G_FALSE,
2861: p_count => x_msg_count,
2862: p_data => x_msg_data );
2863:
2864: END get_class_category_rec;
2874: *
2875: * ARGUMENTS
2876: * IN:
2877: * p_init_msg_list Initialize message stack if it is set to
2878: * FND_API.G_TRUE. Default is FND_API.G_FALSE.
2879: * p_class_category Class category name.
2880: * p_owner_table Owner table name.
2881: * IN/OUT:
2882: * OUT:
2881: * IN/OUT:
2882: * OUT:
2883: * x_class_category_use_rec Returned class category use record.
2884: * x_return_status Return status after the call. The status can
2885: * be FND_API.G_RET_STS_SUCCESS (success),
2886: * FND_API.G_RET_STS_ERROR (error),
2887: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
2888: * x_msg_count Number of messages in message stack.
2889: * x_msg_data Message text if x_msg_count is 1.
2882: * OUT:
2883: * x_class_category_use_rec Returned class category use record.
2884: * x_return_status Return status after the call. The status can
2885: * be FND_API.G_RET_STS_SUCCESS (success),
2886: * FND_API.G_RET_STS_ERROR (error),
2887: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
2888: * x_msg_count Number of messages in message stack.
2889: * x_msg_data Message text if x_msg_count is 1.
2890: *
2883: * x_class_category_use_rec Returned class category use record.
2884: * x_return_status Return status after the call. The status can
2885: * be FND_API.G_RET_STS_SUCCESS (success),
2886: * FND_API.G_RET_STS_ERROR (error),
2887: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
2888: * x_msg_count Number of messages in message stack.
2889: * x_msg_data Message text if x_msg_count is 1.
2890: *
2891: * NOTES
2896: *
2897: */
2898:
2899: PROCEDURE get_class_category_use_rec(
2900: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2901: p_class_category IN VARCHAR2,
2902: p_owner_table IN VARCHAR2,
2903: x_class_category_use_rec OUT NOCOPY CLASS_CATEGORY_USE_REC_TYPE,
2904: x_return_status OUT NOCOPY VARCHAR2,
2908:
2909: BEGIN
2910:
2911: --Initialize message list if p_init_msg_list is set to TRUE.
2912: IF FND_API.to_Boolean(p_init_msg_list) THEN
2913: FND_MSG_PUB.initialize;
2914: END IF;
2915:
2916: --Initialize API return status to success.
2913: FND_MSG_PUB.initialize;
2914: END IF;
2915:
2916: --Initialize API return status to success.
2917: x_return_status := FND_API.G_RET_STS_SUCCESS;
2918:
2919: --Check whether primary key has been passed in.
2920: IF p_class_category IS NULL OR
2921: p_class_category = FND_API.G_MISS_CHAR THEN
2917: x_return_status := FND_API.G_RET_STS_SUCCESS;
2918:
2919: --Check whether primary key has been passed in.
2920: IF p_class_category IS NULL OR
2921: p_class_category = FND_API.G_MISS_CHAR THEN
2922: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
2923: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'class_category' );
2924: FND_MSG_PUB.ADD;
2925: RAISE FND_API.G_EXC_ERROR;
2921: p_class_category = FND_API.G_MISS_CHAR THEN
2922: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
2923: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'class_category' );
2924: FND_MSG_PUB.ADD;
2925: RAISE FND_API.G_EXC_ERROR;
2926: END IF;
2927:
2928: IF p_owner_table IS NULL OR
2929: p_owner_table = FND_API.G_MISS_CHAR THEN
2925: RAISE FND_API.G_EXC_ERROR;
2926: END IF;
2927:
2928: IF p_owner_table IS NULL OR
2929: p_owner_table = FND_API.G_MISS_CHAR THEN
2930: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
2931: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'owner_table' );
2932: FND_MSG_PUB.ADD;
2933: RAISE FND_API.G_EXC_ERROR;
2929: p_owner_table = FND_API.G_MISS_CHAR THEN
2930: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
2931: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'owner_table' );
2932: FND_MSG_PUB.ADD;
2933: RAISE FND_API.G_EXC_ERROR;
2934: END IF;
2935:
2936: x_class_category_use_rec.class_category := p_class_category;
2937: x_class_category_use_rec.owner_table := p_owner_table;
2946: );
2947:
2948: --Standard call to get message count and if count is 1, get message info.
2949: FND_MSG_PUB.Count_And_Get(
2950: p_encoded => FND_API.G_FALSE,
2951: p_count => x_msg_count,
2952: p_data => x_msg_data );
2953:
2954: EXCEPTION
2951: p_count => x_msg_count,
2952: p_data => x_msg_data );
2953:
2954: EXCEPTION
2955: WHEN FND_API.G_EXC_ERROR THEN
2956: x_return_status := FND_API.G_RET_STS_ERROR;
2957:
2958: FND_MSG_PUB.Count_And_Get(
2959: p_encoded => FND_API.G_FALSE,
2952: p_data => x_msg_data );
2953:
2954: EXCEPTION
2955: WHEN FND_API.G_EXC_ERROR THEN
2956: x_return_status := FND_API.G_RET_STS_ERROR;
2957:
2958: FND_MSG_PUB.Count_And_Get(
2959: p_encoded => FND_API.G_FALSE,
2960: p_count => x_msg_count,
2955: WHEN FND_API.G_EXC_ERROR THEN
2956: x_return_status := FND_API.G_RET_STS_ERROR;
2957:
2958: FND_MSG_PUB.Count_And_Get(
2959: p_encoded => FND_API.G_FALSE,
2960: p_count => x_msg_count,
2961: p_data => x_msg_data );
2962:
2963: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2959: p_encoded => FND_API.G_FALSE,
2960: p_count => x_msg_count,
2961: p_data => x_msg_data );
2962:
2963: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2964: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2965:
2966: FND_MSG_PUB.Count_And_Get(
2967: p_encoded => FND_API.G_FALSE,
2960: p_count => x_msg_count,
2961: p_data => x_msg_data );
2962:
2963: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2964: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2965:
2966: FND_MSG_PUB.Count_And_Get(
2967: p_encoded => FND_API.G_FALSE,
2968: p_count => x_msg_count,
2963: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2964: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2965:
2966: FND_MSG_PUB.Count_And_Get(
2967: p_encoded => FND_API.G_FALSE,
2968: p_count => x_msg_count,
2969: p_data => x_msg_data );
2970:
2971: WHEN OTHERS THEN
2968: p_count => x_msg_count,
2969: p_data => x_msg_data );
2970:
2971: WHEN OTHERS THEN
2972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2973:
2974: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
2975: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2976: FND_MSG_PUB.ADD;
2975: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
2976: FND_MSG_PUB.ADD;
2977:
2978: FND_MSG_PUB.Count_And_Get(
2979: p_encoded => FND_API.G_FALSE,
2980: p_count => x_msg_count,
2981: p_data => x_msg_data );
2982:
2983: END get_class_category_use_rec;
2993: *
2994: * ARGUMENTS
2995: * IN:
2996: * p_init_msg_list Initialize message stack if it is set to
2997: * FND_API.G_TRUE. Default is FND_API.G_FALSE.
2998: * p_class_category Class category name.
2999: * p_class_code Class code.
3000: * p_sub_class_code Sub class code.
3001: * p_start_date_active Start date active.
3002: * IN/OUT:
3003: * OUT:
3004: * x_class_code_relation_rec Returned class code relation record.
3005: * x_return_status Return status after the call. The status can
3006: * be FND_API.G_RET_STS_SUCCESS (success),
3007: * FND_API.G_RET_STS_ERROR (error),
3008: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
3009: * x_msg_count Number of messages in message stack.
3010: * x_msg_data Message text if x_msg_count is 1.
3003: * OUT:
3004: * x_class_code_relation_rec Returned class code relation record.
3005: * x_return_status Return status after the call. The status can
3006: * be FND_API.G_RET_STS_SUCCESS (success),
3007: * FND_API.G_RET_STS_ERROR (error),
3008: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
3009: * x_msg_count Number of messages in message stack.
3010: * x_msg_data Message text if x_msg_count is 1.
3011: *
3004: * x_class_code_relation_rec Returned class code relation record.
3005: * x_return_status Return status after the call. The status can
3006: * be FND_API.G_RET_STS_SUCCESS (success),
3007: * FND_API.G_RET_STS_ERROR (error),
3008: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
3009: * x_msg_count Number of messages in message stack.
3010: * x_msg_data Message text if x_msg_count is 1.
3011: *
3012: * NOTES
3017: *
3018: */
3019:
3020: PROCEDURE get_class_code_relation_rec(
3021: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3022: p_class_category IN VARCHAR2,
3023: p_class_code IN VARCHAR2,
3024: p_sub_class_code IN VARCHAR2,
3025: p_start_date_active IN DATE,
3031:
3032: BEGIN
3033:
3034: --Initialize message list if p_init_msg_list is set to TRUE.
3035: IF FND_API.to_Boolean(p_init_msg_list) THEN
3036: FND_MSG_PUB.initialize;
3037: END IF;
3038:
3039: --Initialize API return status to success.
3036: FND_MSG_PUB.initialize;
3037: END IF;
3038:
3039: --Initialize API return status to success.
3040: x_return_status := FND_API.G_RET_STS_SUCCESS;
3041:
3042: --Check whether primary key has been passed in.
3043: IF p_class_category IS NULL OR
3044: p_class_category = FND_API.G_MISS_CHAR THEN
3040: x_return_status := FND_API.G_RET_STS_SUCCESS;
3041:
3042: --Check whether primary key has been passed in.
3043: IF p_class_category IS NULL OR
3044: p_class_category = FND_API.G_MISS_CHAR THEN
3045: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
3046: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'class_category' );
3047: FND_MSG_PUB.ADD;
3048: RAISE FND_API.G_EXC_ERROR;
3044: p_class_category = FND_API.G_MISS_CHAR THEN
3045: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
3046: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'class_category' );
3047: FND_MSG_PUB.ADD;
3048: RAISE FND_API.G_EXC_ERROR;
3049: END IF;
3050:
3051: IF p_class_code IS NULL OR
3052: p_class_code = FND_API.G_MISS_CHAR THEN
3048: RAISE FND_API.G_EXC_ERROR;
3049: END IF;
3050:
3051: IF p_class_code IS NULL OR
3052: p_class_code = FND_API.G_MISS_CHAR THEN
3053: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
3054: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'class_code' );
3055: FND_MSG_PUB.ADD;
3056: RAISE FND_API.G_EXC_ERROR;
3052: p_class_code = FND_API.G_MISS_CHAR THEN
3053: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
3054: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'class_code' );
3055: FND_MSG_PUB.ADD;
3056: RAISE FND_API.G_EXC_ERROR;
3057: END IF;
3058:
3059: IF p_sub_class_code IS NULL OR
3060: p_sub_class_code = FND_API.G_MISS_CHAR THEN
3056: RAISE FND_API.G_EXC_ERROR;
3057: END IF;
3058:
3059: IF p_sub_class_code IS NULL OR
3060: p_sub_class_code = FND_API.G_MISS_CHAR THEN
3061: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
3062: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'sub_class_code' );
3063: FND_MSG_PUB.ADD;
3064: RAISE FND_API.G_EXC_ERROR;
3060: p_sub_class_code = FND_API.G_MISS_CHAR THEN
3061: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
3062: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'sub_class_code' );
3063: FND_MSG_PUB.ADD;
3064: RAISE FND_API.G_EXC_ERROR;
3065: END IF;
3066:
3067: IF p_start_date_active IS NULL OR
3068: p_start_date_active = FND_API.G_MISS_DATE THEN
3064: RAISE FND_API.G_EXC_ERROR;
3065: END IF;
3066:
3067: IF p_start_date_active IS NULL OR
3068: p_start_date_active = FND_API.G_MISS_DATE THEN
3069: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
3070: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'start_date_active' );
3071: FND_MSG_PUB.ADD;
3072: RAISE FND_API.G_EXC_ERROR;
3068: p_start_date_active = FND_API.G_MISS_DATE THEN
3069: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
3070: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'start_date_active' );
3071: FND_MSG_PUB.ADD;
3072: RAISE FND_API.G_EXC_ERROR;
3073: END IF;
3074:
3075: x_class_code_relation_rec.class_category := p_class_category;
3076: x_class_code_relation_rec.class_code := p_class_code;
3088: );
3089:
3090: --Standard call to get message count and if count is 1, get message info.
3091: FND_MSG_PUB.Count_And_Get(
3092: p_encoded => FND_API.G_FALSE,
3093: p_count => x_msg_count,
3094: p_data => x_msg_data );
3095:
3096: EXCEPTION
3093: p_count => x_msg_count,
3094: p_data => x_msg_data );
3095:
3096: EXCEPTION
3097: WHEN FND_API.G_EXC_ERROR THEN
3098: x_return_status := FND_API.G_RET_STS_ERROR;
3099:
3100: FND_MSG_PUB.Count_And_Get(
3101: p_encoded => FND_API.G_FALSE,
3094: p_data => x_msg_data );
3095:
3096: EXCEPTION
3097: WHEN FND_API.G_EXC_ERROR THEN
3098: x_return_status := FND_API.G_RET_STS_ERROR;
3099:
3100: FND_MSG_PUB.Count_And_Get(
3101: p_encoded => FND_API.G_FALSE,
3102: p_count => x_msg_count,
3097: WHEN FND_API.G_EXC_ERROR THEN
3098: x_return_status := FND_API.G_RET_STS_ERROR;
3099:
3100: FND_MSG_PUB.Count_And_Get(
3101: p_encoded => FND_API.G_FALSE,
3102: p_count => x_msg_count,
3103: p_data => x_msg_data );
3104:
3105: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3101: p_encoded => FND_API.G_FALSE,
3102: p_count => x_msg_count,
3103: p_data => x_msg_data );
3104:
3105: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3107:
3108: FND_MSG_PUB.Count_And_Get(
3109: p_encoded => FND_API.G_FALSE,
3102: p_count => x_msg_count,
3103: p_data => x_msg_data );
3104:
3105: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3107:
3108: FND_MSG_PUB.Count_And_Get(
3109: p_encoded => FND_API.G_FALSE,
3110: p_count => x_msg_count,
3105: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3106: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3107:
3108: FND_MSG_PUB.Count_And_Get(
3109: p_encoded => FND_API.G_FALSE,
3110: p_count => x_msg_count,
3111: p_data => x_msg_data );
3112:
3113: WHEN OTHERS THEN
3110: p_count => x_msg_count,
3111: p_data => x_msg_data );
3112:
3113: WHEN OTHERS THEN
3114: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3115:
3116: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
3117: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
3118: FND_MSG_PUB.ADD;
3117: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
3118: FND_MSG_PUB.ADD;
3119:
3120: FND_MSG_PUB.Count_And_Get(
3121: p_encoded => FND_API.G_FALSE,
3122: p_count => x_msg_count,
3123: p_data => x_msg_data );
3124:
3125: END get_class_code_relation_rec;
3135: *
3136: * ARGUMENTS
3137: * IN:
3138: * p_init_msg_list Initialize message stack if it is set to
3139: * FND_API.G_TRUE. Default is FND_API.G_FALSE.
3140: * p_code_assignment_id Code assignment ID.
3141: * IN/OUT:
3142: * OUT:
3143: * x_code_assignment_rec Returned code assignment record.
3141: * IN/OUT:
3142: * OUT:
3143: * x_code_assignment_rec Returned code assignment record.
3144: * x_return_status Return status after the call. The status can
3145: * be FND_API.G_RET_STS_SUCCESS (success),
3146: * FND_API.G_RET_STS_ERROR (error),
3147: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
3148: * x_msg_count Number of messages in message stack.
3149: * x_msg_data Message text if x_msg_count is 1.
3142: * OUT:
3143: * x_code_assignment_rec Returned code assignment record.
3144: * x_return_status Return status after the call. The status can
3145: * be FND_API.G_RET_STS_SUCCESS (success),
3146: * FND_API.G_RET_STS_ERROR (error),
3147: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
3148: * x_msg_count Number of messages in message stack.
3149: * x_msg_data Message text if x_msg_count is 1.
3150: *
3143: * x_code_assignment_rec Returned code assignment record.
3144: * x_return_status Return status after the call. The status can
3145: * be FND_API.G_RET_STS_SUCCESS (success),
3146: * FND_API.G_RET_STS_ERROR (error),
3147: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
3148: * x_msg_count Number of messages in message stack.
3149: * x_msg_data Message text if x_msg_count is 1.
3150: *
3151: * NOTES
3159: *
3160: */
3161:
3162: PROCEDURE get_code_assignment_rec (
3163: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3164: p_code_assignment_id IN NUMBER,
3165: x_code_assignment_rec OUT NOCOPY CODE_ASSIGNMENT_REC_TYPE,
3166: x_return_status OUT NOCOPY VARCHAR2,
3167: x_msg_count OUT NOCOPY NUMBER,
3170:
3171: BEGIN
3172:
3173: --Initialize message list if p_init_msg_list is set to TRUE.
3174: IF FND_API.to_Boolean(p_init_msg_list) THEN
3175: FND_MSG_PUB.initialize;
3176: END IF;
3177:
3178: --Initialize API return status to success.
3175: FND_MSG_PUB.initialize;
3176: END IF;
3177:
3178: --Initialize API return status to success.
3179: x_return_status := FND_API.G_RET_STS_SUCCESS;
3180:
3181: --Check whether primary key has been passed in.
3182: IF p_code_assignment_id IS NULL OR
3183: p_code_assignment_id = FND_API.G_MISS_NUM THEN
3179: x_return_status := FND_API.G_RET_STS_SUCCESS;
3180:
3181: --Check whether primary key has been passed in.
3182: IF p_code_assignment_id IS NULL OR
3183: p_code_assignment_id = FND_API.G_MISS_NUM THEN
3184: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
3185: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'code_assignment_id' );
3186: FND_MSG_PUB.ADD;
3187: RAISE FND_API.G_EXC_ERROR;
3183: p_code_assignment_id = FND_API.G_MISS_NUM THEN
3184: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
3185: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'code_assignment_id' );
3186: FND_MSG_PUB.ADD;
3187: RAISE FND_API.G_EXC_ERROR;
3188: END IF;
3189:
3190: x_code_assignment_rec.code_assignment_id := p_code_assignment_id;
3191:
3214: );
3215:
3216: --Standard call to get message count and if count is 1, get message info.
3217: FND_MSG_PUB.Count_And_Get(
3218: p_encoded => FND_API.G_FALSE,
3219: p_count => x_msg_count,
3220: p_data => x_msg_data );
3221:
3222: EXCEPTION
3219: p_count => x_msg_count,
3220: p_data => x_msg_data );
3221:
3222: EXCEPTION
3223: WHEN FND_API.G_EXC_ERROR THEN
3224: x_return_status := FND_API.G_RET_STS_ERROR;
3225:
3226: FND_MSG_PUB.Count_And_Get(
3227: p_encoded => FND_API.G_FALSE,
3220: p_data => x_msg_data );
3221:
3222: EXCEPTION
3223: WHEN FND_API.G_EXC_ERROR THEN
3224: x_return_status := FND_API.G_RET_STS_ERROR;
3225:
3226: FND_MSG_PUB.Count_And_Get(
3227: p_encoded => FND_API.G_FALSE,
3228: p_count => x_msg_count,
3223: WHEN FND_API.G_EXC_ERROR THEN
3224: x_return_status := FND_API.G_RET_STS_ERROR;
3225:
3226: FND_MSG_PUB.Count_And_Get(
3227: p_encoded => FND_API.G_FALSE,
3228: p_count => x_msg_count,
3229: p_data => x_msg_data );
3230:
3231: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3227: p_encoded => FND_API.G_FALSE,
3228: p_count => x_msg_count,
3229: p_data => x_msg_data );
3230:
3231: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3233:
3234: FND_MSG_PUB.Count_And_Get(
3235: p_encoded => FND_API.G_FALSE,
3228: p_count => x_msg_count,
3229: p_data => x_msg_data );
3230:
3231: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3233:
3234: FND_MSG_PUB.Count_And_Get(
3235: p_encoded => FND_API.G_FALSE,
3236: p_count => x_msg_count,
3231: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3233:
3234: FND_MSG_PUB.Count_And_Get(
3235: p_encoded => FND_API.G_FALSE,
3236: p_count => x_msg_count,
3237: p_data => x_msg_data );
3238:
3239: WHEN OTHERS THEN
3236: p_count => x_msg_count,
3237: p_data => x_msg_data );
3238:
3239: WHEN OTHERS THEN
3240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3241:
3242: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_OTHERS_EXCEP' );
3243: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
3244: FND_MSG_PUB.ADD;
3243: FND_MESSAGE.SET_TOKEN( 'ERROR' ,SQLERRM );
3244: FND_MSG_PUB.ADD;
3245:
3246: FND_MSG_PUB.Count_And_Get(
3247: p_encoded => FND_API.G_FALSE,
3248: p_count => x_msg_count,
3249: p_data => x_msg_data );
3250:
3251: END get_code_assignment_rec;
3283:
3284: FUNCTION IS_VALID_CATEGORY(
3285: p_owner_table VARCHAR2,
3286: p_class_category VARCHAR2,
3287: p_id NUMBER := FND_API.G_MISS_NUM,
3288: p_key_1 VARCHAR2 := FND_API.G_MISS_CHAR,
3289: p_key_2 VARCHAR2 := FND_API.G_MISS_CHAR,
3290: p_key_3 VARCHAR2 := FND_API.G_MISS_CHAR,
3291: p_key_4 VARCHAR2 := FND_API.G_MISS_CHAR,
3284: FUNCTION IS_VALID_CATEGORY(
3285: p_owner_table VARCHAR2,
3286: p_class_category VARCHAR2,
3287: p_id NUMBER := FND_API.G_MISS_NUM,
3288: p_key_1 VARCHAR2 := FND_API.G_MISS_CHAR,
3289: p_key_2 VARCHAR2 := FND_API.G_MISS_CHAR,
3290: p_key_3 VARCHAR2 := FND_API.G_MISS_CHAR,
3291: p_key_4 VARCHAR2 := FND_API.G_MISS_CHAR,
3292: p_key_5 VARCHAR2 := FND_API.G_MISS_CHAR
3285: p_owner_table VARCHAR2,
3286: p_class_category VARCHAR2,
3287: p_id NUMBER := FND_API.G_MISS_NUM,
3288: p_key_1 VARCHAR2 := FND_API.G_MISS_CHAR,
3289: p_key_2 VARCHAR2 := FND_API.G_MISS_CHAR,
3290: p_key_3 VARCHAR2 := FND_API.G_MISS_CHAR,
3291: p_key_4 VARCHAR2 := FND_API.G_MISS_CHAR,
3292: p_key_5 VARCHAR2 := FND_API.G_MISS_CHAR
3293: )
3286: p_class_category VARCHAR2,
3287: p_id NUMBER := FND_API.G_MISS_NUM,
3288: p_key_1 VARCHAR2 := FND_API.G_MISS_CHAR,
3289: p_key_2 VARCHAR2 := FND_API.G_MISS_CHAR,
3290: p_key_3 VARCHAR2 := FND_API.G_MISS_CHAR,
3291: p_key_4 VARCHAR2 := FND_API.G_MISS_CHAR,
3292: p_key_5 VARCHAR2 := FND_API.G_MISS_CHAR
3293: )
3294: RETURN VARCHAR2
3287: p_id NUMBER := FND_API.G_MISS_NUM,
3288: p_key_1 VARCHAR2 := FND_API.G_MISS_CHAR,
3289: p_key_2 VARCHAR2 := FND_API.G_MISS_CHAR,
3290: p_key_3 VARCHAR2 := FND_API.G_MISS_CHAR,
3291: p_key_4 VARCHAR2 := FND_API.G_MISS_CHAR,
3292: p_key_5 VARCHAR2 := FND_API.G_MISS_CHAR
3293: )
3294: RETURN VARCHAR2
3295: IS
3288: p_key_1 VARCHAR2 := FND_API.G_MISS_CHAR,
3289: p_key_2 VARCHAR2 := FND_API.G_MISS_CHAR,
3290: p_key_3 VARCHAR2 := FND_API.G_MISS_CHAR,
3291: p_key_4 VARCHAR2 := FND_API.G_MISS_CHAR,
3292: p_key_5 VARCHAR2 := FND_API.G_MISS_CHAR
3293: )
3294: RETURN VARCHAR2
3295: IS
3296: --Bug 2824942: Modified the cursor to verify additional_where_clause from hz_class_category uses
3308: AND class_category = p_class_category
3309: AND owner_table = p_owner_table;
3310:
3311: bool VARCHAR2(1) := 'F';
3312: l_database_object_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3313: l_pk1_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3314: l_pk2_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3315: l_pk3_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3316: l_pk4_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3309: AND owner_table = p_owner_table;
3310:
3311: bool VARCHAR2(1) := 'F';
3312: l_database_object_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3313: l_pk1_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3314: l_pk2_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3315: l_pk3_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3316: l_pk4_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3317: l_pk5_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3310:
3311: bool VARCHAR2(1) := 'F';
3312: l_database_object_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3313: l_pk1_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3314: l_pk2_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3315: l_pk3_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3316: l_pk4_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3317: l_pk5_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3318: l_owner_table VARCHAR2(30);
3311: bool VARCHAR2(1) := 'F';
3312: l_database_object_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3313: l_pk1_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3314: l_pk2_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3315: l_pk3_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3316: l_pk4_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3317: l_pk5_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3318: l_owner_table VARCHAR2(30);
3319:
3312: l_database_object_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3313: l_pk1_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3314: l_pk2_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3315: l_pk3_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3316: l_pk4_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3317: l_pk5_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3318: l_owner_table VARCHAR2(30);
3319:
3320: p_key VARCHAR2(30);
3313: l_pk1_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3314: l_pk2_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3315: l_pk3_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3316: l_pk4_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3317: l_pk5_column_name VARCHAR2(30):= FND_API.G_MISS_CHAR;
3318: l_owner_table VARCHAR2(30);
3319:
3320: p_key VARCHAR2(30);
3321: l_sql VARCHAR2(4000);
3340:
3341: CLOSE get_category_uses_info;
3342:
3343: --p_id and p_key_1 are mutually exclusive
3344: IF (p_id IS NULL OR p_id = FND_API.G_MISS_NUM) THEN
3345: p_key := p_key_1;
3346: ELSE
3347: p_key := TO_CHAR(p_id);
3348: END IF;
3348: END IF;
3349:
3350: BEGIN
3351:
3352: IF l_pk5_column_name IS NOT NULL AND l_pk5_column_name <> FND_API.G_MISS_CHAR
3353: THEN
3354: IF l_additional_where_clause is not null THEN
3355: l_sql := 'SELECT ''T'' ' ||
3356: ' FROM ' || p_owner_table ||
3371: ' AND ' || l_pk5_column_name || '=:5 ' ||
3372: ' AND ROWNUM = 1';
3373: END IF;
3374: EXECUTE IMMEDIATE l_sql into bool using p_key,
3375: nvl(p_key_2,FND_API.G_MISS_CHAR),
3376: nvl(p_key_3,FND_API.G_MISS_CHAR),
3377: nvl(p_key_4,FND_API.G_MISS_CHAR),
3378: nvl(p_key_5,FND_API.G_MISS_CHAR);
3379: ELSIF l_pk4_column_name IS NOT NULL AND l_pk4_column_name <> FND_API.G_MISS_CHAR
3372: ' AND ROWNUM = 1';
3373: END IF;
3374: EXECUTE IMMEDIATE l_sql into bool using p_key,
3375: nvl(p_key_2,FND_API.G_MISS_CHAR),
3376: nvl(p_key_3,FND_API.G_MISS_CHAR),
3377: nvl(p_key_4,FND_API.G_MISS_CHAR),
3378: nvl(p_key_5,FND_API.G_MISS_CHAR);
3379: ELSIF l_pk4_column_name IS NOT NULL AND l_pk4_column_name <> FND_API.G_MISS_CHAR
3380: THEN
3373: END IF;
3374: EXECUTE IMMEDIATE l_sql into bool using p_key,
3375: nvl(p_key_2,FND_API.G_MISS_CHAR),
3376: nvl(p_key_3,FND_API.G_MISS_CHAR),
3377: nvl(p_key_4,FND_API.G_MISS_CHAR),
3378: nvl(p_key_5,FND_API.G_MISS_CHAR);
3379: ELSIF l_pk4_column_name IS NOT NULL AND l_pk4_column_name <> FND_API.G_MISS_CHAR
3380: THEN
3381: IF l_additional_where_clause is not null THEN
3374: EXECUTE IMMEDIATE l_sql into bool using p_key,
3375: nvl(p_key_2,FND_API.G_MISS_CHAR),
3376: nvl(p_key_3,FND_API.G_MISS_CHAR),
3377: nvl(p_key_4,FND_API.G_MISS_CHAR),
3378: nvl(p_key_5,FND_API.G_MISS_CHAR);
3379: ELSIF l_pk4_column_name IS NOT NULL AND l_pk4_column_name <> FND_API.G_MISS_CHAR
3380: THEN
3381: IF l_additional_where_clause is not null THEN
3382: l_sql := 'SELECT ''T'' ' ||
3375: nvl(p_key_2,FND_API.G_MISS_CHAR),
3376: nvl(p_key_3,FND_API.G_MISS_CHAR),
3377: nvl(p_key_4,FND_API.G_MISS_CHAR),
3378: nvl(p_key_5,FND_API.G_MISS_CHAR);
3379: ELSIF l_pk4_column_name IS NOT NULL AND l_pk4_column_name <> FND_API.G_MISS_CHAR
3380: THEN
3381: IF l_additional_where_clause is not null THEN
3382: l_sql := 'SELECT ''T'' ' ||
3383: ' FROM ' || p_owner_table ||
3396: ' AND ' || l_pk4_column_name || '=:4 ' ||
3397: ' AND ROWNUM = 1';
3398: END IF;
3399: EXECUTE IMMEDIATE l_sql into bool using p_key,
3400: nvl(p_key_2,FND_API.G_MISS_CHAR),
3401: nvl(p_key_3,FND_API.G_MISS_CHAR),
3402: nvl(p_key_4,FND_API.G_MISS_CHAR);
3403: ELSIF l_pk3_column_name IS NOT NULL AND l_pk3_column_name <> FND_API.G_MISS_CHAR
3404: THEN
3397: ' AND ROWNUM = 1';
3398: END IF;
3399: EXECUTE IMMEDIATE l_sql into bool using p_key,
3400: nvl(p_key_2,FND_API.G_MISS_CHAR),
3401: nvl(p_key_3,FND_API.G_MISS_CHAR),
3402: nvl(p_key_4,FND_API.G_MISS_CHAR);
3403: ELSIF l_pk3_column_name IS NOT NULL AND l_pk3_column_name <> FND_API.G_MISS_CHAR
3404: THEN
3405: IF l_additional_where_clause is not null THEN
3398: END IF;
3399: EXECUTE IMMEDIATE l_sql into bool using p_key,
3400: nvl(p_key_2,FND_API.G_MISS_CHAR),
3401: nvl(p_key_3,FND_API.G_MISS_CHAR),
3402: nvl(p_key_4,FND_API.G_MISS_CHAR);
3403: ELSIF l_pk3_column_name IS NOT NULL AND l_pk3_column_name <> FND_API.G_MISS_CHAR
3404: THEN
3405: IF l_additional_where_clause is not null THEN
3406: l_sql := 'SELECT ''T'' ' ||
3399: EXECUTE IMMEDIATE l_sql into bool using p_key,
3400: nvl(p_key_2,FND_API.G_MISS_CHAR),
3401: nvl(p_key_3,FND_API.G_MISS_CHAR),
3402: nvl(p_key_4,FND_API.G_MISS_CHAR);
3403: ELSIF l_pk3_column_name IS NOT NULL AND l_pk3_column_name <> FND_API.G_MISS_CHAR
3404: THEN
3405: IF l_additional_where_clause is not null THEN
3406: l_sql := 'SELECT ''T'' ' ||
3407: ' FROM ' || p_owner_table ||
3418: ' AND ' || l_pk3_column_name || '=:3 ' ||
3419: ' AND ROWNUM = 1';
3420: END IF;
3421: EXECUTE IMMEDIATE l_sql into bool using p_key,
3422: nvl(p_key_2,FND_API.G_MISS_CHAR),
3423: nvl(p_key_3,FND_API.G_MISS_CHAR);
3424: ELSIF l_pk2_column_name IS NOT NULL AND l_pk2_column_name <> FND_API.G_MISS_CHAR
3425: THEN
3426: IF l_additional_where_clause is not null THEN
3419: ' AND ROWNUM = 1';
3420: END IF;
3421: EXECUTE IMMEDIATE l_sql into bool using p_key,
3422: nvl(p_key_2,FND_API.G_MISS_CHAR),
3423: nvl(p_key_3,FND_API.G_MISS_CHAR);
3424: ELSIF l_pk2_column_name IS NOT NULL AND l_pk2_column_name <> FND_API.G_MISS_CHAR
3425: THEN
3426: IF l_additional_where_clause is not null THEN
3427: l_sql := 'SELECT ''T'' ' ||
3420: END IF;
3421: EXECUTE IMMEDIATE l_sql into bool using p_key,
3422: nvl(p_key_2,FND_API.G_MISS_CHAR),
3423: nvl(p_key_3,FND_API.G_MISS_CHAR);
3424: ELSIF l_pk2_column_name IS NOT NULL AND l_pk2_column_name <> FND_API.G_MISS_CHAR
3425: THEN
3426: IF l_additional_where_clause is not null THEN
3427: l_sql := 'SELECT ''T'' ' ||
3428: ' FROM ' || p_owner_table ||
3437: ' AND ' || l_pk2_column_name || '=:2 ' ||
3438: ' AND ROWNUM = 1';
3439: END IF;
3440: EXECUTE IMMEDIATE l_sql into bool using p_key,
3441: nvl(p_key_2,FND_API.G_MISS_CHAR);
3442: ELSIF (l_pk1_column_name IS NOT NULL AND l_pk1_column_name <> FND_API.G_MISS_CHAR)
3443: THEN
3444: IF l_additional_where_clause is not null THEN
3445: l_sql := 'SELECT ''T'' ' ||
3438: ' AND ROWNUM = 1';
3439: END IF;
3440: EXECUTE IMMEDIATE l_sql into bool using p_key,
3441: nvl(p_key_2,FND_API.G_MISS_CHAR);
3442: ELSIF (l_pk1_column_name IS NOT NULL AND l_pk1_column_name <> FND_API.G_MISS_CHAR)
3443: THEN
3444: IF l_additional_where_clause is not null THEN
3445: l_sql := 'SELECT ''T'' ' ||
3446: ' FROM ' || p_owner_table ||
3526: *
3527: * ARGUMENTS
3528: * IN:
3529: * p_init_msg_list Initialize message stack if it is set to
3530: * FND_API.G_TRUE. Default is FND_API.G_FALSE.
3531: * p_class_code_rec Lookup value related columns
3532: * IN/OUT:
3533: * OUT:
3534: * x_return_status Return status after the call. The status can
3531: * p_class_code_rec Lookup value related columns
3532: * IN/OUT:
3533: * OUT:
3534: * x_return_status Return status after the call. The status can
3535: * be FND_API.G_RET_STS_SUCCESS (success),
3536: * FND_API.G_RET_STS_ERROR (error),
3537: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
3538: * x_msg_count Number of messages in message stack.
3539: * x_msg_data Message text if x_msg_count is 1.
3532: * IN/OUT:
3533: * OUT:
3534: * x_return_status Return status after the call. The status can
3535: * be FND_API.G_RET_STS_SUCCESS (success),
3536: * FND_API.G_RET_STS_ERROR (error),
3537: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
3538: * x_msg_count Number of messages in message stack.
3539: * x_msg_data Message text if x_msg_count is 1.
3540: *
3533: * OUT:
3534: * x_return_status Return status after the call. The status can
3535: * be FND_API.G_RET_STS_SUCCESS (success),
3536: * FND_API.G_RET_STS_ERROR (error),
3537: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
3538: * x_msg_count Number of messages in message stack.
3539: * x_msg_data Message text if x_msg_count is 1.
3540: *
3541: * NOTES
3549: * classification code and classification meaning.
3550: */
3551:
3552: PROCEDURE create_class_code(
3553: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3554: p_class_code_rec IN CLASS_CODE_REC_TYPE,
3555: x_return_status OUT NOCOPY VARCHAR2,
3556: x_msg_count OUT NOCOPY NUMBER,
3557: x_msg_data OUT NOCOPY VARCHAR2
3561: begin
3562: savepoint create_class_code;
3563:
3564: -- initialize message list if p_init_msg_list is set to TRUE.
3565: IF FND_API.to_Boolean(p_init_msg_list) THEN
3566: FND_MSG_PUB.initialize;
3567: END IF;
3568:
3569: -- Initialize return status to SUCCESS
3566: FND_MSG_PUB.initialize;
3567: END IF;
3568:
3569: -- Initialize return status to SUCCESS
3570: x_return_status := FND_API.G_RET_STS_SUCCESS;
3571:
3572: If HZ_CLASS_VALIDATE_V2PUB.is_valid_class_code_meaning(l_class_code_rec.type,l_class_code_rec.meaning)='N'
3573: then
3574: FND_MESSAGE.SET_NAME('AR', 'HZ_MODIFY_CLASS_CODE_MEANING');
3572: If HZ_CLASS_VALIDATE_V2PUB.is_valid_class_code_meaning(l_class_code_rec.type,l_class_code_rec.meaning)='N'
3573: then
3574: FND_MESSAGE.SET_NAME('AR', 'HZ_MODIFY_CLASS_CODE_MEANING');
3575: FND_MSG_PUB.ADD;
3576: RAISE FND_API.G_EXC_ERROR;
3577: end if;
3578:
3579: --Bug fix 2783498
3580: IF ( l_class_code_rec.start_date_active IS NULL OR
3577: end if;
3578:
3579: --Bug fix 2783498
3580: IF ( l_class_code_rec.start_date_active IS NULL OR
3581: l_class_code_rec.start_date_active = FND_API.G_MISS_DATE ) THEN
3582: l_class_code_rec.start_date_active := SYSDATE;
3583: END IF;
3584:
3585: IF l_class_code_rec.end_date_active = FND_API.G_MISS_DATE THEN
3581: l_class_code_rec.start_date_active = FND_API.G_MISS_DATE ) THEN
3582: l_class_code_rec.start_date_active := SYSDATE;
3583: END IF;
3584:
3585: IF l_class_code_rec.end_date_active = FND_API.G_MISS_DATE THEN
3586: l_class_code_rec.end_date_active := TO_DATE(NULL);
3587: END IF;
3588:
3589: -- Bug 2960224 :Added validation to TYPE against active class categories.
3589: -- Bug 2960224 :Added validation to TYPE against active class categories.
3590:
3591: HZ_CLASS_VALIDATE_V2PUB.check_existence_class_category(l_class_code_rec.type, x_return_status);
3592:
3593: if(x_return_status = fnd_api.g_ret_sts_error) then
3594: RAISE FND_API.G_EXC_ERROR;
3595:
3596: -- Bug 6158794: Added validation to TYPE against classification code and classification meaning.
3597: end if;
3590:
3591: HZ_CLASS_VALIDATE_V2PUB.check_existence_class_category(l_class_code_rec.type, x_return_status);
3592:
3593: if(x_return_status = fnd_api.g_ret_sts_error) then
3594: RAISE FND_API.G_EXC_ERROR;
3595:
3596: -- Bug 6158794: Added validation to TYPE against classification code and classification meaning.
3597: end if;
3598:
3596: -- Bug 6158794: Added validation to TYPE against classification code and classification meaning.
3597: end if;
3598:
3599: HZ_CLASS_VALIDATE_V2PUB.chk_exist_cls_catgry_type_code(l_class_code_rec.type,l_class_code_rec.code,0,222,x_return_status);
3600: if(x_return_status = fnd_api.g_ret_sts_error) then
3601: RAISE FND_API.G_EXC_ERROR;
3602: end if;
3603:
3604: HZ_CLASS_VALIDATE_V2PUB.chk_exist_clas_catgry_typ_mng(l_class_code_rec.type,l_class_code_rec.meaning,0,222,x_return_status);
3597: end if;
3598:
3599: HZ_CLASS_VALIDATE_V2PUB.chk_exist_cls_catgry_type_code(l_class_code_rec.type,l_class_code_rec.code,0,222,x_return_status);
3600: if(x_return_status = fnd_api.g_ret_sts_error) then
3601: RAISE FND_API.G_EXC_ERROR;
3602: end if;
3603:
3604: HZ_CLASS_VALIDATE_V2PUB.chk_exist_clas_catgry_typ_mng(l_class_code_rec.type,l_class_code_rec.meaning,0,222,x_return_status);
3605: if(x_return_status = fnd_api.g_ret_sts_error) then
3601: RAISE FND_API.G_EXC_ERROR;
3602: end if;
3603:
3604: HZ_CLASS_VALIDATE_V2PUB.chk_exist_clas_catgry_typ_mng(l_class_code_rec.type,l_class_code_rec.meaning,0,222,x_return_status);
3605: if(x_return_status = fnd_api.g_ret_sts_error) then
3606: RAISE FND_API.G_EXC_ERROR;
3607:
3608: end if;
3609:
3602: end if;
3603:
3604: HZ_CLASS_VALIDATE_V2PUB.chk_exist_clas_catgry_typ_mng(l_class_code_rec.type,l_class_code_rec.meaning,0,222,x_return_status);
3605: if(x_return_status = fnd_api.g_ret_sts_error) then
3606: RAISE FND_API.G_EXC_ERROR;
3607:
3608: end if;
3609:
3610: Fnd_Lookup_Values_Pkg.Insert_Row(
3644:
3645: set_frozen_flag(l_class_code_rec.type);
3646:
3647: -- Bug 5053099: Raise business events.
3648: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3649: -- Invoke business event system.
3650: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('Y', 'EVENTS_ENABLED')) THEN
3651: HZ_BUSINESS_EVENT_V2PVT.create_class_code_event (
3652: l_class_code_rec );
3654: END IF;
3655:
3656: EXCEPTION
3657:
3658: WHEN FND_API.G_EXC_ERROR THEN
3659: ROLLBACK TO create_class_code;
3660: x_return_status := FND_API.G_RET_STS_ERROR;
3661: FND_MSG_PUB.Count_And_Get(
3662: p_encoded => FND_API.G_FALSE,
3656: EXCEPTION
3657:
3658: WHEN FND_API.G_EXC_ERROR THEN
3659: ROLLBACK TO create_class_code;
3660: x_return_status := FND_API.G_RET_STS_ERROR;
3661: FND_MSG_PUB.Count_And_Get(
3662: p_encoded => FND_API.G_FALSE,
3663: p_count => x_msg_count,
3664: p_data => x_msg_data);
3658: WHEN FND_API.G_EXC_ERROR THEN
3659: ROLLBACK TO create_class_code;
3660: x_return_status := FND_API.G_RET_STS_ERROR;
3661: FND_MSG_PUB.Count_And_Get(
3662: p_encoded => FND_API.G_FALSE,
3663: p_count => x_msg_count,
3664: p_data => x_msg_data);
3665:
3666: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3662: p_encoded => FND_API.G_FALSE,
3663: p_count => x_msg_count,
3664: p_data => x_msg_data);
3665:
3666: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3667: ROLLBACK TO create_class_code ;
3668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3669: FND_MSG_PUB.Count_And_Get(
3670: p_encoded => FND_API.G_FALSE,
3664: p_data => x_msg_data);
3665:
3666: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3667: ROLLBACK TO create_class_code ;
3668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3669: FND_MSG_PUB.Count_And_Get(
3670: p_encoded => FND_API.G_FALSE,
3671: p_count => x_msg_count,
3672: p_data => x_msg_data);
3666: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3667: ROLLBACK TO create_class_code ;
3668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3669: FND_MSG_PUB.Count_And_Get(
3670: p_encoded => FND_API.G_FALSE,
3671: p_count => x_msg_count,
3672: p_data => x_msg_data);
3673:
3674: WHEN OTHERS THEN
3672: p_data => x_msg_data);
3673:
3674: WHEN OTHERS THEN
3675: ROLLBACK TO create_class_code;
3676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3677: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3678: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3679: FND_MSG_PUB.ADD;
3680: FND_MSG_PUB.Count_And_Get(
3677: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3678: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3679: FND_MSG_PUB.ADD;
3680: FND_MSG_PUB.Count_And_Get(
3681: p_encoded => FND_API.G_FALSE,
3682: p_count => x_msg_count,
3683: p_data => x_msg_data);
3684:
3685:
3698: *
3699: * ARGUMENTS
3700: * IN:
3701: * p_init_msg_list Initialize message stack if it is set to
3702: * FND_API.G_TRUE. Default is FND_API.G_FALSE.
3703: * p_class_code_rec Lookup value related columns
3704: * IN/OUT:
3705: * p_object_version_number Used for locking the being updated record.
3706: * OUT:
3704: * IN/OUT:
3705: * p_object_version_number Used for locking the being updated record.
3706: * OUT:
3707: * x_return_status Return status after the call. The status can
3708: * be FND_API.G_RET_STS_SUCCESS (success),
3709: * FND_API.G_RET_STS_ERROR (error),
3710: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
3711: * x_msg_count Number of messages in message stack.
3712: * x_msg_data Message text if x_msg_count is 1.
3705: * p_object_version_number Used for locking the being updated record.
3706: * OUT:
3707: * x_return_status Return status after the call. The status can
3708: * be FND_API.G_RET_STS_SUCCESS (success),
3709: * FND_API.G_RET_STS_ERROR (error),
3710: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
3711: * x_msg_count Number of messages in message stack.
3712: * x_msg_data Message text if x_msg_count is 1.
3713: *
3706: * OUT:
3707: * x_return_status Return status after the call. The status can
3708: * be FND_API.G_RET_STS_SUCCESS (success),
3709: * FND_API.G_RET_STS_ERROR (error),
3710: * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
3711: * x_msg_count Number of messages in message stack.
3712: * x_msg_data Message text if x_msg_count is 1.
3713: *
3714: * NOTES
3719: *
3720: */
3721:
3722: PROCEDURE update_class_code(
3723: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
3724: p_class_code_rec IN CLASS_CODE_REC_TYPE,
3725: p_object_version_number IN OUT NOCOPY NUMBER,
3726: x_return_status OUT NOCOPY VARCHAR2,
3727: x_msg_count OUT NOCOPY NUMBER,
3734: begin
3735: savepoint update_class_code;
3736:
3737: -- initialize message list if p_init_msg_list is set to TRUE.
3738: IF FND_API.to_Boolean(p_init_msg_list) THEN
3739: FND_MSG_PUB.initialize;
3740: END IF;
3741:
3742: --Bug fix 2783498
3748: FOR UPDATE OF LOOKUP_CODE NOWAIT;
3749:
3750: IF l_class_code_rec.start_date_active IS NULL THEN
3751: l_class_code_rec.start_date_active := l_start_date_active;
3752: ELSIF l_class_code_rec.start_date_active = FND_API.G_MISS_DATE THEN
3753: l_class_code_rec.start_date_active := SYSDATE;
3754: END IF;
3755:
3756: IF l_class_code_rec.end_date_active IS NULL THEN
3754: END IF;
3755:
3756: IF l_class_code_rec.end_date_active IS NULL THEN
3757: l_class_code_rec.end_date_active := l_end_date_active;
3758: elsif l_class_code_rec.end_date_active = FND_API.G_MISS_DATE THEN
3759: l_class_code_rec.end_date_active := TO_DATE(NULL);
3760: END IF;
3761:
3762:
3760: END IF;
3761:
3762:
3763: -- Initialize return status to SUCCESS
3764: x_return_status := FND_API.G_RET_STS_SUCCESS;
3765:
3766: if (l_class_code_rec.meaning is not null and l_class_code_rec.meaning <> fnd_api.g_miss_char)
3767: then
3768: If HZ_CLASS_VALIDATE_V2PUB.is_valid_class_code_meaning(l_class_code_rec.type,l_class_code_rec.meaning)='N'
3762:
3763: -- Initialize return status to SUCCESS
3764: x_return_status := FND_API.G_RET_STS_SUCCESS;
3765:
3766: if (l_class_code_rec.meaning is not null and l_class_code_rec.meaning <> fnd_api.g_miss_char)
3767: then
3768: If HZ_CLASS_VALIDATE_V2PUB.is_valid_class_code_meaning(l_class_code_rec.type,l_class_code_rec.meaning)='N'
3769: then
3770: FND_MESSAGE.SET_NAME('AR', 'HZ_MODIFY_CLASS_CODE_MEANING');
3768: If HZ_CLASS_VALIDATE_V2PUB.is_valid_class_code_meaning(l_class_code_rec.type,l_class_code_rec.meaning)='N'
3769: then
3770: FND_MESSAGE.SET_NAME('AR', 'HZ_MODIFY_CLASS_CODE_MEANING');
3771: FND_MSG_PUB.ADD;
3772: RAISE FND_API.G_EXC_ERROR;
3773: end if;
3774: end if;
3775:
3776: Fnd_Lookup_Values_Pkg.Update_Row(
3807:
3808: set_frozen_flag(l_class_code_rec.type);
3809:
3810: -- Bug 5053099: Raise businss events.
3811: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
3812: -- Invoke business event system.
3813: IF(HZ_UTILITY_V2PUB.G_EXECUTE_API_CALLOUTS in ('Y', 'EVENTS_ENABLED')) THEN
3814: HZ_BUSINESS_EVENT_V2PVT.update_class_code_event (
3815: p_class_code_rec => l_class_code_rec,
3818: END IF;
3819:
3820: EXCEPTION
3821:
3822: WHEN FND_API.G_EXC_ERROR THEN
3823: ROLLBACK TO update_class_code;
3824: x_return_status := FND_API.G_RET_STS_ERROR;
3825: FND_MSG_PUB.Count_And_Get(
3826: p_encoded => FND_API.G_FALSE,
3820: EXCEPTION
3821:
3822: WHEN FND_API.G_EXC_ERROR THEN
3823: ROLLBACK TO update_class_code;
3824: x_return_status := FND_API.G_RET_STS_ERROR;
3825: FND_MSG_PUB.Count_And_Get(
3826: p_encoded => FND_API.G_FALSE,
3827: p_count => x_msg_count,
3828: p_data => x_msg_data);
3822: WHEN FND_API.G_EXC_ERROR THEN
3823: ROLLBACK TO update_class_code;
3824: x_return_status := FND_API.G_RET_STS_ERROR;
3825: FND_MSG_PUB.Count_And_Get(
3826: p_encoded => FND_API.G_FALSE,
3827: p_count => x_msg_count,
3828: p_data => x_msg_data);
3829:
3830: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3826: p_encoded => FND_API.G_FALSE,
3827: p_count => x_msg_count,
3828: p_data => x_msg_data);
3829:
3830: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3831: ROLLBACK TO update_class_code ;
3832: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3833: FND_MSG_PUB.Count_And_Get(
3834: p_encoded => FND_API.G_FALSE,
3828: p_data => x_msg_data);
3829:
3830: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3831: ROLLBACK TO update_class_code ;
3832: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3833: FND_MSG_PUB.Count_And_Get(
3834: p_encoded => FND_API.G_FALSE,
3835: p_count => x_msg_count,
3836: p_data => x_msg_data);
3830: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3831: ROLLBACK TO update_class_code ;
3832: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3833: FND_MSG_PUB.Count_And_Get(
3834: p_encoded => FND_API.G_FALSE,
3835: p_count => x_msg_count,
3836: p_data => x_msg_data);
3837:
3838: WHEN OTHERS THEN
3836: p_data => x_msg_data);
3837:
3838: WHEN OTHERS THEN
3839: ROLLBACK TO update_class_code;
3840: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3841: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3842: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3843: FND_MSG_PUB.ADD;
3844: FND_MSG_PUB.Count_And_Get(
3841: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3842: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3843: FND_MSG_PUB.ADD;
3844: FND_MSG_PUB.Count_And_Get(
3845: p_encoded => FND_API.G_FALSE,
3846: p_count => x_msg_count,
3847: p_data => x_msg_data);
3848:
3849:
3941: --Output the results
3942: END LOOP;
3943:
3944: EXCEPTION
3945: WHEN FND_API.G_EXC_ERROR THEN
3946: x_return_status := FND_API.G_RET_STS_ERROR;
3947: FND_MSG_PUB.Count_And_Get(
3948: p_encoded => FND_API.G_FALSE,
3949: p_count => x_msg_count,
3942: END LOOP;
3943:
3944: EXCEPTION
3945: WHEN FND_API.G_EXC_ERROR THEN
3946: x_return_status := FND_API.G_RET_STS_ERROR;
3947: FND_MSG_PUB.Count_And_Get(
3948: p_encoded => FND_API.G_FALSE,
3949: p_count => x_msg_count,
3950: p_data => x_msg_data);
3944: EXCEPTION
3945: WHEN FND_API.G_EXC_ERROR THEN
3946: x_return_status := FND_API.G_RET_STS_ERROR;
3947: FND_MSG_PUB.Count_And_Get(
3948: p_encoded => FND_API.G_FALSE,
3949: p_count => x_msg_count,
3950: p_data => x_msg_data);
3951:
3952: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3948: p_encoded => FND_API.G_FALSE,
3949: p_count => x_msg_count,
3950: p_data => x_msg_data);
3951:
3952: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3954: FND_MSG_PUB.Count_And_Get(
3955: p_encoded => FND_API.G_FALSE,
3956: p_count => x_msg_count,
3949: p_count => x_msg_count,
3950: p_data => x_msg_data);
3951:
3952: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3954: FND_MSG_PUB.Count_And_Get(
3955: p_encoded => FND_API.G_FALSE,
3956: p_count => x_msg_count,
3957: p_data => x_msg_data);
3951:
3952: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3954: FND_MSG_PUB.Count_And_Get(
3955: p_encoded => FND_API.G_FALSE,
3956: p_count => x_msg_count,
3957: p_data => x_msg_data);
3958:
3959: WHEN OTHERS THEN
3956: p_count => x_msg_count,
3957: p_data => x_msg_data);
3958:
3959: WHEN OTHERS THEN
3960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3961: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3962: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3963: FND_MSG_PUB.ADD;
3964: FND_MSG_PUB.Count_And_Get(
3961: FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
3962: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3963: FND_MSG_PUB.ADD;
3964: FND_MSG_PUB.Count_And_Get(
3965: p_encoded => FND_API.G_FALSE,
3966: p_count => x_msg_count,
3967: p_data => x_msg_data);
3968:
3969: END v2_copy_class_category;