[Home] [Help]
3715: ==================*/
3716: l_header_created BOOLEAN := FALSE;
3717:
3718: -- Added for Enhanced Project Validation
3719: result VARCHAR2(1) := PJM_PROJECT.G_VALIDATE_SUCCESS;
3720: errcode VARCHAR2 (80);
3721: l_order_date_type_code VARCHAR2(10);
3722: p_date DATE;
3723:
4933: IF l_debug_level > 0 then
4934: OE_DEBUG_PUB.Add('Before calling Validate Proj References',1);
4935: END IF;
4936:
4937: result := PJM_PROJECT.VALIDATE_PROJ_REFERENCES
4938: ( X_inventory_org_id => p_line_rec.ship_from_org_id
4939: , X_operating_unit => p_line_rec.org_id
4940: , X_project_id => p_line_rec.project_id
4941: , X_task_id => p_line_rec.task_id
4949: errcode,1);
4950: OE_DEBUG_PUB.Add('Validate Proj References Result:'||
4951: result,1);
4952: END IF;
4953: IF result <> PJM_PROJECT.G_VALIDATE_SUCCESS THEN
4954: OE_MSG_PUB.Transfer_Msg_Stack;
4955: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
4956: FOR I in 1..l_msg_count loop
4957: l_msg_data := OE_MSG_PUB.Get(I,'F');
4960: END IF;
4961: END LOOP;
4962: END IF;
4963:
4964: IF result = PJM_PROJECT.G_VALIDATE_FAILURE THEN
4965: l_return_status := FND_API.G_RET_STS_ERROR;
4966: IF l_debug_level > 0 then
4967: OE_DEBUG_PUB.Add('PJM Validation API returned with Errors',1);
4968: END IF;
4965: l_return_status := FND_API.G_RET_STS_ERROR;
4966: IF l_debug_level > 0 then
4967: OE_DEBUG_PUB.Add('PJM Validation API returned with Errors',1);
4968: END IF;
4969: ELSIF result = PJM_PROJECT.G_VALIDATE_WARNING THEN
4970: IF l_debug_level > 0 then
4971: OE_DEBUG_PUB.Add('PJM Validation API returned with Warnings',1);
4972: END IF;
4973: END IF;
4983: AND (p_line_rec.ship_from_org_id IS NOT NULL AND
4984: p_line_rec.project_id IS NOT NULL) THEN
4985:
4986: -- Validate project/warehouse combination.
4987: IF pjm_project.val_proj_idtonum
4988: (p_line_rec.project_id,
4989: p_line_rec.ship_from_org_id) IS NULL THEN
4990:
4991: l_return_status := FND_API.G_RET_STS_ERROR;