DBA Data[Home] [Help]

PACKAGE: APPS.OKL_TBC_PVT

Source


1 PACKAGE OKL_TBC_PVT AUTHID CURRENT_USER AS
2 /* $Header: OKLSTBCS.pls 120.6 2007/03/12 10:23:08 asawanka noship $ */
3   ---------------------------------------------------------------------------
4   -- GLOBAL DATASTRUCTURES
5   ---------------------------------------------------------------------------
6   -- OKL_TBC_DEFINITIONS_V Record Spec
7   TYPE tbcv_rec_type IS RECORD (
8 
9      result_code                    OKL_TAX_ATTR_DEFINITIONS.RESULT_CODE%TYPE := OKL_API.G_MISS_CHAR
10     ,purchase_option_code           OKL_TAX_ATTR_DEFINITIONS.PURCHASE_OPTION_CODE%TYPE := OKL_API.G_MISS_CHAR
11     ,pdt_id                         NUMBER := OKL_API.G_MISS_NUM
12     ,try_id                         NUMBER := OKL_API.G_MISS_NUM
13     ,sty_id                         NUMBER := OKL_API.G_MISS_NUM
14     ,int_disclosed_code             OKL_TAX_ATTR_DEFINITIONS.INT_DISCLOSED_CODE%TYPE := OKL_API.G_MISS_CHAR
15     ,title_trnsfr_code              OKL_TAX_ATTR_DEFINITIONS.TITLE_TRNSFR_CODE%TYPE := OKL_API.G_MISS_CHAR
16     ,sale_lease_back_code           OKL_TAX_ATTR_DEFINITIONS.SALE_LEASE_BACK_CODE%TYPE := OKL_API.G_MISS_CHAR
17     ,lease_purchased_code           OKL_TAX_ATTR_DEFINITIONS.LEASE_PURCHASED_CODE%TYPE := OKL_API.G_MISS_CHAR
18     ,equip_usage_code               OKL_TAX_ATTR_DEFINITIONS.EQUIP_USAGE_CODE%TYPE := OKL_API.G_MISS_CHAR
19     ,vendor_site_id                 NUMBER := OKL_API.G_MISS_NUM
20     ,age_of_equip_from              NUMBER := OKL_API.G_MISS_NUM
21     ,age_of_equip_to                NUMBER := OKL_API.G_MISS_NUM
22     ,object_version_number          NUMBER := OKL_API.G_MISS_NUM
23     ,attribute_category             OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE_CATEGORY%TYPE := OKL_API.G_MISS_CHAR
24     ,attribute1                     OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE1%TYPE := OKL_API.G_MISS_CHAR
25     ,attribute2                     OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE2%TYPE := OKL_API.G_MISS_CHAR
26     ,attribute3                     OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE3%TYPE := OKL_API.G_MISS_CHAR
27     ,attribute4                     OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE4%TYPE := OKL_API.G_MISS_CHAR
28     ,attribute5                     OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE5%TYPE := OKL_API.G_MISS_CHAR
29     ,attribute6                     OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE6%TYPE := OKL_API.G_MISS_CHAR
30     ,attribute7                     OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE7%TYPE := OKL_API.G_MISS_CHAR
31     ,attribute8                     OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE8%TYPE := OKL_API.G_MISS_CHAR
32     ,attribute9                     OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE9%TYPE := OKL_API.G_MISS_CHAR
33     ,attribute10                    OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE10%TYPE := OKL_API.G_MISS_CHAR
34     ,attribute11                    OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE11%TYPE := OKL_API.G_MISS_CHAR
35     ,attribute12                    OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE12%TYPE := OKL_API.G_MISS_CHAR
36     ,attribute13                    OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE13%TYPE := OKL_API.G_MISS_CHAR
37     ,attribute14                    OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE14%TYPE := OKL_API.G_MISS_CHAR
38     ,attribute15                    OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE15%TYPE := OKL_API.G_MISS_CHAR
39     ,created_by                     NUMBER := OKL_API.G_MISS_NUM
40     ,creation_date                  OKL_TAX_ATTR_DEFINITIONS.CREATION_DATE%TYPE := OKL_API.G_MISS_DATE
41     ,last_updated_by                NUMBER := OKL_API.G_MISS_NUM
42     ,last_update_date               OKL_TAX_ATTR_DEFINITIONS.LAST_UPDATE_DATE%TYPE := OKL_API.G_MISS_DATE
43     ,last_update_login              NUMBER := OKL_API.G_MISS_NUM
44     -- modified by dcshanmu for eBTax project - modification start
45     ,tax_attribute_def_id           NUMBER := OKL_API.G_MISS_NUM
46     ,result_type_code               OKL_TAX_ATTR_DEFINITIONS.RESULT_TYPE_CODE%TYPE := OKL_API.G_MISS_CHAR
47     ,book_class_code                OKL_TAX_ATTR_DEFINITIONS.BOOK_CLASS_CODE%TYPE := OKL_API.G_MISS_CHAR
48     ,date_effective_from            OKL_TAX_ATTR_DEFINITIONS.DATE_EFFECTIVE_FROM%TYPE := OKL_API.G_MISS_DATE
49     ,date_effective_to              OKL_TAX_ATTR_DEFINITIONS.DATE_EFFECTIVE_TO%TYPE := OKL_API.G_MISS_DATE
50     ,tax_country_code               OKL_TAX_ATTR_DEFINITIONS.TAX_COUNTRY_CODE%TYPE := OKL_API.G_MISS_CHAR
51     ,term_quote_type_code           OKL_TAX_ATTR_DEFINITIONS.TERM_QUOTE_TYPE_CODE%TYPE := OKL_API.G_MISS_CHAR
52     ,term_quote_reason_code         OKL_TAX_ATTR_DEFINITIONS.TERM_QUOTE_REASON_CODE%TYPE := OKL_API.G_MISS_CHAR
53     ,expire_flag                    OKL_TAX_ATTR_DEFINITIONS.EXPIRE_FLAG%TYPE := OKL_API.G_MISS_CHAR);
54     -- modified by dcshanmu for eBTax project - modification end
55   G_MISS_tbcv_rec                         tbcv_rec_type;
56   TYPE tbcv_tbl_type IS TABLE OF tbcv_rec_type
57         INDEX BY BINARY_INTEGER;
58   -- OKL_TBC_DEFINITIONS_B Record Spec
59   TYPE tbc_rec_type IS RECORD (
60 
61      result_code                       OKL_TAX_ATTR_DEFINITIONS.RESULT_CODE%TYPE := OKL_API.G_MISS_CHAR
62     ,purchase_option_code           OKL_TAX_ATTR_DEFINITIONS.PURCHASE_OPTION_CODE%TYPE := OKL_API.G_MISS_CHAR
63     ,pdt_id                         NUMBER := OKL_API.G_MISS_NUM
64     ,try_id                         NUMBER := OKL_API.G_MISS_NUM
65     ,sty_id                         NUMBER := OKL_API.G_MISS_NUM
66     ,int_disclosed_code             OKL_TAX_ATTR_DEFINITIONS.INT_DISCLOSED_CODE%TYPE := OKL_API.G_MISS_CHAR
67     ,title_trnsfr_code              OKL_TAX_ATTR_DEFINITIONS.TITLE_TRNSFR_CODE%TYPE := OKL_API.G_MISS_CHAR
68     ,sale_lease_back_code           OKL_TAX_ATTR_DEFINITIONS.SALE_LEASE_BACK_CODE%TYPE := OKL_API.G_MISS_CHAR
69     ,lease_purchased_code           OKL_TAX_ATTR_DEFINITIONS.LEASE_PURCHASED_CODE%TYPE := OKL_API.G_MISS_CHAR
70     ,equip_usage_code               OKL_TAX_ATTR_DEFINITIONS.EQUIP_USAGE_CODE%TYPE := OKL_API.G_MISS_CHAR
71     ,vendor_site_id                 NUMBER := OKL_API.G_MISS_NUM
72     ,age_of_equip_from              NUMBER := OKL_API.G_MISS_NUM
73     ,age_of_equip_to                NUMBER := OKL_API.G_MISS_NUM
74     ,object_version_number          NUMBER := OKL_API.G_MISS_NUM
75     ,attribute_category             OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE_CATEGORY%TYPE := OKL_API.G_MISS_CHAR
76     ,attribute1                     OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE1%TYPE := OKL_API.G_MISS_CHAR
77     ,attribute2                     OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE2%TYPE := OKL_API.G_MISS_CHAR
78     ,attribute3                     OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE3%TYPE := OKL_API.G_MISS_CHAR
79     ,attribute4                     OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE4%TYPE := OKL_API.G_MISS_CHAR
80     ,attribute5                     OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE5%TYPE := OKL_API.G_MISS_CHAR
81     ,attribute6                     OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE6%TYPE := OKL_API.G_MISS_CHAR
82     ,attribute7                     OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE7%TYPE := OKL_API.G_MISS_CHAR
83     ,attribute8                     OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE8%TYPE := OKL_API.G_MISS_CHAR
84     ,attribute9                     OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE9%TYPE := OKL_API.G_MISS_CHAR
85     ,attribute10                    OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE10%TYPE := OKL_API.G_MISS_CHAR
86     ,attribute11                    OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE11%TYPE := OKL_API.G_MISS_CHAR
87     ,attribute12                    OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE12%TYPE := OKL_API.G_MISS_CHAR
88     ,attribute13                    OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE13%TYPE := OKL_API.G_MISS_CHAR
89     ,attribute14                    OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE14%TYPE := OKL_API.G_MISS_CHAR
90     ,attribute15                    OKL_TAX_ATTR_DEFINITIONS.ATTRIBUTE15%TYPE := OKL_API.G_MISS_CHAR
91     ,created_by                     NUMBER := OKL_API.G_MISS_NUM
92     ,creation_date                  OKL_TAX_ATTR_DEFINITIONS.CREATION_DATE%TYPE := OKL_API.G_MISS_DATE
93     ,last_updated_by                NUMBER := OKL_API.G_MISS_NUM
94     ,last_update_date               OKL_TAX_ATTR_DEFINITIONS.LAST_UPDATE_DATE%TYPE := OKL_API.G_MISS_DATE
95     ,last_update_login              NUMBER := OKL_API.G_MISS_NUM
96     -- modified by dcshanmu for eBTax project - modification start
97     ,tax_attribute_def_id           NUMBER := OKL_API.G_MISS_NUM
98     ,result_type_code               OKL_TAX_ATTR_DEFINITIONS.RESULT_TYPE_CODE%TYPE := OKL_API.G_MISS_CHAR
99     ,book_class_code                OKL_TAX_ATTR_DEFINITIONS.BOOK_CLASS_CODE%TYPE := OKL_API.G_MISS_CHAR
100     ,date_effective_from            OKL_TAX_ATTR_DEFINITIONS.DATE_EFFECTIVE_FROM%TYPE := OKL_API.G_MISS_DATE
101     ,date_effective_to              OKL_TAX_ATTR_DEFINITIONS.DATE_EFFECTIVE_TO%TYPE := OKL_API.G_MISS_DATE
102     ,tax_country_code               OKL_TAX_ATTR_DEFINITIONS.TAX_COUNTRY_CODE%TYPE := OKL_API.G_MISS_CHAR
103     ,term_quote_type_code           OKL_TAX_ATTR_DEFINITIONS.TERM_QUOTE_TYPE_CODE%TYPE := OKL_API.G_MISS_CHAR
104     ,term_quote_reason_code         OKL_TAX_ATTR_DEFINITIONS.TERM_QUOTE_REASON_CODE%TYPE := OKL_API.G_MISS_CHAR
105     ,expire_flag                    OKL_TAX_ATTR_DEFINITIONS.EXPIRE_FLAG%TYPE := OKL_API.G_MISS_CHAR);
106     -- modified by dcshanmu for eBTax project - modification end
107   G_MISS_tbc_rec                          tbc_rec_type;
108   TYPE tbc_tbl_type IS TABLE OF tbc_rec_type
109         INDEX BY BINARY_INTEGER;
110   ---------------------------------------------------------------------------
111   -- GLOBAL MESSAGE CONSTANTS
112   ---------------------------------------------------------------------------
113   G_FND_APP                      CONSTANT VARCHAR2(200) := OKL_API.G_FND_APP;
114   G_FORM_UNABLE_TO_RESERVE_REC   CONSTANT VARCHAR2(200) := OKL_API.G_FORM_UNABLE_TO_RESERVE_REC;
115   G_FORM_RECORD_DELETED          CONSTANT VARCHAR2(200) := OKL_API.G_FORM_RECORD_DELETED;
116   G_FORM_RECORD_CHANGED          CONSTANT VARCHAR2(200) := OKL_API.G_FORM_RECORD_CHANGED;
117   G_RECORD_LOGICALLY_DELETED     CONSTANT VARCHAR2(200) := OKL_API.G_RECORD_LOGICALLY_DELETED;
118   G_REQUIRED_VALUE               CONSTANT VARCHAR2(200) := OKL_API.G_REQUIRED_VALUE;
119   G_INVALID_VALUE                CONSTANT VARCHAR2(200) := OKL_API.G_INVALID_VALUE;
120   G_COL_NAME_TOKEN               CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
121   G_PARENT_TABLE_TOKEN           CONSTANT VARCHAR2(200) := OKL_API.G_PARENT_TABLE_TOKEN;
122   G_CHILD_TABLE_TOKEN            CONSTANT VARCHAR2(200) := OKL_API.G_CHILD_TABLE_TOKEN;
123   G_UNEXPECTED_ERROR             CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UNEXPECTED_ERROR';
124   G_SQLCODE_TOKEN                CONSTANT VARCHAR2(200) := 'SQLcode';
125   G_SQLERRM_TOKEN                CONSTANT VARCHAR2(200) := 'SQLerrm';
126 
127   -- SECHAWLA Added
128   G_NO_PARENT_RECORD            CONSTANT VARCHAR2(200) := 'OKL_NO_PARENT_RECORD';
129 
130   ---------------------------------------------------------------------------
131   -- GLOBAL EXCEPTIONS
132   ---------------------------------------------------------------------------
133   G_EXCEPTION_HALT_VALIDATION    EXCEPTION;
134 
135   ---------------------------------------------------------------------------
136   -- GLOBAL VARIABLES
137   ---------------------------------------------------------------------------
138   G_PKG_NAME                     CONSTANT VARCHAR2(200) := 'OKL_TBC_PVT';
139   G_APP_NAME                     CONSTANT VARCHAR2(3)   := OKL_API.G_APP_NAME;
140   ---------------------------------------------------------------------------
141   -- Procedures and Functions
142   ---------------------------------------------------------------------------
143 
144   PROCEDURE qc;
145   PROCEDURE change_version;
146   PROCEDURE api_copy;
147   PROCEDURE insert_row(
148     p_api_version                  IN NUMBER,
149     p_init_msg_list                IN VARCHAR2,
150     x_return_status                OUT NOCOPY VARCHAR2,
151     x_msg_count                    OUT NOCOPY NUMBER,
152     x_msg_data                     OUT NOCOPY VARCHAR2,
153     p_tbcv_rec                     IN tbcv_rec_type,
154     x_tbcv_rec                     OUT NOCOPY tbcv_rec_type);
155   PROCEDURE insert_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_tbcv_tbl                     IN tbcv_tbl_type,
162     x_tbcv_tbl                     OUT NOCOPY tbcv_tbl_type,
163     px_error_tbl                   IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE);
164   PROCEDURE insert_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_tbcv_tbl                     IN tbcv_tbl_type,
171     x_tbcv_tbl                     OUT NOCOPY tbcv_tbl_type);
172   PROCEDURE lock_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_tbcv_rec                     IN tbcv_rec_type);
179   PROCEDURE lock_row(
180     p_api_version                  IN NUMBER,
181     p_init_msg_list                IN VARCHAR2,
182     x_return_status                OUT NOCOPY VARCHAR2,
183     x_msg_count                    OUT NOCOPY NUMBER,
184     x_msg_data                     OUT NOCOPY VARCHAR2,
185     p_tbcv_tbl                     IN tbcv_tbl_type,
186     px_error_tbl                   IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE);
187   PROCEDURE lock_row(
188     p_api_version                  IN NUMBER,
189     p_init_msg_list                IN VARCHAR2,
190     x_return_status                OUT NOCOPY VARCHAR2,
191     x_msg_count                    OUT NOCOPY NUMBER,
192     x_msg_data                     OUT NOCOPY VARCHAR2,
193     p_tbcv_tbl                     IN tbcv_tbl_type);
194   PROCEDURE update_row(
195     p_api_version                  IN NUMBER,
196     p_init_msg_list                IN VARCHAR2,
197     x_return_status                OUT NOCOPY VARCHAR2,
198     x_msg_count                    OUT NOCOPY NUMBER,
199     x_msg_data                     OUT NOCOPY VARCHAR2,
200     p_tbcv_rec                     IN tbcv_rec_type,
201     x_tbcv_rec                     OUT NOCOPY tbcv_rec_type);
202   PROCEDURE update_row(
203     p_api_version                  IN NUMBER,
204     p_init_msg_list                IN VARCHAR2,
205     x_return_status                OUT NOCOPY VARCHAR2,
206     x_msg_count                    OUT NOCOPY NUMBER,
207     x_msg_data                     OUT NOCOPY VARCHAR2,
208     p_tbcv_tbl                     IN tbcv_tbl_type,
209     x_tbcv_tbl                     OUT NOCOPY tbcv_tbl_type,
210     px_error_tbl                   IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE);
211   PROCEDURE update_row(
212     p_api_version                  IN NUMBER,
213     p_init_msg_list                IN VARCHAR2,
214     x_return_status                OUT NOCOPY VARCHAR2,
215     x_msg_count                    OUT NOCOPY NUMBER,
216     x_msg_data                     OUT NOCOPY VARCHAR2,
217     p_tbcv_tbl                     IN tbcv_tbl_type,
218     x_tbcv_tbl                     OUT NOCOPY tbcv_tbl_type);
219   PROCEDURE delete_row(
220     p_api_version                  IN NUMBER,
221     p_init_msg_list                IN VARCHAR2,
222     x_return_status                OUT NOCOPY VARCHAR2,
223     x_msg_count                    OUT NOCOPY NUMBER,
224     x_msg_data                     OUT NOCOPY VARCHAR2,
225     p_tbcv_rec                     IN tbcv_rec_type);
226   PROCEDURE delete_row(
227     p_api_version                  IN NUMBER,
228     p_init_msg_list                IN VARCHAR2,
229     x_return_status                OUT NOCOPY VARCHAR2,
230     x_msg_count                    OUT NOCOPY NUMBER,
231     x_msg_data                     OUT NOCOPY VARCHAR2,
232     p_tbcv_tbl                     IN tbcv_tbl_type,
233     px_error_tbl                   IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE);
234   PROCEDURE delete_row(
235     p_api_version                  IN NUMBER,
236     p_init_msg_list                IN VARCHAR2,
237     x_return_status                OUT NOCOPY VARCHAR2,
238     x_msg_count                    OUT NOCOPY NUMBER,
239     x_msg_data                     OUT NOCOPY VARCHAR2,
240     p_tbcv_tbl                     IN tbcv_tbl_type);
241   PROCEDURE validate_row(
242     p_api_version                  IN NUMBER,
243     p_init_msg_list                IN VARCHAR2,
244     x_return_status                OUT NOCOPY VARCHAR2,
245     x_msg_count                    OUT NOCOPY NUMBER,
246     x_msg_data                     OUT NOCOPY VARCHAR2,
247     p_tbcv_rec                     IN tbcv_rec_type);
248   PROCEDURE validate_row(
249     p_api_version                  IN NUMBER,
250     p_init_msg_list                IN VARCHAR2,
251     x_return_status                OUT NOCOPY VARCHAR2,
252     x_msg_count                    OUT NOCOPY NUMBER,
253     x_msg_data                     OUT NOCOPY VARCHAR2,
254     p_tbcv_tbl                     IN tbcv_tbl_type,
255     px_error_tbl                   IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE);
256   PROCEDURE validate_row(
257     p_api_version                  IN NUMBER,
258     p_init_msg_list                IN VARCHAR2,
259     x_return_status                OUT NOCOPY VARCHAR2,
260     x_msg_count                    OUT NOCOPY NUMBER,
261     x_msg_data                     OUT NOCOPY VARCHAR2,
262     p_tbcv_tbl                     IN tbcv_tbl_type);
263 END OKL_TBC_PVT;