DBA Data[Home] [Help]

APPS.CSD_REFURBISH_IRO_GRP dependencies on FND_API

Line 96: Raise FND_API.G_EXC_ERROR ;

92: Fnd_Msg_Pub.Add;
93: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
94: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module , ' Party site id not found for customer acct site use id ' || p_cust_site_use_id );
95: End If;
96: Raise FND_API.G_EXC_ERROR ;
97: End;
98: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
99: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module , ' Party site id found for customer acct site use id ' || p_cust_site_use_id );
100: End If;

Line 126: Raise FND_API.G_EXC_ERROR ;

122: Fnd_Msg_Pub.Add;
123: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
124: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module , ' Party id is not found for party site id ' || x_party_site_id );
125: End If;
126: Raise FND_API.G_EXC_ERROR ;
127: When Too_Many_Rows Then
128: Fnd_Message.Set_Name('CSD','CSD_TOO_MANY_PARTY_LOCATIONS');
129: Fnd_Message.Set_Token('PARTY_SITE_ID',l_Party_Site_Id);
130: Fnd_Message.Set_Token('SITE_USE_TYPE',p_Site_Use_Type);

Line 135: Raise Fnd_Api.G_Exc_Error ;

131: Fnd_Msg_Pub.Add;
132: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
133: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module , ' Too many Party site use id are found for party site id ' || x_party_site_id );
134: End If;
135: Raise Fnd_Api.G_Exc_Error ;
136: End;
137: End If;
138: If Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level Then
139: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module || 'End','End of procedure : Get_PartySiteID was successful ');

Line 142: When Fnd_Api.G_Exc_Error Then

138: If Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level Then
139: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module || 'End','End of procedure : Get_PartySiteID was successful ');
140: End If;
141: Exception
142: When Fnd_Api.G_Exc_Error Then
143: x_return_status := Fnd_Api.G_Ret_Sts_Error ;
144:
145: --- Standard call to get message count and if count is greater then 1, get message info
146: FND_MSG_PUB.Count_And_Get

Line 143: x_return_status := Fnd_Api.G_Ret_Sts_Error ;

139: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module || 'End','End of procedure : Get_PartySiteID was successful ');
140: End If;
141: Exception
142: When Fnd_Api.G_Exc_Error Then
143: x_return_status := Fnd_Api.G_Ret_Sts_Error ;
144:
145: --- Standard call to get message count and if count is greater then 1, get message info
146: FND_MSG_PUB.Count_And_Get
147: (p_count => x_msg_count,

Line 150: x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error ;

146: FND_MSG_PUB.Count_And_Get
147: (p_count => x_msg_count,
148: p_data => x_msg_data );
149: When Others Then
150: x_return_status := Fnd_Api.G_Ret_Sts_Unexp_Error ;
151: If Fnd_Log.Level_Exception >= Fnd_Log.G_Current_Runtime_Level Then
152: Fnd_Log.String(Fnd_Log.Level_Exception,C_Module , x_msg_data );
153: End If;
154: IF FND_MSG_PUB.Check_Msg_Level

Line 473: If Not FND_API.Compatible_API_Call (c_api_version,

469: -- Standard Start of API savepoint
470: Savepoint Create_InternalRO;
471:
472: -- Standard call to check for call compatibility.
473: If Not FND_API.Compatible_API_Call (c_api_version,
474: p_api_version, c_api_name , G_PKG_NAME )
475: Then
476: IF Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level Then
477: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module||'.API_Version_Validation','API Version incompatibility');

Line 479: Raise Fnd_Api.G_Exc_Unexpected_Error;

475: Then
476: IF Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level Then
477: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module||'.API_Version_Validation','API Version incompatibility');
478: End If;
479: Raise Fnd_Api.G_Exc_Unexpected_Error;
480: End If;
481:
482: -- Initialize message list if p_init_msg_list is set to TRUE.
483: If Fnd_Api.to_Boolean( p_init_msg_list ) Then

Line 483: If Fnd_Api.to_Boolean( p_init_msg_list ) Then

479: Raise Fnd_Api.G_Exc_Unexpected_Error;
480: End If;
481:
482: -- Initialize message list if p_init_msg_list is set to TRUE.
483: If Fnd_Api.to_Boolean( p_init_msg_list ) Then
484: Fnd_Msg_Pub.initialize;
485: End If;
486:
487: -- Initialize API return status to success

Line 488: x_return_status := Fnd_Api.G_Ret_Sts_Success;

484: Fnd_Msg_Pub.initialize;
485: End If;
486:
487: -- Initialize API return status to success
488: x_return_status := Fnd_Api.G_Ret_Sts_Success;
489:
490: --- Check if required input parameters are NULL
491: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
492: FND_LOG.STRING(Fnd_Log.Level_Statement,C_Module || '.In_Parameter_Validation',

Line 551: x_return_status := FND_API.G_RET_STS_ERROR ;

547: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module || '.Val_IR1_and_IR2_are_same',
548: 'Input parameters Req_Header_Id_In and Req_Header_Id_Out has same value');
549: End If;
550: --- Message will say: Input parameter 'Requisition Header ID's p_req_header_Id_In are same for in and out requistion records';
551: x_return_status := FND_API.G_RET_STS_ERROR ;
552: Raise FND_API.G_EXC_ERROR ;
553: End IF;
554: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
555: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.Val_IO1_and_IO2_are_same',

Line 552: Raise FND_API.G_EXC_ERROR ;

548: 'Input parameters Req_Header_Id_In and Req_Header_Id_Out has same value');
549: End If;
550: --- Message will say: Input parameter 'Requisition Header ID's p_req_header_Id_In are same for in and out requistion records';
551: x_return_status := FND_API.G_RET_STS_ERROR ;
552: Raise FND_API.G_EXC_ERROR ;
553: End IF;
554: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
555: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.Val_IO1_and_IO2_are_same',
556: 'Checking if parameters ISO_Header_Id_In and ISO_Header_Id_Out has same value');

Line 568: x_return_status := FND_API.G_RET_STS_ERROR ;

564: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module || '.Val_IO1_and_IO2_are_same',
565: 'Input parameters ISO_Header_Id_In and ISO_Header_Id_Out has same value');
566: End If;
567: --- Message will say: Input parameter 'Internal Sales Order Header ID's p_Order_header_Id_In are same for in and out internal SO records';
568: x_return_status := FND_API.G_RET_STS_ERROR ;
569: Raise FND_API.G_EXC_ERROR ;
570: End If ;
571: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
572: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.SR_Record_Default_values',

Line 569: Raise FND_API.G_EXC_ERROR ;

565: 'Input parameters ISO_Header_Id_In and ISO_Header_Id_Out has same value');
566: End If;
567: --- Message will say: Input parameter 'Internal Sales Order Header ID's p_Order_header_Id_In are same for in and out internal SO records';
568: x_return_status := FND_API.G_RET_STS_ERROR ;
569: Raise FND_API.G_EXC_ERROR ;
570: End If ;
571: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
572: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.SR_Record_Default_values',
573: 'Getting default values for SR record from profile options');

Line 585: x_return_status := FND_API.G_RET_STS_ERROR ;

581: If Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level Then
582: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module || '.SR_Type_Validation','SR Type is Null') ;
583: End If;
584: --- Message will say: 'SR Type, required column for SR record Type is null';
585: x_return_status := FND_API.G_RET_STS_ERROR ;
586: Raise FND_API.G_EXC_ERROR ;
587: Else
588: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
589: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.SR_Type_Validation','SR TYpe id is :' || l_Inc_Type_Id ) ;

Line 586: Raise FND_API.G_EXC_ERROR ;

582: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module || '.SR_Type_Validation','SR Type is Null') ;
583: End If;
584: --- Message will say: 'SR Type, required column for SR record Type is null';
585: x_return_status := FND_API.G_RET_STS_ERROR ;
586: Raise FND_API.G_EXC_ERROR ;
587: Else
588: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
589: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.SR_Type_Validation','SR TYpe id is :' || l_Inc_Type_Id ) ;
590: End If;

Line 603: x_return_status := FND_API.G_RET_STS_ERROR ;

599: If Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level Then
600: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module || '.SR_Severity_Validation','SR Severity is null' ) ;
601: End If;
602: --- Message will say: 'SR Severity, required column for SR record Type is null';
603: x_return_status := FND_API.G_RET_STS_ERROR ;
604: Raise FND_API.G_EXC_ERROR ;
605: Else
606: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
607: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.SR_Serverity_Validation',

Line 604: Raise FND_API.G_EXC_ERROR ;

600: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module || '.SR_Severity_Validation','SR Severity is null' ) ;
601: End If;
602: --- Message will say: 'SR Severity, required column for SR record Type is null';
603: x_return_status := FND_API.G_RET_STS_ERROR ;
604: Raise FND_API.G_EXC_ERROR ;
605: Else
606: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
607: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.SR_Serverity_Validation',
608: 'SR Severity id is :' || l_Inc_Severity_Id ) ;

Line 637: x_return_status := FND_API.G_RET_STS_ERROR ;

633: If Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level Then
634: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module || '.Repair_Type_Validation','Repair Type is Null' ) ;
635: End If;
636: -- Message will say: 'Repair Type, required column for SR record Type is null';
637: x_return_status := FND_API.G_RET_STS_ERROR ;
638: Raise FND_API.G_EXC_ERROR ;
639: Else
640: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
641: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.Repair_Type_Validation','Repair TYpe is :' ||

Line 638: Raise FND_API.G_EXC_ERROR ;

634: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module || '.Repair_Type_Validation','Repair Type is Null' ) ;
635: End If;
636: -- Message will say: 'Repair Type, required column for SR record Type is null';
637: x_return_status := FND_API.G_RET_STS_ERROR ;
638: Raise FND_API.G_EXC_ERROR ;
639: Else
640: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
641: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.Repair_Type_Validation','Repair TYpe is :' ||
642: l_Repair_Type_Id ) ;

Line 674: x_return_status := FND_API.G_RET_STS_ERROR ;

670: If Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level Then
671: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module || '.SR_Status_Validation','SR Status is NULL' ) ;
672: End If;
673: --- Message will say: 'SR Status, required column for SR record Type is null';
674: x_return_status := FND_API.G_RET_STS_ERROR ;
675: Raise FND_API.G_EXC_ERROR ;
676: Else
677: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
678: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.SR_Status_Validation','SR Status was found' ) ;

Line 675: Raise FND_API.G_EXC_ERROR ;

671: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module || '.SR_Status_Validation','SR Status is NULL' ) ;
672: End If;
673: --- Message will say: 'SR Status, required column for SR record Type is null';
674: x_return_status := FND_API.G_RET_STS_ERROR ;
675: Raise FND_API.G_EXC_ERROR ;
676: Else
677: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
678: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.SR_Status_Validation','SR Status was found' ) ;
679: End If;

Line 682: If x_return_status = FND_API.G_RET_STS_ERROR Then

678: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.SR_Status_Validation','SR Status was found' ) ;
679: End If;
680: End If;
681: --- If Return status is error then raise exception and stop processing.
682: If x_return_status = FND_API.G_RET_STS_ERROR Then
683: If Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level Then
684: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module || '.Repair_Status_Validation',
685: 'Return Status is :' || x_return_status );
686: End If;

Line 687: Raise FND_API.G_EXC_ERROR ;

683: If Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level Then
684: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module || '.Repair_Status_Validation',
685: 'Return Status is :' || x_return_status );
686: End If;
687: Raise FND_API.G_EXC_ERROR ;
688: End If;
689: Begin
690: Select repair_mode,Name
691: into l_repair_mode,l_Repair_Type_Name

Line 702: X_Return_Status := Fnd_API.G_Ret_Sts_Error ;

698: Fnd_Msg_Pub.Add;
699: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
700: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.Repair_Type_Validation','Repair Mode is Null for repair type :' || l_Repair_Type_Name);
701: End If;
702: X_Return_Status := Fnd_API.G_Ret_Sts_Error ;
703: Raise FND_API.G_EXC_ERROR ;
704: End If;
705: Exception
706: When No_Data_FOund Then

Line 703: Raise FND_API.G_EXC_ERROR ;

699: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
700: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.Repair_Type_Validation','Repair Mode is Null for repair type :' || l_Repair_Type_Name);
701: End If;
702: X_Return_Status := Fnd_API.G_Ret_Sts_Error ;
703: Raise FND_API.G_EXC_ERROR ;
704: End If;
705: Exception
706: When No_Data_FOund Then
707: Fnd_Message.Set_Name('CSD','CSD_INVALID_REPAIR_TYPE');

Line 712: X_Return_Status := Fnd_API.G_Ret_Sts_Error ;

