[Home] [Help]
63: l_module_name CONSTANT VARCHAR2(100) := 'FTE.PLSQL.' || G_PKG_NAME || '.GET_GLOBAL_UNIT_UOM';
64:
65: BEGIN
66:
67: FTE_UTIL_PKG.Enter_Debug(l_module_name);
68: x_status := -1;
69:
70: WSH_SHIPPING_PARAMS_PVT.GET_GLOBAL_PARAMETERS(l_params, l_return_status);
71:
70: WSH_SHIPPING_PARAMS_PVT.GET_GLOBAL_PARAMETERS(l_params, l_return_status);
71:
72: IF (l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS, WSH_UTIL_CORE.G_RET_STS_WARNING )) THEN
73: x_status := 2;
74: FTE_UTIL_PKG.Write_LogFile(l_module_name,'CALL TO WSH_SHIPPING_PARAMS_PVT.GET_GLOBAL_PARAMETERS RETURNED WITH STATUS', l_return_status);
75: FTE_UTIL_PKG.Exit_Debug(l_module_name);
76: RETURN NULL;
77: END IF;
78:
71:
72: IF (l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS, WSH_UTIL_CORE.G_RET_STS_WARNING )) THEN
73: x_status := 2;
74: FTE_UTIL_PKG.Write_LogFile(l_module_name,'CALL TO WSH_SHIPPING_PARAMS_PVT.GET_GLOBAL_PARAMETERS RETURNED WITH STATUS', l_return_status);
75: FTE_UTIL_PKG.Exit_Debug(l_module_name);
76: RETURN NULL;
77: END IF;
78:
79: l_unit_uom := l_params.UOM_FOR_NUM_OF_UNITS;
79: l_unit_uom := l_params.UOM_FOR_NUM_OF_UNITS;
80:
81: IF (l_unit_uom IS NULL) THEN
82: x_status := 2;
83: x_error_msg := FTE_UTIL_PKG.Get_Msg(p_name => 'FTE_GLOBAL_UNIT_UOM_NOT_DEFINE');
84:
85: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
86: p_module_name => l_module_name,
87: p_category => 'B',
81: IF (l_unit_uom IS NULL) THEN
82: x_status := 2;
83: x_error_msg := FTE_UTIL_PKG.Get_Msg(p_name => 'FTE_GLOBAL_UNIT_UOM_NOT_DEFINE');
84:
85: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
86: p_module_name => l_module_name,
87: p_category => 'B',
88: p_line_number => 0);
89: FTE_UTIL_PKG.Exit_Debug(l_module_name);
85: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
86: p_module_name => l_module_name,
87: p_category => 'B',
88: p_line_number => 0);
89: FTE_UTIL_PKG.Exit_Debug(l_module_name);
90: RETURN NULL;
91: END IF;
92:
93: FTE_UTIL_PKG.Exit_Debug(l_module_name);
89: FTE_UTIL_PKG.Exit_Debug(l_module_name);
90: RETURN NULL;
91: END IF;
92:
93: FTE_UTIL_PKG.Exit_Debug(l_module_name);
94:
95: RETURN l_unit_uom;
96:
97: EXCEPTION
96:
97: EXCEPTION
98: WHEN OTHERS THEN
99: x_status := 2;
100: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXPECTED ERROR in GET_GLOBAL_UNIT_UOM', sqlerrm);
101: FTE_UTIL_PKG.Exit_Debug(l_module_name);
102: END GET_GLOBAL_UNIT_UOM;
103:
104: --_________________________________________________________________________________--
97: EXCEPTION
98: WHEN OTHERS THEN
99: x_status := 2;
100: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXPECTED ERROR in GET_GLOBAL_UNIT_UOM', sqlerrm);
101: FTE_UTIL_PKG.Exit_Debug(l_module_name);
102: END GET_GLOBAL_UNIT_UOM;
103:
104: --_________________________________________________________________________________--
105: --
137: l_module_name CONSTANT VARCHAR2(100) := 'FTE.PLSQL.' || G_PKG_NAME || '.GET_CARRIER_PREFERENCES';
138:
139: BEGIN
140:
141: FTE_UTIL_PKG.Enter_Debug(l_module_name);
142: x_status := -1;
143:
144: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
145: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Getting Carrier Preferences for ' || p_carrier_name);
141: FTE_UTIL_PKG.Enter_Debug(l_module_name);
142: x_status := -1;
143:
144: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
145: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Getting Carrier Preferences for ' || p_carrier_name);
146: END IF;
147:
148: -- Unit rate basis for WEIGHT/VOLUME/CONTAINER/PALLET
149: IF (g_carrier_name <> p_carrier_name OR
181: hz.party_id = ca.carrier_id;
182: EXCEPTION
183: WHEN NO_DATA_FOUND THEN
184: x_status := 2;
185: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_SEL_INVALID_CARRIER',
186: p_tokens => STRINGARRAY('NAME'),
187: p_values => STRINGARRAY(p_carrier_name));
188:
189: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
185: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_SEL_INVALID_CARRIER',
186: p_tokens => STRINGARRAY('NAME'),
187: p_values => STRINGARRAY(p_carrier_name));
188:
189: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
190: p_module_name => l_module_name,
191: p_category => 'D',
192: p_line_number => p_line_number);
193: FTE_UTIL_PKG.Exit_Debug(l_module_name);
189: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
190: p_module_name => l_module_name,
191: p_category => 'D',
192: p_line_number => p_line_number);
193: FTE_UTIL_PKG.Exit_Debug(l_module_name);
194: RETURN;
195: WHEN OTHERS THEN
196: x_status := 2;
197: x_error_msg := sqlerrm;
194: RETURN;
195: WHEN OTHERS THEN
196: x_status := 2;
197: x_error_msg := sqlerrm;
198: FTE_UTIL_PKG.Write_LogFile(l_module_name,'UNEXPECTED ERROR occured ' || sqlerrm );
199: FTE_UTIL_PKG.Exit_Debug(l_module_name);
200: RETURN;
201: END;
202:
195: WHEN OTHERS THEN
196: x_status := 2;
197: x_error_msg := sqlerrm;
198: FTE_UTIL_PKG.Write_LogFile(l_module_name,'UNEXPECTED ERROR occured ' || sqlerrm );
199: FTE_UTIL_PKG.Exit_Debug(l_module_name);
200: RETURN;
201: END;
202:
203: --+
204: -- Get the carrier's prefered rate basis uom.
205: --+
206: IF (g_carrier_unit_basis IS NULL) THEN
207: x_status := 2;
208: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CARRIER_RATE_BASIS_NOT_SET',
209: p_tokens => STRINGARRAY('CARRIER'),
210: p_values => STRINGARRAY(p_carrier_name));
211: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
212: p_module_name => l_module_name,
207: x_status := 2;
208: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CARRIER_RATE_BASIS_NOT_SET',
209: p_tokens => STRINGARRAY('CARRIER'),
210: p_values => STRINGARRAY(p_carrier_name));
211: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
212: p_module_name => l_module_name,
213: p_category => 'B',
214: p_line_number => p_line_number);
215: FTE_UTIL_PKG.Exit_Debug(l_module_name);
211: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
212: p_module_name => l_module_name,
213: p_category => 'B',
214: p_line_number => p_line_number);
215: FTE_UTIL_PKG.Exit_Debug(l_module_name);
216: RETURN;
217:
218: ELSIF (g_carrier_unit_basis = 'WEIGHT') THEN
219:
234:
235: END IF;
236:
237: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
238: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_carrier_name ', g_carrier_name);
239: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_service_level ', g_service_level);
240: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_carrier_id ', g_carrier_id);
241: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_rate_basis ', g_carrier_unit_basis);
242: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_rate_basis_uom',g_carrier_unit_basis_uom);
235: END IF;
236:
237: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
238: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_carrier_name ', g_carrier_name);
239: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_service_level ', g_service_level);
240: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_carrier_id ', g_carrier_id);
241: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_rate_basis ', g_carrier_unit_basis);
242: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_rate_basis_uom',g_carrier_unit_basis_uom);
243: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_currency_code ',g_carrier_currency);
236:
237: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
238: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_carrier_name ', g_carrier_name);
239: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_service_level ', g_service_level);
240: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_carrier_id ', g_carrier_id);
241: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_rate_basis ', g_carrier_unit_basis);
242: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_rate_basis_uom',g_carrier_unit_basis_uom);
243: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_currency_code ',g_carrier_currency);
244: END IF;
237: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
238: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_carrier_name ', g_carrier_name);
239: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_service_level ', g_service_level);
240: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_carrier_id ', g_carrier_id);
241: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_rate_basis ', g_carrier_unit_basis);
242: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_rate_basis_uom',g_carrier_unit_basis_uom);
243: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_currency_code ',g_carrier_currency);
244: END IF;
245:
238: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_carrier_name ', g_carrier_name);
239: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_service_level ', g_service_level);
240: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_carrier_id ', g_carrier_id);
241: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_rate_basis ', g_carrier_unit_basis);
242: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_rate_basis_uom',g_carrier_unit_basis_uom);
243: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_currency_code ',g_carrier_currency);
244: END IF;
245:
246: FTE_UTIL_PKG.Exit_Debug(l_module_name);
239: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_service_level ', g_service_level);
240: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_carrier_id ', g_carrier_id);
241: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_rate_basis ', g_carrier_unit_basis);
242: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_rate_basis_uom',g_carrier_unit_basis_uom);
243: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_currency_code ',g_carrier_currency);
244: END IF;
245:
246: FTE_UTIL_PKG.Exit_Debug(l_module_name);
247:
242: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_rate_basis_uom',g_carrier_unit_basis_uom);
243: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_currency_code ',g_carrier_currency);
244: END IF;
245:
246: FTE_UTIL_PKG.Exit_Debug(l_module_name);
247:
248: EXCEPTION WHEN OTHERS THEN
249:
250: x_status := 2;
248: EXCEPTION WHEN OTHERS THEN
249:
250: x_status := 2;
251: x_error_msg := sqlerrm;
252: FTE_UTIL_PKG.Write_LogFile(l_module_name, sqlerrm);
253: FTE_UTIL_PKG.Exit_Debug(l_module_name);
254:
255: END GET_CARRIER_PREFERENCES;
256:
249:
250: x_status := 2;
251: x_error_msg := sqlerrm;
252: FTE_UTIL_PKG.Write_LogFile(l_module_name, sqlerrm);
253: FTE_UTIL_PKG.Exit_Debug(l_module_name);
254:
255: END GET_CARRIER_PREFERENCES;
256:
257: --_________________________________________________________________________________--
290: l_module_name CONSTANT VARCHAR2(100) := 'FTE.PLSQL.' || G_PKG_NAME || '.CHECK_RATE_BASIS';
291:
292: BEGIN
293:
294: FTE_UTIL_PKG.Enter_Debug(l_module_name);
295: x_status := -1;
296: l_basis_type := p_rate_basis;
297:
298: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
295: x_status := -1;
296: l_basis_type := p_rate_basis;
297:
298: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
299: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_carrier_name ',p_carrier_name);
300: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_rate_basis ',p_rate_basis);
301: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_rate_basis_uom',p_rate_basis_uom);
302: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_service_level',p_service_level);
303: END IF;
296: l_basis_type := p_rate_basis;
297:
298: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
299: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_carrier_name ',p_carrier_name);
300: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_rate_basis ',p_rate_basis);
301: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_rate_basis_uom',p_rate_basis_uom);
302: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_service_level',p_service_level);
303: END IF;
304:
297:
298: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
299: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_carrier_name ',p_carrier_name);
300: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_rate_basis ',p_rate_basis);
301: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_rate_basis_uom',p_rate_basis_uom);
302: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_service_level',p_service_level);
303: END IF;
304:
305: GET_CARRIER_PREFERENCES (p_carrier_name => p_carrier_name,
298: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
299: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_carrier_name ',p_carrier_name);
300: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_rate_basis ',p_rate_basis);
301: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_rate_basis_uom',p_rate_basis_uom);
302: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_service_level',p_service_level);
303: END IF;
304:
305: GET_CARRIER_PREFERENCES (p_carrier_name => p_carrier_name,
306: p_service_level => p_service_level,
308: x_status => x_status,
309: x_error_msg => x_error_msg);
310:
311: IF (x_status <> -1) THEN
312: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'GET_CARRIER_PREFERENCES returned with error');
313: FTE_UTIL_PKG.Exit_Debug(l_module_name);
314: RETURN;
315: END IF;
316:
309: x_error_msg => x_error_msg);
310:
311: IF (x_status <> -1) THEN
312: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'GET_CARRIER_PREFERENCES returned with error');
313: FTE_UTIL_PKG.Exit_Debug(l_module_name);
314: RETURN;
315: END IF;
316:
317: IF (p_rate_basis IN (FTE_RTG_GLOBALS.G_TL_RATE_BASIS_CONT, -- Container
323:
324: IF (p_rate_basis <> g_carrier_unit_basis) THEN
325:
326: x_status := 2;
327: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_RATE_BASIS_NO_MATCH',
328: p_tokens => STRINGARRAY('RATE_BASIS','CARRIER'),
329: p_values => STRINGARRAY(p_rate_basis,p_carrier_name));
330: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
331: p_module_name => l_module_name,
326: x_status := 2;
327: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_RATE_BASIS_NO_MATCH',
328: p_tokens => STRINGARRAY('RATE_BASIS','CARRIER'),
329: p_values => STRINGARRAY(p_rate_basis,p_carrier_name));
330: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
331: p_module_name => l_module_name,
332: p_category => 'D',
333: p_line_number => p_line_number);
334: FTE_UTIL_PKG.Exit_Debug(l_module_name);
330: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
331: p_module_name => l_module_name,
332: p_category => 'D',
333: p_line_number => p_line_number);
334: FTE_UTIL_PKG.Exit_Debug(l_module_name);
335: RETURN;
336:
337: ELSIF (p_rate_basis_uom <> g_carrier_unit_basis_uom) THEN
338: x_status := 3;
353: --+
354: -- The rate basis uom did not match that of the carrier
355: --+
356: IF (x_status = 3) THEN
357: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_RATE_BASIS_UOM_NO_MATCH',
358: p_tokens => STRINGARRAY('RATE_BASIS_UOM','CARRIER'),
359: p_values => STRINGARRAY(p_rate_basis_uom,p_carrier_name));
360: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
361: p_module_name => l_module_name,
356: IF (x_status = 3) THEN
357: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_RATE_BASIS_UOM_NO_MATCH',
358: p_tokens => STRINGARRAY('RATE_BASIS_UOM','CARRIER'),
359: p_values => STRINGARRAY(p_rate_basis_uom,p_carrier_name));
360: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
361: p_module_name => l_module_name,
362: p_category => 'D',
363: p_line_number => p_line_number);
364: FTE_UTIL_PKG.Exit_Debug(l_module_name);
360: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
361: p_module_name => l_module_name,
362: p_category => 'D',
363: p_line_number => p_line_number);
364: FTE_UTIL_PKG.Exit_Debug(l_module_name);
365: x_status := 2;
366:
367: END IF;
368:
365: x_status := 2;
366:
367: END IF;
368:
369: FTE_UTIL_PKG.Exit_Debug(l_module_name);
370:
371: EXCEPTION
372: WHEN OTHERS THEN
373: x_error_msg := sqlerrm;
371: EXCEPTION
372: WHEN OTHERS THEN
373: x_error_msg := sqlerrm;
374: x_status := 2;
375: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXPECTED ERROR IN CHECK_RATE_BASIS ' || sqlerrm);
376: FTE_UTIL_PKG.Exit_Debug(l_module_name);
377:
378: END CHECK_RATE_BASIS;
379:
372: WHEN OTHERS THEN
373: x_error_msg := sqlerrm;
374: x_status := 2;
375: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXPECTED ERROR IN CHECK_RATE_BASIS ' || sqlerrm);
376: FTE_UTIL_PKG.Exit_Debug(l_module_name);
377:
378: END CHECK_RATE_BASIS;
379:
380: --____________________________________________________________________________--
438: l_module_name CONSTANT VARCHAR2(100) := 'FTE.PLSQL.' || G_PKG_NAME || '.CHECK_DUPLICATE_RATE_CHART';
439:
440: BEGIN
441:
442: FTE_UTIL_PKG.Enter_Debug(l_module_name);
443: x_status := -1;
444:
445: --
446: -- Ensure that there is no rate chart with the same qualifier set
455: x_error_msg => x_error_msg,
456: x_status => x_status);
457:
458: IF (x_status <> -1) THEN
459: FTE_UTIL_PKG.Write_LogFile(l_module_name,'GET_CARRIER_PREFERENCES returned with error' || x_error_msg);
460: FTE_UTIL_PKG.Exit_Debug(l_module_name);
461: RETURN;
462: END IF;
463:
456: x_status => x_status);
457:
458: IF (x_status <> -1) THEN
459: FTE_UTIL_PKG.Write_LogFile(l_module_name,'GET_CARRIER_PREFERENCES returned with error' || x_error_msg);
460: FTE_UTIL_PKG.Exit_Debug(l_module_name);
461: RETURN;
462: END IF;
463:
464: OPEN GET_TL_CHARTS;
467:
468: FOR i IN 1..l_rc_types.COUNT LOOP
469: IF (l_rc_types(i) = p_chart_type) THEN
470: x_status := 2;
471: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_DUPLICATE_CHART');
472: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
473: p_module_name => l_module_name,
474: p_category => 'C',
475: p_line_number => p_line_number);
468: FOR i IN 1..l_rc_types.COUNT LOOP
469: IF (l_rc_types(i) = p_chart_type) THEN
470: x_status := 2;
471: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_DUPLICATE_CHART');
472: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
473: p_module_name => l_module_name,
474: p_category => 'C',
475: p_line_number => p_line_number);
476: FTE_UTIL_PKG.Exit_Debug(l_module_name);
472: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
473: p_module_name => l_module_name,
474: p_category => 'C',
475: p_line_number => p_line_number);
476: FTE_UTIL_PKG.Exit_Debug(l_module_name);
477: RETURN;
478: END IF;
479: END LOOP;
480:
479: END LOOP;
480:
481: END IF;
482:
483: FTE_UTIL_PKG.Exit_Debug(l_module_name);
484:
485: EXCEPTION
486: WHEN OTHERS THEN
487: x_status := 2;
484:
485: EXCEPTION
486: WHEN OTHERS THEN
487: x_status := 2;
488: FTE_UTIL_PKG.Write_LogFile(l_module_name,'UNEXPECTED ERROR in CHECK_DUPLICATE_RATE_CHART ', sqlerrm);
489: FTE_UTIL_PKG.Exit_Debug(l_module_name);
490:
491: END CHECK_DUPLICATE_RATE_CHART;
492:
485: EXCEPTION
486: WHEN OTHERS THEN
487: x_status := 2;
488: FTE_UTIL_PKG.Write_LogFile(l_module_name,'UNEXPECTED ERROR in CHECK_DUPLICATE_RATE_CHART ', sqlerrm);
489: FTE_UTIL_PKG.Exit_Debug(l_module_name);
490:
491: END CHECK_DUPLICATE_RATE_CHART;
492:
493: --______________________________________________________________________________________--
532: l_module_name CONSTANT VARCHAR2(100) := 'FTE.PLSQL.' || G_PKG_NAME || '.GET_CHART_DATA';
533:
534: BEGIN
535:
536: FTE_UTIL_PKG.Enter_Debug(l_module_name);
537: x_status := -1;
538:
539: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
540: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_chart_name',p_chart_name);
536: FTE_UTIL_PKG.Enter_Debug(l_module_name);
537: x_status := -1;
538:
539: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
540: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_chart_name',p_chart_name);
541: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_currency ',p_currency);
542: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_chart_type', p_chart_type);
543: END IF;
544:
537: x_status := -1;
538:
539: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
540: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_chart_name',p_chart_name);
541: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_currency ',p_currency);
542: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_chart_type', p_chart_type);
543: END IF;
544:
545: FOR i IN 1.. Chart_Names.COUNT LOOP
538:
539: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
540: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_chart_name',p_chart_name);
541: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_currency ',p_currency);
542: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_chart_type', p_chart_type);
543: END IF;
544:
545: FOR i IN 1.. Chart_Names.COUNT LOOP
546:
551: IF (x_service_level IS NULL) THEN
552: x_service_level := chart_service_levels(i);
553: ELSIF (x_service_level <> chart_service_levels(i)) THEN
554: x_status := 2;
555: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_SERVICE_LEVELS_NOT_SAME');
556: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
557: p_module_name => l_module_name,
558: p_category => 'D',
559: p_line_number => p_line_number);
552: x_service_level := chart_service_levels(i);
553: ELSIF (x_service_level <> chart_service_levels(i)) THEN
554: x_status := 2;
555: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_SERVICE_LEVELS_NOT_SAME');
556: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
557: p_module_name => l_module_name,
558: p_category => 'D',
559: p_line_number => p_line_number);
560: FTE_UTIL_PKG.Exit_Debug(l_module_name);
556: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
557: p_module_name => l_module_name,
558: p_category => 'D',
559: p_line_number => p_line_number);
560: FTE_UTIL_PKG.Exit_Debug(l_module_name);
561: RETURN;
562: END IF;
563: chart_exists := true;
564: EXIT;
577:
578: IF (p_chart_type IS NOT NULL) THEN
579: Chart_Types(Chart_Types.COUNT + 1) := p_chart_type;
580: ELSE
581: FTE_UTIL_PKG.Write_LogFile(l_module_name,'Programmer Error: Chart_Type NOT SPECIFIED');
582: x_status := 2;
583: END IF;
584:
585: x_job_id := FTE_BULKLOAD_PKG.GET_PROCESS_ID;
598: x_error_msg => x_error_msg,
599: x_status => x_status);
600:
601: IF (x_status <> -1) THEN
602: FTE_UTIL_PKG.Exit_Debug(l_module_name);
603: RETURN;
604: END IF;
605: END IF;
606: END IF;
604: END IF;
605: END IF;
606: END IF;
607:
608: FTE_UTIL_PKG.Exit_Debug(l_module_name);
609:
610: EXCEPTION
611: WHEN OTHERS THEN
612: x_status := 2;
609:
610: EXCEPTION
611: WHEN OTHERS THEN
612: x_status := 2;
613: FTE_UTIL_PKG.Write_LogFile(l_module_name, sqlerrm);
614: FTE_UTIL_PKG.Exit_Debug(l_module_name);
615:
616: END GET_CHART_DATA;
617:
610: EXCEPTION
611: WHEN OTHERS THEN
612: x_status := 2;
613: FTE_UTIL_PKG.Write_LogFile(l_module_name, sqlerrm);
614: FTE_UTIL_PKG.Exit_Debug(l_module_name);
615:
616: END GET_CHART_DATA;
617:
618: --_________________________________________________________________________________--
668:
669: l_module_name CONSTANT VARCHAR2(100) := 'FTE.PLSQL.' || G_PKG_NAME || '.IS_LANE_LOADED';
670:
671: BEGIN
672: FTE_UTIL_PKG.Enter_Debug(l_module_name);
673: x_status := -1;
674:
675: l_name := UPPER(p_chart_name);
676:
674:
675: l_name := UPPER(p_chart_name);
676:
677: IF ( FTE_BULKLOAD_PKG.g_debug_on ) THEN
678: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_name ',l_name );
679: END IF;
680:
681: OPEN GET_LANES(p_chart_name);
682:
700: x_status => x_status);
701:
702: IF (x_status <> -1) THEN
703: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
704: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Error message from GET_CARRIER_PREFERENCES => ' || x_error_msg );
705: END IF;
706: FTE_UTIL_PKG.Exit_Debug(l_module_name);
707: RETURN FALSE;
708: END IF;
702: IF (x_status <> -1) THEN
703: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
704: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Error message from GET_CARRIER_PREFERENCES => ' || x_error_msg );
705: END IF;
706: FTE_UTIL_PKG.Exit_Debug(l_module_name);
707: RETURN FALSE;
708: END IF;
709:
710: FOR i IN 1..l_carrier_ids.COUNT LOOP
708: END IF;
709:
710: FOR i IN 1..l_carrier_ids.COUNT LOOP
711: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
712: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_lane_numbers(' || i || ')', l_lane_numbers(i));
713: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_lane_services('|| i || ')', l_lane_services(i));
714: END IF;
715:
716: IF (g_carrier_id <> l_carrier_ids(i)) THEN
709:
710: FOR i IN 1..l_carrier_ids.COUNT LOOP
711: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
712: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_lane_numbers(' || i || ')', l_lane_numbers(i));
713: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_lane_services('|| i || ')', l_lane_services(i));
714: END IF;
715:
716: IF (g_carrier_id <> l_carrier_ids(i)) THEN
717: x_status := 2;
715:
716: IF (g_carrier_id <> l_carrier_ids(i)) THEN
717: x_status := 2;
718: l_lane_loaded := false;
719: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_CARRIER_LANE_MISMATCH',
720: p_tokens => STRINGARRAY('CARRIER','RATE_CHART','SERVICE'),
721: p_values => STRINGARRAY(p_carrier_name,p_chart_name,l_lane_numbers(i)));
722: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
723: p_module_name => l_module_name,
718: l_lane_loaded := false;
719: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_CARRIER_LANE_MISMATCH',
720: p_tokens => STRINGARRAY('CARRIER','RATE_CHART','SERVICE'),
721: p_values => STRINGARRAY(p_carrier_name,p_chart_name,l_lane_numbers(i)));
722: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
723: p_module_name => l_module_name,
724: p_category => 'D',
725: p_line_number => p_line_number);
726: EXIT;
726: EXIT;
727: ELSIF (p_service_level <> l_lane_services(i)) THEN
728: x_status := 2;
729: l_lane_loaded := false;
730: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_SERV_LEVEL_LANE_MISMATCH',
731: p_tokens => STRINGARRAY('RATE_CHART','SERVICE'),
732: p_values => STRINGARRAY(p_chart_name,l_lane_numbers(i)));
733: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
734: p_module_name => l_module_name,
729: l_lane_loaded := false;
730: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_SERV_LEVEL_LANE_MISMATCH',
731: p_tokens => STRINGARRAY('RATE_CHART','SERVICE'),
732: p_values => STRINGARRAY(p_chart_name,l_lane_numbers(i)));
733: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
734: p_module_name => l_module_name,
735: p_category => 'D',
736: p_line_number => p_line_number);
737:
739: END IF;
740: END LOOP;
741: END IF;
742:
743: FTE_UTIL_PKG.Exit_Debug(l_module_name);
744:
745: RETURN l_lane_loaded;
746:
747: EXCEPTION
749: IF ( GET_LANES%ISOPEN ) THEN
750: CLOSE GET_LANES;
751: END IF;
752: x_status := 2;
753: FTE_UTIL_PKG.Write_LogFile(l_module_name, sqlerrm);
754: FTE_UTIL_PKG.Exit_Debug(l_module_name);
755:
756: END IS_LANE_LOADED;
757:
750: CLOSE GET_LANES;
751: END IF;
752: x_status := 2;
753: FTE_UTIL_PKG.Write_LogFile(l_module_name, sqlerrm);
754: FTE_UTIL_PKG.Exit_Debug(l_module_name);
755:
756: END IS_LANE_LOADED;
757:
758: --_________________________________________________________________________________--
777:
778: l_module_name CONSTANT VARCHAR2(100) := 'FTE.PLSQL.' || G_PKG_NAME || '.SET_CHART_LINE';
779:
780: BEGIN
781: FTE_UTIL_PKG.Enter_Debug(l_module_name);
782: x_status := -1;
783:
784: FOR i IN 1.. Chart_Names.COUNT LOOP
785: IF (p_chart_name = Chart_Names(i)) THEN
783:
784: FOR i IN 1.. Chart_Names.COUNT LOOP
785: IF (p_chart_name = Chart_Names(i)) THEN
786: Chart_LineNums(i) := p_linenum;
787: FTE_UTIL_PKG.Exit_Debug(l_module_name);
788: RETURN;
789: END IF;
790: END LOOP;
791:
791:
792: x_status := 2;
793:
794: IF( FTE_BULKLOAD_PKG.g_debug_on) THEN
795: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Error: Rate Chart ' || p_chart_name || ' not found');
796: END IF;
797:
798: FTE_UTIL_PKG.Exit_Debug(l_module_name);
799:
794: IF( FTE_BULKLOAD_PKG.g_debug_on) THEN
795: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Error: Rate Chart ' || p_chart_name || ' not found');
796: END IF;
797:
798: FTE_UTIL_PKG.Exit_Debug(l_module_name);
799:
800: EXCEPTION
801: WHEN OTHERS THEN
802: x_status := 2;
799:
800: EXCEPTION
801: WHEN OTHERS THEN
802: x_status := 2;
803: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXPECTED ERROR IN SET_CHART_LINE: ' || sqlerrm);
804: FTE_UTIL_PKG.Exit_Debug(l_module_name);
805:
806: END SET_CHART_LINE;
807:
800: EXCEPTION
801: WHEN OTHERS THEN
802: x_status := 2;
803: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXPECTED ERROR IN SET_CHART_LINE: ' || sqlerrm);
804: FTE_UTIL_PKG.Exit_Debug(l_module_name);
805:
806: END SET_CHART_LINE;
807:
808: --_________________________________________________________________________________--
843: l_module_name CONSTANT VARCHAR2(100) := 'FTE.PLSQL.' || G_PKG_NAME || '.LINK_RC_MODIFIERS';
844:
845: BEGIN
846:
847: FTE_UTIL_PKG.Enter_Debug(l_module_name);
848: x_status := -1;
849:
850: --
851: -- Get the associated modifier name, if it exists.
856:
857: l_mod_name := Link_ModifierNames(i);
858:
859: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
860: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Modifier for ' || p_chart_name || ' is ' || l_mod_name);
861: END IF;
862:
863: BEGIN
864: SELECT
875:
876: EXCEPTION
877: WHEN NO_DATA_FOUND THEN
878: x_status := 2;
879: FTE_UTIL_PKG.Write_LogFile(l_module_name,'Rate Chart ' || p_chart_name || ' has not been loaded!'); --message.
880: FTE_UTIL_PKG.Exit_Debug(l_module_name);
881: RETURN;
882: END;
883:
876: EXCEPTION
877: WHEN NO_DATA_FOUND THEN
878: x_status := 2;
879: FTE_UTIL_PKG.Write_LogFile(l_module_name,'Rate Chart ' || p_chart_name || ' has not been loaded!'); --message.
880: FTE_UTIL_PKG.Exit_Debug(l_module_name);
881: RETURN;
882: END;
883:
884: -- Get the process_id of the modifier, for update.
893: x_error_msg => x_error_msg,
894: x_status => x_status);
895:
896: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
897: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'p_chart_name', p_chart_name);
898: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_mod_name ', l_mod_name);
899: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rc_id ', l_rc_id);
900: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_mod_pid ', l_mod_pid);
901: END IF;
894: x_status => x_status);
895:
896: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
897: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'p_chart_name', p_chart_name);
898: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_mod_name ', l_mod_name);
899: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rc_id ', l_rc_id);
900: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_mod_pid ', l_mod_pid);
901: END IF;
902:
895:
896: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
897: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'p_chart_name', p_chart_name);
898: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_mod_name ', l_mod_name);
899: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rc_id ', l_rc_id);
900: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_mod_pid ', l_mod_pid);
901: END IF;
902:
903: l_qualifier_data('ACTION') := 'ADD';
896: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
897: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'p_chart_name', p_chart_name);
898: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_mod_name ', l_mod_name);
899: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rc_id ', l_rc_id);
900: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_mod_pid ', l_mod_pid);
901: END IF;
902:
903: l_qualifier_data('ACTION') := 'ADD';
904: l_qualifier_data('RATE_CHART_NAME') := p_chart_name;
918: l_qualifier_data.DELETE;
919: l_qualifier_data_tbl.DELETE;
920:
921: IF (x_status <> -1) THEN
922: FTE_UTIL_PKG.Write_LogFile(l_module_name, x_error_msg);
923: FTE_UTIL_PKG.Exit_Debug(l_module_name);
924: RETURN;
925: END IF;
926:
919: l_qualifier_data_tbl.DELETE;
920:
921: IF (x_status <> -1) THEN
922: FTE_UTIL_PKG.Write_LogFile(l_module_name, x_error_msg);
923: FTE_UTIL_PKG.Exit_Debug(l_module_name);
924: RETURN;
925: END IF;
926:
927: FTE_RATE_CHART_LOADER.SUBMIT_QP_PROCESS(p_qp_call => FALSE,
927: FTE_RATE_CHART_LOADER.SUBMIT_QP_PROCESS(p_qp_call => FALSE,
928: x_status => x_status,
929: x_error_msg => x_error_msg);
930: IF (x_status <> -1) THEN
931: FTE_UTIL_PKG.Write_LogFile(l_module_name, x_error_msg);
932: FTE_UTIL_PKG.Exit_Debug(l_module_name);
933: RETURN;
934: END IF;
935: EXIT;
928: x_status => x_status,
929: x_error_msg => x_error_msg);
930: IF (x_status <> -1) THEN
931: FTE_UTIL_PKG.Write_LogFile(l_module_name, x_error_msg);
932: FTE_UTIL_PKG.Exit_Debug(l_module_name);
933: RETURN;
934: END IF;
935: EXIT;
936: END IF;
935: EXIT;
936: END IF;
937: END LOOP;
938:
939: FTE_UTIL_PKG.Exit_Debug(l_module_name);
940:
941: EXCEPTION
942: WHEN OTHERS THEN
943: x_status := 2;
940:
941: EXCEPTION
942: WHEN OTHERS THEN
943: x_status := 2;
944: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXP. ERROR in LINK_RC_MODIFIERS: ' || sqlerrm);
945: FTE_UTIL_PKG.Exit_Debug(l_module_name);
946: END LINK_RC_MODIFIERS;
947:
948:
941: EXCEPTION
942: WHEN OTHERS THEN
943: x_status := 2;
944: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXP. ERROR in LINK_RC_MODIFIERS: ' || sqlerrm);
945: FTE_UTIL_PKG.Exit_Debug(l_module_name);
946: END LINK_RC_MODIFIERS;
947:
948:
949: --_________________________________________________________________________________--
971: l_module_name CONSTANT VARCHAR2(100) := 'FTE.PLSQL.' || G_PKG_NAME || '.GET_FACILITY_RATE_BASIS';
972:
973: BEGIN
974:
975: FTE_UTIL_PKG.Enter_Debug(l_module_name);
976: x_status := -1;
977:
978: FOR i IN 1..Fac_Modifier_Names.COUNT LOOP
979: IF (p_chart_name = Fac_Modifier_Names(i)) THEN
978: FOR i IN 1..Fac_Modifier_Names.COUNT LOOP
979: IF (p_chart_name = Fac_Modifier_Names(i)) THEN
980: x_rate_basis := Fac_Modifier_Bases(i);
981: x_uom := Fac_Modifier_Uoms(i);
982: FTE_UTIL_PKG.Exit_Debug(l_module_name);
983: RETURN;
984: END IF;
985: END LOOP;
986:
986:
987: x_status := 2;
988: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
989: x_error_msg:='Facility Rate Chart Name Not Found';
990: FTE_UTIL_PKG.Write_LogFile(l_module_name , x_error_msg);
991: FTE_UTIL_PKG.Exit_Debug(l_module_name);
992: RETURN;
993: END IF;
994:
987: x_status := 2;
988: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
989: x_error_msg:='Facility Rate Chart Name Not Found';
990: FTE_UTIL_PKG.Write_LogFile(l_module_name , x_error_msg);
991: FTE_UTIL_PKG.Exit_Debug(l_module_name);
992: RETURN;
993: END IF;
994:
995: FTE_UTIL_PKG.Exit_Debug(l_module_name);
991: FTE_UTIL_PKG.Exit_Debug(l_module_name);
992: RETURN;
993: END IF;
994:
995: FTE_UTIL_PKG.Exit_Debug(l_module_name);
996: EXCEPTION
997: WHEN OTHERS THEN
998: x_status := 2;
999: FTE_UTIL_PKG.Write_LogFile(l_module_name , 'UNEXP. ERROR IN GET_FACILITY_RATE_BASIS: ' || sqlerrm);
995: FTE_UTIL_PKG.Exit_Debug(l_module_name);
996: EXCEPTION
997: WHEN OTHERS THEN
998: x_status := 2;
999: FTE_UTIL_PKG.Write_LogFile(l_module_name , 'UNEXP. ERROR IN GET_FACILITY_RATE_BASIS: ' || sqlerrm);
1000: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1001:
1002: END GET_FACILITY_RATE_BASIS;
1003:
996: EXCEPTION
997: WHEN OTHERS THEN
998: x_status := 2;
999: FTE_UTIL_PKG.Write_LogFile(l_module_name , 'UNEXP. ERROR IN GET_FACILITY_RATE_BASIS: ' || sqlerrm);
1000: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1001:
1002: END GET_FACILITY_RATE_BASIS;
1003:
1004: --_________________________________________________________________________________--
1045: l_module_name CONSTANT VARCHAR2(100) := 'fte.plsql.'||G_PKG_NAME||'.ADD_ATTRIBUTE';
1046:
1047: BEGIN
1048:
1049: FTE_UTIL_PKG.Enter_Debug(l_module_name);
1050: x_status := -1;
1051:
1052: l_attribute_data('ACTION') := 'ADD';
1053: l_attribute_data('LINE_NUMBER') := Fnd_Number.Number_To_Canonical(p_linenum);
1069: l_attribute_data.DELETE;
1070: l_attribute_block_tbl.DELETE;
1071:
1072: IF (x_status <> -1) THEN
1073: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Error ',x_error_msg);
1074: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1075: RETURN;
1076: END IF;
1077:
1070: l_attribute_block_tbl.DELETE;
1071:
1072: IF (x_status <> -1) THEN
1073: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Error ',x_error_msg);
1074: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1075: RETURN;
1076: END IF;
1077:
1078: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1074: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1075: RETURN;
1076: END IF;
1077:
1078: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1079:
1080: EXCEPTION
1081: WHEN OTHERS THEN
1082: x_status := 2;
1079:
1080: EXCEPTION
1081: WHEN OTHERS THEN
1082: x_status := 2;
1083: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXPECTED ERROR ', sqlerrm);
1084: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1085:
1086: END ADD_ATTRIBUTE;
1087:
1080: EXCEPTION
1081: WHEN OTHERS THEN
1082: x_status := 2;
1083: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXPECTED ERROR ', sqlerrm);
1084: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1085:
1086: END ADD_ATTRIBUTE;
1087:
1088: --_________________________________________________________________________________--
1120: g_wknd_layovr_uom := NULL;
1121:
1122: EXCEPTION
1123: WHEN OTHERS THEN
1124: FTE_UTIL_PKG.Write_LogFile('RESET_ALL','UNEXPECTED ERROR occured',sqlerrm);
1125: RAISE;
1126: END RESET_ALL;
1127:
1128: --_________________________________________________________________________________--
1140: g_chart_name := NULL;
1141: g_wknd_layovr_uom := NULL;
1142: EXCEPTION
1143: WHEN OTHERS THEN
1144: FTE_UTIL_PKG.Write_LogFile('RESET_CHART_INFO','Unexpected error');
1145: RAISE;
1146: END RESET_CHART_INFO;
1147:
1148:
1197: l_module_name CONSTANT VARCHAR2(100) := 'FTE.PLSQL.' || G_PKG_NAME || '.CREATE_BREAKS';
1198:
1199: BEGIN
1200:
1201: FTE_UTIL_PKG.Enter_Debug(l_module_name);
1202: x_status := -1;
1203:
1204: l_break_max := p_break_start - p_break_gap;
1205:
1213: l_break_max := Fnd_Number.Canonical_To_Number(p_break_limits(l_index2));
1214: x_linenum := x_linenum + 1;
1215:
1216: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
1217: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'x_linenum ' || x_linenum);
1218: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_break_min' || l_break_min);
1219: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_break_max' || l_break_max);
1220: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate ' || l_rate);
1221: END IF;
1214: x_linenum := x_linenum + 1;
1215:
1216: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
1217: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'x_linenum ' || x_linenum);
1218: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_break_min' || l_break_min);
1219: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_break_max' || l_break_max);
1220: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate ' || l_rate);
1221: END IF;
1222:
1215:
1216: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
1217: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'x_linenum ' || x_linenum);
1218: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_break_min' || l_break_min);
1219: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_break_max' || l_break_max);
1220: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate ' || l_rate);
1221: END IF;
1222:
1223: l_rate_break_data('ACTION') := 'ADD'; --G_ACTION;
1216: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
1217: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'x_linenum ' || x_linenum);
1218: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_break_min' || l_break_min);
1219: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_break_max' || l_break_max);
1220: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate ' || l_rate);
1221: END IF;
1222:
1223: l_rate_break_data('ACTION') := 'ADD'; --G_ACTION;
1224: l_rate_break_data('LINE_NUMBER'):= x_linenum;
1241: l_rate_break_data.DELETE;
1242: l_rate_break_block_tbl.DELETE;
1243:
1244: IF (x_status <> -1) THEN
1245: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Error On Line ' || x_linenum);
1246: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1247: RETURN;
1248: END IF;
1249: l_index1 := p_break_charges.NEXT(l_index1);
1242: l_rate_break_block_tbl.DELETE;
1243:
1244: IF (x_status <> -1) THEN
1245: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Error On Line ' || x_linenum);
1246: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1247: RETURN;
1248: END IF;
1249: l_index1 := p_break_charges.NEXT(l_index1);
1250: l_index2 := p_break_limits.NEXT(l_index2);
1250: l_index2 := p_break_limits.NEXT(l_index2);
1251:
1252: END LOOP;
1253:
1254: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1255:
1256: EXCEPTION
1257: WHEN OTHERS THEN
1258:
1256: EXCEPTION
1257: WHEN OTHERS THEN
1258:
1259: x_status := 2;
1260: FTE_UTIL_PKG.Write_LogFile(l_module_name, sqlerrm);
1261: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1262:
1263: END CREATE_BREAKS;
1264:
1257: WHEN OTHERS THEN
1258:
1259: x_status := 2;
1260: FTE_UTIL_PKG.Write_LogFile(l_module_name, sqlerrm);
1261: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1262:
1263: END CREATE_BREAKS;
1264:
1265: --_________________________________________________________________________________--
1324: l_module_name CONSTANT VARCHAR2(100) := 'FTE.PLSQL.'||G_PKG_NAME||'.CREATE_MINCHARGE_MODIFIER';
1325:
1326: BEGIN
1327:
1328: FTE_UTIL_PKG.Enter_Debug(l_module_name);
1329: x_status := -1;
1330:
1331: x_mod_name := p_chart_name || '_MIN';
1332: l_service_level := p_service_level;
1333: l_chart_type := 'MIN_MODIFIER';
1334: l_carrier_name := p_carrier_name;
1335:
1336: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
1337: FTE_UTIL_PKG.Write_LogFile(l_module_name, p_service_level||'::'||p_chart_name||'::'||p_currency);
1338: END IF;
1339:
1340: -- Store modifier data.
1341: GET_CHART_DATA(p_chart_name => x_mod_name,
1349: x_error_msg => x_error_msg,
1350: x_status => x_status);
1351:
1352: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
1353: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_linenum ', l_linenum);
1354: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_process_id ', l_process_id);
1355: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level', l_service_level);
1356: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Creating Modifier Header For ' || x_mod_name);
1357: END IF;
1350: x_status => x_status);
1351:
1352: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
1353: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_linenum ', l_linenum);
1354: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_process_id ', l_process_id);
1355: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level', l_service_level);
1356: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Creating Modifier Header For ' || x_mod_name);
1357: END IF;
1358:
1351:
1352: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
1353: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_linenum ', l_linenum);
1354: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_process_id ', l_process_id);
1355: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level', l_service_level);
1356: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Creating Modifier Header For ' || x_mod_name);
1357: END IF;
1358:
1359: IF (x_status <> -1) THEN
1352: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
1353: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_linenum ', l_linenum);
1354: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_process_id ', l_process_id);
1355: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level', l_service_level);
1356: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Creating Modifier Header For ' || x_mod_name);
1357: END IF;
1358:
1359: IF (x_status <> -1) THEN
1360: FTE_UTIL_PKG.Write_LogFile(l_module_name, x_error_msg);
1356: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Creating Modifier Header For ' || x_mod_name);
1357: END IF;
1358:
1359: IF (x_status <> -1) THEN
1360: FTE_UTIL_PKG.Write_LogFile(l_module_name, x_error_msg);
1361: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1362: RETURN;
1363: END IF;
1364:
1357: END IF;
1358:
1359: IF (x_status <> -1) THEN
1360: FTE_UTIL_PKG.Write_LogFile(l_module_name, x_error_msg);
1361: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1362: RETURN;
1363: END IF;
1364:
1365: -- Create Modifier Header --
1388: l_rate_hdr_data.DELETE;
1389: l_rate_hdr_block_tbl.DELETE;
1390:
1391: IF (x_status <> -1) THEN
1392: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1393: RETURN;
1394: END IF;
1395:
1396:
1394: END IF;
1395:
1396:
1397: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
1398: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'p_charge_data', p_charge_data);
1399: END IF;
1400:
1401: l_charge_info := FTE_UTIL_PKG.TOKENIZE_STRING(p_string => p_charge_data,
1402: p_delim => ':' );
1397: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
1398: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'p_charge_data', p_charge_data);
1399: END IF;
1400:
1401: l_charge_info := FTE_UTIL_PKG.TOKENIZE_STRING(p_string => p_charge_data,
1402: p_delim => ':' );
1403: l_type := 'ACCESSORIAL_SURCHARGE';
1404:
1405: BEGIN
1411:
1412: EXCEPTION
1413: WHEN NO_DATA_FOUND THEN
1414: x_status := 2;
1415: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_MIN_CHARGE_FORMULA_NOT_SET');
1416: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
1417: p_module_name => l_module_name,
1418: p_category => 'B',
1419: p_line_number => p_line_number);
1412: EXCEPTION
1413: WHEN NO_DATA_FOUND THEN
1414: x_status := 2;
1415: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_MIN_CHARGE_FORMULA_NOT_SET');
1416: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
1417: p_module_name => l_module_name,
1418: p_category => 'B',
1419: p_line_number => p_line_number);
1420: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1416: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
1417: p_module_name => l_module_name,
1418: p_category => 'B',
1419: p_line_number => p_line_number);
1420: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1421: RETURN;
1422: WHEN OTHERS THEN
1423: x_status := 2;
1424: FTE_UTIL_PKG.Write_LogFile(l_module_name, sqlerrm);
1420: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1421: RETURN;
1422: WHEN OTHERS THEN
1423: x_status := 2;
1424: FTE_UTIL_PKG.Write_LogFile(l_module_name, sqlerrm);
1425: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1426:
1427: END;
1428:
1421: RETURN;
1422: WHEN OTHERS THEN
1423: x_status := 2;
1424: FTE_UTIL_PKG.Write_LogFile(l_module_name, sqlerrm);
1425: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1426:
1427: END;
1428:
1429: --+
1454: l_subtype := FTE_RTG_GLOBALS.G_C_MIN_UNIT_CH;
1455: END IF;
1456:
1457: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
1458: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Creating ' || l_description);
1459: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_subtype ', l_subtype);
1460: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_basis ', l_basis);
1461: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_vehicle_type',l_vehicle_type);
1462: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_mincharge ', l_mincharge);
1455: END IF;
1456:
1457: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
1458: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Creating ' || l_description);
1459: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_subtype ', l_subtype);
1460: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_basis ', l_basis);
1461: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_vehicle_type',l_vehicle_type);
1462: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_mincharge ', l_mincharge);
1463: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_uom ', l_uom);
1456:
1457: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
1458: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Creating ' || l_description);
1459: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_subtype ', l_subtype);
1460: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_basis ', l_basis);
1461: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_vehicle_type',l_vehicle_type);
1462: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_mincharge ', l_mincharge);
1463: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_uom ', l_uom);
1464: END IF;
1457: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
1458: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Creating ' || l_description);
1459: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_subtype ', l_subtype);
1460: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_basis ', l_basis);
1461: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_vehicle_type',l_vehicle_type);
1462: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_mincharge ', l_mincharge);
1463: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_uom ', l_uom);
1464: END IF;
1465:
1458: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Creating ' || l_description);
1459: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_subtype ', l_subtype);
1460: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_basis ', l_basis);
1461: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_vehicle_type',l_vehicle_type);
1462: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_mincharge ', l_mincharge);
1463: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_uom ', l_uom);
1464: END IF;
1465:
1466: --
1459: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_subtype ', l_subtype);
1460: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_basis ', l_basis);
1461: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_vehicle_type',l_vehicle_type);
1462: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_mincharge ', l_mincharge);
1463: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_uom ', l_uom);
1464: END IF;
1465:
1466: --
1467: -- MinCharge Modifier lines must have the item_amount attribute for each line
1495: l_rate_line_data.DELETE;
1496: l_rate_line_block_tbl.DELETE;
1497:
1498: IF (x_status <> -1) THEN
1499: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1500: RETURN;
1501: END IF;
1502:
1503: ADD_ATTRIBUTE(p_attribute_type => 'TL_RATE_BASIS',
1541: --
1542: -- Insert a qualifier for the associated pricelist
1543: --
1544: IF (x_status <> -1) THEN
1545: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1546: RETURN;
1547: END IF;
1548:
1549: l_count := l_count + 8;
1548:
1549: l_count := l_count + 8;
1550: END LOOP;
1551:
1552: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1553: EXCEPTION
1554: WHEN OTHERS THEN
1555: x_status := 2;
1556: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXPECTED ERROR in CREATE_MINCHARGE_MODIFIER',sqlerrm);
1552: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1553: EXCEPTION
1554: WHEN OTHERS THEN
1555: x_status := 2;
1556: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXPECTED ERROR in CREATE_MINCHARGE_MODIFIER',sqlerrm);
1557: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1558:
1559: END CREATE_MINCHARGE_MODIFIER;
1560:
1553: EXCEPTION
1554: WHEN OTHERS THEN
1555: x_status := 2;
1556: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXPECTED ERROR in CREATE_MINCHARGE_MODIFIER',sqlerrm);
1557: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1558:
1559: END CREATE_MINCHARGE_MODIFIER;
1560:
1561: --_________________________________________________________________________________--
1593: l_charge_str VARCHAR2(2000);
1594: l_str VARCHAR2(100);
1595:
1596: BEGIN
1597: FTE_UTIL_PKG.Enter_Debug(l_module_name);
1598: x_status := -1;
1599:
1600: --+
1601: -- Create the minimum charge string.
1608: --+
1609: -- store a new min charge string for the rate chart
1610: --+
1611: Chart_Min_Charges(i) := l_str;
1612: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1613: RETURN;
1614: ELSE
1615: --+
1616: -- Get the stored string from the min charges table
1631: -- allows different distance types to have the same combination.
1632: --+
1633: IF (INSTR(l_charge_str, l_str) > 0) THEN
1634: IF (p_basis <> 'DISTANCE') THEN
1635: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_DUPLICATE_BASIS_LINE',
1636: p_tokens => STRINGARRAY('BASIS','VEHICLE'),
1637: p_values => STRINGARRAY(p_basis,p_vehicle));
1638: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
1639: p_module_name => l_module_name,
1634: IF (p_basis <> 'DISTANCE') THEN
1635: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_DUPLICATE_BASIS_LINE',
1636: p_tokens => STRINGARRAY('BASIS','VEHICLE'),
1637: p_values => STRINGARRAY(p_basis,p_vehicle));
1638: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
1639: p_module_name => l_module_name,
1640: p_category => 'D',
1641: p_line_number => p_line_number);
1642:
1641: p_line_number => p_line_number);
1642:
1643: x_status := 2;
1644: END IF;
1645: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1646: RETURN;
1647: --
1648: -- Check the stored string for the same combination of basis, vehicle, uom
1649: -- If that combination exists, then
1652: -- distance types must have the same minimum charge.
1653: --
1654: ELSIF (INSTR(l_charge_str, 'B:'||p_basis||':V:'||p_vehicle||':U:'||p_uom) > 0) THEN
1655: IF (p_basis <> 'DISTANCE') THEN
1656: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_DUPLICATE_BASIS_LINE',
1657: p_tokens => STRINGARRAY('BASIS','VEHICLE'),
1658: p_values => STRINGARRAY(p_basis,p_vehicle));
1659: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
1660: p_module_name => l_module_name,
1655: IF (p_basis <> 'DISTANCE') THEN
1656: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_DUPLICATE_BASIS_LINE',
1657: p_tokens => STRINGARRAY('BASIS','VEHICLE'),
1658: p_values => STRINGARRAY(p_basis,p_vehicle));
1659: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
1660: p_module_name => l_module_name,
1661: p_category => 'D',
1662: p_line_number => p_line_number);
1663: x_status := 2;
1661: p_category => 'D',
1662: p_line_number => p_line_number);
1663: x_status := 2;
1664: ELSE
1665: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_MULTIPLE_MIN_CHARGES',
1666: p_tokens => STRINGARRAY('BASIS','VEHICLE'),
1667: p_values => STRINGARRAY(p_basis,p_vehicle));
1668: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
1669: p_module_name => l_module_name,
1664: ELSE
1665: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_MULTIPLE_MIN_CHARGES',
1666: p_tokens => STRINGARRAY('BASIS','VEHICLE'),
1667: p_values => STRINGARRAY(p_basis,p_vehicle));
1668: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
1669: p_module_name => l_module_name,
1670: p_category => 'D',
1671: p_line_number => p_line_number);
1672: x_status := 2;
1671: p_line_number => p_line_number);
1672: x_status := 2;
1673: END IF;
1674:
1675: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1676: RETURN;
1677:
1678: --
1679: -- Check for the same combination of basis and vehicle.
1680: -- If it exists, then we have an error because we have a
1681: -- similar preceding line (basis, vehicle) with different uom.
1682: --
1683: ELSIF (INSTR(l_charge_str, 'B:' || p_basis || ':V:'||p_vehicle) > 0) THEN
1684: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_MULTIPLE_UOMS',
1685: p_tokens => STRINGARRAY('BASIS','VEHICLE'),
1686: p_values => STRINGARRAY(p_basis,p_vehicle));
1687: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
1688: p_module_name => l_module_name,
1683: ELSIF (INSTR(l_charge_str, 'B:' || p_basis || ':V:'||p_vehicle) > 0) THEN
1684: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_MULTIPLE_UOMS',
1685: p_tokens => STRINGARRAY('BASIS','VEHICLE'),
1686: p_values => STRINGARRAY(p_basis,p_vehicle));
1687: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
1688: p_module_name => l_module_name,
1689: p_category => 'D',
1690: p_line_number => p_line_number);
1691: x_status := 2;
1688: p_module_name => l_module_name,
1689: p_category => 'D',
1690: p_line_number => p_line_number);
1691: x_status := 2;
1692: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1693: RETURN;
1694: END IF;
1695: END IF;
1696:
1699:
1700: END IF;
1701: END LOOP;
1702:
1703: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1704:
1705: EXCEPTION
1706: WHEN OTHERS THEN
1707: x_status := 2;
1704:
1705: EXCEPTION
1706: WHEN OTHERS THEN
1707: x_status := 2;
1708: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXPECTED ERROR in STORE_MIN_CHARGE', sqlerrm);
1709: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1710:
1711: END STORE_MIN_CHARGE;
1712:
1705: EXCEPTION
1706: WHEN OTHERS THEN
1707: x_status := 2;
1708: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXPECTED ERROR in STORE_MIN_CHARGE', sqlerrm);
1709: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1710:
1711: END STORE_MIN_CHARGE;
1712:
1713: --______________________________________________________________________________________--
1748:
1749: l_module_name CONSTANT VARCHAR2(100) := 'FTE.PLSQL.'||G_PKG_NAME||'.PROCESS_WKND_LAYOVR_CHARGES';
1750:
1751: BEGIN
1752: FTE_UTIL_PKG.Enter_Debug(l_module_name);
1753: x_status := -1;
1754:
1755: x_linenum := x_linenum + 1;
1756: l_description := 'Weekend Layover Charge: Line ' || x_linenum;
1755: x_linenum := x_linenum + 1;
1756: l_description := 'Weekend Layover Charge: Line ' || x_linenum;
1757:
1758: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
1759: FTE_UTIL_PKG.Write_LogFile(l_module_name, l_description);
1760: END IF;
1761:
1762: l_type := 'ACCESSORIAL_SURCHARGE';
1763: l_break_type := 'POINT';
1781: p_validate_column => FALSE,
1782: x_status => x_status,
1783: x_error_msg => x_error_msg);
1784: IF (x_status <> -1) THEN
1785: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Error: ' || x_error_msg);
1786: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1787: RETURN;
1788: END IF;
1789:
1782: x_status => x_status,
1783: x_error_msg => x_error_msg);
1784: IF (x_status <> -1) THEN
1785: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Error: ' || x_error_msg);
1786: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1787: RETURN;
1788: END IF;
1789:
1790: --+
1805: x_error_msg => x_error_msg,
1806: x_status => x_status);
1807:
1808: IF (x_status <> -1) THEN
1809: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1810: RETURN;
1811: END IF;
1812:
1813: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
1810: RETURN;
1811: END IF;
1812:
1813: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
1814: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Begin Create Breaks');
1815: END IF;
1816:
1817: CREATE_BREAKS (p_break_charges => g_layovr_charges,
1818: p_break_limits => g_layovr_breaks,
1827:
1828: g_layovr_breaks.DELETE;
1829: g_layovr_charges.DELETE;
1830:
1831: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1832: EXCEPTION
1833: WHEN OTHERS THEN
1834: x_status := 2;
1835: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1831: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1832: EXCEPTION
1833: WHEN OTHERS THEN
1834: x_status := 2;
1835: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1836: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXPECTED ERROR in PROCESS_WKND_LAYOVR_CHARGES Error',sqlerrm);
1837:
1838: END PROCESS_WKND_LAYOVR_CHARGES;
1839:
1832: EXCEPTION
1833: WHEN OTHERS THEN
1834: x_status := 2;
1835: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1836: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXPECTED ERROR in PROCESS_WKND_LAYOVR_CHARGES Error',sqlerrm);
1837:
1838: END PROCESS_WKND_LAYOVR_CHARGES;
1839:
1840: --_________________________________________________________________________________--
1894: p_line_number NUMBER := 0;
1895:
1896: BEGIN
1897:
1898: FTE_UTIL_PKG.Enter_Debug(l_module_name);
1899: x_status := -1;
1900:
1901: IF (g_unit_uom IS NULL) THEN
1902:
1902:
1903: g_unit_uom := GET_GLOBAL_UNIT_UOM (x_status, x_error_msg);
1904:
1905: IF (x_status <> -1) THEN
1906: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'ERROR Getting Global UOM' || x_error_msg);
1907: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1908: RETURN;
1909: END IF;
1910:
1903: g_unit_uom := GET_GLOBAL_UNIT_UOM (x_status, x_error_msg);
1904:
1905: IF (x_status <> -1) THEN
1906: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'ERROR Getting Global UOM' || x_error_msg);
1907: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1908: RETURN;
1909: END IF;
1910:
1911: END IF;
1923: x_status => x_status);
1924:
1925: IF (l_carrier_name_temp IS NULL) THEN
1926: x_status := 2;
1927: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_NO_RC');
1928: FTE_UTIL_PKG.WRITE_OUTFILE(p_module_name => l_module_name,
1929: p_msg => x_error_msg,
1930: p_category => 'D');
1931: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1924:
1925: IF (l_carrier_name_temp IS NULL) THEN
1926: x_status := 2;
1927: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_NO_RC');
1928: FTE_UTIL_PKG.WRITE_OUTFILE(p_module_name => l_module_name,
1929: p_msg => x_error_msg,
1930: p_category => 'D');
1931: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1932: RETURN;
1927: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_NO_RC');
1928: FTE_UTIL_PKG.WRITE_OUTFILE(p_module_name => l_module_name,
1929: p_msg => x_error_msg,
1930: p_category => 'D');
1931: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1932: RETURN;
1933: END IF;
1934:
1935: IF (g_debug_on) THEN
1932: RETURN;
1933: END IF;
1934:
1935: IF (g_debug_on) THEN
1936: FTE_UTIL_PKG.WRITE_LOGFILE(l_module_name, 'l_name', g_chart_name);
1937: FTE_UTIL_PKG.WRITE_LOGFILE(l_module_name, 'l_process_id', l_process_id_temp);
1938: FTE_UTIL_PKG.WRITE_LOGFILE(l_module_name, 'l_service_level', l_service_level_temp);
1939: FTE_UTIL_PKG.WRITE_LOGFILE(l_module_name, '--------Begin Process_Weekend_Layover_Charges');
1940: END IF;
1933: END IF;
1934:
1935: IF (g_debug_on) THEN
1936: FTE_UTIL_PKG.WRITE_LOGFILE(l_module_name, 'l_name', g_chart_name);
1937: FTE_UTIL_PKG.WRITE_LOGFILE(l_module_name, 'l_process_id', l_process_id_temp);
1938: FTE_UTIL_PKG.WRITE_LOGFILE(l_module_name, 'l_service_level', l_service_level_temp);
1939: FTE_UTIL_PKG.WRITE_LOGFILE(l_module_name, '--------Begin Process_Weekend_Layover_Charges');
1940: END IF;
1941:
1934:
1935: IF (g_debug_on) THEN
1936: FTE_UTIL_PKG.WRITE_LOGFILE(l_module_name, 'l_name', g_chart_name);
1937: FTE_UTIL_PKG.WRITE_LOGFILE(l_module_name, 'l_process_id', l_process_id_temp);
1938: FTE_UTIL_PKG.WRITE_LOGFILE(l_module_name, 'l_service_level', l_service_level_temp);
1939: FTE_UTIL_PKG.WRITE_LOGFILE(l_module_name, '--------Begin Process_Weekend_Layover_Charges');
1940: END IF;
1941:
1942: Process_Wknd_Layovr_Charges (p_process_id => l_process_id_temp,
1935: IF (g_debug_on) THEN
1936: FTE_UTIL_PKG.WRITE_LOGFILE(l_module_name, 'l_name', g_chart_name);
1937: FTE_UTIL_PKG.WRITE_LOGFILE(l_module_name, 'l_process_id', l_process_id_temp);
1938: FTE_UTIL_PKG.WRITE_LOGFILE(l_module_name, 'l_service_level', l_service_level_temp);
1939: FTE_UTIL_PKG.WRITE_LOGFILE(l_module_name, '--------Begin Process_Weekend_Layover_Charges');
1940: END IF;
1941:
1942: Process_Wknd_Layovr_Charges (p_process_id => l_process_id_temp,
1943: x_linenum => l_linenum_temp,
1944: p_line_number => null,
1945: x_error_msg => x_error_msg,
1946: x_status => x_status );
1947: IF (g_debug_on) THEN
1948: FTE_UTIL_PKG.WRITE_LOGFILE(l_module_name, '--------End Process_Weekend_Layover_Charges with status :' || x_status);
1949: END IF;
1950:
1951: Set_Chart_Line(g_chart_name, l_linenum_temp, x_status);
1952:
1950:
1951: Set_Chart_Line(g_chart_name, l_linenum_temp, x_status);
1952:
1953: IF (x_status <> -1) THEN
1954: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1955: RETURN;
1956: END IF;
1957:
1958: END IF;
1970: x_error_msg => x_error_msg,
1971: x_status => x_status);
1972:
1973: IF (g_debug_on) THEN
1974: FTE_UTIL_PKG.WRITE_LOGFILE(l_module_name, 'action: ', g_action);
1975: FTE_UTIL_PKG.WRITE_LOGFILE(l_module_name, 'linenum: ', l_linenum_temp);
1976: END IF;
1977:
1978: IF (l_linenum_temp = 0 OR x_status <> -1) THEN
1971: x_status => x_status);
1972:
1973: IF (g_debug_on) THEN
1974: FTE_UTIL_PKG.WRITE_LOGFILE(l_module_name, 'action: ', g_action);
1975: FTE_UTIL_PKG.WRITE_LOGFILE(l_module_name, 'linenum: ', l_linenum_temp);
1976: END IF;
1977:
1978: IF (l_linenum_temp = 0 OR x_status <> -1) THEN
1979: x_status := 2;
1976: END IF;
1977:
1978: IF (l_linenum_temp = 0 OR x_status <> -1) THEN
1979: x_status := 2;
1980: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_UI_NO_LINES',
1981: p_tokens => STRINGARRAY('TYPE'),
1982: p_values => STRINGARRAY(FTE_UTIL_PKG.GET_MSG('FTE_TL_ACCESSORIALS')));
1983: FTE_UTIL_PKG.WRITE_OUTFILE(p_module_name => l_module_name,
1984: p_msg => x_error_msg,
1978: IF (l_linenum_temp = 0 OR x_status <> -1) THEN
1979: x_status := 2;
1980: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_UI_NO_LINES',
1981: p_tokens => STRINGARRAY('TYPE'),
1982: p_values => STRINGARRAY(FTE_UTIL_PKG.GET_MSG('FTE_TL_ACCESSORIALS')));
1983: FTE_UTIL_PKG.WRITE_OUTFILE(p_module_name => l_module_name,
1984: p_msg => x_error_msg,
1985: p_category => 'D');
1986: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1979: x_status := 2;
1980: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_UI_NO_LINES',
1981: p_tokens => STRINGARRAY('TYPE'),
1982: p_values => STRINGARRAY(FTE_UTIL_PKG.GET_MSG('FTE_TL_ACCESSORIALS')));
1983: FTE_UTIL_PKG.WRITE_OUTFILE(p_module_name => l_module_name,
1984: p_msg => x_error_msg,
1985: p_category => 'D');
1986: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1987: RETURN;
1982: p_values => STRINGARRAY(FTE_UTIL_PKG.GET_MSG('FTE_TL_ACCESSORIALS')));
1983: FTE_UTIL_PKG.WRITE_OUTFILE(p_module_name => l_module_name,
1984: p_msg => x_error_msg,
1985: p_category => 'D');
1986: FTE_UTIL_PKG.Exit_Debug(l_module_name);
1987: RETURN;
1988: END IF;
1989: END IF;
1990:
2005: x_status => x_status);
2006:
2007: IF (l_linenum = 0 OR x_status <> -1) THEN
2008: x_status := 2;
2009: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'ERROR BREAK: No Rate Chart Name Previously Defined');
2010: END IF;
2011:
2012: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
2013: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_name ', g_chart_name);
2009: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'ERROR BREAK: No Rate Chart Name Previously Defined');
2010: END IF;
2011:
2012: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
2013: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_name ', g_chart_name);
2014: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_process_id ', l_process_id);
2015: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level', l_service_level);
2016: END IF;
2017:
2010: END IF;
2011:
2012: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
2013: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_name ', g_chart_name);
2014: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_process_id ', l_process_id);
2015: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level', l_service_level);
2016: END IF;
2017:
2018: PROCESS_WKND_LAYOVR_CHARGES ( p_process_id => l_process_id,
2011:
2012: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
2013: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_name ', g_chart_name);
2014: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_process_id ', l_process_id);
2015: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level', l_service_level);
2016: END IF;
2017:
2018: PROCESS_WKND_LAYOVR_CHARGES ( p_process_id => l_process_id,
2019: x_linenum => l_linenum,
2020: p_line_number => p_line_number,
2021: x_error_msg => x_error_msg,
2022: x_status => x_status );
2023: IF (x_status <> -1) THEN
2024: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Returned with Error from PROCESS_WKND_LAYOVR_CHARGES',x_error_msg );
2025: END IF;
2026:
2027: END IF;
2028:
2044: x_status => x_status,
2045: x_error_msg => x_error_msg);
2046:
2047: IF (x_status <> -1) THEN
2048: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Returned Error from CREATE_MINCHARGE_MODIFIER', x_error_msg );
2049: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2050: RETURN;
2051: ELSE
2052: Link_ChartNames(Link_ChartNames.COUNT+1) := Chart_Names(i);
2045: x_error_msg => x_error_msg);
2046:
2047: IF (x_status <> -1) THEN
2048: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Returned Error from CREATE_MINCHARGE_MODIFIER', x_error_msg );
2049: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2050: RETURN;
2051: ELSE
2052: Link_ChartNames(Link_ChartNames.COUNT+1) := Chart_Names(i);
2053: Link_ModifierNames(Link_ModifierNames.COUNT+1) := l_chart_name;
2064: x_error_msg => x_error_msg,
2065: x_status => x_status);
2066:
2067: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
2068: FTE_UTIL_PKG.Write_LogFile(l_module_name,'Return Status from FTE_RATE_CHART_LOADER.SUBMIT_QP_PROCESS', x_status);
2069: FTE_UTIL_PKG.Write_LogFile(l_module_name,'Return Message from FTE_RATE_CHART_LOADER.SUBMIT_QP_PROCESS', x_error_msg);
2070: END IF;
2071:
2072: IF (x_status <> -1) THEN
2065: x_status => x_status);
2066:
2067: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
2068: FTE_UTIL_PKG.Write_LogFile(l_module_name,'Return Status from FTE_RATE_CHART_LOADER.SUBMIT_QP_PROCESS', x_status);
2069: FTE_UTIL_PKG.Write_LogFile(l_module_name,'Return Message from FTE_RATE_CHART_LOADER.SUBMIT_QP_PROCESS', x_error_msg);
2070: END IF;
2071:
2072: IF (x_status <> -1) THEN
2073: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Return status from SUBMIT_QP_PROCESS', x_status );
2069: FTE_UTIL_PKG.Write_LogFile(l_module_name,'Return Message from FTE_RATE_CHART_LOADER.SUBMIT_QP_PROCESS', x_error_msg);
2070: END IF;
2071:
2072: IF (x_status <> -1) THEN
2073: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Return status from SUBMIT_QP_PROCESS', x_status );
2074: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2075: RETURN;
2076: END IF;
2077:
2070: END IF;
2071:
2072: IF (x_status <> -1) THEN
2073: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Return status from SUBMIT_QP_PROCESS', x_status );
2074: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2075: RETURN;
2076: END IF;
2077:
2078: FND_PROFILE.PUT('QP_PRICING_TRANSACTION_ENTITY', 'LOGSTX');
2078: FND_PROFILE.PUT('QP_PRICING_TRANSACTION_ENTITY', 'LOGSTX');
2079: FND_PROFILE.PUT('QP_SOURCE_SYSTEM_CODE', 'FTE');
2080:
2081: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
2082: FTE_UTIL_PKG.Write_LogFile(l_module_name,'Chart_Process_Ids.COUNT ', Chart_Process_Ids.COUNT);
2083: END IF;
2084:
2085: FOR i IN 1..Chart_Process_Ids.COUNT LOOP
2086: l_chart_name := Chart_Names(i);
2090: l_chart_type := Chart_Types(i);
2091: l_currency := Chart_Currencies(i);
2092:
2093: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
2094: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_chart_name ', l_chart_name);
2095: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_carrier_name ', l_carrier_name);
2096: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_process_id ', l_process_id);
2097: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level', l_service_level);
2098: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_chart_type ', l_chart_type);
2091: l_currency := Chart_Currencies(i);
2092:
2093: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
2094: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_chart_name ', l_chart_name);
2095: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_carrier_name ', l_carrier_name);
2096: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_process_id ', l_process_id);
2097: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level', l_service_level);
2098: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_chart_type ', l_chart_type);
2099: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ', l_currency);
2092:
2093: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
2094: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_chart_name ', l_chart_name);
2095: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_carrier_name ', l_carrier_name);
2096: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_process_id ', l_process_id);
2097: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level', l_service_level);
2098: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_chart_type ', l_chart_type);
2099: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ', l_currency);
2100: END IF;
2093: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
2094: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_chart_name ', l_chart_name);
2095: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_carrier_name ', l_carrier_name);
2096: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_process_id ', l_process_id);
2097: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level', l_service_level);
2098: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_chart_type ', l_chart_type);
2099: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ', l_currency);
2100: END IF;
2101:
2094: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_chart_name ', l_chart_name);
2095: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_carrier_name ', l_carrier_name);
2096: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_process_id ', l_process_id);
2097: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level', l_service_level);
2098: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_chart_type ', l_chart_type);
2099: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ', l_currency);
2100: END IF;
2101:
2102: IF (l_chart_type in('TL_RATE_CHART', 'FAC_RATE_CHART')) THEN
2095: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_carrier_name ', l_carrier_name);
2096: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_process_id ', l_process_id);
2097: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level', l_service_level);
2098: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_chart_type ', l_chart_type);
2099: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ', l_currency);
2100: END IF;
2101:
2102: IF (l_chart_type in('TL_RATE_CHART', 'FAC_RATE_CHART')) THEN
2103: l_name(1) := l_chart_name;
2109: x_status => x_status,
2110: x_error_msg => x_error_msg);
2111:
2112: IF (x_status <> -1) THEN
2113: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2114: RETURN;
2115: ELSE
2116:
2117: --+
2124: x_error_msg => x_error_msg,
2125: x_status => x_status);
2126:
2127: IF (x_status <> -1) THEN
2128: FTE_UTIL_PKG.Write_LogFile(l_module_name, x_error_msg);
2129: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2130: RETURN;
2131: END IF;
2132: END IF;
2125: x_status => x_status);
2126:
2127: IF (x_status <> -1) THEN
2128: FTE_UTIL_PKG.Write_LogFile(l_module_name, x_error_msg);
2129: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2130: RETURN;
2131: END IF;
2132: END IF;
2133:
2141: x_status => x_status,
2142: x_error_msg => x_error_msg);
2143:
2144: IF (x_status <> -1) THEN
2145: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2146: RETURN;
2147: END IF;
2148:
2149: ELSE
2147: END IF;
2148:
2149: ELSE
2150: x_status := 2;
2151: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Unknown Chart Type ' || l_chart_type);
2152: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Could Not Load The Rate Chart ' || l_chart_name);
2153: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2154: RETURN;
2155: END IF;
2148:
2149: ELSE
2150: x_status := 2;
2151: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Unknown Chart Type ' || l_chart_type);
2152: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Could Not Load The Rate Chart ' || l_chart_name);
2153: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2154: RETURN;
2155: END IF;
2156:
2149: ELSE
2150: x_status := 2;
2151: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Unknown Chart Type ' || l_chart_type);
2152: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Could Not Load The Rate Chart ' || l_chart_name);
2153: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2154: RETURN;
2155: END IF;
2156:
2157: IF (i = 1) THEN
2154: RETURN;
2155: END IF;
2156:
2157: IF (i = 1) THEN
2158: FTE_UTIL_PKG.WRITE_OUTFILE(p_module_name => l_module_name,
2159: p_msg => 'FTE_RATECHARTS_LOADED',
2160: p_category => NULL);
2161: END IF;
2162:
2159: p_msg => 'FTE_RATECHARTS_LOADED',
2160: p_category => NULL);
2161: END IF;
2162:
2163: FTE_UTIL_PKG.WRITE_OUTFILE(p_module_name => l_module_name,
2164: p_msg => l_chart_name,
2165: p_category => NULL);
2166:
2167: IF (l_chart_type = 'TL_RATE_CHART') THEN
2177: x_error_msg => x_error_msg,
2178: x_status => x_status);
2179:
2180: IF (x_status <> -1) THEN
2181: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Error In Lane Status');
2182: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2183: RETURN;
2184: END IF;
2185:
2178: x_status => x_status);
2179:
2180: IF (x_status <> -1) THEN
2181: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Error In Lane Status');
2182: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2183: RETURN;
2184: END IF;
2185:
2186: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
2183: RETURN;
2184: END IF;
2185:
2186: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
2187: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Found ' || l_lane_ids.COUNT || ' lanes matching rate chart');
2188: END IF;
2189:
2190: IF (l_lane_loaded) THEN
2191:
2189:
2190: IF (l_lane_loaded) THEN
2191:
2192: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
2193: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Updating Existing Lanes with Rate Chart Info');
2194: END IF;
2195:
2196: BEGIN
2197:
2218: EXCEPTION
2219: WHEN NO_DATA_FOUND THEN
2220: l_list_header_id := NULL;
2221: x_status := 2;
2222: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_PRICE_NAME_MISSING');
2223: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
2224: p_module_name => l_module_name,
2225: p_category => 'D',
2226: p_line_number => p_line_number);
2219: WHEN NO_DATA_FOUND THEN
2220: l_list_header_id := NULL;
2221: x_status := 2;
2222: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_PRICE_NAME_MISSING');
2223: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
2224: p_module_name => l_module_name,
2225: p_category => 'D',
2226: p_line_number => p_line_number);
2227: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2223: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
2224: p_module_name => l_module_name,
2225: p_category => 'D',
2226: p_line_number => p_line_number);
2227: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2228: RETURN;
2229: END;
2230:
2231: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
2228: RETURN;
2229: END;
2230:
2231: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
2232: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_list_header_id', l_list_header_id);
2233: END IF;
2234:
2235: --+
2236: -- Update the lane with the rate chart ID:
2237: --+
2238: FOR j IN 1..l_lane_ids.COUNT LOOP
2239: BEGIN
2240: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
2241: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'lane id('|| j|| ')',l_lane_ids(j));
2242: END IF;
2243:
2244: INSERT INTO FTE_LANE_RATE_CHARTS (LANE_ID,
2245: LIST_HEADER_ID,
2261: FND_GLOBAL.USER_ID);
2262: EXCEPTION
2263: WHEN OTHERS THEN
2264: x_status := 2;
2265: FTE_UTIL_PKG.Write_LogFile(l_module_name, sqlerrm);
2266: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2267: END;
2268:
2269: BEGIN
2262: EXCEPTION
2263: WHEN OTHERS THEN
2264: x_status := 2;
2265: FTE_UTIL_PKG.Write_LogFile(l_module_name, sqlerrm);
2266: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2267: END;
2268:
2269: BEGIN
2270: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
2267: END;
2268:
2269: BEGIN
2270: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
2271: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Updating Fte_Lanes with service level ', l_service_level);
2272: END IF;
2273:
2274: UPDATE fte_lanes
2275: SET service_detail_flag ='Y',
2282:
2283: EXCEPTION
2284: WHEN OTHERS THEN
2285: x_status := 2;
2286: FTE_UTIL_PKG.Write_LogFile(l_module_name, sqlerrm);
2287: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2288: END;
2289: END LOOP;
2290:
2283: EXCEPTION
2284: WHEN OTHERS THEN
2285: x_status := 2;
2286: FTE_UTIL_PKG.Write_LogFile(l_module_name, sqlerrm);
2287: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2288: END;
2289: END LOOP;
2290:
2291: END IF;
2292:
2293: ELSIF (l_chart_type = 'FAC_MODIFIER') THEN
2294:
2295: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
2296: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Postprocessing Facility Modifier');
2297: END IF;
2298:
2299: BEGIN
2300:
2320:
2321: WHEN NO_DATA_FOUND THEN
2322: l_list_header_id := NULL;
2323: x_status := 2;
2324: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_PRICELIST_INVALID');
2325: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
2326: p_module_name => l_module_name,
2327: p_category => 'D',
2328: p_line_number => p_line_number);
2321: WHEN NO_DATA_FOUND THEN
2322: l_list_header_id := NULL;
2323: x_status := 2;
2324: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_PRICELIST_INVALID');
2325: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
2326: p_module_name => l_module_name,
2327: p_category => 'D',
2328: p_line_number => p_line_number);
2329: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2325: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
2326: p_module_name => l_module_name,
2327: p_category => 'D',
2328: p_line_number => p_line_number);
2329: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2330: RETURN;
2331: END;
2332:
2333: GET_FACILITY_RATE_BASIS(p_chart_name => l_chart_name,
2336: x_status => x_status,
2337: x_error_msg => x_error_msg);
2338:
2339: IF (x_status <> -1) THEN
2340: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Error In Get_Facility_Rate_Basis', x_error_msg);
2341: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2342: RETURN;
2343: END IF;
2344:
2337: x_error_msg => x_error_msg);
2338:
2339: IF (x_status <> -1) THEN
2340: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Error In Get_Facility_Rate_Basis', x_error_msg);
2341: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2342: RETURN;
2343: END IF;
2344:
2345: l_prc_param_ids := STRINGARRAY(57, 58, 59, 60);
2349: -- Insert Facility Data into FTE_PRC_PARAMETERS
2350: --+
2351: BEGIN
2352: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
2353: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Inserting into FTE_PRC_PARAMETERS');
2354: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_chart_name ', l_chart_name);
2355: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis ', l_rate_basis);
2356: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis_uom', l_rate_basis_uom);
2357: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ', l_currency);
2350: --+
2351: BEGIN
2352: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
2353: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Inserting into FTE_PRC_PARAMETERS');
2354: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_chart_name ', l_chart_name);
2355: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis ', l_rate_basis);
2356: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis_uom', l_rate_basis_uom);
2357: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ', l_currency);
2358: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_modifier_id ', l_modifier_id);
2351: BEGIN
2352: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
2353: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Inserting into FTE_PRC_PARAMETERS');
2354: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_chart_name ', l_chart_name);
2355: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis ', l_rate_basis);
2356: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis_uom', l_rate_basis_uom);
2357: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ', l_currency);
2358: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_modifier_id ', l_modifier_id);
2359: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_list_header_id', l_list_header_id);
2352: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
2353: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Inserting into FTE_PRC_PARAMETERS');
2354: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_chart_name ', l_chart_name);
2355: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis ', l_rate_basis);
2356: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis_uom', l_rate_basis_uom);
2357: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ', l_currency);
2358: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_modifier_id ', l_modifier_id);
2359: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_list_header_id', l_list_header_id);
2360: END IF;
2353: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Inserting into FTE_PRC_PARAMETERS');
2354: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_chart_name ', l_chart_name);
2355: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis ', l_rate_basis);
2356: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis_uom', l_rate_basis_uom);
2357: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ', l_currency);
2358: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_modifier_id ', l_modifier_id);
2359: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_list_header_id', l_list_header_id);
2360: END IF;
2361:
2354: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_chart_name ', l_chart_name);
2355: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis ', l_rate_basis);
2356: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis_uom', l_rate_basis_uom);
2357: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ', l_currency);
2358: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_modifier_id ', l_modifier_id);
2359: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_list_header_id', l_list_header_id);
2360: END IF;
2361:
2362: FORALL m IN 1..l_prc_param_ids.COUNT
2355: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis ', l_rate_basis);
2356: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis_uom', l_rate_basis_uom);
2357: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ', l_currency);
2358: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_modifier_id ', l_modifier_id);
2359: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_list_header_id', l_list_header_id);
2360: END IF;
2361:
2362: FORALL m IN 1..l_prc_param_ids.COUNT
2363: INSERT INTO FTE_PRC_PARAMETERS( PARAMETER_INSTANCE_ID,
2383: EXCEPTION
2384: WHEN OTHERS THEN
2385: x_status := 2;
2386: x_error_msg := sqlerrm;
2387: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXP. ERROR Inserting Prc_Parameters', sqlerrm);
2388: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2389: END;
2390: END IF; -- End Processing Different Chart Types
2391:
2384: WHEN OTHERS THEN
2385: x_status := 2;
2386: x_error_msg := sqlerrm;
2387: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXP. ERROR Inserting Prc_Parameters', sqlerrm);
2388: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2389: END;
2390: END IF; -- End Processing Different Chart Types
2391:
2392: END LOOP;
2392: END LOOP;
2393:
2394:
2395: RESET_ALL;
2396: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2397:
2398: EXCEPTION
2399: WHEN OTHERS THEN
2400: x_status := 2;
2398: EXCEPTION
2399: WHEN OTHERS THEN
2400: x_status := 2;
2401: x_error_msg := sqlerrm;
2402: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXP ERROR in SUBMIT_TL_CHART', sqlerrm);
2403: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2404:
2405: END SUBMIT_TL_CHART;
2406:
2399: WHEN OTHERS THEN
2400: x_status := 2;
2401: x_error_msg := sqlerrm;
2402: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXP ERROR in SUBMIT_TL_CHART', sqlerrm);
2403: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2404:
2405: END SUBMIT_TL_CHART;
2406:
2407: --_________________________________________________________________________________--
2442:
2443: l_module_name CONSTANT VARCHAR2(100) := 'FTE.PLSQL.'||G_PKG_NAME||'.PROCESS_FUEL_CHARGES';
2444:
2445: BEGIN
2446: FTE_UTIL_PKG.Enter_Debug(l_module_name);
2447: x_status := -1;
2448:
2449: x_linenum := x_linenum + 1;
2450: l_description := 'Fuel Surcharge Line ' || x_linenum;
2449: x_linenum := x_linenum + 1;
2450: l_description := 'Fuel Surcharge Line ' || x_linenum;
2451:
2452: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
2453: FTE_UTIL_PKG.Write_LogFile(l_module_name, l_description);
2454: END IF;
2455:
2456: l_type := 'ACCESSORIAL_SURCHARGE';
2457: l_subtype := FTE_RTG_GLOBALS.G_C_FUEL_CH;
2477: l_rate_line_data.DELETE;
2478: l_rate_line_block_tbl.DELETE;
2479:
2480: IF (x_status <> -1) THEN
2481: FTE_UTIL_PKG.Write_LogFile(l_module_name, x_error_msg);
2482: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2483: RETURN;
2484: END IF;
2485:
2478: l_rate_line_block_tbl.DELETE;
2479:
2480: IF (x_status <> -1) THEN
2481: FTE_UTIL_PKG.Write_LogFile(l_module_name, x_error_msg);
2482: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2483: RETURN;
2484: END IF;
2485:
2486: l_context := FTE_RTG_GLOBALS.G_AX_TL_RATE_TYPE;
2498: x_error_msg => x_error_msg,
2499: x_status => x_status);
2500:
2501: IF (x_status <> -1) THEN
2502: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Error: ' || x_error_msg);
2503: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2504: RETURN;
2505: END IF;
2506:
2499: x_status => x_status);
2500:
2501: IF (x_status <> -1) THEN
2502: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Error: ' || x_error_msg);
2503: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2504: RETURN;
2505: END IF;
2506:
2507: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2503: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2504: RETURN;
2505: END IF;
2506:
2507: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2508: EXCEPTION
2509: WHEN OTHERS THEN
2510: x_status := 2;
2511: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2507: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2508: EXCEPTION
2509: WHEN OTHERS THEN
2510: x_status := 2;
2511: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2512: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXPECTED ERROR in PROCESS_FUEL_CHARGES', sqlerrm);
2513:
2514: END PROCESS_FUEL_CHARGES;
2515:
2508: EXCEPTION
2509: WHEN OTHERS THEN
2510: x_status := 2;
2511: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2512: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXPECTED ERROR in PROCESS_FUEL_CHARGES', sqlerrm);
2513:
2514: END PROCESS_FUEL_CHARGES;
2515:
2516: --_________________________________________________________________________________--
2550:
2551: l_module_name CONSTANT VARCHAR2(100) := 'FTE.PLSQL.'||G_PKG_NAME||'.PROCESS_REGION_CHARGES';
2552:
2553: BEGIN
2554: FTE_UTIL_PKG.Enter_Debug(l_module_name);
2555: x_status := -1;
2556:
2557: IF (p_region_id IS NOT NULL) THEN
2558: l_zone_id := p_region_id;
2561: END IF;
2562:
2563: IF (l_zone_id IS NULL OR l_zone_id = -1) THEN
2564: x_status := 2;
2565: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_REGION_NOT_FOUND');
2566: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
2567: p_module_name => l_module_name,
2568: p_category => 'D',
2569: p_line_number => p_line_number);
2562:
2563: IF (l_zone_id IS NULL OR l_zone_id = -1) THEN
2564: x_status := 2;
2565: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_REGION_NOT_FOUND');
2566: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
2567: p_module_name => l_module_name,
2568: p_category => 'D',
2569: p_line_number => p_line_number);
2570: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2566: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
2567: p_module_name => l_module_name,
2568: p_category => 'D',
2569: p_line_number => p_line_number);
2570: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2571: RETURN;
2572: END IF;
2573:
2574: x_linenum := x_linenum + 1;
2574: x_linenum := x_linenum + 1;
2575: l_description := p_region_type || ' Surcharge Line ' || x_linenum;
2576:
2577: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
2578: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Zone Id', l_zone_id);
2579: FTE_UTIL_PKG.Write_LogFile(l_module_name, l_description);
2580: END IF;
2581:
2582:
2575: l_description := p_region_type || ' Surcharge Line ' || x_linenum;
2576:
2577: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
2578: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Zone Id', l_zone_id);
2579: FTE_UTIL_PKG.Write_LogFile(l_module_name, l_description);
2580: END IF;
2581:
2582:
2583: l_type := 'ACCESSORIAL_SURCHARGE';
2608: l_rate_line_data.DELETE;
2609: l_rate_line_block_tbl.DELETE;
2610:
2611: IF (x_status <> -1) THEN
2612: FTE_UTIL_PKG.Write_LogFile(l_module_name,x_error_msg);
2613: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2614: RETURN;
2615: END IF;
2616:
2609: l_rate_line_block_tbl.DELETE;
2610:
2611: IF (x_status <> -1) THEN
2612: FTE_UTIL_PKG.Write_LogFile(l_module_name,x_error_msg);
2613: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2614: RETURN;
2615: END IF;
2616:
2617: l_context := FTE_RTG_GLOBALS.G_AX_TL_RATE_TYPE;
2629: x_error_msg => x_error_msg,
2630: x_status => x_status);
2631:
2632: IF (x_status <> -1) THEN
2633: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Error: ' || x_error_msg);
2634: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2635: RETURN;
2636: END IF;
2637:
2630: x_status => x_status);
2631:
2632: IF (x_status <> -1) THEN
2633: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Error: ' || x_error_msg);
2634: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2635: RETURN;
2636: END IF;
2637:
2638: -- Add Region Attribute
2654: p_line_number => p_line_number,
2655: x_error_msg => x_error_msg,
2656: x_status => x_status);
2657:
2658: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2659: EXCEPTION
2660: WHEN OTHERS THEN
2661: x_status := 2;
2662: x_error_msg := sqlerrm;
2659: EXCEPTION
2660: WHEN OTHERS THEN
2661: x_status := 2;
2662: x_error_msg := sqlerrm;
2663: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2664: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXP. ERROR in Process_Region_Charges',sqlerrm);
2665:
2666: END PROCESS_REGION_CHARGES;
2667:
2660: WHEN OTHERS THEN
2661: x_status := 2;
2662: x_error_msg := sqlerrm;
2663: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2664: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXP. ERROR in Process_Region_Charges',sqlerrm);
2665:
2666: END PROCESS_REGION_CHARGES;
2667:
2668: --_________________________________________________________________________________--
2700:
2701: l_module_name CONSTANT VARCHAR2(100) := 'FTE.PLSQL.' || G_PKG_NAME || '.PROCESS_STOPOFF_CHARGES';
2702:
2703: BEGIN
2704: FTE_UTIL_PKG.Enter_Debug(l_module_name);
2705: x_status := -1;
2706:
2707: l_break_charges := p_break_charges;
2708:
2706:
2707: l_break_charges := p_break_charges;
2708:
2709: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
2710: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_num_free_stops', p_num_free_stops);
2711: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_process_id ', p_process_id);
2712: FTE_UTIL_PKG.Write_LogFile(l_module_name,'x_linenum ', x_linenum);
2713: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_line_number ', p_line_number);
2714:
2707: l_break_charges := p_break_charges;
2708:
2709: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
2710: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_num_free_stops', p_num_free_stops);
2711: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_process_id ', p_process_id);
2712: FTE_UTIL_PKG.Write_LogFile(l_module_name,'x_linenum ', x_linenum);
2713: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_line_number ', p_line_number);
2714:
2715: FOR i IN 1..l_break_charges.COUNT LOOP
2708:
2709: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
2710: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_num_free_stops', p_num_free_stops);
2711: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_process_id ', p_process_id);
2712: FTE_UTIL_PKG.Write_LogFile(l_module_name,'x_linenum ', x_linenum);
2713: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_line_number ', p_line_number);
2714:
2715: FOR i IN 1..l_break_charges.COUNT LOOP
2716: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'p_break_charges(' || i || ')', l_break_charges(i));
2709: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
2710: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_num_free_stops', p_num_free_stops);
2711: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_process_id ', p_process_id);
2712: FTE_UTIL_PKG.Write_LogFile(l_module_name,'x_linenum ', x_linenum);
2713: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_line_number ', p_line_number);
2714:
2715: FOR i IN 1..l_break_charges.COUNT LOOP
2716: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'p_break_charges(' || i || ')', l_break_charges(i));
2717: END LOOP;
2712: FTE_UTIL_PKG.Write_LogFile(l_module_name,'x_linenum ', x_linenum);
2713: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_line_number ', p_line_number);
2714:
2715: FOR i IN 1..l_break_charges.COUNT LOOP
2716: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'p_break_charges(' || i || ')', l_break_charges(i));
2717: END LOOP;
2718:
2719: END IF;
2720:
2748: x_linenum := x_linenum + 1;
2749: l_description := 'Stop Off Charge: Line ' || x_linenum;
2750:
2751: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
2752: FTE_UTIL_PKG.Write_LogFile(l_module_name, l_description, l_description);
2753: END IF;
2754:
2755: l_type := 'ACCESSORIAL_SURCHARGE';
2756: l_rate_type := 'LUMPSUM';
2778: l_rate_line_data.DELETE;
2779: l_rate_line_block_tbl.DELETE;
2780:
2781: IF (x_status <> -1) THEN
2782: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Error: ' || x_error_msg);
2783: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2784: RETURN;
2785: END IF;
2786:
2779: l_rate_line_block_tbl.DELETE;
2780:
2781: IF (x_status <> -1) THEN
2782: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Error: ' || x_error_msg);
2783: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2784: RETURN;
2785: END IF;
2786:
2787: --+
2802: x_error_msg => x_error_msg,
2803: x_status => x_status);
2804:
2805: IF (x_status <> -1) THEN
2806: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Error', x_error_msg);
2807: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2808: RETURN;
2809: END IF;
2810:
2803: x_status => x_status);
2804:
2805: IF (x_status <> -1) THEN
2806: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Error', x_error_msg);
2807: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2808: RETURN;
2809: END IF;
2810:
2811: --+
2824: --+
2825: -- Create Breaks
2826: --+
2827: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
2828: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Begin Create Breaks');
2829: END IF;
2830:
2831: CREATE_BREAKS(p_break_charges => l_break_charges,
2832: p_break_limits => l_break_limits,
2839: x_error_msg => x_error_msg,
2840: x_status => x_status);
2841: END IF;
2842:
2843: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2844: EXCEPTION
2845: WHEN OTHERS THEN
2846: x_status := 2;
2847: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Unexpected Error in PROCESS_STOP_OFF_CHARGES',sqlerrm);
2843: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2844: EXCEPTION
2845: WHEN OTHERS THEN
2846: x_status := 2;
2847: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Unexpected Error in PROCESS_STOP_OFF_CHARGES',sqlerrm);
2848: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2849:
2850: END PROCESS_STOPOFF_CHARGES;
2851:
2844: EXCEPTION
2845: WHEN OTHERS THEN
2846: x_status := 2;
2847: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Unexpected Error in PROCESS_STOP_OFF_CHARGES',sqlerrm);
2848: FTE_UTIL_PKG.Exit_Debug(l_module_name);
2849:
2850: END PROCESS_STOPOFF_CHARGES;
2851:
2852: --_________________________________________________________________________________--
2907:
2908: l_module_name CONSTANT VARCHAR2(100) := 'FTE.PLSQL.' || G_PKG_NAME || '.PROCESS_LOADING_CHARGES';
2909:
2910: BEGIN
2911: FTE_UTIL_PKG.Enter_Debug(l_module_name);
2912: x_status := -1;
2913:
2914: l_type := 'ACCESSORIAL_SURCHARGE';
2915: l_attr1_type := 'TL_RATE_TYPE';
3248: END IF;
3249:
3250: IF (x_status = 3) THEN
3251: x_status := 2;
3252: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_INVALID_BASIS',
3253: p_tokens => STRINGARRAY('BASIS','LOAD'),
3254: p_values => STRINGARRAY(p_basis,p_load_type));
3255: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
3256: p_module_name => l_module_name,
3251: x_status := 2;
3252: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_INVALID_BASIS',
3253: p_tokens => STRINGARRAY('BASIS','LOAD'),
3254: p_values => STRINGARRAY(p_basis,p_load_type));
3255: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
3256: p_module_name => l_module_name,
3257: p_category => 'D',
3258: p_line_number => p_line_number );
3259: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3255: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
3256: p_module_name => l_module_name,
3257: p_category => 'D',
3258: p_line_number => p_line_number );
3259: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3260: END IF;
3261:
3262: --+
3263: -- Cannot Have Flat Rate With Minimum Charges
3263: -- Cannot Have Flat Rate With Minimum Charges
3264: --+
3265: IF (l_flat_rate AND (p_min_charge IS NOT NULL)) THEN
3266: x_status := 2;
3267: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_FLAT_CANT_HAVE_MIN');
3268: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
3269: p_module_name => l_module_name,
3270: p_category => 'D',
3271: p_line_number => p_line_number);
3264: --+
3265: IF (l_flat_rate AND (p_min_charge IS NOT NULL)) THEN
3266: x_status := 2;
3267: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_FLAT_CANT_HAVE_MIN');
3268: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
3269: p_module_name => l_module_name,
3270: p_category => 'D',
3271: p_line_number => p_line_number);
3272: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3268: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
3269: p_module_name => l_module_name,
3270: p_category => 'D',
3271: p_line_number => p_line_number);
3272: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3273: RETURN;
3274: END IF;
3275: --+
3276: -- Find out if you need to create breaks.
3291: x_linenum := x_linenum + 1;
3292: l_description := p_load_type || ' : Line ' || x_linenum;
3293:
3294: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
3295: FTE_UTIL_PKG.Write_LogFile(l_module_name, l_description);
3296: END IF;
3297:
3298: l_rate_line_data('ACTION') := G_ACTION;
3299: l_rate_line_data('LINE_NUMBER') := x_linenum;
3318: l_rate_line_data.DELETE;
3319: l_rate_line_block_tbl.DELETE;
3320:
3321: IF (x_status <> -1) THEN
3322: FTE_UTIL_PKG.Write_LogFile(l_module_name, x_error_msg);
3323: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3324: RETURN;
3325: END IF;
3326:
3319: l_rate_line_block_tbl.DELETE;
3320:
3321: IF (x_status <> -1) THEN
3322: FTE_UTIL_PKG.Write_LogFile(l_module_name, x_error_msg);
3323: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3324: RETURN;
3325: END IF;
3326:
3327: -- Add the Charge Type attribute.
3440: l_rate_break_data.DELETE;
3441: l_rate_break_block_tbl.DELETE;
3442:
3443: IF (x_status <> -1) THEN
3444: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Error: ' || x_error_msg);
3445: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3446: RETURN;
3447: END IF;
3448:
3441: l_rate_break_block_tbl.DELETE;
3442:
3443: IF (x_status <> -1) THEN
3444: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Error: ' || x_error_msg);
3445: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3446: RETURN;
3447: END IF;
3448:
3449: -- Break 2
3476: l_rate_break_data.DELETE;
3477: l_rate_break_block_tbl.DELETE;
3478:
3479: IF (x_status <> -1) THEN
3480: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Error: ' || x_error_msg);
3481: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3482: RETURN;
3483: END IF;
3484: END IF;
3477: l_rate_break_block_tbl.DELETE;
3478:
3479: IF (x_status <> -1) THEN
3480: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Error: ' || x_error_msg);
3481: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3482: RETURN;
3483: END IF;
3484: END IF;
3485: END IF;
3483: END IF;
3484: END IF;
3485: END IF;
3486:
3487: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3488: EXCEPTION
3489: WHEN OTHERS THEN
3490: x_status := 2;
3491: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3487: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3488: EXCEPTION
3489: WHEN OTHERS THEN
3490: x_status := 2;
3491: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3492: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Process_Loading_Charges Error: ' || sqlerrm);
3493:
3494: End PROCESS_LOADING_CHARGES;
3495:
3488: EXCEPTION
3489: WHEN OTHERS THEN
3490: x_status := 2;
3491: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3492: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Process_Loading_Charges Error: ' || sqlerrm);
3493:
3494: End PROCESS_LOADING_CHARGES;
3495:
3496: --_________________________________________________________________________________--
3535:
3536: l_module_name CONSTANT VARCHAR2(100) := 'FTE.PLSQL.' || G_PKG_NAME || '.PROCESS_BLOCK_UNIT_CHARGES';
3537:
3538: BEGIN
3539: FTE_UTIL_PKG.Enter_Debug(l_module_name);
3540: x_status := -1;
3541:
3542: x_linenum := x_linenum + 1;
3543: l_type := 'ACCESSORIAL_SURCHARGE';
3551: l_description := 'Weekday Layover Charge: Line ' || x_linenum;
3552: END IF;
3553:
3554: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
3555: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_description', l_description);
3556: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_type ', l_type);
3557: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_break_type ', l_break_type);
3558: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'p_subtype ', p_subtype);
3559: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_type ', l_rate_type);
3552: END IF;
3553:
3554: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
3555: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_description', l_description);
3556: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_type ', l_type);
3557: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_break_type ', l_break_type);
3558: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'p_subtype ', p_subtype);
3559: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_type ', l_rate_type);
3560: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_volume_type', l_volume_type);
3553:
3554: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
3555: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_description', l_description);
3556: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_type ', l_type);
3557: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_break_type ', l_break_type);
3558: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'p_subtype ', p_subtype);
3559: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_type ', l_rate_type);
3560: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_volume_type', l_volume_type);
3561: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_unit_uom ', g_unit_uom);
3554: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
3555: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_description', l_description);
3556: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_type ', l_type);
3557: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_break_type ', l_break_type);
3558: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'p_subtype ', p_subtype);
3559: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_type ', l_rate_type);
3560: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_volume_type', l_volume_type);
3561: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_unit_uom ', g_unit_uom);
3562: END IF;
3555: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_description', l_description);
3556: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_type ', l_type);
3557: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_break_type ', l_break_type);
3558: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'p_subtype ', p_subtype);
3559: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_type ', l_rate_type);
3560: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_volume_type', l_volume_type);
3561: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_unit_uom ', g_unit_uom);
3562: END IF;
3563:
3556: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_type ', l_type);
3557: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_break_type ', l_break_type);
3558: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'p_subtype ', p_subtype);
3559: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_type ', l_rate_type);
3560: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_volume_type', l_volume_type);
3561: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_unit_uom ', g_unit_uom);
3562: END IF;
3563:
3564: l_rate_line_data('ACTION') := G_ACTION;
3557: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_break_type ', l_break_type);
3558: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'p_subtype ', p_subtype);
3559: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_type ', l_rate_type);
3560: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_volume_type', l_volume_type);
3561: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_unit_uom ', g_unit_uom);
3562: END IF;
3563:
3564: l_rate_line_data('ACTION') := G_ACTION;
3565: l_rate_line_data('LINE_NUMBER') := x_linenum;
3583: l_rate_line_data.DELETE;
3584: l_rate_line_block_tbl.DELETE;
3585:
3586: IF (x_status <> -1) THEN
3587: FTE_UTIL_PKG.Write_LogFile(l_module_name, x_error_msg);
3588: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3589: RETURN;
3590: END IF;
3591:
3584: l_rate_line_block_tbl.DELETE;
3585:
3586: IF (x_status <> -1) THEN
3587: FTE_UTIL_PKG.Write_LogFile(l_module_name, x_error_msg);
3588: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3589: RETURN;
3590: END IF;
3591:
3592: -- add Rate Type Attribute
3630:
3631: l_rate_break_data('ACTION') := G_ACTION;
3632: l_rate_break_data('LINE_NUMBER'):= x_linenum;
3633: l_rate_break_data('LOWER_LIMIT'):= 0;
3634: l_rate_break_data('UPPER_LIMIT'):= FTE_UTIL_PKG.Canonicalize_Number(g_max_number);
3635: l_rate_break_data('RATE') := p_charge;
3636: l_rate_break_data('RATE_TYPE') := 'BLOCK_UNIT';
3637: l_rate_break_data('ATTRIBUTE') := l_attribute_type;
3638: l_rate_break_data('TYPE') := l_type;
3651: l_rate_break_data.DELETE;
3652: l_rate_break_block_tbl.DELETE;
3653:
3654: IF (x_status <> -1) THEN
3655: FTE_UTIL_PKG.Write_LogFile(l_module_name, x_error_msg);
3656: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3657: RETURN;
3658: END IF;
3659:
3652: l_rate_break_block_tbl.DELETE;
3653:
3654: IF (x_status <> -1) THEN
3655: FTE_UTIL_PKG.Write_LogFile(l_module_name, x_error_msg);
3656: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3657: RETURN;
3658: END IF;
3659:
3660: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3656: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3657: RETURN;
3658: END IF;
3659:
3660: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3661:
3662: EXCEPTION
3663: WHEN OTHERS THEN
3664: x_status := 2;
3661:
3662: EXCEPTION
3663: WHEN OTHERS THEN
3664: x_status := 2;
3665: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Process_Block_Unit_Charges Error',sqlerrm);
3666: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3667:
3668: END PROCESS_BLOCK_UNIT_CHARGES;
3669:
3662: EXCEPTION
3663: WHEN OTHERS THEN
3664: x_status := 2;
3665: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Process_Block_Unit_Charges Error',sqlerrm);
3666: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3667:
3668: END PROCESS_BLOCK_UNIT_CHARGES;
3669:
3670: --_________________________________________________________________________________--
3742: l_rate_line_block_tbl FTE_BULKLOAD_PKG.block_data_tbl;
3743:
3744: BEGIN
3745:
3746: FTE_UTIL_PKG.Enter_Debug(l_module_name);
3747: x_status := -1;
3748:
3749: l_carrier_name := FTE_UTIL_PKG.GET_DATA('CARRIER_NAME', p_values);
3750: l_num_free_stops := FTE_UTIL_PKG.GET_DATA('NUMBER_OF_FREE_STOPS', p_values);
3745:
3746: FTE_UTIL_PKG.Enter_Debug(l_module_name);
3747: x_status := -1;
3748:
3749: l_carrier_name := FTE_UTIL_PKG.GET_DATA('CARRIER_NAME', p_values);
3750: l_num_free_stops := FTE_UTIL_PKG.GET_DATA('NUMBER_OF_FREE_STOPS', p_values);
3751: l_rate_basis := FTE_UTIL_PKG.GET_DATA('BASIS_FOR_HANDLING_LOADING_UNLOADING_CHARGES', p_values);
3752: l_rate_basis_uom := FTE_UTIL_PKG.GET_DATA('UOM_FOR_HANDLING_LOADING_UNLOADING_CHARGE_BASIS', p_values);
3753: l_out_rt_chg_uom := FTE_UTIL_PKG.GET_DATA('OUT_OF_ROUTE_CHARGE_BASIS_UOM', p_values);
3746: FTE_UTIL_PKG.Enter_Debug(l_module_name);
3747: x_status := -1;
3748:
3749: l_carrier_name := FTE_UTIL_PKG.GET_DATA('CARRIER_NAME', p_values);
3750: l_num_free_stops := FTE_UTIL_PKG.GET_DATA('NUMBER_OF_FREE_STOPS', p_values);
3751: l_rate_basis := FTE_UTIL_PKG.GET_DATA('BASIS_FOR_HANDLING_LOADING_UNLOADING_CHARGES', p_values);
3752: l_rate_basis_uom := FTE_UTIL_PKG.GET_DATA('UOM_FOR_HANDLING_LOADING_UNLOADING_CHARGE_BASIS', p_values);
3753: l_out_rt_chg_uom := FTE_UTIL_PKG.GET_DATA('OUT_OF_ROUTE_CHARGE_BASIS_UOM', p_values);
3754: l_stop_chg_1 := FTE_UTIL_PKG.GET_DATA('FIRST_ADD_STOP_OFF_CHARGES', p_values );
3747: x_status := -1;
3748:
3749: l_carrier_name := FTE_UTIL_PKG.GET_DATA('CARRIER_NAME', p_values);
3750: l_num_free_stops := FTE_UTIL_PKG.GET_DATA('NUMBER_OF_FREE_STOPS', p_values);
3751: l_rate_basis := FTE_UTIL_PKG.GET_DATA('BASIS_FOR_HANDLING_LOADING_UNLOADING_CHARGES', p_values);
3752: l_rate_basis_uom := FTE_UTIL_PKG.GET_DATA('UOM_FOR_HANDLING_LOADING_UNLOADING_CHARGE_BASIS', p_values);
3753: l_out_rt_chg_uom := FTE_UTIL_PKG.GET_DATA('OUT_OF_ROUTE_CHARGE_BASIS_UOM', p_values);
3754: l_stop_chg_1 := FTE_UTIL_PKG.GET_DATA('FIRST_ADD_STOP_OFF_CHARGES', p_values );
3755: l_stop_chg_2 := FTE_UTIL_PKG.GET_DATA('SECOND_ADD_STOP_OFF_CHARGES', p_values);
3748:
3749: l_carrier_name := FTE_UTIL_PKG.GET_DATA('CARRIER_NAME', p_values);
3750: l_num_free_stops := FTE_UTIL_PKG.GET_DATA('NUMBER_OF_FREE_STOPS', p_values);
3751: l_rate_basis := FTE_UTIL_PKG.GET_DATA('BASIS_FOR_HANDLING_LOADING_UNLOADING_CHARGES', p_values);
3752: l_rate_basis_uom := FTE_UTIL_PKG.GET_DATA('UOM_FOR_HANDLING_LOADING_UNLOADING_CHARGE_BASIS', p_values);
3753: l_out_rt_chg_uom := FTE_UTIL_PKG.GET_DATA('OUT_OF_ROUTE_CHARGE_BASIS_UOM', p_values);
3754: l_stop_chg_1 := FTE_UTIL_PKG.GET_DATA('FIRST_ADD_STOP_OFF_CHARGES', p_values );
3755: l_stop_chg_2 := FTE_UTIL_PKG.GET_DATA('SECOND_ADD_STOP_OFF_CHARGES', p_values);
3756: l_stop_chg_3 := FTE_UTIL_PKG.GET_DATA('THIRD_ADD_STOP_OFF_CHARGES', p_values);
3749: l_carrier_name := FTE_UTIL_PKG.GET_DATA('CARRIER_NAME', p_values);
3750: l_num_free_stops := FTE_UTIL_PKG.GET_DATA('NUMBER_OF_FREE_STOPS', p_values);
3751: l_rate_basis := FTE_UTIL_PKG.GET_DATA('BASIS_FOR_HANDLING_LOADING_UNLOADING_CHARGES', p_values);
3752: l_rate_basis_uom := FTE_UTIL_PKG.GET_DATA('UOM_FOR_HANDLING_LOADING_UNLOADING_CHARGE_BASIS', p_values);
3753: l_out_rt_chg_uom := FTE_UTIL_PKG.GET_DATA('OUT_OF_ROUTE_CHARGE_BASIS_UOM', p_values);
3754: l_stop_chg_1 := FTE_UTIL_PKG.GET_DATA('FIRST_ADD_STOP_OFF_CHARGES', p_values );
3755: l_stop_chg_2 := FTE_UTIL_PKG.GET_DATA('SECOND_ADD_STOP_OFF_CHARGES', p_values);
3756: l_stop_chg_3 := FTE_UTIL_PKG.GET_DATA('THIRD_ADD_STOP_OFF_CHARGES', p_values);
3757: l_stop_chg_4 := FTE_UTIL_PKG.GET_DATA('FOURTH_ADD_STOP_OFF_CHARGES', p_values);
3750: l_num_free_stops := FTE_UTIL_PKG.GET_DATA('NUMBER_OF_FREE_STOPS', p_values);
3751: l_rate_basis := FTE_UTIL_PKG.GET_DATA('BASIS_FOR_HANDLING_LOADING_UNLOADING_CHARGES', p_values);
3752: l_rate_basis_uom := FTE_UTIL_PKG.GET_DATA('UOM_FOR_HANDLING_LOADING_UNLOADING_CHARGE_BASIS', p_values);
3753: l_out_rt_chg_uom := FTE_UTIL_PKG.GET_DATA('OUT_OF_ROUTE_CHARGE_BASIS_UOM', p_values);
3754: l_stop_chg_1 := FTE_UTIL_PKG.GET_DATA('FIRST_ADD_STOP_OFF_CHARGES', p_values );
3755: l_stop_chg_2 := FTE_UTIL_PKG.GET_DATA('SECOND_ADD_STOP_OFF_CHARGES', p_values);
3756: l_stop_chg_3 := FTE_UTIL_PKG.GET_DATA('THIRD_ADD_STOP_OFF_CHARGES', p_values);
3757: l_stop_chg_4 := FTE_UTIL_PKG.GET_DATA('FOURTH_ADD_STOP_OFF_CHARGES', p_values);
3758: l_stop_chg_5 := FTE_UTIL_PKG.GET_DATA('FIFTH_ADD_STOP_OFF_CHARGES', p_values);
3751: l_rate_basis := FTE_UTIL_PKG.GET_DATA('BASIS_FOR_HANDLING_LOADING_UNLOADING_CHARGES', p_values);
3752: l_rate_basis_uom := FTE_UTIL_PKG.GET_DATA('UOM_FOR_HANDLING_LOADING_UNLOADING_CHARGE_BASIS', p_values);
3753: l_out_rt_chg_uom := FTE_UTIL_PKG.GET_DATA('OUT_OF_ROUTE_CHARGE_BASIS_UOM', p_values);
3754: l_stop_chg_1 := FTE_UTIL_PKG.GET_DATA('FIRST_ADD_STOP_OFF_CHARGES', p_values );
3755: l_stop_chg_2 := FTE_UTIL_PKG.GET_DATA('SECOND_ADD_STOP_OFF_CHARGES', p_values);
3756: l_stop_chg_3 := FTE_UTIL_PKG.GET_DATA('THIRD_ADD_STOP_OFF_CHARGES', p_values);
3757: l_stop_chg_4 := FTE_UTIL_PKG.GET_DATA('FOURTH_ADD_STOP_OFF_CHARGES', p_values);
3758: l_stop_chg_5 := FTE_UTIL_PKG.GET_DATA('FIFTH_ADD_STOP_OFF_CHARGES', p_values);
3759: l_stop_chg_x := FTE_UTIL_PKG.GET_DATA('ADDITIONAL_STOP_CHARGES',p_values);
3752: l_rate_basis_uom := FTE_UTIL_PKG.GET_DATA('UOM_FOR_HANDLING_LOADING_UNLOADING_CHARGE_BASIS', p_values);
3753: l_out_rt_chg_uom := FTE_UTIL_PKG.GET_DATA('OUT_OF_ROUTE_CHARGE_BASIS_UOM', p_values);
3754: l_stop_chg_1 := FTE_UTIL_PKG.GET_DATA('FIRST_ADD_STOP_OFF_CHARGES', p_values );
3755: l_stop_chg_2 := FTE_UTIL_PKG.GET_DATA('SECOND_ADD_STOP_OFF_CHARGES', p_values);
3756: l_stop_chg_3 := FTE_UTIL_PKG.GET_DATA('THIRD_ADD_STOP_OFF_CHARGES', p_values);
3757: l_stop_chg_4 := FTE_UTIL_PKG.GET_DATA('FOURTH_ADD_STOP_OFF_CHARGES', p_values);
3758: l_stop_chg_5 := FTE_UTIL_PKG.GET_DATA('FIFTH_ADD_STOP_OFF_CHARGES', p_values);
3759: l_stop_chg_x := FTE_UTIL_PKG.GET_DATA('ADDITIONAL_STOP_CHARGES',p_values);
3760: l_out_rt_chg := FTE_UTIL_PKG.GET_DATA('OUT_OF_ROUTE_CHARGES',p_values);
3753: l_out_rt_chg_uom := FTE_UTIL_PKG.GET_DATA('OUT_OF_ROUTE_CHARGE_BASIS_UOM', p_values);
3754: l_stop_chg_1 := FTE_UTIL_PKG.GET_DATA('FIRST_ADD_STOP_OFF_CHARGES', p_values );
3755: l_stop_chg_2 := FTE_UTIL_PKG.GET_DATA('SECOND_ADD_STOP_OFF_CHARGES', p_values);
3756: l_stop_chg_3 := FTE_UTIL_PKG.GET_DATA('THIRD_ADD_STOP_OFF_CHARGES', p_values);
3757: l_stop_chg_4 := FTE_UTIL_PKG.GET_DATA('FOURTH_ADD_STOP_OFF_CHARGES', p_values);
3758: l_stop_chg_5 := FTE_UTIL_PKG.GET_DATA('FIFTH_ADD_STOP_OFF_CHARGES', p_values);
3759: l_stop_chg_x := FTE_UTIL_PKG.GET_DATA('ADDITIONAL_STOP_CHARGES',p_values);
3760: l_out_rt_chg := FTE_UTIL_PKG.GET_DATA('OUT_OF_ROUTE_CHARGES',p_values);
3761: l_handling_chg := FTE_UTIL_PKG.GET_DATA('HANDLING_CHARGES', p_values);
3754: l_stop_chg_1 := FTE_UTIL_PKG.GET_DATA('FIRST_ADD_STOP_OFF_CHARGES', p_values );
3755: l_stop_chg_2 := FTE_UTIL_PKG.GET_DATA('SECOND_ADD_STOP_OFF_CHARGES', p_values);
3756: l_stop_chg_3 := FTE_UTIL_PKG.GET_DATA('THIRD_ADD_STOP_OFF_CHARGES', p_values);
3757: l_stop_chg_4 := FTE_UTIL_PKG.GET_DATA('FOURTH_ADD_STOP_OFF_CHARGES', p_values);
3758: l_stop_chg_5 := FTE_UTIL_PKG.GET_DATA('FIFTH_ADD_STOP_OFF_CHARGES', p_values);
3759: l_stop_chg_x := FTE_UTIL_PKG.GET_DATA('ADDITIONAL_STOP_CHARGES',p_values);
3760: l_out_rt_chg := FTE_UTIL_PKG.GET_DATA('OUT_OF_ROUTE_CHARGES',p_values);
3761: l_handling_chg := FTE_UTIL_PKG.GET_DATA('HANDLING_CHARGES', p_values);
3762: l_min_handling_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_HANDLING_CHARGES', p_values);
3755: l_stop_chg_2 := FTE_UTIL_PKG.GET_DATA('SECOND_ADD_STOP_OFF_CHARGES', p_values);
3756: l_stop_chg_3 := FTE_UTIL_PKG.GET_DATA('THIRD_ADD_STOP_OFF_CHARGES', p_values);
3757: l_stop_chg_4 := FTE_UTIL_PKG.GET_DATA('FOURTH_ADD_STOP_OFF_CHARGES', p_values);
3758: l_stop_chg_5 := FTE_UTIL_PKG.GET_DATA('FIFTH_ADD_STOP_OFF_CHARGES', p_values);
3759: l_stop_chg_x := FTE_UTIL_PKG.GET_DATA('ADDITIONAL_STOP_CHARGES',p_values);
3760: l_out_rt_chg := FTE_UTIL_PKG.GET_DATA('OUT_OF_ROUTE_CHARGES',p_values);
3761: l_handling_chg := FTE_UTIL_PKG.GET_DATA('HANDLING_CHARGES', p_values);
3762: l_min_handling_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_HANDLING_CHARGES', p_values);
3763: l_ld_chg := FTE_UTIL_PKG.GET_DATA('LOADING_CHARGES', p_values);
3756: l_stop_chg_3 := FTE_UTIL_PKG.GET_DATA('THIRD_ADD_STOP_OFF_CHARGES', p_values);
3757: l_stop_chg_4 := FTE_UTIL_PKG.GET_DATA('FOURTH_ADD_STOP_OFF_CHARGES', p_values);
3758: l_stop_chg_5 := FTE_UTIL_PKG.GET_DATA('FIFTH_ADD_STOP_OFF_CHARGES', p_values);
3759: l_stop_chg_x := FTE_UTIL_PKG.GET_DATA('ADDITIONAL_STOP_CHARGES',p_values);
3760: l_out_rt_chg := FTE_UTIL_PKG.GET_DATA('OUT_OF_ROUTE_CHARGES',p_values);
3761: l_handling_chg := FTE_UTIL_PKG.GET_DATA('HANDLING_CHARGES', p_values);
3762: l_min_handling_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_HANDLING_CHARGES', p_values);
3763: l_ld_chg := FTE_UTIL_PKG.GET_DATA('LOADING_CHARGES', p_values);
3764: l_min_ld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_LOADING_CHARGES', p_values);
3757: l_stop_chg_4 := FTE_UTIL_PKG.GET_DATA('FOURTH_ADD_STOP_OFF_CHARGES', p_values);
3758: l_stop_chg_5 := FTE_UTIL_PKG.GET_DATA('FIFTH_ADD_STOP_OFF_CHARGES', p_values);
3759: l_stop_chg_x := FTE_UTIL_PKG.GET_DATA('ADDITIONAL_STOP_CHARGES',p_values);
3760: l_out_rt_chg := FTE_UTIL_PKG.GET_DATA('OUT_OF_ROUTE_CHARGES',p_values);
3761: l_handling_chg := FTE_UTIL_PKG.GET_DATA('HANDLING_CHARGES', p_values);
3762: l_min_handling_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_HANDLING_CHARGES', p_values);
3763: l_ld_chg := FTE_UTIL_PKG.GET_DATA('LOADING_CHARGES', p_values);
3764: l_min_ld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_LOADING_CHARGES', p_values);
3765: l_unld_chg := FTE_UTIL_PKG.GET_DATA('UNLOADING_CHARGES', p_values);
3758: l_stop_chg_5 := FTE_UTIL_PKG.GET_DATA('FIFTH_ADD_STOP_OFF_CHARGES', p_values);
3759: l_stop_chg_x := FTE_UTIL_PKG.GET_DATA('ADDITIONAL_STOP_CHARGES',p_values);
3760: l_out_rt_chg := FTE_UTIL_PKG.GET_DATA('OUT_OF_ROUTE_CHARGES',p_values);
3761: l_handling_chg := FTE_UTIL_PKG.GET_DATA('HANDLING_CHARGES', p_values);
3762: l_min_handling_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_HANDLING_CHARGES', p_values);
3763: l_ld_chg := FTE_UTIL_PKG.GET_DATA('LOADING_CHARGES', p_values);
3764: l_min_ld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_LOADING_CHARGES', p_values);
3765: l_unld_chg := FTE_UTIL_PKG.GET_DATA('UNLOADING_CHARGES', p_values);
3766: l_min_unld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_UNLOADING_CHARGES', p_values);
3759: l_stop_chg_x := FTE_UTIL_PKG.GET_DATA('ADDITIONAL_STOP_CHARGES',p_values);
3760: l_out_rt_chg := FTE_UTIL_PKG.GET_DATA('OUT_OF_ROUTE_CHARGES',p_values);
3761: l_handling_chg := FTE_UTIL_PKG.GET_DATA('HANDLING_CHARGES', p_values);
3762: l_min_handling_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_HANDLING_CHARGES', p_values);
3763: l_ld_chg := FTE_UTIL_PKG.GET_DATA('LOADING_CHARGES', p_values);
3764: l_min_ld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_LOADING_CHARGES', p_values);
3765: l_unld_chg := FTE_UTIL_PKG.GET_DATA('UNLOADING_CHARGES', p_values);
3766: l_min_unld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_UNLOADING_CHARGES', p_values);
3767: l_asst_unld_chg := FTE_UTIL_PKG.GET_DATA('ASSISTED_UNLOADING_CHARGES', p_values);
3760: l_out_rt_chg := FTE_UTIL_PKG.GET_DATA('OUT_OF_ROUTE_CHARGES',p_values);
3761: l_handling_chg := FTE_UTIL_PKG.GET_DATA('HANDLING_CHARGES', p_values);
3762: l_min_handling_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_HANDLING_CHARGES', p_values);
3763: l_ld_chg := FTE_UTIL_PKG.GET_DATA('LOADING_CHARGES', p_values);
3764: l_min_ld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_LOADING_CHARGES', p_values);
3765: l_unld_chg := FTE_UTIL_PKG.GET_DATA('UNLOADING_CHARGES', p_values);
3766: l_min_unld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_UNLOADING_CHARGES', p_values);
3767: l_asst_unld_chg := FTE_UTIL_PKG.GET_DATA('ASSISTED_UNLOADING_CHARGES', p_values);
3768: l_min_asst_unld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_ASSISTED_UNLOADING_CHARGES', p_values);
3761: l_handling_chg := FTE_UTIL_PKG.GET_DATA('HANDLING_CHARGES', p_values);
3762: l_min_handling_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_HANDLING_CHARGES', p_values);
3763: l_ld_chg := FTE_UTIL_PKG.GET_DATA('LOADING_CHARGES', p_values);
3764: l_min_ld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_LOADING_CHARGES', p_values);
3765: l_unld_chg := FTE_UTIL_PKG.GET_DATA('UNLOADING_CHARGES', p_values);
3766: l_min_unld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_UNLOADING_CHARGES', p_values);
3767: l_asst_unld_chg := FTE_UTIL_PKG.GET_DATA('ASSISTED_UNLOADING_CHARGES', p_values);
3768: l_min_asst_unld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_ASSISTED_UNLOADING_CHARGES', p_values);
3769: l_asst_ld_chg := FTE_UTIL_PKG.GET_DATA('ASSISTED_LOADING_CHARGES', p_values);
3762: l_min_handling_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_HANDLING_CHARGES', p_values);
3763: l_ld_chg := FTE_UTIL_PKG.GET_DATA('LOADING_CHARGES', p_values);
3764: l_min_ld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_LOADING_CHARGES', p_values);
3765: l_unld_chg := FTE_UTIL_PKG.GET_DATA('UNLOADING_CHARGES', p_values);
3766: l_min_unld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_UNLOADING_CHARGES', p_values);
3767: l_asst_unld_chg := FTE_UTIL_PKG.GET_DATA('ASSISTED_UNLOADING_CHARGES', p_values);
3768: l_min_asst_unld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_ASSISTED_UNLOADING_CHARGES', p_values);
3769: l_asst_ld_chg := FTE_UTIL_PKG.GET_DATA('ASSISTED_LOADING_CHARGES', p_values);
3770: l_min_asst_ld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_ASSISTED_LOADING_CHARGES', p_values);
3763: l_ld_chg := FTE_UTIL_PKG.GET_DATA('LOADING_CHARGES', p_values);
3764: l_min_ld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_LOADING_CHARGES', p_values);
3765: l_unld_chg := FTE_UTIL_PKG.GET_DATA('UNLOADING_CHARGES', p_values);
3766: l_min_unld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_UNLOADING_CHARGES', p_values);
3767: l_asst_unld_chg := FTE_UTIL_PKG.GET_DATA('ASSISTED_UNLOADING_CHARGES', p_values);
3768: l_min_asst_unld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_ASSISTED_UNLOADING_CHARGES', p_values);
3769: l_asst_ld_chg := FTE_UTIL_PKG.GET_DATA('ASSISTED_LOADING_CHARGES', p_values);
3770: l_min_asst_ld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_ASSISTED_LOADING_CHARGES', p_values);
3771: l_cont_mv_dsct_prcnt:= FTE_UTIL_PKG.GET_DATA('CONTINUOUS_MOVE_DISCOUNT_PERCENTAGE', p_values);
3764: l_min_ld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_LOADING_CHARGES', p_values);
3765: l_unld_chg := FTE_UTIL_PKG.GET_DATA('UNLOADING_CHARGES', p_values);
3766: l_min_unld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_UNLOADING_CHARGES', p_values);
3767: l_asst_unld_chg := FTE_UTIL_PKG.GET_DATA('ASSISTED_UNLOADING_CHARGES', p_values);
3768: l_min_asst_unld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_ASSISTED_UNLOADING_CHARGES', p_values);
3769: l_asst_ld_chg := FTE_UTIL_PKG.GET_DATA('ASSISTED_LOADING_CHARGES', p_values);
3770: l_min_asst_ld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_ASSISTED_LOADING_CHARGES', p_values);
3771: l_cont_mv_dsct_prcnt:= FTE_UTIL_PKG.GET_DATA('CONTINUOUS_MOVE_DISCOUNT_PERCENTAGE', p_values);
3772: l_wkday_layovr_chg := FTE_UTIL_PKG.GET_DATA('WEEKDAY_LAYOVER_CHARGES', p_values);
3765: l_unld_chg := FTE_UTIL_PKG.GET_DATA('UNLOADING_CHARGES', p_values);
3766: l_min_unld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_UNLOADING_CHARGES', p_values);
3767: l_asst_unld_chg := FTE_UTIL_PKG.GET_DATA('ASSISTED_UNLOADING_CHARGES', p_values);
3768: l_min_asst_unld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_ASSISTED_UNLOADING_CHARGES', p_values);
3769: l_asst_ld_chg := FTE_UTIL_PKG.GET_DATA('ASSISTED_LOADING_CHARGES', p_values);
3770: l_min_asst_ld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_ASSISTED_LOADING_CHARGES', p_values);
3771: l_cont_mv_dsct_prcnt:= FTE_UTIL_PKG.GET_DATA('CONTINUOUS_MOVE_DISCOUNT_PERCENTAGE', p_values);
3772: l_wkday_layovr_chg := FTE_UTIL_PKG.GET_DATA('WEEKDAY_LAYOVER_CHARGES', p_values);
3773: l_service_level := FTE_UTIL_PKG.GET_DATA('SERVICE_LEVEL', p_values);
3766: l_min_unld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_UNLOADING_CHARGES', p_values);
3767: l_asst_unld_chg := FTE_UTIL_PKG.GET_DATA('ASSISTED_UNLOADING_CHARGES', p_values);
3768: l_min_asst_unld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_ASSISTED_UNLOADING_CHARGES', p_values);
3769: l_asst_ld_chg := FTE_UTIL_PKG.GET_DATA('ASSISTED_LOADING_CHARGES', p_values);
3770: l_min_asst_ld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_ASSISTED_LOADING_CHARGES', p_values);
3771: l_cont_mv_dsct_prcnt:= FTE_UTIL_PKG.GET_DATA('CONTINUOUS_MOVE_DISCOUNT_PERCENTAGE', p_values);
3772: l_wkday_layovr_chg := FTE_UTIL_PKG.GET_DATA('WEEKDAY_LAYOVER_CHARGES', p_values);
3773: l_service_level := FTE_UTIL_PKG.GET_DATA('SERVICE_LEVEL', p_values);
3774:
3767: l_asst_unld_chg := FTE_UTIL_PKG.GET_DATA('ASSISTED_UNLOADING_CHARGES', p_values);
3768: l_min_asst_unld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_ASSISTED_UNLOADING_CHARGES', p_values);
3769: l_asst_ld_chg := FTE_UTIL_PKG.GET_DATA('ASSISTED_LOADING_CHARGES', p_values);
3770: l_min_asst_ld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_ASSISTED_LOADING_CHARGES', p_values);
3771: l_cont_mv_dsct_prcnt:= FTE_UTIL_PKG.GET_DATA('CONTINUOUS_MOVE_DISCOUNT_PERCENTAGE', p_values);
3772: l_wkday_layovr_chg := FTE_UTIL_PKG.GET_DATA('WEEKDAY_LAYOVER_CHARGES', p_values);
3773: l_service_level := FTE_UTIL_PKG.GET_DATA('SERVICE_LEVEL', p_values);
3774:
3775: IF (NOT p_doValidate) THEN
3768: l_min_asst_unld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_ASSISTED_UNLOADING_CHARGES', p_values);
3769: l_asst_ld_chg := FTE_UTIL_PKG.GET_DATA('ASSISTED_LOADING_CHARGES', p_values);
3770: l_min_asst_ld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_ASSISTED_LOADING_CHARGES', p_values);
3771: l_cont_mv_dsct_prcnt:= FTE_UTIL_PKG.GET_DATA('CONTINUOUS_MOVE_DISCOUNT_PERCENTAGE', p_values);
3772: l_wkday_layovr_chg := FTE_UTIL_PKG.GET_DATA('WEEKDAY_LAYOVER_CHARGES', p_values);
3773: l_service_level := FTE_UTIL_PKG.GET_DATA('SERVICE_LEVEL', p_values);
3774:
3775: IF (NOT p_doValidate) THEN
3776: l_service_level := FTE_UTIL_PKG.GET_DATA('SERVICE_CODE', p_values);
3769: l_asst_ld_chg := FTE_UTIL_PKG.GET_DATA('ASSISTED_LOADING_CHARGES', p_values);
3770: l_min_asst_ld_chg := FTE_UTIL_PKG.GET_DATA('MINIMUM_ASSISTED_LOADING_CHARGES', p_values);
3771: l_cont_mv_dsct_prcnt:= FTE_UTIL_PKG.GET_DATA('CONTINUOUS_MOVE_DISCOUNT_PERCENTAGE', p_values);
3772: l_wkday_layovr_chg := FTE_UTIL_PKG.GET_DATA('WEEKDAY_LAYOVER_CHARGES', p_values);
3773: l_service_level := FTE_UTIL_PKG.GET_DATA('SERVICE_LEVEL', p_values);
3774:
3775: IF (NOT p_doValidate) THEN
3776: l_service_level := FTE_UTIL_PKG.GET_DATA('SERVICE_CODE', p_values);
3777: END IF;
3772: l_wkday_layovr_chg := FTE_UTIL_PKG.GET_DATA('WEEKDAY_LAYOVER_CHARGES', p_values);
3773: l_service_level := FTE_UTIL_PKG.GET_DATA('SERVICE_LEVEL', p_values);
3774:
3775: IF (NOT p_doValidate) THEN
3776: l_service_level := FTE_UTIL_PKG.GET_DATA('SERVICE_CODE', p_values);
3777: END IF;
3778:
3779: l_rate_basis := UPPER(l_rate_basis);
3780:
3800: l_wkday_layovr_chg := Fnd_Number.Canonical_To_Number(l_wkday_layovr_chg);
3801: EXCEPTION
3802: WHEN OTHERS THEN
3803: x_status := 2;
3804: FTE_UTIL_PKG.Write_LogFile(l_module_name,'Unexcepted Error ', sqlerrm);
3805: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3806: END;
3807:
3808: IF ( p_doValidate ) THEN
3801: EXCEPTION
3802: WHEN OTHERS THEN
3803: x_status := 2;
3804: FTE_UTIL_PKG.Write_LogFile(l_module_name,'Unexcepted Error ', sqlerrm);
3805: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3806: END;
3807:
3808: IF ( p_doValidate ) THEN
3809: IF (p_chart_type <> 'FAC_MODIFIER') THEN
3813: p_line_number => p_line_number,
3814: x_error_msg => x_error_msg,
3815: x_status => x_status);
3816: IF (x_status <> -1) THEN
3817: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3818: RETURN;
3819: END IF;
3820: END IF;
3821: END IF;
3828: l_cont_mv_dsct_prcnt < 0 OR l_stop_chg_x < 0 OR l_min_unld_chg < 0 OR
3829: l_wkday_layovr_chg < 0 ) THEN
3830:
3831: x_status := 2;
3832: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_VALUE_ERROR',
3833: p_tokens => STRINGARRAY('ENTITY'),
3834: p_values => STRINGARRAY('Charge'));
3835: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
3836: p_module_name => l_module_name,
3831: x_status := 2;
3832: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_VALUE_ERROR',
3833: p_tokens => STRINGARRAY('ENTITY'),
3834: p_values => STRINGARRAY('Charge'));
3835: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
3836: p_module_name => l_module_name,
3837: p_category => 'D',
3838: p_line_number => p_line_number);
3839: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3835: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
3836: p_module_name => l_module_name,
3837: p_category => 'D',
3838: p_line_number => p_line_number);
3839: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3840: RETURN;
3841: END IF;
3842:
3843: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
3841: END IF;
3842:
3843: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
3844:
3845: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Validating Modifier for Process ID ' || p_process_id);
3846: FTE_UTIL_PKG.Write_LogFile(l_module_name, '-------------------------------------------');
3847: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_num_free_stops ',l_num_free_stops);
3848: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_1 ',l_stop_chg_1);
3849: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_2 ',l_stop_chg_2);
3842:
3843: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
3844:
3845: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Validating Modifier for Process ID ' || p_process_id);
3846: FTE_UTIL_PKG.Write_LogFile(l_module_name, '-------------------------------------------');
3847: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_num_free_stops ',l_num_free_stops);
3848: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_1 ',l_stop_chg_1);
3849: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_2 ',l_stop_chg_2);
3850: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_3 ',l_stop_chg_3);
3843: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
3844:
3845: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Validating Modifier for Process ID ' || p_process_id);
3846: FTE_UTIL_PKG.Write_LogFile(l_module_name, '-------------------------------------------');
3847: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_num_free_stops ',l_num_free_stops);
3848: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_1 ',l_stop_chg_1);
3849: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_2 ',l_stop_chg_2);
3850: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_3 ',l_stop_chg_3);
3851: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_4 ',l_stop_chg_4);
3844:
3845: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Validating Modifier for Process ID ' || p_process_id);
3846: FTE_UTIL_PKG.Write_LogFile(l_module_name, '-------------------------------------------');
3847: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_num_free_stops ',l_num_free_stops);
3848: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_1 ',l_stop_chg_1);
3849: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_2 ',l_stop_chg_2);
3850: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_3 ',l_stop_chg_3);
3851: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_4 ',l_stop_chg_4);
3852: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_5 ',l_stop_chg_5);
3845: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Validating Modifier for Process ID ' || p_process_id);
3846: FTE_UTIL_PKG.Write_LogFile(l_module_name, '-------------------------------------------');
3847: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_num_free_stops ',l_num_free_stops);
3848: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_1 ',l_stop_chg_1);
3849: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_2 ',l_stop_chg_2);
3850: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_3 ',l_stop_chg_3);
3851: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_4 ',l_stop_chg_4);
3852: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_5 ',l_stop_chg_5);
3853: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_x ',l_stop_chg_x);
3846: FTE_UTIL_PKG.Write_LogFile(l_module_name, '-------------------------------------------');
3847: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_num_free_stops ',l_num_free_stops);
3848: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_1 ',l_stop_chg_1);
3849: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_2 ',l_stop_chg_2);
3850: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_3 ',l_stop_chg_3);
3851: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_4 ',l_stop_chg_4);
3852: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_5 ',l_stop_chg_5);
3853: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_x ',l_stop_chg_x);
3854: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_out_rt_chg ',l_out_rt_chg);
3847: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_num_free_stops ',l_num_free_stops);
3848: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_1 ',l_stop_chg_1);
3849: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_2 ',l_stop_chg_2);
3850: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_3 ',l_stop_chg_3);
3851: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_4 ',l_stop_chg_4);
3852: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_5 ',l_stop_chg_5);
3853: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_x ',l_stop_chg_x);
3854: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_out_rt_chg ',l_out_rt_chg);
3855: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_out_rt_chg_uom ',l_out_rt_chg_uom);
3848: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_1 ',l_stop_chg_1);
3849: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_2 ',l_stop_chg_2);
3850: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_3 ',l_stop_chg_3);
3851: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_4 ',l_stop_chg_4);
3852: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_5 ',l_stop_chg_5);
3853: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_x ',l_stop_chg_x);
3854: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_out_rt_chg ',l_out_rt_chg);
3855: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_out_rt_chg_uom ',l_out_rt_chg_uom);
3856: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis ',l_rate_basis);
3849: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_2 ',l_stop_chg_2);
3850: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_3 ',l_stop_chg_3);
3851: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_4 ',l_stop_chg_4);
3852: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_5 ',l_stop_chg_5);
3853: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_x ',l_stop_chg_x);
3854: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_out_rt_chg ',l_out_rt_chg);
3855: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_out_rt_chg_uom ',l_out_rt_chg_uom);
3856: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis ',l_rate_basis);
3857: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis_uom ',l_rate_basis_uom);
3850: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_3 ',l_stop_chg_3);
3851: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_4 ',l_stop_chg_4);
3852: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_5 ',l_stop_chg_5);
3853: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_x ',l_stop_chg_x);
3854: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_out_rt_chg ',l_out_rt_chg);
3855: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_out_rt_chg_uom ',l_out_rt_chg_uom);
3856: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis ',l_rate_basis);
3857: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis_uom ',l_rate_basis_uom);
3858: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_handling_chg ',l_handling_chg);
3851: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_4 ',l_stop_chg_4);
3852: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_5 ',l_stop_chg_5);
3853: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_x ',l_stop_chg_x);
3854: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_out_rt_chg ',l_out_rt_chg);
3855: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_out_rt_chg_uom ',l_out_rt_chg_uom);
3856: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis ',l_rate_basis);
3857: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis_uom ',l_rate_basis_uom);
3858: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_handling_chg ',l_handling_chg);
3859: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_handling_chg',l_min_handling_chg);
3852: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_5 ',l_stop_chg_5);
3853: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_x ',l_stop_chg_x);
3854: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_out_rt_chg ',l_out_rt_chg);
3855: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_out_rt_chg_uom ',l_out_rt_chg_uom);
3856: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis ',l_rate_basis);
3857: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis_uom ',l_rate_basis_uom);
3858: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_handling_chg ',l_handling_chg);
3859: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_handling_chg',l_min_handling_chg);
3860: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_ld_chg ',l_ld_chg);
3853: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_stop_chg_x ',l_stop_chg_x);
3854: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_out_rt_chg ',l_out_rt_chg);
3855: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_out_rt_chg_uom ',l_out_rt_chg_uom);
3856: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis ',l_rate_basis);
3857: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis_uom ',l_rate_basis_uom);
3858: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_handling_chg ',l_handling_chg);
3859: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_handling_chg',l_min_handling_chg);
3860: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_ld_chg ',l_ld_chg);
3861: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_ld_chg ',l_min_ld_chg);
3854: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_out_rt_chg ',l_out_rt_chg);
3855: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_out_rt_chg_uom ',l_out_rt_chg_uom);
3856: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis ',l_rate_basis);
3857: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis_uom ',l_rate_basis_uom);
3858: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_handling_chg ',l_handling_chg);
3859: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_handling_chg',l_min_handling_chg);
3860: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_ld_chg ',l_ld_chg);
3861: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_ld_chg ',l_min_ld_chg);
3862: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_asst_ld_chg ',l_asst_ld_chg);
3855: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_out_rt_chg_uom ',l_out_rt_chg_uom);
3856: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis ',l_rate_basis);
3857: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis_uom ',l_rate_basis_uom);
3858: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_handling_chg ',l_handling_chg);
3859: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_handling_chg',l_min_handling_chg);
3860: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_ld_chg ',l_ld_chg);
3861: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_ld_chg ',l_min_ld_chg);
3862: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_asst_ld_chg ',l_asst_ld_chg);
3863: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_unld_chg ',l_unld_chg);
3856: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis ',l_rate_basis);
3857: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis_uom ',l_rate_basis_uom);
3858: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_handling_chg ',l_handling_chg);
3859: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_handling_chg',l_min_handling_chg);
3860: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_ld_chg ',l_ld_chg);
3861: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_ld_chg ',l_min_ld_chg);
3862: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_asst_ld_chg ',l_asst_ld_chg);
3863: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_unld_chg ',l_unld_chg);
3864: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_unld_chg ',l_min_unld_chg);
3857: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis_uom ',l_rate_basis_uom);
3858: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_handling_chg ',l_handling_chg);
3859: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_handling_chg',l_min_handling_chg);
3860: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_ld_chg ',l_ld_chg);
3861: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_ld_chg ',l_min_ld_chg);
3862: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_asst_ld_chg ',l_asst_ld_chg);
3863: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_unld_chg ',l_unld_chg);
3864: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_unld_chg ',l_min_unld_chg);
3865: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_asst_unld_chg ',l_asst_unld_chg);
3858: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_handling_chg ',l_handling_chg);
3859: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_handling_chg',l_min_handling_chg);
3860: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_ld_chg ',l_ld_chg);
3861: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_ld_chg ',l_min_ld_chg);
3862: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_asst_ld_chg ',l_asst_ld_chg);
3863: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_unld_chg ',l_unld_chg);
3864: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_unld_chg ',l_min_unld_chg);
3865: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_asst_unld_chg ',l_asst_unld_chg);
3866: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_asst_unld_chg ',l_min_asst_unld_chg);
3859: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_handling_chg',l_min_handling_chg);
3860: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_ld_chg ',l_ld_chg);
3861: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_ld_chg ',l_min_ld_chg);
3862: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_asst_ld_chg ',l_asst_ld_chg);
3863: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_unld_chg ',l_unld_chg);
3864: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_unld_chg ',l_min_unld_chg);
3865: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_asst_unld_chg ',l_asst_unld_chg);
3866: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_asst_unld_chg ',l_min_asst_unld_chg);
3867: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_wkday_layovr_chg ',l_wkday_layovr_chg);
3860: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_ld_chg ',l_ld_chg);
3861: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_ld_chg ',l_min_ld_chg);
3862: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_asst_ld_chg ',l_asst_ld_chg);
3863: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_unld_chg ',l_unld_chg);
3864: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_unld_chg ',l_min_unld_chg);
3865: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_asst_unld_chg ',l_asst_unld_chg);
3866: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_asst_unld_chg ',l_min_asst_unld_chg);
3867: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_wkday_layovr_chg ',l_wkday_layovr_chg);
3868: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_cont_mv_dsct_prcnt',l_cont_mv_dsct_prcnt);
3861: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_ld_chg ',l_min_ld_chg);
3862: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_asst_ld_chg ',l_asst_ld_chg);
3863: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_unld_chg ',l_unld_chg);
3864: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_unld_chg ',l_min_unld_chg);
3865: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_asst_unld_chg ',l_asst_unld_chg);
3866: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_asst_unld_chg ',l_min_asst_unld_chg);
3867: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_wkday_layovr_chg ',l_wkday_layovr_chg);
3868: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_cont_mv_dsct_prcnt',l_cont_mv_dsct_prcnt);
3869: END IF;
3862: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_asst_ld_chg ',l_asst_ld_chg);
3863: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_unld_chg ',l_unld_chg);
3864: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_unld_chg ',l_min_unld_chg);
3865: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_asst_unld_chg ',l_asst_unld_chg);
3866: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_asst_unld_chg ',l_min_asst_unld_chg);
3867: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_wkday_layovr_chg ',l_wkday_layovr_chg);
3868: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_cont_mv_dsct_prcnt',l_cont_mv_dsct_prcnt);
3869: END IF;
3870:
3863: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_unld_chg ',l_unld_chg);
3864: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_unld_chg ',l_min_unld_chg);
3865: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_asst_unld_chg ',l_asst_unld_chg);
3866: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_asst_unld_chg ',l_min_asst_unld_chg);
3867: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_wkday_layovr_chg ',l_wkday_layovr_chg);
3868: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_cont_mv_dsct_prcnt',l_cont_mv_dsct_prcnt);
3869: END IF;
3870:
3871: -- Attribute : Rate Basis, Rate Basis UOM are required
3864: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_unld_chg ',l_min_unld_chg);
3865: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_asst_unld_chg ',l_asst_unld_chg);
3866: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_asst_unld_chg ',l_min_asst_unld_chg);
3867: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_wkday_layovr_chg ',l_wkday_layovr_chg);
3868: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_cont_mv_dsct_prcnt',l_cont_mv_dsct_prcnt);
3869: END IF;
3870:
3871: -- Attribute : Rate Basis, Rate Basis UOM are required
3872:
3883: FTE_RTG_GLOBALS.G_TL_RATE_BASIS_TIME,
3884: FTE_RTG_GLOBALS.G_TL_RATE_BASIS_FLAT)) THEN
3885:
3886: x_status := 2;
3887: x_error_msg := FTE_UTIL_PKG.GET_MSG('FTE_BASIS_INVALID');
3888: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
3889: p_module_name => l_module_name,
3890: p_category => 'D',
3891: p_line_number => p_line_number);
3884: FTE_RTG_GLOBALS.G_TL_RATE_BASIS_FLAT)) THEN
3885:
3886: x_status := 2;
3887: x_error_msg := FTE_UTIL_PKG.GET_MSG('FTE_BASIS_INVALID');
3888: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
3889: p_module_name => l_module_name,
3890: p_category => 'D',
3891: p_line_number => p_line_number);
3892: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3888: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
3889: p_module_name => l_module_name,
3890: p_category => 'D',
3891: p_line_number => p_line_number);
3892: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3893: RETURN;
3894: --+
3895: -- UOM Required for 'DISTANCE', 'TIME', 'VOLUME', 'WEIGHT'
3896: --+
3899: FTE_RTG_GLOBALS.G_TL_RATE_BASIS_VOL,
3900: FTE_RTG_GLOBALS.G_TL_RATE_BASIS_TIME)) THEN
3901: IF (l_rate_basis_uom IS NULL OR LENGTH(l_rate_basis_uom) = 0) THEN
3902: x_status := 2;
3903: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_RATE_BASIS_UOM_MISSING');
3904: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
3905: p_module_name => l_module_name,
3906: p_category => 'A',
3907: p_line_number => p_line_number);
3900: FTE_RTG_GLOBALS.G_TL_RATE_BASIS_TIME)) THEN
3901: IF (l_rate_basis_uom IS NULL OR LENGTH(l_rate_basis_uom) = 0) THEN
3902: x_status := 2;
3903: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_RATE_BASIS_UOM_MISSING');
3904: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
3905: p_module_name => l_module_name,
3906: p_category => 'A',
3907: p_line_number => p_line_number);
3908:
3905: p_module_name => l_module_name,
3906: p_category => 'A',
3907: p_line_number => p_line_number);
3908:
3909: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3910: RETURN;
3911: ELSE
3912: l_rate_basis_uom := FTE_UTIL_PKG.GET_UOM_CODE(p_uom => l_rate_basis_uom);
3913:
3908:
3909: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3910: RETURN;
3911: ELSE
3912: l_rate_basis_uom := FTE_UTIL_PKG.GET_UOM_CODE(p_uom => l_rate_basis_uom);
3913:
3914: IF (x_status <> -1 OR l_rate_basis_uom IS NULL) THEN
3915: x_status := 2;
3916: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_UOM_INVALID',
3912: l_rate_basis_uom := FTE_UTIL_PKG.GET_UOM_CODE(p_uom => l_rate_basis_uom);
3913:
3914: IF (x_status <> -1 OR l_rate_basis_uom IS NULL) THEN
3915: x_status := 2;
3916: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_UOM_INVALID',
3917: p_tokens => STRINGARRAY('UOM'),
3918: p_values => STRINGARRAY(l_rate_basis_uom));
3919: FTE_UTIL_PKG.WRITE_OUTFILE(p_msg => x_error_msg,
3920: p_module_name => l_module_name,
3915: x_status := 2;
3916: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_UOM_INVALID',
3917: p_tokens => STRINGARRAY('UOM'),
3918: p_values => STRINGARRAY(l_rate_basis_uom));
3919: FTE_UTIL_PKG.WRITE_OUTFILE(p_msg => x_error_msg,
3920: p_module_name => l_module_name,
3921: p_category => 'D',
3922: p_line_number => p_line_number);
3923:
3920: p_module_name => l_module_name,
3921: p_category => 'D',
3922: p_line_number => p_line_number);
3923:
3924: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3925: RETURN;
3926: END IF;
3927:
3928: END IF;
3944: x_status => x_status,
3945: x_error_msg => x_error_msg);
3946:
3947: IF (x_status <> -1) THEN
3948: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3949: RETURN;
3950: END IF;
3951: END IF;
3952:
3957: IF (l_out_rt_chg IS NOT NULL) THEN
3958:
3959: IF (l_out_rt_chg_uom IS NULL) THEN
3960: x_status := 2;
3961: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_OUT_RTE_CHG_UOM_MISSING');
3962: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
3963: p_module_name => l_module_name,
3964: p_category => 'A',
3965: p_line_number => p_line_number);
3958:
3959: IF (l_out_rt_chg_uom IS NULL) THEN
3960: x_status := 2;
3961: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_OUT_RTE_CHG_UOM_MISSING');
3962: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
3963: p_module_name => l_module_name,
3964: p_category => 'A',
3965: p_line_number => p_line_number);
3966: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3962: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
3963: p_module_name => l_module_name,
3964: p_category => 'A',
3965: p_line_number => p_line_number);
3966: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3967: RETURN;
3968: ELSE
3969:
3970: l_out_rt_chg_uom := FTE_UTIL_PKG.GET_UOM_CODE(l_out_rt_chg_uom);
3966: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3967: RETURN;
3968: ELSE
3969:
3970: l_out_rt_chg_uom := FTE_UTIL_PKG.GET_UOM_CODE(l_out_rt_chg_uom);
3971:
3972: IF (l_out_rt_chg_uom IS NULL) THEN
3973: x_status := 2;
3974: FTE_UTIL_PKG.Write_LogFile(l_module_name,'Returned with Error from FTE_UTIL_PKG.GET_UOM_CODE');
3970: l_out_rt_chg_uom := FTE_UTIL_PKG.GET_UOM_CODE(l_out_rt_chg_uom);
3971:
3972: IF (l_out_rt_chg_uom IS NULL) THEN
3973: x_status := 2;
3974: FTE_UTIL_PKG.Write_LogFile(l_module_name,'Returned with Error from FTE_UTIL_PKG.GET_UOM_CODE');
3975: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3976: RETURN;
3977: END IF;
3978:
3971:
3972: IF (l_out_rt_chg_uom IS NULL) THEN
3973: x_status := 2;
3974: FTE_UTIL_PKG.Write_LogFile(l_module_name,'Returned with Error from FTE_UTIL_PKG.GET_UOM_CODE');
3975: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3976: RETURN;
3977: END IF;
3978:
3979: END IF;
3987: x_error_msg => x_error_msg,
3988: x_status => x_status);
3989:
3990: IF (x_status <> -1) THEN
3991: FTE_UTIL_PKG.Exit_Debug(l_module_name);
3992: RETURN;
3993: END IF;
3994:
3995: END IF;
4009: x_error_msg => x_error_msg,
4010: x_status => x_status);
4011:
4012: IF (x_status <> -1) THEN
4013: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4014: RETURN;
4015: END IF;
4016: END IF;
4017:
4048: l_rate_line_data.DELETE;
4049: l_rate_line_block_tbl.DELETE;
4050:
4051: IF (x_status <> -1) THEN
4052: FTE_UTIL_PKG.Write_LogFile(l_module_name, x_error_msg);
4053: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4054: RETURN;
4055: END IF;
4056:
4049: l_rate_line_block_tbl.DELETE;
4050:
4051: IF (x_status <> -1) THEN
4052: FTE_UTIL_PKG.Write_LogFile(l_module_name, x_error_msg);
4053: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4054: RETURN;
4055: END IF;
4056:
4057: -- Add CHARGE Attribute
4078: IF (l_num_free_stops IS NOT NULL AND
4079: (l_stop_chg_1 IS NULL AND l_stop_chg_2 IS NULL AND l_stop_chg_3 IS NULL AND
4080: l_stop_chg_4 IS NULL AND l_stop_chg_5 IS NULL AND l_stop_chg_x IS NULL)) THEN
4081: x_status := 2;
4082: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_LOAD_STOPOFF_CHRG_MISSING');
4083: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
4084: p_module_name => l_module_name,
4085: p_category => 'A',
4086: p_line_number => p_line_number);
4079: (l_stop_chg_1 IS NULL AND l_stop_chg_2 IS NULL AND l_stop_chg_3 IS NULL AND
4080: l_stop_chg_4 IS NULL AND l_stop_chg_5 IS NULL AND l_stop_chg_x IS NULL)) THEN
4081: x_status := 2;
4082: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_LOAD_STOPOFF_CHRG_MISSING');
4083: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
4084: p_module_name => l_module_name,
4085: p_category => 'A',
4086: p_line_number => p_line_number);
4087: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4083: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
4084: p_module_name => l_module_name,
4085: p_category => 'A',
4086: p_line_number => p_line_number);
4087: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4088: RETURN;
4089: END IF;
4090:
4091: l_break_charges := STRINGARRAY(0,
4101: x_error_msg => x_error_msg,
4102: x_status => x_status);
4103:
4104: IF (x_status <> -1) THEN
4105: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4106: RETURN;
4107: END IF;
4108:
4109: IF (p_chart_type = 'FAC_MODIFIER') THEN
4125: x_error_msg => x_error_msg,
4126: x_status => x_status);
4127:
4128: IF (x_status <> -1) THEN
4129: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4130: RETURN;
4131: END IF;
4132: END IF;
4133:
4148: x_error_msg => x_error_msg,
4149: x_status => x_status);
4150:
4151: IF (x_status <> -1) THEN
4152: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4153: RETURN;
4154: END IF;
4155:
4156: END IF;
4171: x_error_msg => x_error_msg,
4172: x_status => x_status);
4173:
4174: IF (x_status <> -1) THEN
4175: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4176: RETURN;
4177: END IF;
4178:
4179: END IF;
4195: x_error_msg => x_error_msg,
4196: x_status => x_status);
4197:
4198: IF (x_status <> -1) THEN
4199: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4200: RETURN;
4201: END IF;
4202:
4203: END IF;
4219: x_error_msg => x_error_msg,
4220: x_status => x_status);
4221:
4222: IF (x_status <> -1) THEN
4223: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4224: RETURN;
4225: END IF;
4226: END IF;
4227:
4233:
4234: IF (p_chart_type = 'FAC_MODIFIER') THEN
4235:
4236: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
4237: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Facility Modifier : Storing UOM ',l_rate_basis_uom);
4238: END IF;
4239:
4240: Fac_Modifier_Names(Fac_Modifier_Names.COUNT+1) := FTE_UTIL_PKG.GET_DATA('FACILITY_RATE_CHART_NAME', p_values);
4241: Fac_Modifier_Bases(Fac_Modifier_Bases.COUNT+1) := l_rate_basis;
4236: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
4237: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Facility Modifier : Storing UOM ',l_rate_basis_uom);
4238: END IF;
4239:
4240: Fac_Modifier_Names(Fac_Modifier_Names.COUNT+1) := FTE_UTIL_PKG.GET_DATA('FACILITY_RATE_CHART_NAME', p_values);
4241: Fac_Modifier_Bases(Fac_Modifier_Bases.COUNT+1) := l_rate_basis;
4242: Fac_Modifier_Uoms(Fac_Modifier_Uoms.COUNT+1) := l_rate_basis_uom;
4243:
4244: END IF;
4242: Fac_Modifier_Uoms(Fac_Modifier_Uoms.COUNT+1) := l_rate_basis_uom;
4243:
4244: END IF;
4245:
4246: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4247:
4248: EXCEPTION
4249: WHEN OTHERS THEN
4250: x_status := 2;
4247:
4248: EXCEPTION
4249: WHEN OTHERS THEN
4250: x_status := 2;
4251: FTE_UTIL_PKG.Write_LogFile(l_module_name,sqlerrm);
4252: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4253:
4254: END PROCESS_CHART_SURCHARGES;
4255:
4248: EXCEPTION
4249: WHEN OTHERS THEN
4250: x_status := 2;
4251: FTE_UTIL_PKG.Write_LogFile(l_module_name,sqlerrm);
4252: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4253:
4254: END PROCESS_CHART_SURCHARGES;
4255:
4256: --_________________________________________________________________________________--
4311: l_module_name CONSTANT VARCHAR2(100) := 'FTE.PLSQL.' || G_PKG_NAME || '.PROCESS_FACILITY_CHARGES';
4312:
4313: BEGIN
4314:
4315: FTE_UTIL_PKG.Enter_Debug(l_module_name);
4316: x_status := -1;
4317:
4318: IF (g_unit_uom IS NULL) THEN
4319: g_unit_uom := GET_GLOBAL_UNIT_UOM(x_status, x_error_msg);
4317:
4318: IF (g_unit_uom IS NULL) THEN
4319: g_unit_uom := GET_GLOBAL_UNIT_UOM(x_status, x_error_msg);
4320: IF (x_status <> -1) THEN
4321: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'FTE_UTIL_PKG.GET_GLOBAL_UNIT_UOM returned with error' || x_error_msg);
4322: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4323: RETURN;
4324: END IF;
4325: END IF;
4318: IF (g_unit_uom IS NULL) THEN
4319: g_unit_uom := GET_GLOBAL_UNIT_UOM(x_status, x_error_msg);
4320: IF (x_status <> -1) THEN
4321: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'FTE_UTIL_PKG.GET_GLOBAL_UNIT_UOM returned with error' || x_error_msg);
4322: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4323: RETURN;
4324: END IF;
4325: END IF;
4326:
4335:
4336: FOR i IN 1..p_block_data.COUNT LOOP
4337:
4338: l_values := p_block_data(i);
4339: G_ACTION := FTE_UTIL_PKG.GET_DATA('ACTION', l_values);
4340: l_currency := FTE_UTIL_PKG.GET_DATA('CURRENCY', l_values);
4341: l_start_date := FTE_UTIL_PKG.GET_DATA('START_DATE', l_values);
4342: l_end_date := FTE_UTIL_PKG.GET_DATA('END_DATE', l_values);
4343: l_name := FTE_UTIL_PKG.GET_DATA('FACILITY_RATE_CHART_NAME', l_values);
4336: FOR i IN 1..p_block_data.COUNT LOOP
4337:
4338: l_values := p_block_data(i);
4339: G_ACTION := FTE_UTIL_PKG.GET_DATA('ACTION', l_values);
4340: l_currency := FTE_UTIL_PKG.GET_DATA('CURRENCY', l_values);
4341: l_start_date := FTE_UTIL_PKG.GET_DATA('START_DATE', l_values);
4342: l_end_date := FTE_UTIL_PKG.GET_DATA('END_DATE', l_values);
4343: l_name := FTE_UTIL_PKG.GET_DATA('FACILITY_RATE_CHART_NAME', l_values);
4344:
4337:
4338: l_values := p_block_data(i);
4339: G_ACTION := FTE_UTIL_PKG.GET_DATA('ACTION', l_values);
4340: l_currency := FTE_UTIL_PKG.GET_DATA('CURRENCY', l_values);
4341: l_start_date := FTE_UTIL_PKG.GET_DATA('START_DATE', l_values);
4342: l_end_date := FTE_UTIL_PKG.GET_DATA('END_DATE', l_values);
4343: l_name := FTE_UTIL_PKG.GET_DATA('FACILITY_RATE_CHART_NAME', l_values);
4344:
4345: G_ACTION := UPPER(G_ACTION);
4338: l_values := p_block_data(i);
4339: G_ACTION := FTE_UTIL_PKG.GET_DATA('ACTION', l_values);
4340: l_currency := FTE_UTIL_PKG.GET_DATA('CURRENCY', l_values);
4341: l_start_date := FTE_UTIL_PKG.GET_DATA('START_DATE', l_values);
4342: l_end_date := FTE_UTIL_PKG.GET_DATA('END_DATE', l_values);
4343: l_name := FTE_UTIL_PKG.GET_DATA('FACILITY_RATE_CHART_NAME', l_values);
4344:
4345: G_ACTION := UPPER(G_ACTION);
4346:
4339: G_ACTION := FTE_UTIL_PKG.GET_DATA('ACTION', l_values);
4340: l_currency := FTE_UTIL_PKG.GET_DATA('CURRENCY', l_values);
4341: l_start_date := FTE_UTIL_PKG.GET_DATA('START_DATE', l_values);
4342: l_end_date := FTE_UTIL_PKG.GET_DATA('END_DATE', l_values);
4343: l_name := FTE_UTIL_PKG.GET_DATA('FACILITY_RATE_CHART_NAME', l_values);
4344:
4345: G_ACTION := UPPER(G_ACTION);
4346:
4347: IF (l_start_date IS NOT NULL) THEN
4349: l_start_date := to_char(to_date(l_start_date, 'MM/DD/YYYY'),'MM/DD/YYYY');
4350: EXCEPTION
4351: WHEN OTHERS THEN
4352: x_status := 2;
4353: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_DATE_FORMAT_ERROR');
4354: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
4355: p_module_name => l_module_name,
4356: p_category => 'D',
4357: p_line_number => p_line_number + i + 1);
4350: EXCEPTION
4351: WHEN OTHERS THEN
4352: x_status := 2;
4353: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_DATE_FORMAT_ERROR');
4354: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
4355: p_module_name => l_module_name,
4356: p_category => 'D',
4357: p_line_number => p_line_number + i + 1);
4358: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4354: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
4355: p_module_name => l_module_name,
4356: p_category => 'D',
4357: p_line_number => p_line_number + i + 1);
4358: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4359: RETURN;
4360: END;
4361: END IF;
4362:
4365: l_end_date := to_char(to_date(l_end_date, 'MM/DD/YYYY'),'MM/DD/YYYY');
4366: EXCEPTION
4367: WHEN OTHERS THEN
4368: x_status := 2;
4369: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_DATE_FORMAT_ERROR');
4370: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
4371: p_module_name => l_module_name,
4372: p_category => 'D',
4373: p_line_number => p_line_number + i + 1);
4366: EXCEPTION
4367: WHEN OTHERS THEN
4368: x_status := 2;
4369: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_DATE_FORMAT_ERROR');
4370: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
4371: p_module_name => l_module_name,
4372: p_category => 'D',
4373: p_line_number => p_line_number + i + 1);
4374: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4370: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
4371: p_module_name => l_module_name,
4372: p_category => 'D',
4373: p_line_number => p_line_number + i + 1);
4374: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4375: RETURN;
4376: END;
4377: END IF;
4378:
4376: END;
4377: END IF;
4378:
4379: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
4380: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'G_ACTION ',G_ACTION);
4381: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_name ',l_name);
4382: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ',l_currency);
4383: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_start_date',l_start_date);
4384: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_end_date ',l_end_date);
4377: END IF;
4378:
4379: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
4380: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'G_ACTION ',G_ACTION);
4381: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_name ',l_name);
4382: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ',l_currency);
4383: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_start_date',l_start_date);
4384: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_end_date ',l_end_date);
4385: END IF;
4378:
4379: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
4380: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'G_ACTION ',G_ACTION);
4381: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_name ',l_name);
4382: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ',l_currency);
4383: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_start_date',l_start_date);
4384: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_end_date ',l_end_date);
4385: END IF;
4386:
4379: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
4380: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'G_ACTION ',G_ACTION);
4381: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_name ',l_name);
4382: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ',l_currency);
4383: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_start_date',l_start_date);
4384: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_end_date ',l_end_date);
4385: END IF;
4386:
4387: --Action
4380: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'G_ACTION ',G_ACTION);
4381: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_name ',l_name);
4382: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ',l_currency);
4383: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_start_date',l_start_date);
4384: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_end_date ',l_end_date);
4385: END IF;
4386:
4387: --Action
4388: IF (G_ACTION IS NULL OR LENGTH(G_ACTION) = 0) THEN
4386:
4387: --Action
4388: IF (G_ACTION IS NULL OR LENGTH(G_ACTION) = 0) THEN
4389: x_status := 2;
4390: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_ACTION_MISSING');
4391: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
4392: p_module_name => l_module_name,
4393: p_category => 'A',
4394: p_line_number => p_line_number + i + 1);
4387: --Action
4388: IF (G_ACTION IS NULL OR LENGTH(G_ACTION) = 0) THEN
4389: x_status := 2;
4390: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_ACTION_MISSING');
4391: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
4392: p_module_name => l_module_name,
4393: p_category => 'A',
4394: p_line_number => p_line_number + i + 1);
4395: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4391: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
4392: p_module_name => l_module_name,
4393: p_category => 'A',
4394: p_line_number => p_line_number + i + 1);
4395: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4396: RETURN;
4397: END IF;
4398:
4399: --
4400: -- Rate Chart Name
4401: --
4402: IF (l_name IS NULL OR LENGTH(l_name) = 0) THEN
4403: x_status := 2;
4404: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_PRICE_NAME_MISSING');
4405: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
4406: p_module_name => l_module_name,
4407: p_category => 'A',
4408: p_line_number => p_line_number + i + 1);
4401: --
4402: IF (l_name IS NULL OR LENGTH(l_name) = 0) THEN
4403: x_status := 2;
4404: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_PRICE_NAME_MISSING');
4405: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
4406: p_module_name => l_module_name,
4407: p_category => 'A',
4408: p_line_number => p_line_number + i + 1);
4409: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4405: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
4406: p_module_name => l_module_name,
4407: p_category => 'A',
4408: p_line_number => p_line_number + i + 1);
4409: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4410: RETURN;
4411: END IF;
4412:
4413: -- Delete
4427: p_line_number => p_line_number + i + 1,
4428: x_status => x_status,
4429: x_error_msg => x_error_msg);
4430: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
4431: FTE_UTIL_PKG.Write_LogFile(l_module_name,'Deleting Rate Chart with ID '||l_assoc_rc_ids(i)|| ' of Modifier ' || l_name);
4432: END IF;
4433: END LOOP;
4434:
4435: --+
4442: p_action => G_ACTION,
4443: p_line_number => p_line_number + i + 1,
4444: x_status => x_status,
4445: x_error_msg => x_error_msg);
4446: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4447: RETURN;
4448: END IF;
4449: --+
4450: -- Currency
4451: --+
4452:
4453: IF (l_currency IS NULL OR LENGTH(l_currency) = 0) THEN
4454: x_status := 2;
4455: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CURRENCY_MISSING');
4456: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
4457: p_module_name => l_module_name,
4458: p_category => 'A',
4459: p_line_number => p_line_number + i + 1);
4452:
4453: IF (l_currency IS NULL OR LENGTH(l_currency) = 0) THEN
4454: x_status := 2;
4455: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CURRENCY_MISSING');
4456: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
4457: p_module_name => l_module_name,
4458: p_category => 'A',
4459: p_line_number => p_line_number + i + 1);
4460: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4456: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
4457: p_module_name => l_module_name,
4458: p_category => 'A',
4459: p_line_number => p_line_number + i + 1);
4460: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4461: RETURN;
4462: END IF;
4463:
4464: --+
4467: --+
4468: IF (G_ACTION = 'ADD') THEN
4469:
4470: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
4471: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Create Dummy Rate Chart');
4472: END IF;
4473:
4474: l_rc_name := l_name || '_RC';
4475:
4488: x_status => x_status);
4489:
4490:
4491: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
4492: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Creating Fac Chart Header');
4493: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Name', l_rc_name);
4494: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'PID ', l_process_id);
4495: END IF;
4496:
4489:
4490:
4491: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
4492: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Creating Fac Chart Header');
4493: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Name', l_rc_name);
4494: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'PID ', l_process_id);
4495: END IF;
4496:
4497: l_rate_hdr_data('ACTION') := G_ACTION;
4490:
4491: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
4492: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Creating Fac Chart Header');
4493: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Name', l_rc_name);
4494: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'PID ', l_process_id);
4495: END IF;
4496:
4497: l_rate_hdr_data('ACTION') := G_ACTION;
4498: l_rate_hdr_data('FACILITY_RATE_CHART_NAME') := l_rc_name;
4515: l_rate_hdr_data.DELETE;
4516: l_rate_hdr_block_tbl.DELETE;
4517:
4518: IF (x_status <> -1) THEN
4519: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4520: RETURN;
4521: END IF;
4522:
4523: l_rate_line_data('ACTION') := G_ACTION;
4556: x_error_msg => x_error_msg,
4557: x_status => x_status);
4558:
4559: IF (x_status <> -1) THEN
4560: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4561: RETURN;
4562: END IF;
4563:
4564: --+
4564: --+
4565: -- Create Modifier Header
4566: --+
4567: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
4568: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Creating Modifier Header For ' || l_name);
4569: END IF;
4570:
4571: l_description := 'Rate Chart ' || l_name;
4572:
4590: l_rate_hdr_data.DELETE;
4591: l_rate_hdr_block_tbl.DELETE;
4592:
4593: IF (x_status <> -1) THEN
4594: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4595: RETURN;
4596: END IF;
4597:
4598: PROCESS_CHART_SURCHARGES( p_values => l_values,
4603: x_error_msg => x_error_msg,
4604: x_status => x_status);
4605:
4606: IF (x_status <> -1) THEN
4607: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4608: RETURN;
4609: END IF;
4610:
4611: Link_ChartNames(Link_ChartNames.COUNT+1) := l_rc_name;
4615:
4616: SUBMIT_TL_CHART(x_status, x_error_msg);
4617:
4618: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
4619: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Return status from SUBMIT_TL_CHART',x_status);
4620: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Return Message from SUBMIT_TL_CHART',x_error_msg);
4621: END IF;
4622:
4623: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4616: SUBMIT_TL_CHART(x_status, x_error_msg);
4617:
4618: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
4619: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Return status from SUBMIT_TL_CHART',x_status);
4620: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Return Message from SUBMIT_TL_CHART',x_error_msg);
4621: END IF;
4622:
4623: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4624:
4619: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Return status from SUBMIT_TL_CHART',x_status);
4620: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Return Message from SUBMIT_TL_CHART',x_error_msg);
4621: END IF;
4622:
4623: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4624:
4625: EXCEPTION
4626: WHEN VALUE_ERROR THEN
4627: x_status := 2;
4624:
4625: EXCEPTION
4626: WHEN VALUE_ERROR THEN
4627: x_status := 2;
4628: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_VALUE_ERROR');
4629: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
4630: p_module_name => l_module_name,
4631: p_category => 'D',
4632: p_line_number => 0);
4625: EXCEPTION
4626: WHEN VALUE_ERROR THEN
4627: x_status := 2;
4628: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_VALUE_ERROR');
4629: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
4630: p_module_name => l_module_name,
4631: p_category => 'D',
4632: p_line_number => 0);
4633: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4629: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
4630: p_module_name => l_module_name,
4631: p_category => 'D',
4632: p_line_number => 0);
4633: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4634:
4635: WHEN OTHERS THEN
4636: x_status := 2;
4637: FTE_UTIL_PKG.Write_LogFile(l_module_name, SQLERRM);
4633: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4634:
4635: WHEN OTHERS THEN
4636: x_status := 2;
4637: FTE_UTIL_PKG.Write_LogFile(l_module_name, SQLERRM);
4638: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4639:
4640: END PROCESS_FACILITY_CHARGES;
4641:
4634:
4635: WHEN OTHERS THEN
4636: x_status := 2;
4637: FTE_UTIL_PKG.Write_LogFile(l_module_name, SQLERRM);
4638: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4639:
4640: END PROCESS_FACILITY_CHARGES;
4641:
4642: --_________________________________________________________________________________--
4708: l_module_name CONSTANT VARCHAR2(100) := 'FTE.PLSQL.' || G_PKG_NAME || '.PROCESS_TL_SURCHARGES';
4709:
4710: BEGIN
4711:
4712: FTE_UTIL_PKG.Enter_Debug(l_module_name);
4713: x_status := -1;
4714:
4715: --+
4716: -- Get the global unit UOM defined at Shipping->Setup->Global Parameters
4717: --+
4718: IF (g_unit_uom IS NULL) THEN
4719: g_unit_uom := GET_GLOBAL_UNIT_UOM (x_status, x_error_msg);
4720: IF (x_status <> -1) THEN
4721: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4722: RETURN;
4723: END IF;
4724: END IF;
4725:
4723: END IF;
4724: END IF;
4725:
4726: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
4727: FTE_UTIL_PKG.Write_LogFile(l_module_name,'g_unit_uom',g_unit_uom);
4728: END IF;
4729:
4730: IF( p_doValidate ) THEN
4731: FTE_VALIDATION_PKG.VALIDATE_COLUMNS(p_keys => p_block_header,
4733: p_line_number => p_line_number-1,
4734: x_status => x_status,
4735: x_error_msg => x_error_msg);
4736: IF (x_status <> -1) THEN
4737: FTE_UTIL_PKG.Write_LogFile(l_module_name,'Return status from FTE_VALIDATION_PKG.VALIDATE_COLUMNS ', x_status);
4738: RETURN;
4739: END IF;
4740: END IF;
4741:
4743: FOR i IN 1..p_block_data.COUNT LOOP
4744:
4745: l_values := p_block_data(i);
4746:
4747: l_type := FTE_UTIL_PKG.GET_DATA('TYPE',l_values);
4748: l_type := UPPER(l_type);
4749:
4750: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
4751: FTE_UTIL_PKG.Write_LogFile(l_module_name,'i ',i);
4747: l_type := FTE_UTIL_PKG.GET_DATA('TYPE',l_values);
4748: l_type := UPPER(l_type);
4749:
4750: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
4751: FTE_UTIL_PKG.Write_LogFile(l_module_name,'i ',i);
4752: FTE_UTIL_PKG.Write_LogFile(l_module_name,'l_type',l_type);
4753: END IF;
4754:
4755: G_ACTION := FTE_UTIL_PKG.GET_DATA('ACTION', l_values);
4748: l_type := UPPER(l_type);
4749:
4750: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
4751: FTE_UTIL_PKG.Write_LogFile(l_module_name,'i ',i);
4752: FTE_UTIL_PKG.Write_LogFile(l_module_name,'l_type',l_type);
4753: END IF;
4754:
4755: G_ACTION := FTE_UTIL_PKG.GET_DATA('ACTION', l_values);
4756:
4751: FTE_UTIL_PKG.Write_LogFile(l_module_name,'i ',i);
4752: FTE_UTIL_PKG.Write_LogFile(l_module_name,'l_type',l_type);
4753: END IF;
4754:
4755: G_ACTION := FTE_UTIL_PKG.GET_DATA('ACTION', l_values);
4756:
4757: /*
4758: C to specify stop-off, out-of-route, handling, minimum handling,
4759: loading, minimum loading, assisted loading, minimum assisted loading,
4766: */
4767:
4768: IF (l_type NOT IN ('C','O','D','B','F')) THEN
4769: x_status := 2;
4770: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_LOAD_SURCHARGE_TYPE_INVALID');
4771: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
4772: p_module_name => l_module_name,
4773: p_category => 'D',
4774: p_line_number => 0);
4767:
4768: IF (l_type NOT IN ('C','O','D','B','F')) THEN
4769: x_status := 2;
4770: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_LOAD_SURCHARGE_TYPE_INVALID');
4771: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
4772: p_module_name => l_module_name,
4773: p_category => 'D',
4774: p_line_number => 0);
4775: RETURN;
4780: IF (l_type = 'C') THEN
4781:
4782: RESET_CHART_INFO;
4783:
4784: l_carrier_name := FTE_UTIL_PKG.GET_DATA('CARRIER_NAME', l_values);
4785: l_currency := FTE_UTIL_PKG.GET_DATA('CURRENCY', l_values);
4786: l_start_date := FTE_UTIL_PKG.GET_DATA('START_DATE', l_values);
4787: l_end_date := FTE_UTIL_PKG.GET_DATA('END_DATE', l_values);
4788: l_service_level := FTE_UTIL_PKG.GET_DATA('SERVICE_LEVEL', l_values);
4781:
4782: RESET_CHART_INFO;
4783:
4784: l_carrier_name := FTE_UTIL_PKG.GET_DATA('CARRIER_NAME', l_values);
4785: l_currency := FTE_UTIL_PKG.GET_DATA('CURRENCY', l_values);
4786: l_start_date := FTE_UTIL_PKG.GET_DATA('START_DATE', l_values);
4787: l_end_date := FTE_UTIL_PKG.GET_DATA('END_DATE', l_values);
4788: l_service_level := FTE_UTIL_PKG.GET_DATA('SERVICE_LEVEL', l_values);
4789:
4782: RESET_CHART_INFO;
4783:
4784: l_carrier_name := FTE_UTIL_PKG.GET_DATA('CARRIER_NAME', l_values);
4785: l_currency := FTE_UTIL_PKG.GET_DATA('CURRENCY', l_values);
4786: l_start_date := FTE_UTIL_PKG.GET_DATA('START_DATE', l_values);
4787: l_end_date := FTE_UTIL_PKG.GET_DATA('END_DATE', l_values);
4788: l_service_level := FTE_UTIL_PKG.GET_DATA('SERVICE_LEVEL', l_values);
4789:
4790: IF (NOT p_doValidate) THEN
4783:
4784: l_carrier_name := FTE_UTIL_PKG.GET_DATA('CARRIER_NAME', l_values);
4785: l_currency := FTE_UTIL_PKG.GET_DATA('CURRENCY', l_values);
4786: l_start_date := FTE_UTIL_PKG.GET_DATA('START_DATE', l_values);
4787: l_end_date := FTE_UTIL_PKG.GET_DATA('END_DATE', l_values);
4788: l_service_level := FTE_UTIL_PKG.GET_DATA('SERVICE_LEVEL', l_values);
4789:
4790: IF (NOT p_doValidate) THEN
4791: --+
4784: l_carrier_name := FTE_UTIL_PKG.GET_DATA('CARRIER_NAME', l_values);
4785: l_currency := FTE_UTIL_PKG.GET_DATA('CURRENCY', l_values);
4786: l_start_date := FTE_UTIL_PKG.GET_DATA('START_DATE', l_values);
4787: l_end_date := FTE_UTIL_PKG.GET_DATA('END_DATE', l_values);
4788: l_service_level := FTE_UTIL_PKG.GET_DATA('SERVICE_LEVEL', l_values);
4789:
4790: IF (NOT p_doValidate) THEN
4791: --+
4792: -- Get the carrier name from the ID for rate chart cretion.
4790: IF (NOT p_doValidate) THEN
4791: --+
4792: -- Get the carrier name from the ID for rate chart cretion.
4793: --+
4794: l_carrier_id := FTE_UTIL_PKG.GET_DATA('CARRIER_ID', l_values);
4795: l_carrier_name := FTE_UTIL_PKG.GET_CARRIER_NAME(p_carrier_id => l_carrier_id);
4796:
4797: l_values('CARRIER_NAME') := l_carrier_name;
4798:
4791: --+
4792: -- Get the carrier name from the ID for rate chart cretion.
4793: --+
4794: l_carrier_id := FTE_UTIL_PKG.GET_DATA('CARRIER_ID', l_values);
4795: l_carrier_name := FTE_UTIL_PKG.GET_CARRIER_NAME(p_carrier_id => l_carrier_id);
4796:
4797: l_values('CARRIER_NAME') := l_carrier_name;
4798:
4799: --+
4798:
4799: --+
4800: -- populate SERVICE LEVEL CODE.
4801: --+
4802: l_service_level := FTE_UTIL_PKG.GET_DATA('SERVICE_CODE', l_values);
4803:
4804: END IF;
4805:
4806: G_ACTION := UPPER(G_ACTION);
4805:
4806: G_ACTION := UPPER(G_ACTION);
4807:
4808: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
4809: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'G_ACTION ',G_ACTION);
4810: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_name ',l_name);
4811: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level',l_service_level);
4812: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_carrier_name ',l_carrier_name);
4813: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ',l_currency);
4806: G_ACTION := UPPER(G_ACTION);
4807:
4808: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
4809: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'G_ACTION ',G_ACTION);
4810: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_name ',l_name);
4811: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level',l_service_level);
4812: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_carrier_name ',l_carrier_name);
4813: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ',l_currency);
4814: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_start_date ',l_start_date);
4807:
4808: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
4809: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'G_ACTION ',G_ACTION);
4810: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_name ',l_name);
4811: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level',l_service_level);
4812: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_carrier_name ',l_carrier_name);
4813: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ',l_currency);
4814: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_start_date ',l_start_date);
4815: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_end_date ',l_end_date);
4808: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
4809: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'G_ACTION ',G_ACTION);
4810: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_name ',l_name);
4811: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level',l_service_level);
4812: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_carrier_name ',l_carrier_name);
4813: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ',l_currency);
4814: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_start_date ',l_start_date);
4815: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_end_date ',l_end_date);
4816: END IF;
4809: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'G_ACTION ',G_ACTION);
4810: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_name ',l_name);
4811: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level',l_service_level);
4812: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_carrier_name ',l_carrier_name);
4813: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ',l_currency);
4814: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_start_date ',l_start_date);
4815: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_end_date ',l_end_date);
4816: END IF;
4817:
4810: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_name ',l_name);
4811: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level',l_service_level);
4812: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_carrier_name ',l_carrier_name);
4813: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ',l_currency);
4814: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_start_date ',l_start_date);
4815: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_end_date ',l_end_date);
4816: END IF;
4817:
4818: IF (p_doValidate) THEN
4811: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level',l_service_level);
4812: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_carrier_name ',l_carrier_name);
4813: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ',l_currency);
4814: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_start_date ',l_start_date);
4815: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_end_date ',l_end_date);
4816: END IF;
4817:
4818: IF (p_doValidate) THEN
4819: FTE_VALIDATION_PKG.VALIDATE_ACTION(p_action => G_ACTION,
4821: p_line_number => p_line_number + i + 1,
4822: x_status => x_status,
4823: x_error_msg => x_error_msg);
4824: IF (x_status <> -1) THEN
4825: FTE_UTIL_PKG.Write_LogFile(l_module_name,'FTE_VALIDATION_PKG.VALIDATE_ACTION failed');
4826: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4827: RETURN;
4828: END IF;
4829: END IF;
4822: x_status => x_status,
4823: x_error_msg => x_error_msg);
4824: IF (x_status <> -1) THEN
4825: FTE_UTIL_PKG.Write_LogFile(l_module_name,'FTE_VALIDATION_PKG.VALIDATE_ACTION failed');
4826: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4827: RETURN;
4828: END IF;
4829: END IF;
4830:
4836: END IF;
4837: EXCEPTION
4838: WHEN OTHERS THEN
4839: x_status := 2;
4840: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_LOAD_INVALID_DATE');
4841: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
4842: p_module_name => l_module_name,
4843: p_category => 'D',
4844: p_line_number => p_line_number + i + 1);
4837: EXCEPTION
4838: WHEN OTHERS THEN
4839: x_status := 2;
4840: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_LOAD_INVALID_DATE');
4841: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
4842: p_module_name => l_module_name,
4843: p_category => 'D',
4844: p_line_number => p_line_number + i + 1);
4845: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4841: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
4842: p_module_name => l_module_name,
4843: p_category => 'D',
4844: p_line_number => p_line_number + i + 1);
4845: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4846: RETURN;
4847: END;
4848: END IF;
4849:
4854: END IF;
4855: EXCEPTION
4856: WHEN OTHERS THEN
4857: x_status := 2;
4858: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_LOAD_INVALID_DATE');
4859: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
4860: p_module_name => l_module_name,
4861: p_category => 'D',
4862: p_line_number => p_line_number + i + 1);
4855: EXCEPTION
4856: WHEN OTHERS THEN
4857: x_status := 2;
4858: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_LOAD_INVALID_DATE');
4859: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
4860: p_module_name => l_module_name,
4861: p_category => 'D',
4862: p_line_number => p_line_number + i + 1);
4863:
4860: p_module_name => l_module_name,
4861: p_category => 'D',
4862: p_line_number => p_line_number + i + 1);
4863:
4864: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4865: RETURN;
4866: END;
4867: END IF;
4868: END IF;
4874: p_line_number => p_line_number + i + 1,
4875: x_error_msg => x_error_msg,
4876: x_status => x_status);
4877: IF (x_status <> -1) THEN
4878: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4879: RETURN;
4880: END IF;
4881: END IF;
4882:
4882:
4883: IF (p_doValidate) THEN
4884: IF (l_currency IS NULL OR LENGTH(l_currency) = 0 AND G_ACTION IN ('ADD', 'UPDATE')) THEN
4885: x_status := 2;
4886: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name =>'FTE_LOAD_CURRENCY_MISSING');
4887: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
4888: p_module_name => l_module_name,
4889: p_category => 'D',
4890: p_line_number => p_line_number + i + 1);
4883: IF (p_doValidate) THEN
4884: IF (l_currency IS NULL OR LENGTH(l_currency) = 0 AND G_ACTION IN ('ADD', 'UPDATE')) THEN
4885: x_status := 2;
4886: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name =>'FTE_LOAD_CURRENCY_MISSING');
4887: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
4888: p_module_name => l_module_name,
4889: p_category => 'D',
4890: p_line_number => p_line_number + i + 1);
4891: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4887: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
4888: p_module_name => l_module_name,
4889: p_category => 'D',
4890: p_line_number => p_line_number + i + 1);
4891: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4892: RETURN;
4893: END IF;
4894: END IF;
4895:
4909: hz.party_id = ca.carrier_id;
4910: EXCEPTION
4911: WHEN NO_DATA_FOUND THEN
4912: x_status := 2;
4913: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_SEL_INVALID_CARRIER');
4914: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
4915: p_module_name => l_module_name,
4916: p_category => 'D',
4917: p_line_number => p_line_number + i + 1);
4910: EXCEPTION
4911: WHEN NO_DATA_FOUND THEN
4912: x_status := 2;
4913: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_SEL_INVALID_CARRIER');
4914: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
4915: p_module_name => l_module_name,
4916: p_category => 'D',
4917: p_line_number => p_line_number + i + 1);
4918: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4914: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
4915: p_module_name => l_module_name,
4916: p_category => 'D',
4917: p_line_number => p_line_number + i + 1);
4918: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4919: RETURN;
4920: WHEN OTHERS THEN
4921: x_status := 2;
4922: FTE_UTIL_PKG.Write_LogFile(l_module_name, sqlerrm);
4918: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4919: RETURN;
4920: WHEN OTHERS THEN
4921: x_status := 2;
4922: FTE_UTIL_PKG.Write_LogFile(l_module_name, sqlerrm);
4923: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4924: RETURN;
4925: END;
4926: ELSE
4919: RETURN;
4920: WHEN OTHERS THEN
4921: x_status := 2;
4922: FTE_UTIL_PKG.Write_LogFile(l_module_name, sqlerrm);
4923: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4924: RETURN;
4925: END;
4926: ELSE
4927: l_name := 'MOD_'||l_carrier_id||'_'||l_service_level;
4929:
4930: IF (G_ACTION = 'DELETE') THEN
4931:
4932: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
4933: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Deleting TL_MODIFIER ' || l_name);
4934: END IF;
4935:
4936: FTE_RATE_CHART_PKG.G_CHART_TYPE := l_chart_type;
4937:
4940: p_action => G_ACTION,
4941: p_line_number => p_line_number + i + 1,
4942: x_status => x_status,
4943: x_error_msg => x_error_msg);
4944: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4945: RETURN;
4946: END IF;
4947:
4948: GET_CHART_DATA(p_chart_name => l_name,
4964: -- in the same spreadsheet.
4965: --+
4966: IF (l_linenum > 0) THEN
4967: x_status := 2;
4968: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_DUPLICATE_CHART');
4969: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
4970: p_module_name => l_module_name,
4971: p_category => 'D',
4972: p_line_number => p_line_number + i + 1);
4965: --+
4966: IF (l_linenum > 0) THEN
4967: x_status := 2;
4968: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_DUPLICATE_CHART');
4969: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
4970: p_module_name => l_module_name,
4971: p_category => 'D',
4972: p_line_number => p_line_number + i + 1);
4973: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4969: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
4970: p_module_name => l_module_name,
4971: p_category => 'D',
4972: p_line_number => p_line_number + i + 1);
4973: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4974: RETURN;
4975: ELSIF (x_status <> -1) THEN
4976: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4977: RETURN;
4972: p_line_number => p_line_number + i + 1);
4973: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4974: RETURN;
4975: ELSIF (x_status <> -1) THEN
4976: FTE_UTIL_PKG.Exit_Debug(l_module_name);
4977: RETURN;
4978: END IF;
4979:
4980: --
4981: -- Create Modifier Header
4982: --
4983:
4984: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
4985: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Creating Modifier Header For ' || l_name);
4986: END IF;
4987:
4988: l_description := 'Rate Chart ' || g_chart_name;
4989:
5011: l_rate_hdr_data.DELETE;
5012: l_rate_hdr_block_tbl.DELETE;
5013:
5014: IF (x_status <> -1) THEN
5015: FTE_UTIL_PKG.Write_LogFile(l_module_name, x_error_msg || ' [' || l_service_level || ', ' || l_carrier_name || ', TL]');
5016: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5017: RETURN;
5018: END IF;
5019:
5012: l_rate_hdr_block_tbl.DELETE;
5013:
5014: IF (x_status <> -1) THEN
5015: FTE_UTIL_PKG.Write_LogFile(l_module_name, x_error_msg || ' [' || l_service_level || ', ' || l_carrier_name || ', TL]');
5016: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5017: RETURN;
5018: END IF;
5019:
5020: PROCESS_CHART_SURCHARGES(p_values => l_values,
5026: x_error_msg => x_error_msg,
5027: x_status => x_status);
5028:
5029: IF (x_status <> -1) THEN
5030: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5031: RETURN;
5032: END IF;
5033:
5034: ELSIF (l_type = 'B') THEN
5033:
5034: ELSIF (l_type = 'B') THEN
5035:
5036: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
5037: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Weekend Layover Break.');
5038: END IF;
5039:
5040: GET_CHART_DATA(p_chart_name => g_chart_name,
5041: p_currency => l_currency,
5048: x_error_msg => x_error_msg,
5049: x_status => x_status);
5050:
5051:
5052: l_wkend_layovr_dist_uom := FTE_UTIL_PKG.GET_DATA('DISTANCE_UOM_FOR_WEEKEND_LAYOVER_CHARGES', l_values);
5053: l_wkend_layovr_dist_brk := FTE_UTIL_PKG.GET_DATA('WEEKEND_LAYOVER_DISTANCE_BREAK', l_values);
5054: l_rate := FTE_UTIL_PKG.GET_DATA('CHARGES', l_values);
5055:
5056: l_wkend_layovr_dist_brk := Fnd_Number.Canonical_To_Number(l_wkend_layovr_dist_brk);
5049: x_status => x_status);
5050:
5051:
5052: l_wkend_layovr_dist_uom := FTE_UTIL_PKG.GET_DATA('DISTANCE_UOM_FOR_WEEKEND_LAYOVER_CHARGES', l_values);
5053: l_wkend_layovr_dist_brk := FTE_UTIL_PKG.GET_DATA('WEEKEND_LAYOVER_DISTANCE_BREAK', l_values);
5054: l_rate := FTE_UTIL_PKG.GET_DATA('CHARGES', l_values);
5055:
5056: l_wkend_layovr_dist_brk := Fnd_Number.Canonical_To_Number(l_wkend_layovr_dist_brk);
5057: l_rate := Fnd_Number.Canonical_To_Number(l_rate);
5050:
5051:
5052: l_wkend_layovr_dist_uom := FTE_UTIL_PKG.GET_DATA('DISTANCE_UOM_FOR_WEEKEND_LAYOVER_CHARGES', l_values);
5053: l_wkend_layovr_dist_brk := FTE_UTIL_PKG.GET_DATA('WEEKEND_LAYOVER_DISTANCE_BREAK', l_values);
5054: l_rate := FTE_UTIL_PKG.GET_DATA('CHARGES', l_values);
5055:
5056: l_wkend_layovr_dist_brk := Fnd_Number.Canonical_To_Number(l_wkend_layovr_dist_brk);
5057: l_rate := Fnd_Number.Canonical_To_Number(l_rate);
5058:
5057: l_rate := Fnd_Number.Canonical_To_Number(l_rate);
5058:
5059: IF (l_rate < 0) THEN
5060: x_status := 2;
5061: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_VALUE_ERROR',
5062: p_tokens => STRINGARRAY('ENTITY'),
5063: p_values => STRINGARRAY('RATE'));
5064: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5065: p_module_name => l_module_name,
5060: x_status := 2;
5061: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_VALUE_ERROR',
5062: p_tokens => STRINGARRAY('ENTITY'),
5063: p_values => STRINGARRAY('RATE'));
5064: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5065: p_module_name => l_module_name,
5066: p_category => 'D',
5067: p_line_number => p_line_number + i + 1);
5068: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5064: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5065: p_module_name => l_module_name,
5066: p_category => 'D',
5067: p_line_number => p_line_number + i + 1);
5068: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5069: RETURN;
5070: END IF;
5071:
5072: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
5069: RETURN;
5070: END IF;
5071:
5072: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
5073: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate ', l_rate);
5074: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_chart_name ', g_chart_name);
5075: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_linenum ', l_linenum);
5076: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_process_id ', l_process_id);
5077: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'G_ACTION ', G_ACTION);
5070: END IF;
5071:
5072: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
5073: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate ', l_rate);
5074: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_chart_name ', g_chart_name);
5075: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_linenum ', l_linenum);
5076: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_process_id ', l_process_id);
5077: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'G_ACTION ', G_ACTION);
5078: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_wkend_layovr_dist_uom',l_wkend_layovr_dist_uom );
5071:
5072: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
5073: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate ', l_rate);
5074: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_chart_name ', g_chart_name);
5075: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_linenum ', l_linenum);
5076: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_process_id ', l_process_id);
5077: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'G_ACTION ', G_ACTION);
5078: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_wkend_layovr_dist_uom',l_wkend_layovr_dist_uom );
5079: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_wkend_layovr_dist_brk',l_wkend_layovr_dist_brk);
5072: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
5073: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate ', l_rate);
5074: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_chart_name ', g_chart_name);
5075: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_linenum ', l_linenum);
5076: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_process_id ', l_process_id);
5077: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'G_ACTION ', G_ACTION);
5078: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_wkend_layovr_dist_uom',l_wkend_layovr_dist_uom );
5079: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_wkend_layovr_dist_brk',l_wkend_layovr_dist_brk);
5080: END IF;
5073: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate ', l_rate);
5074: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_chart_name ', g_chart_name);
5075: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_linenum ', l_linenum);
5076: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_process_id ', l_process_id);
5077: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'G_ACTION ', G_ACTION);
5078: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_wkend_layovr_dist_uom',l_wkend_layovr_dist_uom );
5079: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_wkend_layovr_dist_brk',l_wkend_layovr_dist_brk);
5080: END IF;
5081:
5074: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_chart_name ', g_chart_name);
5075: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_linenum ', l_linenum);
5076: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_process_id ', l_process_id);
5077: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'G_ACTION ', G_ACTION);
5078: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_wkend_layovr_dist_uom',l_wkend_layovr_dist_uom );
5079: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_wkend_layovr_dist_brk',l_wkend_layovr_dist_brk);
5080: END IF;
5081:
5082: IF (l_wkend_layovr_dist_uom IS NULL) THEN
5075: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_linenum ', l_linenum);
5076: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_process_id ', l_process_id);
5077: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'G_ACTION ', G_ACTION);
5078: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_wkend_layovr_dist_uom',l_wkend_layovr_dist_uom );
5079: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_wkend_layovr_dist_brk',l_wkend_layovr_dist_brk);
5080: END IF;
5081:
5082: IF (l_wkend_layovr_dist_uom IS NULL) THEN
5083: x_status := 2;
5080: END IF;
5081:
5082: IF (l_wkend_layovr_dist_uom IS NULL) THEN
5083: x_status := 2;
5084: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_WKEND_DIST_UOM_MISSING');
5085: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5086: p_module_name => l_module_name,
5087: p_category => 'D',
5088: p_line_number => p_line_number + i + 1);
5081:
5082: IF (l_wkend_layovr_dist_uom IS NULL) THEN
5083: x_status := 2;
5084: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_WKEND_DIST_UOM_MISSING');
5085: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5086: p_module_name => l_module_name,
5087: p_category => 'D',
5088: p_line_number => p_line_number + i + 1);
5089: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5085: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5086: p_module_name => l_module_name,
5087: p_category => 'D',
5088: p_line_number => p_line_number + i + 1);
5089: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5090: RETURN;
5091: ELSIF (l_wkend_layovr_dist_brk IS NULL) THEN
5092: x_status := 2;
5093: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_WKEND_NO_DIST_BREAK');
5089: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5090: RETURN;
5091: ELSIF (l_wkend_layovr_dist_brk IS NULL) THEN
5092: x_status := 2;
5093: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_WKEND_NO_DIST_BREAK');
5094: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5095: p_module_name => l_module_name,
5096: p_category => 'D',
5097: p_line_number => p_line_number + i + 1);
5090: RETURN;
5091: ELSIF (l_wkend_layovr_dist_brk IS NULL) THEN
5092: x_status := 2;
5093: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_WKEND_NO_DIST_BREAK');
5094: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5095: p_module_name => l_module_name,
5096: p_category => 'D',
5097: p_line_number => p_line_number + i + 1);
5098: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5094: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5095: p_module_name => l_module_name,
5096: p_category => 'D',
5097: p_line_number => p_line_number + i + 1);
5098: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5099: RETURN;
5100: ELSIF (l_rate IS NULL) THEN
5101: x_status := 2;
5102: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_RATE_MISSING');
5098: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5099: RETURN;
5100: ELSIF (l_rate IS NULL) THEN
5101: x_status := 2;
5102: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_RATE_MISSING');
5103: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5104: p_module_name => l_module_name,
5105: p_category => 'D',
5106: p_line_number => p_line_number + i + 1);
5099: RETURN;
5100: ELSIF (l_rate IS NULL) THEN
5101: x_status := 2;
5102: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_RATE_MISSING');
5103: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5104: p_module_name => l_module_name,
5105: p_category => 'D',
5106: p_line_number => p_line_number + i + 1);
5107: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5103: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5104: p_module_name => l_module_name,
5105: p_category => 'D',
5106: p_line_number => p_line_number + i + 1);
5107: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5108: RETURN;
5109: END IF;
5110:
5111: IF (g_wknd_layovr_uom <> l_wkend_layovr_dist_uom) THEN
5110:
5111: IF (g_wknd_layovr_uom <> l_wkend_layovr_dist_uom) THEN
5112: IF (g_layovr_breaks.EXISTS(1)) THEN
5113: x_status := 2;
5114: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_DIST_UOM_MISMATCH');
5115: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5116: p_module_name => l_module_name,
5117: p_category => 'D',
5118: p_line_number => p_line_number + i + 1);
5111: IF (g_wknd_layovr_uom <> l_wkend_layovr_dist_uom) THEN
5112: IF (g_layovr_breaks.EXISTS(1)) THEN
5113: x_status := 2;
5114: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_DIST_UOM_MISMATCH');
5115: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5116: p_module_name => l_module_name,
5117: p_category => 'D',
5118: p_line_number => p_line_number + i + 1);
5119: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5115: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5116: p_module_name => l_module_name,
5117: p_category => 'D',
5118: p_line_number => p_line_number + i + 1);
5119: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5120: RETURN;
5121: END IF;
5122: ELSE
5123: g_wknd_layovr_uom := l_wkend_layovr_dist_uom;
5128: END IF;
5129:
5130: ELSIF (l_type IN ('O', 'D', 'F')) THEN
5131:
5132: l_rate := Fnd_Number.Canonical_To_Number(FTE_UTIL_PKG.GET_DATA('SURCHARGES', l_values));
5133:
5134: IF (l_rate < 0) THEN
5135: x_status := 2;
5136: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_VALUE_ERROR',
5132: l_rate := Fnd_Number.Canonical_To_Number(FTE_UTIL_PKG.GET_DATA('SURCHARGES', l_values));
5133:
5134: IF (l_rate < 0) THEN
5135: x_status := 2;
5136: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_VALUE_ERROR',
5137: p_tokens => STRINGARRAY('ENTITY'),
5138: p_values => STRINGARRAY('RATE'));
5139: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
5140: p_module_name => l_module_name,
5135: x_status := 2;
5136: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_VALUE_ERROR',
5137: p_tokens => STRINGARRAY('ENTITY'),
5138: p_values => STRINGARRAY('RATE'));
5139: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
5140: p_module_name => l_module_name,
5141: p_category => 'D',
5142: p_line_number => p_line_number + i + 1);
5143: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5139: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
5140: p_module_name => l_module_name,
5141: p_category => 'D',
5142: p_line_number => p_line_number + i + 1);
5143: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5144: RETURN;
5145: ELSIF (l_rate IS NULL) THEN
5146: x_status := 2;
5147: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_SURCHARGE_MISSING');
5143: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5144: RETURN;
5145: ELSIF (l_rate IS NULL) THEN
5146: x_status := 2;
5147: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_SURCHARGE_MISSING');
5148: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5149: p_module_name => l_module_name,
5150: p_category => 'D',
5151: p_line_number => p_line_number + i + 1);
5144: RETURN;
5145: ELSIF (l_rate IS NULL) THEN
5146: x_status := 2;
5147: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_SURCHARGE_MISSING');
5148: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5149: p_module_name => l_module_name,
5150: p_category => 'D',
5151: p_line_number => p_line_number + i + 1);
5152: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5148: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5149: p_module_name => l_module_name,
5150: p_category => 'D',
5151: p_line_number => p_line_number + i + 1);
5152: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5153: RETURN;
5154: END IF;
5155:
5156: GET_CHART_DATA(p_chart_name => g_chart_name,
5164: x_error_msg => x_error_msg,
5165: x_status => x_status);
5166:
5167: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
5168: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_chart_name', g_chart_name);
5169: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_linenum', l_linenum);
5170: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_process_id', l_process_id);
5171: END IF;
5172:
5165: x_status => x_status);
5166:
5167: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
5168: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_chart_name', g_chart_name);
5169: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_linenum', l_linenum);
5170: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_process_id', l_process_id);
5171: END IF;
5172:
5173: IF (l_carrier_name IS NULL) THEN
5166:
5167: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
5168: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'g_chart_name', g_chart_name);
5169: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_linenum', l_linenum);
5170: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_process_id', l_process_id);
5171: END IF;
5172:
5173: IF (l_carrier_name IS NULL) THEN
5174: x_status := 2;
5171: END IF;
5172:
5173: IF (l_carrier_name IS NULL) THEN
5174: x_status := 2;
5175: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_RATECHART_NOT_DEFINED');
5176: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5177: p_module_name => l_module_name,
5178: p_category => 'D',
5179: p_line_number => p_line_number + i + 1);
5172:
5173: IF (l_carrier_name IS NULL) THEN
5174: x_status := 2;
5175: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_RATECHART_NOT_DEFINED');
5176: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5177: p_module_name => l_module_name,
5178: p_category => 'D',
5179: p_line_number => p_line_number + i + 1);
5180: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5176: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5177: p_module_name => l_module_name,
5178: p_category => 'D',
5179: p_line_number => p_line_number + i + 1);
5180: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5181: RETURN;
5182: END IF;
5183:
5184: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
5181: RETURN;
5182: END IF;
5183:
5184: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
5185: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate', l_rate);
5186: END IF;
5187:
5188: IF (l_type IN ('O', 'D')) THEN
5189:
5193: l_zone_type := 'DESTINATION';
5194: END IF;
5195:
5196: IF (p_doValidate) THEN
5197: l_country := FTE_UTIL_PKG.GET_DATA('COUNTRY', l_values);
5198: l_state := FTE_UTIL_PKG.GET_DATA('STATE', l_values);
5199: l_city := FTE_UTIL_PKG.GET_DATA('CITY', l_values);
5200: l_zipcode_from := FTE_UTIL_PKG.GET_DATA('POSTAL_CODE_FROM', l_values);
5201: l_zipcode_to := FTE_UTIL_PKG.GET_DATA('POSTAL_CODE_TO', l_values);
5194: END IF;
5195:
5196: IF (p_doValidate) THEN
5197: l_country := FTE_UTIL_PKG.GET_DATA('COUNTRY', l_values);
5198: l_state := FTE_UTIL_PKG.GET_DATA('STATE', l_values);
5199: l_city := FTE_UTIL_PKG.GET_DATA('CITY', l_values);
5200: l_zipcode_from := FTE_UTIL_PKG.GET_DATA('POSTAL_CODE_FROM', l_values);
5201: l_zipcode_to := FTE_UTIL_PKG.GET_DATA('POSTAL_CODE_TO', l_values);
5202: l_zone := FTE_UTIL_PKG.GET_DATA('ZONE', l_values);
5195:
5196: IF (p_doValidate) THEN
5197: l_country := FTE_UTIL_PKG.GET_DATA('COUNTRY', l_values);
5198: l_state := FTE_UTIL_PKG.GET_DATA('STATE', l_values);
5199: l_city := FTE_UTIL_PKG.GET_DATA('CITY', l_values);
5200: l_zipcode_from := FTE_UTIL_PKG.GET_DATA('POSTAL_CODE_FROM', l_values);
5201: l_zipcode_to := FTE_UTIL_PKG.GET_DATA('POSTAL_CODE_TO', l_values);
5202: l_zone := FTE_UTIL_PKG.GET_DATA('ZONE', l_values);
5203:
5196: IF (p_doValidate) THEN
5197: l_country := FTE_UTIL_PKG.GET_DATA('COUNTRY', l_values);
5198: l_state := FTE_UTIL_PKG.GET_DATA('STATE', l_values);
5199: l_city := FTE_UTIL_PKG.GET_DATA('CITY', l_values);
5200: l_zipcode_from := FTE_UTIL_PKG.GET_DATA('POSTAL_CODE_FROM', l_values);
5201: l_zipcode_to := FTE_UTIL_PKG.GET_DATA('POSTAL_CODE_TO', l_values);
5202: l_zone := FTE_UTIL_PKG.GET_DATA('ZONE', l_values);
5203:
5204: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
5197: l_country := FTE_UTIL_PKG.GET_DATA('COUNTRY', l_values);
5198: l_state := FTE_UTIL_PKG.GET_DATA('STATE', l_values);
5199: l_city := FTE_UTIL_PKG.GET_DATA('CITY', l_values);
5200: l_zipcode_from := FTE_UTIL_PKG.GET_DATA('POSTAL_CODE_FROM', l_values);
5201: l_zipcode_to := FTE_UTIL_PKG.GET_DATA('POSTAL_CODE_TO', l_values);
5202: l_zone := FTE_UTIL_PKG.GET_DATA('ZONE', l_values);
5203:
5204: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
5205: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_country', l_country);
5198: l_state := FTE_UTIL_PKG.GET_DATA('STATE', l_values);
5199: l_city := FTE_UTIL_PKG.GET_DATA('CITY', l_values);
5200: l_zipcode_from := FTE_UTIL_PKG.GET_DATA('POSTAL_CODE_FROM', l_values);
5201: l_zipcode_to := FTE_UTIL_PKG.GET_DATA('POSTAL_CODE_TO', l_values);
5202: l_zone := FTE_UTIL_PKG.GET_DATA('ZONE', l_values);
5203:
5204: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
5205: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_country', l_country);
5206: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_state', l_state);
5201: l_zipcode_to := FTE_UTIL_PKG.GET_DATA('POSTAL_CODE_TO', l_values);
5202: l_zone := FTE_UTIL_PKG.GET_DATA('ZONE', l_values);
5203:
5204: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
5205: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_country', l_country);
5206: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_state', l_state);
5207: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_city', l_city);
5208: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_zipcode_to', l_zipcode_to);
5209: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_zipcode_from', l_zipcode_from);
5202: l_zone := FTE_UTIL_PKG.GET_DATA('ZONE', l_values);
5203:
5204: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
5205: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_country', l_country);
5206: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_state', l_state);
5207: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_city', l_city);
5208: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_zipcode_to', l_zipcode_to);
5209: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_zipcode_from', l_zipcode_from);
5210: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_zone', l_zone);
5203:
5204: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
5205: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_country', l_country);
5206: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_state', l_state);
5207: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_city', l_city);
5208: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_zipcode_to', l_zipcode_to);
5209: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_zipcode_from', l_zipcode_from);
5210: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_zone', l_zone);
5211: END IF;
5204: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
5205: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_country', l_country);
5206: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_state', l_state);
5207: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_city', l_city);
5208: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_zipcode_to', l_zipcode_to);
5209: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_zipcode_from', l_zipcode_from);
5210: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_zone', l_zone);
5211: END IF;
5212:
5205: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_country', l_country);
5206: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_state', l_state);
5207: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_city', l_city);
5208: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_zipcode_to', l_zipcode_to);
5209: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_zipcode_from', l_zipcode_from);
5210: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_zone', l_zone);
5211: END IF;
5212:
5213: IF (l_country IS NULL AND l_state IS NULL AND l_city IS NULL AND
5206: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_state', l_state);
5207: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_city', l_city);
5208: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_zipcode_to', l_zipcode_to);
5209: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_zipcode_from', l_zipcode_from);
5210: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_zone', l_zone);
5211: END IF;
5212:
5213: IF (l_country IS NULL AND l_state IS NULL AND l_city IS NULL AND
5214: l_zipcode_from IS NULL AND l_zipcode_to IS NULL AND l_zone IS NULL) THEN
5213: IF (l_country IS NULL AND l_state IS NULL AND l_city IS NULL AND
5214: l_zipcode_from IS NULL AND l_zipcode_to IS NULL AND l_zone IS NULL) THEN
5215:
5216: x_status := 2;
5217: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_REGION_INFO_SPECIFIED');
5218: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5219: p_module_name => l_module_name,
5220: p_category => 'D',
5221: p_line_number => p_line_number + i + 1);
5214: l_zipcode_from IS NULL AND l_zipcode_to IS NULL AND l_zone IS NULL) THEN
5215:
5216: x_status := 2;
5217: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_REGION_INFO_SPECIFIED');
5218: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5219: p_module_name => l_module_name,
5220: p_category => 'D',
5221: p_line_number => p_line_number + i + 1);
5222: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5218: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5219: p_module_name => l_module_name,
5220: p_category => 'D',
5221: p_line_number => p_line_number + i + 1);
5222: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5223: RETURN;
5224: END IF;
5225:
5226: l_region_info.country := l_country;
5229: l_region_info.postal_code_from := l_zipcode_from;
5230: l_region_info.postal_code_to := l_zipcode_to;
5231: l_region_info.zone := l_zone;
5232: ELSE
5233: l_region_id := FTE_UTIL_PKG.GET_DATA('REGION_CODE', l_values);
5234: END IF;
5235:
5236: PROCESS_REGION_CHARGES(p_region_type => l_zone_type,
5237: p_region_info => l_region_info,
5255: END IF;
5256:
5257: IF (x_status <> -1) THEN
5258: x_status := 2;
5259: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5260: RETURN;
5261: END IF;
5262: END IF;
5263:
5267:
5268: SUBMIT_TL_CHART(x_status, x_error_msg);
5269:
5270: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
5271: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Return status from SUBMIT_TL_CHART',x_status);
5272: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Return Message from SUBMIT_TL_CHART',x_error_msg);
5273: END IF;
5274:
5275: IF (x_status <> -1) THEN
5268: SUBMIT_TL_CHART(x_status, x_error_msg);
5269:
5270: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
5271: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Return status from SUBMIT_TL_CHART',x_status);
5272: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Return Message from SUBMIT_TL_CHART',x_error_msg);
5273: END IF;
5274:
5275: IF (x_status <> -1) THEN
5276: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5272: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Return Message from SUBMIT_TL_CHART',x_error_msg);
5273: END IF;
5274:
5275: IF (x_status <> -1) THEN
5276: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5277: RETURN;
5278: END IF;
5279:
5280: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5276: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5277: RETURN;
5278: END IF;
5279:
5280: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5281:
5282: EXCEPTION
5283: WHEN VALUE_ERROR THEN
5284:
5282: EXCEPTION
5283: WHEN VALUE_ERROR THEN
5284:
5285: x_status := 2;
5286: FTE_UTIL_PKG.Write_LogFile(l_module_name,'Numeric Value Error while reading file. Please ensure that all data is of the right type.');
5287: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5288:
5289: WHEN OTHERS THEN
5290:
5283: WHEN VALUE_ERROR THEN
5284:
5285: x_status := 2;
5286: FTE_UTIL_PKG.Write_LogFile(l_module_name,'Numeric Value Error while reading file. Please ensure that all data is of the right type.');
5287: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5288:
5289: WHEN OTHERS THEN
5290:
5291: x_status := 2;
5288:
5289: WHEN OTHERS THEN
5290:
5291: x_status := 2;
5292: FTE_UTIL_PKG.Write_LogFile(l_module_name, sqlerrm);
5293: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5294:
5295: END PROCESS_TL_SURCHARGES;
5296:
5289: WHEN OTHERS THEN
5290:
5291: x_status := 2;
5292: FTE_UTIL_PKG.Write_LogFile(l_module_name, sqlerrm);
5293: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5294:
5295: END PROCESS_TL_SURCHARGES;
5296:
5297: --_________________________________________________________________________________--
5381: l_module_name CONSTANT VARCHAR2(100):= 'FTE.PLSQL.' || G_PKG_NAME || '.PROCESS_TL_BASE_RATES';
5382:
5383: BEGIN
5384:
5385: FTE_UTIL_PKG.Enter_Debug(l_module_name);
5386: x_status := -1;
5387:
5388: l_chart_type := 'TL_MODIFIER';
5389: l_precedence := G_CONST_PRECEDENCE_HIGH;
5390:
5391: IF (g_unit_uom IS NULL) THEN
5392: g_unit_uom := GET_GLOBAL_UNIT_UOM (x_status, x_error_msg);
5393: IF (x_status <> -1) THEN
5394: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5395: RETURN;
5396: END IF;
5397: END IF;
5398:
5402: p_line_number => p_line_number-1,
5403: x_status => x_status,
5404: x_error_msg => x_error_msg);
5405: IF (x_status <> -1) THEN
5406: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5407: RETURN;
5408: END IF;
5409: END IF;
5410:
5415: FOR i IN 1..p_block_data.COUNT LOOP
5416:
5417: l_values := p_block_data(i);
5418:
5419: G_ACTION := FTE_UTIL_PKG.GET_DATA('ACTION', l_values);
5420: l_carrier_name := FTE_UTIL_PKG.GET_DATA('CARRIER_NAME', l_values);
5421: l_rate_chart_name:= FTE_UTIL_PKG.GET_DATA('RATE_CHART_NAME', l_values);
5422: l_currency := FTE_UTIL_PKG.GET_DATA('CURRENCY', l_values);
5423: l_rate_basis_uom := FTE_UTIL_PKG.GET_DATA('RATE_BASIS_UOM', l_values);
5416:
5417: l_values := p_block_data(i);
5418:
5419: G_ACTION := FTE_UTIL_PKG.GET_DATA('ACTION', l_values);
5420: l_carrier_name := FTE_UTIL_PKG.GET_DATA('CARRIER_NAME', l_values);
5421: l_rate_chart_name:= FTE_UTIL_PKG.GET_DATA('RATE_CHART_NAME', l_values);
5422: l_currency := FTE_UTIL_PKG.GET_DATA('CURRENCY', l_values);
5423: l_rate_basis_uom := FTE_UTIL_PKG.GET_DATA('RATE_BASIS_UOM', l_values);
5424: l_vehicle_type := FTE_UTIL_PKG.GET_DATA('VEHICLE_TYPE', l_values);
5417: l_values := p_block_data(i);
5418:
5419: G_ACTION := FTE_UTIL_PKG.GET_DATA('ACTION', l_values);
5420: l_carrier_name := FTE_UTIL_PKG.GET_DATA('CARRIER_NAME', l_values);
5421: l_rate_chart_name:= FTE_UTIL_PKG.GET_DATA('RATE_CHART_NAME', l_values);
5422: l_currency := FTE_UTIL_PKG.GET_DATA('CURRENCY', l_values);
5423: l_rate_basis_uom := FTE_UTIL_PKG.GET_DATA('RATE_BASIS_UOM', l_values);
5424: l_vehicle_type := FTE_UTIL_PKG.GET_DATA('VEHICLE_TYPE', l_values);
5425: l_start_date := FTE_UTIL_PKG.GET_DATA('START_DATE', l_values);
5418:
5419: G_ACTION := FTE_UTIL_PKG.GET_DATA('ACTION', l_values);
5420: l_carrier_name := FTE_UTIL_PKG.GET_DATA('CARRIER_NAME', l_values);
5421: l_rate_chart_name:= FTE_UTIL_PKG.GET_DATA('RATE_CHART_NAME', l_values);
5422: l_currency := FTE_UTIL_PKG.GET_DATA('CURRENCY', l_values);
5423: l_rate_basis_uom := FTE_UTIL_PKG.GET_DATA('RATE_BASIS_UOM', l_values);
5424: l_vehicle_type := FTE_UTIL_PKG.GET_DATA('VEHICLE_TYPE', l_values);
5425: l_start_date := FTE_UTIL_PKG.GET_DATA('START_DATE', l_values);
5426: l_end_date := FTE_UTIL_PKG.GET_DATA('END_DATE', l_values);
5419: G_ACTION := FTE_UTIL_PKG.GET_DATA('ACTION', l_values);
5420: l_carrier_name := FTE_UTIL_PKG.GET_DATA('CARRIER_NAME', l_values);
5421: l_rate_chart_name:= FTE_UTIL_PKG.GET_DATA('RATE_CHART_NAME', l_values);
5422: l_currency := FTE_UTIL_PKG.GET_DATA('CURRENCY', l_values);
5423: l_rate_basis_uom := FTE_UTIL_PKG.GET_DATA('RATE_BASIS_UOM', l_values);
5424: l_vehicle_type := FTE_UTIL_PKG.GET_DATA('VEHICLE_TYPE', l_values);
5425: l_start_date := FTE_UTIL_PKG.GET_DATA('START_DATE', l_values);
5426: l_end_date := FTE_UTIL_PKG.GET_DATA('END_DATE', l_values);
5427: l_dist_type := FTE_UTIL_PKG.GET_DATA('DISTANCE_TYPE', l_values);
5420: l_carrier_name := FTE_UTIL_PKG.GET_DATA('CARRIER_NAME', l_values);
5421: l_rate_chart_name:= FTE_UTIL_PKG.GET_DATA('RATE_CHART_NAME', l_values);
5422: l_currency := FTE_UTIL_PKG.GET_DATA('CURRENCY', l_values);
5423: l_rate_basis_uom := FTE_UTIL_PKG.GET_DATA('RATE_BASIS_UOM', l_values);
5424: l_vehicle_type := FTE_UTIL_PKG.GET_DATA('VEHICLE_TYPE', l_values);
5425: l_start_date := FTE_UTIL_PKG.GET_DATA('START_DATE', l_values);
5426: l_end_date := FTE_UTIL_PKG.GET_DATA('END_DATE', l_values);
5427: l_dist_type := FTE_UTIL_PKG.GET_DATA('DISTANCE_TYPE', l_values);
5428: l_service_level := FTE_UTIL_PKG.GET_DATA('SERVICE_LEVEL', l_values);
5421: l_rate_chart_name:= FTE_UTIL_PKG.GET_DATA('RATE_CHART_NAME', l_values);
5422: l_currency := FTE_UTIL_PKG.GET_DATA('CURRENCY', l_values);
5423: l_rate_basis_uom := FTE_UTIL_PKG.GET_DATA('RATE_BASIS_UOM', l_values);
5424: l_vehicle_type := FTE_UTIL_PKG.GET_DATA('VEHICLE_TYPE', l_values);
5425: l_start_date := FTE_UTIL_PKG.GET_DATA('START_DATE', l_values);
5426: l_end_date := FTE_UTIL_PKG.GET_DATA('END_DATE', l_values);
5427: l_dist_type := FTE_UTIL_PKG.GET_DATA('DISTANCE_TYPE', l_values);
5428: l_service_level := FTE_UTIL_PKG.GET_DATA('SERVICE_LEVEL', l_values);
5429: l_rate_basis := FTE_UTIL_PKG.GET_DATA('RATE_BASIS', l_values);
5422: l_currency := FTE_UTIL_PKG.GET_DATA('CURRENCY', l_values);
5423: l_rate_basis_uom := FTE_UTIL_PKG.GET_DATA('RATE_BASIS_UOM', l_values);
5424: l_vehicle_type := FTE_UTIL_PKG.GET_DATA('VEHICLE_TYPE', l_values);
5425: l_start_date := FTE_UTIL_PKG.GET_DATA('START_DATE', l_values);
5426: l_end_date := FTE_UTIL_PKG.GET_DATA('END_DATE', l_values);
5427: l_dist_type := FTE_UTIL_PKG.GET_DATA('DISTANCE_TYPE', l_values);
5428: l_service_level := FTE_UTIL_PKG.GET_DATA('SERVICE_LEVEL', l_values);
5429: l_rate_basis := FTE_UTIL_PKG.GET_DATA('RATE_BASIS', l_values);
5430:
5423: l_rate_basis_uom := FTE_UTIL_PKG.GET_DATA('RATE_BASIS_UOM', l_values);
5424: l_vehicle_type := FTE_UTIL_PKG.GET_DATA('VEHICLE_TYPE', l_values);
5425: l_start_date := FTE_UTIL_PKG.GET_DATA('START_DATE', l_values);
5426: l_end_date := FTE_UTIL_PKG.GET_DATA('END_DATE', l_values);
5427: l_dist_type := FTE_UTIL_PKG.GET_DATA('DISTANCE_TYPE', l_values);
5428: l_service_level := FTE_UTIL_PKG.GET_DATA('SERVICE_LEVEL', l_values);
5429: l_rate_basis := FTE_UTIL_PKG.GET_DATA('RATE_BASIS', l_values);
5430:
5431: BEGIN
5424: l_vehicle_type := FTE_UTIL_PKG.GET_DATA('VEHICLE_TYPE', l_values);
5425: l_start_date := FTE_UTIL_PKG.GET_DATA('START_DATE', l_values);
5426: l_end_date := FTE_UTIL_PKG.GET_DATA('END_DATE', l_values);
5427: l_dist_type := FTE_UTIL_PKG.GET_DATA('DISTANCE_TYPE', l_values);
5428: l_service_level := FTE_UTIL_PKG.GET_DATA('SERVICE_LEVEL', l_values);
5429: l_rate_basis := FTE_UTIL_PKG.GET_DATA('RATE_BASIS', l_values);
5430:
5431: BEGIN
5432: l_rate := FTE_UTIL_PKG.GET_DATA('RATE', l_values);
5425: l_start_date := FTE_UTIL_PKG.GET_DATA('START_DATE', l_values);
5426: l_end_date := FTE_UTIL_PKG.GET_DATA('END_DATE', l_values);
5427: l_dist_type := FTE_UTIL_PKG.GET_DATA('DISTANCE_TYPE', l_values);
5428: l_service_level := FTE_UTIL_PKG.GET_DATA('SERVICE_LEVEL', l_values);
5429: l_rate_basis := FTE_UTIL_PKG.GET_DATA('RATE_BASIS', l_values);
5430:
5431: BEGIN
5432: l_rate := FTE_UTIL_PKG.GET_DATA('RATE', l_values);
5433: IF (l_rate < 0 ) THEN
5428: l_service_level := FTE_UTIL_PKG.GET_DATA('SERVICE_LEVEL', l_values);
5429: l_rate_basis := FTE_UTIL_PKG.GET_DATA('RATE_BASIS', l_values);
5430:
5431: BEGIN
5432: l_rate := FTE_UTIL_PKG.GET_DATA('RATE', l_values);
5433: IF (l_rate < 0 ) THEN
5434: x_status := 2;
5435: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_VALUE_ERROR',
5436: p_tokens => STRINGARRAY('ENTITY'),
5431: BEGIN
5432: l_rate := FTE_UTIL_PKG.GET_DATA('RATE', l_values);
5433: IF (l_rate < 0 ) THEN
5434: x_status := 2;
5435: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_VALUE_ERROR',
5436: p_tokens => STRINGARRAY('ENTITY'),
5437: p_values => STRINGARRAY('RATE'));
5438: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5439: p_module_name => l_module_name,
5434: x_status := 2;
5435: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_VALUE_ERROR',
5436: p_tokens => STRINGARRAY('ENTITY'),
5437: p_values => STRINGARRAY('RATE'));
5438: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5439: p_module_name => l_module_name,
5440: p_category => 'D',
5441: p_line_number => p_line_number + i + 1);
5442: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5438: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5439: p_module_name => l_module_name,
5440: p_category => 'D',
5441: p_line_number => p_line_number + i + 1);
5442: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5443: RETURN;
5444: END IF;
5445: EXCEPTION
5446: WHEN OTHERS THEN
5444: END IF;
5445: EXCEPTION
5446: WHEN OTHERS THEN
5447: x_status := 2;
5448: x_error_msg := FTE_UTIL_PKG.GET_MSG('FTE_CAT_RATE_NON_NUMERIC');
5449: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
5450: p_module_name => l_module_name,
5451: p_category => 'D',
5452: p_line_number => p_line_number + i + 1);
5445: EXCEPTION
5446: WHEN OTHERS THEN
5447: x_status := 2;
5448: x_error_msg := FTE_UTIL_PKG.GET_MSG('FTE_CAT_RATE_NON_NUMERIC');
5449: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
5450: p_module_name => l_module_name,
5451: p_category => 'D',
5452: p_line_number => p_line_number + i + 1);
5453: RETURN;
5453: RETURN;
5454: END;
5455:
5456: BEGIN
5457: l_min_charge := FTE_UTIL_PKG.GET_DATA('MINIMUM_CHARGE', l_values);
5458: IF (l_min_charge IS NOT NULL ) THEN
5459: IF (l_min_charge < 0 ) THEN
5460: x_status := 2;
5461: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_VALUE_ERROR',
5457: l_min_charge := FTE_UTIL_PKG.GET_DATA('MINIMUM_CHARGE', l_values);
5458: IF (l_min_charge IS NOT NULL ) THEN
5459: IF (l_min_charge < 0 ) THEN
5460: x_status := 2;
5461: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_VALUE_ERROR',
5462: p_tokens => STRINGARRAY('ENTITY'),
5463: p_values => STRINGARRAY('MINIMUM_CHARGE'));
5464: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5465: p_module_name => l_module_name,
5460: x_status := 2;
5461: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_VALUE_ERROR',
5462: p_tokens => STRINGARRAY('ENTITY'),
5463: p_values => STRINGARRAY('MINIMUM_CHARGE'));
5464: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5465: p_module_name => l_module_name,
5466: p_category => 'D',
5467: p_line_number => p_line_number + i + 1);
5468: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5464: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5465: p_module_name => l_module_name,
5466: p_category => 'D',
5467: p_line_number => p_line_number + i + 1);
5468: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5469: RETURN;
5470: END IF;
5471: END IF;
5472: EXCEPTION
5471: END IF;
5472: EXCEPTION
5473: WHEN OTHERS THEN
5474: x_status := 2;
5475: x_error_msg := FTE_UTIL_PKG.GET_MSG('FTE_CAT_RATE_NON_NUMERIC');
5476: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
5477: p_module_name => l_module_name,
5478: p_category => 'D',
5479: p_line_number => p_line_number + i + 1);
5472: EXCEPTION
5473: WHEN OTHERS THEN
5474: x_status := 2;
5475: x_error_msg := FTE_UTIL_PKG.GET_MSG('FTE_CAT_RATE_NON_NUMERIC');
5476: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
5477: p_module_name => l_module_name,
5478: p_category => 'D',
5479: p_line_number => p_line_number + i + 1);
5480: RETURN;
5489:
5490: --+
5491: -- Get the carrier name from the ID for rate chart cretion.
5492: --+
5493: l_carrier_id := FTE_UTIL_PKG.GET_DATA('CARRIER_ID', l_values);
5494: l_carrier_name := FTE_UTIL_PKG.GET_CARRIER_NAME(p_carrier_id => l_carrier_id);
5495:
5496: --+
5497: -- populate SERVICE LEVEL CODE.
5490: --+
5491: -- Get the carrier name from the ID for rate chart cretion.
5492: --+
5493: l_carrier_id := FTE_UTIL_PKG.GET_DATA('CARRIER_ID', l_values);
5494: l_carrier_name := FTE_UTIL_PKG.GET_CARRIER_NAME(p_carrier_id => l_carrier_id);
5495:
5496: --+
5497: -- populate SERVICE LEVEL CODE.
5498: --+
5495:
5496: --+
5497: -- populate SERVICE LEVEL CODE.
5498: --+
5499: l_service_level := FTE_UTIL_PKG.GET_DATA('SERVICE_CODE', l_values);
5500:
5501: --+
5502: -- populate VEHICLE_TYPE_ID
5503: --+
5500:
5501: --+
5502: -- populate VEHICLE_TYPE_ID
5503: --+
5504: l_vehicle_type := FTE_UTIL_PKG.GET_DATA('VEHICLE_CODE', l_values);
5505: l_rate_basis_uom := FTE_UTIL_PKG.GET_DATA('RATE_BASIS_UOM_CODE', l_values);
5506:
5507: IF (l_rate_basis IS NULL OR length(l_rate_basis) = 0 OR l_rate_basis = 'FLAT') THEN
5508: l_rate_basis := 'FLAT';
5501: --+
5502: -- populate VEHICLE_TYPE_ID
5503: --+
5504: l_vehicle_type := FTE_UTIL_PKG.GET_DATA('VEHICLE_CODE', l_values);
5505: l_rate_basis_uom := FTE_UTIL_PKG.GET_DATA('RATE_BASIS_UOM_CODE', l_values);
5506:
5507: IF (l_rate_basis IS NULL OR length(l_rate_basis) = 0 OR l_rate_basis = 'FLAT') THEN
5508: l_rate_basis := 'FLAT';
5509: l_rate_basis_uom := g_unit_uom;
5528: x_status => x_status,
5529: x_error_msg => x_error_msg);
5530:
5531: IF (x_status <> -1) THEN
5532: FTE_UTIL_PKG.Write_LogFile(l_module_name,'FTE_VALIDATION_PKG.VALIDATE_ACTION failed');
5533: RETURN;
5534: END IF;
5535:
5536: END IF;
5542: END IF;
5543: EXCEPTION
5544: WHEN OTHERS THEN
5545: x_status := 2;
5546: x_error_msg := FTE_UTIL_PKG.GET_MSG('FTE_CAT_DATE_FORMAT_ERROR');
5547: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
5548: p_module_name => l_module_name,
5549: p_category => 'D',
5550: p_line_number => p_line_number + i + 1);
5543: EXCEPTION
5544: WHEN OTHERS THEN
5545: x_status := 2;
5546: x_error_msg := FTE_UTIL_PKG.GET_MSG('FTE_CAT_DATE_FORMAT_ERROR');
5547: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
5548: p_module_name => l_module_name,
5549: p_category => 'D',
5550: p_line_number => p_line_number + i + 1);
5551: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5547: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
5548: p_module_name => l_module_name,
5549: p_category => 'D',
5550: p_line_number => p_line_number + i + 1);
5551: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5552: RETURN;
5553: END;
5554: END IF;
5555:
5560: END IF;
5561: EXCEPTION
5562: WHEN OTHERS THEN
5563: x_status := 2;
5564: x_error_msg := FTE_UTIL_PKG.GET_MSG('FTE_CAT_DATE_FORMAT_ERROR');
5565: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
5566: p_module_name => l_module_name,
5567: p_category => 'D',
5568: p_line_number => p_line_number + i + 1);
5561: EXCEPTION
5562: WHEN OTHERS THEN
5563: x_status := 2;
5564: x_error_msg := FTE_UTIL_PKG.GET_MSG('FTE_CAT_DATE_FORMAT_ERROR');
5565: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
5566: p_module_name => l_module_name,
5567: p_category => 'D',
5568: p_line_number => p_line_number + i + 1);
5569:
5566: p_module_name => l_module_name,
5567: p_category => 'D',
5568: p_line_number => p_line_number + i + 1);
5569:
5570: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5571: RETURN;
5572: END;
5573: END IF;
5574:
5574:
5575: IF (p_doValidate) THEN
5576: IF (l_rate < 0 ) THEN
5577: x_status := 2;
5578: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_VALUE_ERROR',
5579: p_tokens => STRINGARRAY('ENTITY'),
5580: p_values => STRINGARRAY('RATE'));
5581: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5582: p_module_name => l_module_name,
5577: x_status := 2;
5578: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_VALUE_ERROR',
5579: p_tokens => STRINGARRAY('ENTITY'),
5580: p_values => STRINGARRAY('RATE'));
5581: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5582: p_module_name => l_module_name,
5583: p_category => 'D',
5584: p_line_number => p_line_number + i + 1);
5585: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5581: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5582: p_module_name => l_module_name,
5583: p_category => 'D',
5584: p_line_number => p_line_number + i + 1);
5585: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5586: RETURN;
5587: END IF;
5588:
5589: IF (l_min_charge < 0) THEN
5587: END IF;
5588:
5589: IF (l_min_charge < 0) THEN
5590: x_status := 2;
5591: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_VALUE_ERROR',
5592: p_tokens => STRINGARRAY('ENTITY'),
5593: p_values => STRINGARRAY('MINIMUM_CHARGE'));
5594: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5595: p_module_name => l_module_name,
5590: x_status := 2;
5591: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_VALUE_ERROR',
5592: p_tokens => STRINGARRAY('ENTITY'),
5593: p_values => STRINGARRAY('MINIMUM_CHARGE'));
5594: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5595: p_module_name => l_module_name,
5596: p_category => 'D',
5597: p_line_number => p_line_number + i + 1);
5598: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5594: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5595: p_module_name => l_module_name,
5596: p_category => 'D',
5597: p_line_number => p_line_number + i + 1);
5598: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5599: RETURN;
5600: END IF;
5601:
5602: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
5599: RETURN;
5600: END IF;
5601:
5602: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
5603: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'G_ACTION ',G_ACTION);
5604: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_chart_name',l_rate_chart_name);
5605: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_carrier_name ',l_carrier_name);
5606: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ',l_currency);
5607: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis ',l_rate_basis);
5600: END IF;
5601:
5602: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
5603: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'G_ACTION ',G_ACTION);
5604: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_chart_name',l_rate_chart_name);
5605: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_carrier_name ',l_carrier_name);
5606: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ',l_currency);
5607: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis ',l_rate_basis);
5608: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis_uom ',l_rate_basis_uom);
5601:
5602: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
5603: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'G_ACTION ',G_ACTION);
5604: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_chart_name',l_rate_chart_name);
5605: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_carrier_name ',l_carrier_name);
5606: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ',l_currency);
5607: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis ',l_rate_basis);
5608: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis_uom ',l_rate_basis_uom);
5609: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_distance_type ',l_dist_type);
5602: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
5603: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'G_ACTION ',G_ACTION);
5604: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_chart_name',l_rate_chart_name);
5605: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_carrier_name ',l_carrier_name);
5606: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ',l_currency);
5607: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis ',l_rate_basis);
5608: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis_uom ',l_rate_basis_uom);
5609: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_distance_type ',l_dist_type);
5610: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level ',l_service_level);
5603: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'G_ACTION ',G_ACTION);
5604: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_chart_name',l_rate_chart_name);
5605: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_carrier_name ',l_carrier_name);
5606: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ',l_currency);
5607: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis ',l_rate_basis);
5608: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis_uom ',l_rate_basis_uom);
5609: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_distance_type ',l_dist_type);
5610: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level ',l_service_level);
5611: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_vehicle_type ',l_vehicle_type);
5604: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_chart_name',l_rate_chart_name);
5605: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_carrier_name ',l_carrier_name);
5606: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ',l_currency);
5607: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis ',l_rate_basis);
5608: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis_uom ',l_rate_basis_uom);
5609: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_distance_type ',l_dist_type);
5610: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level ',l_service_level);
5611: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_vehicle_type ',l_vehicle_type);
5612: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate ',l_rate);
5605: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_carrier_name ',l_carrier_name);
5606: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ',l_currency);
5607: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis ',l_rate_basis);
5608: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis_uom ',l_rate_basis_uom);
5609: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_distance_type ',l_dist_type);
5610: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level ',l_service_level);
5611: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_vehicle_type ',l_vehicle_type);
5612: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate ',l_rate);
5613: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_charge ',l_min_charge);
5606: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_currency ',l_currency);
5607: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis ',l_rate_basis);
5608: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis_uom ',l_rate_basis_uom);
5609: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_distance_type ',l_dist_type);
5610: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level ',l_service_level);
5611: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_vehicle_type ',l_vehicle_type);
5612: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate ',l_rate);
5613: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_charge ',l_min_charge);
5614: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_start_date',l_start_date);
5607: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis ',l_rate_basis);
5608: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis_uom ',l_rate_basis_uom);
5609: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_distance_type ',l_dist_type);
5610: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level ',l_service_level);
5611: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_vehicle_type ',l_vehicle_type);
5612: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate ',l_rate);
5613: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_charge ',l_min_charge);
5614: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_start_date',l_start_date);
5615: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_end_date ',l_end_date);
5608: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_basis_uom ',l_rate_basis_uom);
5609: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_distance_type ',l_dist_type);
5610: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level ',l_service_level);
5611: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_vehicle_type ',l_vehicle_type);
5612: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate ',l_rate);
5613: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_charge ',l_min_charge);
5614: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_start_date',l_start_date);
5615: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_end_date ',l_end_date);
5616: END IF;
5609: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_distance_type ',l_dist_type);
5610: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level ',l_service_level);
5611: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_vehicle_type ',l_vehicle_type);
5612: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate ',l_rate);
5613: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_charge ',l_min_charge);
5614: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_start_date',l_start_date);
5615: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_end_date ',l_end_date);
5616: END IF;
5617:
5610: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_service_level ',l_service_level);
5611: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_vehicle_type ',l_vehicle_type);
5612: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate ',l_rate);
5613: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_charge ',l_min_charge);
5614: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_start_date',l_start_date);
5615: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_end_date ',l_end_date);
5616: END IF;
5617:
5618: IF (l_rate_chart_name IS NULL OR LENGTH(l_rate_chart_name) = 0) THEN
5611: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_vehicle_type ',l_vehicle_type);
5612: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate ',l_rate);
5613: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_min_charge ',l_min_charge);
5614: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_start_date',l_start_date);
5615: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'l_rate_end_date ',l_end_date);
5616: END IF;
5617:
5618: IF (l_rate_chart_name IS NULL OR LENGTH(l_rate_chart_name) = 0) THEN
5619: x_status := 2;
5616: END IF;
5617:
5618: IF (l_rate_chart_name IS NULL OR LENGTH(l_rate_chart_name) = 0) THEN
5619: x_status := 2;
5620: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_PRICE_NAME_MISSING');
5621: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5622: p_module_name => l_module_name,
5623: p_category => 'D',
5624: p_line_number => p_line_number + i + 1);
5617:
5618: IF (l_rate_chart_name IS NULL OR LENGTH(l_rate_chart_name) = 0) THEN
5619: x_status := 2;
5620: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_PRICE_NAME_MISSING');
5621: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5622: p_module_name => l_module_name,
5623: p_category => 'D',
5624: p_line_number => p_line_number + i + 1);
5625: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5621: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5622: p_module_name => l_module_name,
5623: p_category => 'D',
5624: p_line_number => p_line_number + i + 1);
5625: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5626: RETURN;
5627: END IF;
5628:
5629: END IF;
5636:
5637: FOR i IN 1..l_assoc_modifier_ids.COUNT
5638: LOOP
5639: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
5640: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Deleting Modifier ' || l_assoc_modifier_ids(i) || ' of Rate Chart ' || l_rate_chart_name);
5641: END IF;
5642:
5643: FTE_RATE_CHART_PKG.G_CHART_TYPE := 'TL_MODIFIER';
5644: FTE_RATE_CHART_PKG.DELETE_FROM_QP(p_list_header_id => l_assoc_modifier_ids(i),
5649: x_error_msg => x_error_msg);
5650:
5651:
5652: IF (x_status <> -1) THEN
5653: FTE_UTIL_PKG.Write_LogFile(l_module_name,'FTE_RATE_CHART_PKG.DELETE_FROM_QP returned with error' || x_error_msg);
5654: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5655: RETURN;
5656: END IF;
5657: END LOOP;
5650:
5651:
5652: IF (x_status <> -1) THEN
5653: FTE_UTIL_PKG.Write_LogFile(l_module_name,'FTE_RATE_CHART_PKG.DELETE_FROM_QP returned with error' || x_error_msg);
5654: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5655: RETURN;
5656: END IF;
5657: END LOOP;
5658:
5667: END IF;
5668: END LOOP;
5669:
5670: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
5671: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Deleting TL_RATE_CHART ' || l_rate_chart_name);
5672: END IF;
5673:
5674: FTE_RATE_CHART_PKG.G_CHART_TYPE := 'TL_RATE_CHART';
5675:
5679: p_line_number => p_line_number + i + 1,
5680: x_status => x_status,
5681: x_error_msg => x_error_msg);
5682: IF (x_status <> -1) THEN
5683: FTE_UTIL_PKG.Write_LogFile(l_module_name,'FTE_RATE_CHART_PKG.DELETE_FROM_QP returned with error' || x_error_msg);
5684: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5685: RETURN;
5686: END IF;
5687:
5680: x_status => x_status,
5681: x_error_msg => x_error_msg);
5682: IF (x_status <> -1) THEN
5683: FTE_UTIL_PKG.Write_LogFile(l_module_name,'FTE_RATE_CHART_PKG.DELETE_FROM_QP returned with error' || x_error_msg);
5684: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5685: RETURN;
5686: END IF;
5687:
5688: l_del_count := l_del_count + 1;
5696: --+
5697: IF (p_doValidate) THEN
5698: IF (l_carrier_name IS NULL OR LENGTH(l_carrier_name) = 0) THEN
5699: x_status := 2;
5700: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_CARRIER_MISSING');
5701: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5702: p_module_name => l_module_name,
5703: p_category => 'D',
5704: p_line_number => p_line_number + i + 1);
5697: IF (p_doValidate) THEN
5698: IF (l_carrier_name IS NULL OR LENGTH(l_carrier_name) = 0) THEN
5699: x_status := 2;
5700: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_CARRIER_MISSING');
5701: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5702: p_module_name => l_module_name,
5703: p_category => 'D',
5704: p_line_number => p_line_number + i + 1);
5705: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5701: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5702: p_module_name => l_module_name,
5703: p_category => 'D',
5704: p_line_number => p_line_number + i + 1);
5705: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5706: RETURN;
5707: END IF;
5708: --+
5709: -- Attribute : Rate Basis, Rate Basis UOM required
5720: FTE_RTG_GLOBALS.G_TL_RATE_BASIS_PALLET,
5721: FTE_RTG_GLOBALS.G_TL_RATE_BASIS_TIME,
5722: FTE_RTG_GLOBALS.G_TL_RATE_BASIS_FLAT)) THEN
5723: x_status := 2;
5724: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_BASIS_INVALID');
5725: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5726: p_module_name => l_module_name,
5727: p_category => 'D',
5728: p_line_number => p_line_number + i + 1); -- add tokens
5721: FTE_RTG_GLOBALS.G_TL_RATE_BASIS_TIME,
5722: FTE_RTG_GLOBALS.G_TL_RATE_BASIS_FLAT)) THEN
5723: x_status := 2;
5724: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_BASIS_INVALID');
5725: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5726: p_module_name => l_module_name,
5727: p_category => 'D',
5728: p_line_number => p_line_number + i + 1); -- add tokens
5729: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5725: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5726: p_module_name => l_module_name,
5727: p_category => 'D',
5728: p_line_number => p_line_number + i + 1); -- add tokens
5729: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5730: RETURN;
5731: ELSIF (l_rate_basis IN (FTE_RTG_GLOBALS.G_TL_RATE_BASIS_DIST,
5732: FTE_RTG_GLOBALS.G_TL_RATE_BASIS_WT,
5733: FTE_RTG_GLOBALS.G_TL_RATE_BASIS_VOL,
5740: --+
5741:
5742: IF (l_rate_basis_uom IS NULL OR LENGTH(l_rate_basis_uom) = 0) THEN
5743: x_status := 2;
5744: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_RATE_BASIS_UOM_MISSING');
5745: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5746: p_module_name => l_module_name,
5747: p_category => 'D',
5748: p_line_number => p_line_number + i + 1);
5741:
5742: IF (l_rate_basis_uom IS NULL OR LENGTH(l_rate_basis_uom) = 0) THEN
5743: x_status := 2;
5744: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_RATE_BASIS_UOM_MISSING');
5745: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5746: p_module_name => l_module_name,
5747: p_category => 'D',
5748: p_line_number => p_line_number + i + 1);
5749: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5745: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5746: p_module_name => l_module_name,
5747: p_category => 'D',
5748: p_line_number => p_line_number + i + 1);
5749: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5750: RETURN;
5751: ELSE
5752: l_rate_basis_uom := FTE_UTIL_PKG.GET_UOM_CODE(p_uom => l_rate_basis_uom);
5753:
5748: p_line_number => p_line_number + i + 1);
5749: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5750: RETURN;
5751: ELSE
5752: l_rate_basis_uom := FTE_UTIL_PKG.GET_UOM_CODE(p_uom => l_rate_basis_uom);
5753:
5754: IF (l_rate_basis_uom IS NULL) THEN
5755: x_status := 2;
5756: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_UOM_INVALID');
5752: l_rate_basis_uom := FTE_UTIL_PKG.GET_UOM_CODE(p_uom => l_rate_basis_uom);
5753:
5754: IF (l_rate_basis_uom IS NULL) THEN
5755: x_status := 2;
5756: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_UOM_INVALID');
5757: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5758: p_module_name => l_module_name,
5759: p_category => 'B',
5760: p_line_number => p_line_number + i + 1);
5753:
5754: IF (l_rate_basis_uom IS NULL) THEN
5755: x_status := 2;
5756: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_UOM_INVALID');
5757: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5758: p_module_name => l_module_name,
5759: p_category => 'B',
5760: p_line_number => p_line_number + i + 1);
5761: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5757: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5758: p_module_name => l_module_name,
5759: p_category => 'B',
5760: p_line_number => p_line_number + i + 1);
5761: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5762: RETURN;
5763: END IF;
5764: END IF;
5765:
5773: --+
5774: IF (l_rate_basis = FTE_RTG_GLOBALS.G_TL_RATE_BASIS_DIST) THEN
5775: IF (l_dist_type IS NULL OR LENGTH(l_dist_type) = 0) THEN
5776: x_status := 2;
5777: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_DISTANCE_TYPE_MISSING');
5778: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5779: p_module_name => l_module_name,
5780: p_category =>'D',
5781: p_line_number => p_line_number + i + 1);
5774: IF (l_rate_basis = FTE_RTG_GLOBALS.G_TL_RATE_BASIS_DIST) THEN
5775: IF (l_dist_type IS NULL OR LENGTH(l_dist_type) = 0) THEN
5776: x_status := 2;
5777: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_DISTANCE_TYPE_MISSING');
5778: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5779: p_module_name => l_module_name,
5780: p_category =>'D',
5781: p_line_number => p_line_number + i + 1);
5782: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5778: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5779: p_module_name => l_module_name,
5780: p_category =>'D',
5781: p_line_number => p_line_number + i + 1);
5782: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5783: RETURN;
5784: END IF;
5785: END IF;
5786:
5784: END IF;
5785: END IF;
5786:
5787: IF (x_status <> -1) THEN
5788: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5789: RETURN;
5790: END IF;
5791:
5792: --+
5798: p_line_number => p_line_number + i + 1,
5799: x_error_msg => x_error_msg,
5800: x_status => x_status);
5801: IF (x_status <> -1) THEN
5802: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5803: RETURN;
5804: END IF;
5805:
5806: IF (l_vehicle_type IS NULL ) THEN
5804: END IF;
5805:
5806: IF (l_vehicle_type IS NULL ) THEN
5807: x_status := 2;
5808: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_VEHICLE_MISSING');
5809: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5810: p_module_name => l_module_name,
5811: p_category =>'D',
5812: p_line_number => p_line_number + i + 1);
5805:
5806: IF (l_vehicle_type IS NULL ) THEN
5807: x_status := 2;
5808: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_VEHICLE_MISSING');
5809: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5810: p_module_name => l_module_name,
5811: p_category =>'D',
5812: p_line_number => p_line_number + i + 1);
5813: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5809: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5810: p_module_name => l_module_name,
5811: p_category =>'D',
5812: p_line_number => p_line_number + i + 1);
5813: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5814: RETURN;
5815: END IF;
5816:
5817: --+
5817: --+
5818: -- To populate l_vehicle_type with l_vehicle_type_id
5819: -- This call is not needed when called from UI
5820: --+
5821: l_vehicle_type := FTE_UTIL_PKG.GET_VEHICLE_TYPE(p_vehicle_type => l_vehicle_type);
5822:
5823: IF (l_vehicle_type IS NULL ) THEN
5824: x_status := 2;
5825: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_VEH_NOT_DEFINED');
5821: l_vehicle_type := FTE_UTIL_PKG.GET_VEHICLE_TYPE(p_vehicle_type => l_vehicle_type);
5822:
5823: IF (l_vehicle_type IS NULL ) THEN
5824: x_status := 2;
5825: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_VEH_NOT_DEFINED');
5826: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5827: p_module_name => l_module_name,
5828: p_category =>'D',
5829: p_line_number => p_line_number + i + 1);
5822:
5823: IF (l_vehicle_type IS NULL ) THEN
5824: x_status := 2;
5825: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_CAT_VEH_NOT_DEFINED');
5826: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5827: p_module_name => l_module_name,
5828: p_category =>'D',
5829: p_line_number => p_line_number + i + 1);
5830: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5826: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
5827: p_module_name => l_module_name,
5828: p_category =>'D',
5829: p_line_number => p_line_number + i + 1);
5830: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5831: RETURN;
5832: END IF;
5833:
5834: END IF;
5847: x_error_msg => x_error_msg,
5848: x_status => x_status);
5849:
5850: IF (x_status <> -1) THEN
5851: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5852: RETURN;
5853: END IF;
5854:
5855: GET_CARRIER_PREFERENCES (p_carrier_name => l_carrier_name,
5871: x_status => x_status,
5872: x_error_msg => x_error_msg);
5873:
5874: IF (x_status <> -1) THEN
5875: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5876: RETURN;
5877: END IF;
5878:
5879: END IF;
5893: ELSIF (l_dist_type = 'LOADED') THEN
5894: l_attribute := FTE_RTG_GLOBALS.G_C_LOADED_DISTANCE_RT;
5895: ELSE
5896: x_status := 2;
5897: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_DISTANCE_TYPE_INVALID');
5898: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
5899: p_module_name => l_module_name,
5900: p_category =>'D',
5901: p_line_number => p_line_number + i + 1);
5894: l_attribute := FTE_RTG_GLOBALS.G_C_LOADED_DISTANCE_RT;
5895: ELSE
5896: x_status := 2;
5897: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_DISTANCE_TYPE_INVALID');
5898: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
5899: p_module_name => l_module_name,
5900: p_category =>'D',
5901: p_line_number => p_line_number + i + 1);
5902: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5898: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
5899: p_module_name => l_module_name,
5900: p_category =>'D',
5901: p_line_number => p_line_number + i + 1);
5902: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5903: RETURN;
5904: END IF;
5905:
5906: ELSIF (l_rate_basis = FTE_RTG_GLOBALS.G_TL_RATE_BASIS_FLAT) THEN
5928: --+
5929: IF (l_linenum = 0) THEN
5930:
5931: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
5932: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Creating Rate Chart Header For ' || l_rate_chart_name);
5933: END IF;
5934:
5935: l_description := 'Rate Chart ' || l_rate_chart_name;
5936:
5957: l_rate_hdr_data.DELETE;
5958: l_rate_hdr_block_tbl.DELETE;
5959:
5960: IF (x_status <> -1) THEN
5961: FTE_UTIL_PKG.Exit_Debug(l_module_name);
5962: RETURN;
5963: END IF;
5964:
5965: --+
5972: l_linenum := l_linenum + 1;
5973: l_description := 'Line ' || l_linenum || ' Of ' || l_rate_chart_name;
5974:
5975: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
5976: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Creating ' || l_description);
5977: END IF;
5978:
5979: l_rate_line_data('ACTION') := G_ACTION;
5980: l_rate_line_data('LINE_NUMBER') := l_linenum;
6000: l_rate_line_data.DELETE;
6001: l_rate_line_block_tbl.DELETE;
6002:
6003: IF (x_status <> -1) THEN
6004: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6005: RETURN;
6006: END IF;
6007:
6008: --+
6021: x_error_msg => x_error_msg,
6022: x_status => x_status);
6023:
6024: IF (x_status <> -1) THEN
6025: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6026: RETURN;
6027: END IF;
6028:
6029: --+
6032: l_linenum := l_linenum + 1;
6033: l_description := 'Line ' || l_linenum || ' Of ' || l_rate_chart_name;
6034:
6035: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
6036: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Creating ' || l_description);
6037: END IF;
6038:
6039: l_rate_line_data('ACTION') := G_ACTION;
6040: l_rate_line_data('LINE_NUMBER'):= l_linenum;
6059: l_rate_line_data.DELETE;
6060: l_rate_line_block_tbl.DELETE;
6061:
6062: IF (x_status <> -1) THEN
6063: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6064: RETURN;
6065: END IF;
6066:
6067: --+
6088: l_linenum := l_linenum + 1;
6089: l_description := 'Line ' || l_linenum || ' Of ' || l_rate_chart_name;
6090:
6091: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
6092: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Creating ' || l_description);
6093: END IF;
6094:
6095: l_rate_line_data('ACTION') := G_ACTION;
6096: l_rate_line_data('LINE_NUMBER') := l_linenum;
6115: l_rate_line_data.DELETE;
6116: l_rate_line_block_tbl.DELETE;
6117:
6118: IF (x_status <> -1) THEN
6119: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6120: RETURN;
6121: END IF;
6122:
6123: --+
6135: x_error_msg => x_error_msg,
6136: x_status => x_status);
6137:
6138: IF (x_status <> -1) THEN
6139: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6140: RETURN;
6141: END IF;
6142:
6143: --+
6159: x_error_msg => x_error_msg,
6160: x_status => x_status);
6161:
6162: IF (x_status <> -1) THEN
6163: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6164: RETURN;
6165: END IF;
6166: END IF;
6167:
6181: x_error_msg => x_error_msg,
6182: x_status => x_status);
6183:
6184: IF (x_status <> -1) THEN
6185: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6186: RETURN;
6187: END IF;
6188:
6189: --+
6203: x_error_msg => x_error_msg,
6204: x_status => x_status);
6205:
6206: IF (x_status <> -1) THEN
6207: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6208: RETURN;
6209: END IF;
6210: END IF;
6211:
6227: l_attribute := FTE_RTG_GLOBALS.G_C_CONTINUOUS_MOVE_DH_RT;
6228: l_precedence := G_CONST_PRECEDENCE_LOW;
6229:
6230: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
6231: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Creating ' || l_description);
6232: END IF;
6233:
6234: l_rate_line_data('ACTION') := G_ACTION;
6235: l_rate_line_data('LINE_NUMBER') := l_linenum;
6254: l_rate_line_data.DELETE;
6255: l_rate_line_block_tbl.DELETE;
6256:
6257: IF (x_status <> -1) THEN
6258: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6259: RETURN;
6260: END IF;
6261:
6262: --+
6274: x_error_msg => x_error_msg,
6275: x_status => x_status);
6276:
6277: IF (x_status <> -1) THEN
6278: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6279: RETURN;
6280: END IF;
6281:
6282: --+
6294: x_error_msg => x_error_msg,
6295: x_status => x_status);
6296:
6297: IF (x_status <> -1) THEN
6298: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6299: RETURN;
6300: END IF;
6301:
6302: --+
6314: x_error_msg => x_error_msg,
6315: x_status => x_status);
6316:
6317: IF (x_status <> -1) THEN
6318: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6319: RETURN;
6320: END IF;
6321:
6322: --+
6336: x_error_msg => x_error_msg,
6337: x_status => x_status);
6338:
6339: IF (x_status <> -1) THEN
6340: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6341: RETURN;
6342: END IF;
6343:
6344:
6361: x_error_msg => x_error_msg,
6362: x_status => x_status);
6363:
6364: IF (x_status <> -1) THEN
6365: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6366: RETURN;
6367: END IF;
6368: END IF;
6369: END IF;
6383: x_error_msg => x_error_msg,
6384: x_status => x_status);
6385:
6386: ELSE
6387: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_FLAT_MIN_NOT_ALLOWED');
6388: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
6389: p_module_name => l_module_name,
6390: p_category => 'D',
6391: p_line_number => p_line_number + i + 1);
6384: x_status => x_status);
6385:
6386: ELSE
6387: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_FLAT_MIN_NOT_ALLOWED');
6388: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
6389: p_module_name => l_module_name,
6390: p_category => 'D',
6391: p_line_number => p_line_number + i + 1);
6392: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6388: FTE_UTIL_PKG.Write_OutFile(p_msg => x_error_msg,
6389: p_module_name => l_module_name,
6390: p_category => 'D',
6391: p_line_number => p_line_number + i + 1);
6392: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6393: x_status := 2;
6394: RETURN;
6395: END IF;
6396:
6394: RETURN;
6395: END IF;
6396:
6397: IF (x_status <> -1) THEN
6398: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6399: RETURN;
6400: END IF;
6401: END IF;
6402:
6408:
6409: SUBMIT_TL_CHART(x_status, x_error_msg);
6410:
6411: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
6412: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Return status from SUBMIT_TL_CHART ', x_status);
6413: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Return Message from SUBMIT_TL_CHART ', x_error_msg);
6414: END IF;
6415:
6416: IF (x_status <> -1) THEN
6409: SUBMIT_TL_CHART(x_status, x_error_msg);
6410:
6411: IF (FTE_BULKLOAD_PKG.g_debug_on) THEN
6412: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Return status from SUBMIT_TL_CHART ', x_status);
6413: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Return Message from SUBMIT_TL_CHART ', x_error_msg);
6414: END IF;
6415:
6416: IF (x_status <> -1) THEN
6417: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6413: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'Return Message from SUBMIT_TL_CHART ', x_error_msg);
6414: END IF;
6415:
6416: IF (x_status <> -1) THEN
6417: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6418: RETURN;
6419: END IF;
6420:
6421: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6417: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6418: RETURN;
6419: END IF;
6420:
6421: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6422:
6423: EXCEPTION
6424: WHEN OTHERS THEN
6425: x_status := 2;
6423: EXCEPTION
6424: WHEN OTHERS THEN
6425: x_status := 2;
6426: x_error_msg := sqlerrm;
6427: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXPECTED ERROR occured in PROCESS_TL_BASE_RATES ', sqlerrm);
6428: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6429:
6430: END PROCESS_TL_BASE_RATES;
6431:
6424: WHEN OTHERS THEN
6425: x_status := 2;
6426: x_error_msg := sqlerrm;
6427: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXPECTED ERROR occured in PROCESS_TL_BASE_RATES ', sqlerrm);
6428: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6429:
6430: END PROCESS_TL_BASE_RATES;
6431:
6432: --_________________________________________________________________________________--
6476: */
6477:
6478: BEGIN
6479:
6480: FTE_UTIL_PKG.Enter_Debug(l_module_name);
6481: x_status := -1;
6482:
6483: FTE_VALIDATION_PKG.VALIDATE_COLUMNS(p_keys => p_block_header,
6484: p_type => l_type,
6485: p_line_number => p_line_number+1,
6486: x_status => x_status,
6487: x_error_msg => x_error_msg);
6488: IF (x_status <> -1) THEN
6489: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'VALIDATE_COLUMNS returned with Error');
6490: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6491: RETURN;
6492: END IF;
6493:
6486: x_status => x_status,
6487: x_error_msg => x_error_msg);
6488: IF (x_status <> -1) THEN
6489: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'VALIDATE_COLUMNS returned with Error');
6490: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6491: RETURN;
6492: END IF;
6493:
6494: FOR i IN 1..p_block_data.COUNT LOOP
6496: l_values := p_block_data(i);
6497:
6498: -- Validate ACTION.
6499: -- The valid actions for TL are ADD, DELETE and UPDATE.
6500: l_action := FTE_UTIL_PKG.GET_DATA('ACTION', l_values);
6501:
6502:
6503: FTE_VALIDATION_PKG.VALIDATE_ACTION(p_action => l_action,
6504: p_type => l_type,
6505: p_line_number => p_line_number + i + 1,
6506: x_status => x_status,
6507: x_error_msg => x_error_msg);
6508: IF (x_status <> -1) THEN
6509: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'VALIDATE_ACTION returned with Error');
6510: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6511: RETURN;
6512: END IF;
6513:
6506: x_status => x_status,
6507: x_error_msg => x_error_msg);
6508: IF (x_status <> -1) THEN
6509: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'VALIDATE_ACTION returned with Error');
6510: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6511: RETURN;
6512: END IF;
6513:
6514: --+
6525: p_lane_rate_chart_tbl=> g_lane_rate_chart_tbl,
6526: x_status => x_status,
6527: x_error_msg => x_error_msg);
6528: IF (x_status <> -1) THEN
6529: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'VALIDATE_TL_SERVICE returned with Error');
6530: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6531: RETURN;
6532: END IF;
6533:
6526: x_status => x_status,
6527: x_error_msg => x_error_msg);
6528: IF (x_status <> -1) THEN
6529: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'VALIDATE_TL_SERVICE returned with Error');
6530: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6531: RETURN;
6532: END IF;
6533:
6534: END LOOP;
6539: p_lane_service_tbl => g_lane_service_tbl,
6540: x_status => x_status,
6541: x_error_msg => x_error_msg);
6542:
6543: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6544:
6545: EXCEPTION
6546: WHEN OTHERS THEN
6547: x_status := 2;
6544:
6545: EXCEPTION
6546: WHEN OTHERS THEN
6547: x_status := 2;
6548: FTE_UTIL_PKG.Write_LogFile(l_module_name,'UNEXPECTED ERROR OCCURED IN ' || l_module_name);
6549: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6550:
6551: END PROCESS_TL_SERVICES;
6552:
6545: EXCEPTION
6546: WHEN OTHERS THEN
6547: x_status := 2;
6548: FTE_UTIL_PKG.Write_LogFile(l_module_name,'UNEXPECTED ERROR OCCURED IN ' || l_module_name);
6549: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6550:
6551: END PROCESS_TL_SERVICES;
6552:
6553:
6589: l_module_name CONSTANT VARCHAR2(100) := 'FTE.PLSQL.' || G_PKG_NAME || '.PROCESS_DATA';
6590:
6591: BEGIN
6592:
6593: FTE_UTIL_PKG.Enter_Debug(l_module_name);
6594: x_status := -1;
6595:
6596: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
6597: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_type ', p_type);
6593: FTE_UTIL_PKG.Enter_Debug(l_module_name);
6594: x_status := -1;
6595:
6596: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
6597: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_type ', p_type);
6598: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_block_header count', p_block_header.COUNT);
6599: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_block_data.count ', p_block_data.count);
6600: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_line_number ', p_line_number);
6601: END IF;
6594: x_status := -1;
6595:
6596: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
6597: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_type ', p_type);
6598: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_block_header count', p_block_header.COUNT);
6599: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_block_data.count ', p_block_data.count);
6600: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_line_number ', p_line_number);
6601: END IF;
6602:
6595:
6596: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
6597: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_type ', p_type);
6598: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_block_header count', p_block_header.COUNT);
6599: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_block_data.count ', p_block_data.count);
6600: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_line_number ', p_line_number);
6601: END IF;
6602:
6603: IF(p_block_header.COUNT =0 OR p_block_data.COUNT = 0 ) THEN
6596: IF(FTE_BULKLOAD_PKG.g_debug_on) THEN
6597: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_type ', p_type);
6598: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_block_header count', p_block_header.COUNT);
6599: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_block_data.count ', p_block_data.count);
6600: FTE_UTIL_PKG.Write_LogFile(l_module_name,'p_line_number ', p_line_number);
6601: END IF;
6602:
6603: IF(p_block_header.COUNT =0 OR p_block_data.COUNT = 0 ) THEN
6604: x_status := 2;
6601: END IF;
6602:
6603: IF(p_block_header.COUNT =0 OR p_block_data.COUNT = 0 ) THEN
6604: x_status := 2;
6605: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_COLUMN_OR_DATA_MISSING');
6606: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
6607: p_module_name => l_module_name,
6608: p_category => 'D',
6609: p_line_number => p_line_number);
6602:
6603: IF(p_block_header.COUNT =0 OR p_block_data.COUNT = 0 ) THEN
6604: x_status := 2;
6605: x_error_msg := FTE_UTIL_PKG.GET_MSG(p_name => 'FTE_COLUMN_OR_DATA_MISSING');
6606: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
6607: p_module_name => l_module_name,
6608: p_category => 'D',
6609: p_line_number => p_line_number);
6610: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6606: FTE_UTIL_PKG.Write_OutFile( p_msg => x_error_msg,
6607: p_module_name => l_module_name,
6608: p_category => 'D',
6609: p_line_number => p_line_number);
6610: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6611: RETURN;
6612: END IF;
6613:
6614: IF (p_type = 'TL_SERVICES') THEN
6645: x_error_msg => x_error_msg);
6646: ELSE
6647: -- Unreacheable code --
6648: x_status := 2;
6649: FTE_UTIL_PKG.Write_LogFile(l_module_name,'INVALID BLOCK TYPE');
6650:
6651: END IF;
6652:
6653: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6649: FTE_UTIL_PKG.Write_LogFile(l_module_name,'INVALID BLOCK TYPE');
6650:
6651: END IF;
6652:
6653: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6654:
6655: EXCEPTION
6656:
6657: WHEN OTHERS THEN
6655: EXCEPTION
6656:
6657: WHEN OTHERS THEN
6658: x_status := 2;
6659: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXPECTED ERROR OCCURED IN ' || l_module_name || sqlerrm);
6660: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6661:
6662: END PROCESS_DATA;
6663:
6656:
6657: WHEN OTHERS THEN
6658: x_status := 2;
6659: FTE_UTIL_PKG.Write_LogFile(l_module_name, 'UNEXPECTED ERROR OCCURED IN ' || l_module_name || sqlerrm);
6660: FTE_UTIL_PKG.Exit_Debug(l_module_name);
6661:
6662: END PROCESS_DATA;
6663:
6664: END FTE_TL_LOADER;