[Home] [Help]
56: BEGIN
57:
58: /*--- Test Code Begins -------------------------------------------------------------
59: WSH_DEBUG_INTERFACE.g_debug := TRUE;
60: WSH_DEBUG_SV.start_debugger
61: (x_file_name => l_file_name,
62: x_return_status => l_return_status,
63: x_msg_count => l_msg_count,
64: x_msg_data => l_msg_data);
70: --
71: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
72: --
73: IF l_debug_on IS NULL THEN
74: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
75: END IF;
76:
77: IF l_debug_on THEN
78: WSH_DEBUG_SV.push(l_module_name);
74: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
75: END IF;
76:
77: IF l_debug_on THEN
78: WSH_DEBUG_SV.push(l_module_name);
79: WSH_DEBUG_SV.log(l_module_name,'p_invoice_header_id',p_invoice_header_id);
80: END IF;
81:
82: IF FND_API.to_Boolean( p_init_msg_list )
75: END IF;
76:
77: IF l_debug_on THEN
78: WSH_DEBUG_SV.push(l_module_name);
79: WSH_DEBUG_SV.log(l_module_name,'p_invoice_header_id',p_invoice_header_id);
80: END IF;
81:
82: IF FND_API.to_Boolean( p_init_msg_list )
83: THEN
104:
105: CLOSE C_GET_BILL_DETAILS;
106:
107: IF l_debug_on THEN
108: WSH_DEBUG_SV.log(l_module_name,'l_Trxn_Attributes_rec.Payee_Party_Id',l_Trxn_Attributes_rec.Payee_Party_Id);
109: WSH_DEBUG_SV.log(l_module_name,'l_Trxn_Attributes_rec.Payee_Party_Site_Id',l_Trxn_Attributes_rec.Payee_Party_Site_Id);
110: WSH_DEBUG_SV.log(l_module_name,'l_Trxn_Attributes_rec.Supplier_Site_Id',l_Trxn_Attributes_rec.Supplier_Site_Id);
111: WSH_DEBUG_SV.log(l_module_name,'l_Trxn_Attributes_rec.Payer_Org_Id',l_Trxn_Attributes_rec.Payer_Org_Id);
112: WSH_DEBUG_SV.log(l_module_name,'l_vendor_pay_method',l_vendor_pay_method);
105: CLOSE C_GET_BILL_DETAILS;
106:
107: IF l_debug_on THEN
108: WSH_DEBUG_SV.log(l_module_name,'l_Trxn_Attributes_rec.Payee_Party_Id',l_Trxn_Attributes_rec.Payee_Party_Id);
109: WSH_DEBUG_SV.log(l_module_name,'l_Trxn_Attributes_rec.Payee_Party_Site_Id',l_Trxn_Attributes_rec.Payee_Party_Site_Id);
110: WSH_DEBUG_SV.log(l_module_name,'l_Trxn_Attributes_rec.Supplier_Site_Id',l_Trxn_Attributes_rec.Supplier_Site_Id);
111: WSH_DEBUG_SV.log(l_module_name,'l_Trxn_Attributes_rec.Payer_Org_Id',l_Trxn_Attributes_rec.Payer_Org_Id);
112: WSH_DEBUG_SV.log(l_module_name,'l_vendor_pay_method',l_vendor_pay_method);
113: END IF;
106:
107: IF l_debug_on THEN
108: WSH_DEBUG_SV.log(l_module_name,'l_Trxn_Attributes_rec.Payee_Party_Id',l_Trxn_Attributes_rec.Payee_Party_Id);
109: WSH_DEBUG_SV.log(l_module_name,'l_Trxn_Attributes_rec.Payee_Party_Site_Id',l_Trxn_Attributes_rec.Payee_Party_Site_Id);
110: WSH_DEBUG_SV.log(l_module_name,'l_Trxn_Attributes_rec.Supplier_Site_Id',l_Trxn_Attributes_rec.Supplier_Site_Id);
111: WSH_DEBUG_SV.log(l_module_name,'l_Trxn_Attributes_rec.Payer_Org_Id',l_Trxn_Attributes_rec.Payer_Org_Id);
112: WSH_DEBUG_SV.log(l_module_name,'l_vendor_pay_method',l_vendor_pay_method);
113: END IF;
114:
107: IF l_debug_on THEN
108: WSH_DEBUG_SV.log(l_module_name,'l_Trxn_Attributes_rec.Payee_Party_Id',l_Trxn_Attributes_rec.Payee_Party_Id);
109: WSH_DEBUG_SV.log(l_module_name,'l_Trxn_Attributes_rec.Payee_Party_Site_Id',l_Trxn_Attributes_rec.Payee_Party_Site_Id);
110: WSH_DEBUG_SV.log(l_module_name,'l_Trxn_Attributes_rec.Supplier_Site_Id',l_Trxn_Attributes_rec.Supplier_Site_Id);
111: WSH_DEBUG_SV.log(l_module_name,'l_Trxn_Attributes_rec.Payer_Org_Id',l_Trxn_Attributes_rec.Payer_Org_Id);
112: WSH_DEBUG_SV.log(l_module_name,'l_vendor_pay_method',l_vendor_pay_method);
113: END IF;
114:
115:
108: WSH_DEBUG_SV.log(l_module_name,'l_Trxn_Attributes_rec.Payee_Party_Id',l_Trxn_Attributes_rec.Payee_Party_Id);
109: WSH_DEBUG_SV.log(l_module_name,'l_Trxn_Attributes_rec.Payee_Party_Site_Id',l_Trxn_Attributes_rec.Payee_Party_Site_Id);
110: WSH_DEBUG_SV.log(l_module_name,'l_Trxn_Attributes_rec.Supplier_Site_Id',l_Trxn_Attributes_rec.Supplier_Site_Id);
111: WSH_DEBUG_SV.log(l_module_name,'l_Trxn_Attributes_rec.Payer_Org_Id',l_Trxn_Attributes_rec.Payer_Org_Id);
112: WSH_DEBUG_SV.log(l_module_name,'l_vendor_pay_method',l_vendor_pay_method);
113: END IF;
114:
115:
116: l_Trxn_Attributes_rec.Payer_Org_Type := l_organization_type;
139: l_pay_method := l_payment_method_rec.Payment_Method_Code;
140: x_payment_method := nvl(l_pay_method,nvl(l_vendor_pay_method,l_default_pay_method));
141:
142: IF l_debug_on THEN
143: WSH_DEBUG_SV.log(l_module_name,'l_pay_method',l_pay_method);
144: WSH_DEBUG_SV.log(l_module_name,'l_vendor_pay_method',l_vendor_pay_method);
145: WSH_DEBUG_SV.log(l_module_name,'l_default_pay_method',l_default_pay_method);
146: WSH_DEBUG_SV.log(l_module_name,'x_payment_method',x_payment_method);
147: END IF;
140: x_payment_method := nvl(l_pay_method,nvl(l_vendor_pay_method,l_default_pay_method));
141:
142: IF l_debug_on THEN
143: WSH_DEBUG_SV.log(l_module_name,'l_pay_method',l_pay_method);
144: WSH_DEBUG_SV.log(l_module_name,'l_vendor_pay_method',l_vendor_pay_method);
145: WSH_DEBUG_SV.log(l_module_name,'l_default_pay_method',l_default_pay_method);
146: WSH_DEBUG_SV.log(l_module_name,'x_payment_method',x_payment_method);
147: END IF;
148:
141:
142: IF l_debug_on THEN
143: WSH_DEBUG_SV.log(l_module_name,'l_pay_method',l_pay_method);
144: WSH_DEBUG_SV.log(l_module_name,'l_vendor_pay_method',l_vendor_pay_method);
145: WSH_DEBUG_SV.log(l_module_name,'l_default_pay_method',l_default_pay_method);
146: WSH_DEBUG_SV.log(l_module_name,'x_payment_method',x_payment_method);
147: END IF;
148:
149:
142: IF l_debug_on THEN
143: WSH_DEBUG_SV.log(l_module_name,'l_pay_method',l_pay_method);
144: WSH_DEBUG_SV.log(l_module_name,'l_vendor_pay_method',l_vendor_pay_method);
145: WSH_DEBUG_SV.log(l_module_name,'l_default_pay_method',l_default_pay_method);
146: WSH_DEBUG_SV.log(l_module_name,'x_payment_method',x_payment_method);
147: END IF;
148:
149:
150: -- End of Code
149:
150: -- End of Code
151:
152: IF l_debug_on THEN
153: WSH_DEBUG_SV.pop(l_module_name);
154: END IF;
155:
156: EXCEPTION
157:
164: p_encoded => FND_API.G_FALSE
165: );
166:
167: IF l_debug_on THEN
168: WSH_DEBUG_SV.pop(l_module_name);
169: END IF;
170:
171: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
177: p_encoded => FND_API.G_FALSE
178: );
179:
180: IF l_debug_on THEN
181: WSH_DEBUG_SV.pop(l_module_name);
182: END IF;
183:
184: WHEN OTHERS THEN
185: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
191: );
192:
193:
194: IF l_debug_on THEN
195: WSH_DEBUG_SV.pop(l_module_name);
196: END IF;
197:
198:
199: END GET_PAYMENT_METHOD;
328: BEGIN
329: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
330:
331: IF l_debug_on IS NULL THEN
332: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
333: END IF;
334:
335:
336: IF l_debug_on THEN
333: END IF;
334:
335:
336: IF l_debug_on THEN
337: WSH_DEBUG_SV.push(l_module_name);
338: END IF;
339:
340: IF l_debug_on THEN
341:
338: END IF;
339:
340: IF l_debug_on THEN
341:
342: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
343: WSH_DEBUG_SV.log(l_module_name,' Printing Parameters Below... ');
344: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
345:
346: WSH_DEBUG_SV.log(l_module_name,' p_trip_id ',p_trip_id);
339:
340: IF l_debug_on THEN
341:
342: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
343: WSH_DEBUG_SV.log(l_module_name,' Printing Parameters Below... ');
344: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
345:
346: WSH_DEBUG_SV.log(l_module_name,' p_trip_id ',p_trip_id);
347: WSH_DEBUG_SV.log(l_module_name,' p_delivery_detail_id ',p_delivery_detail_id);
340: IF l_debug_on THEN
341:
342: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
343: WSH_DEBUG_SV.log(l_module_name,' Printing Parameters Below... ');
344: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
345:
346: WSH_DEBUG_SV.log(l_module_name,' p_trip_id ',p_trip_id);
347: WSH_DEBUG_SV.log(l_module_name,' p_delivery_detail_id ',p_delivery_detail_id);
348: WSH_DEBUG_SV.log(l_module_name,' p_inventory_item_id ',p_inventory_item_id);
342: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
343: WSH_DEBUG_SV.log(l_module_name,' Printing Parameters Below... ');
344: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
345:
346: WSH_DEBUG_SV.log(l_module_name,' p_trip_id ',p_trip_id);
347: WSH_DEBUG_SV.log(l_module_name,' p_delivery_detail_id ',p_delivery_detail_id);
348: WSH_DEBUG_SV.log(l_module_name,' p_inventory_item_id ',p_inventory_item_id);
349: WSH_DEBUG_SV.log(l_module_name,' p_delivery_leg_id ',p_delivery_leg_id);
350: WSH_DEBUG_SV.log(l_module_name,' p_bol ',p_bol);
343: WSH_DEBUG_SV.log(l_module_name,' Printing Parameters Below... ');
344: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
345:
346: WSH_DEBUG_SV.log(l_module_name,' p_trip_id ',p_trip_id);
347: WSH_DEBUG_SV.log(l_module_name,' p_delivery_detail_id ',p_delivery_detail_id);
348: WSH_DEBUG_SV.log(l_module_name,' p_inventory_item_id ',p_inventory_item_id);
349: WSH_DEBUG_SV.log(l_module_name,' p_delivery_leg_id ',p_delivery_leg_id);
350: WSH_DEBUG_SV.log(l_module_name,' p_bol ',p_bol);
351: WSH_DEBUG_SV.log(l_module_name,' p_container_flag ',p_container_flag);
344: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
345:
346: WSH_DEBUG_SV.log(l_module_name,' p_trip_id ',p_trip_id);
347: WSH_DEBUG_SV.log(l_module_name,' p_delivery_detail_id ',p_delivery_detail_id);
348: WSH_DEBUG_SV.log(l_module_name,' p_inventory_item_id ',p_inventory_item_id);
349: WSH_DEBUG_SV.log(l_module_name,' p_delivery_leg_id ',p_delivery_leg_id);
350: WSH_DEBUG_SV.log(l_module_name,' p_bol ',p_bol);
351: WSH_DEBUG_SV.log(l_module_name,' p_container_flag ',p_container_flag);
352: WSH_DEBUG_SV.log(l_module_name,' p_gross_weight ',p_gross_weight);
345:
346: WSH_DEBUG_SV.log(l_module_name,' p_trip_id ',p_trip_id);
347: WSH_DEBUG_SV.log(l_module_name,' p_delivery_detail_id ',p_delivery_detail_id);
348: WSH_DEBUG_SV.log(l_module_name,' p_inventory_item_id ',p_inventory_item_id);
349: WSH_DEBUG_SV.log(l_module_name,' p_delivery_leg_id ',p_delivery_leg_id);
350: WSH_DEBUG_SV.log(l_module_name,' p_bol ',p_bol);
351: WSH_DEBUG_SV.log(l_module_name,' p_container_flag ',p_container_flag);
352: WSH_DEBUG_SV.log(l_module_name,' p_gross_weight ',p_gross_weight);
353: WSH_DEBUG_SV.log(l_module_name,' p_weight_uom ',p_weight_uom);
346: WSH_DEBUG_SV.log(l_module_name,' p_trip_id ',p_trip_id);
347: WSH_DEBUG_SV.log(l_module_name,' p_delivery_detail_id ',p_delivery_detail_id);
348: WSH_DEBUG_SV.log(l_module_name,' p_inventory_item_id ',p_inventory_item_id);
349: WSH_DEBUG_SV.log(l_module_name,' p_delivery_leg_id ',p_delivery_leg_id);
350: WSH_DEBUG_SV.log(l_module_name,' p_bol ',p_bol);
351: WSH_DEBUG_SV.log(l_module_name,' p_container_flag ',p_container_flag);
352: WSH_DEBUG_SV.log(l_module_name,' p_gross_weight ',p_gross_weight);
353: WSH_DEBUG_SV.log(l_module_name,' p_weight_uom ',p_weight_uom);
354: WSH_DEBUG_SV.log(l_module_name,' g_currency_code ',g_currency_code);
347: WSH_DEBUG_SV.log(l_module_name,' p_delivery_detail_id ',p_delivery_detail_id);
348: WSH_DEBUG_SV.log(l_module_name,' p_inventory_item_id ',p_inventory_item_id);
349: WSH_DEBUG_SV.log(l_module_name,' p_delivery_leg_id ',p_delivery_leg_id);
350: WSH_DEBUG_SV.log(l_module_name,' p_bol ',p_bol);
351: WSH_DEBUG_SV.log(l_module_name,' p_container_flag ',p_container_flag);
352: WSH_DEBUG_SV.log(l_module_name,' p_gross_weight ',p_gross_weight);
353: WSH_DEBUG_SV.log(l_module_name,' p_weight_uom ',p_weight_uom);
354: WSH_DEBUG_SV.log(l_module_name,' g_currency_code ',g_currency_code);
355:
348: WSH_DEBUG_SV.log(l_module_name,' p_inventory_item_id ',p_inventory_item_id);
349: WSH_DEBUG_SV.log(l_module_name,' p_delivery_leg_id ',p_delivery_leg_id);
350: WSH_DEBUG_SV.log(l_module_name,' p_bol ',p_bol);
351: WSH_DEBUG_SV.log(l_module_name,' p_container_flag ',p_container_flag);
352: WSH_DEBUG_SV.log(l_module_name,' p_gross_weight ',p_gross_weight);
353: WSH_DEBUG_SV.log(l_module_name,' p_weight_uom ',p_weight_uom);
354: WSH_DEBUG_SV.log(l_module_name,' g_currency_code ',g_currency_code);
355:
356: END IF;
349: WSH_DEBUG_SV.log(l_module_name,' p_delivery_leg_id ',p_delivery_leg_id);
350: WSH_DEBUG_SV.log(l_module_name,' p_bol ',p_bol);
351: WSH_DEBUG_SV.log(l_module_name,' p_container_flag ',p_container_flag);
352: WSH_DEBUG_SV.log(l_module_name,' p_gross_weight ',p_gross_weight);
353: WSH_DEBUG_SV.log(l_module_name,' p_weight_uom ',p_weight_uom);
354: WSH_DEBUG_SV.log(l_module_name,' g_currency_code ',g_currency_code);
355:
356: END IF;
357:
350: WSH_DEBUG_SV.log(l_module_name,' p_bol ',p_bol);
351: WSH_DEBUG_SV.log(l_module_name,' p_container_flag ',p_container_flag);
352: WSH_DEBUG_SV.log(l_module_name,' p_gross_weight ',p_gross_weight);
353: WSH_DEBUG_SV.log(l_module_name,' p_weight_uom ',p_weight_uom);
354: WSH_DEBUG_SV.log(l_module_name,' g_currency_code ',g_currency_code);
355:
356: END IF;
357:
358: OPEN C_APPROVED_AMOUNT (p_bol);
359: FETCH C_APPROVED_AMOUNT INTO l_approved_amount,l_currency_code;
360: CLOSE C_APPROVED_AMOUNT;
361:
362: IF l_debug_on THEN
363: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_APPROVED_AMOUNT ');
364: WSH_DEBUG_SV.log(l_module_name,' l_approved_amount ',l_approved_amount);
365: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
366: END IF;
367:
360: CLOSE C_APPROVED_AMOUNT;
361:
362: IF l_debug_on THEN
363: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_APPROVED_AMOUNT ');
364: WSH_DEBUG_SV.log(l_module_name,' l_approved_amount ',l_approved_amount);
365: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
366: END IF;
367:
368:
361:
362: IF l_debug_on THEN
363: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_APPROVED_AMOUNT ');
364: WSH_DEBUG_SV.log(l_module_name,' l_approved_amount ',l_approved_amount);
365: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
366: END IF;
367:
368:
369: l_approved_amount :=GL_CURRENCY_API.convert_amount (
372: x_conversion_date => sysdate,
373: x_amount => l_approved_amount);
374:
375: IF l_debug_on THEN
376: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_APPROVED_AMOUNT == After Currency Conversion ');
377: WSH_DEBUG_SV.log(l_module_name,' l_approved_amount ',l_approved_amount);
378: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',g_currency_code);
379: END IF;
380:
373: x_amount => l_approved_amount);
374:
375: IF l_debug_on THEN
376: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_APPROVED_AMOUNT == After Currency Conversion ');
377: WSH_DEBUG_SV.log(l_module_name,' l_approved_amount ',l_approved_amount);
378: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',g_currency_code);
379: END IF;
380:
381:
374:
375: IF l_debug_on THEN
376: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_APPROVED_AMOUNT == After Currency Conversion ');
377: WSH_DEBUG_SV.log(l_module_name,' l_approved_amount ',l_approved_amount);
378: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',g_currency_code);
379: END IF;
380:
381:
382:
384: FETCH C_TOTAL_AMOUNT INTO l_total_amount,l_currency_code;
385: CLOSE C_TOTAL_AMOUNT;
386:
387: IF l_debug_on THEN
388: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_TOTAL_AMOUNT ');
389: WSH_DEBUG_SV.log(l_module_name,' l_total_amount ',l_total_amount);
390: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
391: END IF;
392:
385: CLOSE C_TOTAL_AMOUNT;
386:
387: IF l_debug_on THEN
388: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_TOTAL_AMOUNT ');
389: WSH_DEBUG_SV.log(l_module_name,' l_total_amount ',l_total_amount);
390: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
391: END IF;
392:
393:
386:
387: IF l_debug_on THEN
388: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_TOTAL_AMOUNT ');
389: WSH_DEBUG_SV.log(l_module_name,' l_total_amount ',l_total_amount);
390: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
391: END IF;
392:
393:
394: l_total_amount := GL_CURRENCY_API.convert_amount (
397: x_conversion_date => sysdate,
398: x_amount => l_total_amount);
399:
400: IF l_debug_on THEN
401: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_TOTAL_AMOUNT == After Currency Conversion ');
402: WSH_DEBUG_SV.log(l_module_name,' l_total_amount ',l_total_amount);
403: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',g_currency_code);
404: END IF;
405:
398: x_amount => l_total_amount);
399:
400: IF l_debug_on THEN
401: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_TOTAL_AMOUNT == After Currency Conversion ');
402: WSH_DEBUG_SV.log(l_module_name,' l_total_amount ',l_total_amount);
403: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',g_currency_code);
404: END IF;
405:
406:
399:
400: IF l_debug_on THEN
401: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_TOTAL_AMOUNT == After Currency Conversion ');
402: WSH_DEBUG_SV.log(l_module_name,' l_total_amount ',l_total_amount);
403: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',g_currency_code);
404: END IF;
405:
406:
407:
409: FETCH C_DLEG_AMOUNT INTO l_dleg_header_amount,l_currency_code;
410: CLOSE C_DLEG_AMOUNT;
411:
412: IF l_debug_on THEN
413: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DLEG_AMOUNT ');
414: WSH_DEBUG_SV.log(l_module_name,' l_dleg_header_amount ',l_dleg_header_amount);
415: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
416: END IF;
417:
410: CLOSE C_DLEG_AMOUNT;
411:
412: IF l_debug_on THEN
413: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DLEG_AMOUNT ');
414: WSH_DEBUG_SV.log(l_module_name,' l_dleg_header_amount ',l_dleg_header_amount);
415: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
416: END IF;
417:
418:
411:
412: IF l_debug_on THEN
413: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DLEG_AMOUNT ');
414: WSH_DEBUG_SV.log(l_module_name,' l_dleg_header_amount ',l_dleg_header_amount);
415: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
416: END IF;
417:
418:
419: l_dleg_header_amount := GL_CURRENCY_API.convert_amount (
422: x_conversion_date => sysdate,
423: x_amount => l_dleg_header_amount);
424:
425: IF l_debug_on THEN
426: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DLEG_AMOUNT ');
427: WSH_DEBUG_SV.log(l_module_name,' l_dleg_header_amount ',l_dleg_header_amount);
428: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
429: END IF;
430:
423: x_amount => l_dleg_header_amount);
424:
425: IF l_debug_on THEN
426: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DLEG_AMOUNT ');
427: WSH_DEBUG_SV.log(l_module_name,' l_dleg_header_amount ',l_dleg_header_amount);
428: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
429: END IF;
430:
431:
424:
425: IF l_debug_on THEN
426: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DLEG_AMOUNT ');
427: WSH_DEBUG_SV.log(l_module_name,' l_dleg_header_amount ',l_dleg_header_amount);
428: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
429: END IF;
430:
431:
432: IF( l_total_amount = 0) THEN
436: END IF;
437:
438:
439: IF l_debug_on THEN
440: WSH_DEBUG_SV.log(l_module_name,' After Pro-Ration to Delivery Leg Level ');
441: WSH_DEBUG_SV.log(l_module_name,' l_dleg_approved_amount ',l_dleg_approved_amount);
442: END IF;
443:
444:
437:
438:
439: IF l_debug_on THEN
440: WSH_DEBUG_SV.log(l_module_name,' After Pro-Ration to Delivery Leg Level ');
441: WSH_DEBUG_SV.log(l_module_name,' l_dleg_approved_amount ',l_dleg_approved_amount);
442: END IF;
443:
444:
445: IF p_container_flag = 'Y' THEN
448: FETCH C_GROSS_WEIGHT into l_gross_weight;
449: CLOSE C_GROSS_WEIGHT;
450:
451: IF l_debug_on THEN
452: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_GROSS_WEIGHT ');
453: WSH_DEBUG_SV.log(l_module_name,' l_gross_weight ',l_gross_weight);
454: END IF;
455:
456: OPEN C_PARENT_DETAIL(p_delivery_detail_id);
449: CLOSE C_GROSS_WEIGHT;
450:
451: IF l_debug_on THEN
452: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_GROSS_WEIGHT ');
453: WSH_DEBUG_SV.log(l_module_name,' l_gross_weight ',l_gross_weight);
454: END IF;
455:
456: OPEN C_PARENT_DETAIL(p_delivery_detail_id);
457: FETCH C_PARENT_DETAIL INTO l_container_delivery_detail;
457: FETCH C_PARENT_DETAIL INTO l_container_delivery_detail;
458: CLOSE C_PARENT_DETAIL;
459:
460: IF l_debug_on THEN
461: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_PARENT_DETAIL ');
462: WSH_DEBUG_SV.log(l_module_name,' l_container_delivery_detail ',l_container_delivery_detail);
463: END IF;
464:
465:
458: CLOSE C_PARENT_DETAIL;
459:
460: IF l_debug_on THEN
461: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_PARENT_DETAIL ');
462: WSH_DEBUG_SV.log(l_module_name,' l_container_delivery_detail ',l_container_delivery_detail);
463: END IF;
464:
465:
466: IF p_delivery_detail_id <> l_container_delivery_detail THEN
469: l_container_flag := 'N';
470: END IF;
471:
472: IF l_debug_on THEN
473: WSH_DEBUG_SV.log(l_module_name,' l_container_flag ',l_container_flag);
474: END IF;
475:
476:
477:
481: FETCH C_DETAIL_AMOUNT INTO l_detail_amount,l_currency_code;
482: CLOSE C_DETAIL_AMOUNT;
483:
484: IF l_debug_on THEN
485: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_AMOUNT ');
486: WSH_DEBUG_SV.log(l_module_name,' l_detail_amount ',l_detail_amount);
487: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
488: END IF;
489:
482: CLOSE C_DETAIL_AMOUNT;
483:
484: IF l_debug_on THEN
485: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_AMOUNT ');
486: WSH_DEBUG_SV.log(l_module_name,' l_detail_amount ',l_detail_amount);
487: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
488: END IF;
489:
490: l_detail_amount := GL_CURRENCY_API.convert_amount (
483:
484: IF l_debug_on THEN
485: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_AMOUNT ');
486: WSH_DEBUG_SV.log(l_module_name,' l_detail_amount ',l_detail_amount);
487: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
488: END IF;
489:
490: l_detail_amount := GL_CURRENCY_API.convert_amount (
491: x_from_currency => l_currency_code,
493: x_conversion_date => sysdate,
494: x_amount => l_detail_amount);
495:
496: IF l_debug_on THEN
497: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_AMOUNT ==> After Conversion ');
498: WSH_DEBUG_SV.log(l_module_name,' l_detail_amount ',l_detail_amount);
499: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',g_currency_code);
500: END IF;
501:
494: x_amount => l_detail_amount);
495:
496: IF l_debug_on THEN
497: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_AMOUNT ==> After Conversion ');
498: WSH_DEBUG_SV.log(l_module_name,' l_detail_amount ',l_detail_amount);
499: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',g_currency_code);
500: END IF;
501:
502: IF (l_dleg_header_amount = 0 ) THEN
495:
496: IF l_debug_on THEN
497: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_AMOUNT ==> After Conversion ');
498: WSH_DEBUG_SV.log(l_module_name,' l_detail_amount ',l_detail_amount);
499: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',g_currency_code);
500: END IF;
501:
502: IF (l_dleg_header_amount = 0 ) THEN
503: l_detail_approved_amount := 0;
513: END IF ;
514: END IF;
515:
516: IF l_debug_on THEN
517: WSH_DEBUG_SV.log(l_module_name,' After Pro-Ration to Delivery Detail Level ');
518: WSH_DEBUG_SV.log(l_module_name,' l_detail_approved_amount ',l_detail_approved_amount);
519: END IF;
520:
521: IF l_debug_on THEN
514: END IF;
515:
516: IF l_debug_on THEN
517: WSH_DEBUG_SV.log(l_module_name,' After Pro-Ration to Delivery Detail Level ');
518: WSH_DEBUG_SV.log(l_module_name,' l_detail_approved_amount ',l_detail_approved_amount);
519: END IF;
520:
521: IF l_debug_on THEN
522: WSH_DEBUG_SV.pop(l_module_name);
518: WSH_DEBUG_SV.log(l_module_name,' l_detail_approved_amount ',l_detail_approved_amount);
519: END IF;
520:
521: IF l_debug_on THEN
522: WSH_DEBUG_SV.pop(l_module_name);
523: END IF;
524:
525: RETURN l_detail_approved_amount;
526:
767:
768: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
769:
770: IF l_debug_on IS NULL THEN
771: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
772: END IF;
773:
774:
775:
779:
780: l_detail_approved_amount := 0;
781:
782: IF l_debug_on THEN
783: WSH_DEBUG_SV.push(l_module_name);
784: END IF;
785:
786: IF l_debug_on THEN
787:
784: END IF;
785:
786: IF l_debug_on THEN
787:
788: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
789: WSH_DEBUG_SV.log(l_module_name,' Printing Parameters Below... ');
790: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
791: WSH_DEBUG_SV.log(l_module_name,' p_delivery_leg_id ',p_delivery_leg_id);
792: WSH_DEBUG_SV.log(l_module_name,' p_delivery_detail_id ',p_delivery_detail_id);
785:
786: IF l_debug_on THEN
787:
788: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
789: WSH_DEBUG_SV.log(l_module_name,' Printing Parameters Below... ');
790: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
791: WSH_DEBUG_SV.log(l_module_name,' p_delivery_leg_id ',p_delivery_leg_id);
792: WSH_DEBUG_SV.log(l_module_name,' p_delivery_detail_id ',p_delivery_detail_id);
793: WSH_DEBUG_SV.log(l_module_name,' p_commodity_category_id ',p_commodity_category_id);
786: IF l_debug_on THEN
787:
788: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
789: WSH_DEBUG_SV.log(l_module_name,' Printing Parameters Below... ');
790: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
791: WSH_DEBUG_SV.log(l_module_name,' p_delivery_leg_id ',p_delivery_leg_id);
792: WSH_DEBUG_SV.log(l_module_name,' p_delivery_detail_id ',p_delivery_detail_id);
793: WSH_DEBUG_SV.log(l_module_name,' p_commodity_category_id ',p_commodity_category_id);
794: WSH_DEBUG_SV.log(l_module_name,' p_bol ',p_bol);
787:
788: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
789: WSH_DEBUG_SV.log(l_module_name,' Printing Parameters Below... ');
790: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
791: WSH_DEBUG_SV.log(l_module_name,' p_delivery_leg_id ',p_delivery_leg_id);
792: WSH_DEBUG_SV.log(l_module_name,' p_delivery_detail_id ',p_delivery_detail_id);
793: WSH_DEBUG_SV.log(l_module_name,' p_commodity_category_id ',p_commodity_category_id);
794: WSH_DEBUG_SV.log(l_module_name,' p_bol ',p_bol);
795: WSH_DEBUG_SV.log(l_module_name,' g_currency_code ',g_currency_code);
788: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
789: WSH_DEBUG_SV.log(l_module_name,' Printing Parameters Below... ');
790: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
791: WSH_DEBUG_SV.log(l_module_name,' p_delivery_leg_id ',p_delivery_leg_id);
792: WSH_DEBUG_SV.log(l_module_name,' p_delivery_detail_id ',p_delivery_detail_id);
793: WSH_DEBUG_SV.log(l_module_name,' p_commodity_category_id ',p_commodity_category_id);
794: WSH_DEBUG_SV.log(l_module_name,' p_bol ',p_bol);
795: WSH_DEBUG_SV.log(l_module_name,' g_currency_code ',g_currency_code);
796: WSH_DEBUG_SV.log(l_module_name,' l_line_audit_level ',l_line_audit_level);
789: WSH_DEBUG_SV.log(l_module_name,' Printing Parameters Below... ');
790: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
791: WSH_DEBUG_SV.log(l_module_name,' p_delivery_leg_id ',p_delivery_leg_id);
792: WSH_DEBUG_SV.log(l_module_name,' p_delivery_detail_id ',p_delivery_detail_id);
793: WSH_DEBUG_SV.log(l_module_name,' p_commodity_category_id ',p_commodity_category_id);
794: WSH_DEBUG_SV.log(l_module_name,' p_bol ',p_bol);
795: WSH_DEBUG_SV.log(l_module_name,' g_currency_code ',g_currency_code);
796: WSH_DEBUG_SV.log(l_module_name,' l_line_audit_level ',l_line_audit_level);
797:
790: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
791: WSH_DEBUG_SV.log(l_module_name,' p_delivery_leg_id ',p_delivery_leg_id);
792: WSH_DEBUG_SV.log(l_module_name,' p_delivery_detail_id ',p_delivery_detail_id);
793: WSH_DEBUG_SV.log(l_module_name,' p_commodity_category_id ',p_commodity_category_id);
794: WSH_DEBUG_SV.log(l_module_name,' p_bol ',p_bol);
795: WSH_DEBUG_SV.log(l_module_name,' g_currency_code ',g_currency_code);
796: WSH_DEBUG_SV.log(l_module_name,' l_line_audit_level ',l_line_audit_level);
797:
798: END IF;
791: WSH_DEBUG_SV.log(l_module_name,' p_delivery_leg_id ',p_delivery_leg_id);
792: WSH_DEBUG_SV.log(l_module_name,' p_delivery_detail_id ',p_delivery_detail_id);
793: WSH_DEBUG_SV.log(l_module_name,' p_commodity_category_id ',p_commodity_category_id);
794: WSH_DEBUG_SV.log(l_module_name,' p_bol ',p_bol);
795: WSH_DEBUG_SV.log(l_module_name,' g_currency_code ',g_currency_code);
796: WSH_DEBUG_SV.log(l_module_name,' l_line_audit_level ',l_line_audit_level);
797:
798: END IF;
799:
792: WSH_DEBUG_SV.log(l_module_name,' p_delivery_detail_id ',p_delivery_detail_id);
793: WSH_DEBUG_SV.log(l_module_name,' p_commodity_category_id ',p_commodity_category_id);
794: WSH_DEBUG_SV.log(l_module_name,' p_bol ',p_bol);
795: WSH_DEBUG_SV.log(l_module_name,' g_currency_code ',g_currency_code);
796: WSH_DEBUG_SV.log(l_module_name,' l_line_audit_level ',l_line_audit_level);
797:
798: END IF;
799:
800:
821: FETCH C_DETAIL_AMOUNT INTO l_cal_detail_amount,l_currency_code;
822: CLOSE C_DETAIL_AMOUNT;
823:
824: IF l_debug_on THEN
825: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_AMOUNT ');
826: WSH_DEBUG_SV.log(l_module_name,' l_cal_detail_amount ',l_cal_detail_amount);
827: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
828: END IF;
829:
822: CLOSE C_DETAIL_AMOUNT;
823:
824: IF l_debug_on THEN
825: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_AMOUNT ');
826: WSH_DEBUG_SV.log(l_module_name,' l_cal_detail_amount ',l_cal_detail_amount);
827: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
828: END IF;
829:
830: IF (l_cal_detail_amount <> 0)
823:
824: IF l_debug_on THEN
825: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_AMOUNT ');
826: WSH_DEBUG_SV.log(l_module_name,' l_cal_detail_amount ',l_cal_detail_amount);
827: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
828: END IF;
829:
830: IF (l_cal_detail_amount <> 0)
831: THEN
868: FETCH C_TOTAL_AMT INTO l_cal_commodity_amount,l_currency_code;
869: CLOSE C_TOTAL_AMT;
870:
871: IF l_debug_on THEN
872: WSH_DEBUG_SV.log(l_module_name,' l_cal_commodity_amount ',l_cal_commodity_amount);
873: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
874: END IF;
875:
876:
869: CLOSE C_TOTAL_AMT;
870:
871: IF l_debug_on THEN
872: WSH_DEBUG_SV.log(l_module_name,' l_cal_commodity_amount ',l_cal_commodity_amount);
873: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
874: END IF;
875:
876:
877: l_cal_commodity_amount := GL_CURRENCY_API.convert_amount (
880: x_conversion_date => sysdate,
881: x_amount => l_cal_commodity_amount);
882:
883: IF l_debug_on THEN
884: WSH_DEBUG_SV.log(l_module_name,' After Conversion ');
885: WSH_DEBUG_SV.log(l_module_name,' l_cal_commodity_amount ',l_cal_commodity_amount);
886: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',g_currency_code);
887: END IF;
888:
881: x_amount => l_cal_commodity_amount);
882:
883: IF l_debug_on THEN
884: WSH_DEBUG_SV.log(l_module_name,' After Conversion ');
885: WSH_DEBUG_SV.log(l_module_name,' l_cal_commodity_amount ',l_cal_commodity_amount);
886: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',g_currency_code);
887: END IF;
888:
889:
882:
883: IF l_debug_on THEN
884: WSH_DEBUG_SV.log(l_module_name,' After Conversion ');
885: WSH_DEBUG_SV.log(l_module_name,' l_cal_commodity_amount ',l_cal_commodity_amount);
886: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',g_currency_code);
887: END IF;
888:
889:
890:
893: FETCH C_DETAIL_AMOUNT INTO l_cal_detail_amount,l_currency_code;
894: CLOSE C_DETAIL_AMOUNT;
895:
896: IF l_debug_on THEN
897: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_AMOUNT ');
898: WSH_DEBUG_SV.log(l_module_name,' l_cal_detail_amount ',l_cal_detail_amount);
899: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
900: END IF;
901:
894: CLOSE C_DETAIL_AMOUNT;
895:
896: IF l_debug_on THEN
897: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_AMOUNT ');
898: WSH_DEBUG_SV.log(l_module_name,' l_cal_detail_amount ',l_cal_detail_amount);
899: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
900: END IF;
901:
902:
895:
896: IF l_debug_on THEN
897: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_AMOUNT ');
898: WSH_DEBUG_SV.log(l_module_name,' l_cal_detail_amount ',l_cal_detail_amount);
899: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
900: END IF;
901:
902:
903: l_cal_detail_amount := GL_CURRENCY_API.convert_amount (
906: x_conversion_date => sysdate,
907: x_amount => l_cal_detail_amount);
908:
909: IF l_debug_on THEN
910: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_AMOUNT ==> After Conversion ');
911: WSH_DEBUG_SV.log(l_module_name,' l_cal_detail_amount ',l_cal_detail_amount);
912: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',g_currency_code);
913: END IF;
914:
907: x_amount => l_cal_detail_amount);
908:
909: IF l_debug_on THEN
910: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_AMOUNT ==> After Conversion ');
911: WSH_DEBUG_SV.log(l_module_name,' l_cal_detail_amount ',l_cal_detail_amount);
912: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',g_currency_code);
913: END IF;
914:
915:
908:
909: IF l_debug_on THEN
910: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_AMOUNT ==> After Conversion ');
911: WSH_DEBUG_SV.log(l_module_name,' l_cal_detail_amount ',l_cal_detail_amount);
912: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',g_currency_code);
913: END IF;
914:
915:
916:
922: FETCH C_LINE_APPROVED_AMT INTO l_total_commd_approved_amount,l_currency_code;
923: CLOSE C_LINE_APPROVED_AMT;
924:
925: IF l_debug_on THEN
926: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_LINE_APPROVED_AMT ');
927: WSH_DEBUG_SV.log(l_module_name,' l_total_commd_approved_amount ',l_total_commd_approved_amount);
928: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
929: END IF;
930:
923: CLOSE C_LINE_APPROVED_AMT;
924:
925: IF l_debug_on THEN
926: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_LINE_APPROVED_AMT ');
927: WSH_DEBUG_SV.log(l_module_name,' l_total_commd_approved_amount ',l_total_commd_approved_amount);
928: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
929: END IF;
930:
931:
924:
925: IF l_debug_on THEN
926: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_LINE_APPROVED_AMT ');
927: WSH_DEBUG_SV.log(l_module_name,' l_total_commd_approved_amount ',l_total_commd_approved_amount);
928: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
929: END IF;
930:
931:
932: l_total_commd_approved_amount := GL_CURRENCY_API.convert_amount (
935: x_conversion_date => sysdate,
936: x_amount => l_total_commd_approved_amount);
937:
938: IF l_debug_on THEN
939: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_APPROVED_AMT ==> After Conversion ');
940: WSH_DEBUG_SV.log(l_module_name,' l_total_commd_approved_amount ',l_total_commd_approved_amount);
941: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',g_currency_code);
942: END IF;
943:
936: x_amount => l_total_commd_approved_amount);
937:
938: IF l_debug_on THEN
939: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_APPROVED_AMT ==> After Conversion ');
940: WSH_DEBUG_SV.log(l_module_name,' l_total_commd_approved_amount ',l_total_commd_approved_amount);
941: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',g_currency_code);
942: END IF;
943:
944: -- Initial Calculation without discount
937:
938: IF l_debug_on THEN
939: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_APPROVED_AMT ==> After Conversion ');
940: WSH_DEBUG_SV.log(l_module_name,' l_total_commd_approved_amount ',l_total_commd_approved_amount);
941: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',g_currency_code);
942: END IF;
943:
944: -- Initial Calculation without discount
945: If (l_cal_commodity_amount <> 0)
946: THEN
947: l_detail_approved_amount := nvl(((l_total_commd_approved_amount * l_cal_detail_amount) / l_cal_commodity_amount),0);
948: END IF;
949: IF l_debug_on THEN
950: WSH_DEBUG_SV.log(l_module_name,'l_detail_approved_amount before discount / surcharge ' , l_detail_approved_amount);
951: END IF;
952:
953:
954: --} Initial detail calculation
962:
963: l_cal_detail_discount := nvl(l_cal_detail_discount,0);
964:
965: IF l_debug_on THEN
966: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_DISCOUNT_AMOUNT ');
967: WSH_DEBUG_SV.log(l_module_name,' l_cal_detail_discount ',l_cal_detail_discount);
968: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
969: END IF;
970:
963: l_cal_detail_discount := nvl(l_cal_detail_discount,0);
964:
965: IF l_debug_on THEN
966: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_DISCOUNT_AMOUNT ');
967: WSH_DEBUG_SV.log(l_module_name,' l_cal_detail_discount ',l_cal_detail_discount);
968: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
969: END IF;
970:
971:
964:
965: IF l_debug_on THEN
966: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_DISCOUNT_AMOUNT ');
967: WSH_DEBUG_SV.log(l_module_name,' l_cal_detail_discount ',l_cal_detail_discount);
968: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
969: END IF;
970:
971:
972: l_cal_detail_discount := GL_CURRENCY_API.convert_amount (
975: x_conversion_date => sysdate,
976: x_amount => l_cal_detail_discount);
977:
978: IF l_debug_on THEN
979: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_DISCOUNT_AMOUNT ');
980: WSH_DEBUG_SV.log(l_module_name,' l_cal_detail_discount ',l_cal_detail_discount);
981: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
982: END IF;
983:
976: x_amount => l_cal_detail_discount);
977:
978: IF l_debug_on THEN
979: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_DISCOUNT_AMOUNT ');
980: WSH_DEBUG_SV.log(l_module_name,' l_cal_detail_discount ',l_cal_detail_discount);
981: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
982: END IF;
983:
984:
977:
978: IF l_debug_on THEN
979: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_DISCOUNT_AMOUNT ');
980: WSH_DEBUG_SV.log(l_module_name,' l_cal_detail_discount ',l_cal_detail_discount);
981: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
982: END IF;
983:
984:
985: -- Get calcualted summary discount
989:
990: l_cal_dleg_discount := nvl(l_cal_dleg_discount,0);
991:
992: IF l_debug_on THEN
993: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_TOTAL_DISCOUNT_AMT ');
994: WSH_DEBUG_SV.log(l_module_name,' l_cal_dleg_discount ',l_cal_dleg_discount);
995: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
996: END IF;
997:
990: l_cal_dleg_discount := nvl(l_cal_dleg_discount,0);
991:
992: IF l_debug_on THEN
993: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_TOTAL_DISCOUNT_AMT ');
994: WSH_DEBUG_SV.log(l_module_name,' l_cal_dleg_discount ',l_cal_dleg_discount);
995: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
996: END IF;
997:
998: IF (l_cal_dleg_discount <> 0)
991:
992: IF l_debug_on THEN
993: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_TOTAL_DISCOUNT_AMT ');
994: WSH_DEBUG_SV.log(l_module_name,' l_cal_dleg_discount ',l_cal_dleg_discount);
995: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
996: END IF;
997:
998: IF (l_cal_dleg_discount <> 0)
999: THEN
1006: END IF;
1007:
1008:
1009: IF l_debug_on THEN
1010: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_TOTAL_DISCOUNT_AMT After conversion ');
1011: WSH_DEBUG_SV.log(l_module_name,' l_cal_dleg_discount ',l_cal_dleg_discount);
1012: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1013: END IF;
1014:
1007:
1008:
1009: IF l_debug_on THEN
1010: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_TOTAL_DISCOUNT_AMT After conversion ');
1011: WSH_DEBUG_SV.log(l_module_name,' l_cal_dleg_discount ',l_cal_dleg_discount);
1012: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1013: END IF;
1014:
1015: -- Get approved discount
1008:
1009: IF l_debug_on THEN
1010: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_TOTAL_DISCOUNT_AMT After conversion ');
1011: WSH_DEBUG_SV.log(l_module_name,' l_cal_dleg_discount ',l_cal_dleg_discount);
1012: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1013: END IF;
1014:
1015: -- Get approved discount
1016: OPEN C_TOTAL_APPROVED_DISCOUNT;
1021: l_total_dleg_approved_discount := nvl(l_total_dleg_approved_discount,0);
1022:
1023:
1024: IF l_debug_on THEN
1025: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_TOTAL_APPROVED_DISCOUNT ');
1026: WSH_DEBUG_SV.log(l_module_name,' l_total_dleg_approved_discount ',l_total_dleg_approved_discount);
1027: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1028: END IF;
1029:
1022:
1023:
1024: IF l_debug_on THEN
1025: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_TOTAL_APPROVED_DISCOUNT ');
1026: WSH_DEBUG_SV.log(l_module_name,' l_total_dleg_approved_discount ',l_total_dleg_approved_discount);
1027: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1028: END IF;
1029:
1030: IF (l_total_dleg_approved_discount <> 0)
1023:
1024: IF l_debug_on THEN
1025: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_TOTAL_APPROVED_DISCOUNT ');
1026: WSH_DEBUG_SV.log(l_module_name,' l_total_dleg_approved_discount ',l_total_dleg_approved_discount);
1027: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1028: END IF;
1029:
1030: IF (l_total_dleg_approved_discount <> 0)
1031: THEN
1038: END IF;
1039:
1040:
1041: IF l_debug_on THEN
1042: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_TOTAL_APPROVED_DISCOUNT ');
1043: WSH_DEBUG_SV.log(l_module_name,' l_total_dleg_approved_discount ',l_total_dleg_approved_discount);
1044: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1045: END IF;
1046:
1039:
1040:
1041: IF l_debug_on THEN
1042: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_TOTAL_APPROVED_DISCOUNT ');
1043: WSH_DEBUG_SV.log(l_module_name,' l_total_dleg_approved_discount ',l_total_dleg_approved_discount);
1044: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1045: END IF;
1046:
1047: IF (l_cal_dleg_discount <> 0)
1040:
1041: IF l_debug_on THEN
1042: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_TOTAL_APPROVED_DISCOUNT ');
1043: WSH_DEBUG_SV.log(l_module_name,' l_total_dleg_approved_discount ',l_total_dleg_approved_discount);
1044: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1045: END IF;
1046:
1047: IF (l_cal_dleg_discount <> 0)
1048: THEN
1059: CLOSE C_DETAIL_SURCHARGE_AMOUNT;
1060:
1061:
1062: IF l_debug_on THEN
1063: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_SURCHARGE_AMOUNT ');
1064: WSH_DEBUG_SV.log(l_module_name,' l_cal_detail_charge ',l_cal_detail_charge);
1065: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1066: END IF;
1067:
1060:
1061:
1062: IF l_debug_on THEN
1063: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_SURCHARGE_AMOUNT ');
1064: WSH_DEBUG_SV.log(l_module_name,' l_cal_detail_charge ',l_cal_detail_charge);
1065: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1066: END IF;
1067:
1068: l_cal_detail_charge := nvl(l_cal_detail_charge,0);
1061:
1062: IF l_debug_on THEN
1063: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_SURCHARGE_AMOUNT ');
1064: WSH_DEBUG_SV.log(l_module_name,' l_cal_detail_charge ',l_cal_detail_charge);
1065: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1066: END IF;
1067:
1068: l_cal_detail_charge := nvl(l_cal_detail_charge,0);
1069:
1077: x_amount => l_cal_detail_charge);
1078: END IF;
1079:
1080: IF l_debug_on THEN
1081: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_SURCHARGE_AMOUNT After Conversion ');
1082: WSH_DEBUG_SV.log(l_module_name,' l_cal_detail_discount ',l_cal_detail_charge);
1083: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1084: END IF;
1085:
1078: END IF;
1079:
1080: IF l_debug_on THEN
1081: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_SURCHARGE_AMOUNT After Conversion ');
1082: WSH_DEBUG_SV.log(l_module_name,' l_cal_detail_discount ',l_cal_detail_charge);
1083: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1084: END IF;
1085:
1086:
1079:
1080: IF l_debug_on THEN
1081: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_SURCHARGE_AMOUNT After Conversion ');
1082: WSH_DEBUG_SV.log(l_module_name,' l_cal_detail_discount ',l_cal_detail_charge);
1083: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1084: END IF;
1085:
1086:
1087: -- Get calcualted summary charge
1092: l_cal_dleg_charge := nvl(l_cal_dleg_charge,0);
1093:
1094:
1095: IF l_debug_on THEN
1096: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_SURCHARGE_AMOUNT ');
1097: WSH_DEBUG_SV.log(l_module_name,' l_cal_dleg_charge ',l_cal_dleg_charge);
1098: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1099: END IF;
1100:
1093:
1094:
1095: IF l_debug_on THEN
1096: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_SURCHARGE_AMOUNT ');
1097: WSH_DEBUG_SV.log(l_module_name,' l_cal_dleg_charge ',l_cal_dleg_charge);
1098: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1099: END IF;
1100:
1101: IF (l_cal_dleg_charge <> 0)
1094:
1095: IF l_debug_on THEN
1096: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_SURCHARGE_AMOUNT ');
1097: WSH_DEBUG_SV.log(l_module_name,' l_cal_dleg_charge ',l_cal_dleg_charge);
1098: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1099: END IF;
1100:
1101: IF (l_cal_dleg_charge <> 0)
1102: THEN
1109:
1110: END IF;
1111:
1112: IF l_debug_on THEN
1113: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_SURCHARGE_AMOUNT ');
1114: WSH_DEBUG_SV.log(l_module_name,' l_cal_dleg_charge ',l_cal_dleg_charge);
1115: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1116: END IF;
1117:
1110: END IF;
1111:
1112: IF l_debug_on THEN
1113: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_SURCHARGE_AMOUNT ');
1114: WSH_DEBUG_SV.log(l_module_name,' l_cal_dleg_charge ',l_cal_dleg_charge);
1115: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1116: END IF;
1117:
1118: -- Get approved discount
1111:
1112: IF l_debug_on THEN
1113: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_DETAIL_SURCHARGE_AMOUNT ');
1114: WSH_DEBUG_SV.log(l_module_name,' l_cal_dleg_charge ',l_cal_dleg_charge);
1115: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1116: END IF;
1117:
1118: -- Get approved discount
1119: OPEN C_TOTAL_APPROVED_SURCHARGE;
1122:
1123: l_total_dleg_approved_charge := nvl(l_total_dleg_approved_charge,0);
1124:
1125: IF l_debug_on THEN
1126: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_TOTAL_APPROVED_SURCHARGE ');
1127: WSH_DEBUG_SV.log(l_module_name,' l_total_dleg_approved_charge ',l_total_dleg_approved_charge);
1128: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1129: END IF;
1130:
1123: l_total_dleg_approved_charge := nvl(l_total_dleg_approved_charge,0);
1124:
1125: IF l_debug_on THEN
1126: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_TOTAL_APPROVED_SURCHARGE ');
1127: WSH_DEBUG_SV.log(l_module_name,' l_total_dleg_approved_charge ',l_total_dleg_approved_charge);
1128: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1129: END IF;
1130:
1131: IF (l_total_dleg_approved_charge <> 0)
1124:
1125: IF l_debug_on THEN
1126: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_TOTAL_APPROVED_SURCHARGE ');
1127: WSH_DEBUG_SV.log(l_module_name,' l_total_dleg_approved_charge ',l_total_dleg_approved_charge);
1128: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1129: END IF;
1130:
1131: IF (l_total_dleg_approved_charge <> 0)
1132: THEN
1137: x_conversion_date => sysdate,
1138: x_amount => l_total_dleg_approved_charge);
1139: END IF;
1140: IF l_debug_on THEN
1141: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_TOTAL_APPROVED_SURCHARGE ');
1142: WSH_DEBUG_SV.log(l_module_name,' l_total_dleg_approved_charge ',l_total_dleg_approved_charge);
1143: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1144: END IF;
1145:
1138: x_amount => l_total_dleg_approved_charge);
1139: END IF;
1140: IF l_debug_on THEN
1141: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_TOTAL_APPROVED_SURCHARGE ');
1142: WSH_DEBUG_SV.log(l_module_name,' l_total_dleg_approved_charge ',l_total_dleg_approved_charge);
1143: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1144: END IF;
1145:
1146: IF (l_cal_dleg_charge <> 0)
1139: END IF;
1140: IF l_debug_on THEN
1141: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_TOTAL_APPROVED_SURCHARGE ');
1142: WSH_DEBUG_SV.log(l_module_name,' l_total_dleg_approved_charge ',l_total_dleg_approved_charge);
1143: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',l_currency_code);
1144: END IF;
1145:
1146: IF (l_cal_dleg_charge <> 0)
1147: THEN
1151: END IF;
1152:
1153: --} -- Surcharge Calculation
1154: IF l_debug_on THEN
1155: WSH_DEBUG_SV.log(l_module_name,' Initial l_detail_approved_amount ',l_detail_approved_amount);
1156: WSH_DEBUG_SV.log(l_module_name,' l_prorated_detail_discount ',l_prorated_detail_discount);
1157: WSH_DEBUG_SV.log(l_module_name,' l_prorated_detail_charge ',l_prorated_detail_charge);
1158: END IF;
1159:
1152:
1153: --} -- Surcharge Calculation
1154: IF l_debug_on THEN
1155: WSH_DEBUG_SV.log(l_module_name,' Initial l_detail_approved_amount ',l_detail_approved_amount);
1156: WSH_DEBUG_SV.log(l_module_name,' l_prorated_detail_discount ',l_prorated_detail_discount);
1157: WSH_DEBUG_SV.log(l_module_name,' l_prorated_detail_charge ',l_prorated_detail_charge);
1158: END IF;
1159:
1160: l_detail_approved_amount := nvl(l_detail_approved_amount,0) - nvl(l_prorated_detail_discount,0) +
1153: --} -- Surcharge Calculation
1154: IF l_debug_on THEN
1155: WSH_DEBUG_SV.log(l_module_name,' Initial l_detail_approved_amount ',l_detail_approved_amount);
1156: WSH_DEBUG_SV.log(l_module_name,' l_prorated_detail_discount ',l_prorated_detail_discount);
1157: WSH_DEBUG_SV.log(l_module_name,' l_prorated_detail_charge ',l_prorated_detail_charge);
1158: END IF;
1159:
1160: l_detail_approved_amount := nvl(l_detail_approved_amount,0) - nvl(l_prorated_detail_discount,0) +
1161: nvl(l_prorated_detail_charge,0);
1166:
1167:
1168:
1169: IF l_debug_on THEN
1170: WSH_DEBUG_SV.log(l_module_name,' After Pro-Ration at Delivery Detail Level ');
1171: WSH_DEBUG_SV.log(l_module_name,' l_detail_approved_amount ',l_detail_approved_amount);
1172: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',g_currency_code);
1173: END IF;
1174:
1167:
1168:
1169: IF l_debug_on THEN
1170: WSH_DEBUG_SV.log(l_module_name,' After Pro-Ration at Delivery Detail Level ');
1171: WSH_DEBUG_SV.log(l_module_name,' l_detail_approved_amount ',l_detail_approved_amount);
1172: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',g_currency_code);
1173: END IF;
1174:
1175: IF l_debug_on THEN
1168:
1169: IF l_debug_on THEN
1170: WSH_DEBUG_SV.log(l_module_name,' After Pro-Ration at Delivery Detail Level ');
1171: WSH_DEBUG_SV.log(l_module_name,' l_detail_approved_amount ',l_detail_approved_amount);
1172: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',g_currency_code);
1173: END IF;
1174:
1175: IF l_debug_on THEN
1176: WSH_DEBUG_SV.pop(l_module_name);
1172: WSH_DEBUG_SV.log(l_module_name,' l_currency_code ',g_currency_code);
1173: END IF;
1174:
1175: IF l_debug_on THEN
1176: WSH_DEBUG_SV.pop(l_module_name);
1177: END IF;
1178:
1179:
1180: RETURN l_detail_approved_amount;
1318:
1319: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1320:
1321: IF l_debug_on IS NULL THEN
1322: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1323: END IF;
1324:
1325: -- Initialize API return status to success
1326: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1328: x_msg_data := '';
1329:
1330:
1331: IF l_debug_on THEN
1332: WSH_DEBUG_SV.push(l_module_name);
1333: END IF;
1334:
1335: IF l_debug_on THEN
1336:
1333: END IF;
1334:
1335: IF l_debug_on THEN
1336:
1337: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
1338: WSH_DEBUG_SV.log(l_module_name,' Printing Parameters Below... ');
1339: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
1340: WSH_DEBUG_SV.log(l_module_name,' p_bol ',p_bol);
1341: WSH_DEBUG_SV.log(l_module_name,' p_invoice_header_id ',p_invoice_header_id);
1334:
1335: IF l_debug_on THEN
1336:
1337: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
1338: WSH_DEBUG_SV.log(l_module_name,' Printing Parameters Below... ');
1339: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
1340: WSH_DEBUG_SV.log(l_module_name,' p_bol ',p_bol);
1341: WSH_DEBUG_SV.log(l_module_name,' p_invoice_header_id ',p_invoice_header_id);
1342:
1335: IF l_debug_on THEN
1336:
1337: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
1338: WSH_DEBUG_SV.log(l_module_name,' Printing Parameters Below... ');
1339: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
1340: WSH_DEBUG_SV.log(l_module_name,' p_bol ',p_bol);
1341: WSH_DEBUG_SV.log(l_module_name,' p_invoice_header_id ',p_invoice_header_id);
1342:
1343: END IF;
1336:
1337: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
1338: WSH_DEBUG_SV.log(l_module_name,' Printing Parameters Below... ');
1339: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
1340: WSH_DEBUG_SV.log(l_module_name,' p_bol ',p_bol);
1341: WSH_DEBUG_SV.log(l_module_name,' p_invoice_header_id ',p_invoice_header_id);
1342:
1343: END IF;
1344:
1337: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
1338: WSH_DEBUG_SV.log(l_module_name,' Printing Parameters Below... ');
1339: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
1340: WSH_DEBUG_SV.log(l_module_name,' p_bol ',p_bol);
1341: WSH_DEBUG_SV.log(l_module_name,' p_invoice_header_id ',p_invoice_header_id);
1342:
1343: END IF;
1344:
1345: SELECT BILL_STATUS INTO l_bill_status
1348:
1349:
1350: IF l_debug_on THEN
1351:
1352: WSH_DEBUG_SV.log(l_module_name,' Invoice Bill number ', l_bill_status);
1353: END IF;
1354:
1355: IF (l_bill_status <> 'APPROVED')
1356: THEN
1355: IF (l_bill_status <> 'APPROVED')
1356: THEN
1357: IF l_debug_on THEN
1358:
1359: WSH_DEBUG_SV.log(l_module_name,' Bill approved returning back ');
1360: END IF;
1361: RETURN;
1362: END IF;
1363:
1368:
1369: i := i + 1;
1370:
1371: IF l_debug_on THEN
1372: WSH_DEBUG_SV.log(l_module_name,' LOOP CURSOR C_SOURCE_LINES ==> Iteration ',to_char(i));
1373: -- WSH_DEBUG_SV.log(l_module_name,' src_line.SOURCE_LINE_ID ',src_line.SOURCE_LINE_ID);
1374: WSH_DEBUG_SV.log(l_module_name,' src_line.RCV_SHIPMENT_LINE_ID ',src_line.RCV_SHIPMENT_LINE_ID);
1375: END IF;
1376:
1369: i := i + 1;
1370:
1371: IF l_debug_on THEN
1372: WSH_DEBUG_SV.log(l_module_name,' LOOP CURSOR C_SOURCE_LINES ==> Iteration ',to_char(i));
1373: -- WSH_DEBUG_SV.log(l_module_name,' src_line.SOURCE_LINE_ID ',src_line.SOURCE_LINE_ID);
1374: WSH_DEBUG_SV.log(l_module_name,' src_line.RCV_SHIPMENT_LINE_ID ',src_line.RCV_SHIPMENT_LINE_ID);
1375: END IF;
1376:
1377:
1370:
1371: IF l_debug_on THEN
1372: WSH_DEBUG_SV.log(l_module_name,' LOOP CURSOR C_SOURCE_LINES ==> Iteration ',to_char(i));
1373: -- WSH_DEBUG_SV.log(l_module_name,' src_line.SOURCE_LINE_ID ',src_line.SOURCE_LINE_ID);
1374: WSH_DEBUG_SV.log(l_module_name,' src_line.RCV_SHIPMENT_LINE_ID ',src_line.RCV_SHIPMENT_LINE_ID);
1375: END IF;
1376:
1377:
1378: OPEN C_SOURCE_LINE_BOLS(src_line.SOURCE_LINE_ID,p_bol);
1379: FETCH C_SOURCE_LINE_BOLS INTO l_all_approved_line_cnt;
1380: CLOSE C_SOURCE_LINE_BOLS;
1381:
1382: IF l_debug_on THEN
1383: WSH_DEBUG_SV.log(l_module_name,' CURSOR ss C_SOURCE_LINE_BOLS ==> Iteration ',i);
1384: WSH_DEBUG_SV.log(l_module_name,' l_all_approved_line_cnt ',l_all_approved_line_cnt);
1385: END IF;
1386:
1387:
1380: CLOSE C_SOURCE_LINE_BOLS;
1381:
1382: IF l_debug_on THEN
1383: WSH_DEBUG_SV.log(l_module_name,' CURSOR ss C_SOURCE_LINE_BOLS ==> Iteration ',i);
1384: WSH_DEBUG_SV.log(l_module_name,' l_all_approved_line_cnt ',l_all_approved_line_cnt);
1385: END IF;
1386:
1387:
1388: IF l_all_approved_line_cnt = 0 THEN
1395: j := j + 1;
1396: l_current_amount := 0;
1397:
1398: IF l_debug_on THEN
1399: WSH_DEBUG_SV.log(l_module_name,' LOOP CURSOR C_DETAIL_INFO ==> Iteration ',j);
1400: WSH_DEBUG_SV.log(l_module_name,' src_det.MODE_OF_TRANSPORT ',src_det.MODE_OF_TRANSPORT);
1401: END IF;
1402:
1403:
1396: l_current_amount := 0;
1397:
1398: IF l_debug_on THEN
1399: WSH_DEBUG_SV.log(l_module_name,' LOOP CURSOR C_DETAIL_INFO ==> Iteration ',j);
1400: WSH_DEBUG_SV.log(l_module_name,' src_det.MODE_OF_TRANSPORT ',src_det.MODE_OF_TRANSPORT);
1401: END IF;
1402:
1403:
1404: IF src_det.MODE_OF_TRANSPORT = 'LTL' THEN
1408: WHERE INVOICE_HEADER_ID = p_invoice_header_id;
1409:
1410:
1411: IF l_debug_on THEN
1412: WSH_DEBUG_SV.log(l_module_name,' BILL type ',l_bill_type);
1413: WSH_DEBUG_SV.log(l_module_name,' l_inc_parent_bol ',l_inc_parent_bol);
1414: WSH_DEBUG_SV.log(l_module_name,' src_det.SEQUENCE_NUMBER ',src_det.SEQUENCE_NUMBER);
1415: END IF;
1416: -- Commented by Suresh to verify the fix Bug#4996996
1409:
1410:
1411: IF l_debug_on THEN
1412: WSH_DEBUG_SV.log(l_module_name,' BILL type ',l_bill_type);
1413: WSH_DEBUG_SV.log(l_module_name,' l_inc_parent_bol ',l_inc_parent_bol);
1414: WSH_DEBUG_SV.log(l_module_name,' src_det.SEQUENCE_NUMBER ',src_det.SEQUENCE_NUMBER);
1415: END IF;
1416: -- Commented by Suresh to verify the fix Bug#4996996
1417: --IF (l_bill_type = 'INC' AND
1410:
1411: IF l_debug_on THEN
1412: WSH_DEBUG_SV.log(l_module_name,' BILL type ',l_bill_type);
1413: WSH_DEBUG_SV.log(l_module_name,' l_inc_parent_bol ',l_inc_parent_bol);
1414: WSH_DEBUG_SV.log(l_module_name,' src_det.SEQUENCE_NUMBER ',src_det.SEQUENCE_NUMBER);
1415: END IF;
1416: -- Commented by Suresh to verify the fix Bug#4996996
1417: --IF (l_bill_type = 'INC' AND
1418: -- l_inc_parent_bol = src_det.SEQUENCE_NUMBER)
1427: p_invoice_header_id => p_invoice_header_id);
1428:
1429:
1430: IF l_debug_on THEN
1431: WSH_DEBUG_SV.log(l_module_name,' LTL approved_amount For Delivery Detail ',src_det.DELIVERY_DETAIL_ID);
1432: WSH_DEBUG_SV.log(l_module_name,' l_current_amount ',l_current_amount);
1433: END IF;
1434: --END IF;
1435:
1428:
1429:
1430: IF l_debug_on THEN
1431: WSH_DEBUG_SV.log(l_module_name,' LTL approved_amount For Delivery Detail ',src_det.DELIVERY_DETAIL_ID);
1432: WSH_DEBUG_SV.log(l_module_name,' l_current_amount ',l_current_amount);
1433: END IF;
1434: --END IF;
1435:
1436: ELSIF src_det.MODE_OF_TRANSPORT = 'TRUCK' THEN
1446: p_weight_uom => src_det.WEIGHT_UOM_CODE,
1447: g_currency_code => src_det.CURRENCY_CODE);
1448:
1449: IF l_debug_on THEN
1450: WSH_DEBUG_SV.log(l_module_name,' TRUCK approved_amount For Delivery Detail ',src_det.DELIVERY_DETAIL_ID);
1451: WSH_DEBUG_SV.log(l_module_name,' l_current_amount ',l_current_amount);
1452: END IF;
1453:
1454:
1447: g_currency_code => src_det.CURRENCY_CODE);
1448:
1449: IF l_debug_on THEN
1450: WSH_DEBUG_SV.log(l_module_name,' TRUCK approved_amount For Delivery Detail ',src_det.DELIVERY_DETAIL_ID);
1451: WSH_DEBUG_SV.log(l_module_name,' l_current_amount ',l_current_amount);
1452: END IF;
1453:
1454:
1455: END IF;
1458:
1459: END LOOP; -- END of C_DETAIL_INFO
1460:
1461: IF l_debug_on THEN
1462: -- WSH_DEBUG_SV.log(l_module_name,' TOTAL Approved Amount For RCV LINE ',src_line.RCV_SHIPMENT_LINE_ID);
1463: WSH_DEBUG_SV.log(l_module_name,' l_approved_amount ',l_approved_amount);
1464: END IF;
1465:
1466:
1459: END LOOP; -- END of C_DETAIL_INFO
1460:
1461: IF l_debug_on THEN
1462: -- WSH_DEBUG_SV.log(l_module_name,' TOTAL Approved Amount For RCV LINE ',src_line.RCV_SHIPMENT_LINE_ID);
1463: WSH_DEBUG_SV.log(l_module_name,' l_approved_amount ',l_approved_amount);
1464: END IF;
1465:
1466:
1467:
1471: CLOSE C_VENDOR_INFO;
1472:
1473:
1474: IF l_debug_on THEN
1475: WSH_DEBUG_SV.log(l_module_name,' ************ API Parameters ********************* ');
1476: -- WSH_DEBUG_SV.log(l_module_name,' src_line.SOURCE_LINE_ID ',src_line.SOURCE_LINE_ID);
1477: WSH_DEBUG_SV.log(l_module_name,' src_line.RCV_SHIPMENT_LINE_ID ',src_line.RCV_SHIPMENT_LINE_ID);
1478: WSH_DEBUG_SV.log(l_module_name,' l_approved_amount ',l_approved_amount);
1479: WSH_DEBUG_SV.log(l_module_name,' src_line.CURRENCY_CODE ',src_line.CURRENCY_CODE);
1472:
1473:
1474: IF l_debug_on THEN
1475: WSH_DEBUG_SV.log(l_module_name,' ************ API Parameters ********************* ');
1476: -- WSH_DEBUG_SV.log(l_module_name,' src_line.SOURCE_LINE_ID ',src_line.SOURCE_LINE_ID);
1477: WSH_DEBUG_SV.log(l_module_name,' src_line.RCV_SHIPMENT_LINE_ID ',src_line.RCV_SHIPMENT_LINE_ID);
1478: WSH_DEBUG_SV.log(l_module_name,' l_approved_amount ',l_approved_amount);
1479: WSH_DEBUG_SV.log(l_module_name,' src_line.CURRENCY_CODE ',src_line.CURRENCY_CODE);
1480: WSH_DEBUG_SV.log(l_module_name,' l_vendor_id ',l_vendor_id);
1473:
1474: IF l_debug_on THEN
1475: WSH_DEBUG_SV.log(l_module_name,' ************ API Parameters ********************* ');
1476: -- WSH_DEBUG_SV.log(l_module_name,' src_line.SOURCE_LINE_ID ',src_line.SOURCE_LINE_ID);
1477: WSH_DEBUG_SV.log(l_module_name,' src_line.RCV_SHIPMENT_LINE_ID ',src_line.RCV_SHIPMENT_LINE_ID);
1478: WSH_DEBUG_SV.log(l_module_name,' l_approved_amount ',l_approved_amount);
1479: WSH_DEBUG_SV.log(l_module_name,' src_line.CURRENCY_CODE ',src_line.CURRENCY_CODE);
1480: WSH_DEBUG_SV.log(l_module_name,' l_vendor_id ',l_vendor_id);
1481: WSH_DEBUG_SV.log(l_module_name,' l_vendor_site_id ',l_vendor_site_id);
1474: IF l_debug_on THEN
1475: WSH_DEBUG_SV.log(l_module_name,' ************ API Parameters ********************* ');
1476: -- WSH_DEBUG_SV.log(l_module_name,' src_line.SOURCE_LINE_ID ',src_line.SOURCE_LINE_ID);
1477: WSH_DEBUG_SV.log(l_module_name,' src_line.RCV_SHIPMENT_LINE_ID ',src_line.RCV_SHIPMENT_LINE_ID);
1478: WSH_DEBUG_SV.log(l_module_name,' l_approved_amount ',l_approved_amount);
1479: WSH_DEBUG_SV.log(l_module_name,' src_line.CURRENCY_CODE ',src_line.CURRENCY_CODE);
1480: WSH_DEBUG_SV.log(l_module_name,' l_vendor_id ',l_vendor_id);
1481: WSH_DEBUG_SV.log(l_module_name,' l_vendor_site_id ',l_vendor_site_id);
1482: WSH_DEBUG_SV.log(l_module_name,' *************************************************** ');
1475: WSH_DEBUG_SV.log(l_module_name,' ************ API Parameters ********************* ');
1476: -- WSH_DEBUG_SV.log(l_module_name,' src_line.SOURCE_LINE_ID ',src_line.SOURCE_LINE_ID);
1477: WSH_DEBUG_SV.log(l_module_name,' src_line.RCV_SHIPMENT_LINE_ID ',src_line.RCV_SHIPMENT_LINE_ID);
1478: WSH_DEBUG_SV.log(l_module_name,' l_approved_amount ',l_approved_amount);
1479: WSH_DEBUG_SV.log(l_module_name,' src_line.CURRENCY_CODE ',src_line.CURRENCY_CODE);
1480: WSH_DEBUG_SV.log(l_module_name,' l_vendor_id ',l_vendor_id);
1481: WSH_DEBUG_SV.log(l_module_name,' l_vendor_site_id ',l_vendor_site_id);
1482: WSH_DEBUG_SV.log(l_module_name,' *************************************************** ');
1483: END IF;
1476: -- WSH_DEBUG_SV.log(l_module_name,' src_line.SOURCE_LINE_ID ',src_line.SOURCE_LINE_ID);
1477: WSH_DEBUG_SV.log(l_module_name,' src_line.RCV_SHIPMENT_LINE_ID ',src_line.RCV_SHIPMENT_LINE_ID);
1478: WSH_DEBUG_SV.log(l_module_name,' l_approved_amount ',l_approved_amount);
1479: WSH_DEBUG_SV.log(l_module_name,' src_line.CURRENCY_CODE ',src_line.CURRENCY_CODE);
1480: WSH_DEBUG_SV.log(l_module_name,' l_vendor_id ',l_vendor_id);
1481: WSH_DEBUG_SV.log(l_module_name,' l_vendor_site_id ',l_vendor_site_id);
1482: WSH_DEBUG_SV.log(l_module_name,' *************************************************** ');
1483: END IF;
1484:
1477: WSH_DEBUG_SV.log(l_module_name,' src_line.RCV_SHIPMENT_LINE_ID ',src_line.RCV_SHIPMENT_LINE_ID);
1478: WSH_DEBUG_SV.log(l_module_name,' l_approved_amount ',l_approved_amount);
1479: WSH_DEBUG_SV.log(l_module_name,' src_line.CURRENCY_CODE ',src_line.CURRENCY_CODE);
1480: WSH_DEBUG_SV.log(l_module_name,' l_vendor_id ',l_vendor_id);
1481: WSH_DEBUG_SV.log(l_module_name,' l_vendor_site_id ',l_vendor_site_id);
1482: WSH_DEBUG_SV.log(l_module_name,' *************************************************** ');
1483: END IF;
1484:
1485:
1478: WSH_DEBUG_SV.log(l_module_name,' l_approved_amount ',l_approved_amount);
1479: WSH_DEBUG_SV.log(l_module_name,' src_line.CURRENCY_CODE ',src_line.CURRENCY_CODE);
1480: WSH_DEBUG_SV.log(l_module_name,' l_vendor_id ',l_vendor_id);
1481: WSH_DEBUG_SV.log(l_module_name,' l_vendor_site_id ',l_vendor_site_id);
1482: WSH_DEBUG_SV.log(l_module_name,' *************************************************** ');
1483: END IF;
1484:
1485:
1486: IF l_approved_amount <> 0 THEN
1503: -- END IF;
1504:
1505:
1506: IF l_debug_on THEN
1507: WSH_DEBUG_SV.log(l_module_name,' Called PO_CHARGES_GRP.Capture_FTE_Actual_Charges');
1508: WSH_DEBUG_SV.log(l_module_name,' l_return_status ',l_return_status);
1509: END IF;
1510:
1511:
1504:
1505:
1506: IF l_debug_on THEN
1507: WSH_DEBUG_SV.log(l_module_name,' Called PO_CHARGES_GRP.Capture_FTE_Actual_Charges');
1508: WSH_DEBUG_SV.log(l_module_name,' l_return_status ',l_return_status);
1509: END IF;
1510:
1511:
1512: ELSE
1510:
1511:
1512: ELSE
1513: IF l_debug_on THEN
1514: WSH_DEBUG_SV.log(l_module_name,' Approved Amount is Zero , PO API Not called ');
1515: END IF;
1516:
1517: END IF;
1518:
1523:
1524: END LOOP; -- End of C_SOURCE_LINES
1525:
1526: IF l_debug_on THEN
1527: WSH_DEBUG_SV.pop(l_module_name);
1528: END IF;
1529:
1530: EXCEPTION
1531: WHEN OTHERS THEN
1532: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1533: x_msg_data := ' Error Message = '||SQLERRM||' Code = '||SQLCODE;
1534:
1535: IF l_debug_on THEN
1536: WSH_DEBUG_SV.log(l_module_name,x_msg_data);
1537: WSH_DEBUG_SV.pop(l_module_name);
1538: END IF;
1539:
1540:
1533: x_msg_data := ' Error Message = '||SQLERRM||' Code = '||SQLCODE;
1534:
1535: IF l_debug_on THEN
1536: WSH_DEBUG_SV.log(l_module_name,x_msg_data);
1537: WSH_DEBUG_SV.pop(l_module_name);
1538: END IF;
1539:
1540:
1541:
1681:
1682: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1683:
1684: IF l_debug_on IS NULL THEN
1685: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1686: END IF;
1687:
1688: -- Initialize API return status to success
1689: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1691: x_msg_data := '';
1692:
1693:
1694: IF l_debug_on THEN
1695: WSH_DEBUG_SV.push(l_module_name);
1696: END IF;
1697:
1698: IF l_debug_on THEN
1699:
1696: END IF;
1697:
1698: IF l_debug_on THEN
1699:
1700: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
1701: WSH_DEBUG_SV.log(l_module_name,' Printing Parameters Below...... ');
1702: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
1703: WSH_DEBUG_SV.log(l_module_name,' p_bol ',p_bol);
1704: WSH_DEBUG_SV.log(l_module_name,' p_invoice_header_id ',p_invoice_header_id);
1697:
1698: IF l_debug_on THEN
1699:
1700: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
1701: WSH_DEBUG_SV.log(l_module_name,' Printing Parameters Below...... ');
1702: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
1703: WSH_DEBUG_SV.log(l_module_name,' p_bol ',p_bol);
1704: WSH_DEBUG_SV.log(l_module_name,' p_invoice_header_id ',p_invoice_header_id);
1705:
1698: IF l_debug_on THEN
1699:
1700: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
1701: WSH_DEBUG_SV.log(l_module_name,' Printing Parameters Below...... ');
1702: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
1703: WSH_DEBUG_SV.log(l_module_name,' p_bol ',p_bol);
1704: WSH_DEBUG_SV.log(l_module_name,' p_invoice_header_id ',p_invoice_header_id);
1705:
1706: END IF;
1699:
1700: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
1701: WSH_DEBUG_SV.log(l_module_name,' Printing Parameters Below...... ');
1702: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
1703: WSH_DEBUG_SV.log(l_module_name,' p_bol ',p_bol);
1704: WSH_DEBUG_SV.log(l_module_name,' p_invoice_header_id ',p_invoice_header_id);
1705:
1706: END IF;
1707:
1700: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
1701: WSH_DEBUG_SV.log(l_module_name,' Printing Parameters Below...... ');
1702: WSH_DEBUG_SV.log(l_module_name,' *****************************.. ');
1703: WSH_DEBUG_SV.log(l_module_name,' p_bol ',p_bol);
1704: WSH_DEBUG_SV.log(l_module_name,' p_invoice_header_id ',p_invoice_header_id);
1705:
1706: END IF;
1707:
1708:
1712:
1713: i := i + 1;
1714:
1715: IF l_debug_on THEN
1716: WSH_DEBUG_SV.log(l_module_name,' LOOP CURSOR C_SOURCE_LINES ==> Iteration '||i);
1717: WSH_DEBUG_SV.log(l_module_name,' src_line.SOURCE_LINE_ID ',src_line.SOURCE_LINE_ID);
1718: END IF;
1719:
1720:
1713: i := i + 1;
1714:
1715: IF l_debug_on THEN
1716: WSH_DEBUG_SV.log(l_module_name,' LOOP CURSOR C_SOURCE_LINES ==> Iteration '||i);
1717: WSH_DEBUG_SV.log(l_module_name,' src_line.SOURCE_LINE_ID ',src_line.SOURCE_LINE_ID);
1718: END IF;
1719:
1720:
1721: OPEN C_SOURCE_LINE_BOLS(src_line.SOURCE_LINE_ID,p_bol);
1722: FETCH C_SOURCE_LINE_BOLS INTO l_all_approved_line_cnt;
1723: CLOSE C_SOURCE_LINE_BOLS;
1724:
1725: IF l_debug_on THEN
1726: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_SOURCE_LINE_BOLS ==> Iteration ',i);
1727: WSH_DEBUG_SV.log(l_module_name,' l_all_approved_line_cnt ',l_all_approved_line_cnt);
1728: END IF;
1729:
1730:
1723: CLOSE C_SOURCE_LINE_BOLS;
1724:
1725: IF l_debug_on THEN
1726: WSH_DEBUG_SV.log(l_module_name,' CURSOR C_SOURCE_LINE_BOLS ==> Iteration ',i);
1727: WSH_DEBUG_SV.log(l_module_name,' l_all_approved_line_cnt ',l_all_approved_line_cnt);
1728: END IF;
1729:
1730:
1731: IF l_all_approved_line_cnt = 0 THEN
1739: j := j + 1;
1740: l_current_amount := 0;
1741:
1742: IF l_debug_on THEN
1743: WSH_DEBUG_SV.log(l_module_name,' LOOP CURSOR C_DETAIL_INFO ==> Iteration ',j);
1744: WSH_DEBUG_SV.log(l_module_name,' src_det.MODE_OF_TRANSPORT ',src_det.MODE_OF_TRANSPORT);
1745: END IF;
1746:
1747:
1740: l_current_amount := 0;
1741:
1742: IF l_debug_on THEN
1743: WSH_DEBUG_SV.log(l_module_name,' LOOP CURSOR C_DETAIL_INFO ==> Iteration ',j);
1744: WSH_DEBUG_SV.log(l_module_name,' src_det.MODE_OF_TRANSPORT ',src_det.MODE_OF_TRANSPORT);
1745: END IF;
1746:
1747:
1748:
1754: WHERE INVOICE_HEADER_ID = p_invoice_header_id;
1755:
1756:
1757: IF l_debug_on THEN
1758: WSH_DEBUG_SV.log(l_module_name,' BILL type ',l_bill_type);
1759: WSH_DEBUG_SV.log(l_module_name,' l_inc_parent_bol ',l_inc_parent_bol);
1760: WSH_DEBUG_SV.log(l_module_name,' src_det.SEQUENCE_NUMBER ',src_det.SEQUENCE_NUMBER);
1761: END IF;
1762:
1755:
1756:
1757: IF l_debug_on THEN
1758: WSH_DEBUG_SV.log(l_module_name,' BILL type ',l_bill_type);
1759: WSH_DEBUG_SV.log(l_module_name,' l_inc_parent_bol ',l_inc_parent_bol);
1760: WSH_DEBUG_SV.log(l_module_name,' src_det.SEQUENCE_NUMBER ',src_det.SEQUENCE_NUMBER);
1761: END IF;
1762:
1763: IF (l_bill_type = 'INC' AND
1756:
1757: IF l_debug_on THEN
1758: WSH_DEBUG_SV.log(l_module_name,' BILL type ',l_bill_type);
1759: WSH_DEBUG_SV.log(l_module_name,' l_inc_parent_bol ',l_inc_parent_bol);
1760: WSH_DEBUG_SV.log(l_module_name,' src_det.SEQUENCE_NUMBER ',src_det.SEQUENCE_NUMBER);
1761: END IF;
1762:
1763: IF (l_bill_type = 'INC' AND
1764: l_inc_parent_bol = src_det.SEQUENCE_NUMBER)
1773: p_invoice_header_id => p_invoice_header_id);
1774:
1775:
1776: IF l_debug_on THEN
1777: WSH_DEBUG_SV.log(l_module_name,' LTL approved_amount For Delivery Detail ',src_det.DELIVERY_DETAIL_ID);
1778: WSH_DEBUG_SV.log(l_module_name,' l_current_amount ',l_current_amount);
1779: END IF;
1780: END IF;
1781:
1774:
1775:
1776: IF l_debug_on THEN
1777: WSH_DEBUG_SV.log(l_module_name,' LTL approved_amount For Delivery Detail ',src_det.DELIVERY_DETAIL_ID);
1778: WSH_DEBUG_SV.log(l_module_name,' l_current_amount ',l_current_amount);
1779: END IF;
1780: END IF;
1781:
1782: ELSIF src_det.MODE_OF_TRANSPORT = 'TRUCK' THEN
1792: p_weight_uom => src_det.WEIGHT_UOM_CODE,
1793: g_currency_code => src_det.CURRENCY_CODE);
1794:
1795: IF l_debug_on THEN
1796: WSH_DEBUG_SV.log(l_module_name,' TRUCK approved_amount For Delivery Detail ',src_det.DELIVERY_DETAIL_ID);
1797: WSH_DEBUG_SV.log(l_module_name,' l_current_amount ',l_current_amount);
1798: END IF;
1799:
1800: END IF;
1793: g_currency_code => src_det.CURRENCY_CODE);
1794:
1795: IF l_debug_on THEN
1796: WSH_DEBUG_SV.log(l_module_name,' TRUCK approved_amount For Delivery Detail ',src_det.DELIVERY_DETAIL_ID);
1797: WSH_DEBUG_SV.log(l_module_name,' l_current_amount ',l_current_amount);
1798: END IF;
1799:
1800: END IF;
1801:
1810: CLOSE C_VENDOR_INFO;
1811:
1812:
1813: IF l_debug_on THEN
1814: WSH_DEBUG_SV.log(l_module_name,' ************ API Parameters ********************* ');
1815: WSH_DEBUG_SV.log(l_module_name,' src_line.SOURCE_LINE_ID ',src_line.SOURCE_LINE_ID);
1816: WSH_DEBUG_SV.log(l_module_name,' l_approved_amount ',l_approved_amount);
1817: WSH_DEBUG_SV.log(l_module_name,' src_line.CURRENCY_CODE ',src_line.CURRENCY_CODE);
1818: WSH_DEBUG_SV.log(l_module_name,' l_vendor_id ',l_vendor_id);
1811:
1812:
1813: IF l_debug_on THEN
1814: WSH_DEBUG_SV.log(l_module_name,' ************ API Parameters ********************* ');
1815: WSH_DEBUG_SV.log(l_module_name,' src_line.SOURCE_LINE_ID ',src_line.SOURCE_LINE_ID);
1816: WSH_DEBUG_SV.log(l_module_name,' l_approved_amount ',l_approved_amount);
1817: WSH_DEBUG_SV.log(l_module_name,' src_line.CURRENCY_CODE ',src_line.CURRENCY_CODE);
1818: WSH_DEBUG_SV.log(l_module_name,' l_vendor_id ',l_vendor_id);
1819: WSH_DEBUG_SV.log(l_module_name,' l_vendor_site_id ',l_vendor_site_id);
1812:
1813: IF l_debug_on THEN
1814: WSH_DEBUG_SV.log(l_module_name,' ************ API Parameters ********************* ');
1815: WSH_DEBUG_SV.log(l_module_name,' src_line.SOURCE_LINE_ID ',src_line.SOURCE_LINE_ID);
1816: WSH_DEBUG_SV.log(l_module_name,' l_approved_amount ',l_approved_amount);
1817: WSH_DEBUG_SV.log(l_module_name,' src_line.CURRENCY_CODE ',src_line.CURRENCY_CODE);
1818: WSH_DEBUG_SV.log(l_module_name,' l_vendor_id ',l_vendor_id);
1819: WSH_DEBUG_SV.log(l_module_name,' l_vendor_site_id ',l_vendor_site_id);
1820: WSH_DEBUG_SV.log(l_module_name,' *************************************************** ');
1813: IF l_debug_on THEN
1814: WSH_DEBUG_SV.log(l_module_name,' ************ API Parameters ********************* ');
1815: WSH_DEBUG_SV.log(l_module_name,' src_line.SOURCE_LINE_ID ',src_line.SOURCE_LINE_ID);
1816: WSH_DEBUG_SV.log(l_module_name,' l_approved_amount ',l_approved_amount);
1817: WSH_DEBUG_SV.log(l_module_name,' src_line.CURRENCY_CODE ',src_line.CURRENCY_CODE);
1818: WSH_DEBUG_SV.log(l_module_name,' l_vendor_id ',l_vendor_id);
1819: WSH_DEBUG_SV.log(l_module_name,' l_vendor_site_id ',l_vendor_site_id);
1820: WSH_DEBUG_SV.log(l_module_name,' *************************************************** ');
1821: END IF;
1814: WSH_DEBUG_SV.log(l_module_name,' ************ API Parameters ********************* ');
1815: WSH_DEBUG_SV.log(l_module_name,' src_line.SOURCE_LINE_ID ',src_line.SOURCE_LINE_ID);
1816: WSH_DEBUG_SV.log(l_module_name,' l_approved_amount ',l_approved_amount);
1817: WSH_DEBUG_SV.log(l_module_name,' src_line.CURRENCY_CODE ',src_line.CURRENCY_CODE);
1818: WSH_DEBUG_SV.log(l_module_name,' l_vendor_id ',l_vendor_id);
1819: WSH_DEBUG_SV.log(l_module_name,' l_vendor_site_id ',l_vendor_site_id);
1820: WSH_DEBUG_SV.log(l_module_name,' *************************************************** ');
1821: END IF;
1822:
1815: WSH_DEBUG_SV.log(l_module_name,' src_line.SOURCE_LINE_ID ',src_line.SOURCE_LINE_ID);
1816: WSH_DEBUG_SV.log(l_module_name,' l_approved_amount ',l_approved_amount);
1817: WSH_DEBUG_SV.log(l_module_name,' src_line.CURRENCY_CODE ',src_line.CURRENCY_CODE);
1818: WSH_DEBUG_SV.log(l_module_name,' l_vendor_id ',l_vendor_id);
1819: WSH_DEBUG_SV.log(l_module_name,' l_vendor_site_id ',l_vendor_site_id);
1820: WSH_DEBUG_SV.log(l_module_name,' *************************************************** ');
1821: END IF;
1822:
1823:
1816: WSH_DEBUG_SV.log(l_module_name,' l_approved_amount ',l_approved_amount);
1817: WSH_DEBUG_SV.log(l_module_name,' src_line.CURRENCY_CODE ',src_line.CURRENCY_CODE);
1818: WSH_DEBUG_SV.log(l_module_name,' l_vendor_id ',l_vendor_id);
1819: WSH_DEBUG_SV.log(l_module_name,' l_vendor_site_id ',l_vendor_site_id);
1820: WSH_DEBUG_SV.log(l_module_name,' *************************************************** ');
1821: END IF;
1822:
1823:
1824: IF l_approved_amount <> 0 THEN
1838: x_msg_data => l_msg_data,
1839: p_fte_actual_charge => l_po_rcv_charges);
1840:
1841: IF l_debug_on THEN
1842: WSH_DEBUG_SV.log(l_module_name,' Called PO_CHARGES_GRP.Capture_FTE_Actual_Charges');
1843: WSH_DEBUG_SV.log(l_module_name,' l_return_status ',l_return_status);
1844: END IF;
1845:
1846:
1839: p_fte_actual_charge => l_po_rcv_charges);
1840:
1841: IF l_debug_on THEN
1842: WSH_DEBUG_SV.log(l_module_name,' Called PO_CHARGES_GRP.Capture_FTE_Actual_Charges');
1843: WSH_DEBUG_SV.log(l_module_name,' l_return_status ',l_return_status);
1844: END IF;
1845:
1846:
1847: ELSE
1845:
1846:
1847: ELSE
1848: IF l_debug_on THEN
1849: WSH_DEBUG_SV.log(l_module_name,' Approved Amount is Zero , PO API Not called ');
1850: END IF;
1851:
1852: END IF;
1853:
1857:
1858: END LOOP; -- End of C_SOURCE_LINES
1859:
1860: IF l_debug_on THEN
1861: WSH_DEBUG_SV.pop(l_module_name);
1862: END IF;
1863:
1864:
1865: EXCEPTION
1868: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1869: x_msg_data := ' Error Message = '||SQLERRM||' Code = '||SQLCODE;
1870:
1871: IF l_debug_on THEN
1872: WSH_DEBUG_SV.log(l_module_name,x_msg_data);
1873: WSH_DEBUG_SV.pop(l_module_name);
1874: END IF;
1875:
1876:
1869: x_msg_data := ' Error Message = '||SQLERRM||' Code = '||SQLCODE;
1870:
1871: IF l_debug_on THEN
1872: WSH_DEBUG_SV.log(l_module_name,x_msg_data);
1873: WSH_DEBUG_SV.pop(l_module_name);
1874: END IF;
1875:
1876:
1877:
1894:
1895:
1896: -- Test Code
1897: wsh_debug_interface.g_Debug := TRUE;
1898: WSH_DEBUG_SV.start_debugger
1899: (x_file_name => l_file_name,
1900: x_return_status => l_return_status,
1901: x_msg_count => l_msg_count,
1902: x_msg_data => l_msg_data);
1905:
1906: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1907:
1908: IF l_debug_on IS NULL THEN
1909: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1910: END IF;
1911:
1912:
1913: IF p_mode_of_transport = 'LTL' THEN
1928:
1929:
1930: END IF;
1931:
1932: WSH_DEBUG_SV.stop_debugger;
1933:
1934: END CALCULATE_PO_FREIGHT;
1935:
1936:
1962:
1963: l_inv_org_rec XLE_BUSINESSINFO_GRP.Inv_Org_Rec_Type;
1964:
1965: --
1966: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
1967: --
1968: l_module_name CONSTANT VARCHAR2(100) := 'fte.plsql.' || G_PKG_NAME || '.' || 'Get_Legal_Entity';
1969:
1970: l_return_status VARCHAR2(32767);
1991:
1992: FND_MSG_PUB.initialize;
1993:
1994: IF l_debug_on THEN
1995: wsh_debug_sv.push(l_module_name);
1996: END IF;
1997:
1998:
1999: XLE_BUSINESSINFO_GRP.Get_InvOrg_Info(
2029: p_encoded => FND_API.G_FALSE
2030: );
2031:
2032: IF l_debug_on THEN
2033: WSH_DEBUG_SV.pop(l_module_name);
2034: END IF;
2035:
2036: EXCEPTION
2037:
2045: p_encoded => FND_API.G_FALSE
2046: );
2047:
2048: IF l_debug_on THEN
2049: WSH_DEBUG_SV.pop(l_module_name);
2050: END IF;
2051:
2052: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2053:
2060: p_encoded => FND_API.G_FALSE
2061: );
2062:
2063: IF l_debug_on THEN
2064: WSH_DEBUG_SV.pop(l_module_name);
2065: END IF;
2066:
2067: WHEN OTHERS THEN
2068: ROLLBACK TO GET_LEGAL_ENTITY_PUB;
2073: p_data => x_msg_data,
2074: p_encoded => FND_API.G_FALSE
2075: );
2076: IF l_debug_on THEN
2077: WSH_DEBUG_SV.pop(l_module_name);
2078: END IF;
2079:
2080:
2081: END Get_Legal_Entity;
2136: l_invoice_id NUMBER;
2137:
2138: l_api_name CONSTANT VARCHAR2(30) := 'Update_Status';
2139: l_api_version CONSTANT NUMBER := 1.0;
2140: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
2141:
2142: l_userName VARCHAR2(100);
2143: returnStatus VARCHAR2(10);
2144:
2155: BEGIN
2156: IF funcmode = 'RUN' THEN
2157:
2158: IF l_debug_on THEN
2159: WSH_DEBUG_SV.push(l_api_name);
2160: END IF;
2161:
2162:
2163: l_payment_status := 'N';
2178: itemkey => itemkey,
2179: aname => 'CHECK_ID');
2180:
2181: IF l_debug_on THEN
2182: WSH_DEBUG_SV.logmsg(l_api_name,to_char(l_check_id),WSH_DEBUG_SV.C_PROC_LEVEL);
2183: END IF;
2184:
2185:
2186: FOR get_c_invoice_rec IN c_invoice(l_check_id)
2247:
2248: END IF;
2249:
2250: IF l_debug_on THEN
2251: WSH_DEBUG_SV.pop(l_api_name);
2252: END IF;
2253:
2254:
2255: resultout := 'COMPLETE:Y';
2339: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2340: --
2341: IF l_debug_on IS NULL
2342: THEN
2343: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2344: END IF;
2345: --
2346: --
2347: -- Debug Statements
2346: --
2347: -- Debug Statements
2348: --
2349: IF l_debug_on THEN
2350: WSH_DEBUG_SV.push(l_module_name);
2351: END IF;
2352:
2353:
2354: l_itemtype := 'FTEDIST';
2363: AND HOI2.ORGANIZATION_ID = p_ship_from_org_id;
2364: EXCEPTION
2365: WHEN NO_DATA_FOUND THEN
2366: IF l_debug_on THEN
2367: WSH_DEBUG_SV.log(l_module_name,' Chart of Account is not defined for the Organization' , p_ship_from_org_id);
2368: END IF;
2369: END;
2370:
2371: -- Bug # 3401364
2371: -- Bug # 3401364
2372: WF_ITEM.CLEARCACHE;
2373:
2374: IF l_debug_on THEN
2375: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit FND_FLEX_WORKFLOW.INITIALIZE',WSH_DEBUG_SV.C_PROC_LEVEL);
2376: END IF;
2377:
2378: l_itemkey := FND_FLEX_WORKFLOW.INITIALIZE
2379: ('SQLGL',
2382: l_itemtype
2383: );
2384:
2385: IF l_debug_on THEN
2386: WSH_DEBUG_SV.log(l_module_name,'Item Key' , l_itemkey);
2387: END IF;
2388:
2389:
2390: /* Initialize the workflow item attributes */
2430: aname => 'DELIVERY_ID',
2431: avalue => p_delivery_id);
2432:
2433: IF l_debug_on THEN
2434: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit FND_FLEX_WORKFLOW.GENERATE(',WSH_DEBUG_SV.C_PROC_LEVEL);
2435: END IF;
2436:
2437: l_result := FND_FLEX_WORKFLOW.GENERATE(
2438: itemtype => l_itemtype,
2447: );
2448:
2449:
2450: IF l_debug_on THEN
2451: WSH_DEBUG_SV.log(l_module_name,'ccid : ' , lx_return_ccid);
2452: WSH_DEBUG_SV.log(l_module_name,'Concatenated Segments : ' , lx_concat_segs);
2453: WSH_DEBUG_SV.log(l_module_name,'Error Message' , l_errmsg);
2454: END IF;
2455:
2448:
2449:
2450: IF l_debug_on THEN
2451: WSH_DEBUG_SV.log(l_module_name,'ccid : ' , lx_return_ccid);
2452: WSH_DEBUG_SV.log(l_module_name,'Concatenated Segments : ' , lx_concat_segs);
2453: WSH_DEBUG_SV.log(l_module_name,'Error Message' , l_errmsg);
2454: END IF;
2455:
2456:
2449:
2450: IF l_debug_on THEN
2451: WSH_DEBUG_SV.log(l_module_name,'ccid : ' , lx_return_ccid);
2452: WSH_DEBUG_SV.log(l_module_name,'Concatenated Segments : ' , lx_concat_segs);
2453: WSH_DEBUG_SV.log(l_module_name,'Error Message' , l_errmsg);
2454: END IF;
2455:
2456:
2457:
2473:
2474: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2475: IF l_debug_on THEN
2476:
2477: WSH_DEBUG_SV.log(l_module_name,'Error Message' , l_errmsg);
2478: END IF;
2479:
2480:
2481: END IF;
2481: END IF;
2482:
2483:
2484: IF l_debug_on THEN
2485: WSH_DEBUG_SV.pop(l_module_name);
2486: END IF;
2487:
2488: RETURN l_return_status;
2489:
2491: WHEN OTHERS THEN
2492: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2493:
2494: IF l_debug_on THEN
2495: WSH_DEBUG_SV.log(l_module_name,'Unexpected Error occured in START_FRACCT_WF_PROCESS' || SQLERRM);
2496: WSH_DEBUG_SV.pop(l_module_name);
2497: END IF;
2498:
2499: return l_return_status;
2492: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2493:
2494: IF l_debug_on THEN
2495: WSH_DEBUG_SV.log(l_module_name,'Unexpected Error occured in START_FRACCT_WF_PROCESS' || SQLERRM);
2496: WSH_DEBUG_SV.pop(l_module_name);
2497: END IF;
2498:
2499: return l_return_status;
2500:
2552: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2553: --
2554: IF l_debug_on IS NULL
2555: THEN
2556: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2557: END IF;
2558: --
2559: --
2560: -- Debug Statements
2559: --
2560: -- Debug Statements
2561: --
2562: IF l_debug_on THEN
2563: WSH_DEBUG_SV.push(l_module_name);
2564: END IF;
2565:
2566: IF funcmode = 'RUN' THEN
2567:
2567:
2568: l_organization_id := wf_engine.getItemAttrNumber(itemtype,itemkey,'SHIP_FROM_ORG_ID');
2569:
2570: IF l_debug_on THEN
2571: WSH_DEBUG_SV.log(l_module_name, 'Ship From Org : ' , l_organization_id);
2572: END IF;
2573:
2574:
2575:
2578: FROM wsh_shipping_parameters
2579: WHERE organization_id = l_organization_id;
2580:
2581: IF l_debug_on THEN
2582: WSH_DEBUG_SV.log(l_module_name, ' Freight Account from Shipping Paramters (CCID) : ' , l_ccid);
2583: END IF;
2584:
2585:
2586:
2587: wf_engine.setItemAttrNumber(itemtype,itemkey,'GENERATED_CCID',l_ccid);
2588:
2589: result := 'COMPLETE:SUCCESS';
2590: IF l_debug_on THEN
2591: WSH_DEBUG_SV.pop(l_module_name);
2592: END IF;
2593: return;
2594:
2595: END IF;
2595: END IF;
2596:
2597: IF funcmode = 'CANCEL' THEN
2598: IF l_debug_on THEN
2599: WSH_DEBUG_SV.pop(l_module_name);
2600: END IF;
2601: return;
2602: END IF;
2603: