70:
71:
72: BEGIN
73:
74: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
75: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
76: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
77: 'At the start of the procedure');
78: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
71:
72: BEGIN
73:
74: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
75: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
76: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
77: 'At the start of the procedure');
78: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
79: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
74: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
75: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
76: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
77: 'At the start of the procedure');
78: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
79: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
80: 'Visit Task ID: '|| p_visit_task_id);
81: END IF;
82:
98: IF (l_x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
99: RAISE Fnd_Api.G_EXC_ERROR;
100: END IF;
101:
102: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
103: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
104: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Resource Requirements',
105: 'Return Status is: '|| l_x_return_status);
106: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
99: RAISE Fnd_Api.G_EXC_ERROR;
100: END IF;
101:
102: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
103: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
104: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Resource Requirements',
105: 'Return Status is: '|| l_x_return_status);
106: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
107: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Resource Requirements',
102: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
103: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
104: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Resource Requirements',
105: 'Return Status is: '|| l_x_return_status);
106: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
107: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Resource Requirements',
108: 'Number of Items: '||l_mat_item_tbl.COUNT );
109: END IF;
110:
122: IF (l_x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
123: RAISE Fnd_Api.G_EXC_ERROR;
124: END IF;
125:
126: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
127: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
128: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Material Requirements',
129: 'Return Status is: '|| l_x_return_status);
130: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
123: RAISE Fnd_Api.G_EXC_ERROR;
124: END IF;
125:
126: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
127: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
128: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Material Requirements',
129: 'Return Status is: '|| l_x_return_status);
130: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
131: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Material Requirements',
126: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
127: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
128: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Material Requirements',
129: 'Return Status is: '|| l_x_return_status);
130: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
131: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Material Requirements',
132: 'Number of Items: '||l_mat_item_tbl.COUNT );
133: END IF;
134:
143: x_item_tbl =>l_x_item_tbl
144: );
145:
146:
147: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
148: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
149: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Merge Items',
150: 'Number of Items: '||l_x_item_tbl.COUNT );
151: END IF;
144: );
145:
146:
147: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
148: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
149: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Merge Items',
150: 'Number of Items: '||l_x_item_tbl.COUNT );
151: END IF;
152:
172: -- Assign return status and Item without Price table
173: x_return_status:=l_x_return_status;
174: x_estimated_price := l_total_price;
175:
176: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
177: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
178: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
179: 'Return Status is: '|| x_return_status);
180: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
173: x_return_status:=l_x_return_status;
174: x_estimated_price := l_total_price;
175:
176: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
177: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
178: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
179: 'Return Status is: '|| x_return_status);
180: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
181: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
176: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
177: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
178: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
179: 'Return Status is: '|| x_return_status);
180: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
181: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
182: 'Total Price: '|| x_estimated_price);
183: END IF;
184:
212:
213:
214: BEGIN
215:
216: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
217: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
218: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
219: 'At the start of the procedure');
220: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
213:
214: BEGIN
215:
216: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
217: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
218: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
219: 'At the start of the procedure');
220: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
221: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
216: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
217: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
218: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
219: 'At the start of the procedure');
220: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
221: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
222: 'Visit Task ID: '|| p_visit_task_id);
223: END IF;
224:
233: x_item_tbl =>l_res_item_tbl ,
234: x_return_status =>l_x_return_status
235: );
236:
237: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
238: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
239: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Resource Requirements',
240: 'Return Status is: '|| l_x_return_status);
241: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
234: x_return_status =>l_x_return_status
235: );
236:
237: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
238: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
239: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Resource Requirements',
240: 'Return Status is: '|| l_x_return_status);
241: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
242: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Resource Requirements',
237: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
238: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
239: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Resource Requirements',
240: 'Return Status is: '|| l_x_return_status);
241: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
242: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Resource Requirements',
243: 'Number of Items: '||l_mat_item_tbl.COUNT );
244: END IF;
245:
251: x_item_tbl =>l_mat_item_tbl ,
252: x_return_status =>l_x_return_status
253: );
254:
255: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
256: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
257: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Material Requirements',
258: 'Return Status is: '|| l_x_return_status);
259: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
252: x_return_status =>l_x_return_status
253: );
254:
255: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
256: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
257: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Material Requirements',
258: 'Return Status is: '|| l_x_return_status);
259: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
260: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Material Requirements',
255: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
256: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
257: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Material Requirements',
258: 'Return Status is: '|| l_x_return_status);
259: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
260: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Material Requirements',
261: 'Number of Items: '||l_mat_item_tbl.COUNT );
262: END IF;
263:
271: x_item_tbl =>l_x_item_tbl
272: );
273:
274:
275: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
276: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
277: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Merge Items',
278: 'Number of Items: '||l_x_item_tbl.COUNT );
279: END IF;
272: );
273:
274:
275: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
276: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
277: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Merge Items',
278: 'Number of Items: '||l_x_item_tbl.COUNT );
279: END IF;
280:
297: -- Assign return status and Item without Price table
298: x_return_status:=l_x_return_status;
299: x_estimated_price := l_total_price;
300:
301: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
302: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
303: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
304: 'Return Status is: '|| x_return_status);
305: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
298: x_return_status:=l_x_return_status;
299: x_estimated_price := l_total_price;
300:
301: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
302: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
303: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
304: 'Return Status is: '|| x_return_status);
305: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
306: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
301: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
302: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
303: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
304: 'Return Status is: '|| x_return_status);
305: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
306: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
307: 'Total Price: '|| x_estimated_price);
308: END IF;
309:
337:
338:
339: BEGIN
340:
341: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
342: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
343: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
344: 'At the start of the procedure');
345: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
338:
339: BEGIN
340:
341: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
342: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
343: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
344: 'At the start of the procedure');
345: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
346: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
341: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
342: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
343: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
344: 'At the start of the procedure');
345: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
346: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
347: 'Visit Task ID: '|| p_visit_task_id);
348: END IF;
349:
358: x_item_tbl =>l_res_item_tbl ,
359: x_return_status =>l_x_return_status
360: );
361:
362: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
363: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
364: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Resource Transactions',
365: 'Return Status is: '|| l_x_return_status);
366: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
359: x_return_status =>l_x_return_status
360: );
361:
362: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
363: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
364: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Resource Transactions',
365: 'Return Status is: '|| l_x_return_status);
366: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
367: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Resource Transactions',
362: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
363: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
364: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Resource Transactions',
365: 'Return Status is: '|| l_x_return_status);
366: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
367: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Resource Transactions',
368: 'Number of Items: '||l_mat_item_tbl.COUNT );
369: END IF;
370:
376: x_item_tbl =>l_mat_item_tbl ,
377: x_return_status =>l_x_return_status
378: );
379:
380: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
381: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
382: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Material Transactions',
383: 'Return Status is: '|| l_x_return_status);
384: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
377: x_return_status =>l_x_return_status
378: );
379:
380: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
381: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
382: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Material Transactions',
383: 'Return Status is: '|| l_x_return_status);
384: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
385: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Material Transactions',
380: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
381: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
382: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Material Transactions',
383: 'Return Status is: '|| l_x_return_status);
384: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
385: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Checking Items for Material Transactions',
386: 'Number of Items: '||l_mat_item_tbl.COUNT );
387: END IF;
388:
396: x_item_tbl =>l_x_item_tbl
397: );
398:
399:
400: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
401: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
402: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Merge Items',
403: 'Number of Items: '||l_x_item_tbl.COUNT );
404: END IF;
397: );
398:
399:
400: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
401: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
402: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Merge Items',
403: 'Number of Items: '||l_x_item_tbl.COUNT );
404: END IF;
405:
422: -- Assign return status and Item without Price table
423: x_return_status:=l_x_return_status;
424: x_actual_price := l_total_price;
425:
426: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
427: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
428: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
429: 'Return Status is: '|| x_return_status);
430: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
423: x_return_status:=l_x_return_status;
424: x_actual_price := l_total_price;
425:
426: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
427: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
428: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
429: 'Return Status is: '|| x_return_status);
430: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
431: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
426: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
427: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
428: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
429: 'Return Status is: '|| x_return_status);
430: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
431: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
432: 'Total Price: '|| x_actual_price);
433: END IF;
434:
483:
484: -- Standard Start of API savepoint
485: SAVEPOINT Get_Item_Price;
486:
487: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
488: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
489: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
490: 'At the start of the procedure');
491: END IF;
484: -- Standard Start of API savepoint
485: SAVEPOINT Get_Item_Price;
486:
487: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
488: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
489: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
490: 'At the start of the procedure');
491: END IF;
492:
520: l_line_rec.currency_code := p_currency_code; -- Currency Code
521: l_line_rec.price_flag := 'Y'; -- Price Flag can have 'Y' , 'N'(No pricing) , 'P'(Phase)
522: l_p_line_tbl(1) := l_line_rec;
523:
524: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
525: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
526: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Request Line',
527: 'Line ID: '||l_p_line_tbl(1).line_id );
528: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
521: l_line_rec.price_flag := 'Y'; -- Price Flag can have 'Y' , 'N'(No pricing) , 'P'(Phase)
522: l_p_line_tbl(1) := l_line_rec;
523:
524: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
525: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
526: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Request Line',
527: 'Line ID: '||l_p_line_tbl(1).line_id );
528: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
529: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Request Line',
524: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
525: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
526: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Request Line',
527: 'Line ID: '||l_p_line_tbl(1).line_id );
528: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
529: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Request Line',
530: 'Effective Dates: '||l_p_line_tbl(1).pricing_effective_date );
531: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
532: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Request Line',
527: 'Line ID: '||l_p_line_tbl(1).line_id );
528: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
529: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Request Line',
530: 'Effective Dates: '||l_p_line_tbl(1).pricing_effective_date );
531: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
532: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Request Line',
533: 'UOM Code: '||l_p_line_tbl(1).line_uom_code );
534: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
535: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Request Line',
530: 'Effective Dates: '||l_p_line_tbl(1).pricing_effective_date );
531: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
532: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Request Line',
533: 'UOM Code: '||l_p_line_tbl(1).line_uom_code );
534: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
535: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Request Line',
536: 'Currency: '||l_p_line_tbl(1).currency_code );
537: END IF;
538: -- Pricing Attributes Passed In
543: l_line_attr_rec.PRICING_ATTR_VALUE_FROM := p_item_id; -- Inventory Item Id
544: l_line_attr_rec.VALIDATED_FLAG :='N';
545: l_p_line_attr_tbl(1):= l_line_attr_rec;
546:
547: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
548: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
549: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Pricing Attributes',
550: 'Item ID: '||l_p_line_attr_tbl(1).PRICING_ATTR_VALUE_FROM );
551: END IF;
544: l_line_attr_rec.VALIDATED_FLAG :='N';
545: l_p_line_attr_tbl(1):= l_line_attr_rec;
546:
547: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
548: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
549: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Pricing Attributes',
550: 'Item ID: '||l_p_line_attr_tbl(1).PRICING_ATTR_VALUE_FROM );
551: END IF;
552:
559: l_line_attr_rec.PRICING_ATTR_VALUE_FROM := l_duration; -- resource duration
560: l_line_attr_rec.VALIDATED_FLAG :='N';
561: l_p_line_attr_tbl(2):= l_line_attr_rec;
562:
563: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
564: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
565: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Pricing Attributes',
566: 'Duration: '||l_p_line_attr_tbl(2).PRICING_ATTR_VALUE_FROM );
567: END IF;
560: l_line_attr_rec.VALIDATED_FLAG :='N';
561: l_p_line_attr_tbl(2):= l_line_attr_rec;
562:
563: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
564: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
565: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Pricing Attributes',
566: 'Duration: '||l_p_line_attr_tbl(2).PRICING_ATTR_VALUE_FROM );
567: END IF;
568:
575: l_qual_rec.COMPARISON_OPERATOR_CODE := '=';
576: l_qual_rec.VALIDATED_FLAG :='N';
577: l_p_qual_tbl(1):= l_qual_rec;
578:
579: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
580: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
581: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Qualifiers',
582: 'Price List ID: '||l_p_qual_tbl(1).QUALIFIER_ATTR_VALUE_FROM );
583: END IF;
576: l_qual_rec.VALIDATED_FLAG :='N';
577: l_p_qual_tbl(1):= l_qual_rec;
578:
579: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
580: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
581: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Qualifiers',
582: 'Price List ID: '||l_p_qual_tbl(1).QUALIFIER_ATTR_VALUE_FROM );
583: END IF;
584: --- Customer
589: l_qual_rec.COMPARISON_OPERATOR_CODE := '=';
590: l_qual_rec.VALIDATED_FLAG :='N';
591: l_p_qual_tbl(2):= l_qual_rec;
592:
593: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
594: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
595: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Qualifiers',
596: 'Customer ID: '||l_p_qual_tbl(2).QUALIFIER_ATTR_VALUE_FROM );
597: END IF;
590: l_qual_rec.VALIDATED_FLAG :='N';
591: l_p_qual_tbl(2):= l_qual_rec;
592:
593: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
594: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
595: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Qualifiers',
596: 'Customer ID: '||l_p_qual_tbl(2).QUALIFIER_ATTR_VALUE_FROM );
597: END IF;
598: -- Actual Call to the Pricing Engine
615: l_x_return_status,
616: l_x_return_status_text);
617:
618: -- Return Status Information ..
619: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
620: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
621: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Pricing API call',
622: 'Return Status: '||l_x_return_status );
623: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
616: l_x_return_status_text);
617:
618: -- Return Status Information ..
619: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
620: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
621: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Pricing API call',
622: 'Return Status: '||l_x_return_status );
623: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
624: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Pricing API call',
619: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
620: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
621: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Pricing API call',
622: 'Return Status: '||l_x_return_status );
623: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
624: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Pricing API call',
625: 'Return Status text: '||l_x_return_status_text );
626: END IF;
627:
639: I := l_x_line_tbl.FIRST;
640: IF I IS NOT NULL THEN
641: LOOP
642:
643: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
644: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
645: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Pricing API call',
646: 'Line Index: '||l_x_line_tbl(I).line_index );
647: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
640: IF I IS NOT NULL THEN
641: LOOP
642:
643: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
644: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
645: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Pricing API call',
646: 'Line Index: '||l_x_line_tbl(I).line_index );
647: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
648: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Pricing API call',
643: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
644: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
645: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Pricing API call',
646: 'Line Index: '||l_x_line_tbl(I).line_index );
647: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
648: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Pricing API call',
649: 'Unit Price: '||l_x_line_tbl(I).unit_price );
650: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
651: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Pricing API call',
646: 'Line Index: '||l_x_line_tbl(I).line_index );
647: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
648: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Pricing API call',
649: 'Unit Price: '||l_x_line_tbl(I).unit_price );
650: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
651: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Pricing API call',
652: 'Adjusted Unit Price: '||l_x_line_tbl(I).adjusted_unit_price );
653: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
654: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Pricing API call',
649: 'Unit Price: '||l_x_line_tbl(I).unit_price );
650: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
651: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Pricing API call',
652: 'Adjusted Unit Price: '||l_x_line_tbl(I).adjusted_unit_price );
653: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
654: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Pricing API call',
655: 'Line Status Code: '||l_x_line_tbl(I).status_code );
656: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
657: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Pricing API call',
652: 'Adjusted Unit Price: '||l_x_line_tbl(I).adjusted_unit_price );
653: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
654: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Pricing API call',
655: 'Line Status Code: '||l_x_line_tbl(I).status_code );
656: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
657: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': After Pricing API call',
658: 'Line Status Text: '||l_x_line_tbl(I).status_text );
659: END IF;
660:
667:
668: -- Assign return status
669: x_return_status:=l_x_return_status;
670:
671: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
672: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
673: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
674: 'Return Status is: '|| x_return_status);
675: END IF;
668: -- Assign return status
669: x_return_status:=l_x_return_status;
670:
671: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
672: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
673: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
674: 'Return Status is: '|| x_return_status);
675: END IF;
676:
715: l_api_name CONSTANT VARCHAR2(30) := 'Get_Items_without_Price';
716:
717: BEGIN
718:
719: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
720: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
721: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
722: 'At the start of the procedure');
723: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
716:
717: BEGIN
718:
719: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
720: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
721: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
722: 'At the start of the procedure');
723: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
724: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
719: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
720: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
721: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
722: 'At the start of the procedure');
723: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
724: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
725: 'Number of Items to check: '|| p_item_tbl.count);
726: END IF;
727:
735: I := p_item_tbl.FIRST;
736: IF I IS NOT NULL THEN
737: LOOP
738:
739: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
740: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
741: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': In Loop',
742: 'Loop Index: '||I );
743: END IF;
736: IF I IS NOT NULL THEN
737: LOOP
738:
739: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
740: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
741: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': In Loop',
742: 'Loop Index: '||I );
743: END IF;
744:
772: -- Assign return status and Item without Price table
773: x_return_status:=l_x_return_status;
774: x_item_tbl:= l_item_tbl;
775:
776: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
777: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
778: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
779: 'Return Status is: '|| x_return_status);
780: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
773: x_return_status:=l_x_return_status;
774: x_item_tbl:= l_item_tbl;
775:
776: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
777: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
778: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
779: 'Return Status is: '|| x_return_status);
780: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
781: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
776: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
777: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
778: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
779: 'Return Status is: '|| x_return_status);
780: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
781: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
782: 'Number of Items without Price: '|| x_item_tbl.count);
783: END IF;
784:
853: l_api_name CONSTANT VARCHAR2(30) := 'Check_Item_for_Prod_Mat_Req';
854:
855: BEGIN
856:
857: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
858: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
859: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
860: 'At the start of the procedure');
861: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
854:
855: BEGIN
856:
857: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
858: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
859: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
860: 'At the start of the procedure');
861: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
862: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
857: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
858: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
859: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
860: 'At the start of the procedure');
861: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
862: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
863: 'Visit Task ID: '|| p_visit_task_id);
864:
865: END IF;
891: -- Assign return status and Item without Price table
892: x_return_status:=l_x_return_status;
893: x_item_tbl:= l_x_item_tbl;
894:
895: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
896: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
897: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
898: 'Return Status is: '|| x_return_status);
899: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
892: x_return_status:=l_x_return_status;
893: x_item_tbl:= l_x_item_tbl;
894:
895: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
896: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
897: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
898: 'Return Status is: '|| x_return_status);
899: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
900: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
895: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
896: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
897: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
898: 'Return Status is: '|| x_return_status);
899: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
900: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
901: 'Number of Items for material requirements: '|| x_item_tbl.count);
902: END IF;
903:
960: l_api_name CONSTANT VARCHAR2(30) := 'Check_Item_for_Prod_Res_Req';
961:
962: BEGIN
963:
964: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
965: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
966: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
967: 'At the start of the procedure');
968: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
961:
962: BEGIN
963:
964: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
965: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
966: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
967: 'At the start of the procedure');
968: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
969: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
964: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
965: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
966: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
967: 'At the start of the procedure');
968: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
969: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
970: 'Visit Task ID: '|| p_visit_task_id);
971:
972: END IF;
1014: -- Assign return status and Item without Price table
1015: x_return_status:=l_x_return_status;
1016: x_item_tbl:= l_x_item_tbl;
1017:
1018: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1019: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1020: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1021: 'Return Status is: '|| x_return_status);
1022: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1015: x_return_status:=l_x_return_status;
1016: x_item_tbl:= l_x_item_tbl;
1017:
1018: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1019: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1020: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1021: 'Return Status is: '|| x_return_status);
1022: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1023: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1018: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1019: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1020: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1021: 'Return Status is: '|| x_return_status);
1022: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1023: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1024: 'Number of Items for resource requirements: '|| x_item_tbl.count);
1025: END IF;
1026:
1114: l_api_name CONSTANT VARCHAR2(30) := 'Check_Item_for_Rt_Mat_Req';
1115:
1116: BEGIN
1117:
1118: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1119: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1120: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1121: 'At the start of the procedure');
1122: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1115:
1116: BEGIN
1117:
1118: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1119: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1120: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1121: 'At the start of the procedure');
1122: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1123: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1118: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1119: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1120: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1121: 'At the start of the procedure');
1122: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1123: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1124: 'Visit Task ID: '|| p_visit_task_id);
1125: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1126: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1121: 'At the start of the procedure');
1122: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1123: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1124: 'Visit Task ID: '|| p_visit_task_id);
1125: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1126: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1127: 'Route ID: '|| p_route_id);
1128: END IF;
1129:
1152: l_x_item_tbl(I).UOM_code :=l_rt_material_req_rec.uom_code;
1153: l_x_item_tbl(I).effective_date :=p_effective_date;
1154: l_x_item_tbl(I).Visit_Task_Id :=p_visit_task_id;
1155:
1156: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1157: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1158: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': In Loop',
1159: 'Item Quantity: '||I||'...'||l_x_item_tbl(I).quantity );
1160: END IF;
1153: l_x_item_tbl(I).effective_date :=p_effective_date;
1154: l_x_item_tbl(I).Visit_Task_Id :=p_visit_task_id;
1155:
1156: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1157: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1158: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': In Loop',
1159: 'Item Quantity: '||I||'...'||l_x_item_tbl(I).quantity );
1160: END IF;
1161:
1189: l_x_item_tbl(I).UOM_code :=l_oper_material_req_rec.uom_code;
1190: l_x_item_tbl(I).effective_date :=p_effective_date;
1191: l_x_item_tbl(I).Visit_Task_Id :=p_visit_task_id;
1192:
1193: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1194: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1195: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': In Loop',
1196: 'Item Quantity: '||I||'...'||l_x_item_tbl(I).quantity );
1197: END IF;
1190: l_x_item_tbl(I).effective_date :=p_effective_date;
1191: l_x_item_tbl(I).Visit_Task_Id :=p_visit_task_id;
1192:
1193: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1194: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1195: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': In Loop',
1196: 'Item Quantity: '||I||'...'||l_x_item_tbl(I).quantity );
1197: END IF;
1198:
1209: -- Assign return status and Item without Price table
1210: x_return_status:=l_x_return_status;
1211: x_item_tbl:= l_x_item_tbl;
1212:
1213: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1214: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1215: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1216: 'Return Status is: '|| x_return_status);
1217: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1210: x_return_status:=l_x_return_status;
1211: x_item_tbl:= l_x_item_tbl;
1212:
1213: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1214: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1215: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1216: 'Return Status is: '|| x_return_status);
1217: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1218: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1213: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1214: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1215: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1216: 'Return Status is: '|| x_return_status);
1217: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1218: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1219: 'Number of Items for material requirements: '|| x_item_tbl.count);
1220: END IF;
1221:
1362: l_api_name CONSTANT VARCHAR2(30) := 'Check_Item_for_Rt_Res_Req';
1363:
1364: BEGIN
1365:
1366: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1367: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1368: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1369: 'At the start of the procedure');
1370: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1363:
1364: BEGIN
1365:
1366: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1367: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1368: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1369: 'At the start of the procedure');
1370: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1371: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1366: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1367: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1368: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1369: 'At the start of the procedure');
1370: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1371: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1372: 'Visit Task ID: '|| p_visit_task_id);
1373: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1374: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1369: 'At the start of the procedure');
1370: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1371: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1372: 'Visit Task ID: '|| p_visit_task_id);
1373: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1374: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1375: 'Route ID: '|| p_route_id);
1376: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1377: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1372: 'Visit Task ID: '|| p_visit_task_id);
1373: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1374: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1375: 'Route ID: '|| p_route_id);
1376: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1377: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1378: 'Organization ID: '|| p_organization_id);
1379: END IF;
1380:
1487: -- Assign return status and Item without Price table
1488: x_return_status:=l_x_return_status;
1489: x_item_tbl:= l_x_item_tbl;
1490:
1491: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1492: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1493: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1494: 'Return Status is: '|| x_return_status);
1495: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1488: x_return_status:=l_x_return_status;
1489: x_item_tbl:= l_x_item_tbl;
1490:
1491: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1492: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1493: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1494: 'Return Status is: '|| x_return_status);
1495: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1496: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1491: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1492: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1493: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1494: 'Return Status is: '|| x_return_status);
1495: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1496: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1497: 'Number of Items for resource requirements: '|| x_item_tbl.count);
1498: END IF;
1499:
1556: l_api_name CONSTANT VARCHAR2(30) := 'Check_Item_for_Resource_Trans';
1557:
1558: BEGIN
1559:
1560: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1561: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1562: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1563: 'At the start of the procedure');
1564: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1557:
1558: BEGIN
1559:
1560: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1561: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1562: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1563: 'At the start of the procedure');
1564: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1565: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1560: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1561: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1562: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1563: 'At the start of the procedure');
1564: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1565: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1566: 'Visit Task ID: '|| p_visit_task_id);
1567:
1568: END IF;
1594: -- Assign return status and Item without Price table
1595: x_return_status:=l_x_return_status;
1596: x_item_tbl:= l_x_item_tbl;
1597:
1598: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1599: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1600: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1601: 'Return Status is: '|| x_return_status);
1602: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1595: x_return_status:=l_x_return_status;
1596: x_item_tbl:= l_x_item_tbl;
1597:
1598: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1599: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1600: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1601: 'Return Status is: '|| x_return_status);
1602: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1603: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1598: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1599: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1600: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1601: 'Return Status is: '|| x_return_status);
1602: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1603: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1604: 'Number of Items for resource transactions: '|| x_item_tbl.count);
1605: END IF;
1606:
1685: l_api_name CONSTANT VARCHAR2(30) := 'Check_Item_for_Prod_Mat_Req';
1686:
1687: BEGIN
1688:
1689: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1690: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1691: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1692: 'At the start of the procedure');
1693: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1686:
1687: BEGIN
1688:
1689: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1690: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1691: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1692: 'At the start of the procedure');
1693: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1694: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1689: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1690: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1691: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1692: 'At the start of the procedure');
1693: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1694: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1695: 'Visit Task ID: '|| p_visit_task_id);
1696:
1697: END IF;
1723: -- Assign return status and Item without Price table
1724: x_return_status:=l_x_return_status;
1725: x_item_tbl:= l_x_item_tbl;
1726:
1727: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1728: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1729: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1730: 'Return Status is: '|| x_return_status);
1731: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1724: x_return_status:=l_x_return_status;
1725: x_item_tbl:= l_x_item_tbl;
1726:
1727: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1728: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1729: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1730: 'Return Status is: '|| x_return_status);
1731: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1732: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1727: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1728: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1729: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1730: 'Return Status is: '|| x_return_status);
1731: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1732: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1733: 'Number of Items for material transactions: '|| x_item_tbl.count);
1734: END IF;
1735:
1759:
1760:
1761: BEGIN
1762:
1763: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1764: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1765: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1766: 'At the start of the procedure');
1767: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1760:
1761: BEGIN
1762:
1763: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1764: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1765: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1766: 'At the start of the procedure');
1767: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1768: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1763: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1764: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1765: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1766: 'At the start of the procedure');
1767: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1768: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1769: 'Number of Items to calculate: '|| p_item_tbl.count);
1770: END IF;
1771:
1777: I := p_item_tbl.FIRST;
1778: IF I IS NOT NULL THEN
1779: LOOP
1780:
1781: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1782: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1783: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': In Loop',
1784: 'Loop Index: '||I );
1785: END IF;
1778: IF I IS NOT NULL THEN
1779: LOOP
1780:
1781: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1782: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1783: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': In Loop',
1784: 'Loop Index: '||I );
1785: END IF;
1786:
1802: -- And add the result to total price
1803: -- Consider the item price as 0 if item is not set up in price list
1804: IF (l_x_item_price IS NOT NULL) THEN
1805:
1806: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1807: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1808: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': In Loop',
1809: 'Item Quantity: '||p_item_tbl(I).quantity );
1810: END IF;
1803: -- Consider the item price as 0 if item is not set up in price list
1804: IF (l_x_item_price IS NOT NULL) THEN
1805:
1806: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1807: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1808: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': In Loop',
1809: 'Item Quantity: '||p_item_tbl(I).quantity );
1810: END IF;
1811:
1810: END IF;
1811:
1812: l_total_price := l_total_price + l_x_item_price * p_item_tbl(I).quantity;
1813:
1814: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1815: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1816: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': In Loop',
1817: 'Current Total Price: '||l_total_price );
1818: END IF;
1811:
1812: l_total_price := l_total_price + l_x_item_price * p_item_tbl(I).quantity;
1813:
1814: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1815: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1816: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': In Loop',
1817: 'Current Total Price: '||l_total_price );
1818: END IF;
1819: END IF;
1826: -- Assign return status and Item without Price table
1827: x_return_status:=l_x_return_status;
1828: x_total_price := l_total_price;
1829:
1830: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1831: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1832: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1833: 'Return Status is: '|| x_return_status);
1834: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1827: x_return_status:=l_x_return_status;
1828: x_total_price := l_total_price;
1829:
1830: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1831: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1832: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1833: 'Return Status is: '|| x_return_status);
1834: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1835: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1830: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1831: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1832: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1833: 'Return Status is: '|| x_return_status);
1834: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1835: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1836: 'Total Price: '|| x_total_price);
1837: END IF;
1838: END Calculate_Total_Price;
1865: l_api_name CONSTANT VARCHAR2(30) := 'Check_UOM_Class';
1866:
1867: BEGIN
1868:
1869: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1870: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1871: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1872: 'At the start of the procedure');
1873: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1866:
1867: BEGIN
1868:
1869: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1870: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1871: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1872: 'At the start of the procedure');
1873: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1874: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1869: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1870: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1871: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1872: 'At the start of the procedure');
1873: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1874: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': Begin API',
1875: 'UOM Code: '|| p_UOM_code);
1876:
1877: END IF;
1889: END IF;
1890:
1891: CLOSE get_uom_csr;
1892:
1893: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1894: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1895: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1896: 'Time Type flag is: '|| x_time_type_flag);
1897: END IF;
1890:
1891: CLOSE get_uom_csr;
1892:
1893: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1894: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1895: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||': End API',
1896: 'Time Type flag is: '|| x_time_type_flag);
1897: END IF;
1898: