150: x_terr_grp_id := -999;
151: x_terr_grp_acct_id := -999;
152: x_named_acct_id := -999;
153: x_return_status := fnd_api.g_ret_sts_error;
154: fnd_message.clear;
155: fnd_message.set_name ('JTF', 'JTF_TTY_INVALID_PARTY');
156: return;
157: END IF;
158: CLOSE c_validate_party;
151: x_terr_grp_acct_id := -999;
152: x_named_acct_id := -999;
153: x_return_status := fnd_api.g_ret_sts_error;
154: fnd_message.clear;
155: fnd_message.set_name ('JTF', 'JTF_TTY_INVALID_PARTY');
156: return;
157: END IF;
158: CLOSE c_validate_party;
159:
167: x_terr_grp_id := -999;
168: x_terr_grp_acct_id := -999;
169: x_named_acct_id := -999;
170: x_return_status := fnd_api.g_ret_sts_error;
171: fnd_message.clear;
172: fnd_message.set_name ('JTF', 'JTF_TTY_INVALID_FROM_TG');
173: return;
174: END IF;
175: CLOSE c_validate_tg;
168: x_terr_grp_acct_id := -999;
169: x_named_acct_id := -999;
170: x_return_status := fnd_api.g_ret_sts_error;
171: fnd_message.clear;
172: fnd_message.set_name ('JTF', 'JTF_TTY_INVALID_FROM_TG');
173: return;
174: END IF;
175: CLOSE c_validate_tg;
176:
183: END IF;
184: ELSE
185: IF (p_start_date < l_tg_start_date) THEN
186: x_return_status := fnd_api.g_ret_sts_error;
187: fnd_message.clear;
188: fnd_message.set_name ('JTF', 'JTF_TERR_STARTDATE_NOT_VALID');
189: return;
190: END IF;
191: END IF;
184: ELSE
185: IF (p_start_date < l_tg_start_date) THEN
186: x_return_status := fnd_api.g_ret_sts_error;
187: fnd_message.clear;
188: fnd_message.set_name ('JTF', 'JTF_TERR_STARTDATE_NOT_VALID');
189: return;
190: END IF;
191: END IF;
192:
198: END IF;
199: ELSE
200: IF (p_end_date < l_tg_start_date OR p_end_date > l_tg_end_date) THEN
201: x_return_status := fnd_api.g_ret_sts_error;
202: fnd_message.clear;
203: fnd_message.set_name ('JTF', 'JTF_TERR_ENDDATE_NOT_VALID');
204: return;
205: END IF;
206: END IF;
199: ELSE
200: IF (p_end_date < l_tg_start_date OR p_end_date > l_tg_end_date) THEN
201: x_return_status := fnd_api.g_ret_sts_error;
202: fnd_message.clear;
203: fnd_message.set_name ('JTF', 'JTF_TERR_ENDDATE_NOT_VALID');
204: return;
205: END IF;
206: END IF;
207:
217: x_terr_grp_id := -999;
218: x_terr_grp_acct_id := -999;
219: x_named_acct_id := -999;
220: x_return_status := fnd_api.g_ret_sts_error;
221: fnd_message.clear;
222: fnd_message.set_name ('JTF', 'JTF_TTY_NO_TGA_MATCH');
223: return;
224: END IF;
225: CLOSE c_get_all_ids;
218: x_terr_grp_acct_id := -999;
219: x_named_acct_id := -999;
220: x_return_status := fnd_api.g_ret_sts_error;
221: fnd_message.clear;
222: fnd_message.set_name ('JTF', 'JTF_TTY_NO_TGA_MATCH');
223: return;
224: END IF;
225: CLOSE c_get_all_ids;
226:
254:
255: EXCEPTION
256: WHEN OTHERS THEN
257: l_error_msg := substr(sqlerrm,1,200);
258: fnd_message.clear;
259: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
260: fnd_message.set_token('ERRMSG', l_error_msg );
261: put_jty_log('Error in GET_TERR_GRP_ACCT_DETAILS: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
262: return;
255: EXCEPTION
256: WHEN OTHERS THEN
257: l_error_msg := substr(sqlerrm,1,200);
258: fnd_message.clear;
259: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
260: fnd_message.set_token('ERRMSG', l_error_msg );
261: put_jty_log('Error in GET_TERR_GRP_ACCT_DETAILS: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
262: return;
263: END GET_TERR_GRP_ACCT_DETAILS;
256: WHEN OTHERS THEN
257: l_error_msg := substr(sqlerrm,1,200);
258: fnd_message.clear;
259: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
260: fnd_message.set_token('ERRMSG', l_error_msg );
261: put_jty_log('Error in GET_TERR_GRP_ACCT_DETAILS: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
262: return;
263: END GET_TERR_GRP_ACCT_DETAILS;
264:
346: EXCEPTION
347: WHEN OTHERS THEN
348: x_return_status := fnd_api.g_ret_sts_unexp_error;
349: l_error_msg := substr(sqlerrm,1,200);
350: fnd_message.clear;
351: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
352: fnd_message.set_token('ERRMSG', l_error_msg );
353: put_jty_log('Error in DELETE_ACCT_FROM_TG: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
354: return;
347: WHEN OTHERS THEN
348: x_return_status := fnd_api.g_ret_sts_unexp_error;
349: l_error_msg := substr(sqlerrm,1,200);
350: fnd_message.clear;
351: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
352: fnd_message.set_token('ERRMSG', l_error_msg );
353: put_jty_log('Error in DELETE_ACCT_FROM_TG: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
354: return;
355: END DELETE_ACCT_FROM_TG;
348: x_return_status := fnd_api.g_ret_sts_unexp_error;
349: l_error_msg := substr(sqlerrm,1,200);
350: fnd_message.clear;
351: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
352: fnd_message.set_token('ERRMSG', l_error_msg );
353: put_jty_log('Error in DELETE_ACCT_FROM_TG: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
354: return;
355: END DELETE_ACCT_FROM_TG;
356:
669: x_terr_grp_id := -999;
670: x_terr_grp_acct_id := -999;
671: x_named_acct_id := -999;
672: x_return_status := fnd_api.g_ret_sts_error;
673: fnd_message.clear;
674: fnd_message.set_name ('JTF', 'JTF_TTY_INVALID_PARTY');
675: return;
676: END IF;
677: CLOSE c_validate_party;
670: x_terr_grp_acct_id := -999;
671: x_named_acct_id := -999;
672: x_return_status := fnd_api.g_ret_sts_error;
673: fnd_message.clear;
674: fnd_message.set_name ('JTF', 'JTF_TTY_INVALID_PARTY');
675: return;
676: END IF;
677: CLOSE c_validate_party;
678:
688: x_terr_grp_id := -999;
689: x_terr_grp_acct_id := -999;
690: x_named_acct_id := -999;
691: x_return_status := fnd_api.g_ret_sts_error;
692: fnd_message.clear;
693: fnd_message.set_name ('JTF', 'JTF_TTY_INVALID_TO_TG');
694: return;
695: END IF;
696: CLOSE c_validate_tg;
689: x_terr_grp_acct_id := -999;
690: x_named_acct_id := -999;
691: x_return_status := fnd_api.g_ret_sts_error;
692: fnd_message.clear;
693: fnd_message.set_name ('JTF', 'JTF_TTY_INVALID_TO_TG');
694: return;
695: END IF;
696: CLOSE c_validate_tg;
697:
699: x_terr_grp_id := -999;
700: x_terr_grp_acct_id := -999;
701: x_named_acct_id := -999;
702: x_return_status := fnd_api.g_ret_sts_error;
703: fnd_message.clear;
704: fnd_message.set_name ('JTF', 'JTF_TTY_NO_DUNS_NUMBER');
705: return;
706: END IF;
707:
700: x_terr_grp_acct_id := -999;
701: x_named_acct_id := -999;
702: x_return_status := fnd_api.g_ret_sts_error;
703: fnd_message.clear;
704: fnd_message.set_name ('JTF', 'JTF_TTY_NO_DUNS_NUMBER');
705: return;
706: END IF;
707:
708: -- added 06/05/2006 bug 5246668, to validate and set date
714: END IF;
715: ELSE
716: IF (p_start_date < l_tg_start_date) THEN
717: x_return_status := fnd_api.g_ret_sts_error;
718: fnd_message.clear;
719: fnd_message.set_name ('JTF', 'JTF_TERR_STARTDATE_NOT_VALID');
720: return;
721: END IF;
722: END IF;
715: ELSE
716: IF (p_start_date < l_tg_start_date) THEN
717: x_return_status := fnd_api.g_ret_sts_error;
718: fnd_message.clear;
719: fnd_message.set_name ('JTF', 'JTF_TERR_STARTDATE_NOT_VALID');
720: return;
721: END IF;
722: END IF;
723:
729: END IF;
730: ELSE
731: IF (p_end_date < l_tg_start_date OR p_end_date > l_tg_end_date) THEN
732: x_return_status := fnd_api.g_ret_sts_error;
733: fnd_message.clear;
734: fnd_message.set_name ('JTF', 'JTF_TERR_ENDDATE_NOT_VALID');
735: return;
736: END IF;
737: END IF;
730: ELSE
731: IF (p_end_date < l_tg_start_date OR p_end_date > l_tg_end_date) THEN
732: x_return_status := fnd_api.g_ret_sts_error;
733: fnd_message.clear;
734: fnd_message.set_name ('JTF', 'JTF_TERR_ENDDATE_NOT_VALID');
735: return;
736: END IF;
737: END IF;
738:
749: x_terr_grp_id := -999;
750: x_terr_grp_acct_id := -999;
751: x_named_acct_id := -999;
752: x_return_status := fnd_api.g_ret_sts_error;
753: fnd_message.clear;
754: fnd_message.set_name ('JTF', 'JTF_TTY_TGA_EXISTS');
755: return;
756: END IF;
757: CLOSE c_check_tga_exists;
750: x_terr_grp_acct_id := -999;
751: x_named_acct_id := -999;
752: x_return_status := fnd_api.g_ret_sts_error;
753: fnd_message.clear;
754: fnd_message.set_name ('JTF', 'JTF_TTY_TGA_EXISTS');
755: return;
756: END IF;
757: CLOSE c_check_tga_exists;
758:
911:
912: EXCEPTION
913: WHEN OTHERS THEN
914: l_error_msg := substr(sqlerrm,1,200);
915: fnd_message.clear;
916: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
917: fnd_message.set_token('ERRMSG', l_error_msg );
918: put_jty_log('Error in ADD_ORG_TO_TG: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
919: return;
912: EXCEPTION
913: WHEN OTHERS THEN
914: l_error_msg := substr(sqlerrm,1,200);
915: fnd_message.clear;
916: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
917: fnd_message.set_token('ERRMSG', l_error_msg );
918: put_jty_log('Error in ADD_ORG_TO_TG: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
919: return;
920: END ADD_ORG_TO_TG;
913: WHEN OTHERS THEN
914: l_error_msg := substr(sqlerrm,1,200);
915: fnd_message.clear;
916: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
917: fnd_message.set_token('ERRMSG', l_error_msg );
918: put_jty_log('Error in ADD_ORG_TO_TG: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
919: return;
920: END ADD_ORG_TO_TG;
921:
990:
991: EXCEPTION
992: WHEN OTHERS THEN
993: l_error_msg := substr(sqlerrm,1,200);
994: fnd_message.clear;
995: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
996: fnd_message.set_token('ERRMSG', l_error_msg );
997: put_jty_log('Error in ASSIGN_ACCT_TO_TG_OWNERS: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
998: return;
991: EXCEPTION
992: WHEN OTHERS THEN
993: l_error_msg := substr(sqlerrm,1,200);
994: fnd_message.clear;
995: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
996: fnd_message.set_token('ERRMSG', l_error_msg );
997: put_jty_log('Error in ASSIGN_ACCT_TO_TG_OWNERS: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
998: return;
999: END ASSIGN_ACCT_TO_TG_OWNERS;
992: WHEN OTHERS THEN
993: l_error_msg := substr(sqlerrm,1,200);
994: fnd_message.clear;
995: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
996: fnd_message.set_token('ERRMSG', l_error_msg );
997: put_jty_log('Error in ASSIGN_ACCT_TO_TG_OWNERS: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
998: return;
999: END ASSIGN_ACCT_TO_TG_OWNERS;
1000:
1070: x_group_id := group_rec.group_id; -- group_id assigned
1071: IF counter=2 THEN
1072: x_status := 'E';
1073: x_return_status := FND_API.G_RET_STS_ERROR ;
1074: fnd_message.clear;
1075: fnd_message.set_name ('JTF', 'JTF_TTY_NON_UNIQUE_GROUP_NAME');
1076: x_error_code := 1;
1077: RETURN;
1078: END IF;
1071: IF counter=2 THEN
1072: x_status := 'E';
1073: x_return_status := FND_API.G_RET_STS_ERROR ;
1074: fnd_message.clear;
1075: fnd_message.set_name ('JTF', 'JTF_TTY_NON_UNIQUE_GROUP_NAME');
1076: x_error_code := 1;
1077: RETURN;
1078: END IF;
1079: END LOOP;
1088: x_role_code := role_rec.role_code; -- role_code assigned
1089: IF counter=2 THEN
1090: x_status := 'E';
1091: x_return_status := FND_API.G_RET_STS_ERROR ;
1092: fnd_message.clear;
1093: fnd_message.set_name ('JTF', 'JTF_TTY_NON_UNIQUE_ROLE_NAME');
1094: x_error_code := 1;
1095: RETURN;
1096: END IF;
1089: IF counter=2 THEN
1090: x_status := 'E';
1091: x_return_status := FND_API.G_RET_STS_ERROR ;
1092: fnd_message.clear;
1093: fnd_message.set_name ('JTF', 'JTF_TTY_NON_UNIQUE_ROLE_NAME');
1094: x_error_code := 1;
1095: RETURN;
1096: END IF;
1097: END LOOP;
1102: EXCEPTION
1103: WHEN NO_DATA_FOUND THEN
1104: x_status := 'E';
1105: x_return_status := FND_API.G_RET_STS_ERROR ;
1106: fnd_message.clear;
1107: fnd_message.set_name ('JTF', 'JTF_TTY_SALES_DATA_NOT_VALID');
1108: x_error_code := 1;
1109: RETURN;
1110: END; -- of check group name AVP name
1103: WHEN NO_DATA_FOUND THEN
1104: x_status := 'E';
1105: x_return_status := FND_API.G_RET_STS_ERROR ;
1106: fnd_message.clear;
1107: fnd_message.set_name ('JTF', 'JTF_TTY_SALES_DATA_NOT_VALID');
1108: x_error_code := 1;
1109: RETURN;
1110: END; -- of check group name AVP name
1111:
1191: EXCEPTION
1192: WHEN NO_DATA_FOUND THEN
1193: x_status := 'E';
1194: x_return_status := FND_API.G_RET_STS_ERROR ;
1195: fnd_message.clear;
1196: fnd_message.set_name ('JTF', 'JTF_TTY_SALES_DATA_NOT_VALID');
1197: x_error_code := 1;
1198: RETURN;
1199: WHEN TOO_MANY_ROWS THEN
1192: WHEN NO_DATA_FOUND THEN
1193: x_status := 'E';
1194: x_return_status := FND_API.G_RET_STS_ERROR ;
1195: fnd_message.clear;
1196: fnd_message.set_name ('JTF', 'JTF_TTY_SALES_DATA_NOT_VALID');
1197: x_error_code := 1;
1198: RETURN;
1199: WHEN TOO_MANY_ROWS THEN
1200: x_status := 'E';
1198: RETURN;
1199: WHEN TOO_MANY_ROWS THEN
1200: x_status := 'E';
1201: x_return_status := FND_API.G_RET_STS_ERROR ;
1202: fnd_message.clear;
1203: fnd_message.set_name ('JTF', 'JTF_TTY_NON_UNIQUE_SALES_DATA');
1204: x_error_code := 1;
1205: RETURN;
1206: WHEN OTHERS THEN
1199: WHEN TOO_MANY_ROWS THEN
1200: x_status := 'E';
1201: x_return_status := FND_API.G_RET_STS_ERROR ;
1202: fnd_message.clear;
1203: fnd_message.set_name ('JTF', 'JTF_TTY_NON_UNIQUE_SALES_DATA');
1204: x_error_code := 1;
1205: RETURN;
1206: WHEN OTHERS THEN
1207: x_status := 'E';
1207: x_status := 'E';
1208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1209: x_error_code := 4;
1210: l_error_msg := substr(sqlerrm,1,200);
1211: fnd_message.clear;
1212: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
1213: fnd_message.set_token('ERRMSG', l_error_msg );
1214: put_jty_log('Error in VALIDATE_RESOURCE: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
1215: RETURN;
1208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1209: x_error_code := 4;
1210: l_error_msg := substr(sqlerrm,1,200);
1211: fnd_message.clear;
1212: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
1213: fnd_message.set_token('ERRMSG', l_error_msg );
1214: put_jty_log('Error in VALIDATE_RESOURCE: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
1215: RETURN;
1216: END;
1209: x_error_code := 4;
1210: l_error_msg := substr(sqlerrm,1,200);
1211: fnd_message.clear;
1212: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
1213: fnd_message.set_token('ERRMSG', l_error_msg );
1214: put_jty_log('Error in VALIDATE_RESOURCE: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
1215: RETURN;
1216: END;
1217:
1227: WHEN NO_DATA_FOUND THEN
1228: x_status := 'E';
1229: x_error_code := 2;
1230: x_return_status := FND_API.G_RET_STS_ERROR;
1231: fnd_message.clear;
1232: fnd_message.set_name ('JTF', 'JTF_TTY_ROLE_NOT_IN_TG');
1233: RETURN;
1234: END;
1235:
1228: x_status := 'E';
1229: x_error_code := 2;
1230: x_return_status := FND_API.G_RET_STS_ERROR;
1231: fnd_message.clear;
1232: fnd_message.set_name ('JTF', 'JTF_TTY_ROLE_NOT_IN_TG');
1233: RETURN;
1234: END;
1235:
1236: ELSE
1236: ELSE
1237: x_status := 'E';
1238: x_error_code := 3;
1239: x_return_status := FND_API.G_RET_STS_ERROR;
1240: fnd_message.clear;
1241: fnd_message.set_name ('JTF', 'JTF_TTY_SALES_MANDATORY');
1242: RETURN;
1243: END IF;
1244:
1237: x_status := 'E';
1238: x_error_code := 3;
1239: x_return_status := FND_API.G_RET_STS_ERROR;
1240: fnd_message.clear;
1241: fnd_message.set_name ('JTF', 'JTF_TTY_SALES_MANDATORY');
1242: RETURN;
1243: END IF;
1244:
1245: EXCEPTION
1247: x_status := 'E';
1248: x_error_code := 4;
1249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1250: l_error_msg := substr(sqlerrm,1,200);
1251: fnd_message.clear;
1252: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
1253: fnd_message.set_token('ERRMSG', l_error_msg );
1254: put_jty_log('Error in VALIDATE_RESOURCE: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
1255: RETURN;
1248: x_error_code := 4;
1249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1250: l_error_msg := substr(sqlerrm,1,200);
1251: fnd_message.clear;
1252: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
1253: fnd_message.set_token('ERRMSG', l_error_msg );
1254: put_jty_log('Error in VALIDATE_RESOURCE: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
1255: RETURN;
1256: END VALIDATE_RESOURCE;
1249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1250: l_error_msg := substr(sqlerrm,1,200);
1251: fnd_message.clear;
1252: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
1253: fnd_message.set_token('ERRMSG', l_error_msg );
1254: put_jty_log('Error in VALIDATE_RESOURCE: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
1255: RETURN;
1256: END VALIDATE_RESOURCE;
1257:
1313: WHEN NO_DATA_FOUND THEN
1314: -- x_status := 'E';
1315: x_error_code := 1;
1316: x_return_status := FND_API.G_RET_STS_ERROR;
1317: fnd_message.clear;
1318: fnd_message.set_name ('JTF', 'JTF_TTY_SALES_DATA_NOT_VALID');
1319: RETURN;
1320:
1321: WHEN OTHERS THEN
1314: -- x_status := 'E';
1315: x_error_code := 1;
1316: x_return_status := FND_API.G_RET_STS_ERROR;
1317: fnd_message.clear;
1318: fnd_message.set_name ('JTF', 'JTF_TTY_SALES_DATA_NOT_VALID');
1319: RETURN;
1320:
1321: WHEN OTHERS THEN
1322: -- x_status := 'E';
1323: x_error_code := 4;
1324: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1325: put_jty_log('Error in CHECK_VALID_RESOURCE_ADD: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
1326: l_error_msg := substr(sqlerrm,1,200);
1327: fnd_message.clear;
1328: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
1329: fnd_message.set_token('ERRMSG', l_error_msg );
1330: RETURN;
1331: END;
1324: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1325: put_jty_log('Error in CHECK_VALID_RESOURCE_ADD: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
1326: l_error_msg := substr(sqlerrm,1,200);
1327: fnd_message.clear;
1328: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
1329: fnd_message.set_token('ERRMSG', l_error_msg );
1330: RETURN;
1331: END;
1332:
1325: put_jty_log('Error in CHECK_VALID_RESOURCE_ADD: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
1326: l_error_msg := substr(sqlerrm,1,200);
1327: fnd_message.clear;
1328: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
1329: fnd_message.set_token('ERRMSG', l_error_msg );
1330: RETURN;
1331: END;
1332:
1333:
1518: WHEN NO_DATA_FOUND THEN
1519: -- x_status := 'E';
1520: x_error_code := 1;
1521: x_return_status := FND_API.G_RET_STS_ERROR;
1522: fnd_message.clear;
1523: fnd_message.set_name ('JTF', 'JTF_TTY_SALES_DATA_NOT_VALID');
1524: RETURN;
1525:
1526: WHEN OTHERS THEN
1519: -- x_status := 'E';
1520: x_error_code := 1;
1521: x_return_status := FND_API.G_RET_STS_ERROR;
1522: fnd_message.clear;
1523: fnd_message.set_name ('JTF', 'JTF_TTY_SALES_DATA_NOT_VALID');
1524: RETURN;
1525:
1526: WHEN OTHERS THEN
1527: -- x_status := 'E';
1527: -- x_status := 'E';
1528: x_error_code := 4;
1529: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1530: l_error_msg := substr(sqlerrm,1,200);
1531: fnd_message.clear;
1532: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
1533: fnd_message.set_token('ERRMSG', l_error_msg );
1534: put_jty_log('Error in GET_RESOURCE_OWNERS: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
1535: RETURN;
1528: x_error_code := 4;
1529: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1530: l_error_msg := substr(sqlerrm,1,200);
1531: fnd_message.clear;
1532: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
1533: fnd_message.set_token('ERRMSG', l_error_msg );
1534: put_jty_log('Error in GET_RESOURCE_OWNERS: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
1535: RETURN;
1536:
1529: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1530: l_error_msg := substr(sqlerrm,1,200);
1531: fnd_message.clear;
1532: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
1533: fnd_message.set_token('ERRMSG', l_error_msg );
1534: put_jty_log('Error in GET_RESOURCE_OWNERS: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
1535: RETURN;
1536:
1537:
1623: WHEN OTHERS THEN
1624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1625: -- dbms_output.put_line('Sandeep - Error 2 In ASSIGN_UA_ACCT_TO_TGOWNERS ' || P_TERR_GP_ACCT_ID );
1626: l_error_msg := substr(sqlerrm,1,200);
1627: fnd_message.clear;
1628: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
1629: fnd_message.set_token('ERRMSG', l_error_msg );
1630: put_jty_log('Error in ASSIGN_UA_ACCT_TO_TGOWNERS: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
1631: RETURN;
1624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1625: -- dbms_output.put_line('Sandeep - Error 2 In ASSIGN_UA_ACCT_TO_TGOWNERS ' || P_TERR_GP_ACCT_ID );
1626: l_error_msg := substr(sqlerrm,1,200);
1627: fnd_message.clear;
1628: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
1629: fnd_message.set_token('ERRMSG', l_error_msg );
1630: put_jty_log('Error in ASSIGN_UA_ACCT_TO_TGOWNERS: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
1631: RETURN;
1632:
1625: -- dbms_output.put_line('Sandeep - Error 2 In ASSIGN_UA_ACCT_TO_TGOWNERS ' || P_TERR_GP_ACCT_ID );
1626: l_error_msg := substr(sqlerrm,1,200);
1627: fnd_message.clear;
1628: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
1629: fnd_message.set_token('ERRMSG', l_error_msg );
1630: put_jty_log('Error in ASSIGN_UA_ACCT_TO_TGOWNERS: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
1631: RETURN;
1632:
1633: END ASSIGN_UA_ACCT_TO_TGOWNERS;
2207:
2208: when others then
2209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2210: l_error_msg := substr(sqlerrm,1,200);
2211: fnd_message.clear;
2212: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
2213: fnd_message.set_token('ERRMSG', l_error_msg );
2214: put_jty_log('Error in POPULATE_SALES_TEAM: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
2215: return;
2208: when others then
2209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2210: l_error_msg := substr(sqlerrm,1,200);
2211: fnd_message.clear;
2212: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
2213: fnd_message.set_token('ERRMSG', l_error_msg );
2214: put_jty_log('Error in POPULATE_SALES_TEAM: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
2215: return;
2216:
2209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2210: l_error_msg := substr(sqlerrm,1,200);
2211: fnd_message.clear;
2212: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
2213: fnd_message.set_token('ERRMSG', l_error_msg );
2214: put_jty_log('Error in POPULATE_SALES_TEAM: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
2215: return;
2216:
2217: END POPULATE_SALES_TEAM;
2301: x_added_rscs_tbl(j).resource_start_date := P_START_DATE;
2302: ELSE
2303: IF (l_excel_rscs_tbl(i).resource_start_date < P_START_DATE) THEN
2304: x_return_status := fnd_api.g_ret_sts_error;
2305: fnd_message.clear;
2306: fnd_message.set_name ('JTF', 'JTY_RSC_STARTDATE_NOT_VALID');
2307: FND_MESSAGE.Set_Token ('RES_NAME', i ||', '||l_excel_rscs_tbl(i).resource_name||',');
2308: return;
2309: ELSE
2302: ELSE
2303: IF (l_excel_rscs_tbl(i).resource_start_date < P_START_DATE) THEN
2304: x_return_status := fnd_api.g_ret_sts_error;
2305: fnd_message.clear;
2306: fnd_message.set_name ('JTF', 'JTY_RSC_STARTDATE_NOT_VALID');
2307: FND_MESSAGE.Set_Token ('RES_NAME', i ||', '||l_excel_rscs_tbl(i).resource_name||',');
2308: return;
2309: ELSE
2310: x_added_rscs_tbl(j).resource_start_date := l_excel_rscs_tbl(i).resource_start_date;
2303: IF (l_excel_rscs_tbl(i).resource_start_date < P_START_DATE) THEN
2304: x_return_status := fnd_api.g_ret_sts_error;
2305: fnd_message.clear;
2306: fnd_message.set_name ('JTF', 'JTY_RSC_STARTDATE_NOT_VALID');
2307: FND_MESSAGE.Set_Token ('RES_NAME', i ||', '||l_excel_rscs_tbl(i).resource_name||',');
2308: return;
2309: ELSE
2310: x_added_rscs_tbl(j).resource_start_date := l_excel_rscs_tbl(i).resource_start_date;
2311: END IF;
2317: IF (l_excel_rscs_tbl(i).resource_end_date BETWEEN p_start_date and P_end_date) THEN
2318: x_added_rscs_tbl(j).resource_end_date := l_excel_rscs_tbl(i).resource_end_date;
2319: ELSE
2320: x_return_status := fnd_api.g_ret_sts_error;
2321: fnd_message.clear;
2322: fnd_message.set_name ('JTF', 'JTY_RSC_ENDDATE_NOT_VALID');
2323: FND_MESSAGE.Set_Token ('RES_NAME', i ||', '||l_excel_rscs_tbl(i).resource_name||',');
2324: return;
2325: END IF;
2318: x_added_rscs_tbl(j).resource_end_date := l_excel_rscs_tbl(i).resource_end_date;
2319: ELSE
2320: x_return_status := fnd_api.g_ret_sts_error;
2321: fnd_message.clear;
2322: fnd_message.set_name ('JTF', 'JTY_RSC_ENDDATE_NOT_VALID');
2323: FND_MESSAGE.Set_Token ('RES_NAME', i ||', '||l_excel_rscs_tbl(i).resource_name||',');
2324: return;
2325: END IF;
2326: END IF;
2319: ELSE
2320: x_return_status := fnd_api.g_ret_sts_error;
2321: fnd_message.clear;
2322: fnd_message.set_name ('JTF', 'JTY_RSC_ENDDATE_NOT_VALID');
2323: FND_MESSAGE.Set_Token ('RES_NAME', i ||', '||l_excel_rscs_tbl(i).resource_name||',');
2324: return;
2325: END IF;
2326: END IF;
2327:
2331: elsif x_status = 'I' then NULL;
2332: else
2333: x_return_status := fnd_api.g_ret_sts_error;
2334: -- dbms_output.put_line('Sandeep - error in update sales team: after validate resource' );
2335: if x_error_code < 4 then FND_MESSAGE.Set_Token ('POSITION', i); end if;
2336: return;
2337: end if;
2338: END IF;
2339: END LOOP;
2343: WHEN OTHERS THEN
2344: x_return_status := fnd_api.g_ret_sts_unexp_error;
2345: -- dbms_output.put_line('Sandeep - ' || sqlerrm);
2346: l_error_msg := substr(sqlerrm,1,200);
2347: fnd_message.clear;
2348: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
2349: fnd_message.set_token('ERRMSG', l_error_msg );
2350: put_jty_log('Error in VALIDATE_SALES_TEAM: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
2351: return;
2344: x_return_status := fnd_api.g_ret_sts_unexp_error;
2345: -- dbms_output.put_line('Sandeep - ' || sqlerrm);
2346: l_error_msg := substr(sqlerrm,1,200);
2347: fnd_message.clear;
2348: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
2349: fnd_message.set_token('ERRMSG', l_error_msg );
2350: put_jty_log('Error in VALIDATE_SALES_TEAM: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
2351: return;
2352: END VALIDATE_SALES_TEAM;
2345: -- dbms_output.put_line('Sandeep - ' || sqlerrm);
2346: l_error_msg := substr(sqlerrm,1,200);
2347: fnd_message.clear;
2348: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
2349: fnd_message.set_token('ERRMSG', l_error_msg );
2350: put_jty_log('Error in VALIDATE_SALES_TEAM: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
2351: return;
2352: END VALIDATE_SALES_TEAM;
2353:
2497: end if;
2498: end loop;
2499: else
2500: x_return_status := FND_API.G_RET_STS_ERROR;
2501: fnd_message.clear;
2502: fnd_message.set_name ('JTF', 'JTF_TTY_SALES_DATA_NOT_VALID');
2503: FND_MESSAGE.Set_Token ('POSITION', l_added_rscs_tbl(j).attribute2);
2504: RETURN;
2505: end if;
2498: end loop;
2499: else
2500: x_return_status := FND_API.G_RET_STS_ERROR;
2501: fnd_message.clear;
2502: fnd_message.set_name ('JTF', 'JTF_TTY_SALES_DATA_NOT_VALID');
2503: FND_MESSAGE.Set_Token ('POSITION', l_added_rscs_tbl(j).attribute2);
2504: RETURN;
2505: end if;
2506: if (l_valid_person_flag = TRUE) THEN
2499: else
2500: x_return_status := FND_API.G_RET_STS_ERROR;
2501: fnd_message.clear;
2502: fnd_message.set_name ('JTF', 'JTF_TTY_SALES_DATA_NOT_VALID');
2503: FND_MESSAGE.Set_Token ('POSITION', l_added_rscs_tbl(j).attribute2);
2504: RETURN;
2505: end if;
2506: if (l_valid_person_flag = TRUE) THEN
2507: begin
2566: l_add_rscs_tbl(n).resource_type := 'RS_EMPLOYEE';
2567: end;
2568: else
2569: x_return_status := FND_API.G_RET_STS_ERROR;
2570: fnd_message.clear;
2571: fnd_message.set_name ('JTF', 'JTF_TTY_SALES_DATA_NOT_VALID');
2572: FND_MESSAGE.Set_Token ('POSITION', l_added_rscs_tbl(j).attribute2);
2573: RETURN;
2574: end if;
2567: end;
2568: else
2569: x_return_status := FND_API.G_RET_STS_ERROR;
2570: fnd_message.clear;
2571: fnd_message.set_name ('JTF', 'JTF_TTY_SALES_DATA_NOT_VALID');
2572: FND_MESSAGE.Set_Token ('POSITION', l_added_rscs_tbl(j).attribute2);
2573: RETURN;
2574: end if;
2575: end loop;
2568: else
2569: x_return_status := FND_API.G_RET_STS_ERROR;
2570: fnd_message.clear;
2571: fnd_message.set_name ('JTF', 'JTF_TTY_SALES_DATA_NOT_VALID');
2572: FND_MESSAGE.Set_Token ('POSITION', l_added_rscs_tbl(j).attribute2);
2573: RETURN;
2574: end if;
2575: end loop;
2576: end if;
2577: ELSE
2578: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2579: -- dbms_output.put_line('Sandeep - ERror 2 In populate sales team');
2580: l_error_msg := substr(sqlerrm,1,200);
2581: fnd_message.clear;
2582: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
2583: fnd_message.set_token('ERRMSG', l_error_msg );
2584: put_jty_log('Error in UPDATE_SALES_TEAM: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
2585: return;
2578: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2579: -- dbms_output.put_line('Sandeep - ERror 2 In populate sales team');
2580: l_error_msg := substr(sqlerrm,1,200);
2581: fnd_message.clear;
2582: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
2583: fnd_message.set_token('ERRMSG', l_error_msg );
2584: put_jty_log('Error in UPDATE_SALES_TEAM: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
2585: return;
2586: END IF;
2579: -- dbms_output.put_line('Sandeep - ERror 2 In populate sales team');
2580: l_error_msg := substr(sqlerrm,1,200);
2581: fnd_message.clear;
2582: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
2583: fnd_message.set_token('ERRMSG', l_error_msg );
2584: put_jty_log('Error in UPDATE_SALES_TEAM: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
2585: return;
2586: END IF;
2587: END IF;
2639: when others then
2640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2641: -- dbms_output.put_line('Sandeep - Error In populate sales team: removed sales persons processing');
2642: l_error_msg := substr(sqlerrm,1,200);
2643: fnd_message.clear;
2644: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
2645: fnd_message.set_token('ERRMSG', l_error_msg );
2646: put_jty_log('Error in UPDATE_SALES_TEAM: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
2647: return;
2640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2641: -- dbms_output.put_line('Sandeep - Error In populate sales team: removed sales persons processing');
2642: l_error_msg := substr(sqlerrm,1,200);
2643: fnd_message.clear;
2644: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
2645: fnd_message.set_token('ERRMSG', l_error_msg );
2646: put_jty_log('Error in UPDATE_SALES_TEAM: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
2647: return;
2648: end;
2641: -- dbms_output.put_line('Sandeep - Error In populate sales team: removed sales persons processing');
2642: l_error_msg := substr(sqlerrm,1,200);
2643: fnd_message.clear;
2644: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
2645: fnd_message.set_token('ERRMSG', l_error_msg );
2646: put_jty_log('Error in UPDATE_SALES_TEAM: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
2647: return;
2648: end;
2649: end if; -- if l_res_found = FALSE
2677:
2678:
2679: exception
2680: when no_data_found then
2681: fnd_message.clear;
2682: fnd_message.set_name ('JTF', 'JTF_TTY_NA_NOT_ASSIGED');
2683: -- dbms_output.put_line('Sandeep - ERror 1 In populate sales team');
2684: x_return_status := FND_API.G_RET_STS_ERROR;
2685: return;
2678:
2679: exception
2680: when no_data_found then
2681: fnd_message.clear;
2682: fnd_message.set_name ('JTF', 'JTF_TTY_NA_NOT_ASSIGED');
2683: -- dbms_output.put_line('Sandeep - ERror 1 In populate sales team');
2684: x_return_status := FND_API.G_RET_STS_ERROR;
2685: return;
2686:
2687: when others then
2688: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2689: -- dbms_output.put_line('Sandeep - ERror 2 In populate sales team');
2690: l_error_msg := substr(sqlerrm,1,200);
2691: fnd_message.clear;
2692: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
2693: fnd_message.set_token('ERRMSG', l_error_msg );
2694: put_jty_log('Error in UPDATE_SALES_TEAM: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
2695: return;
2688: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2689: -- dbms_output.put_line('Sandeep - ERror 2 In populate sales team');
2690: l_error_msg := substr(sqlerrm,1,200);
2691: fnd_message.clear;
2692: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
2693: fnd_message.set_token('ERRMSG', l_error_msg );
2694: put_jty_log('Error in UPDATE_SALES_TEAM: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
2695: return;
2696:
2689: -- dbms_output.put_line('Sandeep - ERror 2 In populate sales team');
2690: l_error_msg := substr(sqlerrm,1,200);
2691: fnd_message.clear;
2692: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
2693: fnd_message.set_token('ERRMSG', l_error_msg );
2694: put_jty_log('Error in UPDATE_SALES_TEAM: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
2695: return;
2696:
2697: END UPDATE_SALES_TEAM;
2826: end loop; /* end of looping resource's owners table */
2827: else
2828: x_return_status := FND_API.G_RET_STS_ERROR;
2829: -- dbms_output.put_line('Sandeep - No Owners found');
2830: fnd_message.clear;
2831: fnd_message.set_name ('JTF', 'JTF_TTY_SALES_DATA_NOT_VALID');
2832: FND_MESSAGE.Set_Token ('POSITION', l_added_rscs_tbl(j).attribute2);
2833: RETURN;
2834: end if;
2827: else
2828: x_return_status := FND_API.G_RET_STS_ERROR;
2829: -- dbms_output.put_line('Sandeep - No Owners found');
2830: fnd_message.clear;
2831: fnd_message.set_name ('JTF', 'JTF_TTY_SALES_DATA_NOT_VALID');
2832: FND_MESSAGE.Set_Token ('POSITION', l_added_rscs_tbl(j).attribute2);
2833: RETURN;
2834: end if;
2835: -- dbms_output.put_line('Sandeep - 111');
2828: x_return_status := FND_API.G_RET_STS_ERROR;
2829: -- dbms_output.put_line('Sandeep - No Owners found');
2830: fnd_message.clear;
2831: fnd_message.set_name ('JTF', 'JTF_TTY_SALES_DATA_NOT_VALID');
2832: FND_MESSAGE.Set_Token ('POSITION', l_added_rscs_tbl(j).attribute2);
2833: RETURN;
2834: end if;
2835: -- dbms_output.put_line('Sandeep - 111');
2836: if (l_valid_person_flag = TRUE) /* add the salesperson to l_add_rsc_tbl */ THEN
2857: l_add_rscs_tbl(n).mgr_role_code := '-999';
2858: l_add_rscs_tbl(n).resource_type := 'RS_EMPLOYEE';
2859: else
2860: x_return_status := FND_API.G_RET_STS_ERROR;
2861: fnd_message.clear;
2862: fnd_message.set_name ('JTF', 'JTF_TTY_SALES_DATA_NOT_VALID');
2863: FND_MESSAGE.Set_Token ('POSITION', l_added_rscs_tbl(j).attribute2);
2864: RETURN;
2865: end if;
2858: l_add_rscs_tbl(n).resource_type := 'RS_EMPLOYEE';
2859: else
2860: x_return_status := FND_API.G_RET_STS_ERROR;
2861: fnd_message.clear;
2862: fnd_message.set_name ('JTF', 'JTF_TTY_SALES_DATA_NOT_VALID');
2863: FND_MESSAGE.Set_Token ('POSITION', l_added_rscs_tbl(j).attribute2);
2864: RETURN;
2865: end if;
2866: end loop; /* end of looping l_added_rscs_tbl */
2859: else
2860: x_return_status := FND_API.G_RET_STS_ERROR;
2861: fnd_message.clear;
2862: fnd_message.set_name ('JTF', 'JTF_TTY_SALES_DATA_NOT_VALID');
2863: FND_MESSAGE.Set_Token ('POSITION', l_added_rscs_tbl(j).attribute2);
2864: RETURN;
2865: end if;
2866: end loop; /* end of looping l_added_rscs_tbl */
2867: end if; /* end of if l_added_rscs_tbl.first is not null */
2868: ELSE /* if GET_RESOURCE_OWNERS returned error */
2869: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2870: -- dbms_output.put_line('Sandeep - ERror 2 In populate sales team');
2871: l_error_msg := substr(sqlerrm,1,200);
2872: fnd_message.clear;
2873: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
2874: fnd_message.set_token('ERRMSG', l_error_msg );
2875: return;
2876: END IF;
2869: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2870: -- dbms_output.put_line('Sandeep - ERror 2 In populate sales team');
2871: l_error_msg := substr(sqlerrm,1,200);
2872: fnd_message.clear;
2873: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
2874: fnd_message.set_token('ERRMSG', l_error_msg );
2875: return;
2876: END IF;
2877: -- dbms_output.put_line('Sandeep - 222');
2870: -- dbms_output.put_line('Sandeep - ERror 2 In populate sales team');
2871: l_error_msg := substr(sqlerrm,1,200);
2872: fnd_message.clear;
2873: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
2874: fnd_message.set_token('ERRMSG', l_error_msg );
2875: return;
2876: END IF;
2877: -- dbms_output.put_line('Sandeep - 222');
2878: IF (X_Return_Status = FND_API.G_RET_STS_SUCCESS) THEN
2923:
2924:
2925: exception
2926: when no_data_found then
2927: fnd_message.clear;
2928: fnd_message.set_name ('JTF', 'JTF_TTY_NA_NOT_ASSIGED');
2929: -- dbms_output.put_line('Sandeep - ERror 1 In populate sales team');
2930: x_return_status := FND_API.G_RET_STS_ERROR;
2931: return;
2924:
2925: exception
2926: when no_data_found then
2927: fnd_message.clear;
2928: fnd_message.set_name ('JTF', 'JTF_TTY_NA_NOT_ASSIGED');
2929: -- dbms_output.put_line('Sandeep - ERror 1 In populate sales team');
2930: x_return_status := FND_API.G_RET_STS_ERROR;
2931: return;
2932:
2934: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2935: -- dbms_output.put_line('Sandeep ' || SQLERRM);
2936: -- dbms_output.put_line('Sandeep - ERror 2 In populate sales team');
2937: l_error_msg := substr(sqlerrm,1,200);
2938: fnd_message.clear;
2939: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
2940: fnd_message.set_token('ERRMSG', l_error_msg );
2941: put_jty_log('Error in ADD_SALES_TEAM: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
2942: return;
2935: -- dbms_output.put_line('Sandeep ' || SQLERRM);
2936: -- dbms_output.put_line('Sandeep - ERror 2 In populate sales team');
2937: l_error_msg := substr(sqlerrm,1,200);
2938: fnd_message.clear;
2939: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
2940: fnd_message.set_token('ERRMSG', l_error_msg );
2941: put_jty_log('Error in ADD_SALES_TEAM: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
2942: return;
2943:
2936: -- dbms_output.put_line('Sandeep - ERror 2 In populate sales team');
2937: l_error_msg := substr(sqlerrm,1,200);
2938: fnd_message.clear;
2939: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
2940: fnd_message.set_token('ERRMSG', l_error_msg );
2941: put_jty_log('Error in ADD_SALES_TEAM: ' || SQLERRM, 'ORACLE.APPS.ORACLE.APPS.ORACLE.APPS.JTF.JTF_TTY_MAINTAIN_NA_PVT', FND_LOG.LEVEL_UNEXPECTED);
2942: return;
2943:
2944: END ADD_SALES_TEAM;
3330:
3331:
3332: /* check if party number is missing */
3333: IF (p_party_number is null OR trim(p_party_number) is null) THEN
3334: fnd_message.clear;
3335: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TTY_PARTYNUM_MISSING');
3336: RETURN;
3337: END IF;
3338:
3331:
3332: /* check if party number is missing */
3333: IF (p_party_number is null OR trim(p_party_number) is null) THEN
3334: fnd_message.clear;
3335: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TTY_PARTYNUM_MISSING');
3336: RETURN;
3337: END IF;
3338:
3339: /* check for invalid scenario */
3338:
3339: /* check for invalid scenario */
3340:
3341: IF (p_from_tg is null AND p_to_tg is null) THEN
3342: fnd_message.clear;
3343: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TTY_INVALID_ACTION');
3344: RETURN;
3345: END IF;
3346:
3339: /* check for invalid scenario */
3340:
3341: IF (p_from_tg is null AND p_to_tg is null) THEN
3342: fnd_message.clear;
3343: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TTY_INVALID_ACTION');
3344: RETURN;
3345: END IF;
3346:
3347: BEGIN
3374:
3375:
3376: EXCEPTION
3377: WHEN NO_DATA_FOUND THEN
3378: fnd_message.clear;
3379: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TTY_INV_PARTY_SITE_NUM');
3380: RETURN;
3381: WHEN OTHERS THEN
3382: l_error_msg := substr(sqlerrm,1,200);
3375:
3376: EXCEPTION
3377: WHEN NO_DATA_FOUND THEN
3378: fnd_message.clear;
3379: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TTY_INV_PARTY_SITE_NUM');
3380: RETURN;
3381: WHEN OTHERS THEN
3382: l_error_msg := substr(sqlerrm,1,200);
3383: fnd_message.clear;
3379: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TTY_INV_PARTY_SITE_NUM');
3380: RETURN;
3381: WHEN OTHERS THEN
3382: l_error_msg := substr(sqlerrm,1,200);
3383: fnd_message.clear;
3384: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
3385: fnd_message.set_token('ERRMSG', l_error_msg );
3386: return;
3387: END;
3380: RETURN;
3381: WHEN OTHERS THEN
3382: l_error_msg := substr(sqlerrm,1,200);
3383: fnd_message.clear;
3384: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
3385: fnd_message.set_token('ERRMSG', l_error_msg );
3386: return;
3387: END;
3388:
3381: WHEN OTHERS THEN
3382: l_error_msg := substr(sqlerrm,1,200);
3383: fnd_message.clear;
3384: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
3385: fnd_message.set_token('ERRMSG', l_error_msg );
3386: return;
3387: END;
3388:
3389:
3398: AND upper(meaning) = upper(p_delete_flag)
3399: AND rownum < 2;
3400: EXCEPTION
3401: WHEN NO_DATA_FOUND THEN
3402: fnd_message.clear;
3403: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TTY_INV_DELETE_FLAG');
3404: RETURN;
3405: WHEN OTHERS THEN
3406: l_error_msg := substr(sqlerrm,1,200);
3399: AND rownum < 2;
3400: EXCEPTION
3401: WHEN NO_DATA_FOUND THEN
3402: fnd_message.clear;
3403: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TTY_INV_DELETE_FLAG');
3404: RETURN;
3405: WHEN OTHERS THEN
3406: l_error_msg := substr(sqlerrm,1,200);
3407: fnd_message.clear;
3403: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TTY_INV_DELETE_FLAG');
3404: RETURN;
3405: WHEN OTHERS THEN
3406: l_error_msg := substr(sqlerrm,1,200);
3407: fnd_message.clear;
3408: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
3409: fnd_message.set_token('ERRMSG', l_error_msg );
3410: return;
3411: END;
3404: RETURN;
3405: WHEN OTHERS THEN
3406: l_error_msg := substr(sqlerrm,1,200);
3407: fnd_message.clear;
3408: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
3409: fnd_message.set_token('ERRMSG', l_error_msg );
3410: return;
3411: END;
3412:
3405: WHEN OTHERS THEN
3406: l_error_msg := substr(sqlerrm,1,200);
3407: fnd_message.clear;
3408: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
3409: fnd_message.set_token('ERRMSG', l_error_msg );
3410: return;
3411: END;
3412:
3413:
3412:
3413:
3414: /* check for invalid scenario, white spaces */
3415: IF (trim(p_from_tg) is null AND trim(p_to_tg) is null) THEN
3416: fnd_message.clear;
3417: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TTY_INVALID_ACTION');
3418: RETURN;
3419: END IF;
3420:
3413:
3414: /* check for invalid scenario, white spaces */
3415: IF (trim(p_from_tg) is null AND trim(p_to_tg) is null) THEN
3416: fnd_message.clear;
3417: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TTY_INVALID_ACTION');
3418: RETURN;
3419: END IF;
3420:
3421: /* Retrieve the terr group account details if trying to delete a
3881: -- dbms_output.put_line('Sandeep - Done with populating l_excel_rscs_tbl');
3882: IF (P_DELETE_FLAG_CODE = 'Y') THEN /* trying to delete from TG */
3883: /* check for invalid scenarios */
3884: IF (p_from_tg is null AND p_to_tg is not null) THEN
3885: fnd_message.clear;
3886: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TTY_INV_PROMOTE_DELETE');
3887: RETURN;
3888: ELSIF (p_from_tg is not null AND p_to_tg is not null) THEN
3889: fnd_message.clear;
3882: IF (P_DELETE_FLAG_CODE = 'Y') THEN /* trying to delete from TG */
3883: /* check for invalid scenarios */
3884: IF (p_from_tg is null AND p_to_tg is not null) THEN
3885: fnd_message.clear;
3886: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TTY_INV_PROMOTE_DELETE');
3887: RETURN;
3888: ELSIF (p_from_tg is not null AND p_to_tg is not null) THEN
3889: fnd_message.clear;
3890: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TTY_INV_TRANSFER_DELETE');
3885: fnd_message.clear;
3886: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TTY_INV_PROMOTE_DELETE');
3887: RETURN;
3888: ELSIF (p_from_tg is not null AND p_to_tg is not null) THEN
3889: fnd_message.clear;
3890: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TTY_INV_TRANSFER_DELETE');
3891: RETURN;
3892: ELSE /* it is a valid delete from TG case */
3893: DELETE_ACCT_FROM_TG(P_TERR_GRP_ACCT_ID => X_FROM_TG_ACCT_ID,
3886: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TTY_INV_PROMOTE_DELETE');
3887: RETURN;
3888: ELSIF (p_from_tg is not null AND p_to_tg is not null) THEN
3889: fnd_message.clear;
3890: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TTY_INV_TRANSFER_DELETE');
3891: RETURN;
3892: ELSE /* it is a valid delete from TG case */
3893: DELETE_ACCT_FROM_TG(P_TERR_GRP_ACCT_ID => X_FROM_TG_ACCT_ID,
3894: P_NAMED_ACCT_ID => X_NAMED_ACCT_ID,
4144:
4145: EXCEPTION
4146: WHEN OTHERS THEN
4147: l_error_msg := substr(sqlerrm,1,200);
4148: fnd_message.clear;
4149: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
4150: fnd_message.set_token('ERRMSG', l_error_msg );
4151:
4152: -- dbms_output.put_line ('error : '|| l_error_msg);
4145: EXCEPTION
4146: WHEN OTHERS THEN
4147: l_error_msg := substr(sqlerrm,1,200);
4148: fnd_message.clear;
4149: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
4150: fnd_message.set_token('ERRMSG', l_error_msg );
4151:
4152: -- dbms_output.put_line ('error : '|| l_error_msg);
4153: END POPULATE_ADMIN_EXCEL_DATA;
4146: WHEN OTHERS THEN
4147: l_error_msg := substr(sqlerrm,1,200);
4148: fnd_message.clear;
4149: fnd_message.set_name ('JTF', 'JTF_TTY_ERROR');
4150: fnd_message.set_token('ERRMSG', l_error_msg );
4151:
4152: -- dbms_output.put_line ('error : '|| l_error_msg);
4153: END POPULATE_ADMIN_EXCEL_DATA;
4154: END JTF_TTY_MAINTAIN_NA_PVT;