708: Fnd_Msg_Pub.Add;
709: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
710: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.Repair_Type_Validation','Repair Type Id is invalid');
711: End If;
712: X_Return_Status := Fnd_API.G_Ret_Sts_Error ;
713: Raise FND_API.G_EXC_ERROR ;
714: End ;
715: If Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level Then
716: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module || '.Repair_Mode_Value',

Line 713: Raise FND_API.G_EXC_ERROR ;

709: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
710: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.Repair_Type_Validation','Repair Type Id is invalid');
711: End If;
712: X_Return_Status := Fnd_API.G_Ret_Sts_Error ;
713: Raise FND_API.G_EXC_ERROR ;
714: End ;
715: If Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level Then
716: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module || '.Repair_Mode_Value',
717: 'Return Mode is :' || l_repair_mode );

Line 732: Raise FND_API.G_EXC_ERROR ;

728: If Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level Then
729: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module || '.Records_Validation','no records are found for move in') ;
730: End If;
731: Close Get_SRandRO_from_IRandISO_In ;
732: Raise FND_API.G_EXC_ERROR ;
733: Elsif Get_SRandRO_from_IRandISO_In%ROWCOUNT > 1 Then
734: --- Check if more then one records(IO1/IR1) are found in the cursor result set
735: --- if so stop processing and raise error
736: --- Raise Exception and stop processing

Line 744: Raise FND_API.G_EXC_ERROR ;

740: Fnd_Msg_Pub.Add;
741: If Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level Then
742: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module || '.Records_Validation','too many move in records are found' ) ;
743: End If;
744: Raise FND_API.G_EXC_ERROR ;
745: End If;
746: -- Get SR Work Summary information from message dictionary
747: Fnd_Message.Set_Name('CSD','CSD_SR_WORK_SUMMARY');
748: Fnd_Message.Set_Token('PRODUCT', l_IRandISO_In_Rec.Concatenated_Segments || ' ');

Line 772: Raise FND_API.G_EXC_ERROR ;

768: If Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level Then
769: Fnd_Log.String(Fnd_Log.Level_Procedure, C_Module || '.Records_Validation','No move out records are found' ) ;
770: End If;
771: Close Get_PrdTxn_from_IRandISO_Out ;
772: Raise FND_API.G_EXC_ERROR ;
773: Elsif Get_PrdTxn_from_IRandISO_Out%ROWCOUNT > 1 Then
774: --- Check if more then one records(IO2/IR2) are found in the cursor result set
775: --- if so stop processing and raise error
776: --- Raise Exception and stop processing

Line 784: Raise FND_API.G_EXC_ERROR ;

780: Fnd_Msg_Pub.Add;
781: If Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level Then
782: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module || '.Records_Validation','Too many move out records are found' ) ;
783: End If;
784: Raise FND_API.G_EXC_ERROR ;
785: End If;
786: -- Check if Move_Out item is serial controlled or not
787: If l_IRandISO_Out_Rec.Serial_Number_Control_code = 1 Then
788: l_IS_Move_Out_Item_Serialized := 'N';

Line 806: Raise FND_API.G_EXC_ERROR ;

802: Fnd_Msg_Pub.Add;
803: If Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level Then
804: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module || '.Serial_Control_Validation','Serial number attributes are different for items on IO1 and IO2 lines' ) ;
805: End If;
806: Raise FND_API.G_EXC_ERROR ;
807: End If;
808: --Get the bill to site use Id
809: -- Changed from In To Out since SR should be created for IO2 not for IO1
810: Get_PartySiteId (

Line 820: If Not(l_return_status = FND_API.G_RET_STS_SUCCESS) Then

816: x_return_status => l_return_status ,
817: x_msg_count => l_msg_count,
818: x_msg_data => l_msg_data);
819:
820: If Not(l_return_status = FND_API.G_RET_STS_SUCCESS) Then
821: If Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level Then
822: Fnd_Log.String(Fnd_Log.Level_Error,C_Module || '.Records_Validation',
823: 'Error while calling procedure : Get_PartySIteId for site use type Bill To');
824: End If;

Line 826: Raise FND_API.G_EXC_ERROR;

822: Fnd_Log.String(Fnd_Log.Level_Error,C_Module || '.Records_Validation',
823: 'Error while calling procedure : Get_PartySIteId for site use type Bill To');
824: End If;
825: -- Raise Exception and stop processing
826: Raise FND_API.G_EXC_ERROR;
827: Else
828: Null;
829: End If;
830:

Line 843: If Not(x_return_status = FND_API.G_RET_STS_SUCCESS) Then

839: x_party_site_use_id => l_ship_to_party_site_use_id,
840: x_party_id => l_ship_to_party_id ,
841: x_party_site_id => l_ship_to_party_site_id );
842:
843: If Not(x_return_status = FND_API.G_RET_STS_SUCCESS) Then
844: If Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level Then
845: Fnd_Log.String(Fnd_Log.Level_Error,C_Module || '.Records_Validation',
846: 'Error while calling procedure : Get_PartySIteId for site use type Ship To');
847: End If;

Line 849: Raise FND_API.G_EXC_ERROR;

845: Fnd_Log.String(Fnd_Log.Level_Error,C_Module || '.Records_Validation',
846: 'Error while calling procedure : Get_PartySIteId for site use type Ship To');
847: End If;
848: -- Raise Exception and stop processing
849: Raise FND_API.G_EXC_ERROR;
850: Else
851: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
852: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.Records_Validation',
853: 'Error while calling procedure : Get_PartySIteId for site use type Ship To');

Line 889: p_init_msg_list => FND_API.G_TRUE,

885: -- Not creating contact for SR as it is optional
886: -- Call to Service Request API
887: CS_SERVICEREQUEST_PUB.Create_ServiceRequest(
888: p_api_version => 3.0,
889: p_init_msg_list => FND_API.G_TRUE,
890: p_commit => FND_API.G_FALSE,
891: x_return_status => l_return_status,
892: x_msg_count => l_msg_count,
893: x_msg_data => l_msg_data,

Line 890: p_commit => FND_API.G_FALSE,

886: -- Call to Service Request API
887: CS_SERVICEREQUEST_PUB.Create_ServiceRequest(
888: p_api_version => 3.0,
889: p_init_msg_list => FND_API.G_TRUE,
890: p_commit => FND_API.G_FALSE,
891: x_return_status => l_return_status,
892: x_msg_count => l_msg_count,
893: x_msg_data => l_msg_data,
894: p_resp_appl_id => NULL,

Line 914: If Not(x_return_status = FND_API.G_RET_STS_SUCCESS) Then

910: x_group_owner => l_group_owner,
911: x_individual_type => l_individual_type );
912:
913: x_Return_Status := l_Return_Status ;
914: If Not(x_return_status = FND_API.G_RET_STS_SUCCESS) Then
915: If Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level Then
916: Fnd_Log.String(Fnd_Log.Level_Error,C_Module || '.Create_ServiceRequest',
917: 'Error : While calling procedure CS_SERVICEREQUEST_PUB.Create_ServiceRequest');
918: End If;

Line 919: Raise FND_API.G_EXC_ERROR ;

915: If Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level Then
916: Fnd_Log.String(Fnd_Log.Level_Error,C_Module || '.Create_ServiceRequest',
917: 'Error : While calling procedure CS_SERVICEREQUEST_PUB.Create_ServiceRequest');
918: End If;
919: Raise FND_API.G_EXC_ERROR ;
920: Else
921: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
922: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.Create_ServiceRequest',
923: 'Sucsess : While calling procedure CS_SERVICEREQUEST_PUB.Create_ServiceRequest');

Line 996: P_Init_Msg_List => FND_API.G_FALSE,

992: Close get_req_org_id;
993:
994: csd_repairs_pvt.Create_Repair_Order(
995: P_Api_Version_Number => 1.0 ,
996: P_Init_Msg_List => FND_API.G_FALSE,
997: P_Commit => FND_API.G_FALSE,
998: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
999: p_REPAIR_LINE_ID => NULL,
1000: P_REPLN_Rec => l_Rep_Line_Rec ,

Line 997: P_Commit => FND_API.G_FALSE,

993:
994: csd_repairs_pvt.Create_Repair_Order(
995: P_Api_Version_Number => 1.0 ,
996: P_Init_Msg_List => FND_API.G_FALSE,
997: P_Commit => FND_API.G_FALSE,
998: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
999: p_REPAIR_LINE_ID => NULL,
1000: P_REPLN_Rec => l_Rep_Line_Rec ,
1001: X_REPAIR_LINE_ID => l_Repair_Line_Id,

Line 998: p_validation_level => FND_API.G_VALID_LEVEL_FULL,

994: csd_repairs_pvt.Create_Repair_Order(
995: P_Api_Version_Number => 1.0 ,
996: P_Init_Msg_List => FND_API.G_FALSE,
997: P_Commit => FND_API.G_FALSE,
998: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
999: p_REPAIR_LINE_ID => NULL,
1000: P_REPLN_Rec => l_Rep_Line_Rec ,
1001: X_REPAIR_LINE_ID => l_Repair_Line_Id,
1002: X_REPAIR_NUMBER => l_Repair_Number,

Line 1006: If l_Return_Status <> FND_API.G_RET_STS_SUCCESS Then

1002: X_REPAIR_NUMBER => l_Repair_Number,
1003: X_Return_Status => l_Return_Status,
1004: X_Msg_Count => l_Msg_Count,
1005: X_Msg_Data => l_Msg_Data ) ;
1006: If l_Return_Status <> FND_API.G_RET_STS_SUCCESS Then
1007: If Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level Then
1008: Fnd_Log.String(Fnd_Log.Level_Error,C_Module || '.Create_Repair_Order',
1009: 'Error : While calling procedure CS_SERVICEREQUEST_PUB.Create_Repair_Order');
1010: End If;

Line 1011: Raise FND_API.G_EXC_ERROR ;

1007: If Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level Then
1008: Fnd_Log.String(Fnd_Log.Level_Error,C_Module || '.Create_Repair_Order',
1009: 'Error : While calling procedure CS_SERVICEREQUEST_PUB.Create_Repair_Order');
1010: End If;
1011: Raise FND_API.G_EXC_ERROR ;
1012: Else
1013: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
1014: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.Create_Repair_Order',
1015: 'Success : While calling procedure CS_SERVICEREQUEST_PUB.Create_Repair_Order');

Line 1078: If l_Return_Status <> FND_API.G_RET_STS_SUCCESS Then

1074: P_UNIT_NUMBER => Null);
1075: -- Add for R12 pickrule id change.Vijay.
1076:
1077: -- Following code will not be raised but once I move above code to pvt file then this check will be required
1078: If l_Return_Status <> FND_API.G_RET_STS_SUCCESS Then
1079: If Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level Then
1080: Fnd_Log.String(Fnd_Log.Level_Error,C_Module || 'Create_InternalRO.Insert_Row',
1081: 'Error : While calling procedure csd_product_transactions_pkg.Insert_Row for Defectives');
1082: End If;

Line 1083: Raise FND_API.G_EXC_ERROR ;

1079: If Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level Then
1080: Fnd_Log.String(Fnd_Log.Level_Error,C_Module || 'Create_InternalRO.Insert_Row',
1081: 'Error : While calling procedure csd_product_transactions_pkg.Insert_Row for Defectives');
1082: End If;
1083: Raise FND_API.G_EXC_ERROR ;
1084: Else
1085: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
1086: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || 'Create_InternalRO.Insert_Row',
1087: 'Success : While calling procedure csd_product_transactions_pkg.Insert_Row for Defectives');

Line 1148: If l_Return_Status <> FND_API.G_RET_STS_SUCCESS Then

1144: P_TASK_ID => Null,
1145: P_UNIT_NUMBER => Null);
1146: -- Add for R12 pickrule id change.Vijay.
1147:
1148: If l_Return_Status <> FND_API.G_RET_STS_SUCCESS Then
1149: If Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level Then
1150: Fnd_Log.String(Fnd_Log.Level_Error,C_Module || 'csd_product_transactions_pkg.Insert_Row',
1151: 'Error : While calling procedure csd_product_transactions_pkg.Insert_Row for Defectives');
1152: End If;

Line 1153: Raise FND_API.G_EXC_ERROR ;

1149: If Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level Then
1150: Fnd_Log.String(Fnd_Log.Level_Error,C_Module || 'csd_product_transactions_pkg.Insert_Row',
1151: 'Error : While calling procedure csd_product_transactions_pkg.Insert_Row for Defectives');
1152: End If;
1153: Raise FND_API.G_EXC_ERROR ;
1154: Else
1155: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
1156: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || 'Create_InternalRO.Insert_Row',
1157: 'Success : While calling procedure csd_product_transactions_pkg.Insert_Row for Usables');

