[Home] [Help]
PACKAGE BODY: APPS.OKC_K_HISTORY_PVT
Source
1 PACKAGE BODY OKC_K_HISTORY_PVT AS
2 /* $Header: OKCCHSTB.pls 120.0 2005/06/01 22:55:31 appldev noship $ */
3
4 l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
5
6 ---------------------------------------------------------------------------
7 -- GLOBAL VARIABLES
8 ---------------------------------------------------------------------------
9 G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
10 G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKC_NO_PARENT_RECORD';
11 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
12 G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
13 G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
14 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
15 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
16 G_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
17 G_EXCEPTION_HALT_VALIDATION exception;
18 NO_CONTRACT_FOUND exception;
19 G_NO_UPDATE_ALLOWED_EXCEPTION exception;
20 G_NO_UPDATE_ALLOWED CONSTANT VARCHAR2(200) := 'OKC_NO_UPDATE_ALLOWED';
21 G_EXCEPTION_HALT_PROCESS exception;
22 ---------------------------------------------------------------------------
23
24
25 PROCEDURE create_k_history(
26 p_api_version IN NUMBER,
27 p_init_msg_list IN VARCHAR2 ,
28 x_return_status OUT NOCOPY VARCHAR2,
29 x_msg_count OUT NOCOPY NUMBER,
30 x_msg_data OUT NOCOPY VARCHAR2,
31 p_hstv_rec IN OKC_HST_PVT.hstv_rec_type,
32 x_hstv_rec OUT NOCOPY OKC_HST_PVT.hstv_rec_type) IS
33
34 l_hstv_rec OKC_HST_PVT.hstv_rec_type := p_hstv_rec;
35 BEGIN
36 -- initialize return status
37 x_return_status := OKC_API.G_RET_STS_SUCCESS;
38
39 OKC_HST_PVT.Insert_Row(
40 p_api_version => p_api_version,
41 p_init_msg_list => p_init_msg_list,
42 x_return_status => x_return_status,
43 x_msg_count => x_msg_count,
44 x_msg_data => x_msg_data,
45 p_hstv_rec => l_hstv_rec,
46 x_hstv_rec => x_hstv_rec);
47
48 END create_k_history;
49
50 PROCEDURE create_k_history(
51 p_api_version IN NUMBER,
52 p_init_msg_list IN VARCHAR2 ,
53 x_return_status OUT NOCOPY VARCHAR2,
54 x_msg_count OUT NOCOPY NUMBER,
55 x_msg_data OUT NOCOPY VARCHAR2,
56 p_hstv_tbl IN OKC_HST_PVT.hstv_tbl_type,
57 x_hstv_tbl OUT NOCOPY OKC_HST_PVT.hstv_tbl_type) IS
58
59 BEGIN
60 OKC_HST_PVT.Insert_Row(
61 p_api_version => p_api_version,
62 p_init_msg_list => p_init_msg_list,
63 x_return_status => x_return_status,
64 x_msg_count => x_msg_count,
65 x_msg_data => x_msg_data,
66 p_hstv_tbl => p_hstv_tbl,
67 x_hstv_tbl => x_hstv_tbl);
68 END create_k_history;
69
70
71 PROCEDURE delete_k_history(
72 p_api_version IN NUMBER,
73 p_init_msg_list IN VARCHAR2 ,
74 x_return_status OUT NOCOPY VARCHAR2,
75 x_msg_count OUT NOCOPY NUMBER,
76 x_msg_data OUT NOCOPY VARCHAR2,
77 p_hstv_rec IN OKC_HST_PVT.hstv_rec_type) IS
78
79 BEGIN
80
81 OKC_HST_PVT.Delete_Row(
82 p_api_version => p_api_version,
83 p_init_msg_list => p_init_msg_list,
84 x_return_status => x_return_status,
85 x_msg_count => x_msg_count,
86 x_msg_data => x_msg_data,
87 p_hstv_rec => p_hstv_rec);
88 exception
89 when OTHERS then
90 -- store SQL error message on message stack
91 OKC_API.SET_MESSAGE(p_app_name => g_app_name,
92 p_msg_name => g_unexpected_error,
93 p_token1 => g_sqlcode_token,
94 p_token1_value => sqlcode,
95 p_token2 => g_sqlerrm_token,
96 p_token2_value => sqlerrm);
97
98 -- notify caller of an UNEXPETED error
99 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
100 END delete_k_history;
101
102 PROCEDURE delete_k_history(
103 p_api_version IN NUMBER,
104 p_init_msg_list IN VARCHAR2 ,
105 x_return_status OUT NOCOPY VARCHAR2,
106 x_msg_count OUT NOCOPY NUMBER,
107 x_msg_data OUT NOCOPY VARCHAR2,
108 p_hstv_tbl IN OKC_HST_PVT.hstv_tbl_type) IS
109
110 BEGIN
111 OKC_HST_PVT.Delete_Row(
112 p_api_version => p_api_version,
113 p_init_msg_list => p_init_msg_list,
114 x_return_status => x_return_status,
115 x_msg_count => x_msg_count,
116 x_msg_data => x_msg_data,
117 p_hstv_tbl => p_hstv_tbl);
118 END delete_k_history;
119
120 PROCEDURE delete_all_rows(
121 p_api_version IN NUMBER,
122 p_init_msg_list IN VARCHAR2 ,
123 x_return_status OUT NOCOPY VARCHAR2,
124 x_msg_count OUT NOCOPY NUMBER,
125 x_msg_data OUT NOCOPY VARCHAR2,
126 p_chr_id IN NUMBER) IS
127
128 BEGIN
129
130 OKC_HST_PVT.Delete_all_rows(
131 p_api_version => p_api_version,
132 p_init_msg_list => p_init_msg_list,
133 x_return_status => x_return_status,
134 x_msg_count => x_msg_count,
135 x_msg_data => x_msg_data,
136 p_chr_id => p_chr_id);
137 exception
138 when OTHERS then
139 -- store SQL error message on message stack
140 OKC_API.SET_MESSAGE(p_app_name => g_app_name,
141 p_msg_name => g_unexpected_error,
142 p_token1 => g_sqlcode_token,
143 p_token1_value => sqlcode,
144 p_token2 => g_sqlerrm_token,
145 p_token2_value => sqlerrm);
146
147 -- notify caller of an UNEXPETED error
148 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
149 END delete_all_rows;
150
151 PROCEDURE validate_k_history(
152 p_api_version IN NUMBER,
153 p_init_msg_list IN VARCHAR2 ,
154 x_return_status OUT NOCOPY VARCHAR2,
155 x_msg_count OUT NOCOPY NUMBER,
156 x_msg_data OUT NOCOPY VARCHAR2,
157 p_hstv_rec IN OKC_HST_PVT.hstv_rec_type) IS
158
159 BEGIN
160 OKC_HST_PVT.Validate_Row(
161 p_api_version => p_api_version,
162 p_init_msg_list => p_init_msg_list,
163 x_return_status => x_return_status,
164 x_msg_count => x_msg_count,
165 x_msg_data => x_msg_data,
166 p_hstv_rec => p_hstv_rec);
167 END validate_k_history;
168
169 PROCEDURE validate_k_history(
170 p_api_version IN NUMBER,
171 p_init_msg_list IN VARCHAR2 ,
172 x_return_status OUT NOCOPY VARCHAR2,
173 x_msg_count OUT NOCOPY NUMBER,
174 x_msg_data OUT NOCOPY VARCHAR2,
175 p_hstv_tbl IN OKC_HST_PVT.hstv_tbl_type) IS
176
177 BEGIN
178 OKC_HST_PVT.Validate_Row(
179 p_api_version => p_api_version,
180 p_init_msg_list => p_init_msg_list,
181 x_return_status => x_return_status,
182 x_msg_count => x_msg_count,
183 x_msg_data => x_msg_data,
184 p_hstv_tbl => p_hstv_tbl);
185 END validate_k_history;
186
187
188 PROCEDURE add_language IS
189 BEGIN
190 OKC_HST_PVT.add_language;
191 END add_language;
192
193 END OKC_K_HISTORY_PVT;