629:
630:
631: Exception
632: WHEN FA_NO_MERGED_CHILDREN then
633: FND_MESSAGE.Set_Name('OFA', 'FA_NO_MERGED_CHILDREN');
634: APP_EXCEPTION.Raise_Exception;
635:
636: WHEN NO_DATA_FOUND Then
637: FND_Message.Set_Name('OFA', 'FA_SQL_ERROR') ;
633: FND_MESSAGE.Set_Name('OFA', 'FA_NO_MERGED_CHILDREN');
634: APP_EXCEPTION.Raise_Exception;
635:
636: WHEN NO_DATA_FOUND Then
637: FND_Message.Set_Name('OFA', 'FA_SQL_ERROR') ;
638: FND_Message.Set_Token('PROCEDURE_NAME', 'SPLIT_MASS_ADDITIONS');
639: APP_EXCEPTION.Raise_Exception;
640:
641: WHEN OTHERS Then
634: APP_EXCEPTION.Raise_Exception;
635:
636: WHEN NO_DATA_FOUND Then
637: FND_Message.Set_Name('OFA', 'FA_SQL_ERROR') ;
638: FND_Message.Set_Token('PROCEDURE_NAME', 'SPLIT_MASS_ADDITIONS');
639: APP_EXCEPTION.Raise_Exception;
640:
641: WHEN OTHERS Then
642: --Message_number := SQlCODE;
905: end loop;
906:
907: Exception
908: When No_Data_Found then
909: FND_Message.Set_Name('OFA', 'FA_SQL_ERROR') ;
910: FND_Message.Set_Token('PROCEDURE_NAME', 'Insert_Row');
911: APP_EXCEPTION.Raise_Exception;
912:
913: End Insert_Split_Child;
906:
907: Exception
908: When No_Data_Found then
909: FND_Message.Set_Name('OFA', 'FA_SQL_ERROR') ;
910: FND_Message.Set_Token('PROCEDURE_NAME', 'Insert_Row');
911: APP_EXCEPTION.Raise_Exception;
912:
913: End Insert_Split_Child;
914:
923: h_units Number Default 0;
924:
925: Begin
926: -- Check if ay of the child records have been posted
927: --FND_Message.Set_Name('OFA', 'FA_MASSADD_POSTED_CHILD') ;
928: -- FND_Message.Error;
929: -- APP_EXCEPTION.Raise_Exception;
930: Select Count(*) Into Child_records_Num
931: From Fa_Mass_Additions
924:
925: Begin
926: -- Check if ay of the child records have been posted
927: --FND_Message.Set_Name('OFA', 'FA_MASSADD_POSTED_CHILD') ;
928: -- FND_Message.Error;
929: -- APP_EXCEPTION.Raise_Exception;
930: Select Count(*) Into Child_records_Num
931: From Fa_Mass_Additions
932: Where POSTING_STATUS = 'POSTED'
1005: commit;
1006:
1007: Exception
1008: When FA_MASSADD_POSTED_CHILD Then
1009: FND_Message.Set_Name('OFA', 'FA_MASSADD_POSTED_CHILD') ;
1010: -- FND_Message.Error;
1011: APP_EXCEPTION.Raise_Exception;
1012:
1013: When NO_DATA_FOUND then
1006:
1007: Exception
1008: When FA_MASSADD_POSTED_CHILD Then
1009: FND_Message.Set_Name('OFA', 'FA_MASSADD_POSTED_CHILD') ;
1010: -- FND_Message.Error;
1011: APP_EXCEPTION.Raise_Exception;
1012:
1013: When NO_DATA_FOUND then
1014: APP_EXCEPTION.Raise_Exception;
1012:
1013: When NO_DATA_FOUND then
1014: APP_EXCEPTION.Raise_Exception;
1015: When Others then
1016: -- Fnd_Message.Error;
1017: APP_EXCEPTION.Raise_Exception;
1018:
1019:
1020: