[Home] [Help]
PACKAGE BODY: APPS.PO_CLM_OKC_INTEG_PKG
Source
1 PACKAGE BODY PO_CLM_OKC_INTEG_PKG AS
2 /* $Header: PO_CLM_OKC_INTEG_PKG.plb 120.0.12020000.7 2013/02/27 10:43:19 vpeddi noship $ */
3
4 d_pkg_name CONSTANT varchar2(50) :=
5 PO_LOG.get_package_base('PO_CLM_OKC_INTEG_PKG');
6
7
8 -----------------------------------------------------------------------
9 --Start of Comments
10 --Name: insert_exhibits
11 --Pre-reqs: None
12 --Modifies:
13 --Locks:
14 -- None
15 --Function:
16 -- Inserts the given exhibits for the given document if it does not exists for that document
17 --Parameters:
18 --IN:
19 -- p_document_type_tbl IN PO_TBL_VARCHAR30;
20 -- p_document_id_tbl IN PO_TBL_NUMBER;
21 -- p_exhibit_name_tbl IN PO_TBL_VARCHAR30;
22 -- p_exhibit_description_tbl IN PO_TBL_VARCHAR240;
23 -- p_is_cdrl_tbl IN PO_TBL_VARCHAR1;
24 -- p_revision_num_tbl IN PO_TBL_NUMBER;
25 --IN OUT:
26 --OUT:
27 --Returns:
28 --Notes:
29 --Testing:
30 --End of Comments
31 ------------------------------------------------------------------------
32 PROCEDURE insert_exhibits
33 (
34 p_document_type_tbl IN PO_TBL_VARCHAR30,
35 p_document_id_tbl IN PO_TBL_NUMBER,
36 p_exhibit_name_tbl IN PO_TBL_VARCHAR30,
37 p_exhibit_description_tbl IN PO_TBL_VARCHAR240,
38 p_is_cdrl_tbl IN PO_TBL_VARCHAR1,
39 p_revision_num_tbl IN PO_TBL_NUMBER,
40 x_return_status OUT NOCOPY VARCHAR2,
41 x_return_msg OUT NOCOPY VARCHAR2
42 ) IS
43
44 l_return_status VARCHAR2(30);
45 l_return_msg VARCHAR2(30);
46
47 d_module CONSTANT VARCHAR2(200) := d_pkg_name || '.' || 'insert_exhibits';
48 d_position NUMBER;
49
50 BEGIN
51
52 d_position := 0;
53 IF (PO_LOG.d_proc) THEN
54 PO_LOG.proc_begin(d_module);
55 END IF;
56
57 PO_EXHIBITS_PVT.insert_exhibits
58 (
59 p_document_type_tbl => p_document_type_tbl,
60 p_document_id_tbl => p_document_id_tbl,
61 p_exhibit_name_tbl => p_exhibit_name_tbl,
62 p_exhibit_description_tbl => p_exhibit_description_tbl,
63 p_is_cdrl_tbl => p_is_cdrl_tbl,
64 p_revision_num_tbl => p_revision_num_tbl,
65 x_return_status => l_return_status,
66 x_return_msg => l_return_msg
67 );
68
69 x_return_status := l_return_status;
70 x_return_msg := l_return_msg;
71
72 d_position := 10;
73 IF (PO_LOG.d_proc) THEN
74 PO_LOG.proc_end(d_module);
75 END IF;
76
77
78 EXCEPTION
79 WHEN OTHERS THEN
80 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
81 RAISE;
82 END insert_exhibits;
83
84
85
86 -----------------------------------------------------------------------
87 --Start of Comments
88 --Name: delete_exhibits
89 --Pre-reqs: None
90 --Modifies:
91 --Locks:
92 -- None
93 --Function:
94 -- Inserts the given exhibits for the given document if it does not exists for that document
95 --Parameters:
96 --IN:
97 -- p_document_type_tbl IN PO_TBL_VARCHAR30;
98 -- p_document_id_tbl IN PO_TBL_NUMBER;
99 -- p_exhibit_name_tbl IN PO_TBL_VARCHAR30;
100 -- p_is_cdrl_tbl IN PO_TBL_VARCHAR1;
101 --IN OUT:
102 --OUT:
103 --Returns:
104 --Notes:
105 --Testing:
106 --End of Comments
107 ------------------------------------------------------------------------
108 PROCEDURE delete_exhibits
109 (
110 p_document_type_tbl IN PO_TBL_VARCHAR30,
111 p_document_id_tbl IN PO_TBL_NUMBER,
112 p_exhibit_name_tbl IN PO_TBL_VARCHAR30,
113 p_is_cdrl_tbl IN PO_TBL_VARCHAR1,
114 x_return_status OUT NOCOPY VARCHAR2,
115 x_return_msg OUT NOCOPY VARCHAR2
116 ) IS
117
118 l_return_status VARCHAR2(30);
119 l_return_msg VARCHAR2(30);
120
121 d_module CONSTANT VARCHAR2(200) := d_pkg_name || '.' || 'delete_exhibits';
122 d_position NUMBER;
123
124 BEGIN
125
126 d_position := 0;
127 IF (PO_LOG.d_proc) THEN
128 PO_LOG.proc_begin(d_module);
129 END IF;
130
131 PO_EXHIBITS_PVT.delete_exhibits
132 (
133 p_document_type_tbl => p_document_type_tbl,
134 p_document_id_tbl => p_document_id_tbl,
135 p_exhibit_name_tbl => p_exhibit_name_tbl,
136 p_is_cdrl_tbl => p_is_cdrl_tbl,
137 x_return_status => l_return_status,
138 x_return_msg => l_return_msg
139 );
140
141 x_return_status := l_return_status;
142 x_return_msg := l_return_msg;
143
144 d_position := 10;
145 IF (PO_LOG.d_proc) THEN
146 PO_LOG.proc_end(d_module);
147 END IF;
148
149
150 EXCEPTION
151 WHEN OTHERS THEN
152 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
153 RAISE;
154 END delete_exhibits;
155
156
157
158
159 --------------------------------------------------------------------------------
160 --Start of Comments
161
162 --Name: start_closeout_wf_process
163
164 --Function:
165 -- Starts the Closeout WF process and the sets the attributes
166
167 --End of Comments
168 --------------------------------------------------------------------------------
169
170 PROCEDURE start_closeout_wf_process (
171 p_doc_id IN NUMBER,
172 x_return_status OUT NOCOPY VARCHAR2
173 )IS
174
175 l_return_status VARCHAR2(30);
176
177 d_module CONSTANT VARCHAR2(200) := d_pkg_name || '.' || 'start_closeout_wf_process';
178 d_position NUMBER;
179
180 BEGIN
181
182 d_position := 0;
183 IF (PO_LOG.d_proc) THEN
184 PO_LOG.proc_begin(d_module);
185 PO_LOG.proc_begin(d_module, 'p_doc_id', p_doc_id);
186 END IF;
187
188 PO_CLOSEOUT_PVT.start_closeout_wf_process(p_doc_id => p_doc_id,
189 x_return_status => l_return_status);
190
191 x_return_status := l_return_status;
192
193 d_position := 10;
194 IF (PO_LOG.d_proc) THEN
195 PO_LOG.proc_end(d_module);
196 END IF;
197
198 EXCEPTION
199 WHEN OTHERS THEN
200 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
201 RAISE;
202 END start_closeout_wf_process;
203
204
205
206
207 END PO_CLM_OKC_INTEG_PKG;