[Home] [Help]
PACKAGE: APPS.OKL_TCL_PVT
Source
1 Package OKL_TCL_PVT AUTHID CURRENT_USER AS
2 /* $Header: OKLSTCLS.pls 120.6 2007/04/19 12:44:51 nikshah noship $ */
3 ---------------------------------------------------------------------------
4 -- GLOBAL DATASTRUCTURES
5 ---------------------------------------------------------------------------
6 TYPE tcl_rec_type IS RECORD (
7 id NUMBER := OKC_API.G_MISS_NUM,
8 khr_id NUMBER := OKC_API.G_MISS_NUM,
9 kle_id NUMBER := OKC_API.G_MISS_NUM,
10 before_transfer_yn OKL_TXL_CNTRCT_LNS.BEFORE_TRANSFER_YN%TYPE := OKC_API.G_MISS_CHAR,
11 tcn_id NUMBER := OKC_API.G_MISS_NUM,
12 rct_id NUMBER := OKC_API.G_MISS_NUM,
13 btc_id NUMBER := OKC_API.G_MISS_NUM,
14 sty_id NUMBER := OKC_API.G_MISS_NUM,
15 line_number NUMBER := OKC_API.G_MISS_NUM,
16 tcl_type OKL_TXL_CNTRCT_LNS.TCL_TYPE%TYPE := OKC_API.G_MISS_CHAR,
17 object_version_number NUMBER := OKC_API.G_MISS_NUM,
18 created_by NUMBER := OKC_API.G_MISS_NUM,
19 creation_date OKL_TXL_CNTRCT_LNS.CREATION_DATE%TYPE := OKC_API.G_MISS_DATE,
20 last_updated_by NUMBER := OKC_API.G_MISS_NUM,
21 last_update_date OKL_TXL_CNTRCT_LNS.LAST_UPDATE_DATE%TYPE := OKC_API.G_MISS_DATE,
22 org_id NUMBER := OKC_API.G_MISS_NUM,
23 description OKL_TXL_CNTRCT_LNS.DESCRIPTION%TYPE := OKC_API.G_MISS_CHAR,
24 program_id NUMBER := OKC_API.G_MISS_NUM,
25 gl_reversal_yn OKL_TXL_CNTRCT_LNS.GL_REVERSAL_YN%TYPE := OKC_API.G_MISS_CHAR,
26 amount NUMBER := OKC_API.G_MISS_NUM,
27 program_application_id NUMBER := OKC_API.G_MISS_NUM,
28 -- redwin 07/20/2001 changed from currency to currency_code
29 currency_code OKL_TXL_CNTRCT_LNS.CURRENCY_CODE%TYPE := OKC_API.G_MISS_CHAR,
30 request_id NUMBER := OKC_API.G_MISS_NUM,
31 program_update_date OKL_TXL_CNTRCT_LNS.PROGRAM_UPDATE_DATE%TYPE := OKC_API.G_MISS_DATE,
32 attribute_category OKL_TXL_CNTRCT_LNS.ATTRIBUTE_CATEGORY%TYPE := OKC_API.G_MISS_CHAR,
33 attribute1 OKL_TXL_CNTRCT_LNS.ATTRIBUTE1%TYPE := OKC_API.G_MISS_CHAR,
34 attribute2 OKL_TXL_CNTRCT_LNS.ATTRIBUTE2%TYPE := OKC_API.G_MISS_CHAR,
38 attribute6 OKL_TXL_CNTRCT_LNS.ATTRIBUTE6%TYPE := OKC_API.G_MISS_CHAR,
35 attribute3 OKL_TXL_CNTRCT_LNS.ATTRIBUTE3%TYPE := OKC_API.G_MISS_CHAR,
36 attribute4 OKL_TXL_CNTRCT_LNS.ATTRIBUTE4%TYPE := OKC_API.G_MISS_CHAR,
37 attribute5 OKL_TXL_CNTRCT_LNS.ATTRIBUTE5%TYPE := OKC_API.G_MISS_CHAR,
39 attribute7 OKL_TXL_CNTRCT_LNS.ATTRIBUTE7%TYPE := OKC_API.G_MISS_CHAR,
40 attribute8 OKL_TXL_CNTRCT_LNS.ATTRIBUTE8%TYPE := OKC_API.G_MISS_CHAR,
41 attribute9 OKL_TXL_CNTRCT_LNS.ATTRIBUTE9%TYPE := OKC_API.G_MISS_CHAR,
42 attribute10 OKL_TXL_CNTRCT_LNS.ATTRIBUTE10%TYPE := OKC_API.G_MISS_CHAR,
43 attribute11 OKL_TXL_CNTRCT_LNS.ATTRIBUTE11%TYPE := OKC_API.G_MISS_CHAR,
44 attribute12 OKL_TXL_CNTRCT_LNS.ATTRIBUTE12%TYPE := OKC_API.G_MISS_CHAR,
45 attribute13 OKL_TXL_CNTRCT_LNS.ATTRIBUTE13%TYPE := OKC_API.G_MISS_CHAR,
46 attribute14 OKL_TXL_CNTRCT_LNS.ATTRIBUTE14%TYPE := OKC_API.G_MISS_CHAR,
47 attribute15 OKL_TXL_CNTRCT_LNS.ATTRIBUTE15%TYPE := OKC_API.G_MISS_CHAR,
48 last_update_login NUMBER := OKC_API.G_MISS_NUM,
49 avl_id NUMBER := OKC_API.G_MISS_NUM,
50 bkt_id OKL_BUCKETS_V.ID%TYPE := OKC_API.G_MISS_NUM,
51 -- Added by Santonyr May 20th, 2002 Bug 2305542
52 kle_id_new NUMBER := OKC_API.G_MISS_NUM,
53 percentage NUMBER := OKC_API.G_MISS_NUM,
54 -- Added by Hkpatel Sep 17th, 2003
55 accrual_rule_yn OKL_TXL_CNTRCT_LNS.ACCRUAL_RULE_YN%TYPE := OKC_API.G_MISS_CHAR,
56 -- Added by PAGARG 21-Oct-2004 Bug# 3964726
57 source_column_1 OKL_TXL_CNTRCT_LNS.source_column_1%TYPE := OKC_API.G_MISS_CHAR,
58 source_value_1 OKL_TXL_CNTRCT_LNS.source_value_1%TYPE := OKC_API.G_MISS_NUM,
59 source_column_2 OKL_TXL_CNTRCT_LNS.source_column_2%TYPE := OKC_API.G_MISS_CHAR,
60 source_value_2 OKL_TXL_CNTRCT_LNS.source_value_2%TYPE := OKC_API.G_MISS_NUM,
61 source_column_3 OKL_TXL_CNTRCT_LNS.source_column_3%TYPE := OKC_API.G_MISS_CHAR,
62 source_value_3 OKL_TXL_CNTRCT_LNS.source_value_3%TYPE := OKC_API.G_MISS_NUM,
63 canceled_date OKL_TXL_CNTRCT_LNS.canceled_date%TYPE := OKC_API.G_MISS_DATE,
64 -- Added by DJANASWA 02-Feb-2007 for SLA project
65 tax_line_id OKL_TXL_CNTRCT_LNS.tax_line_id%TYPE := OKC_API.G_MISS_NUM,
66 -- Added by zrehman for SLA project (Bug 5707866) 8-Feb-2007
67 stream_type_code OKL_TXL_CNTRCT_LNS.stream_type_code%TYPE := OKC_API.G_MISS_CHAR,
68 stream_type_purpose OKL_TXL_CNTRCT_LNS.stream_type_purpose%TYPE := OKC_API.G_MISS_CHAR,
69 asset_book_type_name OKL_TXL_CNTRCT_LNS.asset_book_type_name%TYPE := OKC_API.G_MISS_CHAR,
70 -- Added by nikshah for SLA project (Bug 5707866) 13-Apr-2007
71 UPGRADE_STATUS_FLAG OKL_TXL_CNTRCT_LNS.UPGRADE_STATUS_FLAG%TYPE := OKC_API.G_MISS_CHAR
72 );
73
74 g_miss_tcl_rec tcl_rec_type;
75
76 TYPE tcl_tbl_type IS TABLE OF tcl_rec_type
77 INDEX BY BINARY_INTEGER;
78 TYPE tclv_rec_type IS RECORD (
79 id NUMBER := OKC_API.G_MISS_NUM,
80 object_version_number NUMBER := OKC_API.G_MISS_NUM,
81 sty_id NUMBER := OKC_API.G_MISS_NUM,
82 rct_id NUMBER := OKC_API.G_MISS_NUM,
83 btc_id NUMBER := OKC_API.G_MISS_NUM,
84 tcn_id NUMBER := OKC_API.G_MISS_NUM,
85 khr_id NUMBER := OKC_API.G_MISS_NUM,
86 kle_id NUMBER := OKC_API.G_MISS_NUM,
87 before_transfer_yn OKL_TXL_CNTRCT_LNS.BEFORE_TRANSFER_YN%TYPE := OKC_API.G_MISS_CHAR,
88 line_number NUMBER := OKC_API.G_MISS_NUM,
89 description OKL_TXL_CNTRCT_LNS.DESCRIPTION%TYPE := OKC_API.G_MISS_CHAR,
90 amount NUMBER := OKC_API.G_MISS_NUM,
91 -- redwin 07/20/2001 changed from currency to currency_code
92 currency_code OKL_TXL_CNTRCT_LNS.CURRENCY_CODE%TYPE := OKC_API.G_MISS_CHAR,
93 gl_reversal_yn OKL_TXL_CNTRCT_LNS.GL_REVERSAL_YN%TYPE := OKC_API.G_MISS_CHAR,
94 attribute_category OKL_TXL_CNTRCT_LNS.ATTRIBUTE_CATEGORY%TYPE := OKC_API.G_MISS_CHAR,
95 attribute1 OKL_TXL_CNTRCT_LNS.ATTRIBUTE1%TYPE := OKC_API.G_MISS_CHAR,
96 attribute2 OKL_TXL_CNTRCT_LNS.ATTRIBUTE2%TYPE := OKC_API.G_MISS_CHAR,
97 attribute3 OKL_TXL_CNTRCT_LNS.ATTRIBUTE3%TYPE := OKC_API.G_MISS_CHAR,
98 attribute4 OKL_TXL_CNTRCT_LNS.ATTRIBUTE4%TYPE := OKC_API.G_MISS_CHAR,
99 attribute5 OKL_TXL_CNTRCT_LNS.ATTRIBUTE5%TYPE := OKC_API.G_MISS_CHAR,
100 attribute6 OKL_TXL_CNTRCT_LNS.ATTRIBUTE6%TYPE := OKC_API.G_MISS_CHAR,
101 attribute7 OKL_TXL_CNTRCT_LNS.ATTRIBUTE7%TYPE := OKC_API.G_MISS_CHAR,
102 attribute8 OKL_TXL_CNTRCT_LNS.ATTRIBUTE8%TYPE := OKC_API.G_MISS_CHAR,
103 attribute9 OKL_TXL_CNTRCT_LNS.ATTRIBUTE9%TYPE := OKC_API.G_MISS_CHAR,
104 attribute10 OKL_TXL_CNTRCT_LNS.ATTRIBUTE10%TYPE := OKC_API.G_MISS_CHAR,
105 attribute11 OKL_TXL_CNTRCT_LNS.ATTRIBUTE11%TYPE := OKC_API.G_MISS_CHAR,
106 attribute12 OKL_TXL_CNTRCT_LNS.ATTRIBUTE12%TYPE := OKC_API.G_MISS_CHAR,
107 attribute13 OKL_TXL_CNTRCT_LNS.ATTRIBUTE13%TYPE := OKC_API.G_MISS_CHAR,
108 attribute14 OKL_TXL_CNTRCT_LNS.ATTRIBUTE14%TYPE := OKC_API.G_MISS_CHAR,
109 attribute15 OKL_TXL_CNTRCT_LNS.ATTRIBUTE15%TYPE := OKC_API.G_MISS_CHAR,
110 tcl_type OKL_TXL_CNTRCT_LNS.TCL_TYPE%TYPE := OKC_API.G_MISS_CHAR,
111 created_by NUMBER := OKC_API.G_MISS_NUM,
115 org_id NUMBER := OKC_API.G_MISS_NUM,
112 creation_date OKL_TXL_CNTRCT_LNS.CREATION_DATE%TYPE := OKC_API.G_MISS_DATE,
113 last_updated_by NUMBER := OKC_API.G_MISS_NUM,
114 last_update_date OKL_TXL_CNTRCT_LNS.LAST_UPDATE_DATE%TYPE := OKC_API.G_MISS_DATE,
116 program_id NUMBER := OKC_API.G_MISS_NUM,
117 program_application_id NUMBER := OKC_API.G_MISS_NUM,
118 request_id NUMBER := OKC_API.G_MISS_NUM,
119 program_update_date OKL_TXL_CNTRCT_LNS.PROGRAM_UPDATE_DATE%TYPE := OKC_API.G_MISS_DATE,
120 last_update_login NUMBER := OKC_API.G_MISS_NUM,
121 avl_id NUMBER := OKC_API.G_MISS_NUM,
122 bkt_id NUMBER := OKC_API.G_MISS_NUM,
123 -- Added by Santonyr May 20th, 2002 Bug 2305542
124 kle_id_new NUMBER := OKC_API.G_MISS_NUM,
125 percentage NUMBER := OKC_API.G_MISS_NUM,
126 -- Added by Hkpatel Sep 17th, 2003
127 accrual_rule_yn OKL_TXL_CNTRCT_LNS.ACCRUAL_RULE_YN%TYPE := OKC_API.G_MISS_CHAR,
128 -- Added by PAGARG 21-Oct-2004 Bug# 3964726
129 source_column_1 OKL_TXL_CNTRCT_LNS.source_column_1%TYPE := OKC_API.G_MISS_CHAR,
130 source_value_1 OKL_TXL_CNTRCT_LNS.source_value_1%TYPE := OKC_API.G_MISS_NUM,
131 source_column_2 OKL_TXL_CNTRCT_LNS.source_column_2%TYPE := OKC_API.G_MISS_CHAR,
132 source_value_2 OKL_TXL_CNTRCT_LNS.source_value_2%TYPE := OKC_API.G_MISS_NUM,
133 source_column_3 OKL_TXL_CNTRCT_LNS.source_column_3%TYPE := OKC_API.G_MISS_CHAR,
134 source_value_3 OKL_TXL_CNTRCT_LNS.source_value_3%TYPE := OKC_API.G_MISS_NUM,
135 canceled_date OKL_TXL_CNTRCT_LNS.canceled_date%TYPE := OKC_API.G_MISS_DATE,
136 -- Added by DJANASWA 02-Feb-2007 for SLA project
137 tax_line_id OKL_TXL_CNTRCT_LNS.tax_line_id%TYPE := OKC_API.G_MISS_NUM,
138 -- Added by zrehman for SLA project (Bug 5707866) 8-Feb-2007
139 stream_type_code OKL_TXL_CNTRCT_LNS.stream_type_code%TYPE := OKC_API.G_MISS_CHAR,
140 stream_type_purpose OKL_TXL_CNTRCT_LNS.stream_type_purpose%TYPE := OKC_API.G_MISS_CHAR,
141 asset_book_type_name OKL_TXL_CNTRCT_LNS.asset_book_type_name%TYPE := OKC_API.G_MISS_CHAR,
142 -- Added by nikshah for SLA project (Bug 5707866) 13-Apr-2007
143 UPGRADE_STATUS_FLAG OKL_TXL_CNTRCT_LNS.UPGRADE_STATUS_FLAG%TYPE := OKC_API.G_MISS_CHAR
144 );
145
146 g_miss_tclv_rec tclv_rec_type;
147 TYPE tclv_tbl_type IS TABLE OF tclv_rec_type
148 INDEX BY BINARY_INTEGER;
149 ---------------------------------------------------------------------------
150 -- GLOBAL MESSAGE CONSTANTS
151 ---------------------------------------------------------------------------
152 G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
153 G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_FORM_UNABLE_TO_RESERVE_REC;
154 G_FORM_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_FORM_RECORD_DELETED;
155 G_FORM_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKC_API.G_FORM_RECORD_CHANGED;
156 G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
157 G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
158 G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
159 G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
160 G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
161 G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
162 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'OKL_SQLerrm';
163 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'OKL_SQLcode';
164 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXPECTED_ERROR';
165 G_UPPERCASE_REQUIRED CONSTANT VARCHAR2(200) := 'OKL_UPPER_CASE_REQUIRED';
166 G_UNQS CONSTANT VARCHAR2(200) := 'OKL_UNIQUE_KEY_VALIDATION_FAILED';
167
168 ---------------------------------------------------------------------------
169 -- GLOBAL VARIABLES
170 ---------------------------------------------------------------------------
171 G_EXCEPTION_HALT_VALIDATION EXCEPTION;
172
173 ---------------------------------------------------------------------------
174 -- GLOBAL VARIABLES
175 ---------------------------------------------------------------------------
176 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_TCL_PVT';
177 G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
178 ---------------------------------------------------------------------------
179 -- Procedures and Functions
180 ---------------------------------------------------------------------------
181
182 PROCEDURE qc;
183 PROCEDURE change_version;
184 PROCEDURE api_copy;
185 PROCEDURE insert_row(
186 p_api_version IN NUMBER,
187 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
188 x_return_status OUT NOCOPY VARCHAR2,
189 x_msg_count OUT NOCOPY NUMBER,
190 x_msg_data OUT NOCOPY VARCHAR2,
191 p_tclv_rec IN tclv_rec_type,
192 x_tclv_rec OUT NOCOPY tclv_rec_type);
193
194 PROCEDURE insert_row(
195 p_api_version IN NUMBER,
196 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
197 x_return_status OUT NOCOPY VARCHAR2,
198 x_msg_count OUT NOCOPY NUMBER,
199 x_msg_data OUT NOCOPY VARCHAR2,
200 p_tclv_tbl IN tclv_tbl_type,
201 x_tclv_tbl OUT NOCOPY tclv_tbl_type);
202
203 PROCEDURE lock_row(
204 p_api_version IN NUMBER,
205 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
206 x_return_status OUT NOCOPY VARCHAR2,
207 x_msg_count OUT NOCOPY NUMBER,
208 x_msg_data OUT NOCOPY VARCHAR2,
209 p_tclv_rec IN tclv_rec_type);
210
211 PROCEDURE lock_row(
212 p_api_version IN NUMBER,
213 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
214 x_return_status OUT NOCOPY VARCHAR2,
215 x_msg_count OUT NOCOPY NUMBER,
216 x_msg_data OUT NOCOPY VARCHAR2,
217 p_tclv_tbl IN tclv_tbl_type);
218
219 PROCEDURE update_row(
220 p_api_version IN NUMBER,
221 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
222 x_return_status OUT NOCOPY VARCHAR2,
223 x_msg_count OUT NOCOPY NUMBER,
224 x_msg_data OUT NOCOPY VARCHAR2,
225 p_tclv_rec IN tclv_rec_type,
226 x_tclv_rec OUT NOCOPY tclv_rec_type);
227
228 PROCEDURE update_row(
229 p_api_version IN NUMBER,
230 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
231 x_return_status OUT NOCOPY VARCHAR2,
232 x_msg_count OUT NOCOPY NUMBER,
233 x_msg_data OUT NOCOPY VARCHAR2,
234 p_tclv_tbl IN tclv_tbl_type,
235 x_tclv_tbl OUT NOCOPY tclv_tbl_type);
236
237 PROCEDURE delete_row(
238 p_api_version IN NUMBER,
239 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
240 x_return_status OUT NOCOPY VARCHAR2,
241 x_msg_count OUT NOCOPY NUMBER,
242 x_msg_data OUT NOCOPY VARCHAR2,
243 p_tclv_rec IN tclv_rec_type);
244
245 PROCEDURE delete_row(
246 p_api_version IN NUMBER,
247 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
248 x_return_status OUT NOCOPY VARCHAR2,
249 x_msg_count OUT NOCOPY NUMBER,
250 x_msg_data OUT NOCOPY VARCHAR2,
251 p_tclv_tbl IN tclv_tbl_type);
252
253 PROCEDURE validate_row(
254 p_api_version IN NUMBER,
255 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
256 x_return_status OUT NOCOPY VARCHAR2,
257 x_msg_count OUT NOCOPY NUMBER,
258 x_msg_data OUT NOCOPY VARCHAR2,
259 p_tclv_rec IN tclv_rec_type);
260
261 PROCEDURE validate_row(
262 p_api_version IN NUMBER,
263 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
264 x_return_status OUT NOCOPY VARCHAR2,
265 x_msg_count OUT NOCOPY NUMBER,
266 x_msg_data OUT NOCOPY VARCHAR2,
267 p_tclv_tbl IN tclv_tbl_type);
268
269 END OKL_TCL_PVT;