[Home] [Help]
PACKAGE BODY: APPS.OKC_DELETE_CONTRACT_PUB
Source
1 package body OKC_DELETE_CONTRACT_PUB as
2 /* $Header: OKCPDELB.pls 120.0 2005/05/26 09:42:45 appldev noship $ */
3 l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
4
5 PROCEDURE delete_contract(
6 p_api_version IN NUMBER,
7 p_init_msg_list IN VARCHAR2 ,
8 x_return_status OUT NOCOPY VARCHAR2,
9 x_msg_count OUT NOCOPY NUMBER,
10 x_msg_data OUT NOCOPY VARCHAR2,
11 p_chrv_rec IN OKC_CONTRACT_PUB.chrv_rec_type ) IS
12
13 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
14 l_api_name VARCHAR2(30) := 'Delete_Contract';
15
16 BEGIN
17 x_return_status := OKC_API.G_RET_STS_SUCCESS;
18
19 --Start activity;
20 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
21 p_init_msg_list,
22 '_PUB',
23 x_return_status);
24
25 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
26 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
27 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
28 RAISE OKC_API.G_EXCEPTION_ERROR;
29 END IF;
30
31
32 OKC_DELETE_CONTRACT_PVT.delete_contract(
33 p_api_version => p_api_version,
34 p_init_msg_list => p_init_msg_list,
35 x_return_status => x_return_status,
36 x_msg_count => x_msg_count,
37 x_msg_data => x_msg_data,
38 p_chrv_rec => p_chrv_rec);
39
40
41 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
42
43 EXCEPTION
44 WHEN OKC_API.G_EXCEPTION_ERROR THEN
45 x_return_status := OKC_API.HANDLE_EXCEPTIONS
46 (
47 l_api_name,
48 G_PKG_NAME,
49 'OKC_API.G_RET_STS_ERROR',
50 x_msg_count,
51 x_msg_data,
52 '_PUB'
53 );
54 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
55 x_return_status :=OKC_API.HANDLE_EXCEPTIONS
56 (
57 l_api_name,
58 G_PKG_NAME,
59 'OKC_API.G_RET_STS_UNEXP_ERROR',
60 x_msg_count,
61 x_msg_data,
62 '_PUB'
63 );
64
65 END Delete_Contract;
66
67 PROCEDURE delete_contract(
68 p_api_version IN NUMBER,
69 p_init_msg_list IN VARCHAR2 ,
70 x_return_status OUT NOCOPY VARCHAR2,
71 x_msg_count OUT NOCOPY NUMBER,
72 x_msg_data OUT NOCOPY VARCHAR2,
73 p_chrv_tbl IN OKC_CONTRACT_PUB.chrv_tbl_type) IS
74
75 i NUMBER := 0;
76 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
77 l_api_name VARCHAR2(30) := 'Delete_Contract';
78
79 BEGIN
80
81 x_return_status := OKC_API.G_RET_STS_SUCCESS;
82
83 --Start activity;
84 l_return_status := OKC_API.START_ACTIVITY(l_api_name,
85 p_init_msg_list,
86 '_PUB',
87 x_return_status);
88 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
89 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
90 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
91 RAISE OKC_API.G_EXCEPTION_ERROR;
92 END IF;
93
94 IF p_chrv_tbl.COUNT > 0 THEN
95 i := p_chrv_tbl.FIRST;
96 LOOP
97 OKC_DELETE_CONTRACT_PUB.Delete_Contract(
98 p_api_version => p_api_version,
99 p_init_msg_list => p_init_msg_list,
100 x_return_status => l_return_status,
101 x_msg_count => x_msg_count,
102 x_msg_data => x_msg_data,
103 p_chrv_rec => p_chrv_tbl(i));
104
105 IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
106 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
107 x_return_status := l_return_status;
108 raise G_EXCEPTION_HALT_PROCESSING;
109 ELSE
110 x_return_status := l_return_status;
111 END IF;
112 END IF;
113 EXIT WHEN (i = p_chrv_tbl.LAST);
114 i := p_chrv_tbl.NEXT(i);
115 END LOOP;
116 END IF;
117
118 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
119
120 EXCEPTION
121 WHEN OKC_API.G_EXCEPTION_ERROR THEN
122 x_return_status := OKC_API.HANDLE_EXCEPTIONS
123 (
124 l_api_name,
125 G_PKG_NAME,
126 'OKC_API.G_RET_STS_ERROR',
127 x_msg_count,
128 x_msg_data,
129 '_PUB'
130 );
131 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
132 x_return_status :=OKC_API.HANDLE_EXCEPTIONS
133 (
134 l_api_name,
135 G_PKG_NAME,
136 'OKC_API.G_RET_STS_UNEXP_ERROR',
137 x_msg_count,
138 x_msg_data,
139 '_PUB'
140 );
141 WHEN G_EXCEPTION_HALT_PROCESSING THEN
142 NULL;
143 WHEN OTHERS THEN
144 OKC_API.set_message(p_app_name => g_app_name,
145 p_msg_name => g_unexpected_error,
146 p_token1 => g_sqlcode_token,
147 p_token1_value => sqlcode,
148 p_token2 => g_sqlerrm_token,
149 p_token2_value => sqlerrm);
150 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
151 END Delete_Contract;
152
153 END OKC_DELETE_CONTRACT_PUB;