DBA Data[Home] [Help]

APPS.AHL_LTP_MTL_REQ_PVT dependencies on FND_LOG

Line 31: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

27: G_MAPPING_STATUS_EMPTY CONSTANT VARCHAR2(30) := 'EMPTY';
28: G_MAPPING_STATUS_NA CONSTANT VARCHAR2(30) := 'NA';
29:
30: -- Added by skpathak on 06-NOV-2008 for bug-7336824
31: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
32: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
33: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
34: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
35: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;

Line 32: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;

28: G_MAPPING_STATUS_NA CONSTANT VARCHAR2(30) := 'NA';
29:
30: -- Added by skpathak on 06-NOV-2008 for bug-7336824
31: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
32: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
33: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
34: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
35: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
36:

Line 33: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;

29:
30: -- Added by skpathak on 06-NOV-2008 for bug-7336824
31: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
32: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
33: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
34: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
35: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
36:
37: -------------------------------------------------

Line 34: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;

30: -- Added by skpathak on 06-NOV-2008 for bug-7336824
31: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
32: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
33: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
34: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
35: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
36:
37: -------------------------------------------------
38: -- Declare Locally used Record and Table Types --

Line 35: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;

31: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
32: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
33: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
34: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
35: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
36:
37: -------------------------------------------------
38: -- Declare Locally used Record and Table Types --
39: -------------------------------------------------

Line 232: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');

228:
229: BEGIN
230:
231: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
232: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
233: END IF;
234: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
235: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Input values for the Procedure: ' ||
236: 'p_route_id = ' || p_route_id ||

Line 235: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Input values for the Procedure: ' ||

231: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
232: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
233: END IF;
234: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
235: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Input values for the Procedure: ' ||
236: 'p_route_id = ' || p_route_id ||
237: ', p_mr_route_id = ' || p_mr_route_id ||
238: ', p_item_instance_id = ' || p_item_instance_id ||
239: ', p_requirement_date = ' || p_requirement_date ||

Line 316: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'l_disp_req_list.COUNT = ' || l_disp_req_list.COUNT);

312: ELSIF (l_route_req_list.COUNT = 0) THEN
313: x_route_mtl_req_tbl := l_disp_req_list;
314: ELSE
315: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
316: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'l_disp_req_list.COUNT = ' || l_disp_req_list.COUNT);
317: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'l_route_req_list.COUNT = ' || l_route_req_list.COUNT);
318: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Both lists are non-empty. Merging...');
319: END IF;
320: x_route_mtl_req_tbl := l_disp_req_list;

Line 317: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'l_route_req_list.COUNT = ' || l_route_req_list.COUNT);

313: x_route_mtl_req_tbl := l_disp_req_list;
314: ELSE
315: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
316: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'l_disp_req_list.COUNT = ' || l_disp_req_list.COUNT);
317: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'l_route_req_list.COUNT = ' || l_route_req_list.COUNT);
318: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Both lists are non-empty. Merging...');
319: END IF;
320: x_route_mtl_req_tbl := l_disp_req_list;
321: l_index := x_route_mtl_req_tbl.COUNT;

Line 318: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Both lists are non-empty. Merging...');

314: ELSE
315: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
316: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'l_disp_req_list.COUNT = ' || l_disp_req_list.COUNT);
317: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'l_route_req_list.COUNT = ' || l_route_req_list.COUNT);
318: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Both lists are non-empty. Merging...');
319: END IF;
320: x_route_mtl_req_tbl := l_disp_req_list;
321: l_index := x_route_mtl_req_tbl.COUNT;
322: FOR i in l_route_req_list.FIRST .. l_route_req_list.LAST LOOP

Line 337: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Adding Route requirement with index ' || i ||

333: END LOOP;
334: IF(l_found = FALSE) THEN
335: -- Add this Route requirement to the combined list
336: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
337: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Adding Route requirement with index ' || i ||
338: ' to the combined list.');
339: END IF;
340: l_index := l_index + 1;
341: x_route_mtl_req_tbl(l_index) := l_route_req_list(i);

Line 345: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Route requirement with index ' || i || ' is a duplicate. Ignoring.');

341: x_route_mtl_req_tbl(l_index) := l_route_req_list(i);
342: ELSE
343: -- Duplicate: Ignore
344: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
345: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Route requirement with index ' || i || ' is a duplicate. Ignoring.');
346: END IF;
347: END IF;
348: END LOOP;
349: END IF;

Line 352: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Size of the merged list: ' || x_route_mtl_req_tbl.COUNT);

348: END LOOP;
349: END IF;
350:
351: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
352: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Size of the merged list: ' || x_route_mtl_req_tbl.COUNT);
353: END IF;
354:
355: -- Get the first item for item groups if forecasting
356: IF(x_route_mtl_req_tbl.COUNT > 0 AND p_request_type = G_REQ_TYPE_FORECAST) THEN

Line 366: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'For merged requirement ' || i ||

