[Home] [Help]
137:
138: EXCEPTION
139: WHEN NO_DATA_FOUND THEN
140: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
141: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
142: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'NO_DATA_FOUND Exception in Chack Duplicate2_update procedure : ' || SQLERRM);
143: END IF;
144: END;
145:
138: EXCEPTION
139: WHEN NO_DATA_FOUND THEN
140: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
141: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
142: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'NO_DATA_FOUND Exception in Chack Duplicate2_update procedure : ' || SQLERRM);
143: END IF;
144: END;
145:
146: FOR l_c_res IN c_res(l_Terr_Id) LOOP
171:
172: END LOOP;
173:
174: if l_temp = 'X' then
175: fnd_msg_pub.initialize;
176: x_return_status := FND_API.G_RET_STS_ERROR ;
177: fnd_message.set_name('JTF', 'JTF_TERR_DUPLICATE_RESOURCE');
178: FND_MSG_PUB.ADD;
179: FND_MSG_PUB.Count_And_Get( P_count => x_msg_count,
174: if l_temp = 'X' then
175: fnd_msg_pub.initialize;
176: x_return_status := FND_API.G_RET_STS_ERROR ;
177: fnd_message.set_name('JTF', 'JTF_TERR_DUPLICATE_RESOURCE');
178: FND_MSG_PUB.ADD;
179: FND_MSG_PUB.Count_And_Get( P_count => x_msg_count,
180: P_data => x_msg_data);
181: end if;
182:
175: fnd_msg_pub.initialize;
176: x_return_status := FND_API.G_RET_STS_ERROR ;
177: fnd_message.set_name('JTF', 'JTF_TERR_DUPLICATE_RESOURCE');
178: FND_MSG_PUB.ADD;
179: FND_MSG_PUB.Count_And_Get( P_count => x_msg_count,
180: P_data => x_msg_data);
181: end if;
182:
183: EXCEPTION
185: --no duplicates
186: NULL;
187: WHEN OTHERS THEN
188: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
189: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
190: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others Exception in Check_for_duplicate2 ' || SQLERRM);
191: END IF;
192:
193: END Check_for_duplicate2_updates;
186: NULL;
187: WHEN OTHERS THEN
188: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
189: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
190: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others Exception in Check_for_duplicate2 ' || SQLERRM);
191: END IF;
192:
193: END Check_for_duplicate2_updates;
194:
249:
250: END LOOP;
251:
252: if l_temp = 'X' then
253: fnd_msg_pub.initialize;
254: x_return_status := FND_API.G_RET_STS_ERROR ;
255: fnd_message.set_name('JTF', 'JTF_TERR_DUPLICATE_RESOURCE');
256: FND_MSG_PUB.ADD;
257: FND_MSG_PUB.Count_And_Get ( P_count => x_msg_count, P_data => x_msg_data);
252: if l_temp = 'X' then
253: fnd_msg_pub.initialize;
254: x_return_status := FND_API.G_RET_STS_ERROR ;
255: fnd_message.set_name('JTF', 'JTF_TERR_DUPLICATE_RESOURCE');
256: FND_MSG_PUB.ADD;
257: FND_MSG_PUB.Count_And_Get ( P_count => x_msg_count, P_data => x_msg_data);
258: end if;
259:
260: EXCEPTION
253: fnd_msg_pub.initialize;
254: x_return_status := FND_API.G_RET_STS_ERROR ;
255: fnd_message.set_name('JTF', 'JTF_TERR_DUPLICATE_RESOURCE');
256: FND_MSG_PUB.ADD;
257: FND_MSG_PUB.Count_And_Get ( P_count => x_msg_count, P_data => x_msg_data);
258: end if;
259:
260: EXCEPTION
261: WHEN NO_DATA_FOUND THEN
262: --no duplicates
263: NULL;
264: WHEN OTHERS THEN
265: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
266: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
267: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Others Exception in Check_for_duplicate2 ' || SQLERRM);
268: END IF;
269: END check_for_duplicate2;
270:
263: NULL;
264: WHEN OTHERS THEN
265: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
266: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
267: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Others Exception in Check_for_duplicate2 ' || SQLERRM);
268: END IF;
269: END check_for_duplicate2;
270:
271: PROCEDURE convert_terrrsc_wflex (
415: END IF;
416:
417: -- Initialize message list if p_init_msg_list is set to TRUE.
418: IF FND_API.to_Boolean( p_init_msg_list ) THEN
419: FND_MSG_PUB.initialize;
420: END IF;
421:
422: -- Debug Message
423: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
419: FND_MSG_PUB.initialize;
420: END IF;
421:
422: -- Debug Message
423: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
424: THEN
425: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
426: fnd_message.set_name ('PROC_NAME', l_api_name);
427: FND_MSG_PUB.Add;
423: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
424: THEN
425: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
426: fnd_message.set_name ('PROC_NAME', l_api_name);
427: FND_MSG_PUB.Add;
428: END IF;
429:
430: -- Initialize API return status to success
431: x_return_status := FND_API.G_RET_STS_SUCCESS;
465: --
466: -- End of API body.
467: --
468: -- Debug Message
469: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
470: THEN
471: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
472: fnd_message.set_name ('PROC_NAME', l_api_name);
473: fnd_msg_pub.add;
469: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
470: THEN
471: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
472: fnd_message.set_name ('PROC_NAME', l_api_name);
473: fnd_msg_pub.add;
474: END IF;
475:
476: -- Standard check for p_commit
477: IF FND_API.to_Boolean( p_commit )
485: WHEN FND_API.G_EXC_ERROR THEN
486: --dbms_output.put_line('Create_TerrResource PVT: FND_API.G_EXC_ERROR');
487: ROLLBACK TO CREATE_TERRRESOURCE_PVT;
488: x_return_status := FND_API.G_RET_STS_ERROR ;
489: FND_MSG_PUB.Count_And_Get
490: ( p_count => x_msg_count,
491: p_data => x_msg_data
492: );
493:
494: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
495: --dbms_output.put_line('Create_TerrResource PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
496: ROLLBACK TO CREATE_TERRRESOURCE_PVT;
497: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
498: FND_MSG_PUB.Count_And_Get
499: ( p_count => x_msg_count,
500: p_data => x_msg_data
501: );
502:
503: WHEN OTHERS THEN
504: --dbms_output.put_line('Create_TerrResource PVT: OTHERS - ' || SQLERRM);
505: ROLLBACK TO CREATE_TERRRESOURCE_PVT;
506: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
507: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
508: THEN
509: fnd_msg_pub.add_exc_msg (
510: g_pkg_name,
511: 'Error inside Create_TerrResource ' || sqlerrm);
505: ROLLBACK TO CREATE_TERRRESOURCE_PVT;
506: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
507: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
508: THEN
509: fnd_msg_pub.add_exc_msg (
510: g_pkg_name,
511: 'Error inside Create_TerrResource ' || sqlerrm);
512: END IF;
513: --
610: END IF;
611:
612: -- Initialize message list if p_init_msg_list is set to TRUE.
613: IF FND_API.to_Boolean( p_init_msg_list ) THEN
614: FND_MSG_PUB.initialize;
615: END IF;
616:
617: -- Debug Message
618: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
614: FND_MSG_PUB.initialize;
615: END IF;
616:
617: -- Debug Message
618: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
619: THEN
620: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
621: fnd_message.set_name ('PROC_NAME', l_api_name);
622: FND_MSG_PUB.Add;
618: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
619: THEN
620: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
621: fnd_message.set_name ('PROC_NAME', l_api_name);
622: FND_MSG_PUB.Add;
623: END IF;
624:
625: -- Initialize API return status to success
626: x_return_status := FND_API.G_RET_STS_SUCCESS;
813: RAISE FND_API.G_EXC_ERROR;
814: END IF;
815:
816: -- Debug Message
817: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
818: THEN
819: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
820: fnd_message.set_name ('PROC_NAME', l_api_name);
821: FND_MSG_PUB.Add;
817: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
818: THEN
819: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
820: fnd_message.set_name ('PROC_NAME', l_api_name);
821: FND_MSG_PUB.Add;
822: END IF;
823:
824:
825: FND_MSG_PUB.Count_And_Get
821: FND_MSG_PUB.Add;
822: END IF;
823:
824:
825: FND_MSG_PUB.Count_And_Get
826: ( p_count => x_msg_count,
827: p_data => x_msg_data
828: );
829:
839: WHEN FND_API.G_EXC_ERROR THEN
840: --dbms_output.put_line('Create_TerrResource PVT: FND_API.G_EXC_ERROR');
841: ROLLBACK TO CREATE_TERRRESOURCE_PVT;
842: x_return_status := FND_API.G_RET_STS_ERROR ;
843: FND_MSG_PUB.Count_And_Get
844: ( p_count => x_msg_count,
845: p_data => x_msg_data
846: );
847:
848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
849: --dbms_output.put_line('Create_TerrResource PVT: FND_API.G_EXC_UNEXPECTED_ERROR');
850: ROLLBACK TO CREATE_TERRRESOURCE_PVT;
851: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
852: FND_MSG_PUB.Count_And_Get
853: ( p_count => x_msg_count,
854: p_data => x_msg_data
855: );
856:
857: WHEN OTHERS THEN
858: --dbms_output.put_line('Create_TerrResource PVT: OTHERS - ' || SQLERRM);
859: ROLLBACK TO CREATE_TERRRESOURCE_PVT;
860: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
861: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
862: THEN
863: fnd_msg_pub.add_exc_msg (
864: g_pkg_name,
865: 'Error inside Create_TerrResource ' || sqlerrm);
859: ROLLBACK TO CREATE_TERRRESOURCE_PVT;
860: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
861: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
862: THEN
863: fnd_msg_pub.add_exc_msg (
864: g_pkg_name,
865: 'Error inside Create_TerrResource ' || sqlerrm);
866: END IF;
867: --
947: END IF;
948:
949: -- Initialize message list if p_init_msg_list is set to TRUE.
950: IF FND_API.to_Boolean( p_init_msg_list ) THEN
951: FND_MSG_PUB.initialize;
952: END IF;
953:
954: -- Debug Message
955: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
951: FND_MSG_PUB.initialize;
952: END IF;
953:
954: -- Debug Message
955: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
956: THEN
957: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
958: fnd_message.set_name ('PROC_NAME', l_api_name);
959: FND_MSG_PUB.Add;
955: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
956: THEN
957: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
958: fnd_message.set_name ('PROC_NAME', l_api_name);
959: FND_MSG_PUB.Add;
960: END IF;
961:
962: -- Initialize API return status to success
963: x_return_status := FND_API.G_RET_STS_SUCCESS;
999: RAISE FND_API.G_EXC_ERROR;
1000: END IF;
1001:
1002: -- Debug Message
1003: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1004: THEN
1005: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1006: fnd_message.set_name ('PROC_NAME', l_api_name);
1007: FND_MSG_PUB.Add;
1003: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1004: THEN
1005: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1006: fnd_message.set_name ('PROC_NAME', l_api_name);
1007: FND_MSG_PUB.Add;
1008: END IF;
1009:
1010:
1011: FND_MSG_PUB.Count_And_Get
1007: FND_MSG_PUB.Add;
1008: END IF;
1009:
1010:
1011: FND_MSG_PUB.Count_And_Get
1012: ( p_count => x_msg_count,
1013: p_data => x_msg_data
1014: );
1015:
1023: --
1024: WHEN FND_API.G_EXC_ERROR THEN
1025: ROLLBACK TO DELETE_TERR_RESOURCE_PVT;
1026: x_return_status := FND_API.G_RET_STS_ERROR ;
1027: FND_MSG_PUB.Count_And_Get
1028: ( p_count => x_msg_count,
1029: p_data => x_msg_data
1030: );
1031:
1031:
1032: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1033: ROLLBACK TO DELETE_TERR_RESOURCE_PVT;
1034: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1035: FND_MSG_PUB.Count_And_Get
1036: ( p_count => x_msg_count,
1037: p_data => x_msg_data
1038: );
1039: WHEN NO_DATA_FOUND THEN
1042:
1043: WHEN OTHERS THEN
1044: ROLLBACK TO DELETE_TERR_RESOURCE_PVT;
1045: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1046: FND_MSG_PUB.Count_And_Get
1047: ( p_count => x_msg_count,
1048: p_data => x_msg_data
1049: );
1050: --
1135: END IF;
1136:
1137: -- Initialize message list if p_init_msg_list is set to TRUE.
1138: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1139: FND_MSG_PUB.initialize;
1140: END IF;
1141:
1142: -- Debug Message
1143: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1139: FND_MSG_PUB.initialize;
1140: END IF;
1141:
1142: -- Debug Message
1143: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1144: THEN
1145: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1146: fnd_message.set_name ('PROC_NAME', l_api_name);
1147: FND_MSG_PUB.Add;
1143: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1144: THEN
1145: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1146: fnd_message.set_name ('PROC_NAME', l_api_name);
1147: FND_MSG_PUB.Add;
1148: END IF;
1149:
1150:
1151: -- Initialize API return status to success
1192: --
1193: End If;
1194:
1195: -- Debug Message
1196: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1197: THEN
1198: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1199: fnd_message.set_name ('PROC_NAME', l_api_name);
1200: FND_MSG_PUB.Add;
1196: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1197: THEN
1198: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1199: fnd_message.set_name ('PROC_NAME', l_api_name);
1200: FND_MSG_PUB.Add;
1201: END IF;
1202:
1203:
1204: FND_MSG_PUB.Count_And_Get
1200: FND_MSG_PUB.Add;
1201: END IF;
1202:
1203:
1204: FND_MSG_PUB.Count_And_Get
1205: ( p_count => x_msg_count,
1206: p_data => x_msg_data
1207: );
1208:
1216: --
1217: WHEN FND_API.G_EXC_ERROR THEN
1218: ROLLBACK TO UPDATE_TERRRESOURCE_PVT;
1219: x_return_status := FND_API.G_RET_STS_ERROR ;
1220: FND_MSG_PUB.Count_And_Get
1221: ( p_count => x_msg_count,
1222: p_data => x_msg_data
1223: );
1224:
1224:
1225: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1226: ROLLBACK TO UPDATE_TERRRESOURCE_PVT;
1227: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1228: FND_MSG_PUB.Count_And_Get
1229: ( p_count => x_msg_count,
1230: p_data => x_msg_data
1231: );
1232:
1232:
1233: WHEN OTHERS THEN
1234: ROLLBACK TO UPDATE_TERRRESOURCE_PVT;
1235: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1236: FND_MSG_PUB.Count_And_Get
1237: ( p_count => x_msg_count,
1238: p_data => x_msg_data
1239: );
1240: --
1292: EXCEPTION
1293: WHEN NO_DATA_FOUND THEN
1294: x_return_status := FND_API.G_RET_STS_ERROR ;
1295: fnd_message.set_name('JTF', 'JTY_TERR_INVALID_RESOURCE');
1296: FND_MSG_PUB.ADD;
1297: END;
1298: --
1299: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
1300: p_data => x_msg_data);
1295: fnd_message.set_name('JTF', 'JTY_TERR_INVALID_RESOURCE');
1296: FND_MSG_PUB.ADD;
1297: END;
1298: --
1299: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
1300: p_data => x_msg_data);
1301: EXCEPTION
1302: WHEN NO_DATA_FOUND THEN
1303: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1300: p_data => x_msg_data);
1301: EXCEPTION
1302: WHEN NO_DATA_FOUND THEN
1303: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1304: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1305: THEN
1306: FND_MSG_PUB.Add_Exc_Msg
1307: ( G_PKG_NAME,
1308: 'NO_DATA_FOUND Exception in Validate_Resource ' || SQLERRM
1302: WHEN NO_DATA_FOUND THEN
1303: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1304: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1305: THEN
1306: FND_MSG_PUB.Add_Exc_Msg
1307: ( G_PKG_NAME,
1308: 'NO_DATA_FOUND Exception in Validate_Resource ' || SQLERRM
1309: );
1310: END IF;
1309: );
1310: END IF;
1311: WHEN OTHERS THEN
1312: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1313: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1314: THEN
1315: FND_MSG_PUB.Add_Exc_Msg
1316: ( G_PKG_NAME,
1317: 'Others Exception in Validate_Resource ' || SQLERRM
1311: WHEN OTHERS THEN
1312: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1313: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1314: THEN
1315: FND_MSG_PUB.Add_Exc_Msg
1316: ( G_PKG_NAME,
1317: 'Others Exception in Validate_Resource ' || SQLERRM
1318: );
1319: END IF;
1354: AND JTU.SOURCE_ID = JSA.SOURCE_ID;
1355: EXCEPTION
1356: WHEN NO_DATA_FOUND THEN
1357: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1358: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1359: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'NO_DATA_FOUND Exception in Validate_Resource_update procedure : ' || SQLERRM);
1360: END IF;
1361: END;
1362:
1355: EXCEPTION
1356: WHEN NO_DATA_FOUND THEN
1357: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1358: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1359: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'NO_DATA_FOUND Exception in Validate_Resource_update procedure : ' || SQLERRM);
1360: END IF;
1361: END;
1362:
1363: --Get the missing values from the database to Valiadte the resource.
1368: WHERE TERR_RSC_ID = P_TerrRsc_Rec.Terr_Rsc_Id;
1369: EXCEPTION
1370: WHEN NO_DATA_FOUND THEN
1371: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1372: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1373: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'NO_DATA_FOUND Exception in Validate_Resource_update procedure : ' || SQLERRM);
1374: END IF;
1375: END;
1376:
1369: EXCEPTION
1370: WHEN NO_DATA_FOUND THEN
1371: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1372: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1373: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'NO_DATA_FOUND Exception in Validate_Resource_update procedure : ' || SQLERRM);
1374: END IF;
1375: END;
1376:
1377: IF P_TerrRsc_Rec.Resource_Id <> FND_API.G_MISS_NUM THEN
1413: EXCEPTION
1414: WHEN NO_DATA_FOUND THEN
1415: x_return_status := FND_API.G_RET_STS_ERROR ;
1416: fnd_message.set_name('JTF', 'JTY_TERR_INVALID_RESOURCE');
1417: FND_MSG_PUB.ADD;
1418: END;
1419: --
1420: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
1421: p_data => x_msg_data);
1416: fnd_message.set_name('JTF', 'JTY_TERR_INVALID_RESOURCE');
1417: FND_MSG_PUB.ADD;
1418: END;
1419: --
1420: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
1421: p_data => x_msg_data);
1422: EXCEPTION
1423: WHEN NO_DATA_FOUND THEN
1424: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1421: p_data => x_msg_data);
1422: EXCEPTION
1423: WHEN NO_DATA_FOUND THEN
1424: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1425: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1426: THEN
1427: FND_MSG_PUB.Add_Exc_Msg
1428: ( G_PKG_NAME,
1429: 'NO_DATA_FOUND Exception in Validate_Resource_update ' || SQLERRM
1423: WHEN NO_DATA_FOUND THEN
1424: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1425: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1426: THEN
1427: FND_MSG_PUB.Add_Exc_Msg
1428: ( G_PKG_NAME,
1429: 'NO_DATA_FOUND Exception in Validate_Resource_update ' || SQLERRM
1430: );
1431: END IF;
1430: );
1431: END IF;
1432: WHEN OTHERS THEN
1433: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1434: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1435: THEN
1436: FND_MSG_PUB.Add_Exc_Msg
1437: ( G_PKG_NAME,
1438: 'Others Exception in Validate_Resource_update ' || SQLERRM
1432: WHEN OTHERS THEN
1433: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1434: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1435: THEN
1436: FND_MSG_PUB.Add_Exc_Msg
1437: ( G_PKG_NAME,
1438: 'Others Exception in Validate_Resource_update ' || SQLERRM
1439: );
1440: END IF;
1490: BEGIN
1491: --dbms_output.put_line('Create_Terr_Resource REC: Entering API');
1492:
1493: -- Debug Message
1494: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1495: THEN
1496: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1497: fnd_message.set_name ('PROC_NAME', l_api_name);
1498: FND_MSG_PUB.Add;
1494: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1495: THEN
1496: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1497: fnd_message.set_name ('PROC_NAME', l_api_name);
1498: FND_MSG_PUB.Add;
1499: END IF;
1500:
1501: -- Initialize API return status to success
1502: x_return_status := FND_API.G_RET_STS_SUCCESS;
1504: IF ( P_validation_level > FND_API.G_VALID_LEVEL_NONE)
1505: THEN
1506:
1507: -- Debug message
1508: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1509: THEN
1510: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
1511: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Terr_Rsc');
1512: FND_MSG_PUB.Add;
1508: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1509: THEN
1510: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
1511: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Terr_Rsc');
1512: FND_MSG_PUB.Add;
1513: END IF;
1514: --
1515: -- Invoke validation procedures
1516: Validate_Terr_Rsc(p_init_msg_list => FND_API.G_FALSE,
1593: -- If successful then save the success status for the record
1594: X_TerrRsc_Out_Rec.return_status := FND_API.G_RET_STS_SUCCESS;
1595:
1596: -- Debug Message
1597: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1598: THEN
1599: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1600: fnd_message.set_name ('PROC_NAME', l_api_name);
1601: FND_MSG_PUB.Add;
1597: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1598: THEN
1599: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1600: fnd_message.set_name ('PROC_NAME', l_api_name);
1601: FND_MSG_PUB.Add;
1602: END IF;
1603:
1604: --dbms_output.put_line('Create_Terr_Resource REC: Exiting API');
1605: EXCEPTION
1609: X_TerrRsc_Out_Rec.TERR_RSC_ID := NULL;
1610: X_TerrRsc_Out_Rec.return_status := x_return_status;
1611: x_return_status := FND_API.G_RET_STS_ERROR ;
1612:
1613: FND_MSG_PUB.Count_And_Get
1614: ( P_count => x_msg_count,
1615: P_data => x_msg_data
1616: );
1617:
1621: --
1622: X_TerrRsc_Out_Rec.TERR_RSC_ID := NULL;
1623: X_TerrRsc_Out_Rec.return_status := x_return_status;
1624: --
1625: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1626: THEN
1627: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Create_Terr_Resource ' || SQLERRM);
1628: END IF;
1629: --
1623: X_TerrRsc_Out_Rec.return_status := x_return_status;
1624: --
1625: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1626: THEN
1627: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Create_Terr_Resource ' || SQLERRM);
1628: END IF;
1629: --
1630: End Create_Terr_Resource;
1631: --
1680: BEGIN
1681: --dbms_output.put_line('Create_Terr_Resource TBL: Entering API');
1682:
1683: -- Debug Message
1684: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1685: THEN
1686: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1687: fnd_message.set_name ('PROC_NAME', l_api_name);
1688: FND_MSG_PUB.Add;
1684: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1685: THEN
1686: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1687: fnd_message.set_name ('PROC_NAME', l_api_name);
1688: FND_MSG_PUB.Add;
1689: END IF;
1690:
1691: -- Initialize API return status to success
1692: x_return_status := FND_API.G_RET_STS_SUCCESS;
1743: END IF;
1744: END LOOP;
1745:
1746: -- Debug Message
1747: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1748: THEN
1749: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1750: fnd_message.set_name ('PROC_NAME', l_api_name);
1751: FND_MSG_PUB.Add;
1747: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1748: THEN
1749: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1750: fnd_message.set_name ('PROC_NAME', l_api_name);
1751: FND_MSG_PUB.Add;
1752: END IF;
1753: --dbms_output.put_line('Create_Terr_Resource TBL: Exiting API');
1754: --
1755: End Create_Terr_Resource;
1801: BEGIN
1802: --dbms_output.put_line('Create_Resource _Access REC: Entering API');
1803:
1804: -- Debug Message
1805: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1806: THEN
1807: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1808: fnd_message.set_name ('PROC_NAME', l_api_name);
1809: FND_MSG_PUB.Add;
1805: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1806: THEN
1807: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1808: fnd_message.set_name ('PROC_NAME', l_api_name);
1809: FND_MSG_PUB.Add;
1810: END IF;
1811:
1812: -- Initialize API return status to success
1813: x_return_status := FND_API.G_RET_STS_SUCCESS;
1815:
1816: IF ( P_validation_level > FND_API.G_VALID_LEVEL_NONE)
1817: THEN
1818: -- Debug message
1819: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1820: THEN
1821: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
1822: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Terr_Rsc_Access');
1823: FND_MSG_PUB.Add;
1819: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1820: THEN
1821: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
1822: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Terr_Rsc_Access');
1823: FND_MSG_PUB.Add;
1824: END IF;
1825: --Check created by
1826: IF ( p_TerrRsc_Access_Rec.CREATED_BY is NULL OR
1827: p_TerrRsc_Access_Rec.CREATED_BY = FND_API.G_MISS_NUM ) THEN
1824: END IF;
1825: --Check created by
1826: IF ( p_TerrRsc_Access_Rec.CREATED_BY is NULL OR
1827: p_TerrRsc_Access_Rec.CREATED_BY = FND_API.G_MISS_NUM ) THEN
1828: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1829: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
1830: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
1831: FND_MSG_PUB.ADD;
1832: END IF;
1827: p_TerrRsc_Access_Rec.CREATED_BY = FND_API.G_MISS_NUM ) THEN
1828: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1829: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
1830: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
1831: FND_MSG_PUB.ADD;
1832: END IF;
1833: x_Return_Status := FND_API.G_RET_STS_ERROR ;
1834: End If;
1835:
1835:
1836: --Check creation date
1837: If ( p_TerrRsc_Access_Rec.CREATION_DATE is NULL OR
1838: p_TerrRsc_Access_Rec.CREATION_DATE = FND_API.G_MISS_DATE ) THEN
1839: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1840: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
1841: FND_MESSAGE.Set_Token('COL_NAME', 'CREATION_DATE' );
1842: FND_MSG_PUB.ADD;
1843: END IF;
1838: p_TerrRsc_Access_Rec.CREATION_DATE = FND_API.G_MISS_DATE ) THEN
1839: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1840: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
1841: FND_MESSAGE.Set_Token('COL_NAME', 'CREATION_DATE' );
1842: FND_MSG_PUB.ADD;
1843: END IF;
1844: x_Return_Status := FND_API.G_RET_STS_ERROR ;
1845: End If;
1846: --
1846: --
1847: --Check ACCESS_TYPE
1848: IF ( p_TerrRsc_Access_Rec.ACCESS_TYPE is NULL OR
1849: p_TerrRsc_Access_Rec.ACCESS_TYPE = FND_API.G_MISS_CHAR ) THEN
1850: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1851: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
1852: FND_MESSAGE.Set_Token('COL_NAME', 'ACCESS_TYPE' );
1853: FND_MSG_PUB.ADD;
1854: END IF;
1849: p_TerrRsc_Access_Rec.ACCESS_TYPE = FND_API.G_MISS_CHAR ) THEN
1850: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1851: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
1852: FND_MESSAGE.Set_Token('COL_NAME', 'ACCESS_TYPE' );
1853: FND_MSG_PUB.ADD;
1854: END IF;
1855: x_Return_Status := FND_API.G_RET_STS_ERROR ;
1856: End If;
1857: --
1857: --
1858: --Check TRANS_ACCESS_CODE
1859: IF ( p_TerrRsc_Access_Rec.TRANS_ACCESS_CODE is NULL OR
1860: p_TerrRsc_Access_Rec.TRANS_ACCESS_CODE = FND_API.G_MISS_CHAR ) THEN
1861: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1862: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
1863: FND_MESSAGE.Set_Token('COL_NAME', 'TRANS_ACCESS_CODE' );
1864: FND_MSG_PUB.ADD;
1865: END IF;
1860: p_TerrRsc_Access_Rec.TRANS_ACCESS_CODE = FND_API.G_MISS_CHAR ) THEN
1861: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1862: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
1863: FND_MESSAGE.Set_Token('COL_NAME', 'TRANS_ACCESS_CODE' );
1864: FND_MSG_PUB.ADD;
1865: END IF;
1866: x_Return_Status := FND_API.G_RET_STS_ERROR ;
1867: End If;
1868: --
1923: -- If successful then save the success status for the record
1924: X_TerrRsc_Access_Out_Rec.return_status := FND_API.G_RET_STS_SUCCESS;
1925:
1926: -- Debug Message
1927: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1928: THEN
1929: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1930: fnd_message.set_name ('PROC_NAME', l_api_name);
1931: FND_MSG_PUB.Add;
1927: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
1928: THEN
1929: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1930: fnd_message.set_name ('PROC_NAME', l_api_name);
1931: FND_MSG_PUB.Add;
1932: END IF;
1933:
1934: --dbms_output.put_line('Create_Resource _Access REC: Exiting API');
1935: EXCEPTION
1939: x_return_status := FND_API.G_RET_STS_ERROR ;
1940: X_TerrRsc_Access_Out_Rec.TERR_RSC_ACCESS_ID := NULL;
1941: X_TerrRsc_Access_Out_Rec.return_status := x_return_status;
1942:
1943: FND_MSG_PUB.Count_And_Get
1944: ( P_count => x_msg_count,
1945: P_data => x_msg_data
1946: );
1947:
1952: --
1953: X_TerrRsc_Access_Out_Rec.TERR_RSC_ACCESS_ID := NULL;
1954: X_TerrRsc_Access_Out_Rec.return_status := x_return_status;
1955: --
1956: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1957: THEN
1958: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Create_Resource _Access');
1959: END IF;
1960: --
1954: X_TerrRsc_Access_Out_Rec.return_status := x_return_status;
1955: --
1956: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1957: THEN
1958: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Create_Resource _Access');
1959: END IF;
1960: --
1961: End Create_Resource_Access;
1962:
2022: BEGIN
2023: --dbms_output.put_line('Create_Resource_Access TBL: Entering API - ' || to_char(l_TerrRsc_Access_Tbl_Count));
2024:
2025: -- Debug Message
2026: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2027: THEN
2028: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
2029: fnd_message.set_name ('PROC_NAME', l_api_name);
2030: FND_MSG_PUB.Add;
2026: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2027: THEN
2028: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
2029: fnd_message.set_name ('PROC_NAME', l_api_name);
2030: FND_MSG_PUB.Add;
2031: END IF;
2032:
2033:
2034: -- Initialize API return status to success
2083: END IF;
2084: END LOOP;
2085:
2086: -- Debug Message
2087: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2088: THEN
2089: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
2090: fnd_message.set_name ('PROC_NAME', l_api_name);
2091: FND_MSG_PUB.Add;
2087: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2088: THEN
2089: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
2090: fnd_message.set_name ('PROC_NAME', l_api_name);
2091: FND_MSG_PUB.Add;
2092: END IF;
2093:
2094: --
2095: End Create_Resource_Access;
2154:
2155: -- Initialize message list if p_init_msg_list is set to TRUE.
2156: IF FND_API.to_Boolean( p_init_msg_list )
2157: THEN
2158: FND_MSG_PUB.initialize;
2159: END IF;
2160:
2161: -- Debug Message
2162: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2158: FND_MSG_PUB.initialize;
2159: END IF;
2160:
2161: -- Debug Message
2162: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2163: THEN
2164: FND_MESSAGE.Set_Name('JTF', 'Delete TerrRscAccess : Start');
2165: FND_MSG_PUB.Add;
2166: END IF;
2161: -- Debug Message
2162: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2163: THEN
2164: FND_MESSAGE.Set_Name('JTF', 'Delete TerrRscAccess : Start');
2165: FND_MSG_PUB.Add;
2166: END IF;
2167:
2168: --Initialize the return status to success
2169: x_return_status := FND_API.G_RET_STS_SUCCESS;
2180:
2181: --Prepare message token
2182: FND_MESSAGE.SET_NAME('ITEMS_DELETED', l_row_count);
2183: --Add message to API message list
2184: FND_MSG_PUB.ADD();
2185:
2186: -- Debug Message
2187: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2188: THEN
2183: --Add message to API message list
2184: FND_MSG_PUB.ADD();
2185:
2186: -- Debug Message
2187: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2188: THEN
2189: FND_MESSAGE.Set_Name('JTF', 'Delete TerrRscAccess: End');
2190: FND_MSG_PUB.Add;
2191: END IF;
2186: -- Debug Message
2187: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2188: THEN
2189: FND_MESSAGE.Set_Name('JTF', 'Delete TerrRscAccess: End');
2190: FND_MSG_PUB.Add;
2191: END IF;
2192:
2193:
2194: FND_MSG_PUB.Count_And_Get
2190: FND_MSG_PUB.Add;
2191: END IF;
2192:
2193:
2194: FND_MSG_PUB.Count_And_Get
2195: ( p_count => x_msg_count,
2196: p_data => x_msg_data
2197: );
2198:
2208: l_row_count := 0;
2209: --Prepare message token
2210: FND_MESSAGE.SET_NAME('ITEMS_DELETED', l_row_count);
2211: --Add message to API message list
2212: FND_MSG_PUB.ADD();
2213: --
2214: FND_MSG_PUB.Count_And_Get
2215: ( p_count => x_msg_count,
2216: p_data => x_msg_data
2210: FND_MESSAGE.SET_NAME('ITEMS_DELETED', l_row_count);
2211: --Add message to API message list
2212: FND_MSG_PUB.ADD();
2213: --
2214: FND_MSG_PUB.Count_And_Get
2215: ( p_count => x_msg_count,
2216: p_data => x_msg_data
2217: );
2218:
2218:
2219: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2220: ROLLBACK TO DELETE_TERRRSC_ACCESS_PVT;
2221: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2222: FND_MSG_PUB.Count_And_Get
2223: ( p_count => x_msg_count,
2224: p_data => x_msg_data
2225: );
2226:
2226:
2227: WHEN OTHERS THEN
2228: ROLLBACK TO DELETE_TERRRSC_ACCESS_PVT;
2229: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2230: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2231: THEN
2232: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Delete error inside Delete_TerrRsc_Access');
2233: END IF;
2234: END Delete_TerrRsc_Access;
2228: ROLLBACK TO DELETE_TERRRSC_ACCESS_PVT;
2229: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2230: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2231: THEN
2232: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Delete error inside Delete_TerrRsc_Access');
2233: END IF;
2234: END Delete_TerrRsc_Access;
2235:
2236:
2292: END IF;
2293: -- Initialize message list if p_init_msg_list is set to TRUE.
2294: IF FND_API.to_Boolean( p_init_msg_list )
2295: THEN
2296: FND_MSG_PUB.initialize;
2297: END IF;
2298:
2299: -- Debug Message
2300: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2296: FND_MSG_PUB.initialize;
2297: END IF;
2298:
2299: -- Debug Message
2300: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2301: THEN
2302: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
2303: fnd_message.set_name ('PROC_NAME', l_api_name);
2304: FND_MSG_PUB.Add;
2300: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2301: THEN
2302: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
2303: fnd_message.set_name ('PROC_NAME', l_api_name);
2304: FND_MSG_PUB.Add;
2305: END IF;
2306:
2307: --Initialize the return status to success
2308: x_return_status := FND_API.G_RET_STS_SUCCESS;
2320: --Prepare message token
2321: FND_MESSAGE.SET_TOKEN('ITEMS_DELETED', l_row_count);
2322:
2323: --Add message to API message list
2324: FND_MSG_PUB.ADD();
2325:
2326: -- Debug Message
2327: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2328: THEN
2323: --Add message to API message list
2324: FND_MSG_PUB.ADD();
2325:
2326: -- Debug Message
2327: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2328: THEN
2329: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
2330: fnd_message.set_name ('PROC_NAME', l_api_name);
2331: FND_MSG_PUB.Add;
2327: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2328: THEN
2329: fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
2330: fnd_message.set_name ('PROC_NAME', l_api_name);
2331: FND_MSG_PUB.Add;
2332: END IF;
2333:
2334:
2335: FND_MSG_PUB.Count_And_Get
2331: FND_MSG_PUB.Add;
2332: END IF;
2333:
2334:
2335: FND_MSG_PUB.Count_And_Get
2336: ( p_count => x_msg_count,
2337: p_data => x_msg_data
2338: );
2339:
2352: --Prepare message token
2353: FND_MESSAGE.SET_NAME('ITEMS_DELETED', l_row_count);
2354:
2355: --Add message to API message list
2356: FND_MSG_PUB.ADD();
2357: --
2358: FND_MSG_PUB.Count_And_Get
2359: ( p_count => x_msg_count,
2360: p_data => x_msg_data
2354:
2355: --Add message to API message list
2356: FND_MSG_PUB.ADD();
2357: --
2358: FND_MSG_PUB.Count_And_Get
2359: ( p_count => x_msg_count,
2360: p_data => x_msg_data
2361: );
2362:
2362:
2363: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2364: ROLLBACK TO DELETE_TERRRSC_PVT;
2365: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2366: FND_MSG_PUB.Count_And_Get
2367: ( p_count => x_msg_count,
2368: p_data => x_msg_data
2369: );
2370:
2370:
2371: WHEN OTHERS THEN
2372: ROLLBACK TO DELETE_TERRRSC_PVT;
2373: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2374: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2375: THEN
2376: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Delete error inside Delete_Territory_Resource');
2377: END IF;
2378: --
2372: ROLLBACK TO DELETE_TERRRSC_PVT;
2373: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2374: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2375: THEN
2376: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Delete error inside Delete_Territory_Resource');
2377: END IF;
2378: --
2379: End Delete_TerrResource;
2380: --
2414: If l_Validate_id <> FND_API.G_MISS_NUM Then
2415: -- --dbms_output.put_line('Validate_Terr_Qtype_Usage: TERR_ID(' || to_char(l_Validate_id) || ')');
2416: If JTF_CTM_UTILITY_PVT.fk_id_is_valid(l_Validate_id, 'TERR_ID', 'JTF_TERR_ALL') <> FND_API.G_TRUE Then
2417: --dbms_output.put_line('Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
2418: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2419: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
2420: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR');
2421: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_ID');
2422: FND_MSG_PUB.ADD;
2418: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2419: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
2420: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR');
2421: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_ID');
2422: FND_MSG_PUB.ADD;
2423: END IF;
2424: x_Return_Status := FND_API.G_RET_STS_ERROR ;
2425: End If;
2426: End If;
2449:
2450: EXCEPTION
2451: WHEN NO_DATA_FOUND THEN
2452: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2453: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2454: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'NO_DATA_FOUND Exception in Validate_Terr_Rsc ' || SQLERRM);
2455: END IF;
2456: WHEN OTHERS THEN
2457: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2450: EXCEPTION
2451: WHEN NO_DATA_FOUND THEN
2452: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2453: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2454: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'NO_DATA_FOUND Exception in Validate_Terr_Rsc ' || SQLERRM);
2455: END IF;
2456: WHEN OTHERS THEN
2457: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2458: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2454: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'NO_DATA_FOUND Exception in Validate_Terr_Rsc ' || SQLERRM);
2455: END IF;
2456: WHEN OTHERS THEN
2457: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2458: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2459: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Other Exception in Validate_Terr_Rsc ' || SQLERRM);
2460: END IF;
2461: END;
2462:
2455: END IF;
2456: WHEN OTHERS THEN
2457: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2458: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2459: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Other Exception in Validate_Terr_Rsc ' || SQLERRM);
2460: END IF;
2461: END;
2462:
2463: IF (l_res_start_date_active IS NOT NULL ) AND (l_res_end_date_active IS NOT NULL ) THEN
2461: END;
2462:
2463: IF (l_res_start_date_active IS NOT NULL ) AND (l_res_end_date_active IS NOT NULL ) THEN
2464: IF ( l_res_start_date_active > l_res_end_date_active ) THEN
2465: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2466: FND_MESSAGE.Set_Name('JTF', 'JTY_RSC_INV_DATE_RANGE');
2467: FND_MSG_PUB.ADD;
2468: END IF;
2469: x_Return_Status := FND_API.G_RET_STS_ERROR ;
2463: IF (l_res_start_date_active IS NOT NULL ) AND (l_res_end_date_active IS NOT NULL ) THEN
2464: IF ( l_res_start_date_active > l_res_end_date_active ) THEN
2465: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2466: FND_MESSAGE.Set_Name('JTF', 'JTY_RSC_INV_DATE_RANGE');
2467: FND_MSG_PUB.ADD;
2468: END IF;
2469: x_Return_Status := FND_API.G_RET_STS_ERROR ;
2470: END IF;
2471:
2478: WHERE jta.terr_id = l_terr_id ;
2479:
2480: -- Validate start date .
2481: IF ( l_res_start_date_active < l_terr_start_date ) OR ( l_res_start_date_active > l_terr_end_date ) THEN
2482: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2483: FND_MESSAGE.Set_Name('JTF', 'JTY_RSC_STARTDATE_NOT_VALID');
2484: FND_MESSAGE.Set_Token('RES_NAME', ' ' );
2485: FND_MSG_PUB.ADD;
2486: END IF;
2481: IF ( l_res_start_date_active < l_terr_start_date ) OR ( l_res_start_date_active > l_terr_end_date ) THEN
2482: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2483: FND_MESSAGE.Set_Name('JTF', 'JTY_RSC_STARTDATE_NOT_VALID');
2484: FND_MESSAGE.Set_Token('RES_NAME', ' ' );
2485: FND_MSG_PUB.ADD;
2486: END IF;
2487: x_Return_Status := FND_API.G_RET_STS_ERROR ;
2488: END IF;
2489:
2488: END IF;
2489:
2490: -- Validate end date.
2491: IF ( l_res_end_date_active < l_terr_start_date ) OR ( l_res_end_date_active > l_terr_end_date ) THEN
2492: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2493: FND_MESSAGE.Set_Name('JTF', 'JTY_RSC_ENDDATE_NOT_VALID');
2494: FND_MESSAGE.Set_Token('RES_NAME', ' ' );
2495: FND_MSG_PUB.ADD;
2496: END IF;
2491: IF ( l_res_end_date_active < l_terr_start_date ) OR ( l_res_end_date_active > l_terr_end_date ) THEN
2492: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2493: FND_MESSAGE.Set_Name('JTF', 'JTY_RSC_ENDDATE_NOT_VALID');
2494: FND_MESSAGE.Set_Token('RES_NAME', ' ' );
2495: FND_MSG_PUB.ADD;
2496: END IF;
2497: x_Return_Status := FND_API.G_RET_STS_ERROR ;
2498: END IF;
2499:
2499:
2500: EXCEPTION
2501: WHEN OTHERS THEN
2502: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2503: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2504: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Others Exception in Validate_Terr_Rsc_update ' || SQLERRM);
2505: END IF;
2506: END;
2507:
2500: EXCEPTION
2501: WHEN OTHERS THEN
2502: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2503: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2504: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Others Exception in Validate_Terr_Rsc_update ' || SQLERRM);
2505: END IF;
2506: END;
2507:
2508: END IF;
2509:
2510: -- Validate last updated by
2511: IF ( p_TerrRsc_Rec.LAST_UPDATED_BY is NULL OR
2512: p_TerrRsc_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
2513: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2514: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
2515: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
2516: FND_MSG_PUB.ADD;
2517: END IF;
2512: p_TerrRsc_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
2513: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2514: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
2515: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
2516: FND_MSG_PUB.ADD;
2517: END IF;
2518: x_Return_Status := FND_API.G_RET_STS_ERROR ;
2519: End If;
2520:
2520:
2521: -- Check last update date
2522: If ( p_TerrRsc_Rec.LAST_UPDATE_DATE IS NULL OR
2523: p_TerrRsc_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
2524: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2525: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
2526: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
2527: FND_MSG_PUB.ADD;
2528: END IF;
2523: p_TerrRsc_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
2524: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2525: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
2526: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
2527: FND_MSG_PUB.ADD;
2528: END IF;
2529: x_Return_Status := FND_API.G_RET_STS_ERROR ;
2530: End If;
2531:
2531:
2532: --Check last update login
2533: If ( p_TerrRsc_Rec.LAST_UPDATE_LOGIN is NULL OR
2534: p_TerrRsc_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
2535: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2536: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
2537: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
2538: FND_MSG_PUB.ADD;
2539: END IF;
2534: p_TerrRsc_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
2535: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2536: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
2537: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
2538: FND_MSG_PUB.ADD;
2539: END IF;
2540: x_Return_Status := FND_API.G_RET_STS_ERROR ;
2541: End If;
2542:
2540: x_Return_Status := FND_API.G_RET_STS_ERROR ;
2541: End If;
2542:
2543: --
2544: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
2545: p_data => x_msg_data);
2546: EXCEPTION
2547: --
2548: WHEN FND_API.G_EXC_ERROR THEN
2547: --
2548: WHEN FND_API.G_EXC_ERROR THEN
2549: --dbms_output.put_line('Validate_Terr_Qtype_Usage: FND_API.G_EXC_ERROR');
2550: x_return_status := FND_API.G_RET_STS_ERROR ;
2551: FND_MSG_PUB.Count_And_Get
2552: ( P_count => x_msg_count,
2553: P_data => x_msg_data
2554: );
2555:
2555:
2556: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2557: --dbms_output.put_line('Validate_Terr_Qtype_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
2558: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2559: FND_MSG_PUB.Count_And_Get
2560: ( P_count => x_msg_count,
2561: P_data => x_msg_data
2562: );
2563:
2563:
2564: WHEN OTHERS THEN
2565: --dbms_output.put_line('Validate_Terr_Qtype_Usage: OTHERS - ' || SQLERRM);
2566: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2567: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2568: THEN
2569: FND_MSG_PUB.Add_Exc_Msg
2570: ( G_PKG_NAME,
2571: 'Others Exception in Validate_Terr_Rsc_update ' || SQLERRM
2565: --dbms_output.put_line('Validate_Terr_Qtype_Usage: OTHERS - ' || SQLERRM);
2566: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2567: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2568: THEN
2569: FND_MSG_PUB.Add_Exc_Msg
2570: ( G_PKG_NAME,
2571: 'Others Exception in Validate_Terr_Rsc_update ' || SQLERRM
2572: );
2573: END IF;
2639: l_ref_TerrRsc_Rec.RESOURCE_TYPE, l_ref_TerrRsc_Rec.ROLE, l_ref_TerrRsc_Rec.PRIMARY_CONTACT_FLAG,
2640: l_ref_TerrRsc_Rec.ORG_ID;
2641:
2642: If (C_GetTerrResource%NOTFOUND) Then
2643: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2644: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_UPDT_TARGET');
2645: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_RSC');
2646: FND_MESSAGE.Set_Token('PK_ID', TO_CHAR(P_TerrRsc_Rec.TERR_RSC_ID));
2647: FND_MSG_PUB.Add;
2643: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2644: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_UPDT_TARGET');
2645: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_RSC');
2646: FND_MESSAGE.Set_Token('PK_ID', TO_CHAR(P_TerrRsc_Rec.TERR_RSC_ID));
2647: FND_MSG_PUB.Add;
2648: END IF;
2649: raise FND_API.G_EXC_ERROR;
2650: End if;
2651: CLOSE C_GetTerrResource;
2651: CLOSE C_GetTerrResource;
2652:
2653: --Validate the incomming record
2654: IF ( P_validation_level > FND_API.G_VALID_LEVEL_NONE) THEN
2655: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2656: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
2657: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Terr_Rsc');
2658: FND_MSG_PUB.Add;
2659: END IF;
2654: IF ( P_validation_level > FND_API.G_VALID_LEVEL_NONE) THEN
2655: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
2656: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
2657: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Terr_Rsc');
2658: FND_MSG_PUB.Add;
2659: END IF;
2660:
2661: -- Invoke validation procedures
2662: Validate_Terr_Rsc_update(p_init_msg_list => FND_API.G_FALSE,
2735:
2736: EXCEPTION
2737: WHEN FND_API.G_EXC_ERROR THEN
2738: x_return_status := FND_API.G_RET_STS_ERROR ;
2739: FND_MSG_PUB.Count_And_Get(P_count => x_msg_count,
2740: P_data => x_msg_data);
2741:
2742: WHEN OTHERS THEN
2743: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2742: WHEN OTHERS THEN
2743: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2744: x_TerrRsc_Out_Rec.TERR_RSC_ID := NULL;
2745: x_TerrRsc_Out_Rec.return_status := x_return_status;
2746: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2747: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Update_Territory_Resources');
2748: END IF;
2749:
2750: End Update_Terr_Resource;
2743: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2744: x_TerrRsc_Out_Rec.TERR_RSC_ID := NULL;
2745: x_TerrRsc_Out_Rec.return_status := x_return_status;
2746: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2747: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Update_Territory_Resources');
2748: END IF;
2749:
2750: End Update_Terr_Resource;
2751:
2931:
2932: IF ( P_validation_level > FND_API.G_VALID_LEVEL_NONE)
2933: THEN
2934: -- Debug message
2935: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2936: THEN
2937: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
2938: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Terr_Rsc_Access');
2939: FND_MSG_PUB.Add;
2935: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
2936: THEN
2937: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_VALIDATE_MSG');
2938: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Terr_Rsc_Access');
2939: FND_MSG_PUB.Add;
2940: END IF;
2941: --
2942: -- Invoke validation procedures
2943: Validate_Terr_Rsc_Access(p_init_msg_list => FND_API.G_FALSE,
2968: l_ref_TerrRsc_Access_Rec.TRANS_ACCESS_CODE,
2969: l_ref_TerrRsc_Access_Rec.ORG_ID;
2970:
2971: If ( C_GetTerrResAccess%NOTFOUND) Then
2972: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2973: THEN
2974: --dbms_output.put_line('Update_Resource_Access REC: DATA-NOT-FOUND');
2975: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_UPDT_TARGET');
2976: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_RSC_ACCESS');
2974: --dbms_output.put_line('Update_Resource_Access REC: DATA-NOT-FOUND');
2975: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_UPDT_TARGET');
2976: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_RSC_ACCESS');
2977: FND_MESSAGE.Set_Token('PK_ID', TO_CHAR(P_TerrRsc_Access_Rec.TERR_RSC_ACCESS_ID));
2978: FND_MSG_PUB.Add;
2979: END IF;
2980: raise FND_API.G_EXC_ERROR;
2981: End if;
2982: CLOSE C_GetTerrResAccess;
3020: EXCEPTION
3021: WHEN FND_API.G_EXC_ERROR THEN
3022: --dbms_output.put_line('Update_Resource_Access: FND_API.G_EXC_ERROR');
3023: x_return_status := FND_API.G_RET_STS_ERROR ;
3024: FND_MSG_PUB.Count_And_Get
3025: ( P_count => x_msg_count,
3026: P_data => x_msg_data
3027: );
3028:
3033: --
3034: X_TerrRsc_Access_Out_Rec.TERR_RSC_ACCESS_ID := NULL;
3035: X_TerrRsc_Access_Out_Rec.return_status := x_return_status;
3036: --
3037: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3038: THEN
3039: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Update_Resource _Access');
3040: END IF;
3041: --
3035: X_TerrRsc_Access_Out_Rec.return_status := x_return_status;
3036: --
3037: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3038: THEN
3039: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Others exception in Update_Resource _Access');
3040: END IF;
3041: --
3042: End Update_Resource_Access;
3043:
3219: --dbms_output.put_line('Validate_Foreign_Keys: NO_DATA_FOUND');
3220: x_return_status := FND_API.G_RET_STS_ERROR ;
3221: fnd_message.set_name('JTF', 'JTF_TERR_INVALID_TERRITORY');
3222: fnd_message.Set_Token('TERR_ID', to_char(l_Terr_Id) );
3223: FND_MSG_PUB.ADD;
3224: FND_MSG_PUB.Count_And_Get
3225: ( P_count => x_msg_count,
3226: P_data => x_msg_data
3227: );
3220: x_return_status := FND_API.G_RET_STS_ERROR ;
3221: fnd_message.set_name('JTF', 'JTF_TERR_INVALID_TERRITORY');
3222: fnd_message.Set_Token('TERR_ID', to_char(l_Terr_Id) );
3223: FND_MSG_PUB.ADD;
3224: FND_MSG_PUB.Count_And_Get
3225: ( P_count => x_msg_count,
3226: P_data => x_msg_data
3227: );
3228:
3228:
3229: WHEN OTHERS THEN
3230: --dbms_output.put_line('Validate_Foreign_Keys: OTHERS - ' || SQLERRM);
3231: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3232: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3233: THEN
3234: FND_MSG_PUB.Add_Exc_Msg
3235: ( G_PKG_NAME,
3236: 'Others Exception in Validate_Foreign_Keys ' || SQLERRM
3230: --dbms_output.put_line('Validate_Foreign_Keys: OTHERS - ' || SQLERRM);
3231: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3232: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3233: THEN
3234: FND_MSG_PUB.Add_Exc_Msg
3235: ( G_PKG_NAME,
3236: 'Others Exception in Validate_Foreign_Keys ' || SQLERRM
3237: );
3238: END IF;
3296: -- Cannot have more than one Primary flag
3297: If l_Primary_Count > 1 Then
3298: --
3299: fnd_message.set_name('JTF', 'JTF_TERR_MULTIPLE_PRIMARY_FLAG');
3300: FND_MSG_PUB.ADD;
3301: raise FND_API.G_EXC_ERROR;
3302: --
3303: End If;
3304: --
3306: --
3307: WHEN FND_API.G_EXC_ERROR THEN
3308: --dbms_output.put_line('Validate_Primary_Flag: FND_API.G_EXC_ERROR');
3309: x_return_status := FND_API.G_RET_STS_ERROR ;
3310: FND_MSG_PUB.Count_And_Get
3311: ( P_count => x_msg_count,
3312: P_data => x_msg_data
3313: );
3314:
3314:
3315: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3316: --dbms_output.put_line('Validate_Primary_Flag: FND_API.G_EXC_UNEXPECTED_ERROR');
3317: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3318: FND_MSG_PUB.Count_And_Get
3319: ( P_count => x_msg_count,
3320: P_data => x_msg_data
3321: );
3322:
3322:
3323: WHEN OTHERS THEN
3324: --dbms_output.put_line('Validate_Primary_Flag: OTHERS - ' || SQLERRM);
3325: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3326: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3327: THEN
3328: FND_MSG_PUB.Add_Exc_Msg
3329: ( G_PKG_NAME,
3330: 'Others Exception in Validate_Primary_Flag ' || SQLERRM
3324: --dbms_output.put_line('Validate_Primary_Flag: OTHERS - ' || SQLERRM);
3325: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3326: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3327: THEN
3328: FND_MSG_PUB.Add_Exc_Msg
3329: ( G_PKG_NAME,
3330: 'Others Exception in Validate_Primary_Flag ' || SQLERRM
3331: );
3332: END IF;
3390: END IF;
3391: */
3392: -- If the territory resource records is missing
3393: If (p_TerrRsc_Tbl.count = 0 ) Then
3394: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3395: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERRRES_REC');
3396: FND_MSG_PUB.ADD;
3397: END IF;
3398: x_return_status := FND_API.G_RET_STS_ERROR;
3392: -- If the territory resource records is missing
3393: If (p_TerrRsc_Tbl.count = 0 ) Then
3394: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3395: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_TERRRES_REC');
3396: FND_MSG_PUB.ADD;
3397: END IF;
3398: x_return_status := FND_API.G_RET_STS_ERROR;
3399: raise FND_API.G_EXC_ERROR;
3400: END IF;
3428: --
3429: WHEN FND_API.G_EXC_ERROR THEN
3430: --dbms_output.put_line('Validate_TerrResource_Data: FND_API.G_EXC_ERROR');
3431: x_return_status := FND_API.G_RET_STS_ERROR ;
3432: FND_MSG_PUB.Count_And_Get
3433: ( P_count => x_msg_count,
3434: P_data => x_msg_data
3435: );
3436:
3436:
3437: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3438: --dbms_output.put_line('Validate_TerrResource_Data: FND_API.G_EXC_UNEXPECTED_ERROR');
3439: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3440: FND_MSG_PUB.Count_And_Get
3441: ( P_count => x_msg_count,
3442: P_data => x_msg_data
3443: );
3444:
3444:
3445: WHEN OTHERS THEN
3446: --dbms_output.put_line('Validate_TerrResource_Data: OTHERS - ' || SQLERRM);
3447: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3448: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3449: THEN
3450: FND_MSG_PUB.Add_Exc_Msg
3451: ( G_PKG_NAME,
3452: 'Others Exception in Validate_TerrResource_Data ' || SQLERRM
3446: --dbms_output.put_line('Validate_TerrResource_Data: OTHERS - ' || SQLERRM);
3447: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3448: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3449: THEN
3450: FND_MSG_PUB.Add_Exc_Msg
3451: ( G_PKG_NAME,
3452: 'Others Exception in Validate_TerrResource_Data ' || SQLERRM
3453: );
3454: END IF;
3489: If l_Validate_id IS NOT NULL Then
3490: -- --dbms_output.put_line('Validate_Terr_Qtype_Usage: TERR_ID(' || to_char(l_Validate_id) || ')');
3491: If JTF_CTM_UTILITY_PVT.fk_id_is_valid(l_Validate_id, 'TERR_ID', 'JTF_TERR_ALL') <> FND_API.G_TRUE Then
3492: --dbms_output.put_line('Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
3493: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3494: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
3495: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR');
3496: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_ID');
3497: FND_MSG_PUB.ADD;
3493: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3494: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
3495: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR');
3496: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_ID');
3497: FND_MSG_PUB.ADD;
3498: END IF;
3499: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3500: End If;
3501: Else
3499: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3500: End If;
3501: Else
3502: -- Invalid Territory Id specified
3503: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3504: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3505: FND_MESSAGE.Set_Token('COL_NAME', 'TERR_ID' );
3506: FND_MSG_PUB.ADD;
3507: END IF;
3502: -- Invalid Territory Id specified
3503: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3504: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3505: FND_MESSAGE.Set_Token('COL_NAME', 'TERR_ID' );
3506: FND_MSG_PUB.ADD;
3507: END IF;
3508: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3509: End If;
3510:
3510:
3511: --Check created by
3512: IF ( p_TerrRsc_Rec.CREATED_BY is NULL OR
3513: p_TerrRsc_Rec.CREATED_BY = FND_API.G_MISS_NUM ) THEN
3514: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3515: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3516: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
3517: FND_MSG_PUB.ADD;
3518: END IF;
3513: p_TerrRsc_Rec.CREATED_BY = FND_API.G_MISS_NUM ) THEN
3514: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3515: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3516: FND_MESSAGE.Set_Token('COL_NAME', 'CREATED_BY' );
3517: FND_MSG_PUB.ADD;
3518: END IF;
3519: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3520: End If;
3521: --Check creation date
3520: End If;
3521: --Check creation date
3522: If ( p_TerrRsc_Rec.CREATION_DATE is NULL OR
3523: p_TerrRsc_Rec.CREATION_DATE = FND_API.G_MISS_DATE ) THEN
3524: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3525: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3526: FND_MESSAGE.Set_Token('COL_NAME', 'CREATION_DATE' );
3527: FND_MSG_PUB.ADD;
3528: END IF;
3523: p_TerrRsc_Rec.CREATION_DATE = FND_API.G_MISS_DATE ) THEN
3524: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3525: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3526: FND_MESSAGE.Set_Token('COL_NAME', 'CREATION_DATE' );
3527: FND_MSG_PUB.ADD;
3528: END IF;
3529: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3530: End If;
3531: --Check ORG_ID
3530: End If;
3531: --Check ORG_ID
3532: If ( p_TerrRsc_Rec.ORG_ID is NULL OR
3533: p_TerrRsc_Rec.ORG_ID = FND_API.G_MISS_NUM ) THEN
3534: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3535: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3536: FND_MESSAGE.Set_Token('COL_NAME', 'ORG_ID' );
3537: FND_MSG_PUB.ADD;
3538: END IF;
3533: p_TerrRsc_Rec.ORG_ID = FND_API.G_MISS_NUM ) THEN
3534: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3535: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3536: FND_MESSAGE.Set_Token('COL_NAME', 'ORG_ID' );
3537: FND_MSG_PUB.ADD;
3538: END IF;
3539: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3540: End If;
3541: --Check RESOURCE_ID
3540: End If;
3541: --Check RESOURCE_ID
3542: If ( p_TerrRsc_Rec.RESOURCE_ID is NULL OR
3543: p_TerrRsc_Rec.RESOURCE_ID = FND_API.G_MISS_NUM ) THEN
3544: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3545: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3546: FND_MESSAGE.Set_Token('COL_NAME', 'RESOURCE_ID' );
3547: FND_MSG_PUB.ADD;
3548: END IF;
3543: p_TerrRsc_Rec.RESOURCE_ID = FND_API.G_MISS_NUM ) THEN
3544: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3545: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3546: FND_MESSAGE.Set_Token('COL_NAME', 'RESOURCE_ID' );
3547: FND_MSG_PUB.ADD;
3548: END IF;
3549: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3550: End If;
3551: --Check RESOURCE_TYPE
3550: End If;
3551: --Check RESOURCE_TYPE
3552: If ( p_TerrRsc_Rec.RESOURCE_TYPE is NULL OR
3553: p_TerrRsc_Rec.RESOURCE_TYPE = FND_API.G_MISS_CHAR ) THEN
3554: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3555: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3556: FND_MESSAGE.Set_Token('COL_NAME', 'RESOURCE_TYPE' );
3557: FND_MSG_PUB.ADD;
3558: END IF;
3553: p_TerrRsc_Rec.RESOURCE_TYPE = FND_API.G_MISS_CHAR ) THEN
3554: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3555: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3556: FND_MESSAGE.Set_Token('COL_NAME', 'RESOURCE_TYPE' );
3557: FND_MSG_PUB.ADD;
3558: END IF;
3559: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3560: End If;
3561: --Check START_DATE_ACTIVE
3560: End If;
3561: --Check START_DATE_ACTIVE
3562: If ( p_TerrRsc_Rec.START_DATE_ACTIVE is NULL OR
3563: p_TerrRsc_Rec.START_DATE_ACTIVE = FND_API.G_MISS_DATE ) THEN
3564: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3565: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3566: FND_MESSAGE.Set_Token('COL_NAME', 'START_DATE_ACTIVE' );
3567: FND_MSG_PUB.ADD;
3568: END IF;
3563: p_TerrRsc_Rec.START_DATE_ACTIVE = FND_API.G_MISS_DATE ) THEN
3564: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3565: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3566: FND_MESSAGE.Set_Token('COL_NAME', 'START_DATE_ACTIVE' );
3567: FND_MSG_PUB.ADD;
3568: END IF;
3569: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3570: End If;
3571: --Check END_DATE_ACTIVE
3570: End If;
3571: --Check END_DATE_ACTIVE
3572: If ( p_TerrRsc_Rec.END_DATE_ACTIVE is NULL OR
3573: p_TerrRsc_Rec.END_DATE_ACTIVE = FND_API.G_MISS_DATE ) THEN
3574: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3575: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3576: FND_MESSAGE.Set_Token('COL_NAME', 'END_DATE_ACTIVE' );
3577: FND_MSG_PUB.ADD;
3578: END IF;
3573: p_TerrRsc_Rec.END_DATE_ACTIVE = FND_API.G_MISS_DATE ) THEN
3574: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3575: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3576: FND_MESSAGE.Set_Token('COL_NAME', 'END_DATE_ACTIVE' );
3577: FND_MSG_PUB.ADD;
3578: END IF;
3579: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3580: End If;
3581:
3582: IF (p_TerrRsc_Rec.START_DATE_ACTIVE IS NOT NULL AND p_TerrRsc_Rec.START_DATE_ACTIVE <> FND_API.G_MISS_DATE )
3583: AND (p_TerrRsc_Rec.END_DATE_ACTIVE IS NOT NULL AND p_TerrRsc_Rec.END_DATE_ACTIVE <> FND_API.G_MISS_DATE ) THEN
3584:
3585: IF ( p_TerrRsc_Rec.START_DATE_ACTIVE > p_TerrRsc_Rec.END_DATE_ACTIVE ) THEN
3586: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3587: FND_MESSAGE.Set_Name('JTF', 'JTY_RSC_INV_DATE_RANGE');
3588: FND_MSG_PUB.ADD;
3589: END IF;
3590: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3584:
3585: IF ( p_TerrRsc_Rec.START_DATE_ACTIVE > p_TerrRsc_Rec.END_DATE_ACTIVE ) THEN
3586: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3587: FND_MESSAGE.Set_Name('JTF', 'JTY_RSC_INV_DATE_RANGE');
3588: FND_MSG_PUB.ADD;
3589: END IF;
3590: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3591: END IF;
3592:
3599: WHERE jta.terr_id = p_TerrRsc_Rec.Terr_Id ;
3600:
3601: -- Validate start date .
3602: IF ( p_TerrRsc_Rec.START_DATE_ACTIVE < l_terr_start_date ) OR ( p_TerrRsc_Rec.START_DATE_ACTIVE > l_terr_end_date ) THEN
3603: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3604: FND_MESSAGE.Set_Name('JTF', 'JTY_RSC_STARTDATE_NOT_VALID');
3605: FND_MESSAGE.Set_Token('RES_NAME', ' ' );
3606: FND_MSG_PUB.ADD;
3607: END IF;
3602: IF ( p_TerrRsc_Rec.START_DATE_ACTIVE < l_terr_start_date ) OR ( p_TerrRsc_Rec.START_DATE_ACTIVE > l_terr_end_date ) THEN
3603: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3604: FND_MESSAGE.Set_Name('JTF', 'JTY_RSC_STARTDATE_NOT_VALID');
3605: FND_MESSAGE.Set_Token('RES_NAME', ' ' );
3606: FND_MSG_PUB.ADD;
3607: END IF;
3608: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3609: END IF;
3610:
3609: END IF;
3610:
3611: -- Validate end date.
3612: IF ( p_TerrRsc_Rec.END_DATE_ACTIVE < l_terr_start_date ) OR ( p_TerrRsc_Rec.END_DATE_ACTIVE > l_terr_end_date ) THEN
3613: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3614: FND_MESSAGE.Set_Name('JTF', 'JTY_RSC_ENDDATE_NOT_VALID');
3615: FND_MESSAGE.Set_Token('RES_NAME', ' ' );
3616: FND_MSG_PUB.ADD;
3617: END IF;
3612: IF ( p_TerrRsc_Rec.END_DATE_ACTIVE < l_terr_start_date ) OR ( p_TerrRsc_Rec.END_DATE_ACTIVE > l_terr_end_date ) THEN
3613: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3614: FND_MESSAGE.Set_Name('JTF', 'JTY_RSC_ENDDATE_NOT_VALID');
3615: FND_MESSAGE.Set_Token('RES_NAME', ' ' );
3616: FND_MSG_PUB.ADD;
3617: END IF;
3618: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3619: END IF;
3620:
3620:
3621: EXCEPTION
3622: WHEN OTHERS THEN
3623: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3624: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3625: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Others Exception in Validate_Terr_Rsc ' || SQLERRM);
3626: END IF;
3627: END;
3628:
3621: EXCEPTION
3622: WHEN OTHERS THEN
3623: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3624: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3625: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, 'Others Exception in Validate_Terr_Rsc ' || SQLERRM);
3626: END IF;
3627: END;
3628:
3629: END IF;
3630:
3631: -- Validate last updated by
3632: IF ( p_TerrRsc_Rec.LAST_UPDATED_BY is NULL OR
3633: p_TerrRsc_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
3634: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3635: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3636: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
3637: FND_MSG_PUB.ADD;
3638: END IF;
3633: p_TerrRsc_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
3634: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3635: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3636: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
3637: FND_MSG_PUB.ADD;
3638: END IF;
3639: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3640: End If;
3641:
3641:
3642: -- Check last update date
3643: If ( p_TerrRsc_Rec.LAST_UPDATE_DATE IS NULL OR
3644: p_TerrRsc_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
3645: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3646: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3647: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
3648: FND_MSG_PUB.ADD;
3649: END IF;
3644: p_TerrRsc_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
3645: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3646: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3647: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
3648: FND_MSG_PUB.ADD;
3649: END IF;
3650: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3651: End If;
3652:
3652:
3653: --Check last update login
3654: If ( p_TerrRsc_Rec.LAST_UPDATE_LOGIN is NULL OR
3655: p_TerrRsc_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
3656: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3657: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3658: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
3659: FND_MSG_PUB.ADD;
3660: END IF;
3655: p_TerrRsc_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
3656: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3657: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3658: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
3659: FND_MSG_PUB.ADD;
3660: END IF;
3661: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3662: End If;
3663:
3661: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3662: End If;
3663:
3664: --
3665: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
3666: p_data => x_msg_data);
3667: EXCEPTION
3668: --
3669: WHEN FND_API.G_EXC_ERROR THEN
3668: --
3669: WHEN FND_API.G_EXC_ERROR THEN
3670: --dbms_output.put_line('Validate_Terr_Qtype_Usage: FND_API.G_EXC_ERROR');
3671: x_return_status := FND_API.G_RET_STS_ERROR ;
3672: FND_MSG_PUB.Count_And_Get
3673: ( P_count => x_msg_count,
3674: P_data => x_msg_data
3675: );
3676:
3676:
3677: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3678: --dbms_output.put_line('Validate_Terr_Qtype_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
3679: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3680: FND_MSG_PUB.Count_And_Get
3681: ( P_count => x_msg_count,
3682: P_data => x_msg_data
3683: );
3684:
3684:
3685: WHEN OTHERS THEN
3686: --dbms_output.put_line('Validate_Terr_Qtype_Usage: OTHERS - ' || SQLERRM);
3687: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3688: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3689: THEN
3690: FND_MSG_PUB.Add_Exc_Msg
3691: ( G_PKG_NAME,
3692: 'Others Exception in Validate_Terr_Rsc ' || SQLERRM
3686: --dbms_output.put_line('Validate_Terr_Qtype_Usage: OTHERS - ' || SQLERRM);
3687: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3688: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3689: THEN
3690: FND_MSG_PUB.Add_Exc_Msg
3691: ( G_PKG_NAME,
3692: 'Others Exception in Validate_Terr_Rsc ' || SQLERRM
3693: );
3694: END IF;
3728: If l_Validate_id IS NOT NULL Then
3729: -- --dbms_output.put_line('Validate_Terr_Qtype_Usage: TERR_ID(' || to_char(l_Validate_id) || ')');
3730: If JTF_CTM_UTILITY_PVT.fk_id_is_valid(l_Validate_id, 'TERR_RSC_ID', 'JTF_TERR_RSC_ALL') <> FND_API.G_TRUE Then
3731: --dbms_output.put_line('Validate_Foreign_Key: l_status <> FND_API.G_TRUE');
3732: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3733: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
3734: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_RSC');
3735: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_RSC_ID');
3736: FND_MSG_PUB.ADD;
3732: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3733: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
3734: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_TERR_RSC');
3735: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TERR_RSC_ID');
3736: FND_MSG_PUB.ADD;
3737: END IF;
3738: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3739: End If;
3740: Else
3737: END IF;
3738: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3739: End If;
3740: Else
3741: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3742: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3743: FND_MESSAGE.Set_Token('COL_NAME', 'TERR_RSC_ID' );
3744: FND_MSG_PUB.ADD;
3745: END IF;
3740: Else
3741: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3742: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3743: FND_MESSAGE.Set_Token('COL_NAME', 'TERR_RSC_ID' );
3744: FND_MSG_PUB.ADD;
3745: END IF;
3746: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3747: End If;
3748:
3759: -- Invalid Territory Id specified
3760: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
3761: FND_MESSAGE.Set_Token('TABLE_NAME', 'JTF_QUAL_TYPES');
3762: FND_MESSAGE.Set_Token('COLUMN_NAME', 'ACCESS_TYPE');
3763: FND_MSG_PUB.ADD;
3764: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3765: END;
3766: END IF;
3767: -- Validate the TRANS_ACCESS_CODE
3780: -- Invalid TRANS_ACCESS_CODE specified
3781: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_INVALID_FOREIGN_KEY');
3782: FND_MESSAGE.Set_Token('TABLE_NAME', 'FND_LOOKUPS');
3783: FND_MESSAGE.Set_Token('COLUMN_NAME', 'TRANS_ACCESS_CODE');
3784: FND_MSG_PUB.ADD;
3785: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3786: END;
3787: END IF;
3788:
3788:
3789: -- Validate last updated by
3790: IF ( p_TerrRsc_Access_Rec.LAST_UPDATED_BY is NULL OR
3791: p_TerrRsc_Access_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
3792: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3793: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3794: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
3795: FND_MSG_PUB.ADD;
3796: END IF;
3791: p_TerrRsc_Access_Rec.LAST_UPDATED_BY = FND_API.G_MISS_NUM) Then
3792: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3793: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3794: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATED_BY' );
3795: FND_MSG_PUB.ADD;
3796: END IF;
3797: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3798: End If;
3799:
3799:
3800: -- Check last update date
3801: If ( p_TerrRsc_Access_Rec.LAST_UPDATE_DATE IS NULL OR
3802: p_TerrRsc_Access_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
3803: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3804: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3805: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
3806: FND_MSG_PUB.ADD;
3807: END IF;
3802: p_TerrRsc_Access_Rec.LAST_UPDATE_DATE = FND_API.G_MISS_DATE ) THEN
3803: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3804: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3805: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_DATE' );
3806: FND_MSG_PUB.ADD;
3807: END IF;
3808: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3809: End If;
3810:
3810:
3811: --Check last update login
3812: If ( p_TerrRsc_Access_Rec.LAST_UPDATE_LOGIN is NULL OR
3813: p_TerrRsc_Access_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
3814: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3815: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3816: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
3817: FND_MSG_PUB.ADD;
3818: END IF;
3813: p_TerrRsc_Access_Rec.LAST_UPDATE_LOGIN = FND_API.G_MISS_NUM ) THEN
3814: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3815: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_MISSING_COL_VALUE');
3816: FND_MESSAGE.Set_Token('COL_NAME', 'LAST_UPDATE_LOGIN' );
3817: FND_MSG_PUB.ADD;
3818: END IF;
3819: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3820: End If;
3821:
3819: x_Return_Status := FND_API.G_RET_STS_ERROR ;
3820: End If;
3821:
3822: --
3823: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
3824: p_data => x_msg_data);
3825: EXCEPTION
3826: --
3827: WHEN FND_API.G_EXC_ERROR THEN
3826: --
3827: WHEN FND_API.G_EXC_ERROR THEN
3828: --dbms_output.put_line('Validate_Terr_Qtype_Usage: FND_API.G_EXC_ERROR');
3829: x_return_status := FND_API.G_RET_STS_ERROR ;
3830: FND_MSG_PUB.Count_And_Get
3831: ( P_count => x_msg_count,
3832: P_data => x_msg_data
3833: );
3834:
3834:
3835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3836: --dbms_output.put_line('Validate_Terr_Qtype_Usage: FND_API.G_EXC_UNEXPECTED_ERROR');
3837: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3838: FND_MSG_PUB.Count_And_Get
3839: ( P_count => x_msg_count,
3840: P_data => x_msg_data
3841: );
3842:
3842:
3843: WHEN OTHERS THEN
3844: --dbms_output.put_line('Validate_Terr_Qtype_Usage: OTHERS - ' || SQLERRM);
3845: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3846: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3847: THEN
3848: FND_MSG_PUB.Add_Exc_Msg
3849: ( G_PKG_NAME,
3850: 'Others Exception in Validate_Terr_Rsc ' || SQLERRM
3844: --dbms_output.put_line('Validate_Terr_Qtype_Usage: OTHERS - ' || SQLERRM);
3845: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3846: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3847: THEN
3848: FND_MSG_PUB.Add_Exc_Msg
3849: ( G_PKG_NAME,
3850: 'Others Exception in Validate_Terr_Rsc ' || SQLERRM
3851: );
3852: END IF;
4416:
4417:
4418: -- Initialize message list if p_init_msg_list is set to TRUE.
4419: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4420: FND_MSG_PUB.initialize;
4421: END IF;
4422: */
4423:
4424:
4422: */
4423:
4424:
4425: -- Debug Message
4426: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4427: THEN
4428: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
4429: fnd_message.set_name ('PROC_NAME', l_api_name);
4430: FND_MSG_PUB.Add;
4426: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4427: THEN
4428: fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
4429: fnd_message.set_name ('PROC_NAME', l_api_name);
4430: FND_MSG_PUB.Add;
4431: END IF;
4432:
4433: -- Initialize API return status to success
4434: x_return_status := FND_API.G_RET_STS_SUCCESS;
4480: 'Unexpected Execution Error from call to Create Terr Resource API');
4481: */
4482:
4483: fnd_message.set_name('JTF', 'JTF_ERROR_TERRRSC_API');
4484: fnd_msg_pub.add;
4485: RAISE fnd_api.g_exc_unexpected_error;
4486:
4487: END IF;
4488:
4526: dbms_output.put_line(
4527: 'Unexpected Execution Error from call to Create Terr Resource Access API');
4528: */
4529: fnd_message.set_name('JTF', 'JTF_ERROR_TERRRSCACCESS_API');
4530: fnd_msg_pub.add;
4531: RAISE fnd_api.g_exc_unexpected_error;
4532: END IF;
4533:
4534: END LOOP;
4546:
4547: /* Standard call to get message count and
4548: the message information */
4549:
4550: FND_MSG_PUB.Count_And_Get
4551: (
4552: p_count => x_msg_count,
4553: p_data => x_msg_data
4554: );
4557: EXCEPTION
4558: WHEN FND_API.G_EXC_ERROR THEN
4559: --dbms_output.put_line('Copy Territory Resources : FND_API.G_EXC_ERROR');
4560: x_return_status := FND_API.G_RET_STS_ERROR ;
4561: FND_MSG_PUB.Count_And_Get
4562: ( P_count => x_msg_count,
4563: P_data => x_msg_data
4564: );
4565:
4565:
4566: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4567: --dbms_output.put_line('Copy Territory Resources : FND_API.G_EXC_UNEXPECTED_ERROR');
4568: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4569: FND_MSG_PUB.Count_And_Get
4570: ( P_count => x_msg_count,
4571: P_data => x_msg_data
4572: );
4573:
4573:
4574: WHEN OTHERS THEN
4575: --dbms_output.put_line('Copy Territory Resources : OTHERS - ' || SQLERRM);
4576: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4577: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4578: THEN
4579: FND_MSG_PUB.Add_Exc_Msg
4580: ( G_PKG_NAME,
4581: 'Others Exception in Copy_Terr_Resources ' || SQLERRM
4575: --dbms_output.put_line('Copy Territory Resources : OTHERS - ' || SQLERRM);
4576: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4577: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4578: THEN
4579: FND_MSG_PUB.Add_Exc_Msg
4580: ( G_PKG_NAME,
4581: 'Others Exception in Copy_Terr_Resources ' || SQLERRM
4582: );
4583: END IF;
4629: x_return_status := FND_API.G_RET_STS_ERROR;
4630:
4631: /* Debug message */
4632: --arpatel bug#1500581 (part of fix)
4633: --IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
4634: FND_MESSAGE.Set_Name ('JTF', 'JTF_TERR_RSC_ACCESS_UK_CON');
4635: --FND_MESSAGE.Set_Token ('TABLE', 'JTF_TERR_RSC_ACCESS_ALL');
4636: FND_MSG_PUB.ADD;
4637: --END IF;
4632: --arpatel bug#1500581 (part of fix)
4633: --IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
4634: FND_MESSAGE.Set_Name ('JTF', 'JTF_TERR_RSC_ACCESS_UK_CON');
4635: --FND_MESSAGE.Set_Token ('TABLE', 'JTF_TERR_RSC_ACCESS_ALL');
4636: FND_MSG_PUB.ADD;
4637: --END IF;
4638:
4639: END IF; /* c_chk_uk_violation%FOUND */
4640: CLOSE csr_chk_uk_violation;
4640: CLOSE csr_chk_uk_violation;
4641:
4642: END IF;
4643:
4644: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
4645: p_data => x_msg_data);
4646:
4647: EXCEPTION
4648:
4651: X_return_status := FND_API.G_RET_STS_ERROR;
4652: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
4653: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Unique_Key' );
4654: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
4655: FND_MSG_PUB.ADD;
4656: FND_MSG_PUB.Count_And_Get
4657: ( p_count => x_msg_count,
4658: p_data => x_msg_data
4659: );
4652: FND_MESSAGE.Set_Name('JTF', 'JTF_TERR_UNEXPECTED_ERROR');
4653: FND_MESSAGE.Set_Token('PROC_NAME', 'Validate_Unique_Key' );
4654: FND_MESSAGE.Set_Token('ERROR', sqlerrm );
4655: FND_MSG_PUB.ADD;
4656: FND_MSG_PUB.Count_And_Get
4657: ( p_count => x_msg_count,
4658: p_data => x_msg_data
4659: );
4660:
4762:
4763:
4764: -- Initialize message list if p_init_msg_list is set to TRUE.
4765: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4766: FND_MSG_PUB.initialize;
4767: END IF;
4768:
4769:
4770:
4768:
4769:
4770:
4771: -- Debug Message
4772: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4773: THEN
4774: fnd_message.set_name ('JTF', 'JTF_TERRITORY_START_MSG');
4775: fnd_message.set_name ('PROC_NAME', l_api_name);
4776: FND_MSG_PUB.Add;
4772: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
4773: THEN
4774: fnd_message.set_name ('JTF', 'JTF_TERRITORY_START_MSG');
4775: fnd_message.set_name ('PROC_NAME', l_api_name);
4776: FND_MSG_PUB.Add;
4777: END IF;
4778:
4779: -- Initialize API return status to success
4780: x_return_status := FND_API.G_RET_STS_SUCCESS;
5021: --dbms_output.put_line('Value of l_terr_ids_tbl.first='||TO_CHAR(l_terr_ids_tbl.first));
5022: --dbms_output.put_line('Value of l_terr_ids_tbl.last='||TO_CHAR(l_terr_ids_tbl.last));
5023:
5024: -- Debug Message
5025: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
5026: THEN
5027: fnd_message.set_name ('JTF', 'JTF_TERRITORY_END_MSG');
5028: fnd_message.set_name ('PROC_NAME', l_api_name);
5029: FND_MSG_PUB.Add;
5025: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
5026: THEN
5027: fnd_message.set_name ('JTF', 'JTF_TERRITORY_END_MSG');
5028: fnd_message.set_name ('PROC_NAME', l_api_name);
5029: FND_MSG_PUB.Add;
5030: END IF;
5031:
5032: FND_MSG_PUB.Count_And_Get
5033: ( p_count => x_msg_count,
5028: fnd_message.set_name ('PROC_NAME', l_api_name);
5029: FND_MSG_PUB.Add;
5030: END IF;
5031:
5032: FND_MSG_PUB.Count_And_Get
5033: ( p_count => x_msg_count,
5034: p_data => x_msg_data
5035: );
5036:
5046: WHEN FND_API.G_EXC_ERROR THEN
5047: --dbms_output.put_line('Transfer_Resource_Territories: FND_API.G_EXC_ERROR');
5048: ROLLBACK TO TRANSFER_TERR_RES;
5049: x_return_status := FND_API.G_RET_STS_ERROR ;
5050: FND_MSG_PUB.Count_And_Get
5051: ( p_count => x_msg_count,
5052: p_data => x_msg_data
5053: );
5054:
5055: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5056: --dbms_output.put_line('Transfer_Resource_Territories: FND_API.G_EXC_UNEXPECTED_ERROR');
5057: ROLLBACK TO TRANSFER_TERR_RES;
5058: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5059: FND_MSG_PUB.Count_And_Get
5060: ( p_count => x_msg_count,
5061: p_data => x_msg_data
5062: );
5063:
5064: WHEN OTHERS THEN
5065: --dbms_output.put_line('Transfer_Resource_Territories PVT: OTHERS - ' || SQLERRM);
5066: ROLLBACK TO TRANSFER_TERR_RES;
5067: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5068: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
5069: THEN
5070: fnd_msg_pub.add_exc_msg (
5071: g_pkg_name,
5072: 'Error inside Transfer_Resource_Territories ' || sqlerrm);
5066: ROLLBACK TO TRANSFER_TERR_RES;
5067: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5068: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
5069: THEN
5070: fnd_msg_pub.add_exc_msg (
5071: g_pkg_name,
5072: 'Error inside Transfer_Resource_Territories ' || sqlerrm);
5073: END IF;
5074: