[Home] [Help]
601: p_item_instance_id IN NUMBER)
602: IS
603:
604: -- To validate instance.
605: CURSOR csi_item_instances_csr(p_csi_item_instance_id IN NUMBER) IS
606: SELECT instance_number, active_end_date
607: FROM csi_item_instances
608: WHERE instance_id = p_csi_item_instance_id;
609:
603:
604: -- To validate instance.
605: CURSOR csi_item_instances_csr(p_csi_item_instance_id IN NUMBER) IS
606: SELECT instance_number, active_end_date
607: FROM csi_item_instances
608: WHERE instance_id = p_csi_item_instance_id;
609:
610: -- To validate unit.
611: CURSOR ahl_unit_config_headers_csr (p_uc_header_id IN NUMBER) IS
642: -- get open UE IDs for the MR header.
643: -- check if instance expired to fix bug# 8543402.
644: CURSOR get_ue_csr (p_mr_header_id IN NUMBER) IS
645: SELECT unit_effectivity_id, due_date, csi_item_instance_id
646: FROM ahl_unit_effectivities_b UE, csi_item_instances II
647: WHERE UE.mr_header_id = p_mr_header_id
648: AND UE.csi_item_instance_id = II.instance_id
649: AND nvl(ii.active_end_date, sysdate+1) > sysdate
650: AND UE.due_date IS NOT NULL
654: l_debug_module VARCHAR2(400) := 'ahl.plsql.AHL_UMP_FORECAST_REQ_PVT.Build_Mat_Forecast_Stream';
655:
656: l_csi_item_instance_id NUMBER;
657: l_name ahl_unit_config_headers.name%TYPE;
658: l_instance_number csi_item_instances.instance_number%TYPE;
659: l_active_end_date DATE;
660:
661: l_config_node_tbl AHL_UMP_PROCESSUNIT_PVT.config_node_tbl_type;
662: l_master_config_id NUMBER;
698:
699: IF (p_unit_config_hdr_id IS NOT NULL OR p_item_instance_id IS NOT NULL) THEN
700: IF (p_item_instance_id IS NOT NULL) THEN
701: -- validate item instance.
702: OPEN csi_item_instances_csr (p_item_instance_id);
703: FETCH csi_item_instances_csr INTO l_instance_number, l_active_end_date;
704: IF (csi_item_instances_csr%NOTFOUND) THEN
705: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INSTID_NOTFOUND');
706: FND_MESSAGE.Set_Token('INST_ID', p_item_instance_id);
699: IF (p_unit_config_hdr_id IS NOT NULL OR p_item_instance_id IS NOT NULL) THEN
700: IF (p_item_instance_id IS NOT NULL) THEN
701: -- validate item instance.
702: OPEN csi_item_instances_csr (p_item_instance_id);
703: FETCH csi_item_instances_csr INTO l_instance_number, l_active_end_date;
704: IF (csi_item_instances_csr%NOTFOUND) THEN
705: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INSTID_NOTFOUND');
706: FND_MESSAGE.Set_Token('INST_ID', p_item_instance_id);
707: FND_MSG_PUB.ADD;
700: IF (p_item_instance_id IS NOT NULL) THEN
701: -- validate item instance.
702: OPEN csi_item_instances_csr (p_item_instance_id);
703: FETCH csi_item_instances_csr INTO l_instance_number, l_active_end_date;
704: IF (csi_item_instances_csr%NOTFOUND) THEN
705: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INSTID_NOTFOUND');
706: FND_MESSAGE.Set_Token('INST_ID', p_item_instance_id);
707: FND_MSG_PUB.ADD;
708: CLOSE csi_item_instances_csr;
704: IF (csi_item_instances_csr%NOTFOUND) THEN
705: FND_MESSAGE.Set_Name('AHL','AHL_UMP_PUE_INSTID_NOTFOUND');
706: FND_MESSAGE.Set_Token('INST_ID', p_item_instance_id);
707: FND_MSG_PUB.ADD;
708: CLOSE csi_item_instances_csr;
709: --dbms_output.put_line('Instance not found');
710: errbuf := FND_MSG_PUB.GET;
711: retcode := 2;
712: ELSIF (trunc(l_active_end_date) < trunc(sysdate)) THEN
737: l_master_config_id := NULL;
738: END IF; -- ahl_unit_config_header_csr%FOUND
739: CLOSE ahl_unit_config_header_csr;
740:
741: END IF; -- csi_item_instances_csr%NOTFOUND
742: CLOSE csi_item_instances_csr;
743:
744: END IF; -- p_item_instance_id
745:
738: END IF; -- ahl_unit_config_header_csr%FOUND
739: CLOSE ahl_unit_config_header_csr;
740:
741: END IF; -- csi_item_instances_csr%NOTFOUND
742: CLOSE csi_item_instances_csr;
743:
744: END IF; -- p_item_instance_id
745:
746: IF (p_unit_config_hdr_id IS NOT NULL) THEN