362: FETCH get_item_group_item_csr INTO x_route_mtl_req_tbl(i).INVENTORY_ITEM_ID,
363: x_route_mtl_req_tbl(i).INV_MASTER_ORG_ID;
364: CLOSE get_item_group_item_csr;
365: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
366: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'For merged requirement ' || i ||
367: ', Got Item Id as ' || x_route_mtl_req_tbl(i).INVENTORY_ITEM_ID ||
368: ' for item group id ' || x_route_mtl_req_tbl(i).ITEM_GROUP_ID);
369: END IF;
370: END IF;

Line 382: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');

378: p_encoded => fnd_api.g_false
379: );
380:
381: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
382: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
383: END IF;
384:
385: EXCEPTION
386: WHEN FND_API.G_EXC_ERROR THEN

Line 480: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Could not convert from ' || p_source_uom_code ||

476: to_name => null);
477: IF (l_converted_qty < 0) THEN
478: l_converted_qty := null;
479: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
480: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Could not convert from ' || p_source_uom_code ||
481: ' to ' || l_primary_uom || '. Returning null quantity.');
482: END IF;
483: END IF;
484: RETURN l_converted_qty;

Line 585: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');

581:
582: BEGIN
583:
584: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
585: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
586: END IF;
587:
588: -- Get the Route Id
589: IF (p_route_id IS NULL AND p_mr_route_id IS NULL) THEN

Line 593: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);

589: IF (p_route_id IS NULL AND p_mr_route_id IS NULL) THEN
590: FND_MESSAGE.Set_Name('AHL', 'AHL_LTP_APS_ROUTE_ID_NULL');
591: FND_MSG_PUB.ADD;
592: IF (G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
593: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);
594: END IF;
595: ELSIF (p_route_id IS NULL) THEN
596: OPEN get_route_id_csr;
597: FETCH get_route_id_csr INTO x_route_id;

Line 611: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);

607: FND_MESSAGE.Set_Name('AHL', 'AHL_LTP_APS_ROUTE_ID_INVALID');
608: FND_MESSAGE.Set_Token('ROUTE_ID', x_route_id);
609: FND_MSG_PUB.ADD;
610: IF (G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
611: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);
612: END IF;
613: END IF;
614: CLOSE validate_route_id_csr;
615:

Line 621: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);

617: IF (p_item_instance_id IS NULL) THEN
618: FND_MESSAGE.Set_Name('AHL', 'AHL_LTP_APS_INST_ID_NULL');
619: FND_MSG_PUB.ADD;
620: IF (G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
621: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);
622: END IF;
623: ELSE
624: OPEN check_visit_tasks_status_csr;
625: FETCH check_visit_tasks_status_csr INTO l_dummy;

Line 634: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);

630: FND_MESSAGE.Set_Name('AHL', 'AHL_LTP_APS_INST_ID_INVALID');
631: FND_MESSAGE.Set_Token('INST_ID', p_item_instance_id);
632: FND_MSG_PUB.ADD;
633: IF (G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
634: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);
635: END IF;
636: END IF;
637: CLOSE validate_instance_id_csr;
638: END IF;

Line 647: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);

643: IF (p_request_type IS NULL) THEN
644: FND_MESSAGE.Set_Name('AHL', 'AHL_LTP_APS_REQ_TYPE_NULL');
645: FND_MSG_PUB.ADD;
646: IF (G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
647: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);
648: END IF;
649: ELSIF (p_request_type NOT IN (G_REQ_TYPE_FORECAST, G_REQ_TYPE_PLANNED)) THEN
650: FND_MESSAGE.Set_Name('AHL', 'AHL_LTP_APS_REQ_TYPE_INVALID');
651: FND_MESSAGE.Set_Token('REQ_TYPE', p_request_type);

Line 654: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);

650: FND_MESSAGE.Set_Name('AHL', 'AHL_LTP_APS_REQ_TYPE_INVALID');
651: FND_MESSAGE.Set_Token('REQ_TYPE', p_request_type);
652: FND_MSG_PUB.ADD;
653: IF (G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
654: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);
655: END IF;
656: END IF;
657:
658: -- Validate the Requirement Date

Line 663: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);

659: IF (p_requirement_date IS NULL) THEN
660: FND_MESSAGE.Set_Name('AHL', 'AHL_LTP_APS_REQ_DATE_NULL');
661: FND_MSG_PUB.ADD;
662: IF (G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
663: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);
664: END IF;
665: -- SKPATHAK :: Bug 8343599 :: 13-APR-2009
666: -- Removing the check to allow creation of Material Requirements in the past.
667: /**

Line 673: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);

669: FND_MESSAGE.Set_Name('AHL', 'AHL_LTP_APS_REQ_DATE_PAST');
670: FND_MESSAGE.Set_Token('REQ_DATE', p_requirement_date);
671: FND_MSG_PUB.ADD;
672: IF (G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
673: FND_LOG.MESSAGE(G_LEVEL_ERROR, L_DEBUG_KEY, FALSE);
674: END IF;
675: **/
676: END IF;
677:

Line 679: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');

675: **/
676: END IF;
677:
678: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
679: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
680: END IF;
681:
682: END Validate_Mtl_Req_Input;
683:

Line 761: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');

757:
758: BEGIN
759:
760: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
761: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
762: END IF;
763:
764: -- Get the Route Effectivity
765: OPEN get_mc_route_eff_id_csr;

Line 782: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'No disposition list found for MC Header Id: ' || p_mc_header_id

778:
779: IF(l_item_route_effectivity_id = -1 AND l_mc_route_effectivity_id = -1) THEN
780: -- No Disposition List available
781: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
782: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'No disposition list found for MC Header Id: ' || p_mc_header_id
783: || ', MC Id: ' || p_mc_id
784: || ', Item Id: ' || p_inst_item_id);
785: END IF;
786: RETURN;

Line 802: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Requirement ' || l_index || ': RT_OPER_MATERIAL_ID = ' || l_disp_req_rec.RT_OPER_MATERIAL_ID ||

798: -- Quantity in Item's Primary UOM
799: x_disp_req_list(l_index).QUANTITY := l_disp_req_rec.PRIMARY_QUANTITY;
800: x_disp_req_list(l_index).UOM_CODE := l_disp_req_rec.PRIMARY_UOM_CODE;
801: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
802: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Requirement ' || l_index || ': RT_OPER_MATERIAL_ID = ' || l_disp_req_rec.RT_OPER_MATERIAL_ID ||
803: ', INVENTORY_ITEM_ID = ' || l_disp_req_rec.INVENTORY_ITEM_ID ||
804: ', INV_MASTER_ORG_ID = ' || l_disp_req_rec.INVENTORY_ORG_ID ||
805: ', QUANTITY = ' || l_disp_req_rec.PRIMARY_QUANTITY ||
806: ', UOM_CODE = ' || l_disp_req_rec.PRIMARY_UOM_CODE);

Line 815: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Requirement ' || l_index || ': RT_OPER_MATERIAL_ID = ' || l_disp_req_rec.RT_OPER_MATERIAL_ID ||

811: x_disp_req_list(l_index).ITEM_GROUP_ID := l_disp_req_rec.ITEM_GROUP_ID;
812: x_disp_req_list(l_index).QUANTITY := l_disp_req_rec.QUANTITY;
813: x_disp_req_list(l_index).UOM_CODE := l_disp_req_rec.UOM_CODE;
814: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
815: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Requirement ' || l_index || ': RT_OPER_MATERIAL_ID = ' || l_disp_req_rec.RT_OPER_MATERIAL_ID ||
816: ', ITEM_GROUP_ID = ' || l_disp_req_rec.ITEM_GROUP_ID ||
817: ', QUANTITY = ' || l_disp_req_rec.QUANTITY ||
818: ', UOM_CODE = ' || l_disp_req_rec.UOM_CODE);
819: END IF;

Line 835: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Requirement ' || l_index || ': RT_OPER_MATERIAL_ID = ' || l_disp_req_rec.RT_OPER_MATERIAL_ID ||

831: x_disp_req_list(l_index).QUANTITY,
832: x_disp_req_list(l_index).UOM_CODE;
833: CLOSE get_item_comp_dtls_csr;
834: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
835: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Requirement ' || l_index || ': RT_OPER_MATERIAL_ID = ' || l_disp_req_rec.RT_OPER_MATERIAL_ID ||
836: ', ITEM_COMP_DETAIL_ID = ' || l_disp_req_rec.ITEM_COMP_DETAIL_ID ||
837: ', INVENTORY_ITEM_ID = ' || x_disp_req_list(l_index).INVENTORY_ITEM_ID ||
838: ', INV_MASTER_ORG_ID = ' || x_disp_req_list(l_index).INV_MASTER_ORG_ID ||
839: ', ITEM_GROUP_ID = ' || x_disp_req_list(l_index).ITEM_GROUP_ID ||

Line 849: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Ignoring Disp. List Requirement with Position Path Id ' || l_disp_req_rec.POSITION_PATH_ID);

845: IF (p_mc_header_id IS NULL) THEN
846: -- Ignore this Position Path specific requirement since the current instance
847: -- is not a UC unit (is not of any MC type)
848: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
849: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Ignoring Disp. List Requirement with Position Path Id ' || l_disp_req_rec.POSITION_PATH_ID);
850: END IF;
851: ELSE
852: -- Get the Position Path requirement if applicable
853: IF (l_disp_req_rec.PATH_POS_COMMON_ID <> l_last_common_id) THEN

Line 884: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Total number of disposition requirements: ' || x_disp_req_list.COUNT);

880: l_index := x_disp_req_list.COUNT; -- Set output table index to always point to the last added record.
881: END IF;
882: END LOOP;
883: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
884: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Total number of disposition requirements: ' || x_disp_req_list.COUNT);
885: END IF;
886:
887: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
888: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');

Line 888: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');

884: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Total number of disposition requirements: ' || x_disp_req_list.COUNT);
885: END IF;
886:
887: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
888: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
889: END IF;
890:
891: END Get_Disp_List_Requirements;
892:

Line 938: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');

934:
935: BEGIN
936:
937: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
938: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
939: END IF;
940:
941: -- First validate the Position Path and get the Position Details
942: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 943: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Calling Validate_Path_Position with ' ||

939: END IF;
940:
941: -- First validate the Position Path and get the Position Details
942: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
943: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Calling Validate_Path_Position with ' ||
944: 'p_position_path_id = ' || p_position_path_id ||
945: ', p_unit_instance_id = ' || p_unit_instance_id ||
946: ', p_requirement_date = ' || p_requirement_date);
947: END IF;

Line 957: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Validate_Path_Position returned ' ||

953: x_item_group_id => l_pos_item_group_id,
954: x_pos_instance_id => l_pos_instance_id);
955:
956: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
957: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Validate_Path_Position returned ' ||
958: 'x_valid_flag = ' || l_valid_flag ||
959: ', x_relationship_id = ' || l_position_id ||
960: ', x_item_group_id = ' || l_pos_item_group_id ||
961: ', x_pos_instance_id = ' || l_pos_instance_id);

Line 974: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Position ' || l_position_id || ' is empty and has item group ' ||

970: -- The position is empty
971: -- If the position has an item group associated, copy that as the requirement
972: IF (l_pos_item_group_id IS NOT NULL) THEN
973: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
974: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Position ' || l_position_id || ' is empty and has item group ' ||
975: l_pos_item_group_id || ' associated with it.');
976: END IF;
977: p_x_disp_req_list(l_next_index).ITEM_GROUP_ID := l_pos_item_group_id;
978: ELSE

Line 985: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Chosen Sub MC Header Id ' || l_sub_unit_mc ||

981: FETCH get_sub_mc_for_pos_csr INTO l_sub_unit_mc;
982: CLOSE get_sub_mc_for_pos_csr;
983: -- Get the Item group for the root node of the chosen Sub MC
984: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
985: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Chosen Sub MC Header Id ' || l_sub_unit_mc ||
986: ' for empty position with id ' || l_position_id);
987: END IF;
988: OPEN get_item_grp_for_mc_csr(c_mc_header_id => l_sub_unit_mc);
989: FETCH get_item_grp_for_mc_csr INTO p_x_disp_req_list(l_next_index).ITEM_GROUP_ID;

Line 1002: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Sub unit with Sub MC Header Id ' || l_sub_unit_mc ||

998: FETCH get_sub_unit_mc_csr INTO l_sub_unit_mc;
999: IF(get_sub_unit_mc_csr%FOUND) THEN
1000: -- A sub unit (UC) is installed in the position
1001: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1002: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Sub unit with Sub MC Header Id ' || l_sub_unit_mc ||
1003: ' installed at position with id ' || l_position_id);
1004: END IF;
1005: -- Get the Item group for the root node of the Sub unit's MC
1006: OPEN get_item_grp_for_mc_csr(c_mc_header_id => l_sub_unit_mc);

Line 1013: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Simple instance with id ' || l_pos_instance_id ||

1009: ELSE
1010: -- An instance (not a sub unit) is installed in the position
1011: -- Add this position's item group as requirement to the list
1012: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1013: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Simple instance with id ' || l_pos_instance_id ||
1014: ' installed at position with id ' || l_position_id);
1015: END IF;
1016: p_x_disp_req_list(l_next_index).ITEM_GROUP_ID := l_pos_item_group_id;
1017: END IF; -- Sub unit or instance

Line 1023: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Position Id ' || l_position_id || ' corresponds to the root node.');

1019: ELSE
1020: -- Root Node
1021: -- Add the item group requirement to the list
1022: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1023: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Position Id ' || l_position_id || ' corresponds to the root node.');
1024: END IF;
1025: p_x_disp_req_list(l_next_index).ITEM_GROUP_ID := l_pos_item_group_id;
1026: END IF; -- Root node or not
1027: END IF; -- Position is empty or not

Line 1036: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Requirement ' || l_next_index || ': RT_OPER_MATERIAL_ID = ' || p_rt_oper_mtl_id ||

1032: p_x_disp_req_list(l_next_index).RELATIONSHIP_ID := l_position_id;
1033: p_x_disp_req_list(l_next_index).QUANTITY := p_quantity;
1034: p_x_disp_req_list(l_next_index).UOM_CODE := p_uom;
1035: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1036: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Requirement ' || l_next_index || ': RT_OPER_MATERIAL_ID = ' || p_rt_oper_mtl_id ||
1037: ', ITEM_GROUP_ID = ' || p_x_disp_req_list(l_next_index).ITEM_GROUP_ID ||
1038: ', POSITION_PATH_ID = ' || p_position_path_id ||
1039: ', RELATIONSHIP_ID = ' || l_position_id ||
1040: ', QUANTITY = ' || p_quantity ||

Line 1045: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');

1041: ', UOM_CODE = ' || p_uom);
1042: END IF;
1043:
1044: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1045: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1046: END IF;
1047:
1048: END Get_Pos_Path_Requirement;
1049:

Line 1356: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');

1352:
1353: BEGIN
1354:
1355: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1356: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1357: END IF;
1358:
1359: -- Get the requirements defined at the route level (if any)
1360: OPEN get_route_level_reqs_csr;

Line 1365: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Requirements for Route with Id ' || p_route_id || ' are defined at the Route level itself.');

1361: FETCH get_route_level_reqs_csr INTO l_rt_requirement_rec;
1362: IF(get_route_level_reqs_csr%FOUND) THEN
1363: -- Requirements defined at the Route level
1364: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1365: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Requirements for Route with Id ' || p_route_id || ' are defined at the Route level itself.');
1366: END IF;
1367: LOOP
1368: EXIT WHEN get_route_level_reqs_csr%NOTFOUND;
1369: -- Process this requirement

Line 1377: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Route MC:' || l_rt_requirement_rec.MC_ID || ', Visit MC: '||p_mc_id);

1373: -- Added condition for position based requirement
1374: IF (l_rt_requirement_rec. MC_ID IS NOT NULL AND l_rt_requirement_rec.POSITION_KEY IS NOT NULL) THEN
1375: -- Position Based requirement
1376: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1377: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Route MC:' || l_rt_requirement_rec.MC_ID || ', Visit MC: '||p_mc_id);
1378: END IF;
1379: IF (l_rt_requirement_rec.MC_ID = p_mc_id) THEN
1380: -- MC specified in route level and MC part of visit are same.
1381: x_route_req_list(l_index).MC_HEADER_ID := p_mc_header_id;

Line 1423: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Requirement ' || l_index || ': RT_OPER_MATERIAL_ID = ' || l_rt_requirement_rec.RT_OPER_MATERIAL_ID ||

1419: END IF;
1420:
1421: -- Modified by surrkuma for Service Bulletin on 27-Jun-2011
1422: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL AND l_index > 0) THEN
1423: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Requirement ' || l_index || ': RT_OPER_MATERIAL_ID = ' || l_rt_requirement_rec.RT_OPER_MATERIAL_ID ||
1424: ', ITEM_GROUP_ID = ' || x_route_req_list(l_index).ITEM_GROUP_ID ||
1425: ', INVENTORY_ITEM_ID = ' || x_route_req_list(l_index).INVENTORY_ITEM_ID ||
1426: ', INV_MASTER_ORG_ID = ' || x_route_req_list(l_index).INV_MASTER_ORG_ID ||
1427: ', QUANTITY = ' || x_route_req_list(l_index).QUANTITY ||

Line 1438: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Requirements for Route with Id ' || p_route_id ||

1434: ELSE
1435: -- No requirement defined at route level
1436: CLOSE get_route_level_reqs_csr;
1437: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1438: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Requirements for Route with Id ' || p_route_id ||
1439: ' are NOT defined at the Route level. Checking at the operation level.');
1440: END IF;
1441: -- AnRaj : Start for fixing perf bug 4919527
1442: -- AnRaj : Changed the code for fixing the performance bug# 4919527

Line 1446: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'p_request type is G_REQ_TYPE_FORECAST');

1442: -- AnRaj : Changed the code for fixing the performance bug# 4919527
1443: -- Split the query into 3 to avoid the cursor get_op_level_reqs_csr
1444: IF p_request_type = G_REQ_TYPE_FORECAST THEN
1445: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1446: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'p_request type is G_REQ_TYPE_FORECAST');
1447: END IF;
1448:
1449: FOR l_op_requirement_rec IN get_op_level_reqs_forecast_csr LOOP
1450: l_index := l_index + 1;

Line 1495: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Requirement ' || l_index || ': RT_OPER_MATERIAL_ID = ' || x_route_req_list(l_index).RT_OPER_MATERIAL_ID ||

1491: END IF;
1492:
1493: -- Modified by surrkuma for Service Bulletin on 27-Jun-2011
1494: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL AND l_index > 0) THEN
1495: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Requirement ' || l_index || ': RT_OPER_MATERIAL_ID = ' || x_route_req_list(l_index).RT_OPER_MATERIAL_ID ||
1496: ', ROUTE_OPERATION_ID = ' || x_route_req_list(l_index).ROUTE_OPERATION_ID ||
1497: ', ITEM_GROUP_ID = ' || x_route_req_list(l_index).ITEM_GROUP_ID ||
1498: ', INVENTORY_ITEM_ID = ' || x_route_req_list(l_index).INVENTORY_ITEM_ID ||
1499: ', INV_MASTER_ORG_ID = ' || x_route_req_list(l_index).INV_MASTER_ORG_ID ||

Line 1506: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'p_request type is G_REQ_TYPE_PLANNED');

1502: END IF;
1503: END LOOP;
1504: ELSIF p_request_type = G_REQ_TYPE_PLANNED THEN
1505: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1506: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'p_request type is G_REQ_TYPE_PLANNED');
1507: END IF;
1508:
1509: -- Begin changes by jaramana on 22-OCT-2009 for bug 9037150
1510: -- Do a high level check for presence of operation level mtl requirements before

Line 1563: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Requirement ' || l_index || ': RT_OPER_MATERIAL_ID = ' || x_route_req_list(l_index).RT_OPER_MATERIAL_ID ||

1559: x_route_req_list(l_index).UOM_CODE := l_op_requirement_rec.PRIMARY_UOM_CODE;
1560: END IF;
1561: -- Modified by surrkuma for Service Bulletin on 27-Jun-2011
1562: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL AND l_index > 0) THEN
1563: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Requirement ' || l_index || ': RT_OPER_MATERIAL_ID = ' || x_route_req_list(l_index).RT_OPER_MATERIAL_ID ||
1564: ', ROUTE_OPERATION_ID = ' || x_route_req_list(l_index).ROUTE_OPERATION_ID ||
1565: ', ITEM_GROUP_ID = ' || x_route_req_list(l_index).ITEM_GROUP_ID ||
1566: ', INVENTORY_ITEM_ID = ' || x_route_req_list(l_index).INVENTORY_ITEM_ID ||
1567: ', INV_MASTER_ORG_ID = ' || x_route_req_list(l_index).INV_MASTER_ORG_ID ||

Line 1581: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'p_request type is neither G_REQ_TYPE_PLANNED nor G_REQ_TYPE_FORECAST');

1577: -- Not too sure whether the value of p_request_type can be anything other than G_REQ_TYPE_FORECAST and G_REQ_TYPE_PLANNED
1578: -- Adding this part for safety purpose, so that no records are missed out
1579: ELSE
1580: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1581: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'p_request type is neither G_REQ_TYPE_PLANNED nor G_REQ_TYPE_FORECAST');
1582: END IF;
1583:
1584: FOR l_op_requirement_rec IN l_op_requirement_neither_csr LOOP
1585: l_index := l_index + 1;

Line 1631: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Requirement ' || l_index || ': RT_OPER_MATERIAL_ID = ' || x_route_req_list(l_index).RT_OPER_MATERIAL_ID ||

1627: END IF;
1628:
1629: -- Modified by surrkuma for Service Bulletin on 27-Jun-2011
1630: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL AND l_index > 0) THEN
1631: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Requirement ' || l_index || ': RT_OPER_MATERIAL_ID = ' || x_route_req_list(l_index).RT_OPER_MATERIAL_ID ||
1632: ', ROUTE_OPERATION_ID = ' || x_route_req_list(l_index).ROUTE_OPERATION_ID ||
1633: ', ITEM_GROUP_ID = ' || x_route_req_list(l_index).ITEM_GROUP_ID ||
1634: ', INVENTORY_ITEM_ID = ' || x_route_req_list(l_index).INVENTORY_ITEM_ID ||
1635: ', INV_MASTER_ORG_ID = ' || x_route_req_list(l_index).INV_MASTER_ORG_ID ||

Line 1654: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Requirement ' || l_index || ': RT_OPER_MATERIAL_ID = ' || x_route_req_list(l_index).RT_OPER_MATERIAL_ID ||

1650: x_route_req_list(l_index).INV_MASTER_ORG_ID := l_op_requirement_rec.INVENTORY_ORG_ID;
1651: x_route_req_list(l_index).QUANTITY := l_op_requirement_rec.QUANTITY;
1652: x_route_req_list(l_index).UOM_CODE := l_op_requirement_rec.UOM_CODE;
1653: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1654: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Requirement ' || l_index || ': RT_OPER_MATERIAL_ID = ' || x_route_req_list(l_index).RT_OPER_MATERIAL_ID ||
1655: ', ROUTE_OPERATION_ID = ' || x_route_req_list(l_index).ROUTE_OPERATION_ID ||
1656: ', ITEM_GROUP_ID = ' || x_route_req_list(l_index).ITEM_GROUP_ID ||
1657: ', INVENTORY_ITEM_ID = ' || x_route_req_list(l_index).INVENTORY_ITEM_ID ||
1658: ', INV_MASTER_ORG_ID = ' || x_route_req_list(l_index).INV_MASTER_ORG_ID ||

Line 1667: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Total number of Route requirements: ' || l_index);

1663: */
1664: -- AnRaj : End for fixing perf bug 4919527
1665: END IF;
1666: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1667: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Total number of Route requirements: ' || l_index);
1668: END IF;
1669: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1670: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1671: END IF;

Line 1670: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');

1666: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1667: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Total number of Route requirements: ' || l_index);
1668: END IF;
1669: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1670: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1671: END IF;
1672:
1673: END Get_Route_Requirements;
1674:

Line 1757: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');

1753:
1754: BEGIN
1755:
1756: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1757: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1758: END IF;
1759:
1760: IF (G_LEVEL_EVENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1761: FND_LOG.STRING(G_LEVEL_EVENT, L_DEBUG_KEY, 'About to call AHL_MC_PATH_POSITION_PVT.Get_Pos_Instance with ' ||

Line 1761: FND_LOG.STRING(G_LEVEL_EVENT, L_DEBUG_KEY, 'About to call AHL_MC_PATH_POSITION_PVT.Get_Pos_Instance with ' ||

1757: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
1758: END IF;
1759:
1760: IF (G_LEVEL_EVENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1761: FND_LOG.STRING(G_LEVEL_EVENT, L_DEBUG_KEY, 'About to call AHL_MC_PATH_POSITION_PVT.Get_Pos_Instance with ' ||
1762: ' p_position_id = ' || p_path_position_id ||
1763: ' p_csi_item_instance_id = ' || p_unit_instance_id);
1764: END IF;
1765:

Line 1780: FND_LOG.STRING(G_LEVEL_EVENT, L_DEBUG_KEY, 'Returned from call to AHL_MC_PATH_POSITION_PVT.Get_Pos_Instance:' ||

1776: x_lowest_uc_csi_id => l_lowest_unit_inst_id,
1777: x_mapping_status => l_mapping_status);
1778:
1779: IF (G_LEVEL_EVENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1780: FND_LOG.STRING(G_LEVEL_EVENT, L_DEBUG_KEY, 'Returned from call to AHL_MC_PATH_POSITION_PVT.Get_Pos_Instance:' ||
1781: ' x_return_status = ' || l_return_status ||
1782: ', x_mapping_status = ' || l_mapping_status ||
1783: ', x_item_instance_id = ' || l_installed_inst_id ||
1784: ', x_lowest_uc_csi_id = ' || l_lowest_unit_inst_id);

Line 1863: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');

1859: x_pos_instance_id := NULL;
1860: END IF;
1861:
1862: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1863: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
1864: END IF;
1865:
1866: END Validate_Path_Position;
1867:

Line 1915: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Function');

1911: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Get_Unit_Instance';
1912:
1913: BEGIN
1914: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1915: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Function');
1916: END IF;
1917:
1918: IF(p_item_instance_id IS NULL) THEN
1919: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 1920: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'p_item_instance_id is null. So, returning null.');

1916: END IF;
1917:
1918: IF(p_item_instance_id IS NULL) THEN
1919: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1920: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'p_item_instance_id is null. So, returning null.');
1921: END IF;
1922: l_instance_id := null;
1923: ELSE
1924: OPEN chk_inst_is_unit_csr;

Line 1928: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'p_item_instance_id (' || p_item_instance_id || ') itself is a unit.');

1924: OPEN chk_inst_is_unit_csr;
1925: FETCH chk_inst_is_unit_csr INTO l_dummy;
1926: IF (chk_inst_is_unit_csr%FOUND) THEN
1927: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1928: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'p_item_instance_id (' || p_item_instance_id || ') itself is a unit.');
1929: END IF;
1930: l_instance_id := p_item_instance_id;
1931: ELSE
1932: OPEN get_parent_instance_csr;

Line 1936: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Unit Instance of ' || p_item_instance_id || ' is ' || l_instance_id);

1932: OPEN get_parent_instance_csr;
1933: FETCH get_parent_instance_csr INTO l_instance_id;
1934: CLOSE get_parent_instance_csr;
1935: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1936: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Unit Instance of ' || p_item_instance_id || ' is ' || l_instance_id);
1937: END IF;
1938: END IF;
1939: CLOSE chk_inst_is_unit_csr;
1940: END IF;

Line 1943: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Function');

1939: CLOSE chk_inst_is_unit_csr;
1940: END IF;
1941:
1942: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1943: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Function');
1944: END IF;
1945: RETURN l_instance_id;
1946:
1947: END Get_Unit_Instance;

Line 2171: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');

2167: FND_MSG_PUB.initialize;
2168: END IF;
2169:
2170: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2171: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2172: END IF;
2173:
2174: -- Getting the Org Id for given visit
2175: OPEN get_visit_org_id_cur(p_visit_id);

Line 2180: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'mc_header_id: ' || l_mc_header_id ||

2176: FETCH get_visit_org_id_cur INTO l_visit_org_id;
2177: CLOSE get_visit_org_id_cur;
2178:
2179: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2180: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'mc_header_id: ' || l_mc_header_id ||
2181: ', mc_pos_key: ' || p_x_route_mtl_reqs(p_x_index).position_key ||
2182: ', uc_header_id: '|| p_uc_header_id ||
2183: ', visit_id: '|| p_visit_id ||
2184: ', visit_org_id: '|| l_visit_org_id ||

Line 2216: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Position Key: ' || p_x_route_mtl_reqs(p_x_index).position_key ||

2212: IF (l_relationship_id IS NOT NULL) THEN
2213: -- Position is part of given MC
2214:
2215: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2216: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Position Key: ' || p_x_route_mtl_reqs(p_x_index).position_key ||
2217: ', Remaining Qty: ' || l_remaining_qty ||
2218: ', l_relationship_id: ' || l_relationship_id ||
2219: ', l_pos_item_group_id: ' || l_pos_item_group_id);
2220: END IF;

Line 2263: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'inventory_item_id: ' || p_x_route_mtl_reqs(p_x_index).inventory_item_id ||

2259:
2260: END IF;
2261:
2262: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2263: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'inventory_item_id: ' || p_x_route_mtl_reqs(p_x_index).inventory_item_id ||
2264: ', inv_master_org_id: ' || p_x_route_mtl_reqs(p_x_index).inv_master_org_id);
2265: END IF;
2266:
2267: IF p_x_route_mtl_reqs(p_x_index).inventory_item_id IS NOT NULL THEN

Line 2358: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Item_Id: ' || p_x_route_mtl_reqs(p_x_index).inventory_item_id ||

2354: END IF;
2355: END LOOP;
2356: CLOSE get_child_positions_csr;
2357: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2358: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Item_Id: ' || p_x_route_mtl_reqs(p_x_index).inventory_item_id ||
2359: ', Org_Id:' || p_x_route_mtl_reqs(p_x_index).inv_master_org_id ||
2360: ', Quantity:' || p_x_route_mtl_reqs(p_x_index).quantity ||
2361: ', UOM:' || p_x_route_mtl_reqs(p_x_index).uom_code);
2362: END IF;

Line 2365: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');

2361: ', UOM:' || p_x_route_mtl_reqs(p_x_index).uom_code);
2362: END IF;
2363:
2364: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2365: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2366: END IF;
2367:
2368: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2369: l_msg_count := FND_MSG_PUB.count_msg;

Line 2469: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');

2465:
2466: L_DEBUG_KEY CONSTANT VARCHAR2(150) := G_LOG_PREFIX || '.Get_Item_Group_Item';
2467: BEGIN
2468: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2469: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2470: END IF;
2471:
2472: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2473: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'p_item_group_id: ' || p_item_group_id ||

Line 2473: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'p_item_group_id: ' || p_item_group_id ||

2469: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2470: END IF;
2471:
2472: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2473: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'p_item_group_id: ' || p_item_group_id ||
2474: ', p_rule_id: ' || p_rule_id||
2475: ', p_visit_org_id' || p_visit_org_id);
2476: END IF;
2477:

Line 2495: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');

2491: CLOSE get_item_group_sb_item_csr;
2492: END IF;
2493:
2494: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2495: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2496: END IF;
2497: END Get_Item_Group_Item;
2498:
2499: ------------------------------------------------------------------------------------

Line 2728: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');

2724: FND_MSG_PUB.initialize;
2725: END IF;
2726:
2727: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2728: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2729: END IF;
2730:
2731: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2732: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Schedule Material ID: '|| p_schedule_material_id);

Line 2732: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Schedule Material ID: '|| p_schedule_material_id);

2728: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
2729: END IF;
2730:
2731: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2732: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Schedule Material ID: '|| p_schedule_material_id);
2733: END IF;
2734:
2735: IF p_schedule_material_id IS NULL THEN
2736: Fnd_Message.SET_NAME('AHL','AHL_LTP_MAT_ID_INVALID');

Line 2764: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'mc_header_id: ' || l_asm_req_rec.mc_header_id ||

2760: FETCH get_uc_header_csr INTO l_uc_header_id;
2761: CLOSE get_uc_header_csr;
2762:
2763: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2764: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'mc_header_id: ' || l_asm_req_rec.mc_header_id ||
2765: ', mc_pos_key: ' || l_asm_req_rec.position_key ||
2766: ', Inventory Item Id: ' || l_asm_req_rec.inventory_item_id ||
2767: ', uc_header_id: '|| l_uc_header_id ||
2768: ', visit_id: '|| l_asm_req_rec.visit_id ||

Line 2838: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Alt Items Count: '|| x_alt_items.COUNT );

2834: END IF;
2835: END IF;
2836:
2837: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2838: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Alt Items Count: '|| x_alt_items.COUNT );
2839: END IF;
2840:
2841: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2842: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');

Line 2842: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');

2838: FND_LOG.STRING(G_LEVEL_STATEMENT, L_DEBUG_KEY, 'Alt Items Count: '|| x_alt_items.COUNT );
2839: END IF;
2840:
2841: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2842: FND_LOG.STRING(G_LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
2843: END IF;
2844:
2845: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2846: l_msg_count := FND_MSG_PUB.count_msg;