1: PACKAGE BODY CSM_ORDERS_PKG AS
2: /* $Header: csmuordb.pls 120.0.12020000.2 2013/04/09 11:04:50 saradhak noship $*/
3: --
4: -- To modify this template, edit file PKGBODY.TXT in TEMPLATE
5: -- directory of SQL Navigator
13: -- Enter procedure, function bodies as shown below
14:
15: /*** Globals ***/
16:
17: g_object_name CONSTANT VARCHAR2(30) := 'CSM_ORDERS_PKG'; -- package name
18: g_pub_name CONSTANT VARCHAR2(30) := 'CSM_ORDER_LINES'; -- publication item name
19: g_debug_level NUMBER; -- debug level
20: g_user_name VARCHAR2(300);
21:
75: l_dummy boolean;
76: BEGIN
77:
78: CSM_UTIL_PKG.LOG
79: ( 'Entering CSM_ORDERS_PKG.RECEIVE_ORDER'|| 'for PK '|| p_line_id ,
80: 'CSM_ORDERS_PKG.RECEIVE_ORDER',
81: FND_LOG.LEVEL_STATEMENT ); -- put PK column here
82:
83: FOR r_part_line IN c_part_line(p_line_id)
76: BEGIN
77:
78: CSM_UTIL_PKG.LOG
79: ( 'Entering CSM_ORDERS_PKG.RECEIVE_ORDER'|| 'for PK '|| p_line_id ,
80: 'CSM_ORDERS_PKG.RECEIVE_ORDER',
81: FND_LOG.LEVEL_STATEMENT ); -- put PK column here
82:
83: FOR r_part_line IN c_part_line(p_line_id)
84: LOOP
103: l_trans_items_rec_type.SHIPMENT_LINE_ID := r_part_line.shipment_line_id;
104:
105: CSM_UTIL_PKG.LOG
106: ( 'Calling API CSP_TRANSACTIONS_PUB.receive_requirement_trans for PK '||p_line_id ,
107: 'CSM_ORDERS_PKG.APPLY_UPDATE',FND_LOG.LEVEL_STATEMENT ); -- put PK column here
108:
109: CSP_TRANSACTIONS_PUB.receive_requirement_trans (
110: p_trans_header_id => r_part_line.header_id,
111: p_trans_line_id => r_part_line.line_id,
146: , p_timestamp => sysdate
147: );
148: END LOOP;
149: END IF;
150: CSM_UTIL_PKG.LOG('Leaving CSM_ORDERS_PKG.RECEIVE_ORDER for : ' || r_part_line.line_id, g_object_name, FND_LOG.LEVEL_PROCEDURE);
151:
152: p_result := TO_CLOB('
153:
154: END RECEIVE_ORDER;
166:
167: BEGIN
168:
169: CSM_UTIL_PKG.LOG
170: ( 'Entering CSM_ORDERS_PKG.APPLY_UPDATE'|| 'for PK '||p_record.line_id ,
171: 'CSM_ORDERS_PKG.APPLY_UPDATE',
172: FND_LOG.LEVEL_STATEMENT ); -- put PK column here
173:
174: RECEIVE_ORDER(
167: BEGIN
168:
169: CSM_UTIL_PKG.LOG
170: ( 'Entering CSM_ORDERS_PKG.APPLY_UPDATE'|| 'for PK '||p_record.line_id ,
171: 'CSM_ORDERS_PKG.APPLY_UPDATE',
172: FND_LOG.LEVEL_STATEMENT ); -- put PK column here
173:
174: RECEIVE_ORDER(
175: p_line_id => p_record.line_id,
190:
191:
192:
193: CSM_UTIL_PKG.LOG
194: ( 'Leaving CSM_ORDERS_PKG.APPLY_UPDATE'|| 'for PK '||p_record.line_id ,
195: 'CSM_ORDERS_PKG.APPLY_UPDATE',
196: FND_LOG.LEVEL_STATEMENT ); -- put PK column here
197:
198:
191:
192:
193: CSM_UTIL_PKG.LOG
194: ( 'Leaving CSM_ORDERS_PKG.APPLY_UPDATE'|| 'for PK '||p_record.line_id ,
195: 'CSM_ORDERS_PKG.APPLY_UPDATE',
196: FND_LOG.LEVEL_STATEMENT ); -- put PK column here
197:
198:
199: EXCEPTION WHEN OTHERS THEN
198:
199: EXCEPTION WHEN OTHERS THEN
200:
201: CSM_UTIL_PKG.LOG
202: ( 'Exception occurred in CSM_ORDERS_PKG.APPLY_UPDATE'|| 'for PK '||p_record.line_id || FND_GLOBAL.LOCAL_CHR(10) || sqlerrm,
203: 'CSM_ORDERS_PKG.APPLY_UPDATE',
204: FND_LOG.LEVEL_EXCEPTION); -- put PK column here
205:
206:
199: EXCEPTION WHEN OTHERS THEN
200:
201: CSM_UTIL_PKG.LOG
202: ( 'Exception occurred in CSM_ORDERS_PKG.APPLY_UPDATE'|| 'for PK '||p_record.line_id || FND_GLOBAL.LOCAL_CHR(10) || sqlerrm,
203: 'CSM_ORDERS_PKG.APPLY_UPDATE',
204: FND_LOG.LEVEL_EXCEPTION); -- put PK column here
205:
206:
207: fnd_msg_pub.Add_Exc_Msg( 'CSM_ORDERS_PKG', 'APPLY_UPDATE', sqlerrm);
203: 'CSM_ORDERS_PKG.APPLY_UPDATE',
204: FND_LOG.LEVEL_EXCEPTION); -- put PK column here
205:
206:
207: fnd_msg_pub.Add_Exc_Msg( 'CSM_ORDERS_PKG', 'APPLY_UPDATE', sqlerrm);
208: p_error_msg := CSM_UTIL_PKG.GET_ERROR_MESSAGE_TEXT
209: (
210: p_api_error => TRUE
211: );
229:
230: FND_MSG_PUB.INITIALIZE;
231:
232: CSM_UTIL_PKG.LOG
233: ( 'Entering CSM_ORDERS_PKG.APPLY_RECORD'|| 'for PK '||p_record.line_id,
234: 'CSM_ORDERS_PKG.APPLY_RECORD',
235: FND_LOG.LEVEL_STATEMENT ); -- put PK column here
236:
237: CSM_UTIL_PKG.LOG
230: FND_MSG_PUB.INITIALIZE;
231:
232: CSM_UTIL_PKG.LOG
233: ( 'Entering CSM_ORDERS_PKG.APPLY_RECORD'|| 'for PK '||p_record.line_id,
234: 'CSM_ORDERS_PKG.APPLY_RECORD',
235: FND_LOG.LEVEL_STATEMENT ); -- put PK column here
236:
237: CSM_UTIL_PKG.LOG
238: ( 'Processing order '|| 'for PK '||p_record.line_id ||'DMLTYPE = ' || p_record.dmltype$$,
235: FND_LOG.LEVEL_STATEMENT ); -- put PK column here
236:
237: CSM_UTIL_PKG.LOG
238: ( 'Processing order '|| 'for PK '||p_record.line_id ||'DMLTYPE = ' || p_record.dmltype$$,
239: 'CSM_ORDERS_PKG.APPLY_RECORD',
240: FND_LOG.LEVEL_STATEMENT ); -- put PK column here
241:
242: IF p_record.dmltype$$ ='U' THEN
243: -- Process update
252: -- invalid dml type
253:
254: CSM_UTIL_PKG.LOG
255: ( 'Invalid or unsupported DML type: ' || p_record.dmltype$$|| 'for PK '||p_record.line_id,
256: 'CSM_ORDERS_PKG.APPLY_RECORD',
257: FND_LOG.LEVEL_ERROR ); -- put PK column here
258:
259: p_error_msg := CSM_UTIL_PKG.GET_ERROR_MESSAGE_TEXT
260: (
266: x_return_status := FND_API.G_RET_STS_ERROR;
267: END IF;
268:
269: CSM_UTIL_PKG.LOG
270: ( 'Leaving CSM_ORDERS_PKG.APPLY_RECORD'|| 'for PK '||p_record.line_id,
271: 'CSM_ORDERS_PKG.APPLY_RECORD',
272: FND_LOG.LEVEL_STATEMENT ); -- put PK column here
273:
274: EXCEPTION WHEN OTHERS THEN
267: END IF;
268:
269: CSM_UTIL_PKG.LOG
270: ( 'Leaving CSM_ORDERS_PKG.APPLY_RECORD'|| 'for PK '||p_record.line_id,
271: 'CSM_ORDERS_PKG.APPLY_RECORD',
272: FND_LOG.LEVEL_STATEMENT ); -- put PK column here
273:
274: EXCEPTION WHEN OTHERS THEN
275: /*** defer record when any process exception occurs ***/
273:
274: EXCEPTION WHEN OTHERS THEN
275: /*** defer record when any process exception occurs ***/
276: CSM_UTIL_PKG.LOG
277: ( 'Exception occurred in CSM_ORDERS_PKG.APPLY_RECORD'|| 'for PK '||p_record.line_id || FND_GLOBAL.LOCAL_CHR(10) || sqlerrm,
278: 'CSM_ORDERS_PKG.APPLY_RECORD',
279: FND_LOG.LEVEL_EXCEPTION); -- put PK column here
280:
281:
274: EXCEPTION WHEN OTHERS THEN
275: /*** defer record when any process exception occurs ***/
276: CSM_UTIL_PKG.LOG
277: ( 'Exception occurred in CSM_ORDERS_PKG.APPLY_RECORD'|| 'for PK '||p_record.line_id || FND_GLOBAL.LOCAL_CHR(10) || sqlerrm,
278: 'CSM_ORDERS_PKG.APPLY_RECORD',
279: FND_LOG.LEVEL_EXCEPTION); -- put PK column here
280:
281:
282: fnd_msg_pub.Add_Exc_Msg( 'CSM_ORDERS_PKG', 'APPLY_RECORD', sqlerrm);
278: 'CSM_ORDERS_PKG.APPLY_RECORD',
279: FND_LOG.LEVEL_EXCEPTION); -- put PK column here
280:
281:
282: fnd_msg_pub.Add_Exc_Msg( 'CSM_ORDERS_PKG', 'APPLY_RECORD', sqlerrm);
283: p_error_msg := CSM_UTIL_PKG.GET_ERROR_MESSAGE_TEXT
284: (
285: p_api_error => TRUE
286: );
308: l_return_status VARCHAR2(1);
309: BEGIN
310:
311: CSM_UTIL_PKG.LOG
312: ( 'Entering CSM_ORDERS_PKG.APPLY CLIENT CHANGES',
313: 'CSM_ORDERS_PKG.APPLY_CLIENT_CHANGES',
314: p_debug_level); -- put PK column here
315:
316: g_debug_level := p_debug_level;
309: BEGIN
310:
311: CSM_UTIL_PKG.LOG
312: ( 'Entering CSM_ORDERS_PKG.APPLY CLIENT CHANGES',
313: 'CSM_ORDERS_PKG.APPLY_CLIENT_CHANGES',
314: p_debug_level); -- put PK column here
315:
316: g_debug_level := p_debug_level;
317: g_user_name := p_user_name;
409:
410: END LOOP;
411:
412: CSM_UTIL_PKG.LOG
413: ( 'Leaving CSM_ORDERS_PKG.APPLY CLIENT CHANGES',
414: 'CSM_ORDERS_PKG.APPLY_CLIENT_CHANGES',
415: FND_LOG.LEVEL_STATEMENT ); -- put PK column here
416:
417: END APPLY_CLIENT_CHANGES;
410: END LOOP;
411:
412: CSM_UTIL_PKG.LOG
413: ( 'Leaving CSM_ORDERS_PKG.APPLY CLIENT CHANGES',
414: 'CSM_ORDERS_PKG.APPLY_CLIENT_CHANGES',
415: FND_LOG.LEVEL_STATEMENT ); -- put PK column here
416:
417: END APPLY_CLIENT_CHANGES;
418: