[Home] [Help]
17: l_default_org_name VARCHAR2(240);
18: l_ou_count NUMBER;
19:
20: BEGIN
21: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
22: aso_debug_pub.add('Function Get_OperatingUnit Default -- Begin :',1,'N');
23: END IF;
24:
25: MO_UTILS.GET_DEFAULT_OU( P_DEFAULT_ORG_ID => l_default_org_id,
18: l_ou_count NUMBER;
19:
20: BEGIN
21: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
22: aso_debug_pub.add('Function Get_OperatingUnit Default -- Begin :',1,'N');
23: END IF;
24:
25: MO_UTILS.GET_DEFAULT_OU( P_DEFAULT_ORG_ID => l_default_org_id,
26: P_DEFAULT_OU_NAME => l_default_org_name,
25: MO_UTILS.GET_DEFAULT_OU( P_DEFAULT_ORG_ID => l_default_org_id,
26: P_DEFAULT_OU_NAME => l_default_org_name,
27: P_OU_COUNT => l_ou_count
28: );
29: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
30: aso_debug_pub.add('Function Get_OperatingUnit Default Organization Id :' ||l_default_org_id,1,'N');
31: aso_debug_pub.add('Function Get_OperatingUnit Default Organization Name :'||l_default_org_name,1,'N');
32: END IF;
33:
26: P_DEFAULT_OU_NAME => l_default_org_name,
27: P_OU_COUNT => l_ou_count
28: );
29: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
30: aso_debug_pub.add('Function Get_OperatingUnit Default Organization Id :' ||l_default_org_id,1,'N');
31: aso_debug_pub.add('Function Get_OperatingUnit Default Organization Name :'||l_default_org_name,1,'N');
32: END IF;
33:
34: IF l_default_org_id is not null THEN
27: P_OU_COUNT => l_ou_count
28: );
29: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
30: aso_debug_pub.add('Function Get_OperatingUnit Default Organization Id :' ||l_default_org_id,1,'N');
31: aso_debug_pub.add('Function Get_OperatingUnit Default Organization Name :'||l_default_org_name,1,'N');
32: END IF;
33:
34: IF l_default_org_id is not null THEN
35: mo_global.set_policy_context('S',l_default_org_id);
38: RETURN l_default_org_id;
39:
40: EXCEPTION
41: WHEN NO_DATA_FOUND THEN
42: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
43: aso_debug_pub.add('Function Get_OperatingUnit NO_DATA_FOUND Exception Occurs: ',1,'N');
44: END IF;
45:
46: RETURN NULL;
39:
40: EXCEPTION
41: WHEN NO_DATA_FOUND THEN
42: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
43: aso_debug_pub.add('Function Get_OperatingUnit NO_DATA_FOUND Exception Occurs: ',1,'N');
44: END IF;
45:
46: RETURN NULL;
47:
46: RETURN NULL;
47:
48: WHEN OTHERS THEN
49:
50: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
51: aso_debug_pub.add('Function Get_OperatingUnit Inside When Others Exception',1,'N');
52: END IF;
53:
54: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
47:
48: WHEN OTHERS THEN
49:
50: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
51: aso_debug_pub.add('Function Get_OperatingUnit Inside When Others Exception',1,'N');
52: END IF;
53:
54: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
55: THEN
72: l_order_type_id NUMBER;
73: l_org_id NUMBER;
74:
75: BEGIN
76: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
77: aso_debug_pub.add('Function Get_OrderType Default -- Begin :',1,'N');
78: END IF;
79:
80: IF p_database_object_name = 'ASO_AK_QUOTE_HEADER_V' THEN
73: l_org_id NUMBER;
74:
75: BEGIN
76: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
77: aso_debug_pub.add('Function Get_OrderType Default -- Begin :',1,'N');
78: END IF;
79:
80: IF p_database_object_name = 'ASO_AK_QUOTE_HEADER_V' THEN
81: l_org_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_Org_id;
84: END IF;
85:
86: l_order_type_id := aso_utility_pvt.get_ou_attribute_value(aso_utility_pvt.GET_DEFAULT_ORDER_TYPE,l_org_id);
87:
88: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
89: aso_debug_pub.add('Function Get_OrderType Default Organization Id :' ||l_order_type_id,1,'N');
90: END IF;
91:
92: RETURN l_order_type_id;
85:
86: l_order_type_id := aso_utility_pvt.get_ou_attribute_value(aso_utility_pvt.GET_DEFAULT_ORDER_TYPE,l_org_id);
87:
88: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
89: aso_debug_pub.add('Function Get_OrderType Default Organization Id :' ||l_order_type_id,1,'N');
90: END IF;
91:
92: RETURN l_order_type_id;
93:
92: RETURN l_order_type_id;
93:
94: EXCEPTION
95: WHEN NO_DATA_FOUND THEN
96: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
97: aso_debug_pub.add('Function Get_OrderType NO_DATA_FOUND Exception Occurs: ',1,'N');
98: END IF;
99:
100: RETURN NULL;
93:
94: EXCEPTION
95: WHEN NO_DATA_FOUND THEN
96: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
97: aso_debug_pub.add('Function Get_OrderType NO_DATA_FOUND Exception Occurs: ',1,'N');
98: END IF;
99:
100: RETURN NULL;
101:
100: RETURN NULL;
101:
102: WHEN OTHERS THEN
103:
104: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
105: aso_debug_pub.add('Function Get_OrderType Inside When Others Exception',1,'N');
106: END IF;
107:
108: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
101:
102: WHEN OTHERS THEN
103:
104: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
105: aso_debug_pub.add('Function Get_OrderType Inside When Others Exception',1,'N');
106: END IF;
107:
108: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
109: THEN
125: l_contract_template_id NUMBER;
126: l_org_id NUMBER;
127:
128: BEGIN
129: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
130: aso_debug_pub.add('Function Get_ContractTemplate Default -- Begin :',1,'N');
131: END IF;
132:
133: IF p_database_object_name = 'ASO_AK_QUOTE_HEADER_V' THEN
126: l_org_id NUMBER;
127:
128: BEGIN
129: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
130: aso_debug_pub.add('Function Get_ContractTemplate Default -- Begin :',1,'N');
131: END IF;
132:
133: IF p_database_object_name = 'ASO_AK_QUOTE_HEADER_V' THEN
134: l_org_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_Org_id;
137: END IF;
138:
139: l_contract_template_id := aso_utility_pvt.get_ou_attribute_value(aso_utility_pvt.GET_DEFAULT_CONTRACT_TEMPLATE,l_org_id);
140:
141: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
142: aso_debug_pub.add('Function Get_ContractTemplate Contract_Template_Id :' ||l_contract_template_id,1,'N');
143: END IF;
144:
145: RETURN l_contract_template_id;
138:
139: l_contract_template_id := aso_utility_pvt.get_ou_attribute_value(aso_utility_pvt.GET_DEFAULT_CONTRACT_TEMPLATE,l_org_id);
140:
141: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
142: aso_debug_pub.add('Function Get_ContractTemplate Contract_Template_Id :' ||l_contract_template_id,1,'N');
143: END IF;
144:
145: RETURN l_contract_template_id;
146:
145: RETURN l_contract_template_id;
146:
147: EXCEPTION
148: WHEN NO_DATA_FOUND THEN
149: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
150: aso_debug_pub.add('Function Get_ContractTemplate NO_DATA_FOUND Exception Occurs: ',1,'N');
151: END IF;
152:
153: RETURN NULL;
146:
147: EXCEPTION
148: WHEN NO_DATA_FOUND THEN
149: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
150: aso_debug_pub.add('Function Get_ContractTemplate NO_DATA_FOUND Exception Occurs: ',1,'N');
151: END IF;
152:
153: RETURN NULL;
154:
153: RETURN NULL;
154:
155: WHEN OTHERS THEN
156:
157: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
158: aso_debug_pub.add('Function Get_ContractTemplate Inside When Others Exception',1,'N');
159: END IF;
160:
161: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
154:
155: WHEN OTHERS THEN
156:
157: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
158: aso_debug_pub.add('Function Get_ContractTemplate Inside When Others Exception',1,'N');
159: END IF;
160:
161: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
162: THEN
207: l_acct_count NUMBER;
208:
209: BEGIN
210:
211: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
212: aso_debug_pub.add('Function Get_CustAcct_From_CustParty -- Begin :',1,'N');
213: END IF;
214:
215: IF p_database_object_name = 'ASO_AK_QUOTE_HEADER_V' THEN
208:
209: BEGIN
210:
211: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
212: aso_debug_pub.add('Function Get_CustAcct_From_CustParty -- Begin :',1,'N');
213: END IF;
214:
215: IF p_database_object_name = 'ASO_AK_QUOTE_HEADER_V' THEN
216: l_party_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_cust_party_id;
214:
215: IF p_database_object_name = 'ASO_AK_QUOTE_HEADER_V' THEN
216: l_party_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_cust_party_id;
217:
218: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
219: aso_debug_pub.add('Function Get_CustAcct_From_CustParty Database Object ASO_AK_QUOTE_HEADER_V '||
220: ' l_party_id : ' || l_party_id ,1,'N');
221: END IF;
222:
215: IF p_database_object_name = 'ASO_AK_QUOTE_HEADER_V' THEN
216: l_party_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_cust_party_id;
217:
218: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
219: aso_debug_pub.add('Function Get_CustAcct_From_CustParty Database Object ASO_AK_QUOTE_HEADER_V '||
220: ' l_party_id : ' || l_party_id ,1,'N');
221: END IF;
222:
223: ELSIF p_database_object_name = 'ASO_AK_QUOTE_OPPTY_V' THEN
222:
223: ELSIF p_database_object_name = 'ASO_AK_QUOTE_OPPTY_V' THEN
224: l_party_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_oppty_cust_party_id;
225:
226: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
227: aso_debug_pub.add('Function Get_CustAcct_From_CustParty Database Object ASO_AK_QUOTE_OPPTY_V '||
228: ' l_party_id : ' || l_party_id ,1,'N');
229: END IF;
230:
223: ELSIF p_database_object_name = 'ASO_AK_QUOTE_OPPTY_V' THEN
224: l_party_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_oppty_cust_party_id;
225:
226: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
227: aso_debug_pub.add('Function Get_CustAcct_From_CustParty Database Object ASO_AK_QUOTE_OPPTY_V '||
228: ' l_party_id : ' || l_party_id ,1,'N');
229: END IF;
230:
231: END IF;
233: OPEN C_Get_Acct_Count (l_party_id);
234: FETCH C_Get_Acct_Count INTO l_acct_count;
235: CLOSE C_Get_Acct_Count;
236:
237: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
238: aso_debug_pub.add('Function Get_CustAcct_From_CustParty Cursor C_Get_Acct_Count l_acct_count : ' ||
239: l_acct_count ,1,'N');
240: END IF;
241:
234: FETCH C_Get_Acct_Count INTO l_acct_count;
235: CLOSE C_Get_Acct_Count;
236:
237: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
238: aso_debug_pub.add('Function Get_CustAcct_From_CustParty Cursor C_Get_Acct_Count l_acct_count : ' ||
239: l_acct_count ,1,'N');
240: END IF;
241:
242: IF l_acct_count > 1 THEN
249: FETCH C_Get_Acct INTO l_ret_value;
250: CLOSE C_Get_Acct;
251: END IF;
252:
253: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
254: aso_debug_pub.add('Function Get_CustAcct_From_CustParty Returns : ' || l_ret_value ,1,'N');
255: END IF;
256:
257: RETURN l_ret_value;
250: CLOSE C_Get_Acct;
251: END IF;
252:
253: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
254: aso_debug_pub.add('Function Get_CustAcct_From_CustParty Returns : ' || l_ret_value ,1,'N');
255: END IF;
256:
257: RETURN l_ret_value;
258:
257: RETURN l_ret_value;
258:
259: EXCEPTION
260: WHEN NO_DATA_FOUND THEN
261: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
262: aso_debug_pub.add('Function Get_CustAcct_From_CustParty NO_DATA_FOUND Exception Occurs: ',1,'N');
263: END IF;
264:
265: RETURN NULL;
258:
259: EXCEPTION
260: WHEN NO_DATA_FOUND THEN
261: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
262: aso_debug_pub.add('Function Get_CustAcct_From_CustParty NO_DATA_FOUND Exception Occurs: ',1,'N');
263: END IF;
264:
265: RETURN NULL;
266:
265: RETURN NULL;
266:
267: WHEN OTHERS THEN
268:
269: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
270: aso_debug_pub.add('Function Get_CustAcct_From_CustParty Inside When Others Exception',1,'N');
271: END IF;
272:
273: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
266:
267: WHEN OTHERS THEN
268:
269: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
270: aso_debug_pub.add('Function Get_CustAcct_From_CustParty Inside When Others Exception',1,'N');
271: END IF;
272:
273: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
274: THEN
297: l_agreement_id NUMBER;
298: l_ret_value NUMBER;
299:
300: BEGIN
301: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
302: aso_debug_pub.add('Function Get_PriceList_From_Agreement -- Begin :',1,'N');
303: END IF;
304:
305:
298: l_ret_value NUMBER;
299:
300: BEGIN
301: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
302: aso_debug_pub.add('Function Get_PriceList_From_Agreement -- Begin :',1,'N');
303: END IF;
304:
305:
306: IF p_database_object_name = 'ASO_AK_QUOTE_HEADER_V' THEN
305:
306: IF p_database_object_name = 'ASO_AK_QUOTE_HEADER_V' THEN
307: l_agreement_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_contract_id;
308:
309: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
310: aso_debug_pub.add('Function Get_PriceList_From_Agreement Database Object ASO_AK_QUOTE_HEADER_V '||
311: ' l_agreement_id : ' || l_agreement_id ,1,'N');
312: END IF;
313:
306: IF p_database_object_name = 'ASO_AK_QUOTE_HEADER_V' THEN
307: l_agreement_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_contract_id;
308:
309: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
310: aso_debug_pub.add('Function Get_PriceList_From_Agreement Database Object ASO_AK_QUOTE_HEADER_V '||
311: ' l_agreement_id : ' || l_agreement_id ,1,'N');
312: END IF;
313:
314: ELSIF p_database_object_name = 'ASO_AK_QUOTE_OPPTY_V' THEN
313:
314: ELSIF p_database_object_name = 'ASO_AK_QUOTE_OPPTY_V' THEN
315: l_agreement_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_contract_id;
316:
317: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
318: aso_debug_pub.add('Function Get_PriceList_From_Agreement Database Object ASO_AK_QUOTE_OPPTY_V '||
319: ' l_agreement_id : ' || l_agreement_id ,1,'N');
320: END IF;
321: ELSIF p_database_object_name = 'ASO_AK_QUOTE_LINE_V' THEN
314: ELSIF p_database_object_name = 'ASO_AK_QUOTE_OPPTY_V' THEN
315: l_agreement_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_contract_id;
316:
317: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
318: aso_debug_pub.add('Function Get_PriceList_From_Agreement Database Object ASO_AK_QUOTE_OPPTY_V '||
319: ' l_agreement_id : ' || l_agreement_id ,1,'N');
320: END IF;
321: ELSIF p_database_object_name = 'ASO_AK_QUOTE_LINE_V' THEN
322: l_agreement_id := ASO_QUOTE_LINE_DEF_HDLR.g_record.l_agreement_id;
320: END IF;
321: ELSIF p_database_object_name = 'ASO_AK_QUOTE_LINE_V' THEN
322: l_agreement_id := ASO_QUOTE_LINE_DEF_HDLR.g_record.l_agreement_id;
323:
324: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
325: aso_debug_pub.add('Function Get_PriceList_From_Agreement Database Object ASO_AK_QUOTE_LINE_V '||
326: ' l_agreement_id : ' || l_agreement_id ,1,'N');
327: END IF;
328: END IF;
321: ELSIF p_database_object_name = 'ASO_AK_QUOTE_LINE_V' THEN
322: l_agreement_id := ASO_QUOTE_LINE_DEF_HDLR.g_record.l_agreement_id;
323:
324: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
325: aso_debug_pub.add('Function Get_PriceList_From_Agreement Database Object ASO_AK_QUOTE_LINE_V '||
326: ' l_agreement_id : ' || l_agreement_id ,1,'N');
327: END IF;
328: END IF;
329:
330: OPEN C_Get_PL (l_agreement_id);
331: FETCH C_Get_PL INTO l_ret_value;
332: CLOSE C_Get_PL;
333:
334: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
335: aso_debug_pub.add('Function Get_PriceList_From_Agreement Cursor C_Get_PL l_ret_vaule : ' ||
336: l_ret_value,1,'N');
337: END IF;
338:
331: FETCH C_Get_PL INTO l_ret_value;
332: CLOSE C_Get_PL;
333:
334: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
335: aso_debug_pub.add('Function Get_PriceList_From_Agreement Cursor C_Get_PL l_ret_vaule : ' ||
336: l_ret_value,1,'N');
337: END IF;
338:
339: RETURN l_ret_value;
340:
341: EXCEPTION
342:
343: WHEN NO_DATA_FOUND THEN
344: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
345: aso_debug_pub.add('Function Get_PriceList_From_Agreement NO_DATA_FOUND Exception Occurs: ',1,'N');
346: END IF;
347:
348: RETURN NULL;
341: EXCEPTION
342:
343: WHEN NO_DATA_FOUND THEN
344: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
345: aso_debug_pub.add('Function Get_PriceList_From_Agreement NO_DATA_FOUND Exception Occurs: ',1,'N');
346: END IF;
347:
348: RETURN NULL;
349:
348: RETURN NULL;
349:
350: WHEN OTHERS THEN
351:
352: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
353: aso_debug_pub.add('Function Get_PriceList_From_Agreement Inside When Others Exception',1,'N');
354: END IF;
355:
356: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
349:
350: WHEN OTHERS THEN
351:
352: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
353: aso_debug_pub.add('Function Get_PriceList_From_Agreement Inside When Others Exception',1,'N');
354: END IF;
355:
356: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
357: THEN
388: l_ret_value NUMBER;
389: l_quote_header_id NUMBER;
390:
391: BEGIN
392: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
393: aso_debug_pub.add('Function Get_PriceList_From_CustAcct -- Begin :',1,'N');
394: END IF;
395:
396: IF p_database_object_name = 'ASO_AK_QUOTE_HEADER_V' THEN
389: l_quote_header_id NUMBER;
390:
391: BEGIN
392: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
393: aso_debug_pub.add('Function Get_PriceList_From_CustAcct -- Begin :',1,'N');
394: END IF;
395:
396: IF p_database_object_name = 'ASO_AK_QUOTE_HEADER_V' THEN
397: l_acct_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_cust_account_id;
395:
396: IF p_database_object_name = 'ASO_AK_QUOTE_HEADER_V' THEN
397: l_acct_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_cust_account_id;
398:
399: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
400: aso_debug_pub.add('Function Get_PriceList_From_CustAcct Database Object ASO_AK_QUOTE_HEADER_V '||
401: ' l_acct_id : ' || l_acct_id ,1,'N');
402: END IF;
403:
396: IF p_database_object_name = 'ASO_AK_QUOTE_HEADER_V' THEN
397: l_acct_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_cust_account_id;
398:
399: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
400: aso_debug_pub.add('Function Get_PriceList_From_CustAcct Database Object ASO_AK_QUOTE_HEADER_V '||
401: ' l_acct_id : ' || l_acct_id ,1,'N');
402: END IF;
403:
404: ELSIF p_database_object_name = 'ASO_AK_QUOTE_OPPTY_V' THEN
403:
404: ELSIF p_database_object_name = 'ASO_AK_QUOTE_OPPTY_V' THEN
405: l_acct_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_cust_account_id;
406:
407: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
408: aso_debug_pub.add('Function Get_PriceList_From_CustAcct Database Object ASO_AK_QUOTE_OPPTY_V '||
409: ' l_acct_id : ' || l_acct_id ,1,'N');
410: END IF;
411:
404: ELSIF p_database_object_name = 'ASO_AK_QUOTE_OPPTY_V' THEN
405: l_acct_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_cust_account_id;
406:
407: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
408: aso_debug_pub.add('Function Get_PriceList_From_CustAcct Database Object ASO_AK_QUOTE_OPPTY_V '||
409: ' l_acct_id : ' || l_acct_id ,1,'N');
410: END IF;
411:
412: END IF;
414: OPEN C_Get_PL (l_acct_id);
415: FETCH C_Get_PL INTO l_ret_value;
416: CLOSE C_Get_PL;
417:
418: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
419: aso_debug_pub.add('Function Get_PriceList_From_CustAcct Cursor C_Get_PL l_rel_value : ' ||
420: l_ret_value ,1,'N');
421: END IF;
422:
415: FETCH C_Get_PL INTO l_ret_value;
416: CLOSE C_Get_PL;
417:
418: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
419: aso_debug_pub.add('Function Get_PriceList_From_CustAcct Cursor C_Get_PL l_rel_value : ' ||
420: l_ret_value ,1,'N');
421: END IF;
422:
423: RETURN l_ret_value;
423: RETURN l_ret_value;
424:
425: EXCEPTION
426: WHEN NO_DATA_FOUND THEN
427: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
428: aso_debug_pub.add('Function Get_PriceList_From_CustAcct NO_DATA_FOUND Exception Occurs: ',1,'N');
429: END IF;
430:
431: RETURN NULL;
424:
425: EXCEPTION
426: WHEN NO_DATA_FOUND THEN
427: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
428: aso_debug_pub.add('Function Get_PriceList_From_CustAcct NO_DATA_FOUND Exception Occurs: ',1,'N');
429: END IF;
430:
431: RETURN NULL;
432:
431: RETURN NULL;
432:
433: WHEN OTHERS THEN
434:
435: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
436: aso_debug_pub.add('Function Get_PriceList_From_CustAcct Inside When Others Exception',1,'N');
437: END IF;
438:
439: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
432:
433: WHEN OTHERS THEN
434:
435: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
436: aso_debug_pub.add('Function Get_PriceList_From_CustAcct Inside When Others Exception',1,'N');
437: END IF;
438:
439: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
440: THEN
465: AND sysdate BETWEEN nvl(Start_Date_Active,sysdate) AND nvl(End_Date_Active,sysdate);
466:
467:
468: BEGIN
469: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
470: aso_debug_pub.add('Function Get_PriceList_From_OrderType -- Begin : ',1,'N');
471: END IF;
472:
473: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' THEN
466:
467:
468: BEGIN
469: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
470: aso_debug_pub.add('Function Get_PriceList_From_OrderType -- Begin : ',1,'N');
471: END IF;
472:
473: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' THEN
474: l_order_type_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_order_type_id;
472:
473: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' THEN
474: l_order_type_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_order_type_id;
475:
476: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
477: aso_debug_pub.add('Function Get_PriceList_From_OrderType Database Object ASO_AK_QUOTE_HEADER_V '||
478: ' l_order_type_id : ' || l_order_type_id ,1,'N');
479: END IF;
480:
473: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' THEN
474: l_order_type_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_order_type_id;
475:
476: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
477: aso_debug_pub.add('Function Get_PriceList_From_OrderType Database Object ASO_AK_QUOTE_HEADER_V '||
478: ' l_order_type_id : ' || l_order_type_id ,1,'N');
479: END IF;
480:
481: ELSIF p_database_object_name = 'ASO_AK_QUOTE_OPPTY_V' THEN
480:
481: ELSIF p_database_object_name = 'ASO_AK_QUOTE_OPPTY_V' THEN
482: l_order_type_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_order_type_id;
483:
484: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
485: aso_debug_pub.add('Function Get_PriceList_From_OrderType Database Object ASO_AK_QUOTE_OPPTY_V '||
486: ' l_order_type_id : ' || l_order_type_id ,1,'N');
487: END IF;
488: END IF;
481: ELSIF p_database_object_name = 'ASO_AK_QUOTE_OPPTY_V' THEN
482: l_order_type_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_order_type_id;
483:
484: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
485: aso_debug_pub.add('Function Get_PriceList_From_OrderType Database Object ASO_AK_QUOTE_OPPTY_V '||
486: ' l_order_type_id : ' || l_order_type_id ,1,'N');
487: END IF;
488: END IF;
489:
490: OPEN C_Get_PL (l_order_type_id);
491: FETCH C_Get_PL INTO l_ret_value;
492: CLOSE C_Get_PL;
493:
494: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
495: aso_debug_pub.add('Function Get_PriceList_From_OrderType l_ret_value : ' || l_ret_value ,1,'N');
496: END IF;
497:
498: RETURN l_ret_value;
491: FETCH C_Get_PL INTO l_ret_value;
492: CLOSE C_Get_PL;
493:
494: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
495: aso_debug_pub.add('Function Get_PriceList_From_OrderType l_ret_value : ' || l_ret_value ,1,'N');
496: END IF;
497:
498: RETURN l_ret_value;
499:
499:
500: EXCEPTION
501:
502: WHEN NO_DATA_FOUND THEN
503: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
504: aso_debug_pub.add('Function Get_PriceList_From_OrderType NO_DATA_FOUND Exception Occurs: ',1,'N');
505: END IF;
506:
507: RETURN NULL;
500: EXCEPTION
501:
502: WHEN NO_DATA_FOUND THEN
503: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
504: aso_debug_pub.add('Function Get_PriceList_From_OrderType NO_DATA_FOUND Exception Occurs: ',1,'N');
505: END IF;
506:
507: RETURN NULL;
508:
506:
507: RETURN NULL;
508:
509: WHEN OTHERS THEN
510: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
511: aso_debug_pub.add('Function Get_PriceList_From_OrderType Inside When Others Exception',1,'N');
512: END IF;
513:
514: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
507: RETURN NULL;
508:
509: WHEN OTHERS THEN
510: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
511: aso_debug_pub.add('Function Get_PriceList_From_OrderType Inside When Others Exception',1,'N');
512: END IF;
513:
514: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
515: THEN
539: l_agreement_id NUMBER;
540: l_ret_value NUMBER;
541:
542: BEGIN
543: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
544: aso_debug_pub.add('Function Get_PaymentTerm_From_Agreement --- Begin : ' ,1,'N');
545: END IF;
546:
547: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' THEN
540: l_ret_value NUMBER;
541:
542: BEGIN
543: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
544: aso_debug_pub.add('Function Get_PaymentTerm_From_Agreement --- Begin : ' ,1,'N');
545: END IF;
546:
547: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' THEN
548: l_agreement_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_contract_id;
546:
547: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' THEN
548: l_agreement_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_contract_id;
549:
550: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
551: aso_debug_pub.add('Function Get_PaymentTerm_From_Agreement Database Object ASO_AK_QUOTE_HEADER_V '||
552: ' l_agreement_id : ' || l_agreement_id ,1,'N');
553: END IF;
554:
547: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' THEN
548: l_agreement_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_contract_id;
549:
550: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
551: aso_debug_pub.add('Function Get_PaymentTerm_From_Agreement Database Object ASO_AK_QUOTE_HEADER_V '||
552: ' l_agreement_id : ' || l_agreement_id ,1,'N');
553: END IF;
554:
555: ELSIF p_database_object_name='ASO_AK_QUOTE_OPPTY_V' THEN
554:
555: ELSIF p_database_object_name='ASO_AK_QUOTE_OPPTY_V' THEN
556: l_agreement_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_contract_id;
557:
558: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
559: aso_debug_pub.add('Function Get_PaymentTerm_From_Agreement Database Object ASO_AK_QUOTE_OPPTY_V '||
560: ' l_agreement_id : ' || l_agreement_id ,1,'N');
561: END IF;
562:
555: ELSIF p_database_object_name='ASO_AK_QUOTE_OPPTY_V' THEN
556: l_agreement_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_contract_id;
557:
558: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
559: aso_debug_pub.add('Function Get_PaymentTerm_From_Agreement Database Object ASO_AK_QUOTE_OPPTY_V '||
560: ' l_agreement_id : ' || l_agreement_id ,1,'N');
561: END IF;
562:
563: END IF;
565: OPEN C_Get_PayTerm (l_agreement_id);
566: FETCH C_Get_PayTerm INTO l_ret_value;
567: CLOSE C_Get_PayTerm;
568:
569: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
570: aso_debug_pub.add('Function Get_PaymentTerm_From_Agreement Cursor C_Get_PayTerm l_ret_value: '||
571: l_ret_value ,1,'N');
572: END IF;
573: RETURN l_ret_value;
566: FETCH C_Get_PayTerm INTO l_ret_value;
567: CLOSE C_Get_PayTerm;
568:
569: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
570: aso_debug_pub.add('Function Get_PaymentTerm_From_Agreement Cursor C_Get_PayTerm l_ret_value: '||
571: l_ret_value ,1,'N');
572: END IF;
573: RETURN l_ret_value;
574:
573: RETURN l_ret_value;
574:
575: EXCEPTION
576: WHEN NO_DATA_FOUND THEN
577: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
578: aso_debug_pub.add('Function Get_PaymentTerm_From_Agreement NO_DATA_FOUND Exception Occurs: ',1,'N');
579: END IF;
580:
581: RETURN NULL;
574:
575: EXCEPTION
576: WHEN NO_DATA_FOUND THEN
577: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
578: aso_debug_pub.add('Function Get_PaymentTerm_From_Agreement NO_DATA_FOUND Exception Occurs: ',1,'N');
579: END IF;
580:
581: RETURN NULL;
582: WHEN OTHERS THEN
579: END IF;
580:
581: RETURN NULL;
582: WHEN OTHERS THEN
583: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
584: aso_debug_pub.add('Function Get_PaymentTerm_From_Agreement Inside When Others Exception',1,'N');
585: END IF;
586:
587: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
580:
581: RETURN NULL;
582: WHEN OTHERS THEN
583: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
584: aso_debug_pub.add('Function Get_PaymentTerm_From_Agreement Inside When Others Exception',1,'N');
585: END IF;
586:
587: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
588: THEN
611: l_cust_acct_id number;
612: l_term_id Number;
613:
614: Begin
615: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
616: aso_debug_pub.add('Function Get_PaymentTerm_From_Customer --- Begin : ' ,1,'N');
617: END IF;
618:
619: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' THEN
612: l_term_id Number;
613:
614: Begin
615: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
616: aso_debug_pub.add('Function Get_PaymentTerm_From_Customer --- Begin : ' ,1,'N');
617: END IF;
618:
619: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' THEN
620: l_cust_acct_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_Cust_Account_id;
618:
619: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' THEN
620: l_cust_acct_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_Cust_Account_id;
621:
622: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
623: aso_debug_pub.add('Function Get_PaymentTerm_From_Customer Database Object ASO_AK_QUOTE_HEADER_V '||
624: ' l_cust_acct_id : ' || l_cust_acct_id ,1,'N');
625: END IF;
626: ELSIF p_database_object_name='ASO_AK_QUOTE_OPPTY_V' THEN
619: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' THEN
620: l_cust_acct_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_Cust_Account_id;
621:
622: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
623: aso_debug_pub.add('Function Get_PaymentTerm_From_Customer Database Object ASO_AK_QUOTE_HEADER_V '||
624: ' l_cust_acct_id : ' || l_cust_acct_id ,1,'N');
625: END IF;
626: ELSIF p_database_object_name='ASO_AK_QUOTE_OPPTY_V' THEN
627: l_cust_acct_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_cust_account_id;
625: END IF;
626: ELSIF p_database_object_name='ASO_AK_QUOTE_OPPTY_V' THEN
627: l_cust_acct_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_cust_account_id;
628:
629: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
630: aso_debug_pub.add('Function Get_PaymentTerm_From_Customer Database Object ASO_AK_QUOTE_OPPTY_V '||
631: ' l_cust_acct_id : ' || l_cust_acct_id ,1,'N');
632: END IF;
633: END IF;
626: ELSIF p_database_object_name='ASO_AK_QUOTE_OPPTY_V' THEN
627: l_cust_acct_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_cust_account_id;
628:
629: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
630: aso_debug_pub.add('Function Get_PaymentTerm_From_Customer Database Object ASO_AK_QUOTE_OPPTY_V '||
631: ' l_cust_acct_id : ' || l_cust_acct_id ,1,'N');
632: END IF;
633: END IF;
634:
635: Open default_payment_term_customer(l_cust_acct_id);
636: Fetch default_payment_term_customer into l_term_id;
637: CLOSE default_payment_term_customer;
638:
639: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
640: aso_debug_pub.add('Function Get_PaymentTerm_From_Customer Cursor default_payment_term_customer '||
641: ' l_term_id : ' || l_term_id ,1,'N');
642: END IF;
643:
636: Fetch default_payment_term_customer into l_term_id;
637: CLOSE default_payment_term_customer;
638:
639: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
640: aso_debug_pub.add('Function Get_PaymentTerm_From_Customer Cursor default_payment_term_customer '||
641: ' l_term_id : ' || l_term_id ,1,'N');
642: END IF;
643:
644: RETURN l_term_id;
644: RETURN l_term_id;
645:
646: EXCEPTION
647: WHEN NO_DATA_FOUND THEN
648: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
649: aso_debug_pub.add('Function Get_PaymentTerm_From_Customer NO_DATA_FOUND Exception Occurs: ',1,'N');
650: END IF;
651: RETURN NULL;
652:
645:
646: EXCEPTION
647: WHEN NO_DATA_FOUND THEN
648: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
649: aso_debug_pub.add('Function Get_PaymentTerm_From_Customer NO_DATA_FOUND Exception Occurs: ',1,'N');
650: END IF;
651: RETURN NULL;
652:
653: WHEN OTHERS THEN
650: END IF;
651: RETURN NULL;
652:
653: WHEN OTHERS THEN
654: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
655: aso_debug_pub.add('Function Get_PaymentTerm_From_Customer Inside When Others Exception',1,'N');
656: END IF;
657:
658: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
651: RETURN NULL;
652:
653: WHEN OTHERS THEN
654: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
655: aso_debug_pub.add('Function Get_PaymentTerm_From_Customer Inside When Others Exception',1,'N');
656: END IF;
657:
658: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
659: THEN
686:
687: l_Quote_Exp_Date DATE;
688:
689: BEGIN
690: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
691: aso_debug_pub.add('Function Get_ExpiraionDate -- Begin: ',1,'N');
692: END IF;
693:
694: IF l_Default_Cal_Prof IS NOT NULL
687: l_Quote_Exp_Date DATE;
688:
689: BEGIN
690: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
691: aso_debug_pub.add('Function Get_ExpiraionDate -- Begin: ',1,'N');
692: END IF;
693:
694: IF l_Default_Cal_Prof IS NOT NULL
695: AND l_Default_Per_Prof IS NOT NULL THEN
697: OPEN C_Get_Expiration_Date(l_Default_Cal_Prof , l_Default_Per_Prof );
698: FETCH C_Get_Expiration_Date INTO l_Quote_Exp_Date;
699: CLOSE C_Get_Expiration_Date;
700:
701: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
702: aso_debug_pub.add('Function Get_ExpirationDate Cursor C_Get_Expiration_Date l_Quote_Exp_Date : '||
703: l_Quote_Exp_Date ,1,'N');
704: END IF;
705:
698: FETCH C_Get_Expiration_Date INTO l_Quote_Exp_Date;
699: CLOSE C_Get_Expiration_Date;
700:
701: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
702: aso_debug_pub.add('Function Get_ExpirationDate Cursor C_Get_Expiration_Date l_Quote_Exp_Date : '||
703: l_Quote_Exp_Date ,1,'N');
704: END IF;
705:
706: IF l_Quote_Exp_Date IS NULL THEN
704: END IF;
705:
706: IF l_Quote_Exp_Date IS NULL THEN
707: l_Quote_Exp_Date := SYSDATE + l_Qte_Duration_Prof;
708: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
709: aso_debug_pub.add('Function Get_ExpirationDate Cursor C_Get_Expiration_Date returns ' ||
710: ' l_Quote_Exp_Date AS Null Then l_Quote_Exp_Date :' || l_Quote_Exp_Date ,1,'N');
711: END IF;
712:
705:
706: IF l_Quote_Exp_Date IS NULL THEN
707: l_Quote_Exp_Date := SYSDATE + l_Qte_Duration_Prof;
708: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
709: aso_debug_pub.add('Function Get_ExpirationDate Cursor C_Get_Expiration_Date returns ' ||
710: ' l_Quote_Exp_Date AS Null Then l_Quote_Exp_Date :' || l_Quote_Exp_Date ,1,'N');
711: END IF;
712:
713: RETURN l_Quote_Exp_Date;
721: ELSE
722:
723: l_Quote_Exp_Date := SYSDATE + l_Qte_Duration_Prof;
724:
725: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
726: aso_debug_pub.add('Function Get_ExpirationDate if Profile ASO_DEFAULT_EXP_GL_CAL and Profile '|| ' ASO_DEFAULT_EXP_GL_PERIOD ARE NULL Then l_Quote_Exp_Date : ' || l_Quote_Exp_Date ,1,'N');
727: END IF;
728:
729: RETURN l_Quote_Exp_Date;
722:
723: l_Quote_Exp_Date := SYSDATE + l_Qte_Duration_Prof;
724:
725: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
726: aso_debug_pub.add('Function Get_ExpirationDate if Profile ASO_DEFAULT_EXP_GL_CAL and Profile '|| ' ASO_DEFAULT_EXP_GL_PERIOD ARE NULL Then l_Quote_Exp_Date : ' || l_Quote_Exp_Date ,1,'N');
727: END IF;
728:
729: RETURN l_Quote_Exp_Date;
730:
731: END IF;
732:
733: EXCEPTION
734: WHEN NO_DATA_FOUND THEN
735: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
736: aso_debug_pub.add('Function Get_ExpirationDate NO_DATA_FOUND Exception Occurs: ',1,'N');
737: END IF;
738:
739: RETURN NULL;
732:
733: EXCEPTION
734: WHEN NO_DATA_FOUND THEN
735: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
736: aso_debug_pub.add('Function Get_ExpirationDate NO_DATA_FOUND Exception Occurs: ',1,'N');
737: END IF;
738:
739: RETURN NULL;
740: WHEN OTHERS THEN
737: END IF;
738:
739: RETURN NULL;
740: WHEN OTHERS THEN
741: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
742: aso_debug_pub.add('Function Get_ExpirationDate Inside When Others Exception',1,'N');
743: END IF;
744: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
745: THEN
738:
739: RETURN NULL;
740: WHEN OTHERS THEN
741: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
742: aso_debug_pub.add('Function Get_ExpirationDate Inside When Others Exception',1,'N');
743: END IF;
744: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
745: THEN
746: OE_MSG_PUB.Add_Exc_Msg
783: l_ret_value NUMBER;
784: l_cust_party_type VARCHAR2(15);
785:
786: BEGIN
787: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
788: aso_debug_pub.add('Function Get_QuotePhone --- Begin ',1,'N');
789: END IF;
790:
791: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' THEN
784: l_cust_party_type VARCHAR2(15);
785:
786: BEGIN
787: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
788: aso_debug_pub.add('Function Get_QuotePhone --- Begin ',1,'N');
789: END IF;
790:
791: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' THEN
792: l_cust_party_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.q_cust_party_id;
791: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' THEN
792: l_cust_party_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.q_cust_party_id;
793: l_party_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.q_party_id;
794:
795: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
796: aso_debug_pub.add('Function Get_QuotePhone Database Object ASO_AK_QUOTE_HEADER_V '||
797: ' l_cust_party_id :' || l_cust_party_id ,1,'N');
798: aso_debug_pub.add('Function Get_QuotePhone Database Object ASO_AK_QUOTE_HEADER_V '||
799: ' l_party_id :' || l_party_id ,1,'N');
792: l_cust_party_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.q_cust_party_id;
793: l_party_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.q_party_id;
794:
795: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
796: aso_debug_pub.add('Function Get_QuotePhone Database Object ASO_AK_QUOTE_HEADER_V '||
797: ' l_cust_party_id :' || l_cust_party_id ,1,'N');
798: aso_debug_pub.add('Function Get_QuotePhone Database Object ASO_AK_QUOTE_HEADER_V '||
799: ' l_party_id :' || l_party_id ,1,'N');
800: END IF;
794:
795: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
796: aso_debug_pub.add('Function Get_QuotePhone Database Object ASO_AK_QUOTE_HEADER_V '||
797: ' l_cust_party_id :' || l_cust_party_id ,1,'N');
798: aso_debug_pub.add('Function Get_QuotePhone Database Object ASO_AK_QUOTE_HEADER_V '||
799: ' l_party_id :' || l_party_id ,1,'N');
800: END IF;
801:
802: ELSIF p_database_object_name='ASO_AK_QUOTE_OPPTY_V' THEN
803: --l_cust_party_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_cust_party_id; --Bug#5195151
804: l_cust_party_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_oppty_cust_party_id;
805: l_party_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_party_id;
806:
807: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
808: aso_debug_pub.add('Function Get_QuotePhone Database Object ASO_AK_QUOTE_OPPTY_V '||
809: ' l_cust_party_id :' || l_cust_party_id ,1,'N');
810: aso_debug_pub.add('Function Get_QuotePhone Database Object ASO_AK_QUOTE_OPPTY_V '||
811: ' l_party_id :' || l_party_id ,1,'N');
804: l_cust_party_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_oppty_cust_party_id;
805: l_party_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_party_id;
806:
807: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
808: aso_debug_pub.add('Function Get_QuotePhone Database Object ASO_AK_QUOTE_OPPTY_V '||
809: ' l_cust_party_id :' || l_cust_party_id ,1,'N');
810: aso_debug_pub.add('Function Get_QuotePhone Database Object ASO_AK_QUOTE_OPPTY_V '||
811: ' l_party_id :' || l_party_id ,1,'N');
812: END IF;
806:
807: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
808: aso_debug_pub.add('Function Get_QuotePhone Database Object ASO_AK_QUOTE_OPPTY_V '||
809: ' l_cust_party_id :' || l_cust_party_id ,1,'N');
810: aso_debug_pub.add('Function Get_QuotePhone Database Object ASO_AK_QUOTE_OPPTY_V '||
811: ' l_party_id :' || l_party_id ,1,'N');
812: END IF;
813:
814: END IF;
816: OPEN C_Get_Type (l_cust_party_id);
817: FETCH C_Get_Type INTO l_cust_party_type;
818: CLOSE C_Get_Type;
819:
820: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
821: aso_debug_pub.add('Function Get_QuotePhone Customer Party Type : '||l_cust_party_type,1,'N');
822: END IF;
823:
824: IF l_cust_party_type = 'PERSON' THEN
817: FETCH C_Get_Type INTO l_cust_party_type;
818: CLOSE C_Get_Type;
819:
820: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
821: aso_debug_pub.add('Function Get_QuotePhone Customer Party Type : '||l_cust_party_type,1,'N');
822: END IF;
823:
824: IF l_cust_party_type = 'PERSON' THEN
825:
826: OPEN C_Get_Phone (l_cust_party_id);
827: FETCH C_Get_Phone INTO l_ret_value;
828: CLOSE C_Get_Phone;
829:
830: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
831: aso_debug_pub.add('Function Get_QuotePhone Customer Party Type is PERSON l_ret_value: '||
832: l_ret_value,1,'N');
833: END IF;
834: ELSE
827: FETCH C_Get_Phone INTO l_ret_value;
828: CLOSE C_Get_Phone;
829:
830: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
831: aso_debug_pub.add('Function Get_QuotePhone Customer Party Type is PERSON l_ret_value: '||
832: l_ret_value,1,'N');
833: END IF;
834: ELSE
835:
838: FETCH C_Get_Phone INTO l_ret_value;
839: CLOSE C_Get_Phone;
840: END IF;
841:
842: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
843: aso_debug_pub.add('Function Get_QuotePhone Customer Party Type is Organization l_ret_value:'||
844: l_ret_value,1,'N');
845: END IF;
846:
839: CLOSE C_Get_Phone;
840: END IF;
841:
842: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
843: aso_debug_pub.add('Function Get_QuotePhone Customer Party Type is Organization l_ret_value:'||
844: l_ret_value,1,'N');
845: END IF;
846:
847: END IF;
849: RETURN l_ret_value;
850:
851: EXCEPTION
852: WHEN NO_DATA_FOUND THEN
853: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
854: aso_debug_pub.add('Function Get_QuotePhone NO_DATA_FOUND Exception Occurs : ',1,'N');
855: END IF;
856:
857: RETURN NULL;
850:
851: EXCEPTION
852: WHEN NO_DATA_FOUND THEN
853: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
854: aso_debug_pub.add('Function Get_QuotePhone NO_DATA_FOUND Exception Occurs : ',1,'N');
855: END IF;
856:
857: RETURN NULL;
858: WHEN OTHERS THEN
855: END IF;
856:
857: RETURN NULL;
858: WHEN OTHERS THEN
859: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
860: aso_debug_pub.add('Function Get_QuotePhone Inside When Others Exception',1,'N');
861: END IF;
862:
863: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
856:
857: RETURN NULL;
858: WHEN OTHERS THEN
859: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
860: aso_debug_pub.add('Function Get_QuotePhone Inside When Others Exception',1,'N');
861: END IF;
862:
863: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
864: THEN
906: l_party_id NUMBER;
907: x_party_site_id NUMBER;
908:
909: BEGIN
910: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
911: aso_debug_pub.add('Function Get_QuoteAddress --- Begin :',1,'N');
912: END IF;
913:
914: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' THEN
907: x_party_site_id NUMBER;
908:
909: BEGIN
910: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
911: aso_debug_pub.add('Function Get_QuoteAddress --- Begin :',1,'N');
912: END IF;
913:
914: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' THEN
915: l_cust_party_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_cust_party_id;
914: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' THEN
915: l_cust_party_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_cust_party_id;
916: l_party_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_party_id;
917:
918: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
919: aso_debug_pub.add('Function Get_QuoteAddress Database Object ASO_AK_QUOTE_HEADER_V '||
920: ' l_cust_party_id :' || l_cust_party_id ,1,'N');
921: aso_debug_pub.add('Function Get_QuoteAddress Database Object ASO_AK_QUOTE_HEADER_V '||
922: ' l_party_id :' || l_party_id ,1,'N');
915: l_cust_party_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_cust_party_id;
916: l_party_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_party_id;
917:
918: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
919: aso_debug_pub.add('Function Get_QuoteAddress Database Object ASO_AK_QUOTE_HEADER_V '||
920: ' l_cust_party_id :' || l_cust_party_id ,1,'N');
921: aso_debug_pub.add('Function Get_QuoteAddress Database Object ASO_AK_QUOTE_HEADER_V '||
922: ' l_party_id :' || l_party_id ,1,'N');
923: END IF;
917:
918: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
919: aso_debug_pub.add('Function Get_QuoteAddress Database Object ASO_AK_QUOTE_HEADER_V '||
920: ' l_cust_party_id :' || l_cust_party_id ,1,'N');
921: aso_debug_pub.add('Function Get_QuoteAddress Database Object ASO_AK_QUOTE_HEADER_V '||
922: ' l_party_id :' || l_party_id ,1,'N');
923: END IF;
924:
925: ELSIF p_database_object_name='ASO_AK_QUOTE_OPPTY_V' THEN
926: --l_cust_party_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_cust_party_id; --Bug#5195151
927: l_cust_party_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_oppty_cust_party_id;
928: l_party_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_party_id;
929:
930: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
931: aso_debug_pub.add('Function Get_QuoteAddress Database Object ASO_AK_QUOTE_OPPTY_V '||
932: ' l_cust_party_id :' || l_cust_party_id ,1,'N');
933: aso_debug_pub.add('Function Get_QuoteAddress Database Object ASO_AK_QUOTE_OPPTY_V '||
934: ' l_party_id :' || l_party_id ,1,'N');
927: l_cust_party_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_oppty_cust_party_id;
928: l_party_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_party_id;
929:
930: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
931: aso_debug_pub.add('Function Get_QuoteAddress Database Object ASO_AK_QUOTE_OPPTY_V '||
932: ' l_cust_party_id :' || l_cust_party_id ,1,'N');
933: aso_debug_pub.add('Function Get_QuoteAddress Database Object ASO_AK_QUOTE_OPPTY_V '||
934: ' l_party_id :' || l_party_id ,1,'N');
935: END IF;
929:
930: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
931: aso_debug_pub.add('Function Get_QuoteAddress Database Object ASO_AK_QUOTE_OPPTY_V '||
932: ' l_cust_party_id :' || l_cust_party_id ,1,'N');
933: aso_debug_pub.add('Function Get_QuoteAddress Database Object ASO_AK_QUOTE_OPPTY_V '||
934: ' l_party_id :' || l_party_id ,1,'N');
935: END IF;
936: END IF;
937:
938: OPEN C_Get_Type (l_cust_party_id);
939: FETCH C_Get_Type INTO l_cust_party_type;
940: CLOSE C_Get_Type;
941:
942: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
943: aso_debug_pub.add('Function Get_QuoteAddress Cursor C_Get_Type l_cust_party_type :'||
944: l_cust_party_type,1,'N');
945: END IF;
946:
939: FETCH C_Get_Type INTO l_cust_party_type;
940: CLOSE C_Get_Type;
941:
942: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
943: aso_debug_pub.add('Function Get_QuoteAddress Cursor C_Get_Type l_cust_party_type :'||
944: l_cust_party_type,1,'N');
945: END IF;
946:
947: /* if Party is PERSON */
945: END IF;
946:
947: /* if Party is PERSON */
948: IF l_cust_party_type = 'PERSON' THEN
949: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
950: aso_debug_pub.add('Function Get_QuoteAddress IF l_cust_party_type is PERSON :',1,'N');
951: END IF;
952: /* Get Primary Sold To Address for Quote to Customer */
953: OPEN C_Use_Exists (l_cust_party_id);
946:
947: /* if Party is PERSON */
948: IF l_cust_party_type = 'PERSON' THEN
949: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
950: aso_debug_pub.add('Function Get_QuoteAddress IF l_cust_party_type is PERSON :',1,'N');
951: END IF;
952: /* Get Primary Sold To Address for Quote to Customer */
953: OPEN C_Use_Exists (l_cust_party_id);
954: FETCH C_Use_Exists INTO x_party_site_id;
953: OPEN C_Use_Exists (l_cust_party_id);
954: FETCH C_Use_Exists INTO x_party_site_id;
955: CLOSE C_Use_Exists;
956:
957: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
958: aso_debug_pub.add('Function Get_QuoteAddress Cursor C_Use_Exists Primary Address ' ||
959: ' x_party_site_id :' ||x_party_site_id ,1,'N');
960: END IF;
961: IF x_party_site_id IS NULL THEN
954: FETCH C_Use_Exists INTO x_party_site_id;
955: CLOSE C_Use_Exists;
956:
957: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
958: aso_debug_pub.add('Function Get_QuoteAddress Cursor C_Use_Exists Primary Address ' ||
959: ' x_party_site_id :' ||x_party_site_id ,1,'N');
960: END IF;
961: IF x_party_site_id IS NULL THEN
962: /* Get Identifying Address for Quote to Customer */
962: /* Get Identifying Address for Quote to Customer */
963: OPEN C_Get_PrAddr (l_cust_party_id);
964: FETCH C_Get_PrAddr INTO x_party_site_id;
965: CLOSE C_Get_PrAddr;
966: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
967: aso_debug_pub.add('Function Get_QuoteAddress Cursor C_Get_PrAddr Identifying Address'||
968: ' x_party_site_id :' ||x_party_site_id ,1,'N');
969: END IF;
970: END IF;
963: OPEN C_Get_PrAddr (l_cust_party_id);
964: FETCH C_Get_PrAddr INTO x_party_site_id;
965: CLOSE C_Get_PrAddr;
966: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
967: aso_debug_pub.add('Function Get_QuoteAddress Cursor C_Get_PrAddr Identifying Address'||
968: ' x_party_site_id :' ||x_party_site_id ,1,'N');
969: END IF;
970: END IF;
971:
970: END IF;
971:
972: ELSE
973: /* If Party Type is Organization */
974: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
975: aso_debug_pub.add('Function Get_QuoteAddress IF l_cust_party_type is ORGANIZATION :',1,'N');
976: END IF;
977: IF nvl(l_party_id,l_cust_party_id) = l_cust_party_id THEN
978: /* if party type is Organization and contact is not specified */
971:
972: ELSE
973: /* If Party Type is Organization */
974: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
975: aso_debug_pub.add('Function Get_QuoteAddress IF l_cust_party_type is ORGANIZATION :',1,'N');
976: END IF;
977: IF nvl(l_party_id,l_cust_party_id) = l_cust_party_id THEN
978: /* if party type is Organization and contact is not specified */
979:
976: END IF;
977: IF nvl(l_party_id,l_cust_party_id) = l_cust_party_id THEN
978: /* if party type is Organization and contact is not specified */
979:
980: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
981: aso_debug_pub.add('Function Get_QuoteAddress IF l_cust_party_type is ORGANIZATION '||
982: ' and Contact is not Specified :',1,'N');
983: END IF;
984:
977: IF nvl(l_party_id,l_cust_party_id) = l_cust_party_id THEN
978: /* if party type is Organization and contact is not specified */
979:
980: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
981: aso_debug_pub.add('Function Get_QuoteAddress IF l_cust_party_type is ORGANIZATION '||
982: ' and Contact is not Specified :',1,'N');
983: END IF;
984:
985: /* Get Primary Sold to Address for Quote to Customer */
987: OPEN C_Use_Exists (l_cust_party_id);
988: FETCH C_Use_Exists INTO x_party_site_id;
989: CLOSE C_Use_Exists;
990:
991: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
992: aso_debug_pub.add('Function Get_QuoteAddress Cursor C_Use_Exists Primary Address ' ||
993: ' x_party_site_id :' ||x_party_site_id ,1,'N');
994: END IF;
995:
988: FETCH C_Use_Exists INTO x_party_site_id;
989: CLOSE C_Use_Exists;
990:
991: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
992: aso_debug_pub.add('Function Get_QuoteAddress Cursor C_Use_Exists Primary Address ' ||
993: ' x_party_site_id :' ||x_party_site_id ,1,'N');
994: END IF;
995:
996: IF x_party_site_id IS NULL THEN
999: OPEN C_Get_PrAddr (l_cust_party_id);
1000: FETCH C_Get_PrAddr INTO x_party_site_id;
1001: CLOSE C_Get_PrAddr;
1002:
1003: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1004: aso_debug_pub.add('Function Get_QuoteAddress Cursor C_Get_PrAddr Identifying Address '||
1005: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1006: END IF;
1007: END IF; ----- TEST
1000: FETCH C_Get_PrAddr INTO x_party_site_id;
1001: CLOSE C_Get_PrAddr;
1002:
1003: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1004: aso_debug_pub.add('Function Get_QuoteAddress Cursor C_Get_PrAddr Identifying Address '||
1005: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1006: END IF;
1007: END IF; ----- TEST
1008: ELSIF l_party_id <> l_cust_party_id THEN
1006: END IF;
1007: END IF; ----- TEST
1008: ELSIF l_party_id <> l_cust_party_id THEN
1009: /* if party type is Organization and contact is specified */
1010: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1011: aso_debug_pub.add('Function Get_QuoteAddress IF l_cust_party_type is ORGANIZATION '||
1012: ' and Contact is Specified :',1,'N');
1013: END IF;
1014: /* Get Primary 'SOLD TO' address for Quote to Contact */
1007: END IF; ----- TEST
1008: ELSIF l_party_id <> l_cust_party_id THEN
1009: /* if party type is Organization and contact is specified */
1010: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1011: aso_debug_pub.add('Function Get_QuoteAddress IF l_cust_party_type is ORGANIZATION '||
1012: ' and Contact is Specified :',1,'N');
1013: END IF;
1014: /* Get Primary 'SOLD TO' address for Quote to Contact */
1015: OPEN C_Use_Exists (l_party_id);
1015: OPEN C_Use_Exists (l_party_id);
1016: FETCH C_Use_Exists INTO x_party_site_id;
1017: CLOSE C_Use_Exists;
1018:
1019: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1020: aso_debug_pub.add('Function Get_QuoteAddress Cursor C_Use_Exists Primary Address ' ||
1021: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1022: END IF;
1023:
1016: FETCH C_Use_Exists INTO x_party_site_id;
1017: CLOSE C_Use_Exists;
1018:
1019: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1020: aso_debug_pub.add('Function Get_QuoteAddress Cursor C_Use_Exists Primary Address ' ||
1021: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1022: END IF;
1023:
1024: IF x_party_site_id IS NULL THEN
1027: OPEN C_Get_PrAddr (l_party_id);
1028: FETCH C_Get_PrAddr INTO x_party_site_id;
1029: CLOSE C_Get_PrAddr;
1030:
1031: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1032: aso_debug_pub.add('Function Get_QuoteAddress Cursor C_Get_PrAddr Identifying Address '||
1033: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1034: END IF;
1035:
1028: FETCH C_Get_PrAddr INTO x_party_site_id;
1029: CLOSE C_Get_PrAddr;
1030:
1031: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1032: aso_debug_pub.add('Function Get_QuoteAddress Cursor C_Get_PrAddr Identifying Address '||
1033: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1034: END IF;
1035:
1036: END IF;
1041: OPEN C_Use_Exists (l_cust_party_id);
1042: FETCH C_Use_Exists INTO x_party_site_id;
1043: CLOSE C_Use_Exists;
1044:
1045: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1046: aso_debug_pub.add('Function Get_QuoteAddress Cursor C_Use_Exists Primary Address ' ||
1047: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1048: END IF;
1049:
1042: FETCH C_Use_Exists INTO x_party_site_id;
1043: CLOSE C_Use_Exists;
1044:
1045: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1046: aso_debug_pub.add('Function Get_QuoteAddress Cursor C_Use_Exists Primary Address ' ||
1047: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1048: END IF;
1049:
1050: IF x_party_site_id IS NULL THEN
1053: OPEN C_Get_PrAddr (l_cust_party_id);
1054: FETCH C_Get_PrAddr INTO x_party_site_id;
1055: CLOSE C_Get_PrAddr;
1056:
1057: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1058: aso_debug_pub.add('Function Get_QuoteAddress Cursor C_Get_PrAddr Identifying '||
1059: ' Address x_party_site_id :' ||x_party_site_id ,1,'N');
1060: END IF;
1061: END IF; -- if x_party_site_id IS NULL
1054: FETCH C_Get_PrAddr INTO x_party_site_id;
1055: CLOSE C_Get_PrAddr;
1056:
1057: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1058: aso_debug_pub.add('Function Get_QuoteAddress Cursor C_Get_PrAddr Identifying '||
1059: ' Address x_party_site_id :' ||x_party_site_id ,1,'N');
1060: END IF;
1061: END IF; -- if x_party_site_id IS NULL
1062:
1064:
1065: END IF;
1066:
1067: END IF;
1068: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1069: aso_debug_pub.add('Function Get_QuoteAddress Party_Site_ID :' || x_party_site_id ,1,'N');
1070: END IF;
1071:
1072: RETURN x_party_site_id;
1065: END IF;
1066:
1067: END IF;
1068: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1069: aso_debug_pub.add('Function Get_QuoteAddress Party_Site_ID :' || x_party_site_id ,1,'N');
1070: END IF;
1071:
1072: RETURN x_party_site_id;
1073:
1072: RETURN x_party_site_id;
1073:
1074: EXCEPTION
1075: WHEN NO_DATA_FOUND THEN
1076: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1077: aso_debug_pub.add('Function Get_QuoteAddress NO_DATA_FOUND Exception Occurs :',1,'N');
1078: END IF;
1079:
1080: RETURN NULL;
1073:
1074: EXCEPTION
1075: WHEN NO_DATA_FOUND THEN
1076: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1077: aso_debug_pub.add('Function Get_QuoteAddress NO_DATA_FOUND Exception Occurs :',1,'N');
1078: END IF;
1079:
1080: RETURN NULL;
1081: WHEN OTHERS THEN
1078: END IF;
1079:
1080: RETURN NULL;
1081: WHEN OTHERS THEN
1082: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1083: aso_debug_pub.add('Function Get_QuoteAddress Inside When Others Exception',1,'N');
1084: END IF;
1085:
1086: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1079:
1080: RETURN NULL;
1081: WHEN OTHERS THEN
1082: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1083: aso_debug_pub.add('Function Get_QuoteAddress Inside When Others Exception',1,'N');
1084: END IF;
1085:
1086: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1087: OE_MSG_PUB.Add_Exc_Msg
1128: l_party_id NUMBER;
1129: x_party_site_id NUMBER;
1130:
1131: BEGIN
1132: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1133: aso_debug_pub.add('Function Get_BillAddress --- Begin : ',1,'N');
1134: END IF;
1135:
1136: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' THEN
1129: x_party_site_id NUMBER;
1130:
1131: BEGIN
1132: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1133: aso_debug_pub.add('Function Get_BillAddress --- Begin : ',1,'N');
1134: END IF;
1135:
1136: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' THEN
1137: --l_cust_party_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_cust_party_id;
1138: l_cust_party_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_INV_TO_CUST_PTY_ID ;
1139: --l_party_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_party_id;
1140: l_party_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_INV_TO_PTY_ID ;
1141:
1142: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1143: aso_debug_pub.add('Function Get_BillAddress Database Object ASO_AK_QUOTE_HEADER_V '||
1144: ' l_cust_party_id :' || l_cust_party_id ,1,'N');
1145: aso_debug_pub.add('Function Get_BillAddress Database Object ASO_AK_QUOTE_HEADER_V '||
1146: ' l_party_id :' || l_party_id ,1,'N');
1139: --l_party_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_party_id;
1140: l_party_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_INV_TO_PTY_ID ;
1141:
1142: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1143: aso_debug_pub.add('Function Get_BillAddress Database Object ASO_AK_QUOTE_HEADER_V '||
1144: ' l_cust_party_id :' || l_cust_party_id ,1,'N');
1145: aso_debug_pub.add('Function Get_BillAddress Database Object ASO_AK_QUOTE_HEADER_V '||
1146: ' l_party_id :' || l_party_id ,1,'N');
1147: END IF;
1141:
1142: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1143: aso_debug_pub.add('Function Get_BillAddress Database Object ASO_AK_QUOTE_HEADER_V '||
1144: ' l_cust_party_id :' || l_cust_party_id ,1,'N');
1145: aso_debug_pub.add('Function Get_BillAddress Database Object ASO_AK_QUOTE_HEADER_V '||
1146: ' l_party_id :' || l_party_id ,1,'N');
1147: END IF;
1148:
1149: ELSIF p_database_object_name='ASO_AK_QUOTE_OPPTY_V' THEN
1151: --l_party_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_party_id;
1152: l_cust_party_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_oppty_cust_party_id;
1153: l_party_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_oppty_sld_to_cont_id;
1154:
1155: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1156: aso_debug_pub.add('Function Get_BillAddress Database Object ASO_AK_QUOTE_OPPTY_V '||
1157: ' l_cust_party_id :' || l_cust_party_id ,1,'N');
1158: aso_debug_pub.add('Function Get_BillAddress Database Object ASO_AK_QUOTE_OPPTY_V '||
1159: ' l_party_id :' || l_party_id ,1,'N');
1152: l_cust_party_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_oppty_cust_party_id;
1153: l_party_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_oppty_sld_to_cont_id;
1154:
1155: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1156: aso_debug_pub.add('Function Get_BillAddress Database Object ASO_AK_QUOTE_OPPTY_V '||
1157: ' l_cust_party_id :' || l_cust_party_id ,1,'N');
1158: aso_debug_pub.add('Function Get_BillAddress Database Object ASO_AK_QUOTE_OPPTY_V '||
1159: ' l_party_id :' || l_party_id ,1,'N');
1160: END IF;
1154:
1155: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1156: aso_debug_pub.add('Function Get_BillAddress Database Object ASO_AK_QUOTE_OPPTY_V '||
1157: ' l_cust_party_id :' || l_cust_party_id ,1,'N');
1158: aso_debug_pub.add('Function Get_BillAddress Database Object ASO_AK_QUOTE_OPPTY_V '||
1159: ' l_party_id :' || l_party_id ,1,'N');
1160: END IF;
1161:
1162: END IF;
1163:
1164: OPEN C_Get_Type (l_cust_party_id);
1165: FETCH C_Get_Type INTO l_cust_party_type;
1166: CLOSE C_Get_Type;
1167: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1168: aso_debug_pub.add('Function Get_BillAddress Cursor C_Get_Type l_cust_party_type :'||
1169: l_cust_party_type,1,'N');
1170: END IF;
1171: /* if Party Type is PERSON */
1164: OPEN C_Get_Type (l_cust_party_id);
1165: FETCH C_Get_Type INTO l_cust_party_type;
1166: CLOSE C_Get_Type;
1167: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1168: aso_debug_pub.add('Function Get_BillAddress Cursor C_Get_Type l_cust_party_type :'||
1169: l_cust_party_type,1,'N');
1170: END IF;
1171: /* if Party Type is PERSON */
1172: IF l_cust_party_type = 'PERSON' THEN
1169: l_cust_party_type,1,'N');
1170: END IF;
1171: /* if Party Type is PERSON */
1172: IF l_cust_party_type = 'PERSON' THEN
1173: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1174: aso_debug_pub.add('Function Get_BillAddress IF l_cust_party_type is PERSON :',1,'N');
1175: END IF;
1176: /* Get Primary Bill To Address for Bill to Customer */
1177: OPEN C_Use_Exists (l_cust_party_id);
1170: END IF;
1171: /* if Party Type is PERSON */
1172: IF l_cust_party_type = 'PERSON' THEN
1173: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1174: aso_debug_pub.add('Function Get_BillAddress IF l_cust_party_type is PERSON :',1,'N');
1175: END IF;
1176: /* Get Primary Bill To Address for Bill to Customer */
1177: OPEN C_Use_Exists (l_cust_party_id);
1178: FETCH C_Use_Exists INTO x_party_site_id;
1177: OPEN C_Use_Exists (l_cust_party_id);
1178: FETCH C_Use_Exists INTO x_party_site_id;
1179: CLOSE C_Use_Exists;
1180:
1181: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1182: aso_debug_pub.add('Function Get_BillAddress Cursor C_Use_Exists Primary Address ' ||
1183: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1184: END IF;
1185:
1178: FETCH C_Use_Exists INTO x_party_site_id;
1179: CLOSE C_Use_Exists;
1180:
1181: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1182: aso_debug_pub.add('Function Get_BillAddress Cursor C_Use_Exists Primary Address ' ||
1183: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1184: END IF;
1185:
1186: IF x_party_site_id IS NULL THEN
1188: OPEN C_Get_PrAddr (l_cust_party_id);
1189: FETCH C_Get_PrAddr INTO x_party_site_id;
1190: CLOSE C_Get_PrAddr;
1191:
1192: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1193: aso_debug_pub.add('Function Get_BillAddress Cursor C_Get_PrAddr Identifying Address'||
1194: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1195: END IF;
1196:
1189: FETCH C_Get_PrAddr INTO x_party_site_id;
1190: CLOSE C_Get_PrAddr;
1191:
1192: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1193: aso_debug_pub.add('Function Get_BillAddress Cursor C_Get_PrAddr Identifying Address'||
1194: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1195: END IF;
1196:
1197: END IF;
1198:
1199: ELSE
1200: /* if Party Type is ORGANIZATION */
1201:
1202: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1203: aso_debug_pub.add('Function Get_BillAddress IF l_cust_party_type is Organization :',1,'N');
1204: END IF;
1205: IF nvl(l_party_id,l_cust_party_id) = l_cust_party_id THEN
1206:
1199: ELSE
1200: /* if Party Type is ORGANIZATION */
1201:
1202: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1203: aso_debug_pub.add('Function Get_BillAddress IF l_cust_party_type is Organization :',1,'N');
1204: END IF;
1205: IF nvl(l_party_id,l_cust_party_id) = l_cust_party_id THEN
1206:
1207: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1203: aso_debug_pub.add('Function Get_BillAddress IF l_cust_party_type is Organization :',1,'N');
1204: END IF;
1205: IF nvl(l_party_id,l_cust_party_id) = l_cust_party_id THEN
1206:
1207: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1208: aso_debug_pub.add('Function Get_BillAddress IF l_cust_party_type is ORGANIZATION '||
1209: ' and Contact is not Specified :',1,'N');
1210: END IF;
1211: /* Get Primary Bill To Address for Bill to Customer */
1204: END IF;
1205: IF nvl(l_party_id,l_cust_party_id) = l_cust_party_id THEN
1206:
1207: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1208: aso_debug_pub.add('Function Get_BillAddress IF l_cust_party_type is ORGANIZATION '||
1209: ' and Contact is not Specified :',1,'N');
1210: END IF;
1211: /* Get Primary Bill To Address for Bill to Customer */
1212: OPEN C_Use_Exists (l_cust_party_id);
1212: OPEN C_Use_Exists (l_cust_party_id);
1213: FETCH C_Use_Exists INTO x_party_site_id;
1214: CLOSE C_Use_Exists;
1215:
1216: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1217: aso_debug_pub.add('Function Get_BillAddress Cursor C_Use_Exists Primary Address ' ||
1218: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1219: END IF;
1220:
1213: FETCH C_Use_Exists INTO x_party_site_id;
1214: CLOSE C_Use_Exists;
1215:
1216: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1217: aso_debug_pub.add('Function Get_BillAddress Cursor C_Use_Exists Primary Address ' ||
1218: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1219: END IF;
1220:
1221: IF x_party_site_id IS NULL THEN
1224: OPEN C_Get_PrAddr (l_cust_party_id);
1225: FETCH C_Get_PrAddr INTO x_party_site_id;
1226: CLOSE C_Get_PrAddr;
1227:
1228: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1229: aso_debug_pub.add('Function Get_BillAddress Cursor C_Get_PrAddr Identifying Address'||
1230: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1231: END IF;
1232:
1225: FETCH C_Get_PrAddr INTO x_party_site_id;
1226: CLOSE C_Get_PrAddr;
1227:
1228: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1229: aso_debug_pub.add('Function Get_BillAddress Cursor C_Get_PrAddr Identifying Address'||
1230: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1231: END IF;
1232:
1233: END IF;
1233: END IF;
1234:
1235: ELSIF l_party_id <> l_cust_party_id THEN
1236:
1237: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1238: aso_debug_pub.add('Function Get_BillAddress IF l_cust_party_type is ORGANIZATION '||
1239: ' and Contact is Specified :',1,'N');
1240: END IF;
1241:
1234:
1235: ELSIF l_party_id <> l_cust_party_id THEN
1236:
1237: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1238: aso_debug_pub.add('Function Get_BillAddress IF l_cust_party_type is ORGANIZATION '||
1239: ' and Contact is Specified :',1,'N');
1240: END IF;
1241:
1242: /* Get Primary Bill To Address for Bill to Customer */
1243: OPEN C_Use_Exists (l_party_id);
1244: FETCH C_Use_Exists INTO x_party_site_id;
1245: CLOSE C_Use_Exists;
1246:
1247: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1248: aso_debug_pub.add('Function Get_BillAddress Cursor C_Use_Exists Primary Address ' ||
1249: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1250: END IF;
1251:
1244: FETCH C_Use_Exists INTO x_party_site_id;
1245: CLOSE C_Use_Exists;
1246:
1247: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1248: aso_debug_pub.add('Function Get_BillAddress Cursor C_Use_Exists Primary Address ' ||
1249: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1250: END IF;
1251:
1252: IF x_party_site_id IS NULL THEN
1255: OPEN C_Get_PrAddr (l_party_id);
1256: FETCH C_Get_PrAddr INTO x_party_site_id;
1257: CLOSE C_Get_PrAddr;
1258:
1259: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1260: aso_debug_pub.add('Function Get_BillAddress Cursor C_Get_PrAddr Identifying Address'||
1261: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1262: END IF;
1263: END IF;
1256: FETCH C_Get_PrAddr INTO x_party_site_id;
1257: CLOSE C_Get_PrAddr;
1258:
1259: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1260: aso_debug_pub.add('Function Get_BillAddress Cursor C_Get_PrAddr Identifying Address'||
1261: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1262: END IF;
1263: END IF;
1264:
1267: OPEN C_Use_Exists (l_cust_party_id);
1268: FETCH C_Use_Exists INTO x_party_site_id;
1269: CLOSE C_Use_Exists;
1270:
1271: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1272: aso_debug_pub.add('Function Get_BillAddress Cursor C_Use_Exists Primary Address ' ||
1273: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1274: END IF;
1275: IF x_party_site_id IS NULL THEN
1268: FETCH C_Use_Exists INTO x_party_site_id;
1269: CLOSE C_Use_Exists;
1270:
1271: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1272: aso_debug_pub.add('Function Get_BillAddress Cursor C_Use_Exists Primary Address ' ||
1273: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1274: END IF;
1275: IF x_party_site_id IS NULL THEN
1276: /* Get Identifying Address for Bill to Customer */
1278: OPEN C_Get_PrAddr (l_cust_party_id);
1279: FETCH C_Get_PrAddr INTO x_party_site_id;
1280: CLOSE C_Get_PrAddr;
1281:
1282: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1283: aso_debug_pub.add('Function Get_BillAddress Cursor C_Get_PrAddr Identifying Address'||
1284: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1285: END IF;
1286:
1279: FETCH C_Get_PrAddr INTO x_party_site_id;
1280: CLOSE C_Get_PrAddr;
1281:
1282: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1283: aso_debug_pub.add('Function Get_BillAddress Cursor C_Get_PrAddr Identifying Address'||
1284: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1285: END IF;
1286:
1287: END IF;
1291:
1292: END IF;
1293:
1294: END IF;
1295: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1296: aso_debug_pub.add('Function Get_BillAddress Party_Site_ID Returned :'||x_party_site_id ,1,'N');
1297: END IF;
1298:
1299: RETURN x_party_site_id;
1292: END IF;
1293:
1294: END IF;
1295: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1296: aso_debug_pub.add('Function Get_BillAddress Party_Site_ID Returned :'||x_party_site_id ,1,'N');
1297: END IF;
1298:
1299: RETURN x_party_site_id;
1300:
1299: RETURN x_party_site_id;
1300:
1301: EXCEPTION
1302: WHEN NO_DATA_FOUND THEN
1303: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1304: aso_debug_pub.add('Function Get_BillAddress NO_DATA_FOUND Exception Occurs',1,'N');
1305: END IF;
1306:
1307: RETURN NULL;
1300:
1301: EXCEPTION
1302: WHEN NO_DATA_FOUND THEN
1303: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1304: aso_debug_pub.add('Function Get_BillAddress NO_DATA_FOUND Exception Occurs',1,'N');
1305: END IF;
1306:
1307: RETURN NULL;
1308: WHEN OTHERS THEN
1305: END IF;
1306:
1307: RETURN NULL;
1308: WHEN OTHERS THEN
1309: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1310: aso_debug_pub.add('Function Get_BillAddress Inside When Others Exception',1,'N');
1311: END IF;
1312: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1313: THEN
1306:
1307: RETURN NULL;
1308: WHEN OTHERS THEN
1309: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1310: aso_debug_pub.add('Function Get_BillAddress Inside When Others Exception',1,'N');
1311: END IF;
1312: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1313: THEN
1314: OE_MSG_PUB.Add_Exc_Msg
1355: l_party_id NUMBER;
1356: x_party_site_id NUMBER;
1357:
1358: BEGIN
1359: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1360: aso_debug_pub.add('Function Get_ShipAddress --- Begin : ',1,'N');
1361: END IF;
1362:
1363: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' THEN
1356: x_party_site_id NUMBER;
1357:
1358: BEGIN
1359: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1360: aso_debug_pub.add('Function Get_ShipAddress --- Begin : ',1,'N');
1361: END IF;
1362:
1363: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' THEN
1364:
1375: l_party_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_SHIP_TO_PARTY_ID;
1376:
1377: -- End of code for Bug - 5763528
1378:
1379: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1380: aso_debug_pub.add('Function Get_ShipAddress Database Object ASO_AK_QUOTE_HEADER_V '||
1381: ' l_cust_party_id :' || l_cust_party_id ,1,'N');
1382: aso_debug_pub.add('Function Get_ShipAddress Database Object ASO_AK_QUOTE_HEADER_V '||
1383: ' l_party_id :' || l_party_id ,1,'N');
1376:
1377: -- End of code for Bug - 5763528
1378:
1379: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1380: aso_debug_pub.add('Function Get_ShipAddress Database Object ASO_AK_QUOTE_HEADER_V '||
1381: ' l_cust_party_id :' || l_cust_party_id ,1,'N');
1382: aso_debug_pub.add('Function Get_ShipAddress Database Object ASO_AK_QUOTE_HEADER_V '||
1383: ' l_party_id :' || l_party_id ,1,'N');
1384: END IF;
1378:
1379: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1380: aso_debug_pub.add('Function Get_ShipAddress Database Object ASO_AK_QUOTE_HEADER_V '||
1381: ' l_cust_party_id :' || l_cust_party_id ,1,'N');
1382: aso_debug_pub.add('Function Get_ShipAddress Database Object ASO_AK_QUOTE_HEADER_V '||
1383: ' l_party_id :' || l_party_id ,1,'N');
1384: END IF;
1385:
1386: ELSIF p_database_object_name='ASO_AK_QUOTE_OPPTY_V' THEN
1388: --l_party_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_party_id;
1389: l_cust_party_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_oppty_cust_party_id;
1390: l_party_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_oppty_sld_to_cont_id;
1391:
1392: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1393: aso_debug_pub.add('Function Get_ShipAddress Database Object ASO_AK_QUOTE_OPPTY_V '||
1394: ' l_cust_party_id :' || l_cust_party_id ,1,'N');
1395: aso_debug_pub.add('Function Get_ShipAddress Database Object ASO_AK_QUOTE_OPPTY_V '||
1396: ' l_party_id :' || l_party_id ,1,'N');
1389: l_cust_party_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_oppty_cust_party_id;
1390: l_party_id := ASO_QUOTE_OPPTY_DEF_HDLR.g_record.o_oppty_sld_to_cont_id;
1391:
1392: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1393: aso_debug_pub.add('Function Get_ShipAddress Database Object ASO_AK_QUOTE_OPPTY_V '||
1394: ' l_cust_party_id :' || l_cust_party_id ,1,'N');
1395: aso_debug_pub.add('Function Get_ShipAddress Database Object ASO_AK_QUOTE_OPPTY_V '||
1396: ' l_party_id :' || l_party_id ,1,'N');
1397: END IF;
1391:
1392: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1393: aso_debug_pub.add('Function Get_ShipAddress Database Object ASO_AK_QUOTE_OPPTY_V '||
1394: ' l_cust_party_id :' || l_cust_party_id ,1,'N');
1395: aso_debug_pub.add('Function Get_ShipAddress Database Object ASO_AK_QUOTE_OPPTY_V '||
1396: ' l_party_id :' || l_party_id ,1,'N');
1397: END IF;
1398:
1399: END IF;
1400:
1401: OPEN C_Get_Type (l_cust_party_id);
1402: FETCH C_Get_Type INTO l_cust_party_type;
1403: CLOSE C_Get_Type;
1404: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1405: aso_debug_pub.add('Function Get_ShipAddress Cursor C_Get_Type l_cust_party_type :'||
1406: l_cust_party_type,1,'N');
1407: END IF;
1408: /* if party type is PERSON */
1401: OPEN C_Get_Type (l_cust_party_id);
1402: FETCH C_Get_Type INTO l_cust_party_type;
1403: CLOSE C_Get_Type;
1404: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1405: aso_debug_pub.add('Function Get_ShipAddress Cursor C_Get_Type l_cust_party_type :'||
1406: l_cust_party_type,1,'N');
1407: END IF;
1408: /* if party type is PERSON */
1409: IF l_cust_party_type = 'PERSON' THEN
1406: l_cust_party_type,1,'N');
1407: END IF;
1408: /* if party type is PERSON */
1409: IF l_cust_party_type = 'PERSON' THEN
1410: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1411: aso_debug_pub.add('Function Get_ShipAddress IF l_cust_party_type is PERSON :',1,'N');
1412: END IF;
1413: /* Get Primary Ship To Address for Ship to Customer */
1414: OPEN C_Use_Exists (l_cust_party_id);
1407: END IF;
1408: /* if party type is PERSON */
1409: IF l_cust_party_type = 'PERSON' THEN
1410: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1411: aso_debug_pub.add('Function Get_ShipAddress IF l_cust_party_type is PERSON :',1,'N');
1412: END IF;
1413: /* Get Primary Ship To Address for Ship to Customer */
1414: OPEN C_Use_Exists (l_cust_party_id);
1415: FETCH C_Use_Exists INTO x_party_site_id;
1414: OPEN C_Use_Exists (l_cust_party_id);
1415: FETCH C_Use_Exists INTO x_party_site_id;
1416: CLOSE C_Use_Exists;
1417:
1418: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1419: aso_debug_pub.add('Function Get_ShipAddress Cursor C_Use_Exists Primary Address ' ||
1420: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1421: END IF;
1422: IF x_party_site_id IS NULL THEN
1415: FETCH C_Use_Exists INTO x_party_site_id;
1416: CLOSE C_Use_Exists;
1417:
1418: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1419: aso_debug_pub.add('Function Get_ShipAddress Cursor C_Use_Exists Primary Address ' ||
1420: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1421: END IF;
1422: IF x_party_site_id IS NULL THEN
1423: /* Get Identifying Address for SHIP to Customer */
1424: OPEN C_Get_PrAddr (l_cust_party_id);
1425: FETCH C_Get_PrAddr INTO x_party_site_id;
1426: CLOSE C_Get_PrAddr;
1427:
1428: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1429: aso_debug_pub.add('Function Get_ShipAddress Cursor C_Get_PrAddr Identifying Address'||
1430: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1431: END IF;
1432: END IF;
1425: FETCH C_Get_PrAddr INTO x_party_site_id;
1426: CLOSE C_Get_PrAddr;
1427:
1428: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1429: aso_debug_pub.add('Function Get_ShipAddress Cursor C_Get_PrAddr Identifying Address'||
1430: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1431: END IF;
1432: END IF;
1433:
1432: END IF;
1433:
1434: ELSE
1435: /* IF Party type is ORGANIZATION */
1436: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1437: aso_debug_pub.add('Function Get_ShipAddress IF l_cust_party_type is ORGANIZATION :',1,'N');
1438: END IF;
1439: IF nvl(l_party_id,l_cust_party_id) = l_cust_party_id THEN
1440: /* If Organization Contact IS NOT Specified */
1433:
1434: ELSE
1435: /* IF Party type is ORGANIZATION */
1436: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1437: aso_debug_pub.add('Function Get_ShipAddress IF l_cust_party_type is ORGANIZATION :',1,'N');
1438: END IF;
1439: IF nvl(l_party_id,l_cust_party_id) = l_cust_party_id THEN
1440: /* If Organization Contact IS NOT Specified */
1441: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1437: aso_debug_pub.add('Function Get_ShipAddress IF l_cust_party_type is ORGANIZATION :',1,'N');
1438: END IF;
1439: IF nvl(l_party_id,l_cust_party_id) = l_cust_party_id THEN
1440: /* If Organization Contact IS NOT Specified */
1441: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1442: aso_debug_pub.add('Function Get_ShipAddress IF l_cust_party_type is ORGANIZATION '||
1443: ' and Contact is not Specified :',1,'N');
1444: END IF;
1445: /* Get Primary Ship To Address for Ship to Customer */
1438: END IF;
1439: IF nvl(l_party_id,l_cust_party_id) = l_cust_party_id THEN
1440: /* If Organization Contact IS NOT Specified */
1441: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1442: aso_debug_pub.add('Function Get_ShipAddress IF l_cust_party_type is ORGANIZATION '||
1443: ' and Contact is not Specified :',1,'N');
1444: END IF;
1445: /* Get Primary Ship To Address for Ship to Customer */
1446: OPEN C_Use_Exists (l_cust_party_id);
1446: OPEN C_Use_Exists (l_cust_party_id);
1447: FETCH C_Use_Exists INTO x_party_site_id;
1448: CLOSE C_Use_Exists;
1449:
1450: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1451: aso_debug_pub.add('Function Get_ShipAddress Cursor C_Use_Exists Primary Address ' ||
1452: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1453: END IF;
1454:
1447: FETCH C_Use_Exists INTO x_party_site_id;
1448: CLOSE C_Use_Exists;
1449:
1450: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1451: aso_debug_pub.add('Function Get_ShipAddress Cursor C_Use_Exists Primary Address ' ||
1452: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1453: END IF;
1454:
1455: IF x_party_site_id IS NULL THEN
1457: OPEN C_Get_PrAddr (l_cust_party_id);
1458: FETCH C_Get_PrAddr INTO x_party_site_id;
1459: CLOSE C_Get_PrAddr;
1460:
1461: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1462: aso_debug_pub.add('Function Get_ShipAddress Cursor C_Get_PrAddr Identifying Address'||
1463: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1464: END IF;
1465:
1458: FETCH C_Get_PrAddr INTO x_party_site_id;
1459: CLOSE C_Get_PrAddr;
1460:
1461: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1462: aso_debug_pub.add('Function Get_ShipAddress Cursor C_Get_PrAddr Identifying Address'||
1463: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1464: END IF;
1465:
1466: END IF;
1466: END IF;
1467:
1468: ELSIF l_party_id <> l_cust_party_id THEN
1469: /* IF Organization Contact is Specified */
1470: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1471: aso_debug_pub.add('Function Get_ShipAddress IF l_cust_party_type is ORGANIZATION '||
1472: ' and Contact is Specified :',1,'N');
1473: END IF;
1474: /* Get Primary Ship To Address for Ship to Customer */
1467:
1468: ELSIF l_party_id <> l_cust_party_id THEN
1469: /* IF Organization Contact is Specified */
1470: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1471: aso_debug_pub.add('Function Get_ShipAddress IF l_cust_party_type is ORGANIZATION '||
1472: ' and Contact is Specified :',1,'N');
1473: END IF;
1474: /* Get Primary Ship To Address for Ship to Customer */
1475: OPEN C_Use_Exists (l_party_id);
1475: OPEN C_Use_Exists (l_party_id);
1476: FETCH C_Use_Exists INTO x_party_site_id;
1477: CLOSE C_Use_Exists;
1478:
1479: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1480: aso_debug_pub.add('Function Get_ShipAddress Cursor C_Use_Exists Primary Address ' ||
1481: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1482: END IF;
1483:
1476: FETCH C_Use_Exists INTO x_party_site_id;
1477: CLOSE C_Use_Exists;
1478:
1479: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1480: aso_debug_pub.add('Function Get_ShipAddress Cursor C_Use_Exists Primary Address ' ||
1481: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1482: END IF;
1483:
1484: IF x_party_site_id IS NULL THEN
1486: OPEN C_Get_PrAddr (l_party_id);
1487: FETCH C_Get_PrAddr INTO x_party_site_id;
1488: CLOSE C_Get_PrAddr;
1489:
1490: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1491: aso_debug_pub.add('Function Get_ShipAddress Cursor C_Get_PrAddr Identifying Address'||
1492: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1493: END IF;
1494:
1487: FETCH C_Get_PrAddr INTO x_party_site_id;
1488: CLOSE C_Get_PrAddr;
1489:
1490: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1491: aso_debug_pub.add('Function Get_ShipAddress Cursor C_Get_PrAddr Identifying Address'||
1492: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1493: END IF;
1494:
1495: END IF;
1499: OPEN C_Use_Exists (l_cust_party_id);
1500: FETCH C_Use_Exists INTO x_party_site_id;
1501: CLOSE C_Use_Exists;
1502:
1503: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1504: aso_debug_pub.add('Function Get_ShipAddress Cursor C_Use_Exists Primary Address ' ||
1505: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1506: END IF;
1507:
1500: FETCH C_Use_Exists INTO x_party_site_id;
1501: CLOSE C_Use_Exists;
1502:
1503: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1504: aso_debug_pub.add('Function Get_ShipAddress Cursor C_Use_Exists Primary Address ' ||
1505: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1506: END IF;
1507:
1508: IF x_party_site_id IS NULL THEN
1510: OPEN C_Get_PrAddr (l_cust_party_id);
1511: FETCH C_Get_PrAddr INTO x_party_site_id;
1512: CLOSE C_Get_PrAddr;
1513:
1514: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1515: aso_debug_pub.add('Function Get_ShipAddress Cursor C_Get_PrAddr Identifying Address'||
1516: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1517: END IF;
1518:
1511: FETCH C_Get_PrAddr INTO x_party_site_id;
1512: CLOSE C_Get_PrAddr;
1513:
1514: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1515: aso_debug_pub.add('Function Get_ShipAddress Cursor C_Get_PrAddr Identifying Address'||
1516: ' x_party_site_id :' ||x_party_site_id ,1,'N');
1517: END IF;
1518:
1519: END IF;
1523:
1524: END IF;
1525:
1526: END IF;
1527: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1528: aso_debug_pub.add('Function Get_ShipAddress Party_Site_ID Returned : '||x_party_site_id,1,'N');
1529: END IF;
1530:
1531: RETURN x_party_site_id;
1524: END IF;
1525:
1526: END IF;
1527: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1528: aso_debug_pub.add('Function Get_ShipAddress Party_Site_ID Returned : '||x_party_site_id,1,'N');
1529: END IF;
1530:
1531: RETURN x_party_site_id;
1532:
1531: RETURN x_party_site_id;
1532:
1533: EXCEPTION
1534: WHEN NO_DATA_FOUND THEN
1535: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1536: aso_debug_pub.add('Function Get_ShipAddress NO_DATA_FOUND Exception Occurs',1,'N');
1537: END IF;
1538:
1539: RETURN NULL;
1532:
1533: EXCEPTION
1534: WHEN NO_DATA_FOUND THEN
1535: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1536: aso_debug_pub.add('Function Get_ShipAddress NO_DATA_FOUND Exception Occurs',1,'N');
1537: END IF;
1538:
1539: RETURN NULL;
1540: WHEN OTHERS THEN
1537: END IF;
1538:
1539: RETURN NULL;
1540: WHEN OTHERS THEN
1541: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1542: aso_debug_pub.add('Function Get_ShipAddress Inside When Others Exception',1,'N');
1543: END IF;
1544: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1545: THEN
1538:
1539: RETURN NULL;
1540: WHEN OTHERS THEN
1541: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1542: aso_debug_pub.add('Function Get_ShipAddress Inside When Others Exception',1,'N');
1543: END IF;
1544: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1545: THEN
1546: OE_MSG_PUB.Add_Exc_Msg
1597: l_org_id NUMBER;
1598: BEGIN
1599:
1600: If NVL(FND_PROFILE.VALUE('ASO_AUTO_TEAM_ASSIGN'),'NONE') <> 'NONE' Then
1601: aso_debug_pub.add('Function Get_SalesGroup_From_Salesrep -- Automatic Team Assign'||fnd_profile.value('ASO_AUTO_TEAM_ASSIGN'),1,'N');
1602: return null;
1603: End If;
1604:
1605: IF p_database_object_name = 'ASO_AK_QUOTE_HEADER_V' THEN
1630:
1631: EXCEPTION
1632:
1633: WHEN NO_DATA_FOUND THEN
1634: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1635: aso_debug_pub.add('Function Get_SalesGroup_From_Salesrep NO_DATA_FOUND Exception Occurs',1,'N');
1636: END IF;
1637:
1638: RETURN NULL;
1631: EXCEPTION
1632:
1633: WHEN NO_DATA_FOUND THEN
1634: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1635: aso_debug_pub.add('Function Get_SalesGroup_From_Salesrep NO_DATA_FOUND Exception Occurs',1,'N');
1636: END IF;
1637:
1638: RETURN NULL;
1639:
1637:
1638: RETURN NULL;
1639:
1640: WHEN OTHERS THEN
1641: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1642: aso_debug_pub.add('Function Get_SalesGroup_From_Salesrep Inside When Others Exception',1,'N');
1643: END IF;
1644:
1645: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1638: RETURN NULL;
1639:
1640: WHEN OTHERS THEN
1641: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1642: aso_debug_pub.add('Function Get_SalesGroup_From_Salesrep Inside When Others Exception',1,'N');
1643: END IF;
1644:
1645: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1646: THEN
1663: l_salesgroup_id NUMBER;
1664:
1665: BEGIN
1666:
1667: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1668: aso_debug_pub.add('Function Get_SalesGroup_From_Profile -- Begin :',1,'N');
1669: END IF;
1670:
1671: If NVL(FND_PROFILE.VALUE('ASO_AUTO_TEAM_ASSIGN'),'NONE') <> 'NONE' Then
1664:
1665: BEGIN
1666:
1667: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1668: aso_debug_pub.add('Function Get_SalesGroup_From_Profile -- Begin :',1,'N');
1669: END IF;
1670:
1671: If NVL(FND_PROFILE.VALUE('ASO_AUTO_TEAM_ASSIGN'),'NONE') <> 'NONE' Then
1672: aso_debug_pub.add('Function Get_SalesGroup_From_Profile -- Automatic Team Assign'||fnd_profile.value('ASO_AUTO_TEAM_ASSIGN'),1,'N');
1668: aso_debug_pub.add('Function Get_SalesGroup_From_Profile -- Begin :',1,'N');
1669: END IF;
1670:
1671: If NVL(FND_PROFILE.VALUE('ASO_AUTO_TEAM_ASSIGN'),'NONE') <> 'NONE' Then
1672: aso_debug_pub.add('Function Get_SalesGroup_From_Profile -- Automatic Team Assign'||fnd_profile.value('ASO_AUTO_TEAM_ASSIGN'),1,'N');
1673: return null;
1674: End If;
1675:
1676: IF p_database_object_name = 'ASO_AK_QUOTE_HEADER_V' THEN
1680: END IF;
1681:
1682: l_salesgroup_id := aso_utility_pvt.get_ou_attribute_value(aso_utility_pvt.G_DEFAULT_SALES_GROUP,l_org_id);
1683:
1684: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1685: aso_debug_pub.add('Function Get_SalesGroup_From_Profile Sales Group Id :' ||l_salesgroup_id,1,'N');
1686: END IF;
1687:
1688: RETURN l_salesgroup_id;
1681:
1682: l_salesgroup_id := aso_utility_pvt.get_ou_attribute_value(aso_utility_pvt.G_DEFAULT_SALES_GROUP,l_org_id);
1683:
1684: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1685: aso_debug_pub.add('Function Get_SalesGroup_From_Profile Sales Group Id :' ||l_salesgroup_id,1,'N');
1686: END IF;
1687:
1688: RETURN l_salesgroup_id;
1689:
1689:
1690: EXCEPTION
1691:
1692: WHEN OTHERS THEN
1693: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1694: aso_debug_pub.add('Function Get_SalesGroup_From_Profile Inside When Others Exception',1,'N');
1695: END IF;
1696: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1697: THEN
1690: EXCEPTION
1691:
1692: WHEN OTHERS THEN
1693: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1694: aso_debug_pub.add('Function Get_SalesGroup_From_Profile Inside When Others Exception',1,'N');
1695: END IF;
1696: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1697: THEN
1698: OE_MSG_PUB.Add_Exc_Msg
1740: l_profile_salesrep_id NUMBER;
1741: l_org_id NUMBER;
1742:
1743: BEGIN
1744: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1745: aso_debug_pub.add('Function Get_SalesRep --- Begin :',1,'N');
1746: END IF;
1747:
1748: If NVL(FND_PROFILE.VALUE('ASO_AUTO_TEAM_ASSIGN'),'NONE') <> 'NONE' Then
1741: l_org_id NUMBER;
1742:
1743: BEGIN
1744: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1745: aso_debug_pub.add('Function Get_SalesRep --- Begin :',1,'N');
1746: END IF;
1747:
1748: If NVL(FND_PROFILE.VALUE('ASO_AUTO_TEAM_ASSIGN'),'NONE') <> 'NONE' Then
1749: aso_debug_pub.add('Function Get_SalesRep -- Automatic Team Assign'||fnd_profile.value('ASO_AUTO_TEAM_ASSIGN'),1,'N');
1745: aso_debug_pub.add('Function Get_SalesRep --- Begin :',1,'N');
1746: END IF;
1747:
1748: If NVL(FND_PROFILE.VALUE('ASO_AUTO_TEAM_ASSIGN'),'NONE') <> 'NONE' Then
1749: aso_debug_pub.add('Function Get_SalesRep -- Automatic Team Assign'||fnd_profile.value('ASO_AUTO_TEAM_ASSIGN'),1,'N');
1750: return null;
1751: End If;
1752:
1753: IF p_database_object_name = 'ASO_AK_QUOTE_HEADER_V' THEN
1759: IF l_org_id is null or l_org_id = FND_API.G_MISS_NUM THEN
1760: return null;
1761: END IF;
1762:
1763: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1764: aso_debug_pub.add('Function Get_SalesRep Database Object :'||p_database_object_name,1,'N');
1765: aso_debug_pub.add('Function Get_SalesRep ORG ID : '|| l_org_id,1,'N');
1766: END IF;
1767:
1760: return null;
1761: END IF;
1762:
1763: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1764: aso_debug_pub.add('Function Get_SalesRep Database Object :'||p_database_object_name,1,'N');
1765: aso_debug_pub.add('Function Get_SalesRep ORG ID : '|| l_org_id,1,'N');
1766: END IF;
1767:
1768: OPEN C_Get_Creator_Res(G_USER_ID);
1761: END IF;
1762:
1763: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1764: aso_debug_pub.add('Function Get_SalesRep Database Object :'||p_database_object_name,1,'N');
1765: aso_debug_pub.add('Function Get_SalesRep ORG ID : '|| l_org_id,1,'N');
1766: END IF;
1767:
1768: OPEN C_Get_Creator_Res(G_USER_ID);
1769: FETCH C_Get_Creator_Res INTO l_creator_res;
1768: OPEN C_Get_Creator_Res(G_USER_ID);
1769: FETCH C_Get_Creator_Res INTO l_creator_res;
1770: CLOSE C_Get_Creator_Res;
1771:
1772: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1773: aso_debug_pub.add('Function Get_SalesRep Cursor C_Get_Creator_Res: '||l_creator_res,1,'N');
1774: END IF;
1775:
1776: IF l_creator_res IS NOT NULL THEN
1769: FETCH C_Get_Creator_Res INTO l_creator_res;
1770: CLOSE C_Get_Creator_Res;
1771:
1772: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1773: aso_debug_pub.add('Function Get_SalesRep Cursor C_Get_Creator_Res: '||l_creator_res,1,'N');
1774: END IF;
1775:
1776: IF l_creator_res IS NOT NULL THEN
1777: OPEN C_Valid_SalesRep (l_creator_res);
1777: OPEN C_Valid_SalesRep (l_creator_res);
1778: FETCH C_Valid_SalesRep INTO l_valid;
1779: CLOSE C_Valid_SalesRep;
1780:
1781: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1782: aso_debug_pub.add('Function Get_SalesRep Cursor C_Valid_SalesRep: '||l_valid,1,'N');
1783: END IF;
1784: END IF;
1785:
1778: FETCH C_Valid_SalesRep INTO l_valid;
1779: CLOSE C_Valid_SalesRep;
1780:
1781: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1782: aso_debug_pub.add('Function Get_SalesRep Cursor C_Valid_SalesRep: '||l_valid,1,'N');
1783: END IF;
1784: END IF;
1785:
1786: IF (l_creator_res IS NULL OR l_valid <> 'Y') THEN --AND l_profile_salesrep_id IS NOT NULL THEN
1792:
1793: -- Passing Org id in the call - Girish 10/18/2005
1794: l_profile_salesrep_id := aso_utility_pvt.get_ou_attribute_value(l_default_salesrep, l_org_id);
1795:
1796: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1797: aso_debug_pub.add('Function Get_SalesRep l_profile_salesrep_id: '||l_profile_salesrep_id,1,'N');
1798: END IF;
1799:
1800: IF l_profile_salesrep_id IS NOT NULL THEN
1793: -- Passing Org id in the call - Girish 10/18/2005
1794: l_profile_salesrep_id := aso_utility_pvt.get_ou_attribute_value(l_default_salesrep, l_org_id);
1795:
1796: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1797: aso_debug_pub.add('Function Get_SalesRep l_profile_salesrep_id: '||l_profile_salesrep_id,1,'N');
1798: END IF;
1799:
1800: IF l_profile_salesrep_id IS NOT NULL THEN
1801: OPEN C_Get_Res_From_Srep (l_profile_salesrep_id);
1803: CLOSE C_Get_Res_From_Srep;
1804: END IF;
1805: END IF;
1806:
1807: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1808: aso_debug_pub.add('Function Get_SalesRep Returns: '||l_creator_res,1,'N');
1809: END IF;
1810:
1811: RETURN l_creator_res;
1804: END IF;
1805: END IF;
1806:
1807: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1808: aso_debug_pub.add('Function Get_SalesRep Returns: '||l_creator_res,1,'N');
1809: END IF;
1810:
1811: RETURN l_creator_res;
1812:
1811: RETURN l_creator_res;
1812:
1813: EXCEPTION
1814: WHEN NO_DATA_FOUND THEN
1815: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1816: aso_debug_pub.add('Function Get_SalesRep NO_DATA_FOUND Exception Occurs',1,'N');
1817: END IF;
1818:
1819: RETURN NULL;
1812:
1813: EXCEPTION
1814: WHEN NO_DATA_FOUND THEN
1815: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1816: aso_debug_pub.add('Function Get_SalesRep NO_DATA_FOUND Exception Occurs',1,'N');
1817: END IF;
1818:
1819: RETURN NULL;
1820:
1818:
1819: RETURN NULL;
1820:
1821: WHEN OTHERS THEN
1822: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1823: aso_debug_pub.add('Function Get_SalesRep Inside When Others Exception',1,'N');
1824: END IF;
1825: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1826: THEN
1819: RETURN NULL;
1820:
1821: WHEN OTHERS THEN
1822: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1823: aso_debug_pub.add('Function Get_SalesRep Inside When Others Exception',1,'N');
1824: END IF;
1825: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1826: THEN
1827: OE_MSG_PUB.Add_Exc_Msg
1847: l_price_list_id Number;
1848: l_currency_code C_currency_code%rowtype;
1849:
1850: Begin
1851: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1852: aso_debug_pub.add('Function Get_Currency_from_pricelist --- Begin : ',1,'N');
1853: END IF;
1854:
1855: IF p_database_object_name = 'ASO_AK_QUOTE_HEADER_V' THEN
1848: l_currency_code C_currency_code%rowtype;
1849:
1850: Begin
1851: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1852: aso_debug_pub.add('Function Get_Currency_from_pricelist --- Begin : ',1,'N');
1853: END IF;
1854:
1855: IF p_database_object_name = 'ASO_AK_QUOTE_HEADER_V' THEN
1856: l_price_list_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.q_price_list_id;
1864: open C_currency_code(l_price_list_id);
1865: fetch C_currency_code into l_currency_code;
1866: close C_Currency_code;
1867:
1868: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1869: aso_debug_pub.add('Function Get_Currency_from_pricelist Returns : '||l_currency_code.currency_code,1,'N');
1870: END IF;
1871:
1872: RETURN l_currency_code.currency_code;
1865: fetch C_currency_code into l_currency_code;
1866: close C_Currency_code;
1867:
1868: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1869: aso_debug_pub.add('Function Get_Currency_from_pricelist Returns : '||l_currency_code.currency_code,1,'N');
1870: END IF;
1871:
1872: RETURN l_currency_code.currency_code;
1873:
1876: WHEN NO_DATA_FOUND THEN
1877: RETURN NULL;
1878:
1879: WHEN OTHERS THEN
1880: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1881: aso_debug_pub.add('Function Get_Currency_from_pricelist Inside When Others Exception',1,'N');
1882: END IF;
1883: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1884: THEN
1877: RETURN NULL;
1878:
1879: WHEN OTHERS THEN
1880: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1881: aso_debug_pub.add('Function Get_Currency_from_pricelist Inside When Others Exception',1,'N');
1882: END IF;
1883: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1884: THEN
1885: OE_MSG_PUB.Add_Exc_Msg
1897: P_Attribute_Code IN VARCHAR2
1898: ) RETURN VARCHAR2
1899: Is
1900: Begin
1901: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1902: aso_debug_pub.add('Function Get_Currency_from_Profile --- Begin :',1,'N');
1903: END IF;
1904:
1905: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' OR
1898: ) RETURN VARCHAR2
1899: Is
1900: Begin
1901: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1902: aso_debug_pub.add('Function Get_Currency_from_Profile --- Begin :',1,'N');
1903: END IF;
1904:
1905: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' OR
1906: p_database_object_name = 'ASO_AK_QUOTE_OPPTY_V' THEN
1903: END IF;
1904:
1905: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' OR
1906: p_database_object_name = 'ASO_AK_QUOTE_OPPTY_V' THEN
1907: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1908: aso_debug_pub.add('Function Get_Currency_From_Profile Profile ICX_PREFERRED_CURRENCY : '||
1909: fnd_profile.Value('ICX_PREFERRED_CURRENCY') ,1,'N');
1910: END IF;
1911:
1904:
1905: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' OR
1906: p_database_object_name = 'ASO_AK_QUOTE_OPPTY_V' THEN
1907: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1908: aso_debug_pub.add('Function Get_Currency_From_Profile Profile ICX_PREFERRED_CURRENCY : '||
1909: fnd_profile.Value('ICX_PREFERRED_CURRENCY') ,1,'N');
1910: END IF;
1911:
1912: return FND_PROFILE.Value('ICX_PREFERRED_CURRENCY');
1912: return FND_PROFILE.Value('ICX_PREFERRED_CURRENCY');
1913: END IF;
1914: EXCEPTION
1915: WHEN NO_DATA_FOUND THEN
1916: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1917: aso_debug_pub.add('Function Get_Currency_from_Profile NO_DATA_FOUND Exception Occurs : ',1,'N');
1918: END IF;
1919:
1920: RETURN NULL;
1913: END IF;
1914: EXCEPTION
1915: WHEN NO_DATA_FOUND THEN
1916: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1917: aso_debug_pub.add('Function Get_Currency_from_Profile NO_DATA_FOUND Exception Occurs : ',1,'N');
1918: END IF;
1919:
1920: RETURN NULL;
1921:
1919:
1920: RETURN NULL;
1921:
1922: WHEN OTHERS THEN
1923: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1924: aso_debug_pub.add('Function Get_Currency_From_Profile Inside When Others Exception',1,'N');
1925: END IF;
1926: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1927: THEN
1920: RETURN NULL;
1921:
1922: WHEN OTHERS THEN
1923: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1924: aso_debug_pub.add('Function Get_Currency_From_Profile Inside When Others Exception',1,'N');
1925: END IF;
1926: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1927: THEN
1928: OE_MSG_PUB.Add_Exc_Msg
1950: WHERE Cust_Account_Id = l_acct
1951: AND Status = 'A';
1952:
1953: BEGIN
1954: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1955: aso_debug_pub.add('Function Get_RequestedDateType --- Begin : ',1,'N');
1956: END IF;
1957:
1958: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' THEN
1951: AND Status = 'A';
1952:
1953: BEGIN
1954: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1955: aso_debug_pub.add('Function Get_RequestedDateType --- Begin : ',1,'N');
1956: END IF;
1957:
1958: IF p_database_object_name='ASO_AK_QUOTE_HEADER_V' THEN
1959: l_acct_id := ASO_QUOTE_HEADER_DEF_HDLR.g_record.Q_cust_account_id;
1963: OPEN C_Get_RDT (l_acct_id);
1964: FETCH C_Get_RDT INTO l_ret_value;
1965: CLOSE C_Get_RDT;
1966:
1967: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1968: aso_debug_pub.add('Function Get_RequestedDateType cusror C_Get_RDT l_ret_value : ' ||
1969: l_ret_value ,1,'N');
1970: END IF;
1971: ELSE
1964: FETCH C_Get_RDT INTO l_ret_value;
1965: CLOSE C_Get_RDT;
1966:
1967: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1968: aso_debug_pub.add('Function Get_RequestedDateType cusror C_Get_RDT l_ret_value : ' ||
1969: l_ret_value ,1,'N');
1970: END IF;
1971: ELSE
1972: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1968: aso_debug_pub.add('Function Get_RequestedDateType cusror C_Get_RDT l_ret_value : ' ||
1969: l_ret_value ,1,'N');
1970: END IF;
1971: ELSE
1972: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1973: aso_debug_pub.add('Function Get_RequestedDateType -CustomerAccount is null - requesteddatetype no retrieved',1,'N');
1974: END IF;
1975: END IF;
1976:
1969: l_ret_value ,1,'N');
1970: END IF;
1971: ELSE
1972: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1973: aso_debug_pub.add('Function Get_RequestedDateType -CustomerAccount is null - requesteddatetype no retrieved',1,'N');
1974: END IF;
1975: END IF;
1976:
1977: END IF;
1979: RETURN l_ret_value;
1980:
1981: EXCEPTION
1982: WHEN NO_DATA_FOUND THEN
1983: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1984: aso_debug_pub.add('Function Get_RequestedDateType NO_DATA_FOUND Occurs ',1,'N');
1985: END IF;
1986:
1987: RETURN NULL;
1980:
1981: EXCEPTION
1982: WHEN NO_DATA_FOUND THEN
1983: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1984: aso_debug_pub.add('Function Get_RequestedDateType NO_DATA_FOUND Occurs ',1,'N');
1985: END IF;
1986:
1987: RETURN NULL;
1988:
1987: RETURN NULL;
1988:
1989: WHEN OTHERS THEN
1990:
1991: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1992: aso_debug_pub.add('Function Get_RequestedDateType Inside When Others Exception',1,'N');
1993: END IF;
1994:
1995: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1988:
1989: WHEN OTHERS THEN
1990:
1991: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1992: aso_debug_pub.add('Function Get_RequestedDateType Inside When Others Exception',1,'N');
1993: END IF;
1994:
1995: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1996: THEN
2020: WHERE organization_id = l_organization
2021: AND inventory_item_id = l_inventory_item;
2022:
2023: BEGIN
2024: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2025: aso_debug_pub.add('Function Get_ChargePeriodicity --- Begin : ',1,'N');
2026: END IF;
2027:
2028: IF p_database_object_name='ASO_AK_QUOTE_LINE_V' THEN
2021: AND inventory_item_id = l_inventory_item;
2022:
2023: BEGIN
2024: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2025: aso_debug_pub.add('Function Get_ChargePeriodicity --- Begin : ',1,'N');
2026: END IF;
2027:
2028: IF p_database_object_name='ASO_AK_QUOTE_LINE_V' THEN
2029: l_organization_id := ASO_QUOTE_LINE_DEF_HDLR.g_record.L_ORGANIZATION_ID;
2036: OPEN C_Get_CP (l_organization_id, l_inventory_item_id);
2037: FETCH C_Get_CP INTO l_ret_value;
2038: CLOSE C_Get_CP;
2039:
2040: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2041: aso_debug_pub.add('Function Get_ChargePeriodicity cusror C_Get_CP l_ret_value : ' ||
2042: l_ret_value ,1,'N');
2043: END IF;
2044: ELSE
2037: FETCH C_Get_CP INTO l_ret_value;
2038: CLOSE C_Get_CP;
2039:
2040: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2041: aso_debug_pub.add('Function Get_ChargePeriodicity cusror C_Get_CP l_ret_value : ' ||
2042: l_ret_value ,1,'N');
2043: END IF;
2044: ELSE
2045: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2041: aso_debug_pub.add('Function Get_ChargePeriodicity cusror C_Get_CP l_ret_value : ' ||
2042: l_ret_value ,1,'N');
2043: END IF;
2044: ELSE
2045: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2046: aso_debug_pub.add('Function Get_ChargePeriodicity -Org Id is null - Charge Periodicity not retrieved',1,'N');
2047: END IF;
2048: END IF;
2049:
2042: l_ret_value ,1,'N');
2043: END IF;
2044: ELSE
2045: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2046: aso_debug_pub.add('Function Get_ChargePeriodicity -Org Id is null - Charge Periodicity not retrieved',1,'N');
2047: END IF;
2048: END IF;
2049:
2050: END IF;
2052: RETURN l_ret_value;
2053:
2054: EXCEPTION
2055: WHEN NO_DATA_FOUND THEN
2056: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2057: aso_debug_pub.add('Function Get_ChargePeriodicity NO_DATA_FOUND Occurs ',1,'N');
2058: END IF;
2059:
2060: RETURN NULL;
2053:
2054: EXCEPTION
2055: WHEN NO_DATA_FOUND THEN
2056: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2057: aso_debug_pub.add('Function Get_ChargePeriodicity NO_DATA_FOUND Occurs ',1,'N');
2058: END IF;
2059:
2060: RETURN NULL;
2061:
2060: RETURN NULL;
2061:
2062: WHEN OTHERS THEN
2063:
2064: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2065: aso_debug_pub.add('Function Get_ChargePeriodicity Inside When Others Exception',1,'N');
2066: END IF;
2067:
2068: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2061:
2062: WHEN OTHERS THEN
2063:
2064: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2065: aso_debug_pub.add('Function Get_ChargePeriodicity Inside When Others Exception',1,'N');
2066: END IF;
2067:
2068: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2069: THEN