425: * - not frozen
426: * - not expired
427: * Requires: none
428: * Modifies: none
429: * Returns: x_result: FND_API.G_TRUE if valid
430: * FND_API.G_FALSE otherwise
431: ==========================================================================**/
432: PROCEDURE is_contract_valid
433: ( p_po_header_id IN NUMBER,
426: * - not expired
427: * Requires: none
428: * Modifies: none
429: * Returns: x_result: FND_API.G_TRUE if valid
430: * FND_API.G_FALSE otherwise
431: ==========================================================================**/
432: PROCEDURE is_contract_valid
433: ( p_po_header_id IN NUMBER,
434: x_result OUT NOCOPY VARCHAR2
452: AND TRUNC(SYSDATE) BETWEEN NVL(TRUNC(POH.start_date), SYSDATE - 1)
453: AND NVL(TRUNC(POH.end_date), SYSDATE + 1);
454:
455: IF (l_is_valid = 'Y') THEN
456: x_result := FND_API.G_TRUE;
457: ELSE
458: x_result := FND_API.G_FALSE;
459: END IF;
460:
454:
455: IF (l_is_valid = 'Y') THEN
456: x_result := FND_API.G_TRUE;
457: ELSE
458: x_result := FND_API.G_FALSE;
459: END IF;
460:
461: EXCEPTION
462: WHEN NO_DATA_FOUND THEN
459: END IF;
460:
461: EXCEPTION
462: WHEN NO_DATA_FOUND THEN
463: x_result := FND_API.G_FALSE;
464: END is_contract_valid;
465:
466: --
467: