[Home] [Help]
PACKAGE: APPS.OKL_LAP_PVT
Source
1 PACKAGE OKL_LAP_PVT AUTHID CURRENT_USER AS
2 /* $Header: OKLSLAPS.pls 120.3 2006/03/02 16:29:18 pagarg noship $ */
3
4 --------------------
5 -- PACKAGE CONSTANTS
6 --------------------
7 G_PKG_NAME CONSTANT VARCHAR2(30) := 'OKL_LAP_PVT';
8 G_APP_NAME CONSTANT VARCHAR2(30) := OKL_API.G_APP_NAME;
9 G_API_VERSION CONSTANT NUMBER := 1;
10 G_USER_ID CONSTANT NUMBER := FND_GLOBAL.USER_ID;
11 G_LOGIN_ID CONSTANT NUMBER := FND_GLOBAL.LOGIN_ID;
12 G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
13 G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
14 G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
15 G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
16 G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
17 G_DB_ERROR CONSTANT VARCHAR2(30) := 'OKL_DB_ERROR';
18 G_COL_ERROR CONSTANT VARCHAR2(30) := 'OKL_COL_ERROR';
19 G_OVN_ERROR CONSTANT VARCHAR2(30) := 'OKL_OVN_ERROR';
20 G_OVN_ERROR2 CONSTANT VARCHAR2(30) := 'OKL_OVN_ERROR2';
21 G_OVN_ERROR3 CONSTANT VARCHAR2(30) := 'OKL_OVN_ERROR3';
22 G_PKG_NAME_TOKEN CONSTANT VARCHAR2(30) := 'PKG_NAME';
23 G_PROG_NAME_TOKEN CONSTANT VARCHAR2(30) := 'PROG_NAME';
24 G_COL_NAME_TOKEN CONSTANT VARCHAR2(30) := 'COL_NAME';
25 G_SQLCODE_TOKEN CONSTANT VARCHAR2(30) := 'SQLCODE';
26 G_SQLERRM_TOKEN CONSTANT VARCHAR2(30) := 'SQLERRM';
27
28 ------------------
29 -- DATA STRUCTURES
30 ------------------
31
32 -- Do not include WHO columns in the base table record structure
33 TYPE lap_rec_type IS RECORD (
34 id okl_lease_applications_b.id%TYPE
35 ,object_version_number okl_lease_applications_b.object_version_number%TYPE
36 ,attribute_category okl_lease_applications_b.attribute_category%TYPE
37 ,attribute1 okl_lease_applications_b.attribute1%TYPE
38 ,attribute2 okl_lease_applications_b.attribute2%TYPE
39 ,attribute3 okl_lease_applications_b.attribute3%TYPE
40 ,attribute4 okl_lease_applications_b.attribute4%TYPE
41 ,attribute5 okl_lease_applications_b.attribute5%TYPE
42 ,attribute6 okl_lease_applications_b.attribute6%TYPE
43 ,attribute7 okl_lease_applications_b.attribute7%TYPE
44 ,attribute8 okl_lease_applications_b.attribute8%TYPE
45 ,attribute9 okl_lease_applications_b.attribute9%TYPE
46 ,attribute10 okl_lease_applications_b.attribute10%TYPE
47 ,attribute11 okl_lease_applications_b.attribute11%TYPE
48 ,attribute12 okl_lease_applications_b.attribute12%TYPE
49 ,attribute13 okl_lease_applications_b.attribute13%TYPE
50 ,attribute14 okl_lease_applications_b.attribute14%TYPE
51 ,attribute15 okl_lease_applications_b.attribute15%TYPE
52 ,reference_number okl_lease_applications_b.reference_number%TYPE
53 ,application_status okl_lease_applications_b.application_status%TYPE
54 ,valid_from okl_lease_applications_b.valid_from%TYPE
55 ,valid_to okl_lease_applications_b.valid_to%TYPE
56 ,org_id okl_lease_applications_b.org_id%TYPE
57 ,inv_org_id okl_lease_applications_b.inv_org_id%TYPE
58 ,prospect_id okl_lease_applications_b.prospect_id%TYPE
59 ,prospect_address_id okl_lease_applications_b.prospect_address_id%TYPE
60 ,cust_acct_id okl_lease_applications_b.cust_acct_id%TYPE
61 ,industry_class okl_lease_applications_b.industry_class%TYPE
62 ,industry_code okl_lease_applications_b.industry_code%TYPE
63 ,currency_code okl_lease_applications_b.currency_code%TYPE
64 ,currency_conversion_type okl_lease_applications_b.currency_conversion_type%TYPE
65 ,currency_conversion_rate okl_lease_applications_b.currency_conversion_rate%TYPE
66 ,currency_conversion_date okl_lease_applications_b.currency_conversion_date%TYPE
67 ,leaseapp_template_id okl_lease_applications_b.leaseapp_template_id%TYPE
68 ,parent_leaseapp_id okl_lease_applications_b.parent_leaseapp_id%TYPE
69 ,credit_line_id okl_lease_applications_b.credit_line_id%TYPE
70 ,program_agreement_id okl_lease_applications_b.program_agreement_id%TYPE
71 ,master_lease_id okl_lease_applications_b.master_lease_id%TYPE
72 ,sales_rep_id okl_lease_applications_b.sales_rep_id%TYPE
73 ,sales_territory_id okl_lease_applications_b.sales_territory_id%TYPE
74 ,originating_vendor_id okl_lease_applications_b.originating_vendor_id%TYPE
75 ,lease_opportunity_id okl_lease_applications_b.lease_opportunity_id%TYPE
76 ,cr_exp_days okl_lease_applications_b.cr_exp_days%TYPE --VARANGAN - for bug#4747179
77 ,action okl_lease_applications_b.action%TYPE --PAGARG Bug 4872271
78 ,orig_status okl_lease_applications_b.orig_status%TYPE --PAGARG Bug 4872271
79 );
80
81 -- Do not include WHO, LANGUAGE and SFWT_FLAG columns in the _TL record structure
82 TYPE laptl_rec_type IS RECORD (
83 id okl_lease_applications_tl.id%TYPE
84 ,short_description okl_lease_applications_tl.short_description%TYPE
85 ,comments okl_lease_applications_tl.comments%TYPE
86 );
87
88 -- view record structure
89 TYPE lapv_rec_type IS RECORD (
90 id okl_lease_applications_b.id%TYPE
91 ,object_version_number okl_lease_applications_b.object_version_number%TYPE
92 ,attribute_category okl_lease_applications_b.attribute_category%TYPE
93 ,attribute1 okl_lease_applications_b.attribute1%TYPE
94 ,attribute2 okl_lease_applications_b.attribute2%TYPE
95 ,attribute3 okl_lease_applications_b.attribute3%TYPE
96 ,attribute4 okl_lease_applications_b.attribute4%TYPE
97 ,attribute5 okl_lease_applications_b.attribute5%TYPE
98 ,attribute6 okl_lease_applications_b.attribute6%TYPE
99 ,attribute7 okl_lease_applications_b.attribute7%TYPE
100 ,attribute8 okl_lease_applications_b.attribute8%TYPE
101 ,attribute9 okl_lease_applications_b.attribute9%TYPE
102 ,attribute10 okl_lease_applications_b.attribute10%TYPE
103 ,attribute11 okl_lease_applications_b.attribute11%TYPE
104 ,attribute12 okl_lease_applications_b.attribute12%TYPE
105 ,attribute13 okl_lease_applications_b.attribute13%TYPE
106 ,attribute14 okl_lease_applications_b.attribute14%TYPE
107 ,attribute15 okl_lease_applications_b.attribute15%TYPE
108 ,reference_number okl_lease_applications_b.reference_number%TYPE
109 ,application_status okl_lease_applications_b.application_status%TYPE
110 ,valid_from okl_lease_applications_b.valid_from%TYPE
111 ,valid_to okl_lease_applications_b.valid_to%TYPE
112 ,org_id okl_lease_applications_b.org_id%TYPE
113 ,inv_org_id okl_lease_applications_b.inv_org_id%TYPE
114 ,prospect_id okl_lease_applications_b.prospect_id%TYPE
115 ,prospect_address_id okl_lease_applications_b.prospect_address_id%TYPE
116 ,cust_acct_id okl_lease_applications_b.cust_acct_id%TYPE
117 ,industry_class okl_lease_applications_b.industry_class%TYPE
118 ,industry_code okl_lease_applications_b.industry_code%TYPE
119 ,currency_code okl_lease_applications_b.currency_code%TYPE
120 ,currency_conversion_type okl_lease_applications_b.currency_conversion_type%TYPE
121 ,currency_conversion_rate okl_lease_applications_b.currency_conversion_rate%TYPE
122 ,currency_conversion_date okl_lease_applications_b.currency_conversion_date%TYPE
123 ,leaseapp_template_id okl_lease_applications_b.leaseapp_template_id%TYPE
124 ,parent_leaseapp_id okl_lease_applications_b.parent_leaseapp_id%TYPE
125 ,credit_line_id okl_lease_applications_b.credit_line_id%TYPE
126 ,program_agreement_id okl_lease_applications_b.program_agreement_id%TYPE
127 ,master_lease_id okl_lease_applications_b.master_lease_id%TYPE
128 ,sales_rep_id okl_lease_applications_b.sales_rep_id%TYPE
129 ,sales_territory_id okl_lease_applications_b.sales_territory_id%TYPE
130 ,originating_vendor_id okl_lease_applications_b.originating_vendor_id%TYPE
131 ,lease_opportunity_id okl_lease_applications_b.lease_opportunity_id%TYPE
132 ,short_description okl_lease_applications_tl.short_description%TYPE
133 ,comments okl_lease_applications_tl.comments%TYPE
134 ,cr_exp_days okl_lease_applications_b.cr_exp_days%TYPE --VARANGAN for bug#4747179
135 ,action okl_lease_applications_b.action%TYPE --PAGARG Bug 4872271
136 ,orig_status okl_lease_applications_b.orig_status%TYPE --PAGARG Bug 4872271
137 );
138
139 TYPE lapv_tbl_type IS TABLE OF lapv_rec_type INDEX BY BINARY_INTEGER;
140
141 ----------------
142 -- PROGRAM UNITS
143 ----------------
144 PROCEDURE add_language;
145
146 PROCEDURE insert_row(
147 p_api_version IN NUMBER,
148 p_init_msg_list IN VARCHAR2,
149 x_return_status OUT NOCOPY VARCHAR2,
150 x_msg_count OUT NOCOPY NUMBER,
151 x_msg_data OUT NOCOPY VARCHAR2,
152 p_lapv_tbl IN lapv_tbl_type,
153 x_lapv_tbl OUT NOCOPY lapv_tbl_type);
154
155 PROCEDURE update_row(
156 p_api_version IN NUMBER,
157 p_init_msg_list IN VARCHAR2,
158 x_return_status OUT NOCOPY VARCHAR2,
159 x_msg_count OUT NOCOPY NUMBER,
160 x_msg_data OUT NOCOPY VARCHAR2,
161 p_lapv_tbl IN lapv_tbl_type,
162 x_lapv_tbl OUT NOCOPY lapv_tbl_type);
163
164 PROCEDURE delete_row(
165 p_api_version IN NUMBER,
166 p_init_msg_list IN VARCHAR2,
167 x_return_status OUT NOCOPY VARCHAR2,
168 x_msg_count OUT NOCOPY NUMBER,
169 x_msg_data OUT NOCOPY VARCHAR2,
170 p_lapv_tbl IN lapv_tbl_type);
171
172 PROCEDURE insert_row(
173 p_api_version IN NUMBER,
174 p_init_msg_list IN VARCHAR2,
175 x_return_status OUT NOCOPY VARCHAR2,
176 x_msg_count OUT NOCOPY NUMBER,
177 x_msg_data OUT NOCOPY VARCHAR2,
178 p_lapv_rec IN lapv_rec_type,
179 x_lapv_rec OUT NOCOPY lapv_rec_type);
180
181 PROCEDURE update_row(
182 p_api_version IN NUMBER,
183 p_init_msg_list IN VARCHAR2,
184 x_return_status OUT NOCOPY VARCHAR2,
185 x_msg_count OUT NOCOPY NUMBER,
186 x_msg_data OUT NOCOPY VARCHAR2,
187 p_lapv_rec IN lapv_rec_type,
188 x_lapv_rec OUT NOCOPY lapv_rec_type);
189
190 PROCEDURE delete_row(
191 p_api_version IN NUMBER,
192 p_init_msg_list IN VARCHAR2,
193 x_return_status OUT NOCOPY VARCHAR2,
194 x_msg_count OUT NOCOPY NUMBER,
195 x_msg_data OUT NOCOPY VARCHAR2,
196 p_lapv_rec IN lapv_rec_type);
197
198 END OKL_LAP_PVT;