11:
12:
13: PROCEDURE Default_Entity (
14: P_API_VERSION IN NUMBER,
15: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
16: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
17: P_CONTROL_REC IN CONTROL_REC_TYPE
18: := G_MISS_CONTROL_REC,
19: P_DATABASE_OBJECT_NAME IN VARCHAR2,
12:
13: PROCEDURE Default_Entity (
14: P_API_VERSION IN NUMBER,
15: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
16: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
17: P_CONTROL_REC IN CONTROL_REC_TYPE
18: := G_MISS_CONTROL_REC,
19: P_DATABASE_OBJECT_NAME IN VARCHAR2,
20: P_TRIGGER_ATTRIBUTES_TBL IN ATTRIBUTE_CODES_TBL_TYPE
99:
100: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
101:
102: -- Initialize message list if p_init_msg_list is set to TRUE.
103: IF FND_API.to_Boolean( p_init_msg_list )
104: THEN
105: FND_MSG_PUB.initialize;
106: END IF;
107:
105: FND_MSG_PUB.initialize;
106: END IF;
107:
108: -- Initialize API return status to SUCCESS
109: x_return_status := FND_API.G_RET_STS_SUCCESS;
110:
111: --
112: -- API body
113: --
137: IF p_database_object_name = 'ASO_AK_QUOTE_OPPTY_V' THEN
138: l_entity_code := 'QUOTE_OPPTY';
139:
140: IF p_control_rec.defaulting_flow_code like 'CREATE%' THEN
141: l_dependency_flag := FND_API.G_FALSE;
142:
143: IF l_Quote_Header_Rec.Created_By = FND_API.G_MISS_NUM OR l_Quote_Header_Rec.Created_By IS NULL THEN
144: l_Quote_Header_Rec.Created_By := FND_GLOBAL.User_Id;
145: END IF;
139:
140: IF p_control_rec.defaulting_flow_code like 'CREATE%' THEN
141: l_dependency_flag := FND_API.G_FALSE;
142:
143: IF l_Quote_Header_Rec.Created_By = FND_API.G_MISS_NUM OR l_Quote_Header_Rec.Created_By IS NULL THEN
144: l_Quote_Header_Rec.Created_By := FND_GLOBAL.User_Id;
145: END IF;
146:
147: --Commented Code Start Yogeshwar (MOAC)
144: l_Quote_Header_Rec.Created_By := FND_GLOBAL.User_Id;
145: END IF;
146:
147: --Commented Code Start Yogeshwar (MOAC)
148: /* IF l_Quote_Header_Rec.Org_Id = FND_API.G_MISS_NUM OR l_Quote_Header_Rec.Org_Id IS NULL THEN
149: IF SUBSTRB(USERENV('CLIENT_INFO'),1,1) <> ' ' THEN
150: l_Quote_Header_Rec.Org_Id := TO_NUMBER(SUBSTRB(USERENV('CLIENT_INFO'),1,10));
151: END IF;
152: END IF;
156: --New Code Start Yogeshwar (MOAC)
157: -- Commented as per bug 4548593
158: /*
159: If l_Quote_Header_Rec.Org_Id IS NULL THEN
160: l_org_id := FND_API.G_MISS_NUM;
161: Else
162: l_org_id := l_Quote_Header_Rec.Org_Id;
163: End if;
164: l_valid_org_id:= MO_GLOBAL.get_valid_org(l_org_id);
162: l_org_id := l_Quote_Header_Rec.Org_Id;
163: End if;
164: l_valid_org_id:= MO_GLOBAL.get_valid_org(l_org_id);
165: IF l_valid_org_id is NULL then
166: x_return_status := FND_API.G_RET_STS_ERROR;
167: RAISE FND_API.G_EXC_ERROR;
168: else
169: l_Quote_Header_Rec.Org_Id := l_valid_org_id;
170:
163: End if;
164: l_valid_org_id:= MO_GLOBAL.get_valid_org(l_org_id);
165: IF l_valid_org_id is NULL then
166: x_return_status := FND_API.G_RET_STS_ERROR;
167: RAISE FND_API.G_EXC_ERROR;
168: else
169: l_Quote_Header_Rec.Org_Id := l_valid_org_id;
170:
171: End if;
177: ELSIF p_database_object_name = 'ASO_AK_QUOTE_HEADER_V' THEN
178: l_entity_code := 'QUOTE_HEADER';
179:
180: IF p_control_rec.defaulting_flow_code like 'CREATE%' THEN
181: l_dependency_flag := FND_API.G_FALSE;
182: IF l_Quote_Header_Rec.Created_By = FND_API.G_MISS_NUM OR l_Quote_Header_Rec.Created_By IS NULL THEN
183: l_Quote_Header_Rec.Created_By := FND_GLOBAL.User_Id;
184: END IF;
185:
178: l_entity_code := 'QUOTE_HEADER';
179:
180: IF p_control_rec.defaulting_flow_code like 'CREATE%' THEN
181: l_dependency_flag := FND_API.G_FALSE;
182: IF l_Quote_Header_Rec.Created_By = FND_API.G_MISS_NUM OR l_Quote_Header_Rec.Created_By IS NULL THEN
183: l_Quote_Header_Rec.Created_By := FND_GLOBAL.User_Id;
184: END IF;
185:
186: --Commented Code Start (MOAC)
184: END IF;
185:
186: --Commented Code Start (MOAC)
187: /*
188: IF l_Quote_Header_Rec.Org_Id = FND_API.G_MISS_NUM OR l_Quote_Header_Rec.Org_Id IS NULL THEN
189: IF SUBSTRB(USERENV('CLIENT_INFO'),1,1) <> ' ' THEN
190: l_Quote_Header_Rec.Org_Id := TO_NUMBER(SUBSTRB(USERENV('CLIENT_INFO'),1,10));
191: END IF;
192: END IF;
196: --New Code Start Yogeshwar (MOAC)
197: -- Commented as per bug 4548593
198: /*
199: If l_Quote_Header_Rec.Org_Id IS NULL THEN
200: l_org_id := FND_API.G_MISS_NUM;
201: Else
202: l_org_id := l_Quote_Header_Rec.Org_Id;
203: End if;
204: l_valid_org_id:= MO_GLOBAL.get_valid_org(l_org_id);
202: l_org_id := l_Quote_Header_Rec.Org_Id;
203: End if;
204: l_valid_org_id:= MO_GLOBAL.get_valid_org(l_org_id);
205: if l_valid_org_id is NULL then
206: x_return_status := FND_API.G_RET_STS_ERROR;
207: RAISE FND_API.G_EXC_ERROR;
208: Else
209: l_Quote_Header_Rec.Org_Id := l_valid_org_id;
210: End if;
203: End if;
204: l_valid_org_id:= MO_GLOBAL.get_valid_org(l_org_id);
205: if l_valid_org_id is NULL then
206: x_return_status := FND_API.G_RET_STS_ERROR;
207: RAISE FND_API.G_EXC_ERROR;
208: Else
209: l_Quote_Header_Rec.Org_Id := l_valid_org_id;
210: End if;
211: */
216: ELSIF p_database_object_name = 'ASO_AK_QUOTE_LINE_V' THEN
217: l_entity_code := 'QUOTE_LINE';
218:
219: IF p_control_rec.defaulting_flow_code like 'CREATE%' THEN
220: l_dependency_flag := FND_API.G_FALSE;
221: IF l_Quote_Line_Rec.Created_By = FND_API.G_MISS_NUM OR l_Quote_Line_Rec.Created_By IS NULL THEN
222: l_Quote_Line_Rec.Created_By := FND_GLOBAL.User_Id;
223: END IF;
224:
217: l_entity_code := 'QUOTE_LINE';
218:
219: IF p_control_rec.defaulting_flow_code like 'CREATE%' THEN
220: l_dependency_flag := FND_API.G_FALSE;
221: IF l_Quote_Line_Rec.Created_By = FND_API.G_MISS_NUM OR l_Quote_Line_Rec.Created_By IS NULL THEN
222: l_Quote_Line_Rec.Created_By := FND_GLOBAL.User_Id;
223: END IF;
224:
225: --Commented Code Start Yogeshwar (MOAC)
223: END IF;
224:
225: --Commented Code Start Yogeshwar (MOAC)
226: /*
227: IF l_Quote_Line_Rec.Org_Id = FND_API.G_MISS_NUM OR l_Quote_Line_Rec.Org_Id IS NULL THEN
228: IF SUBSTRB(USERENV('CLIENT_INFO'),1,1) <> ' ' THEN
229: l_Quote_Line_Rec.Org_Id := TO_NUMBER(SUBSTRB(USERENV('CLIENT_INFO'),1,10));
230: END IF;
231: END IF;
235: --New Code start yogeshwar (MOAC)
236: -- Commented as per bug 4548593
237: /*
238: If l_Quote_Line_Rec.Org_Id IS NULL THEN
239: l_org_id := FND_API.G_MISS_NUM;
240: Else
241: l_org_id := l_Quote_Line_Rec.Org_Id;
242: End if;
243: l_valid_org_id:= MO_GLOBAL.get_valid_org(l_org_id);
241: l_org_id := l_Quote_Line_Rec.Org_Id;
242: End if;
243: l_valid_org_id:= MO_GLOBAL.get_valid_org(l_org_id);
244: if l_valid_org_id is NULL then
245: x_return_status := FND_API.G_RET_STS_ERROR;
246: RAISE FND_API.G_EXC_ERROR;
247: else
248: l_Quote_Header_Rec.Org_Id := l_valid_org_id;
249: End if;
242: End if;
243: l_valid_org_id:= MO_GLOBAL.get_valid_org(l_org_id);
244: if l_valid_org_id is NULL then
245: x_return_status := FND_API.G_RET_STS_ERROR;
246: RAISE FND_API.G_EXC_ERROR;
247: else
248: l_Quote_Header_Rec.Org_Id := l_valid_org_id;
249: End if;
250: */
255: ELSE
256: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
257: FND_MESSAGE.Set_Token('ID', p_database_object_name, FALSE);
258: FND_MSG_PUB.ADD;
259: RAISE FND_API.G_EXC_ERROR;
260: END IF;
261:
262: IF p_control_rec.defaulting_flow_code like 'CREATE%' THEN
263: l_dependency_flag := FND_API.G_FALSE;
259: RAISE FND_API.G_EXC_ERROR;
260: END IF;
261:
262: IF p_control_rec.defaulting_flow_code like 'CREATE%' THEN
263: l_dependency_flag := FND_API.G_FALSE;
264:
265: END IF;
266:
267:
291: X_Qte_Header_Row_Rec => l_Qte_Header_Row_Rec,
292: X_Qte_Opportunity_Row_Rec => l_Qte_Opportunity_Row_Rec,
293: X_Qte_Line_Row_Rec => l_Qte_Line_Row_Rec);
294:
295: IF l_dependency_flag = FND_API.G_TRUE THEN
296:
297: IF l_entity_code = 'QUOTE_HEADER' THEN
298:
299: ASO_QUOTE_HEADER_DEP_HDLR.Get_Dependent_Attributes_Proc
306: x_return_status => x_return_status,
307: x_msg_count => x_msg_count,
308: x_msg_data => x_msg_data );
309:
310: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
311: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
312: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
313: RAISE FND_API.G_EXC_ERROR;
314: END IF;
307: x_msg_count => x_msg_count,
308: x_msg_data => x_msg_data );
309:
310: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
311: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
312: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
313: RAISE FND_API.G_EXC_ERROR;
314: END IF;
315: l_Qte_Header_Row_Rec := lx_Qte_Header_Row_Rec; --Nocopy changes
308: x_msg_data => x_msg_data );
309:
310: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
311: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
312: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
313: RAISE FND_API.G_EXC_ERROR;
314: END IF;
315: l_Qte_Header_Row_Rec := lx_Qte_Header_Row_Rec; --Nocopy changes
316: X_Changed_Flag := FND_API.G_TRUE;
309:
310: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
311: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
312: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
313: RAISE FND_API.G_EXC_ERROR;
314: END IF;
315: l_Qte_Header_Row_Rec := lx_Qte_Header_Row_Rec; --Nocopy changes
316: X_Changed_Flag := FND_API.G_TRUE;
317:
312: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
313: RAISE FND_API.G_EXC_ERROR;
314: END IF;
315: l_Qte_Header_Row_Rec := lx_Qte_Header_Row_Rec; --Nocopy changes
316: X_Changed_Flag := FND_API.G_TRUE;
317:
318: END IF;
319:
320: IF l_entity_code = 'QUOTE_LINE' THEN
329: x_return_status => x_return_status,
330: x_msg_count => x_msg_count,
331: x_msg_data => x_msg_data );
332:
333: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
335: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
336: RAISE FND_API.G_EXC_ERROR;
337: END IF;
330: x_msg_count => x_msg_count,
331: x_msg_data => x_msg_data );
332:
333: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
335: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
336: RAISE FND_API.G_EXC_ERROR;
337: END IF;
338: l_Qte_Line_Row_Rec := lx_Qte_Line_Row_Rec; --Nocopy changes
331: x_msg_data => x_msg_data );
332:
333: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
335: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
336: RAISE FND_API.G_EXC_ERROR;
337: END IF;
338: l_Qte_Line_Row_Rec := lx_Qte_Line_Row_Rec; --Nocopy changes
339: X_Changed_Flag := FND_API.G_TRUE;
332:
333: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
335: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
336: RAISE FND_API.G_EXC_ERROR;
337: END IF;
338: l_Qte_Line_Row_Rec := lx_Qte_Line_Row_Rec; --Nocopy changes
339: X_Changed_Flag := FND_API.G_TRUE;
340:
335: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
336: RAISE FND_API.G_EXC_ERROR;
337: END IF;
338: l_Qte_Line_Row_Rec := lx_Qte_Line_Row_Rec; --Nocopy changes
339: X_Changed_Flag := FND_API.G_TRUE;
340:
341: END IF;
342:
343: END IF; -- Dependency Flag
350: IF aso_debug_pub.g_debug_flag = 'Y' THEN
351: aso_debug_pub.add('Before Defaulting HDLR:l_msg_count_start: ' || l_msg_count_start,1,'N');
352: END IF;
353:
354: IF p_control_rec.defaulting_flag = FND_API.G_TRUE THEN
355:
356: IF l_entity_code = 'QUOTE_HEADER' THEN
357:
358: IF aso_debug_pub.g_debug_flag = 'Y' THEN
873: x_msg_data := l_msg_data;
874:
875: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_DEFAULTING_RULE');
876: FND_MSG_PUB.ADD;
877: RAISE FND_API.G_EXC_ERROR;
878:
879: END IF;
880:
881: ASO_DEFAULTING_UTIL.Row_To_Api_Rec_Type
908: X_Line_Tax_Detail_Rec := l_Line_Tax_Detail_Rec;
909:
910: EXCEPTION
911:
912: WHEN FND_API.G_EXC_ERROR THEN
913: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
914: P_API_NAME => L_API_NAME,
915: P_PKG_NAME => G_PKG_NAME,
916: P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR,
921: X_MSG_DATA => X_MSG_DATA,
922: X_RETURN_STATUS => X_RETURN_STATUS
923: );
924:
925: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
926: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
927: P_API_NAME => L_API_NAME,
928: P_PKG_NAME => G_PKG_NAME,
929: P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR,