[Home] [Help]
PACKAGE: APPS.OKL_LOP_PVT
Source
1 PACKAGE OKL_LOP_PVT AS
2 /* $Header: OKLSLOPS.pls 120.4 2007/03/20 23:18:04 rravikir noship $ */
3
4 --------------------
5 -- PACKAGE CONSTANTS
6 --------------------
7 G_PKG_NAME CONSTANT VARCHAR2(30) := 'OKL_LOP_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 lop_rec_type IS RECORD (
34 id okl_lease_opportunities_b.id%TYPE
35 ,object_version_number okl_lease_opportunities_b.object_version_number%TYPE
36 ,attribute_category okl_lease_opportunities_b.attribute_category%TYPE
37 ,attribute1 okl_lease_opportunities_b.attribute1%TYPE
38 ,attribute2 okl_lease_opportunities_b.attribute2%TYPE
39 ,attribute3 okl_lease_opportunities_b.attribute3%TYPE
40 ,attribute4 okl_lease_opportunities_b.attribute4%TYPE
41 ,attribute5 okl_lease_opportunities_b.attribute5%TYPE
42 ,attribute6 okl_lease_opportunities_b.attribute6%TYPE
43 ,attribute7 okl_lease_opportunities_b.attribute7%TYPE
44 ,attribute8 okl_lease_opportunities_b.attribute8%TYPE
45 ,attribute9 okl_lease_opportunities_b.attribute9%TYPE
46 ,attribute10 okl_lease_opportunities_b.attribute10%TYPE
47 ,attribute11 okl_lease_opportunities_b.attribute11%TYPE
48 ,attribute12 okl_lease_opportunities_b.attribute12%TYPE
49 ,attribute13 okl_lease_opportunities_b.attribute13%TYPE
50 ,attribute14 okl_lease_opportunities_b.attribute14%TYPE
51 ,attribute15 okl_lease_opportunities_b.attribute15%TYPE
52 ,reference_number okl_lease_opportunities_b.reference_number%TYPE
53 ,status okl_lease_opportunities_b.status%TYPE
54 ,valid_from okl_lease_opportunities_b.valid_from%TYPE
55 ,expected_start_date okl_lease_opportunities_b.expected_start_date%TYPE
56 ,org_id okl_lease_opportunities_b.org_id%TYPE
57 ,inv_org_id okl_lease_opportunities_b.inv_org_id%TYPE
58 ,prospect_id okl_lease_opportunities_b.prospect_id%TYPE
59 ,prospect_address_id okl_lease_opportunities_b.prospect_address_id%TYPE
60 ,cust_acct_id okl_lease_opportunities_b.cust_acct_id%TYPE
61 ,currency_code okl_lease_opportunities_b.currency_code%TYPE
62 ,currency_conversion_type okl_lease_opportunities_b.currency_conversion_type%TYPE
63 ,currency_conversion_rate okl_lease_opportunities_b.currency_conversion_rate%TYPE
64 ,currency_conversion_date okl_lease_opportunities_b.currency_conversion_date%TYPE
65 ,program_agreement_id okl_lease_opportunities_b.program_agreement_id%TYPE
66 ,master_lease_id okl_lease_opportunities_b.master_lease_id%TYPE
67 ,sales_rep_id okl_lease_opportunities_b.sales_rep_id%TYPE
68 ,sales_territory_id okl_lease_opportunities_b.sales_territory_id%TYPE
69 ,supplier_id okl_lease_opportunities_b.supplier_id%TYPE
70 ,delivery_date okl_lease_opportunities_b.delivery_date%TYPE
71 ,funding_date okl_lease_opportunities_b.funding_date%TYPE
72 ,property_tax_applicable okl_lease_opportunities_b.property_tax_applicable%TYPE
73 ,property_tax_billing_type okl_lease_opportunities_b.property_tax_billing_type%TYPE
74 ,upfront_tax_treatment okl_lease_opportunities_b.upfront_tax_treatment%TYPE
75 ,install_site_id okl_lease_opportunities_b.install_site_id%TYPE
76 ,usage_category okl_lease_opportunities_b.usage_category%TYPE
77 ,usage_industry_class okl_lease_opportunities_b.usage_industry_class%TYPE
78 ,usage_industry_code okl_lease_opportunities_b.usage_industry_code%TYPE
79 ,usage_amount okl_lease_opportunities_b.usage_amount%TYPE
80 ,usage_location_id okl_lease_opportunities_b.usage_location_id%TYPE
81 ,originating_vendor_id okl_lease_opportunities_b.originating_vendor_id%TYPE
82 --Fixed Bug #5647107 ssdeshpa start
83 ,legal_entity_id okl_lease_opportunities_b.legal_entity_id%TYPE
84 --Fixed Bug #5647107 ssdeshpa end
85 -- Bug 5908845. eBTax Enhancement Project
86 ,line_intended_use okl_lease_opportunities_b.line_intended_use%TYPE
87 -- End Bug 5908845. eBTax Enhancement Project
88 );
89
90 -- Do not include WHO, LANGUAGE and SFWT_FLAG columns in the _TL record structure
91 TYPE loptl_rec_type IS RECORD (
92 id okl_lease_opportunities_tl.id%TYPE
93 ,short_description okl_lease_opportunities_tl.short_description%TYPE
94 ,description okl_lease_opportunities_tl.description%TYPE
95 ,comments okl_lease_opportunities_tl.comments%TYPE
96 );
97
98 -- view record structure
99 TYPE lopv_rec_type IS RECORD (
100 id okl_lease_opportunities_b.id%TYPE := OKL_API.G_MISS_NUM
101 ,object_version_number okl_lease_opportunities_b.object_version_number%TYPE
102 ,attribute_category okl_lease_opportunities_b.attribute_category%TYPE := OKL_API.G_MISS_CHAR
103 ,attribute1 okl_lease_opportunities_b.attribute1%TYPE := OKL_API.G_MISS_CHAR
104 ,attribute2 okl_lease_opportunities_b.attribute2%TYPE := OKL_API.G_MISS_CHAR
105 ,attribute3 okl_lease_opportunities_b.attribute3%TYPE := OKL_API.G_MISS_CHAR
106 ,attribute4 okl_lease_opportunities_b.attribute4%TYPE := OKL_API.G_MISS_CHAR
107 ,attribute5 okl_lease_opportunities_b.attribute5%TYPE := OKL_API.G_MISS_CHAR
108 ,attribute6 okl_lease_opportunities_b.attribute6%TYPE := OKL_API.G_MISS_CHAR
109 ,attribute7 okl_lease_opportunities_b.attribute7%TYPE := OKL_API.G_MISS_CHAR
110 ,attribute8 okl_lease_opportunities_b.attribute8%TYPE := OKL_API.G_MISS_CHAR
111 ,attribute9 okl_lease_opportunities_b.attribute9%TYPE := OKL_API.G_MISS_CHAR
112 ,attribute10 okl_lease_opportunities_b.attribute10%TYPE := OKL_API.G_MISS_CHAR
113 ,attribute11 okl_lease_opportunities_b.attribute11%TYPE := OKL_API.G_MISS_CHAR
114 ,attribute12 okl_lease_opportunities_b.attribute12%TYPE := OKL_API.G_MISS_CHAR
115 ,attribute13 okl_lease_opportunities_b.attribute13%TYPE := OKL_API.G_MISS_CHAR
116 ,attribute14 okl_lease_opportunities_b.attribute14%TYPE := OKL_API.G_MISS_CHAR
117 ,attribute15 okl_lease_opportunities_b.attribute15%TYPE := OKL_API.G_MISS_CHAR
118 ,reference_number okl_lease_opportunities_b.reference_number%TYPE := OKL_API.G_MISS_CHAR
119 ,status okl_lease_opportunities_b.status%TYPE := OKL_API.G_MISS_CHAR
120 ,valid_from okl_lease_opportunities_b.valid_from%TYPE := OKL_API.G_MISS_DATE
121 ,expected_start_date okl_lease_opportunities_b.expected_start_date%TYPE := OKL_API.G_MISS_DATE
122 ,org_id okl_lease_opportunities_b.org_id%TYPE := OKL_API.G_MISS_NUM
123 ,inv_org_id okl_lease_opportunities_b.inv_org_id%TYPE := OKL_API.G_MISS_NUM
124 ,prospect_id okl_lease_opportunities_b.prospect_id%TYPE := OKL_API.G_MISS_NUM
125 ,prospect_address_id okl_lease_opportunities_b.prospect_address_id%TYPE := OKL_API.G_MISS_NUM
126 ,cust_acct_id okl_lease_opportunities_b.cust_acct_id%TYPE := OKL_API.G_MISS_NUM
127 ,currency_code okl_lease_opportunities_b.currency_code%TYPE := OKL_API.G_MISS_CHAR
128 ,currency_conversion_type okl_lease_opportunities_b.currency_conversion_type%TYPE := OKL_API.G_MISS_CHAR
129 ,currency_conversion_rate okl_lease_opportunities_b.currency_conversion_rate%TYPE := OKL_API.G_MISS_NUM
130 ,currency_conversion_date okl_lease_opportunities_b.currency_conversion_date%TYPE := OKL_API.G_MISS_DATE
131 ,program_agreement_id okl_lease_opportunities_b.program_agreement_id%TYPE := OKL_API.G_MISS_NUM
132 ,master_lease_id okl_lease_opportunities_b.master_lease_id%TYPE := OKL_API.G_MISS_NUM
133 ,sales_rep_id okl_lease_opportunities_b.sales_rep_id%TYPE := OKL_API.G_MISS_NUM
134 ,sales_territory_id okl_lease_opportunities_b.sales_territory_id%TYPE := OKL_API.G_MISS_NUM
135 ,supplier_id okl_lease_opportunities_b.supplier_id%TYPE := OKL_API.G_MISS_NUM
136 ,delivery_date okl_lease_opportunities_b.delivery_date%TYPE := OKL_API.G_MISS_DATE
137 ,funding_date okl_lease_opportunities_b.funding_date%TYPE := OKL_API.G_MISS_DATE
138 ,property_tax_applicable okl_lease_opportunities_b.property_tax_applicable%TYPE := OKL_API.G_MISS_CHAR
139 ,property_tax_billing_type okl_lease_opportunities_b.property_tax_billing_type%TYPE := OKL_API.G_MISS_CHAR
140 ,upfront_tax_treatment okl_lease_opportunities_b.upfront_tax_treatment%TYPE := OKL_API.G_MISS_CHAR
141 ,install_site_id okl_lease_opportunities_b.install_site_id%TYPE := OKL_API.G_MISS_NUM
142 ,usage_category okl_lease_opportunities_b.usage_category%TYPE := OKL_API.G_MISS_CHAR
143 ,usage_industry_class okl_lease_opportunities_b.usage_industry_class%TYPE := OKL_API.G_MISS_CHAR
144 ,usage_industry_code okl_lease_opportunities_b.usage_industry_code%TYPE := OKL_API.G_MISS_CHAR
145 ,usage_amount okl_lease_opportunities_b.usage_amount%TYPE := OKL_API.G_MISS_NUM
146 ,usage_location_id okl_lease_opportunities_b.usage_location_id%TYPE := OKL_API.G_MISS_NUM
147 ,originating_vendor_id okl_lease_opportunities_b.originating_vendor_id%TYPE := OKL_API.G_MISS_NUM
148 --Fixed Bug# 5647107 ssdeshpa start
149 ,legal_entity_id okl_lease_opportunities_b.legal_entity_id%TYPE := OKL_API.G_MISS_NUM
150 --Fixed Bug#5647107 ssdeshpa start
151 -- Bug 5908845. eBTax Enhancement Project
152 ,line_intended_use okl_lease_opportunities_b.line_intended_use%TYPE := OKL_API.G_MISS_CHAR
153 -- End Bug 5908845. eBTax Enhancement Project
154 ,short_description okl_lease_opportunities_tl.short_description%TYPE := OKL_API.G_MISS_CHAR
155 ,description okl_lease_opportunities_tl.description%TYPE := OKL_API.G_MISS_CHAR
156 ,comments okl_lease_opportunities_tl.comments%TYPE := OKL_API.G_MISS_CHAR
157 );
158
159 TYPE lopv_tbl_type IS TABLE OF lopv_rec_type INDEX BY BINARY_INTEGER;
160
161 ----------------
162 -- PROGRAM UNITS
163 ----------------
164 PROCEDURE add_language;
165
166 PROCEDURE insert_row(
167 p_api_version IN NUMBER,
168 p_init_msg_list IN VARCHAR2,
169 x_return_status OUT NOCOPY VARCHAR2,
170 x_msg_count OUT NOCOPY NUMBER,
171 x_msg_data OUT NOCOPY VARCHAR2,
172 p_lopv_tbl IN lopv_tbl_type,
173 x_lopv_tbl OUT NOCOPY lopv_tbl_type);
174
175 PROCEDURE update_row(
176 p_api_version IN NUMBER,
177 p_init_msg_list IN VARCHAR2,
178 x_return_status OUT NOCOPY VARCHAR2,
179 x_msg_count OUT NOCOPY NUMBER,
180 x_msg_data OUT NOCOPY VARCHAR2,
181 p_lopv_tbl IN lopv_tbl_type,
182 x_lopv_tbl OUT NOCOPY lopv_tbl_type);
183
184 PROCEDURE delete_row(
185 p_api_version IN NUMBER,
186 p_init_msg_list IN VARCHAR2,
187 x_return_status OUT NOCOPY VARCHAR2,
188 x_msg_count OUT NOCOPY NUMBER,
189 x_msg_data OUT NOCOPY VARCHAR2,
190 p_lopv_tbl IN lopv_tbl_type);
191
192 PROCEDURE insert_row(
193 p_api_version IN NUMBER,
194 p_init_msg_list IN VARCHAR2,
195 x_return_status OUT NOCOPY VARCHAR2,
196 x_msg_count OUT NOCOPY NUMBER,
197 x_msg_data OUT NOCOPY VARCHAR2,
198 p_lopv_rec IN lopv_rec_type,
199 x_lopv_rec OUT NOCOPY lopv_rec_type);
200
201 PROCEDURE update_row(
202 p_api_version IN NUMBER,
203 p_init_msg_list IN VARCHAR2,
204 x_return_status OUT NOCOPY VARCHAR2,
205 x_msg_count OUT NOCOPY NUMBER,
206 x_msg_data OUT NOCOPY VARCHAR2,
207 p_lopv_rec IN lopv_rec_type,
208 x_lopv_rec OUT NOCOPY lopv_rec_type);
209
210 PROCEDURE delete_row(
211 p_api_version IN NUMBER,
212 p_init_msg_list IN VARCHAR2,
213 x_return_status OUT NOCOPY VARCHAR2,
214 x_msg_count OUT NOCOPY NUMBER,
215 x_msg_data OUT NOCOPY VARCHAR2,
216 p_lopv_rec IN lopv_rec_type);
217
218 END OKL_LOP_PVT;