[Home] [Help]
PACKAGE BODY: APPS.JTFB_TEMP_BIN_PKG
Source
1 package body jtfb_temp_bin_pkg as
2 /* $Header: jtfbbinb.pls 120.1 2005/07/02 02:32:47 appldev ship $ */
3 --
4 --
5 /*****************************************************************************/
6 -- Start Of Comments
7 --
8 -- Name
9 -- jtfb_temp_bin_pkg
10 --
11 -- Purpose
12 -- This package provides an API to the JTFB_TEMP_BIN table.
13 --
14 -- Functions
15 -- None
16 --
17 -- Procedures
18 -- insert_row
19 -- lock_row
20 -- update_row
21 -- delete_row
22 --
23 -- Notes
24 --
25 -- History
26 -- 09-MAY-2001, Elanchelvan Elango, Created
27 --
28 -- End of Comments
29
30
31 /*****************************************************************************/
32 -- Start of Package Globals
33 --
34 -- End of Global Package Globals
35 --
36 --
37 /*****************************************************************************/
38 -- Start of Private Methods Specification
39 --
40 --
41 /*****************************************************************************/
42 -- Start Of Comments
43 --
44 -- Name : write_message
45 -- Type : Private
46 -- Function:
47 -- This procedure writes message (typically debug)
48 --
49 -- Pre-Reqs:
50 --
51 -- Parameters:
52 -- p_message_text
53 -- in varchar2
54 -- This is the descriptive part of the message.
55 --
56 -- Notes:
57 --
58 -- End Of Comments
59 procedure write_message(
60 p_message_text in varchar2
61 );
62 --
63 -- End of Private Methods Specification
64 --
65 --
66 procedure write_message(
67 p_message_text in varchar2
68 ) is
69 begin
70 null;
71 --dbms_output.put_line(p_message_text);
72 exception
73 when others then
74 null;
75 --dbms_output.put_line(p_message_text);
76 end write_message;
77 --
78 --
79 procedure insert_row(
80 x_rowid in out NOCOPY varchar2
81 , x_bin_code in varchar2
82 , x_rowno in number default null
83 , x_col1 in varchar2 default null
84 , x_col2 in varchar2 default null
85 , x_col3 in varchar2 default null
86 , x_col4 in varchar2 default null
87 , x_col5 in varchar2 default null
88 , x_col6 in varchar2 default null
89 , x_col7 in varchar2 default null
90 , x_col8 in varchar2 default null
91 , x_col9 in varchar2 default null
92 , x_col10 in varchar2 default null
93 , x_col11 in varchar2 default null
94 , x_col12 in varchar2 default null
95 , x_col13 in varchar2 default null
96 , x_col14 in varchar2 default null
97 , x_col15 in varchar2 default null
98 , x_col16 in varchar2 default null
99 ) is
100
101 l_method_name varchar2(80) := g_pkg_name || '.insert_row: ';
102
103 begin
104
105 insert into jtfb_temp_bin (
106 bin_code
107 , rowno
108 , col1
109 , col2
110 , col3
111 , col4
112 , col5
113 , col6
114 , col7
115 , col8
116 , col9
117 , col10
118 , col11
119 , col12
120 , col13
121 , col14
122 , col15
123 , col16
124 ) values (
125 x_bin_code
126 , x_rowno
127 , x_col1
128 , x_col2
129 , x_col3
130 , x_col4
131 , x_col5
132 , x_col6
133 , x_col7
134 , x_col8
135 , x_col9
136 , x_col10
137 , x_col11
138 , x_col12
139 , x_col13
140 , x_col14
141 , x_col15
142 , x_col16
143 );
144 exception
145 when others then
146 write_message(l_method_name || sqlerrm);
147 end insert_row;
148 --
149 --
150 procedure lock_row(
151 x_bin_code in varchar2
152 , x_rowno in number
153 , x_col1 in varchar2
154 , x_col2 in varchar2
155 , x_col3 in varchar2
156 , x_col4 in varchar2
157 , x_col5 in varchar2
158 , x_col6 in varchar2
159 , x_col7 in varchar2
160 , x_col8 in varchar2
161 , x_col9 in varchar2
162 , x_col10 in varchar2
163 , x_col11 in varchar2
164 , x_col12 in varchar2
165 , x_col13 in varchar2
166 , x_col14 in varchar2
167 , x_col15 in varchar2
168 , x_col16 in varchar2
169 ) is
170
171 l_method_name varchar2(80) := g_pkg_name || '.lock_row: ';
172
173 begin
174 null;
175 exception
176 when others then
177 write_message(l_method_name || sqlerrm);
178 end lock_row;
179 --
180 --
181 procedure update_row(
182 x_bin_code in varchar2
183 , x_rowno in number
184 , x_col1 in varchar2
185 , x_col2 in varchar2
186 , x_col3 in varchar2
187 , x_col4 in varchar2
188 , x_col5 in varchar2
189 , x_col6 in varchar2
190 , x_col7 in varchar2
191 , x_col8 in varchar2
192 , x_col9 in varchar2
193 , x_col10 in varchar2
194 , x_col11 in varchar2
195 , x_col12 in varchar2
196 , x_col13 in varchar2
197 , x_col14 in varchar2
198 , x_col15 in varchar2
199 , x_col16 in varchar2
200 ) is
201
202 l_method_name varchar2(80) := g_pkg_name || '.update_row: ';
203
204 begin
205 null;
206 exception
207 when others then
208 write_message(l_method_name || sqlerrm);
209 end update_row;
210 --
211 --
212 procedure delete_row(
213 x_bin_code in varchar2
214 ) is
215
216 l_method_name varchar2(80) := g_pkg_name || '.delete_row: ';
217
218 begin
219 null;
220 exception
221 when others then
222 write_message(l_method_name || sqlerrm);
223 end delete_row;
224 --
225 --
226 end jtfb_temp_bin_pkg;