[Home] [Help]
59: --
60: -- Initialize message list if p_init_msg_list is set to TRUE.
61: --
62: IF FND_API.to_Boolean( p_init_msg_list ) THEN
63: FND_MSG_PUB.initialize;
64: END IF;
65: --
66: -- Initialize API return status to success
67: --
75: FETCH get_old_record INTO l_old_record;
76:
77: IF get_old_record%rowcount = 0 THEN
78: --Error condition
79: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)THEN
80: fnd_message.set_name('CN', 'CN_PAYRUN_DOES_NOT_EXIST');
81: fnd_msg_pub.add;
82: END IF;
83: x_loading_status := 'CN_PAYRUN_DOES_NOT_EXIST';
77: IF get_old_record%rowcount = 0 THEN
78: --Error condition
79: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)THEN
80: fnd_message.set_name('CN', 'CN_PAYRUN_DOES_NOT_EXIST');
81: fnd_msg_pub.add;
82: END IF;
83: x_loading_status := 'CN_PAYRUN_DOES_NOT_EXIST';
84: RAISE FND_API.G_EXC_ERROR;
85: END IF;
87: CLOSE get_old_record;
88:
89: IF l_old_record.status IN ('PAID', 'RETURNED_FUNDS', 'PAID_WITH_RETURNS') THEN
90: --Error condition
91: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)THEN
92: fnd_message.set_name('CN', 'CN_PAYRUN_PAID');
93: fnd_msg_pub.add;
94: END IF;
95: x_loading_status := 'CN_PAYRUN_PAID';
89: IF l_old_record.status IN ('PAID', 'RETURNED_FUNDS', 'PAID_WITH_RETURNS') THEN
90: --Error condition
91: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)THEN
92: fnd_message.set_name('CN', 'CN_PAYRUN_PAID');
93: fnd_msg_pub.add;
94: END IF;
95: x_loading_status := 'CN_PAYRUN_PAID';
96: RAISE FND_API.G_EXC_ERROR;
97: END IF;
97: END IF;
98:
99: IF l_old_record.status = 'FROZEN' THEN
100: --Error condition
101: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)THEN
102: fnd_message.set_name('CN', 'CN_PAYRUN_FROZEN');
103: fnd_msg_pub.add;
104: END IF;
105: x_loading_status := 'CN_PAYRUN_FROZEN';
99: IF l_old_record.status = 'FROZEN' THEN
100: --Error condition
101: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)THEN
102: fnd_message.set_name('CN', 'CN_PAYRUN_FROZEN');
103: fnd_msg_pub.add;
104: END IF;
105: x_loading_status := 'CN_PAYRUN_FROZEN';
106: RAISE FND_API.G_EXC_ERROR;
107: END IF;
159:
160: --
161: -- Standard call to get message count and if count is 1, get message info.
162: --
163: FND_MSG_PUB.Count_And_Get
164: (
165: p_count => x_msg_count ,
166: p_data => x_msg_data ,
167: p_encoded => FND_API.G_FALSE
169: EXCEPTION
170: WHEN FND_API.G_EXC_ERROR THEN
171: ROLLBACK TO Refresh_Payrun;
172: x_return_status := FND_API.G_RET_STS_ERROR ;
173: FND_MSG_PUB.Count_And_Get
174: (
175: p_count => x_msg_count ,
176: p_data => x_msg_data ,
177: p_encoded => FND_API.G_FALSE
179: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
180: ROLLBACK TO Refresh_Payrun;
181: x_loading_status := 'UNEXPECTED_ERR';
182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
183: FND_MSG_PUB.Count_And_Get
184: (
185: p_count => x_msg_count ,
186: p_data => x_msg_data ,
187: p_encoded => FND_API.G_FALSE
189: WHEN OTHERS THEN
190: ROLLBACK TO Refresh_Payrun;
191: x_loading_status := 'UNEXPECTED_ERR';
192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
193: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
194: THEN
195: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
196: END IF;
197: FND_MSG_PUB.Count_And_Get
191: x_loading_status := 'UNEXPECTED_ERR';
192: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
193: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
194: THEN
195: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
196: END IF;
197: FND_MSG_PUB.Count_And_Get
198: (
199: p_count => x_msg_count ,
193: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
194: THEN
195: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
196: END IF;
197: FND_MSG_PUB.Count_And_Get
198: (
199: p_count => x_msg_count ,
200: p_data => x_msg_data ,
201: p_encoded => FND_API.G_FALSE
608:
609:
610: IF l_batch_id IS NULL THEN
611: --Error condition
612: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
613: THEN
614: fnd_message.set_name('CN', 'CN_BATCH_HEADER_FAILED');
615: fnd_msg_pub.add;
616: END IF;
611: --Error condition
612: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
613: THEN
614: fnd_message.set_name('CN', 'CN_BATCH_HEADER_FAILED');
615: fnd_msg_pub.add;
616: END IF;
617:
618: x_loading_status := 'CN_BATCH_HEADER_FAILED';
619: RAISE FND_API.G_EXC_ERROR;
652:
653:
654: IF l_batch_line_id IS NULL THEN
655: --Error condition
656: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
657: THEN
658: fnd_message.set_name('CN', 'CN_BATCH_LINE_FAILED');
659: fnd_msg_pub.add;
660: END IF;
655: --Error condition
656: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
657: THEN
658: fnd_message.set_name('CN', 'CN_BATCH_LINE_FAILED');
659: fnd_msg_pub.add;
660: END IF;
661:
662: x_loading_status := 'CN_BATCH_LINE_FAILED';
663: RAISE FND_API.G_EXC_ERROR;
675: -- End of Building and Calling BEE API
676: -- Standard call to get message count and if count is 1,
677: -- get message info.
678:
679: FND_MSG_PUB.Count_And_Get
680: (
681: p_count => x_msg_count,
682: p_data => x_msg_data,
683: p_encoded => FND_API.G_FALSE
693:
694: WHEN OTHERS THEN
695: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
696: x_loading_status := 'UNEXPECTED_ERR';
697: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
698: THEN
699: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name );
700: END IF;
701:
695: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
696: x_loading_status := 'UNEXPECTED_ERR';
697: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
698: THEN
699: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name );
700: END IF;
701:
702: END;
703: -- ===========================================================================
745: x_return_status := FND_API.G_RET_STS_SUCCESS;
746:
747: IF p_payrun_id IS NULL THEN
748: --Error condition
749: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
750: THEN
751: fnd_message.set_name('CN', 'CN_INVALID_PAYRUN');
752: fnd_msg_pub.add;
753: END IF;
748: --Error condition
749: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
750: THEN
751: fnd_message.set_name('CN', 'CN_INVALID_PAYRUN');
752: fnd_msg_pub.add;
753: END IF;
754: x_loading_status := 'CN_INVALID_PAYRUN';
755: RAISE FND_API.G_EXC_ERROR;
756: END IF;
781: -- End of Building and Calling BEE API
782: -- Standard call to get message count and if count is 1,
783: -- get message info.
784:
785: FND_MSG_PUB.Count_And_Get
786: (
787: p_count => x_msg_count,
788: p_data => x_msg_data,
789: p_encoded => FND_API.G_FALSE
799:
800: WHEN OTHERS THEN
801: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
802: x_loading_status := 'UNEXPECTED_ERR';
803: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
804: THEN
805: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name );
806: END IF;
807:
801: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
802: x_loading_status := 'UNEXPECTED_ERR';
803: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
804: THEN
805: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,l_api_name );
806: END IF;
807:
808: END Build_BEE_Api;
809:
870:
871:
872:
873: IF l_quota_payelements = 0 THEN
874: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
875: THEN
876: fnd_message.set_name('CN', 'CN_PE_PAYE_MAPPING');
877: fnd_msg_pub.add;
878: END IF;
873: IF l_quota_payelements = 0 THEN
874: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
875: THEN
876: fnd_message.set_name('CN', 'CN_PE_PAYE_MAPPING');
877: fnd_msg_pub.add;
878: END IF;
879:
880: x_loading_status := 'CN_PE_PAYE_MAPPING';
881: RAISE FND_API.G_EXC_ERROR;
885: FETCH get_num_pe_mapping INTO l_num_pe_mapping;
886: CLOSE get_num_pe_mapping;
887:
888: IF l_num_pe_mapping = 0 THEN
889: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
890: THEN
891: fnd_message.set_name('CN', 'CN_PE_MAPPING');
892: fnd_message.set_token('PE_NAME', quotas.name);
893: fnd_msg_pub.add;
889: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
890: THEN
891: fnd_message.set_name('CN', 'CN_PE_MAPPING');
892: fnd_message.set_token('PE_NAME', quotas.name);
893: fnd_msg_pub.add;
894: END IF;
895:
896: x_loading_status := 'CN_PE_MAPPING';
897: RAISE FND_API.G_EXC_ERROR;
911:
912: WHEN OTHERS THEN
913: x_loading_status := 'UNEXPECTED_ERR';
914:
915: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
916: THEN
917: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
918: END IF;
919: RETURN FALSE;
913: x_loading_status := 'UNEXPECTED_ERR';
914:
915: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
916: THEN
917: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
918: END IF;
919: RETURN FALSE;
920:
921:
949: IF p_pay_date < p_start_date
950: THEN
951:
952: --Error condition
953: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
954: THEN
955: fnd_message.set_name('CN', 'CN_INVALID_PAY_DATE');
956: fnd_msg_pub.add;
957: END IF;
952: --Error condition
953: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
954: THEN
955: fnd_message.set_name('CN', 'CN_INVALID_PAY_DATE');
956: fnd_msg_pub.add;
957: END IF;
958:
959: x_loading_status := 'CN_INVALID_PAY_DATE';
960: RAISE FND_API.G_EXC_ERROR;
972: RETURN fnd_api.g_true;
973:
974: WHEN OTHERS THEN
975: x_loading_status := 'UNEXPECTED_ERR';
976: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
977: THEN
978: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
979: END IF;
980: RETURN fnd_api.g_true;
974: WHEN OTHERS THEN
975: x_loading_status := 'UNEXPECTED_ERR';
976: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
977: THEN
978: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
979: END IF;
980: RETURN fnd_api.g_true;
981:
982: END validate_pay_date;
1010: IF p_status <> '' OR p_status <> 'UNPAID'
1011: THEN
1012:
1013: --Error condition
1014: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1015: THEN
1016: fnd_message.set_name('CN', 'CN_INVALID_PAYRUN_STATUS');
1017: fnd_msg_pub.add;
1018: END IF;
1013: --Error condition
1014: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1015: THEN
1016: fnd_message.set_name('CN', 'CN_INVALID_PAYRUN_STATUS');
1017: fnd_msg_pub.add;
1018: END IF;
1019:
1020: x_loading_status := 'CN_INVALID_PAYRUN_STATUS';
1021: RAISE FND_API.G_EXC_ERROR;
1034:
1035: WHEN OTHERS THEN
1036: x_loading_status := 'UNEXPECTED_ERR';
1037:
1038: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1039: THEN
1040: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1041: END IF;
1042: RETURN fnd_api.g_true;
1036: x_loading_status := 'UNEXPECTED_ERR';
1037:
1038: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1039: THEN
1040: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1041: END IF;
1042: RETURN fnd_api.g_true;
1043:
1044: END validate_payrun_status;
1080:
1081: IF l_count <> 0 THEN
1082:
1083: --Error condition
1084: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1085: THEN
1086: fnd_message.set_name('CN', 'CN_NUNIQUE_PAYRUN_NAME');
1087: fnd_msg_pub.add;
1088: END IF;
1083: --Error condition
1084: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1085: THEN
1086: fnd_message.set_name('CN', 'CN_NUNIQUE_PAYRUN_NAME');
1087: fnd_msg_pub.add;
1088: END IF;
1089:
1090: x_loading_status := 'CN_NUNIQUE_PAYRUN_NAME';
1091: RAISE FND_API.G_EXC_ERROR;
1104:
1105: WHEN OTHERS THEN
1106: x_loading_status := 'UNEXPECTED_ERR';
1107:
1108: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1109: THEN
1110: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1111: END IF;
1112: RETURN fnd_api.g_true;
1106: x_loading_status := 'UNEXPECTED_ERR';
1107:
1108: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1109: THEN
1110: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1111: END IF;
1112: RETURN fnd_api.g_true;
1113:
1114: END validate_name_unique;
1152:
1153: IF l_count = 0 THEN
1154:
1155: --Error condition
1156: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1157: THEN
1158: fnd_message.set_name('CN', 'CN_INVALID_PAY_GROUP');
1159: fnd_msg_pub.add;
1160: END IF;
1155: --Error condition
1156: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1157: THEN
1158: fnd_message.set_name('CN', 'CN_INVALID_PAY_GROUP');
1159: fnd_msg_pub.add;
1160: END IF;
1161:
1162: x_loading_status := 'CN_INVALID_PAY_GROUP';
1163: RAISE FND_API.G_EXC_ERROR;
1176:
1177: WHEN OTHERS THEN
1178: x_loading_status := 'UNEXPECTED_ERR';
1179:
1180: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1181: THEN
1182: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1183: END IF;
1184: RETURN fnd_api.g_true;
1178: x_loading_status := 'UNEXPECTED_ERR';
1179:
1180: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1181: THEN
1182: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1183: END IF;
1184: RETURN fnd_api.g_true;
1185:
1186: END validate_pay_group;
1229:
1230: IF l_count = 0 THEN
1231:
1232: --Error condition
1233: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1234: THEN
1235: fnd_message.set_name('CN', 'CN_INVALID_PAY_PERIOD');
1236: fnd_msg_pub.add;
1237: END IF;
1232: --Error condition
1233: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1234: THEN
1235: fnd_message.set_name('CN', 'CN_INVALID_PAY_PERIOD');
1236: fnd_msg_pub.add;
1237: END IF;
1238:
1239: x_loading_status := 'CN_INVALID_PAY_PERIOD';
1240: RAISE FND_API.G_EXC_ERROR;
1253:
1254: WHEN OTHERS THEN
1255: x_loading_status := 'UNEXPECTED_ERR';
1256:
1257: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1258: THEN
1259: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1260: END IF;
1261: RETURN fnd_api.g_true;
1255: x_loading_status := 'UNEXPECTED_ERR';
1256:
1257: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1258: THEN
1259: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1260: END IF;
1261: RETURN fnd_api.g_true;
1262:
1263: END validate_pay_period;
1301:
1302: IF l_count <> 0 THEN
1303:
1304: --Error condition
1305: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1306: THEN
1307: fnd_message.set_name('CN', 'CN_UNPAID_PAYRUN_EXISTS');
1308: fnd_msg_pub.add;
1309: END IF;
1304: --Error condition
1305: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1306: THEN
1307: fnd_message.set_name('CN', 'CN_UNPAID_PAYRUN_EXISTS');
1308: fnd_msg_pub.add;
1309: END IF;
1310:
1311: x_loading_status := 'CN_UNPAID_PAYRUN_EXISTS';
1312: RAISE FND_API.G_EXC_ERROR;
1325:
1326: WHEN OTHERS THEN
1327: x_loading_status := 'UNEXPECTED_ERR';
1328:
1329: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1330: THEN
1331: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1332: END IF;
1333: RETURN fnd_api.g_true;
1327: x_loading_status := 'UNEXPECTED_ERR';
1328:
1329: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1330: THEN
1331: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1332: END IF;
1333: RETURN fnd_api.g_true;
1334:
1335: END check_unpaid_payrun;
1396:
1397: IF l_last_start_date > l_cur_start_date THEN
1398:
1399: --Error condition
1400: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1401: THEN
1402: fnd_message.set_name('CN', 'CN_NEWER_PAYRUN_EXISTS');
1403: fnd_msg_pub.add;
1404: END IF;
1399: --Error condition
1400: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1401: THEN
1402: fnd_message.set_name('CN', 'CN_NEWER_PAYRUN_EXISTS');
1403: fnd_msg_pub.add;
1404: END IF;
1405:
1406: x_loading_status := 'CN_NEWER_PAYRUN_EXISTS';
1407: RAISE FND_API.G_EXC_ERROR;
1420:
1421: WHEN OTHERS THEN
1422: x_loading_status := 'UNEXPECTED_ERR';
1423:
1424: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1425: THEN
1426: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1427: END IF;
1428: RETURN fnd_api.g_true;
1422: x_loading_status := 'UNEXPECTED_ERR';
1423:
1424: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1425: THEN
1426: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1427: END IF;
1428: RETURN fnd_api.g_true;
1429:
1430: END chk_last_paid_prd;
1664:
1665: WHEN OTHERS THEN
1666: x_loading_status := 'UNEXPECTED_ERR';
1667:
1668: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1669: THEN
1670: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1671: END IF;
1672: RETURN fnd_api.g_true;
1666: x_loading_status := 'UNEXPECTED_ERR';
1667:
1668: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1669: THEN
1670: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1671: END IF;
1672: RETURN fnd_api.g_true;
1673:
1674: END populate_ap_interface;
1769:
1770: WHEN OTHERS THEN
1771: x_loading_status := 'UNEXPECTED_ERR';
1772:
1773: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1774: THEN
1775: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1776: END IF;
1777: RETURN fnd_api.g_true;
1771: x_loading_status := 'UNEXPECTED_ERR';
1772:
1773: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1774: THEN
1775: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1776: END IF;
1777: RETURN fnd_api.g_true;
1778:
1779: END populate_ccids;
1833: --
1834: -- Initialize message list if p_init_msg_list is set to TRUE.
1835: --
1836: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1837: FND_MSG_PUB.initialize;
1838: END IF;
1839: --
1840: -- Initialize API return status to success
1841: --
1993:
1994: IF p_payrun_rec.incentive_type_code NOT IN ('ALL', 'COMMISSION', 'BONUS')
1995: THEN
1996: --Error condition
1997: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1998: THEN
1999: fnd_message.set_name('CN', 'CN_INVALID_INCENTIVE_TYPE');
2000: fnd_msg_pub.add;
2001: END IF;
1996: --Error condition
1997: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
1998: THEN
1999: fnd_message.set_name('CN', 'CN_INVALID_INCENTIVE_TYPE');
2000: fnd_msg_pub.add;
2001: END IF;
2002:
2003: x_loading_status := 'CN_INVALID_INCENTIVE_TYPE';
2004: RAISE FND_API.G_EXC_ERROR;
2008: l_profile_value := fnd_profile.value('CN_PAY_BY_TRANSACTION');
2009: If (l_profile_value IS NULL OR (l_profile_value <> 'Y' AND l_profile_value <> 'N'))
2010: THEN
2011:
2012: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
2013: THEN
2014: fnd_message.set_name('CN', 'CN_PAY_BY_TRANSACTION_PROFILE');
2015: fnd_msg_pub.add;
2016: END IF;
2011:
2012: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
2013: THEN
2014: fnd_message.set_name('CN', 'CN_PAY_BY_TRANSACTION_PROFILE');
2015: fnd_msg_pub.add;
2016: END IF;
2017: x_loading_status := 'CN_PAY_BY_TRANSACTION_PROFILE';
2018: RAISE FND_API.G_EXC_ERROR;
2019: END IF;
2069: --
2070: -- Standard call to get message count and if count is 1, get message info.
2071: --
2072:
2073: FND_MSG_PUB.Count_And_Get
2074: (
2075: p_count => x_msg_count ,
2076: p_data => x_msg_data ,
2077: p_encoded => FND_API.G_FALSE
2080: EXCEPTION
2081: WHEN FND_API.G_EXC_ERROR THEN
2082: ROLLBACK TO Create_Payrun;
2083: x_return_status := FND_API.G_RET_STS_ERROR ;
2084: FND_MSG_PUB.Count_And_Get
2085: (
2086: p_count => x_msg_count ,
2087: p_data => x_msg_data ,
2088: p_encoded => FND_API.G_FALSE
2090: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2091: ROLLBACK TO Create_Payrun;
2092: x_loading_status := 'UNEXPECTED_ERR';
2093: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2094: FND_MSG_PUB.Count_And_Get
2095: (
2096: p_count => x_msg_count ,
2097: p_data => x_msg_data ,
2098: p_encoded => FND_API.G_FALSE
2100: WHEN OTHERS THEN
2101: ROLLBACK TO Create_Payrun;
2102: x_loading_status := 'UNEXPECTED_ERR';
2103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2104: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2105: THEN
2106: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2107: END IF;
2108: FND_MSG_PUB.Count_And_Get
2102: x_loading_status := 'UNEXPECTED_ERR';
2103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2104: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2105: THEN
2106: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2107: END IF;
2108: FND_MSG_PUB.Count_And_Get
2109: (
2110: p_count => x_msg_count ,
2104: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2105: THEN
2106: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2107: END IF;
2108: FND_MSG_PUB.Count_And_Get
2109: (
2110: p_count => x_msg_count ,
2111: p_data => x_msg_data ,
2112: p_encoded => FND_API.G_FALSE
2182: END IF;
2183:
2184: -- Initialize message list if p_init_msg_list is set to TRUE.
2185: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2186: FND_MSG_PUB.initialize;
2187: END IF;
2188:
2189: -- Initialize API return status to success
2190: x_return_status := FND_API.G_RET_STS_SUCCESS;
2198: l_status_meaning := l_old_record.statusmeaning;
2199: --This part is added for OA.
2200: IF l_old_record.object_version_number <> p_x_obj_ver_number
2201: THEN
2202: IF (fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error))
2203: THEN
2204: fnd_message.set_name ('CN', 'CN_RECORD_CHANGED');
2205: fnd_msg_pub.ADD;
2206: END IF;
2201: THEN
2202: IF (fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error))
2203: THEN
2204: fnd_message.set_name ('CN', 'CN_RECORD_CHANGED');
2205: fnd_msg_pub.ADD;
2206: END IF;
2207:
2208: RAISE fnd_api.g_exc_error;
2209: END IF;
2324: COMMIT WORK;
2325: END IF;
2326:
2327: -- Standard call to get message count and if count is 1, get message info.
2328: FND_MSG_PUB.Count_And_Get
2329: (
2330: p_count => x_msg_count ,
2331: p_data => x_msg_data ,
2332: p_encoded => FND_API.G_FALSE
2334: EXCEPTION
2335: WHEN FND_API.G_EXC_ERROR THEN
2336: ROLLBACK TO Update_Payrun;
2337: x_return_status := FND_API.G_RET_STS_ERROR ;
2338: FND_MSG_PUB.Count_And_Get
2339: (
2340: p_count => x_msg_count ,
2341: p_data => x_msg_data ,
2342: p_encoded => FND_API.G_FALSE
2344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2345: ROLLBACK TO Update_Payrun;
2346: x_loading_status := 'UNEXPECTED_ERR';
2347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2348: FND_MSG_PUB.Count_And_Get
2349: (
2350: p_count => x_msg_count ,
2351: p_data => x_msg_data ,
2352: p_encoded => FND_API.G_FALSE
2354: WHEN OTHERS THEN
2355: ROLLBACK TO Update_Payrun;
2356: x_loading_status := 'UNEXPECTED_ERR';
2357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2358: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2359: THEN
2360: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2361: END IF;
2362: FND_MSG_PUB.Count_And_Get
2356: x_loading_status := 'UNEXPECTED_ERR';
2357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2358: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2359: THEN
2360: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2361: END IF;
2362: FND_MSG_PUB.Count_And_Get
2363: (
2364: p_count => x_msg_count ,
2358: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2359: THEN
2360: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2361: END IF;
2362: FND_MSG_PUB.Count_And_Get
2363: (
2364: p_count => x_msg_count ,
2365: p_data => x_msg_data ,
2366: p_encoded => FND_API.G_FALSE
2442: --
2443: -- Initialize message list if p_init_msg_list is set to TRUE.
2444: --
2445: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2446: FND_MSG_PUB.initialize;
2447: END IF;
2448: --
2449: -- Initialize API return status to success
2450: --
2459: FETCH get_old_record INTO l_old_record;
2460: IF get_old_record%rowcount = 0 THEN
2461:
2462: --Error condition
2463: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
2464: THEN
2465: fnd_message.set_name('CN', 'CN_PAYRUN_DOES_NOT_EXIST');
2466: fnd_msg_pub.add;
2467: END IF;
2462: --Error condition
2463: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
2464: THEN
2465: fnd_message.set_name('CN', 'CN_PAYRUN_DOES_NOT_EXIST');
2466: fnd_msg_pub.add;
2467: END IF;
2468:
2469: x_loading_status := 'CN_PAYRUN_DOES_NOT_EXIST';
2470: RAISE FND_API.G_EXC_ERROR;
2480: IF get_conc_request%rowcount > 0 THEN
2481: l_request_id := l_request.request_id;
2482:
2483: --Error condition
2484: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
2485: THEN
2486: fnd_message.set_name('CN', 'CN_CONC_CREATE_WKSHEET_PENDING');
2487: fnd_message.set_token ('REQUESTID', l_request_id);
2488: fnd_msg_pub.add;
2484: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
2485: THEN
2486: fnd_message.set_name('CN', 'CN_CONC_CREATE_WKSHEET_PENDING');
2487: fnd_message.set_token ('REQUESTID', l_request_id);
2488: fnd_msg_pub.add;
2489: END IF;
2490:
2491: x_loading_status := 'CN_CONC_CREATE_WKSHEET_PENDING';
2492: RAISE FND_API.G_EXC_ERROR;
2496:
2497: IF l_old_record.status IN ('PAID', 'RETURNED_FUNDS', 'PAID_WITH_RETURNS')
2498: THEN
2499: --Error condition
2500: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
2501: THEN
2502: fnd_message.set_name('CN', 'CN_PAYRUN_PAID');
2503: fnd_msg_pub.add;
2504: END IF;
2499: --Error condition
2500: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
2501: THEN
2502: fnd_message.set_name('CN', 'CN_PAYRUN_PAID');
2503: fnd_msg_pub.add;
2504: END IF;
2505:
2506: x_loading_status := 'CN_PAYRUN_PAID';
2507: RAISE FND_API.G_EXC_ERROR;
2583:
2584: --
2585: -- Standard call to get message count and if count is 1, get message info.
2586: --
2587: FND_MSG_PUB.Count_And_Get
2588: (
2589: p_count => x_msg_count ,
2590: p_data => x_msg_data ,
2591: p_encoded => FND_API.G_FALSE
2593: EXCEPTION
2594: WHEN FND_API.G_EXC_ERROR THEN
2595: ROLLBACK TO Delete_Payrun;
2596: x_return_status := FND_API.G_RET_STS_ERROR ;
2597: FND_MSG_PUB.Count_And_Get
2598: (
2599: p_count => x_msg_count ,
2600: p_data => x_msg_data ,
2601: p_encoded => FND_API.G_FALSE
2603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2604: ROLLBACK TO Delete_Payrun;
2605: x_loading_status := 'UNEXPECTED_ERR';
2606: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2607: FND_MSG_PUB.Count_And_Get
2608: (
2609: p_count => x_msg_count ,
2610: p_data => x_msg_data ,
2611: p_encoded => FND_API.G_FALSE
2613: WHEN OTHERS THEN
2614: ROLLBACK TO Delete_Payrun;
2615: x_loading_status := 'UNEXPECTED_ERR';
2616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2617: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2618: THEN
2619: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2620: END IF;
2621: FND_MSG_PUB.Count_And_Get
2615: x_loading_status := 'UNEXPECTED_ERR';
2616: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2617: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2618: THEN
2619: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2620: END IF;
2621: FND_MSG_PUB.Count_And_Get
2622: (
2623: p_count => x_msg_count ,
2617: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2618: THEN
2619: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2620: END IF;
2621: FND_MSG_PUB.Count_And_Get
2622: (
2623: p_count => x_msg_count ,
2624: p_data => x_msg_data ,
2625: p_encoded => FND_API.G_FALSE
2737: --
2738: -- Standard call to get message count and if count is 1, get message info.
2739: --
2740:
2741: FND_MSG_PUB.Count_And_Get
2742: (p_count => x_msg_count ,
2743: p_data => x_msg_data ,
2744: p_encoded => FND_API.G_FALSE);
2745:
2746: EXCEPTION
2747: WHEN FND_API.G_EXC_ERROR THEN
2748: ROLLBACK TO Pay_Payrun_Approve_Wksht;
2749: x_return_status := FND_API.G_RET_STS_ERROR ;
2750: FND_MSG_PUB.Count_And_Get
2751: (p_count => x_msg_count ,
2752: p_data => x_msg_data ,
2753: p_encoded => FND_API.G_FALSE
2754: );
2754: );
2755: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2756: ROLLBACK TO Pay_Payrun_Approve_Wksht;
2757: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2758: FND_MSG_PUB.Count_And_Get
2759: (
2760: p_count => x_msg_count ,
2761: p_data => x_msg_data ,
2762: p_encoded => FND_API.G_FALSE
2763: );
2764: WHEN OTHERS THEN
2765: ROLLBACK TO Pay_Payrun_Approve_Wksht;
2766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2767: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2768: THEN
2769: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2770: END IF;
2771: FND_MSG_PUB.Count_And_Get
2765: ROLLBACK TO Pay_Payrun_Approve_Wksht;
2766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2767: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2768: THEN
2769: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2770: END IF;
2771: FND_MSG_PUB.Count_And_Get
2772: (
2773: p_count => x_msg_count ,
2767: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2768: THEN
2769: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
2770: END IF;
2771: FND_MSG_PUB.Count_And_Get
2772: (
2773: p_count => x_msg_count ,
2774: p_data => x_msg_data ,
2775: p_encoded => FND_API.G_FALSE
3018: --
3019: -- Initialize message list if p_init_msg_list is set to TRUE.
3020: --
3021: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3022: FND_MSG_PUB.initialize;
3023: END IF;
3024: --
3025: -- Initialize API return status to success
3026: --
3043: OPEN get_payrun;
3044: FETCH get_payrun INTO l_payrun_rec;
3045: IF get_payrun%rowcount = 0 THEN
3046: --Error condition
3047: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
3048: THEN
3049: fnd_message.set_name('CN', 'CN_INVALID_PAYRUN');
3050: fnd_msg_pub.add;
3051: END IF;
3046: --Error condition
3047: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
3048: THEN
3049: fnd_message.set_name('CN', 'CN_INVALID_PAYRUN');
3050: fnd_msg_pub.add;
3051: END IF;
3052:
3053: x_loading_status := 'CN_INVALID_PAYRUN';
3054: CLOSE get_payrun;
3428: --
3429: -- Standard call to get message count and if count is 1, get message info.
3430: --
3431:
3432: FND_MSG_PUB.Count_And_Get
3433: (
3434: p_count => x_msg_count ,
3435: p_data => x_msg_data ,
3436: p_encoded => FND_API.G_FALSE
3439: EXCEPTION
3440: WHEN FND_API.G_EXC_ERROR THEN
3441: ROLLBACK TO Pay_Payrun;
3442: x_return_status := FND_API.G_RET_STS_ERROR ;
3443: FND_MSG_PUB.Count_And_Get
3444: (
3445: p_count => x_msg_count ,
3446: p_data => x_msg_data ,
3447: p_encoded => FND_API.G_FALSE
3449: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3450: ROLLBACK TO Pay_Payrun;
3451: x_loading_status := 'UNEXPECTED_ERR';
3452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3453: FND_MSG_PUB.Count_And_Get
3454: (
3455: p_count => x_msg_count ,
3456: p_data => x_msg_data ,
3457: p_encoded => FND_API.G_FALSE
3459: WHEN OTHERS THEN
3460: ROLLBACK TO Pay_Payrun;
3461: x_loading_status := 'UNEXPECTED_ERR';
3462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3463: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3464: THEN
3465: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
3466: END IF;
3467: FND_MSG_PUB.Count_And_Get
3461: x_loading_status := 'UNEXPECTED_ERR';
3462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3463: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3464: THEN
3465: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
3466: END IF;
3467: FND_MSG_PUB.Count_And_Get
3468: (
3469: p_count => x_msg_count ,
3463: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3464: THEN
3465: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
3466: END IF;
3467: FND_MSG_PUB.Count_And_Get
3468: (
3469: p_count => x_msg_count ,
3470: p_data => x_msg_data ,
3471: p_encoded => FND_API.G_FALSE
3511: BEGIN
3512:
3513: retcode := 0;
3514: -- Initial message list
3515: FND_MSG_PUB.initialize;
3516:
3517: -- get payrun id
3518: open get_payrun_id_curs;
3519: fetch get_payrun_id_curs into l_payrun_id, l_org_id,l_obj;
3547:
3548: IF l_return_status <> FND_API.g_ret_sts_success
3549: THEN
3550: retcode := 2;
3551: errbuf := FND_MSG_PUB.get(p_msg_index => fnd_msg_pub.G_LAST,
3552: p_encoded => FND_API.G_FALSE);
3553: cn_message_pkg.debug('Error for delete payrun : '||errbuf);
3554: ELSE
3555: COMMIT;