DBA Data[Home] [Help]

PACKAGE: APPS.OKS_IHD_PVT

Source


1 PACKAGE OKS_IHD_PVT AS
2 /* $Header: OKSSIHDS.pls 120.4 2006/09/11 23:23:56 dneetha noship $ */
3   ---------------------------------------------------------------------------
4   -- GLOBAL DATASTRUCTURES
5   ---------------------------------------------------------------------------
6   -- OKS_INST_HIST_DETAILS_V Record Spec
7   TYPE ihdv_rec_type IS RECORD (
8      id                             NUMBER := OKC_API.G_MISS_NUM
9     ,ins_id                         NUMBER := OKC_API.G_MISS_NUM
10     ,transaction_date               OKS_INST_HIST_DETAILS_V.TRANSACTION_DATE%TYPE := OKC_API.G_MISS_DATE
11     ,transaction_type               OKS_INST_HIST_DETAILS_V.TRANSACTION_TYPE%TYPE := OKC_API.G_MISS_CHAR
12     ,system_id                      NUMBER := OKC_API.G_MISS_NUM
13     ,instance_id_new                NUMBER := OKC_API.G_MISS_NUM
14     ,instance_qty_old               NUMBER := OKC_API.G_MISS_NUM
15     ,instance_qty_new               NUMBER := OKC_API.G_MISS_NUM
16     ,instance_amt_old               NUMBER := OKC_API.G_MISS_NUM
17     ,instance_amt_new               NUMBER := OKC_API.G_MISS_NUM
18     ,old_contract_id                NUMBER := OKC_API.G_MISS_NUM
19     ,old_contact_start_date         OKS_INST_HIST_DETAILS_V.OLD_CONTACT_START_DATE%TYPE := OKC_API.G_MISS_DATE
20     ,old_contract_end_date          OKS_INST_HIST_DETAILS_V.OLD_CONTRACT_END_DATE%TYPE := OKC_API.G_MISS_DATE
21     ,new_contract_id                NUMBER := OKC_API.G_MISS_NUM
22     ,new_contact_start_date         OKS_INST_HIST_DETAILS_V.NEW_CONTACT_START_DATE%TYPE := OKC_API.G_MISS_DATE
23     ,new_contract_end_date          OKS_INST_HIST_DETAILS_V.NEW_CONTRACT_END_DATE%TYPE := OKC_API.G_MISS_DATE
24     ,old_service_line_id            NUMBER := OKC_API.G_MISS_NUM
25     ,old_service_start_date         OKS_INST_HIST_DETAILS_V.OLD_SERVICE_START_DATE%TYPE := OKC_API.G_MISS_DATE
26     ,old_service_end_date           OKS_INST_HIST_DETAILS_V.OLD_SERVICE_END_DATE%TYPE := OKC_API.G_MISS_DATE
27     ,new_service_line_id            NUMBER := OKC_API.G_MISS_NUM
28     ,new_service_start_date         OKS_INST_HIST_DETAILS_V.NEW_SERVICE_START_DATE%TYPE := OKC_API.G_MISS_DATE
29     ,new_service_end_date           OKS_INST_HIST_DETAILS_V.NEW_SERVICE_END_DATE%TYPE := OKC_API.G_MISS_DATE
30     ,old_subline_id                 NUMBER := OKC_API.G_MISS_NUM
31     ,old_subline_start_date         OKS_INST_HIST_DETAILS_V.OLD_SUBLINE_START_DATE%TYPE := OKC_API.G_MISS_DATE
32     ,old_subline_end_date           OKS_INST_HIST_DETAILS_V.OLD_SUBLINE_END_DATE%TYPE := OKC_API.G_MISS_DATE
33     ,new_subline_id                 NUMBER := OKC_API.G_MISS_NUM
34     ,new_subline_start_date         OKS_INST_HIST_DETAILS_V.NEW_SUBLINE_START_DATE%TYPE := OKC_API.G_MISS_DATE
35     ,new_subline_end_date           OKS_INST_HIST_DETAILS_V.NEW_SUBLINE_END_DATE%TYPE := OKC_API.G_MISS_DATE
36     ,old_customer                   NUMBER := OKC_API.G_MISS_NUM
37     ,new_customer                   NUMBER := OKC_API.G_MISS_NUM
38     ,old_k_status                   OKS_INST_HIST_DETAILS_V.OLD_K_STATUS%TYPE := OKC_API.G_MISS_CHAR
39     ,new_k_status                   OKS_INST_HIST_DETAILS_V.NEW_K_STATUS%TYPE := OKC_API.G_MISS_CHAR
40     ,subline_date_terminated        OKS_INST_HIST_DETAILS_V.SUBLINE_DATE_TERMINATED%TYPE := OKC_API.G_MISS_DATE
41     ,transfer_option                OKS_INST_HIST_DETAILS_V.TRANSFER_OPTION%TYPE := OKC_API.G_MISS_CHAR
42     ,created_by                     NUMBER := OKC_API.G_MISS_NUM
43     ,creation_date                  OKS_INST_HIST_DETAILS_V.CREATION_DATE%TYPE := OKC_API.G_MISS_DATE
44     ,last_updated_by                NUMBER := OKC_API.G_MISS_NUM
45     ,last_update_date               OKS_INST_HIST_DETAILS_V.LAST_UPDATE_DATE%TYPE := OKC_API.G_MISS_DATE
46     ,last_update_login              NUMBER := OKC_API.G_MISS_NUM
47     ,object_version_number          NUMBER := OKC_API.G_MISS_NUM
48     ,security_group_id              NUMBER := OKC_API.G_MISS_NUM
49     ,date_cancelled                 OKS_INST_HIST_DETAILS_V.DATE_CANCELLED%TYPE := OKC_API.G_MISS_DATE);
50   G_MISS_ihdv_rec                         ihdv_rec_type;
51   TYPE ihdv_tbl_type IS TABLE OF ihdv_rec_type
52         INDEX BY BINARY_INTEGER;
53   -- OKS_INST_HIST_DETAILS Record Spec
54   TYPE ihd_rec_type IS RECORD (
55      id                             NUMBER := OKC_API.G_MISS_NUM
56     ,ins_id                         NUMBER := OKC_API.G_MISS_NUM
57     ,transaction_date               OKS_INST_HIST_DETAILS.TRANSACTION_DATE%TYPE := OKC_API.G_MISS_DATE
58     ,transaction_type               OKS_INST_HIST_DETAILS.TRANSACTION_TYPE%TYPE := OKC_API.G_MISS_CHAR
59     ,system_id                      NUMBER := OKC_API.G_MISS_NUM
60     ,instance_id_new                NUMBER := OKC_API.G_MISS_NUM
61     ,instance_qty_old               NUMBER := OKC_API.G_MISS_NUM
62     ,instance_qty_new               NUMBER := OKC_API.G_MISS_NUM
63     ,instance_amt_old               NUMBER := OKC_API.G_MISS_NUM
64     ,instance_amt_new               NUMBER := OKC_API.G_MISS_NUM
65     ,old_contract_id                NUMBER := OKC_API.G_MISS_NUM
66     ,old_contact_start_date         OKS_INST_HIST_DETAILS.OLD_CONTACT_START_DATE%TYPE := OKC_API.G_MISS_DATE
67     ,old_contract_end_date          OKS_INST_HIST_DETAILS.OLD_CONTRACT_END_DATE%TYPE := OKC_API.G_MISS_DATE
68     ,new_contract_id                NUMBER := OKC_API.G_MISS_NUM
69     ,new_contact_start_date         OKS_INST_HIST_DETAILS.NEW_CONTACT_START_DATE%TYPE := OKC_API.G_MISS_DATE
70     ,new_contract_end_date          OKS_INST_HIST_DETAILS.NEW_CONTRACT_END_DATE%TYPE := OKC_API.G_MISS_DATE
71     ,old_service_line_id            NUMBER := OKC_API.G_MISS_NUM
72     ,old_service_start_date         OKS_INST_HIST_DETAILS.OLD_SERVICE_START_DATE%TYPE := OKC_API.G_MISS_DATE
73     ,old_service_end_date           OKS_INST_HIST_DETAILS.OLD_SERVICE_END_DATE%TYPE := OKC_API.G_MISS_DATE
74     ,new_service_line_id            NUMBER := OKC_API.G_MISS_NUM
75     ,new_service_start_date         OKS_INST_HIST_DETAILS.NEW_SERVICE_START_DATE%TYPE := OKC_API.G_MISS_DATE
76     ,new_service_end_date           OKS_INST_HIST_DETAILS.NEW_SERVICE_END_DATE%TYPE := OKC_API.G_MISS_DATE
77     ,old_subline_id                 NUMBER := OKC_API.G_MISS_NUM
78     ,old_subline_start_date         OKS_INST_HIST_DETAILS.OLD_SUBLINE_START_DATE%TYPE := OKC_API.G_MISS_DATE
79     ,old_subline_end_date           OKS_INST_HIST_DETAILS.OLD_SUBLINE_END_DATE%TYPE := OKC_API.G_MISS_DATE
80     ,new_subline_id                 NUMBER := OKC_API.G_MISS_NUM
81     ,new_subline_start_date         OKS_INST_HIST_DETAILS.NEW_SUBLINE_START_DATE%TYPE := OKC_API.G_MISS_DATE
82     ,new_subline_end_date           OKS_INST_HIST_DETAILS.NEW_SUBLINE_END_DATE%TYPE := OKC_API.G_MISS_DATE
83     ,old_customer                   NUMBER := OKC_API.G_MISS_NUM
84     ,new_customer                   NUMBER := OKC_API.G_MISS_NUM
85     ,old_k_status                   OKS_INST_HIST_DETAILS.OLD_K_STATUS%TYPE := OKC_API.G_MISS_CHAR
86     ,new_k_status                   OKS_INST_HIST_DETAILS.NEW_K_STATUS%TYPE := OKC_API.G_MISS_CHAR
87     ,subline_date_terminated        OKS_INST_HIST_DETAILS.SUBLINE_DATE_TERMINATED%TYPE := OKC_API.G_MISS_DATE
88     ,transfer_option                OKS_INST_HIST_DETAILS.TRANSFER_OPTION%TYPE := OKC_API.G_MISS_CHAR
89     ,created_by                     NUMBER := OKC_API.G_MISS_NUM
90     ,creation_date                  OKS_INST_HIST_DETAILS.CREATION_DATE%TYPE := OKC_API.G_MISS_DATE
91     ,last_updated_by                NUMBER := OKC_API.G_MISS_NUM
92     ,last_update_date               OKS_INST_HIST_DETAILS.LAST_UPDATE_DATE%TYPE := OKC_API.G_MISS_DATE
93     ,last_update_login              NUMBER := OKC_API.G_MISS_NUM
94     ,object_version_number          NUMBER := OKC_API.G_MISS_NUM
95     ,date_cancelled                 OKS_INST_HIST_DETAILS.DATE_CANCELLED%TYPE := OKC_API.G_MISS_DATE);
96   G_MISS_ihd_rec                          ihd_rec_type;
97   TYPE ihd_tbl_type IS TABLE OF ihd_rec_type
98         INDEX BY BINARY_INTEGER;
99   ---------------------------------------------------------------------------
100   -- GLOBAL MESSAGE CONSTANTS
101   ---------------------------------------------------------------------------
102   G_FND_APP                      CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
103   G_FORM_UNABLE_TO_RESERVE_REC   CONSTANT VARCHAR2(200) := OKC_API.G_FORM_UNABLE_TO_RESERVE_REC;
104   G_FORM_RECORD_DELETED          CONSTANT VARCHAR2(200) := OKC_API.G_FORM_RECORD_DELETED;
105   G_FORM_RECORD_CHANGED          CONSTANT VARCHAR2(200) := OKC_API.G_FORM_RECORD_CHANGED;
106   G_RECORD_LOGICALLY_DELETED     CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
107   G_REQUIRED_VALUE               CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
108   G_INVALID_VALUE                CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
109   G_COL_NAME_TOKEN               CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
110   G_PARENT_TABLE_TOKEN           CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
111   G_CHILD_TABLE_TOKEN            CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
112   G_UNEXPECTED_ERROR             CONSTANT VARCHAR2(200) := 'OKS_UNEXPECTED_ERROR';
113   G_SQLCODE_TOKEN                CONSTANT VARCHAR2(200) := 'SQLcode';
114   G_SQLERRM_TOKEN                CONSTANT VARCHAR2(200) := 'SQLerrm';
115 
116   ---------------------------------------------------------------------------
117   -- GLOBAL EXCEPTIONS
118   ---------------------------------------------------------------------------
119   G_EXCEPTION_HALT_VALIDATION    EXCEPTION;
120 
121   ---------------------------------------------------------------------------
122   -- GLOBAL VARIABLES
123   ---------------------------------------------------------------------------
124   G_PKG_NAME                     CONSTANT VARCHAR2(200) := 'OKS_IHD_PVT';
125   G_APP_NAME                     CONSTANT VARCHAR2(3)   := OKC_API.G_APP_NAME;
126   ---------------------------------------------------------------------------
127   -- Procedures and Functions
128   ---------------------------------------------------------------------------
129 
130   PROCEDURE qc;
131   PROCEDURE change_version;
132   PROCEDURE api_copy;
133   PROCEDURE insert_row(
134     p_api_version                  IN NUMBER,
135     p_init_msg_list                IN VARCHAR2,
136     x_return_status                OUT NOCOPY VARCHAR2,
137     x_msg_count                    OUT NOCOPY NUMBER,
138     x_msg_data                     OUT NOCOPY VARCHAR2,
139     p_ihdv_rec                     IN ihdv_rec_type,
140     x_ihdv_rec                     OUT NOCOPY ihdv_rec_type);
141   PROCEDURE insert_row(
142     p_api_version                  IN NUMBER,
143     p_init_msg_list                IN VARCHAR2,
144     x_return_status                OUT NOCOPY VARCHAR2,
145     x_msg_count                    OUT NOCOPY NUMBER,
146     x_msg_data                     OUT NOCOPY VARCHAR2,
147     p_ihdv_tbl                     IN ihdv_tbl_type,
148     x_ihdv_tbl                     OUT NOCOPY ihdv_tbl_type,
149     px_error_tbl                   IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE);
150   PROCEDURE insert_row(
151     p_api_version                  IN NUMBER,
152     p_init_msg_list                IN VARCHAR2,
153     x_return_status                OUT NOCOPY VARCHAR2,
154     x_msg_count                    OUT NOCOPY NUMBER,
155     x_msg_data                     OUT NOCOPY VARCHAR2,
156     p_ihdv_tbl                     IN ihdv_tbl_type,
157     x_ihdv_tbl                     OUT NOCOPY ihdv_tbl_type);
158   PROCEDURE lock_row(
159     p_api_version                  IN NUMBER,
160     p_init_msg_list                IN VARCHAR2,
161     x_return_status                OUT NOCOPY VARCHAR2,
162     x_msg_count                    OUT NOCOPY NUMBER,
163     x_msg_data                     OUT NOCOPY VARCHAR2,
164     p_ihdv_rec                     IN ihdv_rec_type);
165   PROCEDURE lock_row(
166     p_api_version                  IN NUMBER,
167     p_init_msg_list                IN VARCHAR2,
168     x_return_status                OUT NOCOPY VARCHAR2,
169     x_msg_count                    OUT NOCOPY NUMBER,
170     x_msg_data                     OUT NOCOPY VARCHAR2,
171     p_ihdv_tbl                     IN ihdv_tbl_type,
172     px_error_tbl                   IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE);
173   PROCEDURE lock_row(
174     p_api_version                  IN NUMBER,
175     p_init_msg_list                IN VARCHAR2,
176     x_return_status                OUT NOCOPY VARCHAR2,
177     x_msg_count                    OUT NOCOPY NUMBER,
178     x_msg_data                     OUT NOCOPY VARCHAR2,
179     p_ihdv_tbl                     IN ihdv_tbl_type);
180   PROCEDURE update_row(
181     p_api_version                  IN NUMBER,
182     p_init_msg_list                IN VARCHAR2,
183     x_return_status                OUT NOCOPY VARCHAR2,
184     x_msg_count                    OUT NOCOPY NUMBER,
185     x_msg_data                     OUT NOCOPY VARCHAR2,
186     p_ihdv_rec                     IN ihdv_rec_type,
187     x_ihdv_rec                     OUT NOCOPY ihdv_rec_type);
188   PROCEDURE update_row(
189     p_api_version                  IN NUMBER,
190     p_init_msg_list                IN VARCHAR2,
191     x_return_status                OUT NOCOPY VARCHAR2,
192     x_msg_count                    OUT NOCOPY NUMBER,
193     x_msg_data                     OUT NOCOPY VARCHAR2,
194     p_ihdv_tbl                     IN ihdv_tbl_type,
195     x_ihdv_tbl                     OUT NOCOPY ihdv_tbl_type,
196     px_error_tbl                   IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE);
197   PROCEDURE update_row(
198     p_api_version                  IN NUMBER,
199     p_init_msg_list                IN VARCHAR2,
200     x_return_status                OUT NOCOPY VARCHAR2,
201     x_msg_count                    OUT NOCOPY NUMBER,
202     x_msg_data                     OUT NOCOPY VARCHAR2,
203     p_ihdv_tbl                     IN ihdv_tbl_type,
204     x_ihdv_tbl                     OUT NOCOPY ihdv_tbl_type);
205   PROCEDURE delete_row(
206     p_api_version                  IN NUMBER,
207     p_init_msg_list                IN VARCHAR2,
208     x_return_status                OUT NOCOPY VARCHAR2,
209     x_msg_count                    OUT NOCOPY NUMBER,
210     x_msg_data                     OUT NOCOPY VARCHAR2,
211     p_ihdv_rec                     IN ihdv_rec_type);
212   PROCEDURE delete_row(
213     p_api_version                  IN NUMBER,
214     p_init_msg_list                IN VARCHAR2,
215     x_return_status                OUT NOCOPY VARCHAR2,
216     x_msg_count                    OUT NOCOPY NUMBER,
217     x_msg_data                     OUT NOCOPY VARCHAR2,
218     p_ihdv_tbl                     IN ihdv_tbl_type,
219     px_error_tbl                   IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE);
220   PROCEDURE delete_row(
221     p_api_version                  IN NUMBER,
222     p_init_msg_list                IN VARCHAR2,
223     x_return_status                OUT NOCOPY VARCHAR2,
224     x_msg_count                    OUT NOCOPY NUMBER,
225     x_msg_data                     OUT NOCOPY VARCHAR2,
226     p_ihdv_tbl                     IN ihdv_tbl_type);
227   PROCEDURE validate_row(
228     p_api_version                  IN NUMBER,
229     p_init_msg_list                IN VARCHAR2,
230     x_return_status                OUT NOCOPY VARCHAR2,
231     x_msg_count                    OUT NOCOPY NUMBER,
232     x_msg_data                     OUT NOCOPY VARCHAR2,
233     p_ihdv_rec                     IN ihdv_rec_type);
234   PROCEDURE validate_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_ihdv_tbl                     IN ihdv_tbl_type,
241     px_error_tbl                   IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE);
242   PROCEDURE validate_row(
243     p_api_version                  IN NUMBER,
244     p_init_msg_list                IN VARCHAR2,
245     x_return_status                OUT NOCOPY VARCHAR2,
246     x_msg_count                    OUT NOCOPY NUMBER,
247     x_msg_data                     OUT NOCOPY VARCHAR2,
248     p_ihdv_tbl                     IN ihdv_tbl_type);
249 END OKS_IHD_PVT;