Line 1175: P_Init_Msg_List => Fnd_Api.G_False,

1171:
1172: ---Create Repair Order
1173: csd_repairs_pvt.Create_Repair_Order(
1174: P_Api_Version_Number => 1.0 ,
1175: P_Init_Msg_List => Fnd_Api.G_False,
1176: P_Commit => Fnd_Api.G_False,
1177: p_validation_level => Fnd_Api.G_Valid_Level_Full,
1178: p_Repair_Line_ID => NULL,
1179: P_Repln_Rec => l_Rep_Line_Rec ,

Line 1176: P_Commit => Fnd_Api.G_False,

1172: ---Create Repair Order
1173: csd_repairs_pvt.Create_Repair_Order(
1174: P_Api_Version_Number => 1.0 ,
1175: P_Init_Msg_List => Fnd_Api.G_False,
1176: P_Commit => Fnd_Api.G_False,
1177: p_validation_level => Fnd_Api.G_Valid_Level_Full,
1178: p_Repair_Line_ID => NULL,
1179: P_Repln_Rec => l_Rep_Line_Rec ,
1180: X_Repair_Line_ID => l_Repair_Line_Id,

Line 1177: p_validation_level => Fnd_Api.G_Valid_Level_Full,

1173: csd_repairs_pvt.Create_Repair_Order(
1174: P_Api_Version_Number => 1.0 ,
1175: P_Init_Msg_List => Fnd_Api.G_False,
1176: P_Commit => Fnd_Api.G_False,
1177: p_validation_level => Fnd_Api.G_Valid_Level_Full,
1178: p_Repair_Line_ID => NULL,
1179: P_Repln_Rec => l_Rep_Line_Rec ,
1180: X_Repair_Line_ID => l_Repair_Line_Id,
1181: X_Repair_Number => l_Repair_Number,

Line 1185: If l_Return_Status <> FND_API.G_RET_STS_SUCCESS Then

1181: X_Repair_Number => l_Repair_Number,
1182: X_Return_Status => l_Return_Status,
1183: X_Msg_Count => l_Msg_Count,
1184: X_Msg_Data => l_Msg_Data ) ;
1185: If l_Return_Status <> FND_API.G_RET_STS_SUCCESS Then
1186: If Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level Then
1187: Fnd_Log.String(Fnd_Log.Level_Error,C_Module || 'Create_Repair_Order',
1188: 'Error : While calling procedure csd_repairs_pvt.Create_Repair_Order ');
1189: End If;

Line 1190: Raise FND_API.G_EXC_ERROR ;

1186: If Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level Then
1187: Fnd_Log.String(Fnd_Log.Level_Error,C_Module || 'Create_Repair_Order',
1188: 'Error : While calling procedure csd_repairs_pvt.Create_Repair_Order ');
1189: End If;
1190: Raise FND_API.G_EXC_ERROR ;
1191: Else
1192: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
1193: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || 'Create_Repair_Order',
1194: 'Success : While calling procedure csd_repairs_pvt.Create_Repair_Order ');

Line 1254: If l_Return_Status <> FND_API.G_RET_STS_SUCCESS Then

1250: P_TASK_ID => Null,
1251: P_UNIT_NUMBER => Null);
1252: -- Add for R12 pickrule id change.Vijay.
1253:
1254: If l_Return_Status <> FND_API.G_RET_STS_SUCCESS Then
1255: If Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level Then
1256: Fnd_Log.String(Fnd_Log.Level_Error,C_Module || 'csd_product_transactions_pkg.Insert_Row',
1257: 'Error : While calling procedure csd_product_transactions_pkg.Insert_Row 2 for Defectives');
1258: End If;

Line 1259: Raise FND_API.G_EXC_ERROR ;

1255: If Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level Then
1256: Fnd_Log.String(Fnd_Log.Level_Error,C_Module || 'csd_product_transactions_pkg.Insert_Row',
1257: 'Error : While calling procedure csd_product_transactions_pkg.Insert_Row 2 for Defectives');
1258: End If;
1259: Raise FND_API.G_EXC_ERROR ;
1260: Else
1261: If Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level Then
1262: Fnd_Log.String(Fnd_Log.Level_Error,C_Module || 'csd_product_transactions_pkg.Insert_Row',
1263: 'Success : While calling procedure csd_product_transactions_pkg.Insert_Row 2 for Defectives');

Line 1324: If l_Return_Status <> FND_API.G_RET_STS_SUCCESS Then

1320: P_TASK_ID => Null,
1321: P_UNIT_NUMBER => Null);
1322: -- Add for R12 pickrule id change.Vijay.
1323:
1324: If l_Return_Status <> FND_API.G_RET_STS_SUCCESS Then
1325: If Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level Then
1326: Fnd_Log.String(Fnd_Log.Level_Error,C_Module || 'csd_product_transactions_pkg.Insert_Row',
1327: 'Error : While calling procedure csd_product_transactions_pkg.Insert_Row 2 for Usables');
1328: End If;

Line 1329: Raise FND_API.G_EXC_ERROR ;

1325: If Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level Then
1326: Fnd_Log.String(Fnd_Log.Level_Error,C_Module || 'csd_product_transactions_pkg.Insert_Row',
1327: 'Error : While calling procedure csd_product_transactions_pkg.Insert_Row 2 for Usables');
1328: End If;
1329: Raise FND_API.G_EXC_ERROR ;
1330: Else
1331: If Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level Then
1332: Fnd_Log.String(Fnd_Log.Level_Error,C_Module || 'csd_product_transactions_pkg.Insert_Row',
1333: 'Error : While calling procedure csd_product_transactions_pkg.Insert_Row 2 for Usables');

Line 1341: IF FND_API.To_Boolean( p_commit ) THEN

1337:
1338: End If;
1339:
1340: -- Standard check of p_commit.
1341: IF FND_API.To_Boolean( p_commit ) THEN
1342: COMMIT WORK;
1343: END IF;
1344: If Fnd_Log.Level_Error >= Fnd_Log.G_Current_Runtime_Level Then
1345: Fnd_Log.String(Fnd_Log.Level_Error,C_Module || 'End',

Line 1349: When FND_API.G_EXC_UNEXPECTED_ERROR Then

1345: Fnd_Log.String(Fnd_Log.Level_Error,C_Module || 'End',
1346: 'End of procedure : Create_InternalRO');
1347: End If;
1348: Exception
1349: When FND_API.G_EXC_UNEXPECTED_ERROR Then
1350: -- If there is an error then rollback all database transactions for this API
1351: Rollback To Create_InternalRO;
1352: --- Standard call to get error messages if count is Null
1353: FND_MSG_PUB.Count_And_Get

Line 1356: x_return_status := FND_API.G_RET_STS_ERROR ;

1352: --- Standard call to get error messages if count is Null
1353: FND_MSG_PUB.Count_And_Get
1354: (p_count => x_msg_count,
1355: p_data => x_msg_data ) ;
1356: x_return_status := FND_API.G_RET_STS_ERROR ;
1357:
1358: When FND_API.G_EXC_ERROR Then
1359: -- If there is an error then rollback all database transactions for this API
1360: Rollback To Create_InternalRO;

Line 1358: When FND_API.G_EXC_ERROR Then

1354: (p_count => x_msg_count,
1355: p_data => x_msg_data ) ;
1356: x_return_status := FND_API.G_RET_STS_ERROR ;
1357:
1358: When FND_API.G_EXC_ERROR Then
1359: -- If there is an error then rollback all database transactions for this API
1360: Rollback To Create_InternalRO;
1361: --- Standard call to get error messages if count is Null
1362: FND_MSG_PUB.Count_And_Get

Line 1365: x_return_status := FND_API.G_RET_STS_ERROR ;

1361: --- Standard call to get error messages if count is Null
1362: FND_MSG_PUB.Count_And_Get
1363: (p_count => x_msg_count,
1364: p_data => x_msg_data );
1365: x_return_status := FND_API.G_RET_STS_ERROR ;
1366:
1367: When Others Then
1368: -- If there is an error then rollback all database transactions for this API
1369: Rollback To Create_InternalRO;

Line 1370: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1366:
1367: When Others Then
1368: -- If there is an error then rollback all database transactions for this API
1369: Rollback To Create_InternalRO;
1370: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1371: IF FND_MSG_PUB.Check_Msg_Level
1372: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1373: THEN
1374: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,c_api_name );