[Home] [Help]
PACKAGE: APPS.OKC_REP_QA_CHECK_PVT
Source
1 PACKAGE OKC_REP_QA_CHECK_PVT AS
2 /* $Header: OKCVREPQACHKS.pls 120.0.12000000.1 2007/01/17 11:33:12 appldev ship $ */
3
4 ---------------------------------------------------------------------------
5 -- TYPE Definitions
6 ---------------------------------------------------------------------------
7 -- Contracts business events codes TBL Type
8 SUBTYPE EVENT_TBL_TYPE IS OKC_TERMS_QA_GRP.BUSDOCDATES_TBL_TYPE;
9 ---------------------------------------------------------------------------
10 -- Global VARIABLES
11 ---------------------------------------------------------------------------
12 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_REP_QA_CHECK_PVT';
13 G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
14 G_MODULE CONSTANT VARCHAR2(250) := 'okc.plsql.'||G_PKG_NAME||'.';
15
16 ------------------------------------------------------------------------------
17 -- GLOBAL CONSTANTS
18 ------------------------------------------------------------------------------
19 G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
20 G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
21 G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
22 G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
23 G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
24 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
25 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
26 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
27 G_REP_QA_TYPE CONSTANT VARCHAR2(30) := 'REPOSITORY';
28 G_QA_LOOKUP CONSTANT VARCHAR2(30) := 'OKC_TERM_QA_LIST';
29
30 G_QA_STS_SUCCESS CONSTANT varchar2(1) := OKC_TERMS_QA_GRP.G_QA_STS_SUCCESS;
31 G_QA_STS_ERROR CONSTANT varchar2(1) := OKC_TERMS_QA_GRP.G_QA_STS_ERROR;
32 G_QA_STS_WARNING CONSTANT varchar2(1) := OKC_TERMS_QA_GRP.G_QA_STS_WARNING;
33
34
35 G_OKC CONSTANT VARCHAR2(3) := 'OKC';
36 G_NORMAL_QA CONSTANT VARCHAR2(30) := 'NORMAL';
37
38 -- QA Checks --
39 -- Check being performed for repository
40 G_CHECK_REP_NO_EXT_PARTY CONSTANT VARCHAR2(40) := 'CHECK_REP_NO_EXTERNAL_PARTY';
41 G_CHECK_REP_NO_EFF_DATE CONSTANT VARCHAR2(40) := 'CHECK_REP_NO_EFF_DATE';
42 G_CHECK_REP_INV_CONTRACT_TYPE CONSTANT VARCHAR2(40) := 'CHECK_REP_INV_CONTRACT_TYPE';
43 G_CHECK_REP_INV_EXT_PARTY CONSTANT VARCHAR2(40) := 'CHECK_REP_INV_EXTERNAL_PARTY';
44 G_CHECK_REP_INV_CONTACT CONSTANT VARCHAR2(40) := 'CHECK_REP_INV_CONTACT';
45 G_CHECK_REP_INV_RISK_EVENT CONSTANT VARCHAR2(40) := 'CHECK_REP_INV_RISK_EVENT';
46 G_CHECK_REP_INV_CONTACT_ROLE CONSTANT VARCHAR2(40) := 'CHECK_REP_INV_CONTACT_ROLE';
47 -- QA Error messages --
48 G_OKC_REP_NO_EXT_PARTY CONSTANT VARCHAR2(30) := 'OKC_REP_NO_EXTERNAL_PARTY';
49 G_OKC_REP_NO_EFF_DATE CONSTANT VARCHAR2(30) := 'OKC_REP_NO_EFF_DATE';
50 G_OKC_REP_INV_CONTRACT_TYPE CONSTANT VARCHAR2(30) := 'OKC_REP_INV_CONTRACT_TYPE';
51 G_OKC_REP_INV_EXT_PARTY CONSTANT VARCHAR2(30) := 'OKC_REP_INV_EXTERNAL_PARTY';
52 G_OKC_REP_INV_CONTACT CONSTANT VARCHAR2(30) := 'OKC_REP_INV_CONTACT';
53 G_OKC_REP_INV_RISK_EVENT CONSTANT VARCHAR2(30) := 'OKC_REP_INV_RISK_EVENT';
54 G_OKC_REP_INV_CONTACT_ROLE CONSTANT VARCHAR2(30) := 'OKC_REP_INV_CONTACT_ROLE';
55 -- QA Suggestion messages --
56 G_OKC_REP_NO_EXT_PARTY_S CONSTANT VARCHAR2(50) := 'OKC_REP_NO_EXTERNAL_PARTY_S';
57 G_OKC_REP_NO_EFF_DATE_S CONSTANT VARCHAR2(50) := 'OKC_REP_NO_EFF_DATE_S';
58 G_OKC_REP_INV_CONTRACT_TYPE_S CONSTANT VARCHAR2(30) := 'OKC_REP_INV_CONTRACT_TYPE_S';
59 G_OKC_REP_INV_EXT_PARTY_S CONSTANT VARCHAR2(30) := 'OKC_REP_INV_EXTERNAL_PARTY_S';
60 G_OKC_REP_INV_CONTACT_S CONSTANT VARCHAR2(30) := 'OKC_REP_INV_CONTACT_S';
61 G_OKC_REP_INV_RISK_EVENT_S CONSTANT VARCHAR2(30) := 'OKC_REP_INV_RISK_EVENT_S';
62 G_OKC_REP_INV_CONTACT_ROLE_S CONSTANT VARCHAR2(30) := 'OKC_REP_INV_CONTACT_ROLE_S';
63 -- QA Error short descriptions --
64 G_OKC_REP_NO_EXT_PARTY_SD CONSTANT VARCHAR2(30) := 'OKC_REP_NO_EXTERNAL_PARTY_SD';
65 G_OKC_REP_NO_EFF_DATE_SD CONSTANT VARCHAR2(30) := 'OKC_REP_NO_EFF_DATE_SD';
66 G_OKC_REP_INV_CONTRACT_TYPE_SD CONSTANT VARCHAR2(30) := 'OKC_REP_INV_CONTRACT_TYPE_SD';
67 G_OKC_REP_INV_EXT_PARTY_SD CONSTANT VARCHAR2(30) := 'OKC_REP_INV_EXTERNAL_PARTY_SD';
68 G_OKC_REP_INV_CONTACT_SD CONSTANT VARCHAR2(30) := 'OKC_REP_INV_CONTACT_SD';
69 G_OKC_REP_INV_RISK_EVENT_SD CONSTANT VARCHAR2(30) := 'OKC_REP_INV_RISK_EVENT_SD';
70 G_OKC_REP_INV_CONTACT_ROLE_SD CONSTANT VARCHAR2(30) := 'OKC_REP_INV_CONTACT_ROLE_SD';
71 -- QA Title messages --
72 G_OKC_REP_NO_EXT_PARTY_T CONSTANT VARCHAR2(50) := 'OKC_REP_NO_EXTERNAL_PARTY_T';
73 G_OKC_REP_NO_EFF_DATE_T CONSTANT VARCHAR2(50) := 'OKC_REP_NO_EFF_DATE_T';
74 G_OKC_REP_INV_CONTRACT_TYPE_T CONSTANT VARCHAR2(30) := 'OKC_REP_INV_CONTRACT_TYPE_T';
75 G_OKC_REP_INV_EXT_PARTY_T CONSTANT VARCHAR2(30) := 'OKC_REP_INV_EXTERNAL_PARTY_T';
76 G_OKC_REP_INV_CONTACT_T CONSTANT VARCHAR2(30) := 'OKC_REP_INV_CONTACT_T';
77 G_OKC_REP_INV_RISK_EVENT_T CONSTANT VARCHAR2(30) := 'OKC_REP_INV_RISK_EVENT_T';
78 G_OKC_REP_INV_CONTACT_ROLE_T CONSTANT VARCHAR2(30) := 'OKC_REP_INV_CONTACT_ROLE_T';
79
80 -- Contract events - deliverables integration
81 G_CONTRACT_EXPIRE_EVENT CONSTANT VARCHAR2(200) := 'CONTRACT_EXPIRE';
82 G_CONTRACT_EFFECTIVE_EVENT CONSTANT VARCHAR2(200) := 'CONTRACT_EFFECTIVE';
83
84 -- Required for Contract not found error message
85 G_INVALID_CONTRACT_ID_MSG CONSTANT VARCHAR2(200) := 'OKC_REP_INVALID_CONTRACT_ID';
86 G_CONTRACT_ID_TOKEN CONSTANT VARCHAR2(200) := 'CONTRACT_ID';
87 G_PARTY_NAME_TOKEN CONSTANT VARCHAR2(200) := 'PARTY_NAME';
88 G_CONTACT_NAME_TOKEN CONSTANT VARCHAR2(200) := 'CONTACT_NAME';
89 G_CONTRACT_TYPE_TOKEN CONSTANT VARCHAR2(200) := 'CONTRACT_TYPE';
90 G_CONTACT_ROLE_TOKEN CONSTANT VARCHAR2(200) := 'CONTACT_ROLE';
91 G_RISK_EVENT_TOKEN CONSTANT VARCHAR2(200) := 'RISK_EVENT';
92
93 -- Party Role codes
94 G_PARTY_ROLE_INTERNAL CONSTANT VARCHAR2(30) := 'INTERNAL_ORG';
95 G_PARTY_ROLE_PARTNER CONSTANT VARCHAR2(30) := 'PARTNER_ORG';
96 G_PARTY_ROLE_CUSTOMER CONSTANT VARCHAR2(30) := 'CUSTOMER_ORG';
97 G_PARTY_ROLE_SUPPLIER CONSTANT VARCHAR2(30) := 'SUPPLIER_ORG';
98
99 TYPE okc_doc_qa_lists_rec_type IS RECORD (
100 qa_code OKC_DOC_QA_LISTS.QA_CODE%TYPE,
101 severity_flag OKC_DOC_QA_LISTS.severity_flag%TYPE,
102 enable_qa_yn OKC_DOC_QA_LISTS.enable_qa_yn%TYPE);
103
104 TYPE okc_doc_qa_lists_tbl_type IS TABLE OF okc_doc_qa_lists_rec_type
105 INDEX BY BINARY_INTEGER;
106
107 -----------------------------------------------------------
108
109 ---------------------------------------------------------------------------
110 -- Procedures and Functions
114 --API name : perform_contract_qa_check
111 ---------------------------------------------------------------------------
112
113 -- Start of comments
115 --Type : Private.
116 --Function : This API performs QA check on a Repository Contract. The API check for:
117 -- 1. Check contract for no external party (Warning)
118 -- 2. Check contract for no effective date (Error)
119 -- 3. Check contract for invalid contract type
120 -- 4. Check contract for invalid external party type
121 -- 5. Check contract for invalid contact
122 -- 6. Check contract for invalid Risk Event
123 -- 7. Check contract for invalid Contact Role
124 -- 8. Calls OKC_DELIVERABLE_PROCESS_PVT.validate_deliverable_for_qa to qa check the
125 -- deliverables.
126 --Pre-reqs : None.
127 --Parameters :
128 --IN : p_api_version IN NUMBER Required
129 -- : p_init_msg_list IN VARCHAR2 Optional
130 -- Default = FND_API.G_FALSE
131 -- : p_contract_id IN NUMBER Required
132 -- Contract ID of the contract to be QA checked
133 --OUT : x_return_status OUT VARCHAR2(1)
134 -- : x_msg_count OUT NUMBER
135 -- : x_msg_data OUT VARCHAR2(2000)
136 -- : x_qa_return_status OUT VARCHAR2 (1)
137 -- QA Check return status. Possible values are S, W, E
138 -- : x_sequence_id OUT NUMBER
139 -- Sequence id of the qa check errors in OKC_QA_ERRORS_T table
140 -- Note :
141 -- End of comments
142
143 PROCEDURE perform_contract_qa_check (
144 p_api_version IN NUMBER,
145 p_init_msg_list IN VARCHAR2,
146 p_contract_id IN NUMBER,
147 x_msg_count OUT NOCOPY NUMBER,
148 x_msg_data OUT NOCOPY VARCHAR2,
149 x_return_status OUT NOCOPY VARCHAR2,
150 x_qa_return_status OUT NOCOPY VARCHAR2,
151 x_sequence_id OUT NOCOPY NUMBER);
152
153
154 -- Start of comments
155 --API name : insert_deliverables_qa_checks
156 --Type : Private.
157 --Function : This API inserts QA check list of Deliverables for the specified
158 -- Contract Type into the table OKC_DOC_QA_LISTS
159 --Pre-reqs : None.
160 --Parameters :
161 --IN : p_api_version IN NUMBER Required
162 -- : p_init_msg_list IN VARCHAR2 Required
163 -- : p_contract_type IN NUMBER Required
164 -- Contract Type for which the QA checkes to be added
165 --OUT : x_return_status OUT VARCHAR2(1)
166 -- : x_msg_count OUT NUMBER
167 -- : x_msg_data OUT VARCHAR2(2000)
168 -- Note :
169 -- End of comments
170
171 PROCEDURE insert_deliverables_qa_checks (
172 p_api_version IN NUMBER,
173 p_init_msg_list IN VARCHAR2,
174 p_contract_type IN VARCHAR2,
175 x_msg_count OUT NOCOPY NUMBER,
176 x_msg_data OUT NOCOPY VARCHAR2,
177 x_return_status OUT NOCOPY VARCHAR2);
178
179
180 END OKC_REP_QA_CHECK_PVT;