74: IF l_ret_val NOT IN ('Y','N')
75: THEN
76: -- resource not exist for this user
77: fnd_message.set_name ('CN', 'CN_INVALID_PAYBYMODE');
78: fnd_msg_pub.ADD;
79: RAISE fnd_api.g_exc_error;
80: END IF ;
81: RETURN l_ret_val ;
82: END;
117: WHEN NO_DATA_FOUND
118: THEN
119: -- resource not exist for this user
120: fnd_message.set_name ('CN', 'CN_USER_RESOURCE_NF');
121: fnd_msg_pub.ADD;
122: RAISE fnd_api.g_exc_error;
123: END;
124:
125: -- Get number of parent_resource for current resource
190: WHEN NO_DATA_FOUND
191: THEN
192: -- resource not exist for this user
193: fnd_message.set_name ('CN', 'CN_USER_RESOURCE_NF');
194: fnd_msg_pub.ADD;
195: RAISE fnd_api.g_exc_error;
196: END;
197:
198: SELECT 1
324: EXCEPTION
325: WHEN fnd_api.g_exc_error
326: THEN
327: x_return_status := fnd_api.g_ret_sts_error;
328: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
329: WHEN OTHERS
330: THEN
331: x_return_status := fnd_api.g_ret_sts_unexp_error;
332:
329: WHEN OTHERS
330: THEN
331: x_return_status := fnd_api.g_ret_sts_unexp_error;
332:
333: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
334: THEN
335: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
336: END IF;
337:
331: x_return_status := fnd_api.g_ret_sts_unexp_error;
332:
333: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
334: THEN
335: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
336: END IF;
337:
338: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
339: END paid_payrun_audit;
334: THEN
335: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
336: END IF;
337:
338: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
339: END paid_payrun_audit;
340:
341: --
342: -- Procedure : Payrun_Audit
445: EXCEPTION
446: WHEN fnd_api.g_exc_error
447: THEN
448: x_return_status := fnd_api.g_ret_sts_error;
449: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
450: WHEN OTHERS
451: THEN
452: x_return_status := fnd_api.g_ret_sts_unexp_error;
453:
450: WHEN OTHERS
451: THEN
452: x_return_status := fnd_api.g_ret_sts_unexp_error;
453:
454: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
455: THEN
456: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
457: END IF;
458:
452: x_return_status := fnd_api.g_ret_sts_unexp_error;
453:
454: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
455: THEN
456: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
457: END IF;
458:
459: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
460: END payrun_audit;
455: THEN
456: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
457: END IF;
458:
459: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
460: END payrun_audit;
461:
462:
463: --===================================================================================
651: EXCEPTION
652: WHEN fnd_api.g_exc_error
653: THEN
654: x_return_status := fnd_api.g_ret_sts_error;
655: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
656: WHEN OTHERS
657: THEN
658: x_return_status := fnd_api.g_ret_sts_unexp_error;
659:
656: WHEN OTHERS
657: THEN
658: x_return_status := fnd_api.g_ret_sts_unexp_error;
659:
660: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
661: THEN
662: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
663: END IF;
664:
658: x_return_status := fnd_api.g_ret_sts_unexp_error;
659:
660: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
661: THEN
662: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
663: END IF;
664:
665: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
666: END worksheet_audit;
661: THEN
662: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
663: END IF;
664:
665: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
666: END worksheet_audit;
667:
668: -- Start of comments
669: -- API name : Payrun_Action
741:
742: -- Initialize message list if p_init_msg_list is set to TRUE.
743: IF fnd_api.to_boolean (p_init_msg_list)
744: THEN
745: fnd_msg_pub.initialize;
746: END IF;
747:
748: -- Initialize API return status to success
749: x_return_status := fnd_api.g_ret_sts_success;
759: WHERE payrun_id = p_payrun_id;
760: EXCEPTION
761: WHEN NO_DATA_FOUND
762: THEN
763: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
764: THEN
765: fnd_message.set_name ('CN', 'CN_PAYRUN_DOES_NOT_EXIST');
766: fnd_msg_pub.ADD;
767: END IF;
762: THEN
763: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
764: THEN
765: fnd_message.set_name ('CN', 'CN_PAYRUN_DOES_NOT_EXIST');
766: fnd_msg_pub.ADD;
767: END IF;
768:
769: RAISE fnd_api.g_exc_error;
770: END;
792:
793: IF err_num = -54
794: THEN
795: fnd_message.set_name ('CN', 'CN_INVALID_OBJECT_VERSION');
796: fnd_msg_pub.ADD;
797: RAISE fnd_api.g_exc_error;
798: ELSE
799: RAISE;
800: END IF;
802:
803: -- Check if user is Super User. Only super user can perform payrun action
804: /* Comment out for R12 payment security
805: IF is_superuser(p_period_id => l_period_id) = 0 THEN
806: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
807: FND_MESSAGE.SET_NAME ('CN','CN_PAYRUN_NOT_SU');
808: FND_MSG_PUB.Add;
809: END IF;
810: RAISE FND_API.G_EXC_ERROR ;
804: /* Comment out for R12 payment security
805: IF is_superuser(p_period_id => l_period_id) = 0 THEN
806: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
807: FND_MESSAGE.SET_NAME ('CN','CN_PAYRUN_NOT_SU');
808: FND_MSG_PUB.Add;
809: END IF;
810: RAISE FND_API.G_EXC_ERROR ;
811: END IF;
812: */
813:
814: -- cannot perform action on paid payrun
815: IF l_payrun_status = 'PAID'
816: THEN
817: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
818: THEN
819: fnd_message.set_name ('CN', 'CN_PAYRUN_PAID');
820: fnd_msg_pub.ADD;
821: END IF;
816: THEN
817: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
818: THEN
819: fnd_message.set_name ('CN', 'CN_PAYRUN_PAID');
820: fnd_msg_pub.ADD;
821: END IF;
822:
823: RAISE fnd_api.g_exc_error;
824: END IF;
831: AND payrun_id = p_payrun_id
832: AND rownum < 2;
833:
834: IF l_temp > 0 THEN
835: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
836: THEN
837: fnd_message.set_name ('CN', 'CN_WKSHT_STILL_PROCESSING');
838: fnd_msg_pub.ADD;
839: END IF;
834: IF l_temp > 0 THEN
835: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
836: THEN
837: fnd_message.set_name ('CN', 'CN_WKSHT_STILL_PROCESSING');
838: fnd_msg_pub.ADD;
839: END IF;
840: RAISE fnd_api.g_exc_error;
841: END IF;
842:
873:
874: --Added for R12 payment security check end.
875: IF l_payrun_status <> 'UNPAID'
876: THEN
877: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
878: THEN
879: fnd_message.set_name ('CN', 'CN_PAYRUN_ACTION_UNPAID');
880: fnd_msg_pub.ADD;
881: END IF;
876: THEN
877: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
878: THEN
879: fnd_message.set_name ('CN', 'CN_PAYRUN_ACTION_UNPAID');
880: fnd_msg_pub.ADD;
881: END IF;
882:
883: RAISE fnd_api.g_exc_error;
884: END IF;
895:
896: --Added for R12 payment security check end.
897: IF l_payrun_status <> 'FROZEN'
898: THEN
899: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
900: THEN
901: fnd_message.set_name ('CN', 'CN_PAYRUN_ACTION_UNFREEZE');
902: fnd_msg_pub.ADD;
903: END IF;
898: THEN
899: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
900: THEN
901: fnd_message.set_name ('CN', 'CN_PAYRUN_ACTION_UNFREEZE');
902: fnd_msg_pub.ADD;
903: END IF;
904:
905: RAISE fnd_api.g_exc_error;
906: END IF;
926: WHERE EXISTS (SELECT 1
927: FROM cn_payment_worksheets
928: WHERE payrun_id = p_payrun_id AND worksheet_status <> 'APPROVED');
929:
930: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
931: THEN
932: fnd_message.set_name ('CN', 'CN_PAYRUN_ACTION_PAY');
933: fnd_msg_pub.ADD;
934: END IF;
929:
930: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
931: THEN
932: fnd_message.set_name ('CN', 'CN_PAYRUN_ACTION_PAY');
933: fnd_msg_pub.ADD;
934: END IF;
935:
936: RAISE fnd_api.g_exc_error;
937: EXCEPTION
941: END;
942: ELSE
943: IF l_payrun_status <> 'FROZEN'
944: THEN
945: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
946: THEN
947: fnd_message.set_name ('CN', 'CN_PAYRUN_ACTION_PAY_FRZ');
948: fnd_msg_pub.ADD;
949: END IF;
944: THEN
945: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
946: THEN
947: fnd_message.set_name ('CN', 'CN_PAYRUN_ACTION_PAY_FRZ');
948: fnd_msg_pub.ADD;
949: END IF;
950:
951: RAISE fnd_api.g_exc_error;
952: END IF;
952: END IF;
953: END IF;
954: ELSE
955: -- invalid p_action
956: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
957: THEN
958: fnd_message.set_name ('CN', 'CN_PAYRUN_ACTION_NOT_EXIST');
959: fnd_msg_pub.ADD;
960: END IF;
955: -- invalid p_action
956: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
957: THEN
958: fnd_message.set_name ('CN', 'CN_PAYRUN_ACTION_NOT_EXIST');
959: fnd_msg_pub.ADD;
960: END IF;
961:
962: RAISE fnd_api.g_exc_error;
963: END IF;
985: COMMIT WORK;
986: END IF;
987:
988: -- Standard call to get message count and if count is 1, get message info.
989: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
990: EXCEPTION
991: WHEN fnd_api.g_exc_error
992: THEN
993: ROLLBACK TO payrun_action;
991: WHEN fnd_api.g_exc_error
992: THEN
993: ROLLBACK TO payrun_action;
994: x_return_status := fnd_api.g_ret_sts_error;
995: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
996: WHEN fnd_api.g_exc_unexpected_error
997: THEN
998: ROLLBACK TO payrun_action;
999: x_return_status := fnd_api.g_ret_sts_unexp_error;
996: WHEN fnd_api.g_exc_unexpected_error
997: THEN
998: ROLLBACK TO payrun_action;
999: x_return_status := fnd_api.g_ret_sts_unexp_error;
1000: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1001: WHEN OTHERS
1002: THEN
1003: ROLLBACK TO payrun_action;
1004: x_return_status := fnd_api.g_ret_sts_unexp_error;
1002: THEN
1003: ROLLBACK TO payrun_action;
1004: x_return_status := fnd_api.g_ret_sts_unexp_error;
1005:
1006: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1007: THEN
1008: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1009: END IF;
1010:
1004: x_return_status := fnd_api.g_ret_sts_unexp_error;
1005:
1006: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1007: THEN
1008: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1009: END IF;
1010:
1011: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1012: END payrun_action;
1007: THEN
1008: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1009: END IF;
1010:
1011: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1012: END payrun_action;
1013:
1014: -- Start of comments
1015: -- API name : Worksheet_action
1093:
1094: -- Initialize message list if p_init_msg_list is set to TRUE.
1095: IF fnd_api.to_boolean (p_init_msg_list)
1096: THEN
1097: fnd_msg_pub.initialize;
1098: END IF;
1099:
1100: -- Initialize API return status to success
1101: x_return_status := fnd_api.g_ret_sts_success;
1128: AND wk.org_id = s.org_id;
1129: EXCEPTION
1130: WHEN NO_DATA_FOUND
1131: THEN
1132: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1133: THEN
1134: fnd_message.set_name ('CN', 'CN_WKSHT_DOES_NOT_EXIST');
1135: fnd_msg_pub.ADD;
1136: END IF;
1131: THEN
1132: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1133: THEN
1134: fnd_message.set_name ('CN', 'CN_WKSHT_DOES_NOT_EXIST');
1135: fnd_msg_pub.ADD;
1136: END IF;
1137:
1138: RAISE fnd_api.g_exc_error;
1139: END;
1161:
1162: IF err_num = -54
1163: THEN
1164: fnd_message.set_name ('CN', 'CN_INVALID_OBJECT_VERSION');
1165: fnd_msg_pub.ADD;
1166: RAISE fnd_api.g_exc_error;
1167: ELSE
1168: RAISE;
1169: END IF;
1171:
1172: -- cannot perform action on paid payrun
1173: IF l_payrun_status = 'PAID'
1174: THEN
1175: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1176: THEN
1177: fnd_message.set_name ('CN', 'CN_PAYRUN_PAID');
1178: fnd_msg_pub.ADD;
1179: END IF;
1174: THEN
1175: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1176: THEN
1177: fnd_message.set_name ('CN', 'CN_PAYRUN_PAID');
1178: fnd_msg_pub.ADD;
1179: END IF;
1180:
1181: RAISE fnd_api.g_exc_error;
1182: END IF;
1193: WHEN NO_DATA_FOUND
1194: THEN
1195: -- resource not exist for this user
1196: fnd_message.set_name ('CN', 'CN_USER_RESOURCE_NF');
1197: fnd_msg_pub.ADD;
1198: RAISE fnd_api.g_exc_error;
1199: END;
1200:
1201: -- check if user can access this worksheet when
1248: AND m2.resource_id = re2.resource_id);
1249: EXCEPTION
1250: WHEN NO_DATA_FOUND
1251: THEN
1252: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1253: THEN
1254: fnd_message.set_name ('CN', 'CN_NO_SRP_ACCESS');
1255: fnd_msg_pub.ADD;
1256: END IF;
1251: THEN
1252: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1253: THEN
1254: fnd_message.set_name ('CN', 'CN_NO_SRP_ACCESS');
1255: fnd_msg_pub.ADD;
1256: END IF;
1257:
1258: RAISE fnd_api.g_exc_error;
1259: END;
1305: THEN
1306: --Added for R12 payment security check end.
1307: IF l_payrun_status <> 'UNPAID' OR l_worksheet_rec.worksheet_status <> 'UNPAID'
1308: THEN
1309: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1310: THEN
1311: fnd_message.set_name ('CN', 'CN_WKSHT_ACTION_UNPAID');
1312: fnd_msg_pub.ADD;
1313: END IF;
1308: THEN
1309: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1310: THEN
1311: fnd_message.set_name ('CN', 'CN_WKSHT_ACTION_UNPAID');
1312: fnd_msg_pub.ADD;
1313: END IF;
1314:
1315: RAISE fnd_api.g_exc_error;
1316: END IF;
1317: ELSE
1318:
1319: IF l_payrun_status = 'PAID' OR l_worksheet_rec.worksheet_status <> 'UNPAID'
1320: THEN
1321: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1322: THEN
1323: fnd_message.set_name ('CN', 'CN_WKSHT_ACTION_UNPAID');
1324: fnd_msg_pub.ADD;
1325: END IF;
1320: THEN
1321: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1322: THEN
1323: fnd_message.set_name ('CN', 'CN_WKSHT_ACTION_UNPAID');
1324: fnd_msg_pub.ADD;
1325: END IF;
1326:
1327: RAISE fnd_api.g_exc_error;
1328: END IF;
1341:
1342: --Added for R12 payment security check end.
1343: IF l_payrun_status <> 'UNPAID' OR l_worksheet_rec.worksheet_status NOT IN ('PROCESSING', 'UNPAID')
1344: THEN
1345: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1346: THEN
1347: fnd_message.set_name ('CN', 'CN_WKSHT_NOT_PROCESSING');
1348: fnd_msg_pub.ADD;
1349: END IF;
1344: THEN
1345: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1346: THEN
1347: fnd_message.set_name ('CN', 'CN_WKSHT_NOT_PROCESSING');
1348: fnd_msg_pub.ADD;
1349: END IF;
1350:
1351: RAISE fnd_api.g_exc_error;
1352: END IF;
1362:
1363: --Added for R12 payment security check end.
1364: IF l_payrun_status <> 'UNPAID' OR (l_worksheet_rec.worksheet_status NOT IN ('PROCESSING','FAILED'))
1365: THEN
1366: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1367: THEN
1368: fnd_message.set_name ('CN', 'CN_WKSHT_NOT_PROCESSING');
1369: fnd_msg_pub.ADD;
1370: END IF;
1365: THEN
1366: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1367: THEN
1368: fnd_message.set_name ('CN', 'CN_WKSHT_NOT_PROCESSING');
1369: fnd_msg_pub.ADD;
1370: END IF;
1371:
1372: RAISE fnd_api.g_exc_error;
1373: END IF;
1385:
1386: --Added for R12 payment security check end.
1387: IF l_payrun_status <> 'UNPAID' OR l_worksheet_rec.worksheet_status <> 'LOCKED'
1388: THEN
1389: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1390: THEN
1391: fnd_message.set_name ('CN', 'CN_WKSHT_ACTION_UNLOCK');
1392: fnd_msg_pub.ADD;
1393: END IF;
1388: THEN
1389: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1390: THEN
1391: fnd_message.set_name ('CN', 'CN_WKSHT_ACTION_UNLOCK');
1392: fnd_msg_pub.ADD;
1393: END IF;
1394:
1395: RAISE fnd_api.g_exc_error;
1396: END IF;
1407:
1408: --Added for R12 payment security check end.
1409: IF l_worksheet_rec.worksheet_status <> 'LOCKED'
1410: THEN
1411: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1412: THEN
1413: fnd_message.set_name ('CN', 'CN_WKSHT_ACTION_SUBMIT');
1414: fnd_msg_pub.ADD;
1415: END IF;
1410: THEN
1411: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1412: THEN
1413: fnd_message.set_name ('CN', 'CN_WKSHT_ACTION_SUBMIT');
1414: fnd_msg_pub.ADD;
1415: END IF;
1416:
1417: RAISE fnd_api.g_exc_error;
1418: END IF;
1444: --Added for R12 payment security check end.
1445: --- commented by fred
1446: IF l_worksheet_rec.worksheet_status <> 'SUBMITTED' AND l_worksheet_rec.worksheet_status <> 'APPROVED'
1447: THEN
1448: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1449: THEN
1450: fnd_message.set_name ('CN', 'CN_WKSHT_ACTION_APPROVE');
1451: fnd_msg_pub.ADD;
1452: END IF;
1447: THEN
1448: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1449: THEN
1450: fnd_message.set_name ('CN', 'CN_WKSHT_ACTION_APPROVE');
1451: fnd_msg_pub.ADD;
1452: END IF;
1453:
1454: RAISE fnd_api.g_exc_error;
1455: END IF;
1459: -- only manager or superuser can perform submit and approve
1460: -- Check if user is manager
1461: /* comment out as R12 payment security has been changed.
1462: IF is_superuser(p_period_id => l_pay_period_id) = 0 AND is_manager(p_period_id => l_pay_period_id) = 0 THEN
1463: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1464: FND_MESSAGE.SET_NAME ('CN','CN_WKSHT_NOT_MGR');
1465: FND_MSG_PUB.Add;
1466: END IF;
1467: RAISE FND_API.G_EXC_ERROR ;
1461: /* comment out as R12 payment security has been changed.
1462: IF is_superuser(p_period_id => l_pay_period_id) = 0 AND is_manager(p_period_id => l_pay_period_id) = 0 THEN
1463: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1464: FND_MESSAGE.SET_NAME ('CN','CN_WKSHT_NOT_MGR');
1465: FND_MSG_PUB.Add;
1466: END IF;
1467: RAISE FND_API.G_EXC_ERROR ;
1468: END IF;
1469: */
1521: WHERE payment_worksheet_id = p_worksheet_id));
1522: EXCEPTION
1523: WHEN NO_DATA_FOUND
1524: THEN
1525: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1526: THEN
1527: fnd_message.set_name ('CN', 'CN_NO_SRP_ACCESS');
1528: fnd_msg_pub.ADD;
1529: END IF;
1524: THEN
1525: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1526: THEN
1527: fnd_message.set_name ('CN', 'CN_NO_SRP_ACCESS');
1528: fnd_msg_pub.ADD;
1529: END IF;
1530:
1531: RAISE fnd_api.g_exc_error;
1532: END;
1552: AND submit_by_user_id = fnd_global.user_id AND approval_status = 'APPROVED';
1553:
1554: IF l_tmp > 0
1555: THEN
1556: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1557: THEN
1558: fnd_message.set_name ('CN', 'CN_SAME_USER_APPROVE');
1559: fnd_msg_pub.ADD;
1560: END IF;
1555: THEN
1556: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1557: THEN
1558: fnd_message.set_name ('CN', 'CN_SAME_USER_APPROVE');
1559: fnd_msg_pub.ADD;
1560: END IF;
1561:
1562: RAISE fnd_api.g_exc_error;
1563: END IF;
1564: END IF;
1565:
1566: ELSE
1567: -- invalid p_action
1568: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1569: THEN
1570: fnd_message.set_name ('CN', 'CN_WKSHT_ACTION_NOT_EXIST');
1571: fnd_msg_pub.ADD;
1572: END IF;
1567: -- invalid p_action
1568: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1569: THEN
1570: fnd_message.set_name ('CN', 'CN_WKSHT_ACTION_NOT_EXIST');
1571: fnd_msg_pub.ADD;
1572: END IF;
1573:
1574: RAISE fnd_api.g_exc_error;
1575: END IF;
1599: COMMIT WORK;
1600: END IF;
1601:
1602: -- Standard call to get message count and if count is 1, get message info.
1603: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1604: EXCEPTION
1605: WHEN fnd_api.g_exc_error
1606: THEN
1607: ROLLBACK TO worksheet_action;
1605: WHEN fnd_api.g_exc_error
1606: THEN
1607: ROLLBACK TO worksheet_action;
1608: x_return_status := fnd_api.g_ret_sts_error;
1609: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1610: WHEN fnd_api.g_exc_unexpected_error
1611: THEN
1612: ROLLBACK TO worksheet_action;
1613: x_return_status := fnd_api.g_ret_sts_unexp_error;
1610: WHEN fnd_api.g_exc_unexpected_error
1611: THEN
1612: ROLLBACK TO worksheet_action;
1613: x_return_status := fnd_api.g_ret_sts_unexp_error;
1614: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1615: WHEN OTHERS
1616: THEN
1617: ROLLBACK TO worksheet_action;
1618: x_return_status := fnd_api.g_ret_sts_unexp_error;
1616: THEN
1617: ROLLBACK TO worksheet_action;
1618: x_return_status := fnd_api.g_ret_sts_unexp_error;
1619:
1620: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1621: THEN
1622: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1623: END IF;
1624:
1618: x_return_status := fnd_api.g_ret_sts_unexp_error;
1619:
1620: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1621: THEN
1622: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1623: END IF;
1624:
1625: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1626: END worksheet_action;
1621: THEN
1622: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1623: END IF;
1624:
1625: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1626: END worksheet_action;
1627:
1628: --R12 payment security
1629: FUNCTION get_security_access (
1654: END IF;
1655:
1656: l_access := LOWER (p_access);
1657:
1658: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1659: THEN
1660: fnd_message.set_name ('CN', 'CN_PMT_NO_ACCESS');
1661: fnd_message.set_token ('TYPE', l_type);
1662: fnd_message.set_token ('ACCESS', l_access);
1659: THEN
1660: fnd_message.set_name ('CN', 'CN_PMT_NO_ACCESS');
1661: fnd_message.set_token ('TYPE', l_type);
1662: fnd_message.set_token ('ACCESS', l_access);
1663: fnd_msg_pub.ADD;
1664: END IF;
1665: END IF; --l_ret_val = FALSE
1666:
1667: RETURN l_ret_val;