42: l_party_site_use_id Number;
43: l_party_id Number ;
44:
45: -- Define Constants for debug level variables
46: C_Procedure_Level Constant Number := Fnd_Log.Level_Procedure ;
47: C_Exception_Level Constant Number := Fnd_Log.Level_Exception ;
48: C_Statement_Level Constant Number := Fnd_Log.Level_Statement ;
49: C_Debug_Level Constant Number := Fnd_Log.G_Current_Runtime_Level ;
50: C_Module Constant Varchar2(240) := 'csd.plsql.CSD_Refurbish_IRO_GRP.Get_PartySiteID' ;
43: l_party_id Number ;
44:
45: -- Define Constants for debug level variables
46: C_Procedure_Level Constant Number := Fnd_Log.Level_Procedure ;
47: C_Exception_Level Constant Number := Fnd_Log.Level_Exception ;
48: C_Statement_Level Constant Number := Fnd_Log.Level_Statement ;
49: C_Debug_Level Constant Number := Fnd_Log.G_Current_Runtime_Level ;
50: C_Module Constant Varchar2(240) := 'csd.plsql.CSD_Refurbish_IRO_GRP.Get_PartySiteID' ;
51:
44:
45: -- Define Constants for debug level variables
46: C_Procedure_Level Constant Number := Fnd_Log.Level_Procedure ;
47: C_Exception_Level Constant Number := Fnd_Log.Level_Exception ;
48: C_Statement_Level Constant Number := Fnd_Log.Level_Statement ;
49: C_Debug_Level Constant Number := Fnd_Log.G_Current_Runtime_Level ;
50: C_Module Constant Varchar2(240) := 'csd.plsql.CSD_Refurbish_IRO_GRP.Get_PartySiteID' ;
51:
52: C_API_Name Constant Varchar2(30) := 'Get_PartySiteID';
45: -- Define Constants for debug level variables
46: C_Procedure_Level Constant Number := Fnd_Log.Level_Procedure ;
47: C_Exception_Level Constant Number := Fnd_Log.Level_Exception ;
48: C_Statement_Level Constant Number := Fnd_Log.Level_Statement ;
49: C_Debug_Level Constant Number := Fnd_Log.G_Current_Runtime_Level ;
50: C_Module Constant Varchar2(240) := 'csd.plsql.CSD_Refurbish_IRO_GRP.Get_PartySiteID' ;
51:
52: C_API_Name Constant Varchar2(30) := 'Get_PartySiteID';
53: C_Site_Status_Active Constant Varchar2(1) := 'A' ;
51:
52: C_API_Name Constant Varchar2(30) := 'Get_PartySiteID';
53: C_Site_Status_Active Constant Varchar2(1) := 'A' ;
54: Begin
55: If Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level Then
56: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module || 'Begin','Begining of procedure : Get_PartySiteID ');
57: End If;
58:
59: --- Check if required input parameters are NULL
52: C_API_Name Constant Varchar2(30) := 'Get_PartySiteID';
53: C_Site_Status_Active Constant Varchar2(1) := 'A' ;
54: Begin
55: If Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level Then
56: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module || 'Begin','Begining of procedure : Get_PartySiteID ');
57: End If;
58:
59: --- Check if required input parameters are NULL
60: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
56: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module || 'Begin','Begining of procedure : Get_PartySiteID ');
57: End If;
58:
59: --- Check if required input parameters are NULL
60: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
61: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.In_Parameter_Validation',
62: 'Checking if required input parameter cust_Site_Use_id is Null');
63: End If;
64: -- Check the required parameter(p_Cust_Site_Use_Id)
57: End If;
58:
59: --- Check if required input parameters are NULL
60: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
61: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.In_Parameter_Validation',
62: 'Checking if required input parameter cust_Site_Use_id is Null');
63: End If;
64: -- Check the required parameter(p_Cust_Site_Use_Id)
65: CSD_PROCESS_UTIL.Check_Reqd_Param
66: ( p_param_value => p_Cust_Site_Use_Id,
67: p_param_name => 'Cust_Site_Use_Id',
68: p_api_name => C_API_Name);
69:
70: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
71: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.In_Parameter_Validation',
72: 'Checking if required input parameter Site_Use_Type is Null');
73: End If;
74:
67: p_param_name => 'Cust_Site_Use_Id',
68: p_api_name => C_API_Name);
69:
70: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
71: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.In_Parameter_Validation',
72: 'Checking if required input parameter Site_Use_Type is Null');
73: End If;
74:
75: -- Check the required parameter(p_Site_Use_Type)
89: When No_Data_found then
90: Fnd_Message.Set_Name('CSD', 'CSD_PARTY_SITE_NOT_FOUND');
91: Fnd_Message.Set_Token('CUST_ACCT_SITE_ID', p_cust_site_use_id);
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;
90: Fnd_Message.Set_Name('CSD', 'CSD_PARTY_SITE_NOT_FOUND');
91: Fnd_Message.Set_Token('CUST_ACCT_SITE_ID', p_cust_site_use_id);
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
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;
101: If x_party_site_id is not null Then
102: Begin
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;
101: If x_party_site_id is not null Then
102: Begin
103: Select hpsu.party_site_use_id,
111: And hpsu.site_use_type = p_site_use_type
112: And hps.status = C_Site_Status_Active
113: And hps.location_id = hl.location_id
114: And hps.party_site_id = hpsu.party_site_id;
115: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
116: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module , ' Party id is found for party site id ' || x_party_site_id );
117: End If;
118: Exception
119: When No_Data_found then
112: And hps.status = C_Site_Status_Active
113: And hps.location_id = hl.location_id
114: And hps.party_site_id = hpsu.party_site_id;
115: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
116: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module , ' Party id is found for party site id ' || x_party_site_id );
117: End If;
118: Exception
119: When No_Data_found then
120: Fnd_Message.Set_Name('CSD','CSD_PARTY_SITE_USE_NOT_FOUND');
119: When No_Data_found then
120: Fnd_Message.Set_Name('CSD','CSD_PARTY_SITE_USE_NOT_FOUND');
121: Fnd_Message.Set_Token('PARTY_SITE_ID',l_Party_Site_Id);
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
120: Fnd_Message.Set_Name('CSD','CSD_PARTY_SITE_USE_NOT_FOUND');
121: Fnd_Message.Set_Token('PARTY_SITE_ID',l_Party_Site_Id);
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');
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);
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;
129: Fnd_Message.Set_Token('PARTY_SITE_ID',l_Party_Site_Id);
130: Fnd_Message.Set_Token('SITE_USE_TYPE',p_Site_Use_Type);
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;
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 ');
140: End If;
141: Exception
142: When Fnd_Api.G_Exc_Error Then
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 ');
140: End If;
141: Exception
142: When Fnd_Api.G_Exc_Error Then
143: x_return_status := Fnd_Api.G_Ret_Sts_Error ;
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
155: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
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
155: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
156: THEN
157: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME ,c_api_name );
158: END IF;
159: FND_MSG_PUB.Count_And_Get(p_count =>x_msg_count,
160: p_data => x_msg_data );
161: If Fnd_Log.Level_Exception >= Fnd_Log.G_Current_Runtime_Level Then
162: Fnd_Log.String(Fnd_Log.Level_Exception,C_Module , x_msg_data );
163: End If;
164: End Get_PartySiteId;
165:
158: END IF;
159: FND_MSG_PUB.Count_And_Get(p_count =>x_msg_count,
160: p_data => x_msg_data );
161: If Fnd_Log.Level_Exception >= Fnd_Log.G_Current_Runtime_Level Then
162: Fnd_Log.String(Fnd_Log.Level_Exception,C_Module , x_msg_data );
163: End If;
164: End Get_PartySiteId;
165:
166: /*-----------------------------------------------------------------------------------------*/
289: C_COl_SR_Severity Constant Varchar2(30) := 'SR Severity' ;
290: -- Constant to hold Repair Type
291: C_Col_Repair_Type Constant Varchar2(30) := 'Repair Type' ;
292:
293: -- Define local constants to map fnd log message priority
294: C_Procedure_Level Constant Number := FND_LOG.LEVEL_PROCEDURE ;
295: C_Statement_Level Constant Number := Fnd_Log.Level_Statement ;
296: C_Exception_Level Constant Number := Fnd_Log.Level_Exception ;
297: C_Error_Level Constant Number := Fnd_Log.Level_Error;
290: -- Constant to hold Repair Type
291: C_Col_Repair_Type Constant Varchar2(30) := 'Repair Type' ;
292:
293: -- Define local constants to map fnd log message priority
294: C_Procedure_Level Constant Number := FND_LOG.LEVEL_PROCEDURE ;
295: C_Statement_Level Constant Number := Fnd_Log.Level_Statement ;
296: C_Exception_Level Constant Number := Fnd_Log.Level_Exception ;
297: C_Error_Level Constant Number := Fnd_Log.Level_Error;
298: C_Debug_Level Constant Number := FND_LOG.G_CURRENT_RUNTIME_LEVEL ;
291: C_Col_Repair_Type Constant Varchar2(30) := 'Repair Type' ;
292:
293: -- Define local constants to map fnd log message priority
294: C_Procedure_Level Constant Number := FND_LOG.LEVEL_PROCEDURE ;
295: C_Statement_Level Constant Number := Fnd_Log.Level_Statement ;
296: C_Exception_Level Constant Number := Fnd_Log.Level_Exception ;
297: C_Error_Level Constant Number := Fnd_Log.Level_Error;
298: C_Debug_Level Constant Number := FND_LOG.G_CURRENT_RUNTIME_LEVEL ;
299: C_Module Constant Varchar2(240) := 'csd.plsql.CSD_Refurbish_IRO_GRP.Create_InternalRO' ;
292:
293: -- Define local constants to map fnd log message priority
294: C_Procedure_Level Constant Number := FND_LOG.LEVEL_PROCEDURE ;
295: C_Statement_Level Constant Number := Fnd_Log.Level_Statement ;
296: C_Exception_Level Constant Number := Fnd_Log.Level_Exception ;
297: C_Error_Level Constant Number := Fnd_Log.Level_Error;
298: C_Debug_Level Constant Number := FND_LOG.G_CURRENT_RUNTIME_LEVEL ;
299: C_Module Constant Varchar2(240) := 'csd.plsql.CSD_Refurbish_IRO_GRP.Create_InternalRO' ;
300: -- Define local constants to for action type and action code
293: -- Define local constants to map fnd log message priority
294: C_Procedure_Level Constant Number := FND_LOG.LEVEL_PROCEDURE ;
295: C_Statement_Level Constant Number := Fnd_Log.Level_Statement ;
296: C_Exception_Level Constant Number := Fnd_Log.Level_Exception ;
297: C_Error_Level Constant Number := Fnd_Log.Level_Error;
298: C_Debug_Level Constant Number := FND_LOG.G_CURRENT_RUNTIME_LEVEL ;
299: C_Module Constant Varchar2(240) := 'csd.plsql.CSD_Refurbish_IRO_GRP.Create_InternalRO' ;
300: -- Define local constants to for action type and action code
301: C_Action_Type_Move_In Constant Varchar2(30) := 'MOVE_IN' ;
294: C_Procedure_Level Constant Number := FND_LOG.LEVEL_PROCEDURE ;
295: C_Statement_Level Constant Number := Fnd_Log.Level_Statement ;
296: C_Exception_Level Constant Number := Fnd_Log.Level_Exception ;
297: C_Error_Level Constant Number := Fnd_Log.Level_Error;
298: C_Debug_Level Constant Number := FND_LOG.G_CURRENT_RUNTIME_LEVEL ;
299: C_Module Constant Varchar2(240) := 'csd.plsql.CSD_Refurbish_IRO_GRP.Create_InternalRO' ;
300: -- Define local constants to for action type and action code
301: C_Action_Type_Move_In Constant Varchar2(30) := 'MOVE_IN' ;
302: C_Action_Type_Move_Out Constant Varchar2(30) := 'MOVE_OUT' ;
462: l_IRandISO_Out_Rec Get_PrdTxn_from_IRandISO_OUT%ROWTYPE;
463: l_IRandISO_In_Rec2 Get_SRandRO_from_IRandISO_IN%ROWTYPE;
464: l_IRandISO_Out_Rec2 Get_PrdTxn_from_IRandISO_OUT%ROWTYPE;
465: Begin
466: If Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level Then
467: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module || 'Begin','Begining of procedure : Create_InternalRO ');
468: End If;
469: -- Standard Start of API savepoint
470: Savepoint Create_InternalRO;
463: l_IRandISO_In_Rec2 Get_SRandRO_from_IRandISO_IN%ROWTYPE;
464: l_IRandISO_Out_Rec2 Get_PrdTxn_from_IRandISO_OUT%ROWTYPE;
465: Begin
466: If Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level Then
467: Fnd_Log.String(Fnd_Log.Level_Procedure,C_Module || 'Begin','Begining of procedure : Create_InternalRO ');
468: End If;
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');
478: End If;
479: Raise Fnd_Api.G_Exc_Unexpected_Error;
480: End If;
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');
478: End If;
479: Raise Fnd_Api.G_Exc_Unexpected_Error;
480: End If;
481:
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',
493: 'Checking if required input parameters are Null');
494: End If;
495:
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',
493: 'Checking if required input parameters are Null');
494: End If;
495:
496: --- Check if required input parameters are NULL
493: 'Checking if required input parameters are Null');
494: End If;
495:
496: --- Check if required input parameters are NULL
497: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
498: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.In_Parameter_Validation',
499: 'Checking if required input parameter Req_Header_id_in is Null');
500: End If;
501: -- Check the required parameter(p_Req_Header_Id_In)
494: End If;
495:
496: --- Check if required input parameters are NULL
497: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
498: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.In_Parameter_Validation',
499: 'Checking if required input parameter Req_Header_id_in is Null');
500: End If;
501: -- Check the required parameter(p_Req_Header_Id_In)
502: CSD_PROCESS_UTIL.Check_Reqd_Param
503: ( p_param_value => p_Req_Header_Id_In,
504: p_param_name => 'Req_Header_Id_In',
505: p_api_name => C_API_Name);
506:
507: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
508: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.In_Parameter_Validation',
509: 'Checking if required input parameter Req_Header_id_Out is Null');
510: End If;
511: -- Check the required parameter(p_Req_Header_Id_Out)
504: p_param_name => 'Req_Header_Id_In',
505: p_api_name => C_API_Name);
506:
507: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
508: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.In_Parameter_Validation',
509: 'Checking if required input parameter Req_Header_id_Out is Null');
510: End If;
511: -- Check the required parameter(p_Req_Header_Id_Out)
512: CSD_PROCESS_UTIL.Check_Reqd_Param
513: ( p_param_value => p_Req_Header_Id_Out,
514: p_param_name => 'Req_Header_Id_Out',
515: p_api_name => C_API_Name);
516:
517: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
518: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.In_Parameter_Validation',
519: 'Checking if required input parameter ISO_Header_Id_In is Null');
520: End If;
521: -- Check the required parameter(p_ISO_Header_Id_In)
514: p_param_name => 'Req_Header_Id_Out',
515: p_api_name => C_API_Name);
516:
517: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
518: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.In_Parameter_Validation',
519: 'Checking if required input parameter ISO_Header_Id_In is Null');
520: End If;
521: -- Check the required parameter(p_ISO_Header_Id_In)
522: CSD_PROCESS_UTIL.Check_Reqd_Param
522: CSD_PROCESS_UTIL.Check_Reqd_Param
523: ( p_param_value => p_ISO_Header_Id_In,
524: p_param_name => 'ISO_Header_Id_In',
525: p_api_name => C_API_Name);
526: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
527: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.In_Parameter_Validation',
528: 'Checking if required input parameter ISO_Header_Id_Out is Null');
529: End If;
530: -- Check the required parameter(p_ISO_Header_Id_Out)
523: ( p_param_value => p_ISO_Header_Id_In,
524: p_param_name => 'ISO_Header_Id_In',
525: p_api_name => C_API_Name);
526: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
527: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.In_Parameter_Validation',
528: 'Checking if required input parameter ISO_Header_Id_Out is Null');
529: End If;
530: -- Check the required parameter(p_ISO_Header_Id_Out)
531: CSD_PROCESS_UTIL.Check_Reqd_Param
533: p_param_name => 'ISO_Header_Id_Out',
534: p_api_name => C_API_Name);
535:
536: --- IO1/IR1 and IO2/IR2 can not be same, validate.
537: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
538: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.Val_IR1_and_IR2_are_same',
539: 'Checking if parameters Req_Header_Id_In and Req_Header_Id_Out has same value');
540: End If;
541: -- Check if IR1 and IR2 are same
534: p_api_name => C_API_Name);
535:
536: --- IO1/IR1 and IO2/IR2 can not be same, validate.
537: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
538: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.Val_IR1_and_IR2_are_same',
539: 'Checking if parameters Req_Header_Id_In and Req_Header_Id_Out has same value');
540: End If;
541: -- Check if IR1 and IR2 are same
542: If p_Req_Header_Id_In = P_Req_header_id_Out Then
542: If p_Req_Header_Id_In = P_Req_header_id_Out Then
543: Fnd_Message.Set_Name('CSD','CSD_IR1_AND_IR2_SAME');
544: Fnd_Message.Set_Token('Req_Header_Id',p_Req_Header_Id_In);
545: Fnd_Msg_Pub.Add;
546: If Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level Then
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';
543: Fnd_Message.Set_Name('CSD','CSD_IR1_AND_IR2_SAME');
544: Fnd_Message.Set_Token('Req_Header_Id',p_Req_Header_Id_In);
545: Fnd_Msg_Pub.Add;
546: If Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level Then
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 ;
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');
557: End If;
558: -- Check if IO1 and IO2 are same.
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');
557: End If;
558: -- Check if IO1 and IO2 are same.
559: If P_ISO_header_id_in = P_ISO_header_id_Out Then
559: If P_ISO_header_id_in = P_ISO_header_id_Out Then
560: Fnd_Message.Set_Name('CSD','CSD_IO1_AND_IO2_SAME');
561: Fnd_Message.Set_Token('Order_Header_Id',p_ISO_Header_Id_In);
562: Fnd_Msg_Pub.Add;
563: If Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level Then
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';
560: Fnd_Message.Set_Name('CSD','CSD_IO1_AND_IO2_SAME');
561: Fnd_Message.Set_Token('Order_Header_Id',p_ISO_Header_Id_In);
562: Fnd_Msg_Pub.Add;
563: If Fnd_Log.Level_Procedure >= Fnd_Log.G_Current_Runtime_Level Then
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 ;
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');
574: End If;
575: -- get SR Type Id value from profile, this is a required field if not set raise error message.
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');
574: End If;
575: -- get SR Type Id value from profile, this is a required field if not set raise error message.
576: FND_PROFILE.Get('CSD_IRO_DEFAULT_SR_TYPE',l_Inc_Type_Id);
577: If ( l_inc_type_id Is NULL ) Then
578: Fnd_Message.Set_Name('CSD','CSD_SR_REC_TYPE_REQ_COL_NULL');
579: Fnd_Message.Set_Token('COLUMN_NAME',c_COl_SR_Type );
580: Fnd_Msg_Pub.Add;
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 ;
578: Fnd_Message.Set_Name('CSD','CSD_SR_REC_TYPE_REQ_COL_NULL');
579: Fnd_Message.Set_Token('COLUMN_NAME',c_COl_SR_Type );
580: Fnd_Msg_Pub.Add;
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 ;
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;
591: End If;
592:
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;
591: End If;
592:
593: FND_PROFILE.Get('CSD_IRO_DEFAULT_SR_SEVERITY',l_Inc_Severity_Id);
595: If (l_inc_severity_id Is NULL) Then
596: Fnd_Message.Set_Name('CSD','CSD_SR_REC_TYPE_REQ_COL_NULL');
597: Fnd_Message.Set_Token('COLUMN_NAME',C_Col_SR_Severity );
598: Fnd_Msg_Pub.Add;
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 ;
596: Fnd_Message.Set_Name('CSD','CSD_SR_REC_TYPE_REQ_COL_NULL');
597: Fnd_Message.Set_Token('COLUMN_NAME',C_Col_SR_Severity );
598: Fnd_Msg_Pub.Add;
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 ;
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 ) ;
609: End If;
610: End If;
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 ) ;
609: End If;
610: End If;
611:
616: -- also CSD_OM_DEFAULT_SR_OWNER is incorrectly defined.
617: -- This is to fix bug 3395281 saupadhy
618: --l_sr_owner_id := FND_PROFILE.value('CSD_OM_DEFAULT_SR_OWNER');
619: FND_PROFILE.Get('INC_DEFAULT_INCIDENT_OWNER',l_Sr_Owner_Id);
620: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
621: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.SR_Owner_Id_value',
622: 'Default value for SR Owner Id is :' ||l_sr_owner_id );
623: End If;
624: --Bug# 4000602 saupadhy DBI changes 11/05/2004
617: -- This is to fix bug 3395281 saupadhy
618: --l_sr_owner_id := FND_PROFILE.value('CSD_OM_DEFAULT_SR_OWNER');
619: FND_PROFILE.Get('INC_DEFAULT_INCIDENT_OWNER',l_Sr_Owner_Id);
620: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
621: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.SR_Owner_Id_value',
622: 'Default value for SR Owner Id is :' ||l_sr_owner_id );
623: End If;
624: --Bug# 4000602 saupadhy DBI changes 11/05/2004
625: FND_PROFILE.GET('CSD_DEFAULT_REPAIR_ORG',l_Default_RO_Org_ID);
629: If (l_Repair_Type_id Is Null) Then
630: Fnd_Message.Set_Name('CSD','CSD_RO_REC_TYPE_REQ_COL_NULL');
631: Fnd_Message.Set_Token('COLUMN_NAME',C_Col_Repair_Type );
632: Fnd_Msg_Pub.Add;
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 ;
630: Fnd_Message.Set_Name('CSD','CSD_RO_REC_TYPE_REQ_COL_NULL');
631: Fnd_Message.Set_Token('COLUMN_NAME',C_Col_Repair_Type );
632: Fnd_Msg_Pub.Add;
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 ;
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 ) ;
643: End If;
644: End If;
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 ) ;
643: End If;
644: End If;
645: Begin
648: Where incident_subtype = C_SR_SubType_INC
649: And seeded_flag = C_YES
650: And trunc(sysdate) between trunc(nvl(start_date_active,sysdate)) and trunc(nvl(end_date_active,sysdate))
651: And status_code = C_Status_Open ;
652: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
653: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.SR_Status_Id_value',
654: 'Seeded SR status was found and its value is :' ||l_inc_status_Id );
655: End If;
656: Exception
649: And seeded_flag = C_YES
650: And trunc(sysdate) between trunc(nvl(start_date_active,sysdate)) and trunc(nvl(end_date_active,sysdate))
651: And status_code = C_Status_Open ;
652: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
653: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.SR_Status_Id_value',
654: 'Seeded SR status was found and its value is :' ||l_inc_status_Id );
655: End If;
656: Exception
657: When No_Data_Found Then
656: Exception
657: When No_Data_Found Then
658: --l_inc_status_id := FND_PROFILE.value('CSD_OM_DEFAULT_SR_STATUS');
659: FND_PROFILE.Get('CSD_OM_DEFAULT_SR_STATUS',l_Inc_Status_Id);
660: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
661: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.SR_Status_Id_value',
662: 'Seeded SR status was not found, so getting value from profile option and its value is :' ||l_inc_status_Id );
663: End If;
664: End;
657: When No_Data_Found Then
658: --l_inc_status_id := FND_PROFILE.value('CSD_OM_DEFAULT_SR_STATUS');
659: FND_PROFILE.Get('CSD_OM_DEFAULT_SR_STATUS',l_Inc_Status_Id);
660: If Fnd_Log.Level_Statement >= Fnd_Log.G_Current_Runtime_Level Then
661: Fnd_Log.String(Fnd_Log.Level_Statement,C_Module || '.SR_Status_Id_value',
662: 'Seeded SR status was not found, so getting value from profile option and its value is :' ||l_inc_status_Id );
663: End If;
664: End;
665: --- Check if any of the defaulted values for required columns of SR Record type has null value.
666: If (l_inc_status_Id Is NULL ) Then
667: Fnd_Message.Set_Name('CSD','CSD_SR_REC_TYPE_REQ_COL_NULL');
668: Fnd_Message.Set_Token('COLUMN_NAME',C_Col_SR_Status );
669: Fnd_Msg_Pub.Add;
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 ;
667: Fnd_Message.Set_Name('CSD','CSD_SR_REC_TYPE_REQ_COL_NULL');
668: Fnd_Message.Set_Token('COLUMN_NAME',C_Col_SR_Status );
669: Fnd_Msg_Pub.Add;
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 ;
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;
680: End If;
681: --- If Return status is error then raise exception and stop processing.
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;
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
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;
687: Raise FND_API.G_EXC_ERROR ;
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;
687: Raise FND_API.G_EXC_ERROR ;
688: End If;
695: If l_Repair_Mode Is Null Then
696: Fnd_Message.Set_Name('CSD','CSD_REPAIR_MODE_IS_NULL');
697: Fnd_Message.Set_Token('REPAIR_TYPE',l_Repair_Type_Name );
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 ;
696: Fnd_Message.Set_Name('CSD','CSD_REPAIR_MODE_IS_NULL');
697: Fnd_Message.Set_Token('REPAIR_TYPE',l_Repair_Type_Name );
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
707: Fnd_Message.Set_Name('CSD','CSD_INVALID_REPAIR_TYPE');
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 ;
706: When No_Data_FOund Then
707: Fnd_Message.Set_Name('CSD','CSD_INVALID_REPAIR_TYPE');
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 ;
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 );
718: End If;
719: --- Open main cursor
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 );
718: End If;
719: --- Open main cursor
720: Open Get_SRandRO_from_IRandISO_In(p_ISO_Header_Id_in , p_Req_Header_Id_IN ) ;
724: Fnd_Message.Set_Name('CSD','CSD_IR_IO_REC_NOT_FOUND');
725: Fnd_Message.Set_Token('REQ_HDR_ID', p_Req_Header_Id_IN);
726: Fnd_Message.Set_Token('SO_HDR_ID', P_ISO_header_id_in);
727: Fnd_Msg_Pub.Add;
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 ;
725: Fnd_Message.Set_Token('REQ_HDR_ID', p_Req_Header_Id_IN);
726: Fnd_Message.Set_Token('SO_HDR_ID', P_ISO_header_id_in);
727: Fnd_Msg_Pub.Add;
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
737: Fnd_Message.Set_Name('CSD','CSD_IR_IO_MANY_REC_FOUND');
738: Fnd_Message.Set_Token('REQ_HDR_ID', p_Req_Header_Id_IN);
739: Fnd_Message.Set_Token('SO_HDR_ID', P_ISO_header_id_in);
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;
738: Fnd_Message.Set_Token('REQ_HDR_ID', p_Req_Header_Id_IN);
739: Fnd_Message.Set_Token('SO_HDR_ID', P_ISO_header_id_in);
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
764: Fnd_Message.Set_Name('CSD','CSD_IR_IO_REC_NOT_FOUND');
765: Fnd_Message.Set_Token('REQ_HDR_ID',p_Req_Header_Id_Out);
766: Fnd_Message.Set_Token('SO_HDR_ID',p_ISO_Header_Id_Out);
767: Fnd_Msg_Pub.Add;
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 ;
765: Fnd_Message.Set_Token('REQ_HDR_ID',p_Req_Header_Id_Out);
766: Fnd_Message.Set_Token('SO_HDR_ID',p_ISO_Header_Id_Out);
767: Fnd_Msg_Pub.Add;
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
777: Fnd_Message.Set_Name('CSD','CSD_IR_IO_MANY_REC_FOUND');
778: Fnd_Message.Set_Token('REQ_HDR_ID', p_Req_Header_Id_Out);
779: Fnd_Message.Set_Token('SO_HDR_ID', p_ISO_Header_Id_Out);
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;
778: Fnd_Message.Set_Token('REQ_HDR_ID', p_Req_Header_Id_Out);
779: Fnd_Message.Set_Token('SO_HDR_ID', p_ISO_Header_Id_Out);
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
799: Fnd_Message.Set_Name('CSD','CSD_SR_NUM_ATTR_DIFFER');
800: Fnd_Message.Set_Token('ITEM_IN', l_Item_in);
801: Fnd_Message.Set_Token('ITEM_OUT', l_Item_Out);
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;
800: Fnd_Message.Set_Token('ITEM_IN', l_Item_in);
801: Fnd_Message.Set_Token('ITEM_OUT', l_Item_Out);
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
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;
825: -- Raise Exception and stop processing
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;
825: -- Raise Exception and stop processing
826: Raise FND_API.G_EXC_ERROR;
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;
848: -- Raise Exception and stop processing
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;
848: -- Raise Exception and stop processing
849: Raise FND_API.G_EXC_ERROR;
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');
854: End If;
855: 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');
854: End If;
855: End If;
856: -- Initialize the SR record values
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;
919: Raise FND_API.G_EXC_ERROR ;
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;
919: Raise FND_API.G_EXC_ERROR ;
920: Else
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');
924: End If;
925: End If;
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');
924: End If;
925: End If;
926: --- Check if Item is serialized item
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;
1011: Raise FND_API.G_EXC_ERROR ;
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;
1011: Raise FND_API.G_EXC_ERROR ;
1012: Else
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');
1016: End If;
1017: End If;
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');
1016: End If;
1017: End If;
1018: -- Insert into Product Transactions table , Insert a row for Action Type Move-In
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;
1083: Raise FND_API.G_EXC_ERROR ;
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;
1083: Raise FND_API.G_EXC_ERROR ;
1084: Else
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');
1088: End If;
1089: End If;
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');
1088: End If;
1089: End If;
1090:
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;
1153: Raise FND_API.G_EXC_ERROR ;
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;
1153: Raise FND_API.G_EXC_ERROR ;
1154: Else
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');
1158: End If;
1159: End If;
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');
1158: End If;
1159: End If;
1160:
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;
1190: Raise FND_API.G_EXC_ERROR ;
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;
1190: Raise FND_API.G_EXC_ERROR ;
1191: Else
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 ');
1195: End If;
1196: End If;
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 ');
1195: End If;
1196: End If;
1197: l_Product_Trxn_Id := NULL ; -- This is just to make sure that new product trasaction id generated
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;
1259: Raise FND_API.G_EXC_ERROR ;
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;
1259: Raise FND_API.G_EXC_ERROR ;
1260: Else
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');
1264: End If;
1265: End If;
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');
1264: End If;
1265: End If;
1266:
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;
1329: Raise FND_API.G_EXC_ERROR ;
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;
1329: Raise FND_API.G_EXC_ERROR ;
1330: Else
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');
1334: End If;
1335: End If;
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');
1334: End If;
1335: End If;
1336:
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',
1346: 'End of procedure : Create_InternalRO');
1347: End If;
1348: Exception
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',
1346: 'End of procedure : Create_InternalRO');
1347: End If;
1348: Exception
1349: When FND_API.G_EXC_UNEXPECTED_ERROR Then