[Home] [Help]
467: ,CLM_COTR_OFFICE
468: ,CLM_COTR_CONTACT
469: ,CLM_PRIORITY_CODE
470: ,CLM_MOD_ISSUING_OFFICE
471: ,CLM_STANDARD_FORM
472: ,CLM_DOCUMENT_FORMAT
473: ,AME_TRANSACTION_TYPE
474: ,CLM_AWARD_TYPE
475: ,CLM_CONTRACT_OFFICER
673: ,CLM_COTR_OFFICE
674: ,CLM_COTR_CONTACT
675: ,CLM_PRIORITY_CODE
676: ,CLM_MOD_ISSUING_OFFICE
677: ,CLM_STANDARD_FORM
678: ,CLM_DOCUMENT_FORMAT
679: ,AME_TRANSACTION_TYPE
680: ,CLM_AWARD_TYPE
681: ,CLM_CONTRACT_OFFICER
1606: --p_document_id
1607: -- The id of the document that needs to be archived.
1608: --p_document_type
1609: -- The type of the document to archive
1610: -- PO : For Standard/Planned
1611: -- PA : For Blanket/Contract
1612: -- RELEASE : Release
1613: --p_revision_num
1614: -- The revision of the document that needs to be archived.
2176: --p_document_id
2177: -- The id of the document that needs to be archived.
2178: --p_document_type
2179: -- The type of the document to archive
2180: -- PO : For Standard/Planned
2181: -- PA : For Blanket/Contract
2182: -- RELEASE : Release
2183: --p_revision_num
2184: -- The revision of the document that needs to be archived.
3110: --p_document_id
3111: -- The id of the document that needs to be archived.
3112: --p_document_type
3113: -- The type of the document to archive
3114: -- PO : For Standard/Planned
3115: -- PA : For Blanket/Contract
3116: -- RELEASE : Release
3117: --p_document_subtype
3118: -- The subtype of the document.
3118: -- The subtype of the document.
3119: -- Valid Document types and Document subtypes are
3120: -- Document Type Document Subtype
3121: -- RELEASE ---> SCHEDULED/BLANKET
3122: -- PO ---> PLANNED/STANDARD
3123: -- PA ---> CONTRACT/BLANKET
3124: --OUT:
3125: --x_return_status
3126: -- FND_API.G_RET_STS_SUCCESS if API succeeds
3141: * Check if the current revision is already archived.
3142: * Case entity.document_type is
3143: * When PO
3144: * Case entity.document_subtype is
3145: * When STANDARD or PLANNED
3146: * archive PO_HEADERS
3147: * when modified archive PO_LINES, PO_LINE_LOCATIONS,
3148: * PO_PRICE_DIFFERENTIALS and PO_DISTRIBUTIONS.
3149: * End Case
3186: l_clm_flag VARCHAR2(1);
3187:
3188: BEGIN
3189:
3190: -- Standard call to check for call compatibility
3191: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
3192: THEN
3193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3194: END IF;
3206: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, l_module,
3207: 'Set SavePoint');
3208: END IF;
3209:
3210: --Standard Start API savepoint
3211: SAVEPOINT PO_ARCHIVE_SP;
3212:
3213: l_progress := '020';
3214: IF (p_document_type = 'PO') THEN
3655: archive_distributions(p_document_id, p_document_type, l_revision_num);
3656: END IF; /*IF (l_return_status = 'Y')*/
3657: END IF; /*IF (p_document_type = 'PO')*/
3658:
3659: -- Standard call to get message count and if count is 1,
3660: -- get message info.
3661: FND_MSG_PUB.Count_And_Get
3662: (p_count => x_msg_count,
3663: p_data => x_msg_data
3679: FND_LOG.string(FND_LOG.level_unexpected, l_module,
3680: 'EXCEPTION: '||sqlerrm);
3681: END IF;
3682: END IF;
3683: -- Standard call to get message count and if count is 1,
3684: -- get message info.
3685: FND_MSG_PUB.Count_And_Get
3686: (p_count => x_msg_count,
3687: p_data => x_msg_data
3694: FND_LOG.string(FND_LOG.level_unexpected, l_module,
3695: 'EXCEPTION: '||sqlerrm);
3696: END IF;
3697: END IF;
3698: -- Standard call to get message count and if count is 1,
3699: -- get message info.
3700: FND_MSG_PUB.Count_And_Get
3701: (p_count => x_msg_count,
3702: p_data => x_msg_data
3709: FND_LOG.string(FND_LOG.level_unexpected, l_module,
3710: 'EXCEPTION: '||sqlerrm);
3711: END IF;
3712: END IF;
3713: -- Standard call to get message count and if count is 1,
3714: -- get message info.
3715: FND_MSG_PUB.Count_And_Get
3716: (p_count => x_msg_count,
3717: p_data => x_msg_data
3899: --IN:
3900: --p_doc_type
3901: -- type of the document to be checked - PO or BLANKET
3902: --p_doc_subtype
3903: -- sub type of the document to be checked - RELEASE or STANDARD
3904: --Return
3905: -- Archive mode - APPROVE or PRINT
3906: --Testing:
3907: -- None.
3917: l_archive_mode PO_DOCUMENT_TYPES.archive_external_revision_code%TYPE;
3918:
3919: BEGIN
3920:
3921: -- SQL What: Get archive mode for Standard PO, Release
3922: -- SQL Why : To Determine when the document is approved
3923:
3924: SELECT nvl(archive_external_revision_code,'PRINT')
3925: INTO l_archive_mode