313: p_profile_attrib_rec IN JTF_PERZ_PROFILE_PUB.PROFILE_OUT_REC_TYPE,
314: p_cur_profile IN NUMBER ) IS
315: BEGIN
316:
317: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
318: THEN
319: -- dbms_output.put_line('JTF_PERZ_PROFILE_PVT Define columns');
320: null;
321: END IF;
364:
365: -- Bind variables
366: -- Only those that are not NULL
367:
368: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
369: THEN
370: --dbms_output.put_line('JTF_PERZ_PROFILE_PVT Bind variables');
371: null;
372: END IF;
415: ) IS
416:
417: BEGIN
418:
419: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
420: THEN
421: --dbms_output.put_line('JTF_PERZ_PROFILE_PVT Generate Where');
422: null;
423: END IF;
498: PROCEDURE Gen_Select_Profile( x_select_cl OUT NOCOPY /* file.sql.39 change */ VARCHAR2 ) IS
499:
500: BEGIN
501:
502: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
503: THEN
504: --dbms_output.put_line('JTF_PERZ_PVT GENERATE SELECT');
505: null;
506: END IF;
583: */
584: -- Initialize message list if p_init_msg_list is set to TRUE.
585: IF FND_API.to_Boolean( p_init_msg_list )
586: THEN
587: FND_MSG_PUB.initialize;
588: END IF;
589:
590: -- Initialize API return status to success
591: x_return_status := FND_API.G_RET_STS_SUCCESS;
668: COMMIT WORK;
669: END IF;
670:
671: -- Standard call to get message count and if count is 1, get message info.
672: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
673: p_data => x_msg_data );
674:
675: EXCEPTION
676:
679:
680: ROLLBACK TO CREATE_PERZ_PROFILE_PVT;
681: x_return_status := FND_API.G_RET_STS_ERROR ;
682:
683: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
684: p_data => x_msg_data );
685:
686: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
687: -- dbms_output.put_line('stop 2 ');
687: -- dbms_output.put_line('stop 2 ');
688: ROLLBACK TO CREATE_PERZ_PROFILE_PVT;
689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
690:
691: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
692: p_data => x_msg_data );
693:
694: WHEN OTHERS THEN
695: -- dbms_output.put_line('stop 3 ');
695: -- dbms_output.put_line('stop 3 ');
696: ROLLBACK TO CREATE_PERZ_PROFILE_PVT;
697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
698:
699: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
700: THEN
701: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
702: END IF;
703:
697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
698:
699: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
700: THEN
701: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
702: END IF;
703:
704: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
705: p_data => x_msg_data );
700: THEN
701: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
702: END IF;
703:
704: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
705: p_data => x_msg_data );
706:
707: END Create_Profile;
708:
821:
822: -- Initialize message list if p_init_msg_list is set to TRUE.
823: IF FND_API.to_Boolean( p_init_msg_list )
824: THEN
825: FND_MSG_PUB.initialize;
826: END IF;
827:
828: -- Initialize API return status to success
829: l_return_status := FND_API.G_RET_STS_SUCCESS;
942:
943:
944: -- Success Message
945:
946: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
947: THEN
948: FND_MESSAGE.Set_Name('AS', 'API_SUCCESS');
949: FND_MESSAGE.Set_Token('ROW', 'personalize', TRUE);
950: FND_MSG_PUB.Add;
946: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
947: THEN
948: FND_MESSAGE.Set_Name('AS', 'API_SUCCESS');
949: FND_MESSAGE.Set_Token('ROW', 'personalize', TRUE);
950: FND_MSG_PUB.Add;
951: END IF;
952:
953: -- Debug Message
954: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
950: FND_MSG_PUB.Add;
951: END IF;
952:
953: -- Debug Message
954: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW)
955: THEN
956: --dbms_output.put_line('personalize');
957: null;
958: END IF;
957: null;
958: END IF;
959:
960: -- Standard call to get message count and if count is 1, get message info.
961: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
962: p_data => x_msg_data );
963:
964: EXCEPTION
965:
968:
969: --ROLLBACK TO CREATE_PERZ_PROFILE_PVT;
970: x_return_status := FND_API.G_RET_STS_ERROR ;
971:
972: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
973: p_data => x_msg_data );
974:
975: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
976: --dbms_output.put_line('stop 2 ');
976: --dbms_output.put_line('stop 2 ');
977: -- ROLLBACK TO CREATE_PERZ_PROFILE_PVT;
978: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
979:
980: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
981: p_data => x_msg_data );
982:
983: WHEN OTHERS THEN
984: --dbms_output.put_line('stop 3 ');
984: --dbms_output.put_line('stop 3 ');
985: --ROLLBACK TO CREATE_PERZ_PROFILE_PVT;
986: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
987:
988: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
989: THEN
990: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
991: END IF;
992:
986: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
987:
988: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
989: THEN
990: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
991: END IF;
992:
993: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
994: p_data => x_msg_data );
989: THEN
990: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
991: END IF;
992:
993: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
994: p_data => x_msg_data );
995:
996:
997: END Get_Profile;
1057: */
1058: -- Initialize message list if p_init_msg_list is set to TRUE.
1059: IF FND_API.to_Boolean( p_init_msg_list )
1060: THEN
1061: FND_MSG_PUB.initialize;
1062: END IF;
1063:
1064: -- Initialize API return status to success
1065: x_return_status := FND_API.G_RET_STS_SUCCESS;
1192: COMMIT WORK;
1193: END IF;
1194:
1195: -- Standard call to get message count and if count is 1, get message info.
1196: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
1197: p_data => x_msg_data );
1198:
1199: EXCEPTION
1200:
1201: WHEN FND_API.G_EXC_ERROR THEN
1202: ROLLBACK TO UPDATE_PERZ_PROFILE_PVT;
1203: x_return_status := FND_API.G_RET_STS_ERROR ;
1204:
1205: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
1206: p_data => x_msg_data );
1207:
1208: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1209: ROLLBACK TO UPDATE_PERZ_PROFILE_PVT;
1208: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1209: ROLLBACK TO UPDATE_PERZ_PROFILE_PVT;
1210: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1211:
1212: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
1213: p_data => x_msg_data );
1214:
1215: WHEN OTHERS THEN
1216: ROLLBACK TO UPDATE_PERZ_PROFILE_PVT;
1214:
1215: WHEN OTHERS THEN
1216: ROLLBACK TO UPDATE_PERZ_PROFILE_PVT;
1217: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1218: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1219: THEN
1220: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1221: END IF;
1222:
1216: ROLLBACK TO UPDATE_PERZ_PROFILE_PVT;
1217: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1218: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1219: THEN
1220: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1221: END IF;
1222:
1223: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
1224: p_data => x_msg_data );
1219: THEN
1220: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
1221: END IF;
1222:
1223: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count,
1224: p_data => x_msg_data );
1225:
1226: END Update_Profile;
1227: -- ****************************************************************************