[Home] [Help]
131: end if;
132: end loop;
133:
134: if l_temp = 'X' then
135: fnd_msg_pub.initialize;
136: x_return_status := FND_API.G_RET_STS_ERROR ;
137: fnd_message.set_name('JTF', 'JTF_TERR_DUPLICATE_RESOURCE');
138: FND_MSG_PUB.ADD;
139: FND_MSG_PUB.Count_And_Get( P_count => x_msg_count,
134: if l_temp = 'X' then
135: fnd_msg_pub.initialize;
136: x_return_status := FND_API.G_RET_STS_ERROR ;
137: fnd_message.set_name('JTF', 'JTF_TERR_DUPLICATE_RESOURCE');
138: FND_MSG_PUB.ADD;
139: FND_MSG_PUB.Count_And_Get( P_count => x_msg_count,
140: P_data => x_msg_data);
141: end if;
142:
135: fnd_msg_pub.initialize;
136: x_return_status := FND_API.G_RET_STS_ERROR ;
137: fnd_message.set_name('JTF', 'JTF_TERR_DUPLICATE_RESOURCE');
138: FND_MSG_PUB.ADD;
139: FND_MSG_PUB.Count_And_Get( P_count => x_msg_count,
140: P_data => x_msg_data);
141: end if;
142:
143: EXCEPTION
145: --no duplicates
146: NULL;
147: WHEN OTHERS THEN
148: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
149: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
150: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others Exception in Check_for_duplicate2 ' || SQLERRM);
151: END IF;
152:
153: END Check_for_duplicate2_updates;
146: NULL;
147: WHEN OTHERS THEN
148: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
149: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
150: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others Exception in Check_for_duplicate2 ' || SQLERRM);
151: END IF;
152:
153: END Check_for_duplicate2_updates;
154:
197: end if;
198: end loop;
199:
200: if l_temp = 'X' then
201: fnd_msg_pub.initialize;
202: x_return_status := FND_API.G_RET_STS_ERROR ;
203: fnd_message.set_name('JTF', 'JTF_TERR_DUPLICATE_RESOURCE');
204: FND_MSG_PUB.ADD;
205: FND_MSG_PUB.Count_And_Get ( P_count => x_msg_count, P_data => x_msg_data);
200: if l_temp = 'X' then
201: fnd_msg_pub.initialize;
202: x_return_status := FND_API.G_RET_STS_ERROR ;
203: fnd_message.set_name('JTF', 'JTF_TERR_DUPLICATE_RESOURCE');
204: FND_MSG_PUB.ADD;
205: FND_MSG_PUB.Count_And_Get ( P_count => x_msg_count, P_data => x_msg_data);
206: end if;
207:
208: EXCEPTION
201: fnd_msg_pub.initialize;
202: x_return_status := FND_API.G_RET_STS_ERROR ;
203: fnd_message.set_name('JTF', 'JTF_TERR_DUPLICATE_RESOURCE');
204: FND_MSG_PUB.ADD;
205: FND_MSG_PUB.Count_And_Get ( P_count => x_msg_count, P_data => x_msg_data);
206: end if;
207:
208: EXCEPTION
209: WHEN NO_DATA_FOUND THEN
210: --no duplicates
211: NULL;
212: WHEN OTHERS THEN
213: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
214: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
215: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Others Exception in Check_for_duplicate2 ' || SQLERRM);
216: END IF;
217: END check_for_duplicate2;
218:
211: NULL;
212: WHEN OTHERS THEN
213: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
214: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
215: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Others Exception in Check_for_duplicate2 ' || SQLERRM);
216: END IF;
217: END check_for_duplicate2;
218:
219: /* ARPATEL: bug#2849410 fix */
262: end if;
263: end loop;
264:
265: if l_temp = 'X' then
266: fnd_msg_pub.initialize;
267: x_return_status := FND_API.G_RET_STS_ERROR ;
268: fnd_message.set_name('JTF', 'JTF_TERR_DUPLICATE_RESOURCE');
269: FND_MSG_PUB.ADD;
270: FND_MSG_PUB.Count_And_Get ( P_count => x_msg_count, P_data => x_msg_data);
265: if l_temp = 'X' then
266: fnd_msg_pub.initialize;
267: x_return_status := FND_API.G_RET_STS_ERROR ;
268: fnd_message.set_name('JTF', 'JTF_TERR_DUPLICATE_RESOURCE');
269: FND_MSG_PUB.ADD;
270: FND_MSG_PUB.Count_And_Get ( P_count => x_msg_count, P_data => x_msg_data);
271: end if;
272:
273: EXCEPTION
266: fnd_msg_pub.initialize;
267: x_return_status := FND_API.G_RET_STS_ERROR ;
268: fnd_message.set_name('JTF', 'JTF_TERR_DUPLICATE_RESOURCE');
269: FND_MSG_PUB.ADD;
270: FND_MSG_PUB.Count_And_Get ( P_count => x_msg_count, P_data => x_msg_data);
271: end if;
272:
273: EXCEPTION
274: WHEN NO_DATA_FOUND THEN
275: --no duplicates
276: NULL;
277: WHEN OTHERS THEN
278: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
279: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
280: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Others Exception in Check_for_duplicate2 ' || SQLERRM);
281: END IF;
282: END check_for_duplicate2;
283:
276: NULL;
277: WHEN OTHERS THEN
278: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
279: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
280: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Others Exception in Check_for_duplicate2 ' || SQLERRM);
281: END IF;
282: END check_for_duplicate2;
283:
284: PROCEDURE Check_for_duplicate
313: if l_temp = 'X'
314: then
315: x_return_status := FND_API.G_RET_STS_ERROR ;
316: fnd_message.set_name('JTF', 'JTF_TERR_DUPLICATE_RESOURCE');
317: FND_MSG_PUB.ADD;
318: FND_MSG_PUB.Count_And_Get
319: ( P_count => x_msg_count,
320: P_data => x_msg_data
321: );
314: then
315: x_return_status := FND_API.G_RET_STS_ERROR ;
316: fnd_message.set_name('JTF', 'JTF_TERR_DUPLICATE_RESOURCE');
317: FND_MSG_PUB.ADD;
318: FND_MSG_PUB.Count_And_Get
319: ( P_count => x_msg_count,
320: P_data => x_msg_data
321: );
322:
333:
334: WHEN OTHERS THEN
335: --dbms_output.put_line('Validate_Foreign_Keys: OTHERS - ' || SQLERRM);
336: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
337: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
338: THEN
339: FND_MSG_PUB.Add_Exc_Msg
340: ( G_PKG_NAME,
341: 'Check_for_duplicate ' || SQLERRM
335: --dbms_output.put_line('Validate_Foreign_Keys: OTHERS - ' || SQLERRM);
336: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
337: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
338: THEN
339: FND_MSG_PUB.Add_Exc_Msg
340: ( G_PKG_NAME,
341: 'Check_for_duplicate ' || SQLERRM
342: );
343: END IF;
377: if l_temp = 'X'
378: then
379: x_return_status := FND_API.G_RET_STS_ERROR ;
380: fnd_message.set_name('JTF', 'JTF_TERR_DUPLICATE_RESOURCE');
381: FND_MSG_PUB.ADD;
382: FND_MSG_PUB.Count_And_Get
383: ( P_count => x_msg_count,
384: P_data => x_msg_data
385: );
378: then
379: x_return_status := FND_API.G_RET_STS_ERROR ;
380: fnd_message.set_name('JTF', 'JTF_TERR_DUPLICATE_RESOURCE');
381: FND_MSG_PUB.ADD;
382: FND_MSG_PUB.Count_And_Get
383: ( P_count => x_msg_count,
384: P_data => x_msg_data
385: );
386:
397:
398: WHEN OTHERS THEN
399: --dbms_output.put_line('Validate_Foreign_Keys: OTHERS - ' || SQLERRM);
400: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
401: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
402: THEN
403: FND_MSG_PUB.Add_Exc_Msg
404: ( G_PKG_NAME,
405: 'Check_for_duplicate ' || SQLERRM
399: --dbms_output.put_line('Validate_Foreign_Keys: OTHERS - ' || SQLERRM);
400: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
401: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
402: THEN
403: FND_MSG_PUB.Add_Exc_Msg
404: ( G_PKG_NAME,
405: 'Check_for_duplicate ' || SQLERRM
406: );
407: END IF;
493: END IF;
494:
495: -- Initialize message list if p_init_msg_list is set to TRUE.
496: IF FND_API.to_Boolean( p_init_msg_list ) THEN
497: FND_MSG_PUB.initialize;
498: END IF;
499:
500: -- Debug Message
501: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
497: FND_MSG_PUB.initialize;
498: END IF;
499:
500: -- Debug Message
501: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
502: THEN
503: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
504: fnd_message.set_name ('PROC_NAME', l_api_name);
505: FND_MSG_PUB.Add;
501: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
502: THEN
503: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
504: fnd_message.set_name ('PROC_NAME', l_api_name);
505: FND_MSG_PUB.Add;
506: END IF;
507:
508: -- Initialize API return status to success
509: x_return_status := FND_API.G_RET_STS_SUCCESS;
622: RAISE FND_API.G_EXC_ERROR;
623: END IF;
624:
625: -- Debug Message
626: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
627: THEN
628: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
629: fnd_message.set_name ('PROC_NAME', l_api_name);
630: FND_MSG_PUB.Add;
626: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
627: THEN
628: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
629: fnd_message.set_name ('PROC_NAME', l_api_name);
630: FND_MSG_PUB.Add;
631: END IF;
632:
633:
634: FND_MSG_PUB.Count_And_Get
630: FND_MSG_PUB.Add;
631: END IF;
632:
633:
634: FND_MSG_PUB.Count_And_Get
635: ( p_count => x_msg_count,
636: p_data => x_msg_data
637: );
638:
648: WHEN FND_API.G_EXC_ERROR THEN
649: --dbms_output.put_line('Create_TerrResource PVT: FND_API.G_EXC_ERROR');
650: ROLLBACK TO CREATE_TERRRESOURCE_PVT;
651: x_return_status := FND_API.G_RET_STS_ERROR ;
652: FND_MSG_PUB.Count_And_Get
653: ( p_count => x_msg_count,
654: p_data => x_msg_data
655: );
656:
657: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
658: --dbms_output.put_line('Create_TerrResource PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
659: ROLLBACK TO CREATE_TERRRESOURCE_PVT;
660: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
661: FND_MSG_PUB.Count_And_Get
662: ( p_count => x_msg_count,
663: p_data => x_msg_data
664: );
665:
666: WHEN OTHERS THEN
667: --dbms_output.put_line('Create_TerrResource PVT: OTHERS - ' || SQLERRM);
668: ROLLBACK TO CREATE_TERRRESOURCE_PVT;
669: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
670: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
671: THEN
672: fnd_msg_pub.add_exc_msg (
673: g_pkg_name,
674: 'Error inside Create_TerrResource ' || sqlerrm);
668: ROLLBACK TO CREATE_TERRRESOURCE_PVT;
669: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
670: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
671: THEN
672: fnd_msg_pub.add_exc_msg (
673: g_pkg_name,
674: 'Error inside Create_TerrResource ' || sqlerrm);
675: END IF;
676: --
759: END IF;
760:
761: -- Initialize message list if p_init_msg_list is set to TRUE.
762: IF FND_API.to_Boolean( p_init_msg_list ) THEN
763: FND_MSG_PUB.initialize;
764: END IF;
765:
766: -- Debug Message
767: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
763: FND_MSG_PUB.initialize;
764: END IF;
765:
766: -- Debug Message
767: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
768: THEN
769: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
770: fnd_message.set_name ('PROC_NAME', l_api_name);
771: FND_MSG_PUB.Add;
767: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
768: THEN
769: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
770: fnd_message.set_name ('PROC_NAME', l_api_name);
771: FND_MSG_PUB.Add;
772: END IF;
773:
774: -- Initialize API return status to success
775: x_return_status := FND_API.G_RET_STS_SUCCESS;
888: RAISE FND_API.G_EXC_ERROR;
889: END IF;
890:
891: -- Debug Message
892: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
893: THEN
894: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
895: fnd_message.set_name ('PROC_NAME', l_api_name);
896: FND_MSG_PUB.Add;
892: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
893: THEN
894: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
895: fnd_message.set_name ('PROC_NAME', l_api_name);
896: FND_MSG_PUB.Add;
897: END IF;
898:
899:
900: FND_MSG_PUB.Count_And_Get
896: FND_MSG_PUB.Add;
897: END IF;
898:
899:
900: FND_MSG_PUB.Count_And_Get
901: ( p_count => x_msg_count,
902: p_data => x_msg_data
903: );
904:
914: WHEN FND_API.G_EXC_ERROR THEN
915: --dbms_output.put_line('Create_TerrResource PVT: FND_API.G_EXC_ERROR');
916: ROLLBACK TO CREATE_TERRRESOURCE_PVT;
917: x_return_status := FND_API.G_RET_STS_ERROR ;
918: FND_MSG_PUB.Count_And_Get
919: ( p_count => x_msg_count,
920: p_data => x_msg_data
921: );
922:
923: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
924: --dbms_output.put_line('Create_TerrResource PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
925: ROLLBACK TO CREATE_TERRRESOURCE_PVT;
926: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
927: FND_MSG_PUB.Count_And_Get
928: ( p_count => x_msg_count,
929: p_data => x_msg_data
930: );
931:
932: WHEN OTHERS THEN
933: --dbms_output.put_line('Create_TerrResource PVT: OTHERS - ' || SQLERRM);
934: ROLLBACK TO CREATE_TERRRESOURCE_PVT;
935: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
936: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
937: THEN
938: fnd_msg_pub.add_exc_msg (
939: g_pkg_name,
940: 'Error inside Create_TerrResource ' || sqlerrm);
934: ROLLBACK TO CREATE_TERRRESOURCE_PVT;
935: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
936: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
937: THEN
938: fnd_msg_pub.add_exc_msg (
939: g_pkg_name,
940: 'Error inside Create_TerrResource ' || sqlerrm);
941: END IF;
942: --
1023: END IF;
1024:
1025: -- Initialize message list if p_init_msg_list is set to TRUE.
1026: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1027: FND_MSG_PUB.initialize;
1028: END IF;
1029:
1030: -- Debug Message
1031: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1027: FND_MSG_PUB.initialize;
1028: END IF;
1029:
1030: -- Debug Message
1031: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1032: THEN
1033: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1034: fnd_message.set_name ('PROC_NAME', l_api_name);
1035: FND_MSG_PUB.Add;
1031: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1032: THEN
1033: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1034: fnd_message.set_name ('PROC_NAME', l_api_name);
1035: FND_MSG_PUB.Add;
1036: END IF;
1037:
1038: -- Initialize API return status to success
1039: x_return_status := FND_API.G_RET_STS_SUCCESS;
1069: RAISE FND_API.G_EXC_ERROR;
1070: END IF;
1071:
1072: -- Debug Message
1073: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1074: THEN
1075: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1076: fnd_message.set_name ('PROC_NAME', l_api_name);
1077: FND_MSG_PUB.Add;
1073: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1074: THEN
1075: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1076: fnd_message.set_name ('PROC_NAME', l_api_name);
1077: FND_MSG_PUB.Add;
1078: END IF;
1079:
1080:
1081: FND_MSG_PUB.Count_And_Get
1077: FND_MSG_PUB.Add;
1078: END IF;
1079:
1080:
1081: FND_MSG_PUB.Count_And_Get
1082: ( p_count => x_msg_count,
1083: p_data => x_msg_data
1084: );
1085:
1093: --
1094: WHEN FND_API.G_EXC_ERROR THEN
1095: ROLLBACK TO DELETE_TERR_RESOURCE_PVT;
1096: x_return_status := FND_API.G_RET_STS_ERROR ;
1097: FND_MSG_PUB.Count_And_Get
1098: ( p_count => x_msg_count,
1099: p_data => x_msg_data
1100: );
1101:
1101:
1102: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1103: ROLLBACK TO DELETE_TERR_RESOURCE_PVT;
1104: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1105: FND_MSG_PUB.Count_And_Get
1106: ( p_count => x_msg_count,
1107: p_data => x_msg_data
1108: );
1109:
1109:
1110: WHEN OTHERS THEN
1111: ROLLBACK TO DELETE_TERR_RESOURCE_PVT;
1112: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1113: FND_MSG_PUB.Count_And_Get
1114: ( p_count => x_msg_count,
1115: p_data => x_msg_data
1116: );
1117: --
1202: END IF;
1203:
1204: -- Initialize message list if p_init_msg_list is set to TRUE.
1205: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1206: FND_MSG_PUB.initialize;
1207: END IF;
1208:
1209: -- Debug Message
1210: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1206: FND_MSG_PUB.initialize;
1207: END IF;
1208:
1209: -- Debug Message
1210: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1211: THEN
1212: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1213: fnd_message.set_name ('PROC_NAME', l_api_name);
1214: FND_MSG_PUB.Add;
1210: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1211: THEN
1212: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1213: fnd_message.set_name ('PROC_NAME', l_api_name);
1214: FND_MSG_PUB.Add;
1215: END IF;
1216:
1217:
1218: -- Initialize API return status to success
1259: --
1260: End If;
1261:
1262: -- Debug Message
1263: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1264: THEN
1265: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1266: fnd_message.set_name ('PROC_NAME', l_api_name);
1267: FND_MSG_PUB.Add;
1263: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1264: THEN
1265: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1266: fnd_message.set_name ('PROC_NAME', l_api_name);
1267: FND_MSG_PUB.Add;
1268: END IF;
1269:
1270:
1271: FND_MSG_PUB.Count_And_Get
1267: FND_MSG_PUB.Add;
1268: END IF;
1269:
1270:
1271: FND_MSG_PUB.Count_And_Get
1272: ( p_count => x_msg_count,
1273: p_data => x_msg_data
1274: );
1275:
1283: --
1284: WHEN FND_API.G_EXC_ERROR THEN
1285: ROLLBACK TO UPDATE_TERRRESOURCE_PVT;
1286: x_return_status := FND_API.G_RET_STS_ERROR ;
1287: FND_MSG_PUB.Count_And_Get
1288: ( p_count => x_msg_count,
1289: p_data => x_msg_data
1290: );
1291:
1291:
1292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1293: ROLLBACK TO UPDATE_TERRRESOURCE_PVT;
1294: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1295: FND_MSG_PUB.Count_And_Get
1296: ( p_count => x_msg_count,
1297: p_data => x_msg_data
1298: );
1299:
1299:
1300: WHEN OTHERS THEN
1301: ROLLBACK TO UPDATE_TERRRESOURCE_PVT;
1302: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1303: FND_MSG_PUB.Count_And_Get
1304: ( p_count => x_msg_count,
1305: p_data => x_msg_data
1306: );
1307: --
1330: BEGIN
1331: --dbms_output.put_line('Create_Terr_Resource REC: Entering API');
1332:
1333: -- Debug Message
1334: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1335: THEN
1336: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1337: fnd_message.set_name ('PROC_NAME', l_api_name);
1338: FND_MSG_PUB.Add;
1334: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1335: THEN
1336: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1337: fnd_message.set_name ('PROC_NAME', l_api_name);
1338: FND_MSG_PUB.Add;
1339: END IF;
1340:
1341: -- Initialize API return status to success
1342: x_return_status := FND_API.G_RET_STS_SUCCESS;
1354:
1355: IF ( P_validation_level > FND_API.G_VALID_LEVEL_NONE)
1356: THEN
1357: -- Debug message
1358: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1359: THEN
1360: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
1361: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Terr_Rsc');
1362: FND_MSG_PUB.Add;
1358: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1359: THEN
1360: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
1361: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Terr_Rsc');
1362: FND_MSG_PUB.Add;
1363: END IF;
1364: --
1365: -- Invoke validation procedures
1366: Validate_Terr_Rsc(p_init_msg_list => FND_API.G_FALSE,
1426: -- If successful then save the success status for the record
1427: X_TerrRsc_Out_Rec.return_status := FND_API.G_RET_STS_SUCCESS;
1428:
1429: -- Debug Message
1430: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1431: THEN
1432: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1433: fnd_message.set_name ('PROC_NAME', l_api_name);
1434: FND_MSG_PUB.Add;
1430: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1431: THEN
1432: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1433: fnd_message.set_name ('PROC_NAME', l_api_name);
1434: FND_MSG_PUB.Add;
1435: END IF;
1436:
1437: --dbms_output.put_line('Create_Terr_Resource REC: Exiting API');
1438: EXCEPTION
1442: X_TerrRsc_Out_Rec.TERR_RSC_ID := NULL;
1443: X_TerrRsc_Out_Rec.return_status := x_return_status;
1444: x_return_status := FND_API.G_RET_STS_ERROR ;
1445:
1446: FND_MSG_PUB.Count_And_Get
1447: ( P_count => x_msg_count,
1448: P_data => x_msg_data
1449: );
1450:
1454: --
1455: X_TerrRsc_Out_Rec.TERR_RSC_ID := NULL;
1456: X_TerrRsc_Out_Rec.return_status := x_return_status;
1457: --
1458: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1459: THEN
1460: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Create_Terr_Resource ' || SQLERRM);
1461: END IF;
1462: --
1456: X_TerrRsc_Out_Rec.return_status := x_return_status;
1457: --
1458: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1459: THEN
1460: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Create_Terr_Resource ' || SQLERRM);
1461: END IF;
1462: --
1463: End Create_Terr_Resource;
1464:
1512: BEGIN
1513: --dbms_output.put_line('Create_Terr_Resource REC: Entering API');
1514:
1515: -- Debug Message
1516: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1517: THEN
1518: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1519: fnd_message.set_name ('PROC_NAME', l_api_name);
1520: FND_MSG_PUB.Add;
1516: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1517: THEN
1518: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1519: fnd_message.set_name ('PROC_NAME', l_api_name);
1520: FND_MSG_PUB.Add;
1521: END IF;
1522:
1523: -- Initialize API return status to success
1524: x_return_status := FND_API.G_RET_STS_SUCCESS;
1536:
1537: IF ( P_validation_level > FND_API.G_VALID_LEVEL_NONE)
1538: THEN
1539: -- Debug message
1540: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1541: THEN
1542: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
1543: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Terr_Rsc');
1544: FND_MSG_PUB.Add;
1540: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1541: THEN
1542: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
1543: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Terr_Rsc');
1544: FND_MSG_PUB.Add;
1545: END IF;
1546: --
1547: -- Invoke validation procedures
1548: Validate_Terr_Rsc(p_init_msg_list => FND_API.G_FALSE,
1592: -- If successful then save the success status for the record
1593: X_TerrRsc_Out_Rec.return_status := FND_API.G_RET_STS_SUCCESS;
1594:
1595: -- Debug Message
1596: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1597: THEN
1598: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1599: fnd_message.set_name ('PROC_NAME', l_api_name);
1600: FND_MSG_PUB.Add;
1596: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1597: THEN
1598: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1599: fnd_message.set_name ('PROC_NAME', l_api_name);
1600: FND_MSG_PUB.Add;
1601: END IF;
1602:
1603: --dbms_output.put_line('Create_Terr_Resource REC: Exiting API');
1604: EXCEPTION
1608: X_TerrRsc_Out_Rec.TERR_RSC_ID := NULL;
1609: X_TerrRsc_Out_Rec.return_status := x_return_status;
1610: x_return_status := FND_API.G_RET_STS_ERROR ;
1611:
1612: FND_MSG_PUB.Count_And_Get
1613: ( P_count => x_msg_count,
1614: P_data => x_msg_data
1615: );
1616:
1620: --
1621: X_TerrRsc_Out_Rec.TERR_RSC_ID := NULL;
1622: X_TerrRsc_Out_Rec.return_status := x_return_status;
1623: --
1624: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1625: THEN
1626: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Create_Terr_Resource ' || SQLERRM);
1627: END IF;
1628: --
1622: X_TerrRsc_Out_Rec.return_status := x_return_status;
1623: --
1624: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1625: THEN
1626: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Create_Terr_Resource ' || SQLERRM);
1627: END IF;
1628: --
1629: End Create_Terr_Resource;
1630:
1655: BEGIN
1656: --dbms_output.put_line('Create_Terr_Resource TBL: Entering API');
1657:
1658: -- Debug Message
1659: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1660: THEN
1661: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1662: fnd_message.set_name ('PROC_NAME', l_api_name);
1663: FND_MSG_PUB.Add;
1659: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1660: THEN
1661: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1662: fnd_message.set_name ('PROC_NAME', l_api_name);
1663: FND_MSG_PUB.Add;
1664: END IF;
1665:
1666: -- Initialize API return status to success
1667: x_return_status := FND_API.G_RET_STS_SUCCESS;
1718: END IF;
1719: END LOOP;
1720:
1721: -- Debug Message
1722: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1723: THEN
1724: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1725: fnd_message.set_name ('PROC_NAME', l_api_name);
1726: FND_MSG_PUB.Add;
1722: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1723: THEN
1724: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1725: fnd_message.set_name ('PROC_NAME', l_api_name);
1726: FND_MSG_PUB.Add;
1727: END IF;
1728: --dbms_output.put_line('Create_Terr_Resource TBL: Exiting API');
1729: --
1730: End Create_Terr_Resource;
1783: BEGIN
1784: --dbms_output.put_line('Create_Terr_Resource TBL: Entering API');
1785:
1786: -- Debug Message
1787: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1788: THEN
1789: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1790: fnd_message.set_name ('PROC_NAME', l_api_name);
1791: FND_MSG_PUB.Add;
1787: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1788: THEN
1789: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1790: fnd_message.set_name ('PROC_NAME', l_api_name);
1791: FND_MSG_PUB.Add;
1792: END IF;
1793:
1794: -- Initialize API return status to success
1795: x_return_status := FND_API.G_RET_STS_SUCCESS;
1846: END IF;
1847: END LOOP;
1848:
1849: -- Debug Message
1850: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1851: THEN
1852: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1853: fnd_message.set_name ('PROC_NAME', l_api_name);
1854: FND_MSG_PUB.Add;
1850: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1851: THEN
1852: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1853: fnd_message.set_name ('PROC_NAME', l_api_name);
1854: FND_MSG_PUB.Add;
1855: END IF;
1856: --dbms_output.put_line('Create_Terr_Resource TBL: Exiting API');
1857: --
1858: End Create_Terr_Resource;
1907: BEGIN
1908: --dbms_output.put_line('Create_Resource _Access REC: Entering API');
1909:
1910: -- Debug Message
1911: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1912: THEN
1913: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1914: fnd_message.set_name ('PROC_NAME', l_api_name);
1915: FND_MSG_PUB.Add;
1911: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1912: THEN
1913: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1914: fnd_message.set_name ('PROC_NAME', l_api_name);
1915: FND_MSG_PUB.Add;
1916: END IF;
1917:
1918: -- Initialize API return status to success
1919: x_return_status := FND_API.G_RET_STS_SUCCESS;
1921:
1922: IF ( P_validation_level > FND_API.G_VALID_LEVEL_NONE)
1923: THEN
1924: -- Debug message
1925: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1926: THEN
1927: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
1928: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Terr_Rsc_Access');
1929: FND_MSG_PUB.Add;
1925: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1926: THEN
1927: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
1928: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Terr_Rsc_Access');
1929: FND_MSG_PUB.Add;
1930: END IF;
1931: --
1932: -- Invoke validation procedures
1933: Validate_Terr_Rsc_Access(p_init_msg_list => FND_API.G_FALSE,
1985: -- If successful then save the success status for the record
1986: X_TerrRsc_Access_Out_Rec.return_status := FND_API.G_RET_STS_SUCCESS;
1987:
1988: -- Debug Message
1989: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1990: THEN
1991: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1992: fnd_message.set_name ('PROC_NAME', l_api_name);
1993: FND_MSG_PUB.Add;
1989: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1990: THEN
1991: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1992: fnd_message.set_name ('PROC_NAME', l_api_name);
1993: FND_MSG_PUB.Add;
1994: END IF;
1995:
1996: --dbms_output.put_line('Create_Resource _Access REC: Exiting API');
1997: EXCEPTION
2001: x_return_status := FND_API.G_RET_STS_ERROR ;
2002: X_TerrRsc_Access_Out_Rec.TERR_RSC_ACCESS_ID := NULL;
2003: X_TerrRsc_Access_Out_Rec.return_status := x_return_status;
2004:
2005: FND_MSG_PUB.Count_And_Get
2006: ( P_count => x_msg_count,
2007: P_data => x_msg_data
2008: );
2009:
2014: --
2015: X_TerrRsc_Access_Out_Rec.TERR_RSC_ACCESS_ID := NULL;
2016: X_TerrRsc_Access_Out_Rec.return_status := x_return_status;
2017: --
2018: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2019: THEN
2020: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Create_Resource _Access');
2021: END IF;
2022: --
2016: X_TerrRsc_Access_Out_Rec.return_status := x_return_status;
2017: --
2018: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2019: THEN
2020: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Create_Resource _Access');
2021: END IF;
2022: --
2023: End Create_Resource_Access;
2024:
2084: BEGIN
2085: --dbms_output.put_line('Create_Resource_Access TBL: Entering API - ' || to_char(l_TerrRsc_Access_Tbl_Count));
2086:
2087: -- Debug Message
2088: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2089: THEN
2090: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
2091: fnd_message.set_name ('PROC_NAME', l_api_name);
2092: FND_MSG_PUB.Add;
2088: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2089: THEN
2090: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
2091: fnd_message.set_name ('PROC_NAME', l_api_name);
2092: FND_MSG_PUB.Add;
2093: END IF;
2094:
2095:
2096: -- Initialize API return status to success
2145: END IF;
2146: END LOOP;
2147:
2148: -- Debug Message
2149: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2150: THEN
2151: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
2152: fnd_message.set_name ('PROC_NAME', l_api_name);
2153: FND_MSG_PUB.Add;
2149: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2150: THEN
2151: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
2152: fnd_message.set_name ('PROC_NAME', l_api_name);
2153: FND_MSG_PUB.Add;
2154: END IF;
2155:
2156: --
2157: End Create_Resource_Access;
2216:
2217: -- Initialize message list if p_init_msg_list is set to TRUE.
2218: IF FND_API.to_Boolean( p_init_msg_list )
2219: THEN
2220: FND_MSG_PUB.initialize;
2221: END IF;
2222:
2223: -- Debug Message
2224: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2220: FND_MSG_PUB.initialize;
2221: END IF;
2222:
2223: -- Debug Message
2224: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2225: THEN
2226: FND_MESSAGE.Set_Name('JTF', 'Delete TerrRscAccess : Start');
2227: FND_MSG_PUB.Add;
2228: END IF;
2223: -- Debug Message
2224: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2225: THEN
2226: FND_MESSAGE.Set_Name('JTF', 'Delete TerrRscAccess : Start');
2227: FND_MSG_PUB.Add;
2228: END IF;
2229:
2230: --Initialize the return status to success
2231: x_return_status := FND_API.G_RET_STS_SUCCESS;
2242:
2243: --Prepare message token
2244: FND_MESSAGE.SET_NAME('ITEMS_DELETED', l_row_count);
2245: --Add message to API message list
2246: FND_MSG_PUB.ADD();
2247:
2248: -- Debug Message
2249: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2250: THEN
2245: --Add message to API message list
2246: FND_MSG_PUB.ADD();
2247:
2248: -- Debug Message
2249: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2250: THEN
2251: FND_MESSAGE.Set_Name('JTF', 'Delete TerrRscAccess: End');
2252: FND_MSG_PUB.Add;
2253: END IF;
2248: -- Debug Message
2249: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2250: THEN
2251: FND_MESSAGE.Set_Name('JTF', 'Delete TerrRscAccess: End');
2252: FND_MSG_PUB.Add;
2253: END IF;
2254:
2255:
2256: FND_MSG_PUB.Count_And_Get
2252: FND_MSG_PUB.Add;
2253: END IF;
2254:
2255:
2256: FND_MSG_PUB.Count_And_Get
2257: ( p_count => x_msg_count,
2258: p_data => x_msg_data
2259: );
2260:
2270: l_row_count := 0;
2271: --Prepare message token
2272: FND_MESSAGE.SET_NAME('ITEMS_DELETED', l_row_count);
2273: --Add message to API message list
2274: FND_MSG_PUB.ADD();
2275: --
2276: FND_MSG_PUB.Count_And_Get
2277: ( p_count => x_msg_count,
2278: p_data => x_msg_data
2272: FND_MESSAGE.SET_NAME('ITEMS_DELETED', l_row_count);
2273: --Add message to API message list
2274: FND_MSG_PUB.ADD();
2275: --
2276: FND_MSG_PUB.Count_And_Get
2277: ( p_count => x_msg_count,
2278: p_data => x_msg_data
2279: );
2280:
2280:
2281: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2282: ROLLBACK TO DELETE_TERRRSC_ACCESS_PVT;
2283: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2284: FND_MSG_PUB.Count_And_Get
2285: ( p_count => x_msg_count,
2286: p_data => x_msg_data
2287: );
2288:
2288:
2289: WHEN OTHERS THEN
2290: ROLLBACK TO DELETE_TERRRSC_ACCESS_PVT;
2291: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2292: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2293: THEN
2294: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Delete error inside Delete_TerrRsc_Access');
2295: END IF;
2296: END Delete_TerrRsc_Access;
2290: ROLLBACK TO DELETE_TERRRSC_ACCESS_PVT;
2291: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2292: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2293: THEN
2294: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Delete error inside Delete_TerrRsc_Access');
2295: END IF;
2296: END Delete_TerrRsc_Access;
2297:
2298:
2354: END IF;
2355: -- Initialize message list if p_init_msg_list is set to TRUE.
2356: IF FND_API.to_Boolean( p_init_msg_list )
2357: THEN
2358: FND_MSG_PUB.initialize;
2359: END IF;
2360:
2361: -- Debug Message
2362: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2358: FND_MSG_PUB.initialize;
2359: END IF;
2360:
2361: -- Debug Message
2362: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2363: THEN
2364: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
2365: fnd_message.set_name ('PROC_NAME', l_api_name);
2366: FND_MSG_PUB.Add;
2362: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2363: THEN
2364: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
2365: fnd_message.set_name ('PROC_NAME', l_api_name);
2366: FND_MSG_PUB.Add;
2367: END IF;
2368:
2369: --Initialize the return status to success
2370: x_return_status := FND_API.G_RET_STS_SUCCESS;
2382: --Prepare message token
2383: FND_MESSAGE.SET_TOKEN('ITEMS_DELETED', l_row_count);
2384:
2385: --Add message to API message list
2386: FND_MSG_PUB.ADD();
2387:
2388: -- Debug Message
2389: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2390: THEN
2385: --Add message to API message list
2386: FND_MSG_PUB.ADD();
2387:
2388: -- Debug Message
2389: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2390: THEN
2391: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
2392: fnd_message.set_name ('PROC_NAME', l_api_name);
2393: FND_MSG_PUB.Add;
2389: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2390: THEN
2391: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
2392: fnd_message.set_name ('PROC_NAME', l_api_name);
2393: FND_MSG_PUB.Add;
2394: END IF;
2395:
2396:
2397: FND_MSG_PUB.Count_And_Get
2393: FND_MSG_PUB.Add;
2394: END IF;
2395:
2396:
2397: FND_MSG_PUB.Count_And_Get
2398: ( p_count => x_msg_count,
2399: p_data => x_msg_data
2400: );
2401:
2414: --Prepare message token
2415: FND_MESSAGE.SET_NAME('ITEMS_DELETED', l_row_count);
2416:
2417: --Add message to API message list
2418: FND_MSG_PUB.ADD();
2419: --
2420: FND_MSG_PUB.Count_And_Get
2421: ( p_count => x_msg_count,
2422: p_data => x_msg_data
2416:
2417: --Add message to API message list
2418: FND_MSG_PUB.ADD();
2419: --
2420: FND_MSG_PUB.Count_And_Get
2421: ( p_count => x_msg_count,
2422: p_data => x_msg_data
2423: );
2424:
2424:
2425: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2426: ROLLBACK TO DELETE_TERRRSC_PVT;
2427: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2428: FND_MSG_PUB.Count_And_Get
2429: ( p_count => x_msg_count,
2430: p_data => x_msg_data
2431: );
2432:
2432:
2433: WHEN OTHERS THEN
2434: ROLLBACK TO DELETE_TERRRSC_PVT;
2435: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2436: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2437: THEN
2438: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Delete error inside Delete_Territory_Resource');
2439: END IF;
2440: --
2434: ROLLBACK TO DELETE_TERRRSC_PVT;
2435: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2436: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2437: THEN
2438: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Delete error inside Delete_Territory_Resource');
2439: END IF;
2440: --
2441: End Delete_TerrResource;
2442: --
2512: END IF;
2513:
2514: --Validate the incomming record
2515: IF ( P_validation_level > FND_API.G_VALID_LEVEL_NONE) THEN
2516: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2517: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
2518: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Terr_Rsc');
2519: FND_MSG_PUB.Add;
2520: END IF;
2515: IF ( P_validation_level > FND_API.G_VALID_LEVEL_NONE) THEN
2516: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2517: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
2518: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Terr_Rsc');
2519: FND_MSG_PUB.Add;
2520: END IF;
2521:
2522: -- Invoke validation procedures
2523: Validate_Terr_Rsc(p_init_msg_list => FND_API.G_FALSE,
2538: l_ref_TerrRsc_Rec.RESOURCE_TYPE, l_ref_TerrRsc_Rec.ROLE, l_ref_TerrRsc_Rec.PRIMARY_CONTACT_FLAG,
2539: l_ref_TerrRsc_Rec.ORG_ID;
2540:
2541: If (C_GetTerrResource%NOTFOUND) Then
2542: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2543: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_UPDT_TARGET');
2544: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_RSC');
2545: FND_MESSAGE.Set_Token('PK_ID', TO_CHAR(P_TerrRsc_Rec.TERR_RSC_ID));
2546: FND_MSG_PUB.Add;
2542: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2543: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_UPDT_TARGET');
2544: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_RSC');
2545: FND_MESSAGE.Set_Token('PK_ID', TO_CHAR(P_TerrRsc_Rec.TERR_RSC_ID));
2546: FND_MSG_PUB.Add;
2547: END IF;
2548: raise FND_API.G_EXC_ERROR;
2549: End if;
2550: CLOSE C_GetTerrResource;
2575:
2576: EXCEPTION
2577: WHEN FND_API.G_EXC_ERROR THEN
2578: x_return_status := FND_API.G_RET_STS_ERROR ;
2579: FND_MSG_PUB.Count_And_Get(P_count => x_msg_count,
2580: P_data => x_msg_data);
2581:
2582: WHEN OTHERS THEN
2583: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2582: WHEN OTHERS THEN
2583: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2584: x_TerrRsc_Out_Rec.TERR_RSC_ID := NULL;
2585: x_TerrRsc_Out_Rec.return_status := x_return_status;
2586: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2587: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Update_Territory_Resources');
2588: END IF;
2589:
2590: End Update_Terr_Resource;
2583: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2584: x_TerrRsc_Out_Rec.TERR_RSC_ID := NULL;
2585: x_TerrRsc_Out_Rec.return_status := x_return_status;
2586: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2587: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Update_Territory_Resources');
2588: END IF;
2589:
2590: End Update_Terr_Resource;
2591:
2771:
2772: IF ( P_validation_level > FND_API.G_VALID_LEVEL_NONE)
2773: THEN
2774: -- Debug message
2775: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2776: THEN
2777: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
2778: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Terr_Rsc_Access');
2779: FND_MSG_PUB.Add;
2775: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2776: THEN
2777: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
2778: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Terr_Rsc_Access');
2779: FND_MSG_PUB.Add;
2780: END IF;
2781: --
2782: -- Invoke validation procedures
2783: Validate_Terr_Rsc_Access(p_init_msg_list => FND_API.G_FALSE,
2808: l_ref_TerrRsc_Access_Rec.TRANS_ACCESS_CODE,
2809: l_ref_TerrRsc_Access_Rec.ORG_ID;
2810:
2811: If ( C_GetTerrResAccess%NOTFOUND) Then
2812: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2813: THEN
2814: --dbms_output.put_line('Update_Resource_Access REC: DATA-NOT-FOUND');
2815: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_UPDT_TARGET');
2816: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_RSC_ACCESS');
2814: --dbms_output.put_line('Update_Resource_Access REC: DATA-NOT-FOUND');
2815: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_UPDT_TARGET');
2816: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_RSC_ACCESS');
2817: FND_MESSAGE.Set_Token('PK_ID', TO_CHAR(P_TerrRsc_Access_Rec.TERR_RSC_ACCESS_ID));
2818: FND_MSG_PUB.Add;
2819: END IF;
2820: raise FND_API.G_EXC_ERROR;
2821: End if;
2822: CLOSE C_GetTerrResAccess;
2858: EXCEPTION
2859: WHEN FND_API.G_EXC_ERROR THEN
2860: --dbms_output.put_line('Update_Resource_Access: FND_API.G_EXC_ERROR');
2861: x_return_status := FND_API.G_RET_STS_ERROR ;
2862: FND_MSG_PUB.Count_And_Get
2863: ( P_count => x_msg_count,
2864: P_data => x_msg_data
2865: );
2866:
2871: --
2872: X_TerrRsc_Access_Out_Rec.TERR_RSC_ACCESS_ID := NULL;
2873: X_TerrRsc_Access_Out_Rec.return_status := x_return_status;
2874: --
2875: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2876: THEN
2877: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Update_Resource _Access');
2878: END IF;
2879: --
2873: X_TerrRsc_Access_Out_Rec.return_status := x_return_status;
2874: --
2875: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2876: THEN
2877: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Update_Resource _Access');
2878: END IF;
2879: --
2880: End Update_Resource_Access;
2881:
3031: --dbms_output.put_line('Validate_Foreign_Keys: NO_DATA_FOUND');
3032: x_return_status := FND_API.G_RET_STS_ERROR ;
3033: fnd_message.set_name('JTF', 'JTF_TERR_INVALID_TERRITORY');
3034: fnd_message.Set_Token('TERR_ID', to_char(l_Terr_Id) );
3035: FND_MSG_PUB.ADD;
3036: FND_MSG_PUB.Count_And_Get
3037: ( P_count => x_msg_count,
3038: P_data => x_msg_data
3039: );
3032: x_return_status := FND_API.G_RET_STS_ERROR ;
3033: fnd_message.set_name('JTF', 'JTF_TERR_INVALID_TERRITORY');
3034: fnd_message.Set_Token('TERR_ID', to_char(l_Terr_Id) );
3035: FND_MSG_PUB.ADD;
3036: FND_MSG_PUB.Count_And_Get
3037: ( P_count => x_msg_count,
3038: P_data => x_msg_data
3039: );
3040:
3040:
3041: WHEN OTHERS THEN
3042: --dbms_output.put_line('Validate_Foreign_Keys: OTHERS - ' || SQLERRM);
3043: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3044: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3045: THEN
3046: FND_MSG_PUB.Add_Exc_Msg
3047: ( G_PKG_NAME,
3048: 'Others Exception in Validate_Foreign_Keys ' || SQLERRM
3042: --dbms_output.put_line('Validate_Foreign_Keys: OTHERS - ' || SQLERRM);
3043: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3044: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3045: THEN
3046: FND_MSG_PUB.Add_Exc_Msg
3047: ( G_PKG_NAME,
3048: 'Others Exception in Validate_Foreign_Keys ' || SQLERRM
3049: );
3050: END IF;
3117: --dbms_output.put_line('Validate_Foreign_Keys: NO_DATA_FOUND');
3118: x_return_status := FND_API.G_RET_STS_ERROR ;
3119: fnd_message.set_name('JTF', 'JTF_TERR_INVALID_TERRITORY');
3120: fnd_message.Set_Token('TERR_ID', to_char(l_Terr_Id) );
3121: FND_MSG_PUB.ADD;
3122: FND_MSG_PUB.Count_And_Get
3123: ( P_count => x_msg_count,
3124: P_data => x_msg_data
3125: );
3118: x_return_status := FND_API.G_RET_STS_ERROR ;
3119: fnd_message.set_name('JTF', 'JTF_TERR_INVALID_TERRITORY');
3120: fnd_message.Set_Token('TERR_ID', to_char(l_Terr_Id) );
3121: FND_MSG_PUB.ADD;
3122: FND_MSG_PUB.Count_And_Get
3123: ( P_count => x_msg_count,
3124: P_data => x_msg_data
3125: );
3126:
3126:
3127: WHEN OTHERS THEN
3128: --dbms_output.put_line('Validate_Foreign_Keys: OTHERS - ' || SQLERRM);
3129: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3130: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3131: THEN
3132: FND_MSG_PUB.Add_Exc_Msg
3133: ( G_PKG_NAME,
3134: 'Others Exception in Validate_Foreign_Keys ' || SQLERRM
3128: --dbms_output.put_line('Validate_Foreign_Keys: OTHERS - ' || SQLERRM);
3129: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3130: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3131: THEN
3132: FND_MSG_PUB.Add_Exc_Msg
3133: ( G_PKG_NAME,
3134: 'Others Exception in Validate_Foreign_Keys ' || SQLERRM
3135: );
3136: END IF;
3167: -- Cannot have more than one Primary flag
3168: If l_Primary_Count > 1 Then
3169: --
3170: fnd_message.set_name('JTF', 'JTF_TERR_MULTIPLE_PRIMARY_FLAG');
3171: FND_MSG_PUB.ADD;
3172: raise FND_API.G_EXC_ERROR;
3173: --
3174: End If;
3175: --
3177: --
3178: WHEN FND_API.G_EXC_ERROR THEN
3179: --dbms_output.put_line('Validate_Primary_Flag: FND_API.G_EXC_ERROR');
3180: x_return_status := FND_API.G_RET_STS_ERROR ;
3181: FND_MSG_PUB.Count_And_Get
3182: ( P_count => x_msg_count,
3183: P_data => x_msg_data
3184: );
3185:
3185:
3186: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3187: --dbms_output.put_line('Validate_Primary_Flag: FND_API.G_EXC_UNEXPECTED_ERROR');
3188: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3189: FND_MSG_PUB.Count_And_Get
3190: ( P_count => x_msg_count,
3191: P_data => x_msg_data
3192: );
3193:
3193:
3194: WHEN OTHERS THEN
3195: --dbms_output.put_line('Validate_Primary_Flag: OTHERS - ' || SQLERRM);
3196: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3197: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3198: THEN
3199: FND_MSG_PUB.Add_Exc_Msg
3200: ( G_PKG_NAME,
3201: 'Others Exception in Validate_Primary_Flag ' || SQLERRM
3195: --dbms_output.put_line('Validate_Primary_Flag: OTHERS - ' || SQLERRM);
3196: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3197: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3198: THEN
3199: FND_MSG_PUB.Add_Exc_Msg
3200: ( G_PKG_NAME,
3201: 'Others Exception in Validate_Primary_Flag ' || SQLERRM
3202: );
3203: END IF;
3262: -- Cannot have more than one Primary flag
3263: If l_Primary_Count > 1 Then
3264: --
3265: fnd_message.set_name('JTF', 'JTF_TERR_MULTIPLE_PRIMARY_FLAG');
3266: FND_MSG_PUB.ADD;
3267: raise FND_API.G_EXC_ERROR;
3268: --
3269: End If;
3270: --
3272: --
3273: WHEN FND_API.G_EXC_ERROR THEN
3274: --dbms_output.put_line('Validate_Primary_Flag: FND_API.G_EXC_ERROR');
3275: x_return_status := FND_API.G_RET_STS_ERROR ;
3276: FND_MSG_PUB.Count_And_Get
3277: ( P_count => x_msg_count,
3278: P_data => x_msg_data
3279: );
3280:
3280:
3281: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3282: --dbms_output.put_line('Validate_Primary_Flag: FND_API.G_EXC_UNEXPECTED_ERROR');
3283: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3284: FND_MSG_PUB.Count_And_Get
3285: ( P_count => x_msg_count,
3286: P_data => x_msg_data
3287: );
3288:
3288:
3289: WHEN OTHERS THEN
3290: --dbms_output.put_line('Validate_Primary_Flag: OTHERS - ' || SQLERRM);
3291: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3292: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3293: THEN
3294: FND_MSG_PUB.Add_Exc_Msg
3295: ( G_PKG_NAME,
3296: 'Others Exception in Validate_Primary_Flag ' || SQLERRM
3290: --dbms_output.put_line('Validate_Primary_Flag: OTHERS - ' || SQLERRM);
3291: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3292: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3293: THEN
3294: FND_MSG_PUB.Add_Exc_Msg
3295: ( G_PKG_NAME,
3296: 'Others Exception in Validate_Primary_Flag ' || SQLERRM
3297: );
3298: END IF;
3356: END IF;
3357:
3358: -- If the territory Usage records is missing
3359: If (p_TerrRsc_Tbl.count = 0 ) Then
3360: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3361: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERRRES_REC');
3362: FND_MSG_PUB.ADD;
3363: END IF;
3364: x_return_status := FND_API.G_RET_STS_ERROR;
3358: -- If the territory Usage records is missing
3359: If (p_TerrRsc_Tbl.count = 0 ) Then
3360: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3361: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERRRES_REC');
3362: FND_MSG_PUB.ADD;
3363: END IF;
3364: x_return_status := FND_API.G_RET_STS_ERROR;
3365: raise FND_API.G_EXC_ERROR;
3366: END IF;
3394: --
3395: WHEN FND_API.G_EXC_ERROR THEN
3396: --dbms_output.put_line('Validate_TerrResource_Data: FND_API.G_EXC_ERROR');
3397: x_return_status := FND_API.G_RET_STS_ERROR ;
3398: FND_MSG_PUB.Count_And_Get
3399: ( P_count => x_msg_count,
3400: P_data => x_msg_data
3401: );
3402:
3402:
3403: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3404: --dbms_output.put_line('Validate_TerrResource_Data: FND_API.G_EXC_UNEXPECTED_ERROR');
3405: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3406: FND_MSG_PUB.Count_And_Get
3407: ( P_count => x_msg_count,
3408: P_data => x_msg_data
3409: );
3410:
3410:
3411: WHEN OTHERS THEN
3412: --dbms_output.put_line('Validate_TerrResource_Data: OTHERS - ' || SQLERRM);
3413: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3414: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3415: THEN
3416: FND_MSG_PUB.Add_Exc_Msg
3417: ( G_PKG_NAME,
3418: 'Others Exception in Validate_TerrResource_Data ' || SQLERRM
3412: --dbms_output.put_line('Validate_TerrResource_Data: OTHERS - ' || SQLERRM);
3413: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3414: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3415: THEN
3416: FND_MSG_PUB.Add_Exc_Msg
3417: ( G_PKG_NAME,
3418: 'Others Exception in Validate_TerrResource_Data ' || SQLERRM
3419: );
3420: END IF;
3480: END IF;
3481:
3482: -- If the territory Usage records is missing
3483: If (p_TerrRsc_Tbl.count = 0 ) Then
3484: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3485: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERRRES_REC');
3486: FND_MSG_PUB.ADD;
3487: END IF;
3488: x_return_status := FND_API.G_RET_STS_ERROR;
3482: -- If the territory Usage records is missing
3483: If (p_TerrRsc_Tbl.count = 0 ) Then
3484: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3485: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERRRES_REC');
3486: FND_MSG_PUB.ADD;
3487: END IF;
3488: x_return_status := FND_API.G_RET_STS_ERROR;
3489: raise FND_API.G_EXC_ERROR;
3490: END IF;
3518: --
3519: WHEN FND_API.G_EXC_ERROR THEN
3520: --dbms_output.put_line('Validate_TerrResource_Data: FND_API.G_EXC_ERROR');
3521: x_return_status := FND_API.G_RET_STS_ERROR ;
3522: FND_MSG_PUB.Count_And_Get
3523: ( P_count => x_msg_count,
3524: P_data => x_msg_data
3525: );
3526:
3526:
3527: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3528: --dbms_output.put_line('Validate_TerrResource_Data: FND_API.G_EXC_UNEXPECTED_ERROR');
3529: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3530: FND_MSG_PUB.Count_And_Get
3531: ( P_count => x_msg_count,
3532: P_data => x_msg_data
3533: );
3534:
3534:
3535: WHEN OTHERS THEN
3536: --dbms_output.put_line('Validate_TerrResource_Data: OTHERS - ' || SQLERRM);
3537: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3538: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3539: THEN
3540: FND_MSG_PUB.Add_Exc_Msg
3541: ( G_PKG_NAME,
3542: 'Others Exception in Validate_TerrResource_Data ' || SQLERRM
3536: --dbms_output.put_line('Validate_TerrResource_Data: OTHERS - ' || SQLERRM);
3537: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3538: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3539: THEN
3540: FND_MSG_PUB.Add_Exc_Msg
3541: ( G_PKG_NAME,
3542: 'Others Exception in Validate_TerrResource_Data ' || SQLERRM
3543: );
3544: END IF;
3571: If l_Validate_id IS NOT NULL Then
3572: -- --dbms_output.put_line('Validate_Terr_Qtype_Usage: TERR_ID(' || to_char(l_Validate_id) || ')');
3573: If JTF_CTM_UTILITY_PVT.fk_id_is_valid(l_Validate_id, 'TERR_ID', 'JTF_TERR') <> FND_API.G_TRUE Then
3574: --dbms_output.put_line('Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
3575: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3576: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
3577: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR');
3578: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_ID');
3579: FND_MSG_PUB.ADD;
3575: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3576: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
3577: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR');
3578: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_ID');
3579: FND_MSG_PUB.ADD;
3580: END IF;
3581: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3582: End If;
3583: Else
3584: -- Invalid Territory Id specified
3585: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
3586: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR');
3587: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_ID');
3588: FND_MSG_PUB.ADD;
3589: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3590: End If;
3591:
3592: --Check last update login
3591:
3592: --Check last update login
3593: If ( p_TerrRsc_Rec.RESOURCE_TYPE is NULL OR
3594: p_TerrRsc_Rec.RESOURCE_TYPE = FND_API.G_MISS_CHAR ) THEN
3595: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3596: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3597: FND_MESSAGE.Set_Token('COL_NAME', 'RESOURCE_TYPE' );
3598: FND_MSG_PUB.ADD;
3599: END IF;
3594: p_TerrRsc_Rec.RESOURCE_TYPE = FND_API.G_MISS_CHAR ) THEN
3595: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3596: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3597: FND_MESSAGE.Set_Token('COL_NAME', 'RESOURCE_TYPE' );
3598: FND_MSG_PUB.ADD;
3599: END IF;
3600: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3601: End If;
3602:
3602:
3603: --Check created by
3604: IF ( p_TerrRsc_Rec.CREATED_BY is NULL OR
3605: p_TerrRsc_Rec.CREATED_BY = FND_API.G_MISS_NUM ) THEN
3606: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3607: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3608: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
3609: FND_MSG_PUB.ADD;
3610: END IF;
3605: p_TerrRsc_Rec.CREATED_BY = FND_API.G_MISS_NUM ) THEN
3606: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3607: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3608: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
3609: FND_MSG_PUB.ADD;
3610: END IF;
3611: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3612: End If;
3613:
3613:
3614: --Check creation date
3615: If ( p_TerrRsc_Rec.CREATION_DATE is NULL OR
3616: p_TerrRsc_Rec.CREATION_DATE = FND_API.G_MISS_DATE ) THEN
3617: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3618: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3619: FND_MESSAGE.Set_Token('COL_NAME', 'CREATION_DATE' );
3620: FND_MSG_PUB.ADD;
3621: END IF;
3616: p_TerrRsc_Rec.CREATION_DATE = FND_API.G_MISS_DATE ) THEN
3617: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3618: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3619: FND_MESSAGE.Set_Token('COL_NAME', 'CREATION_DATE' );
3620: FND_MSG_PUB.ADD;
3621: END IF;
3622: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3623: End If;
3624:
3624:
3625: -- Validate last updated by
3626: IF ( p_TerrRsc_Rec.LAST_UPDATED_BY is NULL OR
3627: p_TerrRsc_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
3628: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3629: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3630: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
3631: FND_MSG_PUB.ADD;
3632: END IF;
3627: p_TerrRsc_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
3628: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3629: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3630: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
3631: FND_MSG_PUB.ADD;
3632: END IF;
3633: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3634: End If;
3635:
3635:
3636: -- Check last update date
3637: If ( p_TerrRsc_Rec.LAST_UPDATE_DATE IS NULL OR
3638: p_TerrRsc_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
3639: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3640: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3641: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
3642: FND_MSG_PUB.ADD;
3643: END IF;
3638: p_TerrRsc_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
3639: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3640: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3641: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
3642: FND_MSG_PUB.ADD;
3643: END IF;
3644: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3645: End If;
3646:
3646:
3647: --Check last update login
3648: If ( p_TerrRsc_Rec.LAST_UPDATE_LOGIN is NULL OR
3649: p_TerrRsc_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
3650: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3651: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3652: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
3653: FND_MSG_PUB.ADD;
3654: END IF;
3649: p_TerrRsc_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
3650: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3651: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3652: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
3653: FND_MSG_PUB.ADD;
3654: END IF;
3655: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3656: End If;
3657:
3655: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3656: End If;
3657:
3658: --
3659: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
3660: p_data => x_msg_data);
3661: EXCEPTION
3662: --
3663: WHEN FND_API.G_EXC_ERROR THEN
3662: --
3663: WHEN FND_API.G_EXC_ERROR THEN
3664: --dbms_output.put_line('Validate_Terr_Qtype_Usage: FND_API.G_EXC_ERROR');
3665: x_return_status := FND_API.G_RET_STS_ERROR ;
3666: FND_MSG_PUB.Count_And_Get
3667: ( P_count => x_msg_count,
3668: P_data => x_msg_data
3669: );
3670:
3670:
3671: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3672: --dbms_output.put_line('Validate_Terr_Qtype_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
3673: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3674: FND_MSG_PUB.Count_And_Get
3675: ( P_count => x_msg_count,
3676: P_data => x_msg_data
3677: );
3678:
3678:
3679: WHEN OTHERS THEN
3680: --dbms_output.put_line('Validate_Terr_Qtype_Usage: OTHERS - ' || SQLERRM);
3681: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3682: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3683: THEN
3684: FND_MSG_PUB.Add_Exc_Msg
3685: ( G_PKG_NAME,
3686: 'Others Exception in Validate_Terr_Rsc ' || SQLERRM
3680: --dbms_output.put_line('Validate_Terr_Qtype_Usage: OTHERS - ' || SQLERRM);
3681: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3682: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3683: THEN
3684: FND_MSG_PUB.Add_Exc_Msg
3685: ( G_PKG_NAME,
3686: 'Others Exception in Validate_Terr_Rsc ' || SQLERRM
3687: );
3688: END IF;
3721: If l_Validate_id IS NOT NULL Then
3722: -- --dbms_output.put_line('Validate_Terr_Qtype_Usage: TERR_ID(' || to_char(l_Validate_id) || ')');
3723: If JTF_CTM_UTILITY_PVT.fk_id_is_valid(l_Validate_id, 'TERR_ID', 'JTF_TERR') <> FND_API.G_TRUE Then
3724: --dbms_output.put_line('Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
3725: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3726: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
3727: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR');
3728: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_ID');
3729: FND_MSG_PUB.ADD;
3725: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3726: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
3727: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR');
3728: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_ID');
3729: FND_MSG_PUB.ADD;
3730: END IF;
3731: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3732: End If;
3733: Else
3734: -- Invalid Territory Id specified
3735: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
3736: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR');
3737: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_ID');
3738: FND_MSG_PUB.ADD;
3739: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3740: End If;
3741:
3742: --Check last update login
3741:
3742: --Check last update login
3743: If ( p_TerrRsc_Rec.RESOURCE_TYPE is NULL OR
3744: p_TerrRsc_Rec.RESOURCE_TYPE = FND_API.G_MISS_CHAR ) THEN
3745: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3746: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3747: FND_MESSAGE.Set_Token('COL_NAME', 'RESOURCE_TYPE' );
3748: FND_MSG_PUB.ADD;
3749: END IF;
3744: p_TerrRsc_Rec.RESOURCE_TYPE = FND_API.G_MISS_CHAR ) THEN
3745: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3746: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3747: FND_MESSAGE.Set_Token('COL_NAME', 'RESOURCE_TYPE' );
3748: FND_MSG_PUB.ADD;
3749: END IF;
3750: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3751: End If;
3752:
3752:
3753: --Check created by
3754: IF ( p_TerrRsc_Rec.CREATED_BY is NULL OR
3755: p_TerrRsc_Rec.CREATED_BY = FND_API.G_MISS_NUM ) THEN
3756: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3757: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3758: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
3759: FND_MSG_PUB.ADD;
3760: END IF;
3755: p_TerrRsc_Rec.CREATED_BY = FND_API.G_MISS_NUM ) THEN
3756: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3757: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3758: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
3759: FND_MSG_PUB.ADD;
3760: END IF;
3761: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3762: End If;
3763:
3763:
3764: --Check creation date
3765: If ( p_TerrRsc_Rec.CREATION_DATE is NULL OR
3766: p_TerrRsc_Rec.CREATION_DATE = FND_API.G_MISS_DATE ) THEN
3767: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3768: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3769: FND_MESSAGE.Set_Token('COL_NAME', 'CREATION_DATE' );
3770: FND_MSG_PUB.ADD;
3771: END IF;
3766: p_TerrRsc_Rec.CREATION_DATE = FND_API.G_MISS_DATE ) THEN
3767: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3768: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3769: FND_MESSAGE.Set_Token('COL_NAME', 'CREATION_DATE' );
3770: FND_MSG_PUB.ADD;
3771: END IF;
3772: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3773: End If;
3774:
3774:
3775: -- Validate last updated by
3776: IF ( p_TerrRsc_Rec.LAST_UPDATED_BY is NULL OR
3777: p_TerrRsc_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
3778: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3779: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3780: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
3781: FND_MSG_PUB.ADD;
3782: END IF;
3777: p_TerrRsc_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
3778: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3779: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3780: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
3781: FND_MSG_PUB.ADD;
3782: END IF;
3783: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3784: End If;
3785:
3785:
3786: -- Check last update date
3787: If ( p_TerrRsc_Rec.LAST_UPDATE_DATE IS NULL OR
3788: p_TerrRsc_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
3789: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3790: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3791: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
3792: FND_MSG_PUB.ADD;
3793: END IF;
3788: p_TerrRsc_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
3789: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3790: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3791: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
3792: FND_MSG_PUB.ADD;
3793: END IF;
3794: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3795: End If;
3796:
3796:
3797: --Check last update login
3798: If ( p_TerrRsc_Rec.LAST_UPDATE_LOGIN is NULL OR
3799: p_TerrRsc_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
3800: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3801: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3802: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
3803: FND_MSG_PUB.ADD;
3804: END IF;
3799: p_TerrRsc_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
3800: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3801: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3802: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
3803: FND_MSG_PUB.ADD;
3804: END IF;
3805: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3806: End If;
3807:
3805: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3806: End If;
3807:
3808: --
3809: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
3810: p_data => x_msg_data);
3811: EXCEPTION
3812: --
3813: WHEN FND_API.G_EXC_ERROR THEN
3812: --
3813: WHEN FND_API.G_EXC_ERROR THEN
3814: --dbms_output.put_line('Validate_Terr_Qtype_Usage: FND_API.G_EXC_ERROR');
3815: x_return_status := FND_API.G_RET_STS_ERROR ;
3816: FND_MSG_PUB.Count_And_Get
3817: ( P_count => x_msg_count,
3818: P_data => x_msg_data
3819: );
3820:
3820:
3821: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3822: --dbms_output.put_line('Validate_Terr_Qtype_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
3823: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3824: FND_MSG_PUB.Count_And_Get
3825: ( P_count => x_msg_count,
3826: P_data => x_msg_data
3827: );
3828:
3828:
3829: WHEN OTHERS THEN
3830: --dbms_output.put_line('Validate_Terr_Qtype_Usage: OTHERS - ' || SQLERRM);
3831: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3832: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3833: THEN
3834: FND_MSG_PUB.Add_Exc_Msg
3835: ( G_PKG_NAME,
3836: 'Others Exception in Validate_Terr_Rsc ' || SQLERRM
3830: --dbms_output.put_line('Validate_Terr_Qtype_Usage: OTHERS - ' || SQLERRM);
3831: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3832: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3833: THEN
3834: FND_MSG_PUB.Add_Exc_Msg
3835: ( G_PKG_NAME,
3836: 'Others Exception in Validate_Terr_Rsc ' || SQLERRM
3837: );
3838: END IF;
3875: If l_Validate_id IS NOT NULL Then
3876: -- --dbms_output.put_line('Validate_Terr_Qtype_Usage: TERR_ID(' || to_char(l_Validate_id) || ')');
3877: If JTF_CTM_UTILITY_PVT.fk_id_is_valid(l_Validate_id, 'TERR_RSC_ID', 'JTF_TERR_RSC') <> FND_API.G_TRUE Then
3878: --dbms_output.put_line('Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
3879: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3880: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
3881: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_RSC');
3882: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_RSC_ID');
3883: FND_MSG_PUB.ADD;
3879: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3880: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
3881: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_RSC');
3882: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_RSC_ID');
3883: FND_MSG_PUB.ADD;
3884: END IF;
3885: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3886: End If;
3887: Else
3888: -- Invalid Territory Id specified
3889: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
3890: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_RSC');
3891: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_RSC_ID');
3892: FND_MSG_PUB.ADD;
3893: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3894: End If;
3895:
3896: -- Validate the access type
3904: -- Invalid Territory Id specified
3905: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
3906: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_QUAL_TYPES');
3907: FND_MESSAGE.Set_Token('COLUMN_NAME', 'ACCESS_TYPE');
3908: FND_MSG_PUB.ADD;
3909: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3910: END;
3911:
3912: --Check created by
3911:
3912: --Check created by
3913: IF ( p_TerrRsc_Access_Rec.CREATED_BY is NULL OR
3914: p_TerrRsc_Access_Rec.CREATED_BY = FND_API.G_MISS_NUM ) THEN
3915: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3916: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3917: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
3918: FND_MSG_PUB.ADD;
3919: END IF;
3914: p_TerrRsc_Access_Rec.CREATED_BY = FND_API.G_MISS_NUM ) THEN
3915: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3916: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3917: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
3918: FND_MSG_PUB.ADD;
3919: END IF;
3920: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3921: End If;
3922:
3922:
3923: --Check creation date
3924: If ( p_TerrRsc_Access_Rec.CREATION_DATE is NULL OR
3925: p_TerrRsc_Access_Rec.CREATION_DATE = FND_API.G_MISS_DATE ) THEN
3926: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3927: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3928: FND_MESSAGE.Set_Token('COL_NAME', 'CREATION_DATE' );
3929: FND_MSG_PUB.ADD;
3930: END IF;
3925: p_TerrRsc_Access_Rec.CREATION_DATE = FND_API.G_MISS_DATE ) THEN
3926: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3927: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3928: FND_MESSAGE.Set_Token('COL_NAME', 'CREATION_DATE' );
3929: FND_MSG_PUB.ADD;
3930: END IF;
3931: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3932: End If;
3933:
3933:
3934: -- Validate last updated by
3935: IF ( p_TerrRsc_Access_Rec.LAST_UPDATED_BY is NULL OR
3936: p_TerrRsc_Access_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
3937: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3938: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3939: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
3940: FND_MSG_PUB.ADD;
3941: END IF;
3936: p_TerrRsc_Access_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
3937: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3938: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3939: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
3940: FND_MSG_PUB.ADD;
3941: END IF;
3942: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3943: End If;
3944:
3944:
3945: -- Check last update date
3946: If ( p_TerrRsc_Access_Rec.LAST_UPDATE_DATE IS NULL OR
3947: p_TerrRsc_Access_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
3948: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3949: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3950: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
3951: FND_MSG_PUB.ADD;
3952: END IF;
3947: p_TerrRsc_Access_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
3948: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3949: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3950: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
3951: FND_MSG_PUB.ADD;
3952: END IF;
3953: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3954: End If;
3955:
3955:
3956: --Check last update login
3957: If ( p_TerrRsc_Access_Rec.LAST_UPDATE_LOGIN is NULL OR
3958: p_TerrRsc_Access_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
3959: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3960: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3961: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
3962: FND_MSG_PUB.ADD;
3963: END IF;
3958: p_TerrRsc_Access_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
3959: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3960: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3961: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
3962: FND_MSG_PUB.ADD;
3963: END IF;
3964: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3965: End If;
3966:
3964: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3965: End If;
3966:
3967: --
3968: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
3969: p_data => x_msg_data);
3970: EXCEPTION
3971: --
3972: WHEN FND_API.G_EXC_ERROR THEN
3971: --
3972: WHEN FND_API.G_EXC_ERROR THEN
3973: --dbms_output.put_line('Validate_Terr_Qtype_Usage: FND_API.G_EXC_ERROR');
3974: x_return_status := FND_API.G_RET_STS_ERROR ;
3975: FND_MSG_PUB.Count_And_Get
3976: ( P_count => x_msg_count,
3977: P_data => x_msg_data
3978: );
3979:
3979:
3980: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3981: --dbms_output.put_line('Validate_Terr_Qtype_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
3982: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3983: FND_MSG_PUB.Count_And_Get
3984: ( P_count => x_msg_count,
3985: P_data => x_msg_data
3986: );
3987:
3987:
3988: WHEN OTHERS THEN
3989: --dbms_output.put_line('Validate_Terr_Qtype_Usage: OTHERS - ' || SQLERRM);
3990: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3991: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3992: THEN
3993: FND_MSG_PUB.Add_Exc_Msg
3994: ( G_PKG_NAME,
3995: 'Others Exception in Validate_Terr_Rsc ' || SQLERRM
3989: --dbms_output.put_line('Validate_Terr_Qtype_Usage: OTHERS - ' || SQLERRM);
3990: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3991: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3992: THEN
3993: FND_MSG_PUB.Add_Exc_Msg
3994: ( G_PKG_NAME,
3995: 'Others Exception in Validate_Terr_Rsc ' || SQLERRM
3996: );
3997: END IF;
4561:
4562:
4563: -- Initialize message list if p_init_msg_list is set to TRUE.
4564: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4565: FND_MSG_PUB.initialize;
4566: END IF;
4567: */
4568:
4569:
4567: */
4568:
4569:
4570: -- Debug Message
4571: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4572: THEN
4573: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
4574: fnd_message.set_name ('PROC_NAME', l_api_name);
4575: FND_MSG_PUB.Add;
4571: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4572: THEN
4573: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
4574: fnd_message.set_name ('PROC_NAME', l_api_name);
4575: FND_MSG_PUB.Add;
4576: END IF;
4577:
4578: -- Initialize API return status to success
4579: x_return_status := FND_API.G_RET_STS_SUCCESS;
4625: 'Unexpected Execution Error from call to Create Terr Resource API');
4626: */
4627:
4628: fnd_message.set_name('JTF', 'JTF_ERROR_TERRRSC_API');
4629: fnd_msg_pub.add;
4630: RAISE fnd_api.g_exc_unexpected_error;
4631:
4632: END IF;
4633:
4671: dbms_output.put_line(
4672: 'Unexpected Execution Error from call to Create Terr Resource Access API');
4673: */
4674: fnd_message.set_name('JTF', 'JTF_ERROR_TERRRSCACCESS_API');
4675: fnd_msg_pub.add;
4676: RAISE fnd_api.g_exc_unexpected_error;
4677: END IF;
4678:
4679: END LOOP;
4691:
4692: /* Standard call to get message count and
4693: the message information */
4694:
4695: FND_MSG_PUB.Count_And_Get
4696: (
4697: p_count => x_msg_count,
4698: p_data => x_msg_data
4699: );
4702: EXCEPTION
4703: WHEN FND_API.G_EXC_ERROR THEN
4704: --dbms_output.put_line('Copy Territory Resources : FND_API.G_EXC_ERROR');
4705: x_return_status := FND_API.G_RET_STS_ERROR ;
4706: FND_MSG_PUB.Count_And_Get
4707: ( P_count => x_msg_count,
4708: P_data => x_msg_data
4709: );
4710:
4710:
4711: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4712: --dbms_output.put_line('Copy Territory Resources : FND_API.G_EXC_UNEXPECTED_ERROR');
4713: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4714: FND_MSG_PUB.Count_And_Get
4715: ( P_count => x_msg_count,
4716: P_data => x_msg_data
4717: );
4718:
4718:
4719: WHEN OTHERS THEN
4720: --dbms_output.put_line('Copy Territory Resources : OTHERS - ' || SQLERRM);
4721: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4722: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4723: THEN
4724: FND_MSG_PUB.Add_Exc_Msg
4725: ( G_PKG_NAME,
4726: 'Others Exception in Copy_Terr_Resources ' || SQLERRM
4720: --dbms_output.put_line('Copy Territory Resources : OTHERS - ' || SQLERRM);
4721: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4722: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4723: THEN
4724: FND_MSG_PUB.Add_Exc_Msg
4725: ( G_PKG_NAME,
4726: 'Others Exception in Copy_Terr_Resources ' || SQLERRM
4727: );
4728: END IF;
4774: x_return_status := FND_API.G_RET_STS_ERROR;
4775:
4776: /* Debug message */
4777: --arpatel bug#1500581 (part of fix)
4778: --IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
4779: FND_MESSAGE.Set_Name ('JTF', 'JTF_TERR_RSC_ACCESS_UK_CON');
4780: --FND_MESSAGE.Set_Token ('TABLE', 'JTF_TERR_RSC_ACCESS_ALL');
4781: FND_MSG_PUB.ADD;
4782: --END IF;
4777: --arpatel bug#1500581 (part of fix)
4778: --IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
4779: FND_MESSAGE.Set_Name ('JTF', 'JTF_TERR_RSC_ACCESS_UK_CON');
4780: --FND_MESSAGE.Set_Token ('TABLE', 'JTF_TERR_RSC_ACCESS_ALL');
4781: FND_MSG_PUB.ADD;
4782: --END IF;
4783:
4784: END IF; /* c_chk_uk_violation%FOUND */
4785: CLOSE csr_chk_uk_violation;
4785: CLOSE csr_chk_uk_violation;
4786:
4787: END IF;
4788:
4789: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
4790: p_data => x_msg_data);
4791:
4792: EXCEPTION
4793:
4796: X_return_status := FND_API.G_RET_STS_ERROR;
4797: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
4798: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Unique_Key' );
4799: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
4800: FND_MSG_PUB.ADD;
4801: FND_MSG_PUB.Count_And_Get
4802: ( p_count => x_msg_count,
4803: p_data => x_msg_data
4804: );
4797: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
4798: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Unique_Key' );
4799: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
4800: FND_MSG_PUB.ADD;
4801: FND_MSG_PUB.Count_And_Get
4802: ( p_count => x_msg_count,
4803: p_data => x_msg_data
4804: );
4805:
4907:
4908:
4909: -- Initialize message list if p_init_msg_list is set to TRUE.
4910: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4911: FND_MSG_PUB.initialize;
4912: END IF;
4913:
4914:
4915:
4913:
4914:
4915:
4916: -- Debug Message
4917: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4918: THEN
4919: fnd_message.set_name ('JTF', 'JTF_TERRITORY_START_MSG');
4920: fnd_message.set_name ('PROC_NAME', l_api_name);
4921: FND_MSG_PUB.Add;
4917: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4918: THEN
4919: fnd_message.set_name ('JTF', 'JTF_TERRITORY_START_MSG');
4920: fnd_message.set_name ('PROC_NAME', l_api_name);
4921: FND_MSG_PUB.Add;
4922: END IF;
4923:
4924: -- Initialize API return status to success
4925: x_return_status := FND_API.G_RET_STS_SUCCESS;
5166: --dbms_output.put_line('Value of l_terr_ids_tbl.first='||TO_CHAR(l_terr_ids_tbl.first));
5167: --dbms_output.put_line('Value of l_terr_ids_tbl.last='||TO_CHAR(l_terr_ids_tbl.last));
5168:
5169: -- Debug Message
5170: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
5171: THEN
5172: fnd_message.set_name ('JTF', 'JTF_TERRITORY_END_MSG');
5173: fnd_message.set_name ('PROC_NAME', l_api_name);
5174: FND_MSG_PUB.Add;
5170: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
5171: THEN
5172: fnd_message.set_name ('JTF', 'JTF_TERRITORY_END_MSG');
5173: fnd_message.set_name ('PROC_NAME', l_api_name);
5174: FND_MSG_PUB.Add;
5175: END IF;
5176:
5177: FND_MSG_PUB.Count_And_Get
5178: ( p_count => x_msg_count,
5173: fnd_message.set_name ('PROC_NAME', l_api_name);
5174: FND_MSG_PUB.Add;
5175: END IF;
5176:
5177: FND_MSG_PUB.Count_And_Get
5178: ( p_count => x_msg_count,
5179: p_data => x_msg_data
5180: );
5181:
5191: WHEN FND_API.G_EXC_ERROR THEN
5192: --dbms_output.put_line('Transfer_Resource_Territories: FND_API.G_EXC_ERROR');
5193: ROLLBACK TO TRANSFER_TERR_RES;
5194: x_return_status := FND_API.G_RET_STS_ERROR ;
5195: FND_MSG_PUB.Count_And_Get
5196: ( p_count => x_msg_count,
5197: p_data => x_msg_data
5198: );
5199:
5200: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5201: --dbms_output.put_line('Transfer_Resource_Territories: FND_API.G_EXC_UNEXPECTED_ERROR');
5202: ROLLBACK TO TRANSFER_TERR_RES;
5203: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5204: FND_MSG_PUB.Count_And_Get
5205: ( p_count => x_msg_count,
5206: p_data => x_msg_data
5207: );
5208:
5209: WHEN OTHERS THEN
5210: --dbms_output.put_line('Transfer_Resource_Territories PVT: OTHERS - ' || SQLERRM);
5211: ROLLBACK TO TRANSFER_TERR_RES;
5212: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5213: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
5214: THEN
5215: fnd_msg_pub.add_exc_msg (
5216: g_pkg_name,
5217: 'Error inside Transfer_Resource_Territories ' || sqlerrm);
5211: ROLLBACK TO TRANSFER_TERR_RES;
5212: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5213: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
5214: THEN
5215: fnd_msg_pub.add_exc_msg (
5216: g_pkg_name,
5217: 'Error inside Transfer_Resource_Territories ' || sqlerrm);
5218: END IF;
5219: