[Home] [Help]
3843: ==================*/
3844: l_header_created BOOLEAN := FALSE;
3845:
3846: -- Added for Enhanced Project Validation
3847: result VARCHAR2(1) := PJM_PROJECT.G_VALIDATE_SUCCESS;
3848: errcode VARCHAR2 (80);
3849: l_order_date_type_code VARCHAR2(10);
3850: p_date DATE;
3851:
5249: IF l_debug_level > 0 then
5250: OE_DEBUG_PUB.Add('Before calling Validate Proj References',1);
5251: END IF;
5252:
5253: result := PJM_PROJECT.VALIDATE_PROJ_REFERENCES
5254: ( X_inventory_org_id => p_line_rec.ship_from_org_id
5255: , X_operating_unit => p_line_rec.org_id
5256: , X_project_id => p_line_rec.project_id
5257: , X_task_id => p_line_rec.task_id
5265: errcode,1);
5266: OE_DEBUG_PUB.Add('Validate Proj References Result:'||
5267: result,1);
5268: END IF;
5269: IF result <> PJM_PROJECT.G_VALIDATE_SUCCESS THEN
5270: OE_MSG_PUB.Transfer_Msg_Stack;
5271: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
5272: FOR I in 1..l_msg_count loop
5273: l_msg_data := OE_MSG_PUB.Get(I,'F');
5276: END IF;
5277: END LOOP;
5278: END IF;
5279:
5280: IF result = PJM_PROJECT.G_VALIDATE_FAILURE THEN
5281: l_return_status := FND_API.G_RET_STS_ERROR;
5282: IF l_debug_level > 0 then
5283: OE_DEBUG_PUB.Add('PJM Validation API returned with Errors',1);
5284: END IF;
5281: l_return_status := FND_API.G_RET_STS_ERROR;
5282: IF l_debug_level > 0 then
5283: OE_DEBUG_PUB.Add('PJM Validation API returned with Errors',1);
5284: END IF;
5285: ELSIF result = PJM_PROJECT.G_VALIDATE_WARNING THEN
5286: IF l_debug_level > 0 then
5287: OE_DEBUG_PUB.Add('PJM Validation API returned with Warnings',1);
5288: END IF;
5289: END IF;
5299: AND (p_line_rec.ship_from_org_id IS NOT NULL AND
5300: p_line_rec.project_id IS NOT NULL) THEN
5301:
5302: -- Validate project/warehouse combination.
5303: IF pjm_project.val_proj_idtonum
5304: (p_line_rec.project_id,
5305: p_line_rec.ship_from_org_id) IS NULL THEN
5306:
5307: l_return_status := FND_API.G_RET_STS_ERROR;