[Home] [Help]
PACKAGE BODY: APPS.OE_CREDIT_SUMMARIES_PKG
Source
1 PACKAGE BODY OE_CREDIT_SUMMARIES_PKG AS
2 -- $Header: OEXCRSMB.pls 115.3 2003/10/20 06:51:36 appldev ship $
3 --------------------
4 -- TYPE DECLARATIONS
5 --------------------
6
7 ------------
8 -- CONSTANTS
9 ------------
10 G_PKG_NAME CONSTANT VARCHAR2(30) :='OE_CREDIT_SUMMARIES_PKG';
11
12 -------------------
13 -- PUBLIC VARIABLES
14 -------------------
15
16 ---------------------------
17 -- PROCEDURES AND FUNCTIONS
18 ---------------------------
19
20 ------------------------------------------------------------
21 --- FUNCTION get_party_id
22 ---------------------------------------------------------------
23 FUNCTION get_party_id (p_cust_account_id IN NUMBER )
24 RETURN NUMBER
25 IS
26
27 l_id number;
28
29 --
30 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
31 --
32 BEGIN
33 l_id := NULL;
34 BEGIN
35 SELECT
36 party_id
37 INTO
38 l_id
39 FROM
40 HZ_CUST_ACCOUNTS
41 WHERE
42 cust_account_id = p_cust_account_id ;
43
44 EXCEPTION
45 WHEN NO_DATA_FOUND
46 THEN
47
48 l_id := NULL ;
49 oe_debug_pub.add('OEXCRSMB Exception - No data found in get_party_id ');
50
51 END;
52
53
54 oe_debug_pub.add(' Return l_id => '|| l_id );
55
56 RETURN (l_id);
57
58 EXCEPTION
59 WHEN OTHERS THEN
60 IF OE_MSG_PUB.Check_msg_level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
61 THEN
62 OE_MSG_PUB.Add_exc_msg(G_PKG_NAME,'get_party_id');
63 END IF;
64 RAISE;
65
66 END get_party_id ;
67 --=====================================================================
68 --NAME: Insert_Row
69 --TYPE: PRIVATE
70 --COMMENTS: Insert a row into the OE_CREDIT_SUMMARIES table.
71 --Parameters:
72 --IN
73 --OUT
74 --=====================================================================
75
76 PROCEDURE Insert_Row
77 ( p_cust_account_id IN NUMBER
78 , p_org_id IN NUMBER
79 , p_site_use_id IN NUMBER
80 , p_currency_code IN VARCHAR2
81 , p_balance_type IN NUMBER
82 , p_balance IN NUMBER
83 , p_creation_date IN DATE
84 , p_created_by IN NUMBER
85 , p_last_update_date IN DATE
86 , p_last_updated_by IN NUMBER
87 , p_last_update_login IN NUMBER
88 , p_program_application_id IN NUMBER
89 , p_program_id IN NUMBER
90 , p_program_update_date IN DATE
91 , p_request_id IN NUMBER
92 , p_exposure_source_code IN VARCHAR2
93 )
94 IS
95 l_party_id NUMBER ;
96
97 --
98 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
99 --
100 BEGIN
101 OE_DEBUG_PUB.ADD('OEXCRSMB - IN Insert row ');
102
103 l_party_id := NULL ;
104 l_party_id :=
105 get_party_id(p_cust_account_id => p_cust_account_id );
106
107 INSERT INTO oe_credit_summaries (
108 cust_account_id
109 , org_id
110 , site_use_id
111 , currency_code
112 , balance_type
113 , balance
114 , creation_date
115 , created_by
116 , last_update_date
117 , last_updated_by
118 , last_update_login
119 , program_application_id
120 , program_id
121 , program_update_date
122 , request_id
123 , exposure_source_code
124 , party_id
125 , bucket
126 , bucket_duration
127 )
128 VALUES (
129 p_cust_account_id
130 , p_org_id
131 , p_site_use_id
132 , p_currency_code
133 , p_balance_type
134 , p_balance
135 , p_creation_date
136 , p_created_by
137 , p_last_update_date
138 , p_last_updated_by
139 , p_last_update_login
140 , p_program_application_id
141 , p_program_id
142 , p_program_update_date
143 , p_request_id
144 , p_exposure_source_code
145 , l_party_id
146 , -1
147 , OE_CREDIT_EXPOSURE_PVT.G_MAX_BUCKET_LENGTH
148 );
149
150 OE_DEBUG_PUB.ADD('OEXCRSMB - OUT NOCOPY Insert row ');
151
152 EXCEPTION
153 WHEN OTHERS THEN
154 IF OE_MSG_PUB.Check_msg_level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
155 THEN
156 OE_MSG_PUB.Add_exc_msg(G_PKG_NAME,'Insert_row');
157 END IF;
158 RAISE;
159 END Insert_row;
160
161 --=====================================================================
162 --NAME: Update_Row
163 --TYPE: PRIVATE
164 --COMMENTS: Update a row in the OE_CREDIT_SUMMARIES table.
165 --Parameters:
166 --IN
167 --OUT
168 --=====================================================================
169
170 PROCEDURE Update_Row
171 ( p_row_id IN VARCHAR2
172 , p_balance IN NUMBER
173 , p_last_update_date IN DATE
174 , p_last_updated_by IN NUMBER
175 , p_last_update_login IN NUMBER
176 , p_program_application_id IN NUMBER
177 , p_program_id IN NUMBER
178 , p_program_update_date IN DATE
179 , p_request_id IN NUMBER
180 )
181 IS
182 --
183 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
184 --
185 BEGIN
186 OE_DEBUG_PUB.ADD('OEXCRSMB - IN Update row');
187 UPDATE oe_credit_summaries
188 SET
189 balance = p_balance
190 , last_update_date = p_last_update_date
191 , last_updated_by = p_last_updated_by
192 , last_update_login = p_last_update_login
193 , program_application_id = p_program_application_id
194 , program_id = p_program_id
195 , program_update_date = p_program_update_date
196 , request_id = p_request_id
197 WHERE ROWID = CHARTOROWID(p_row_id);
198
199 OE_DEBUG_PUB.ADD('OEXCRSMB - OUT NOCOPY Update row');
200
201
202 EXCEPTION
203 WHEN OTHERS THEN
204 IF OE_MSG_PUB.Check_msg_level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
205 THEN
206 OE_MSG_PUB.Add_exc_msg(G_PKG_NAME,'Update_row');
207 END IF;
208 RAISE;
209 END Update_Row;
210
211 --=====================================================================
212 --NAME: Delete_Row
213 --TYPE: PRIVATE
214 --COMMENTS: Delete a row in the OE_CREDIT_SUMMARIES table.
215 --Parameters:
216 --IN
217 --OUT
218 --=====================================================================
219
220 PROCEDURE Delete_Row
221 ( p_row_id IN VARCHAR2
222 )
223 IS
224 --
225 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
226 --
227 BEGIN
228 DELETE FROM oe_credit_summaries
229 WHERE ROWID = CHARTOROWID(p_row_id);
230 EXCEPTION
231 WHEN OTHERS THEN
232 IF OE_MSG_PUB.Check_msg_level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
233 THEN
234 OE_MSG_PUB.Add_exc_msg(G_PKG_NAME,'Update_row');
235 END IF;
236 RAISE;
237 END Delete_Row;
238
239 END OE_CREDIT_SUMMARIES_PKG;