1: PACKAGE BODY CSM_MTL_ITEM_SUBINV_EVENT_PKG AS
2: /* $Header: csmemisb.pls 120.1.12020000.2 2013/04/09 10:56:02 saradhak ship $*/
3: --
4: -- To modify this template, edit file PKGBODY.TXT in TEMPLATE
5: -- directory of SQL Navigator
70: AND acc.secondary_inventory = mis.secondary_inventory
71: );
72:
73: BEGIN
74: CSM_UTIL_PKG.LOG('Entering CSM_MTL_ITEM_SUBINV_EVENT_PKG.INSERT_MTL_ITEM_SUBINV ',
75: 'CSM_MTL_ITEM_SUBINV_EVENT_PKG.INSERT_MTL_ITEM_SUBINV',FND_LOG.LEVEL_PROCEDURE);
76:
77: l_run_date := SYSDATE;
78:
71: );
72:
73: BEGIN
74: CSM_UTIL_PKG.LOG('Entering CSM_MTL_ITEM_SUBINV_EVENT_PKG.INSERT_MTL_ITEM_SUBINV ',
75: 'CSM_MTL_ITEM_SUBINV_EVENT_PKG.INSERT_MTL_ITEM_SUBINV',FND_LOG.LEVEL_PROCEDURE);
76:
77: l_run_date := SYSDATE;
78:
79: -- process inserts
88: VALUES (l_access_id_tbl(i), p_user_id, l_inventory_items_tbl(i), l_organizations_tbl(i),l_sec_inventory_tbl(i), 1,
89: fnd_global.user_id, l_run_date, fnd_global.user_id, l_run_date, fnd_global.login_id);
90:
91: CSM_UTIL_PKG.LOG('Bulk inserted ' || l_access_id_tbl.count || ' records into csm_mtl_item_subinv_acc for user ' || p_user_id ,
92: 'CSM_MTL_ITEM_SUBINV_EVENT_PKG.INSERT_MTL_ITEM_SUBINV',FND_LOG.LEVEL_STATEMENT);
93:
94: -- make dirty calls
95: FOR i IN 1..l_access_id_tbl.count LOOP
96: l_mark_dirty := csm_util_pkg.MakeDirtyForUser(g_pub_item,
120: );
121: END LOOP;
122: */
123:
124: CSM_UTIL_PKG.LOG('Leaving CSM_MTL_ITEM_SUBINV_EVENT_PKG.INSERT_MTL_ITEM_SUBINV ',
125: 'CSM_MTL_ITEM_SUBINV_EVENT_PKG.INSERT_MTL_ITEM_SUBINV',FND_LOG.LEVEL_PROCEDURE);
126:
127: EXCEPTION
128: WHEN others THEN
121: END LOOP;
122: */
123:
124: CSM_UTIL_PKG.LOG('Leaving CSM_MTL_ITEM_SUBINV_EVENT_PKG.INSERT_MTL_ITEM_SUBINV ',
125: 'CSM_MTL_ITEM_SUBINV_EVENT_PKG.INSERT_MTL_ITEM_SUBINV',FND_LOG.LEVEL_PROCEDURE);
126:
127: EXCEPTION
128: WHEN others THEN
129: l_sqlerrno := to_char(SQLCODE);
128: WHEN others THEN
129: l_sqlerrno := to_char(SQLCODE);
130: l_sqlerrmsg := substr(SQLERRM, 1,2000);
131: -- ROLLBACK;
132: CSM_UTIL_PKG.LOG('Exception in CSM_MTL_ITEM_SUBINV_EVENT_PKG.INSERT_MTL_ITEM_SUBINV: ' || l_sqlerrno || ':' || l_sqlerrmsg,
133: 'CSM_MTL_ITEM_SUBINV_EVENT_PKG.INSERT_MTL_ITEM_SUBINV',FND_LOG.LEVEL_EXCEPTION);
134: END INSERT_MTL_ITEM_SUBINV;
135:
136:
129: l_sqlerrno := to_char(SQLCODE);
130: l_sqlerrmsg := substr(SQLERRM, 1,2000);
131: -- ROLLBACK;
132: CSM_UTIL_PKG.LOG('Exception in CSM_MTL_ITEM_SUBINV_EVENT_PKG.INSERT_MTL_ITEM_SUBINV: ' || l_sqlerrno || ':' || l_sqlerrmsg,
133: 'CSM_MTL_ITEM_SUBINV_EVENT_PKG.INSERT_MTL_ITEM_SUBINV',FND_LOG.LEVEL_EXCEPTION);
134: END INSERT_MTL_ITEM_SUBINV;
135:
136:
137: PROCEDURE UPDATE_MTL_ITEM_SUBINV( p_organization_id IN number
158: AND acc.organization_id = p_organizationid
159: AND acc.user_id = p_userid;
160:
161: BEGIN
162: CSM_UTIL_PKG.LOG('Entering CSM_MTL_ITEM_SUBINV_EVENT_PKG.UPDATE_MTL_ITEM_SUBINV ',
163: 'CSM_MTL_ITEM_SUBINV_EVENT_PKG.UPDATE_MTL_ITEM_SUBINV',FND_LOG.LEVEL_PROCEDURE);
164:
165: l_run_date := SYSDATE;
166:
159: AND acc.user_id = p_userid;
160:
161: BEGIN
162: CSM_UTIL_PKG.LOG('Entering CSM_MTL_ITEM_SUBINV_EVENT_PKG.UPDATE_MTL_ITEM_SUBINV ',
163: 'CSM_MTL_ITEM_SUBINV_EVENT_PKG.UPDATE_MTL_ITEM_SUBINV',FND_LOG.LEVEL_PROCEDURE);
164:
165: l_run_date := SYSDATE;
166:
167: IF l_access_id_tbl.count > 0 THEN
185:
186: l_access_id_tbl.DELETE;
187: END IF;
188:
189: CSM_UTIL_PKG.LOG('Leaving CSM_MTL_ITEM_SUBINV_EVENT_PKG.UPDATE_MTL_ITEM_SUBINV ',
190: 'CSM_MTL_ITEM_SUBINV_EVENT_PKG.UPDATE_MTL_ITEM_SUBINV',FND_LOG.LEVEL_PROCEDURE);
191:
192: EXCEPTION
193: WHEN others THEN
186: l_access_id_tbl.DELETE;
187: END IF;
188:
189: CSM_UTIL_PKG.LOG('Leaving CSM_MTL_ITEM_SUBINV_EVENT_PKG.UPDATE_MTL_ITEM_SUBINV ',
190: 'CSM_MTL_ITEM_SUBINV_EVENT_PKG.UPDATE_MTL_ITEM_SUBINV',FND_LOG.LEVEL_PROCEDURE);
191:
192: EXCEPTION
193: WHEN others THEN
194: l_sqlerrno := to_char(SQLCODE);
193: WHEN others THEN
194: l_sqlerrno := to_char(SQLCODE);
195: l_sqlerrmsg := substr(SQLERRM, 1,2000);
196: ROLLBACK;
197: CSM_UTIL_PKG.LOG('Exception in CSM_MTL_ITEM_SUBINV_EVENT_PKG.UPDATE_MTL_ITEM_SUBINV: ' || l_sqlerrno || ':' || l_sqlerrmsg,
198: 'CSM_MTL_ITEM_SUBINV_EVENT_PKG.UPDATE_MTL_ITEM_SUBINV',FND_LOG.LEVEL_EXCEPTION);
199: END UPDATE_MTL_ITEM_SUBINV;
200:
201:
194: l_sqlerrno := to_char(SQLCODE);
195: l_sqlerrmsg := substr(SQLERRM, 1,2000);
196: ROLLBACK;
197: CSM_UTIL_PKG.LOG('Exception in CSM_MTL_ITEM_SUBINV_EVENT_PKG.UPDATE_MTL_ITEM_SUBINV: ' || l_sqlerrno || ':' || l_sqlerrmsg,
198: 'CSM_MTL_ITEM_SUBINV_EVENT_PKG.UPDATE_MTL_ITEM_SUBINV',FND_LOG.LEVEL_EXCEPTION);
199: END UPDATE_MTL_ITEM_SUBINV;
200:
201:
202: PROCEDURE DELETE_MTL_ITEM_SUBINV( p_organization_id IN number
227: AND mis.secondary_inventory = acc.secondary_inventory
228: );
229:
230: BEGIN
231: CSM_UTIL_PKG.LOG('Entering CSM_MTL_ITEM_SUBINV_EVENT_PKG.DELETE_MTL_ITEM_SUBINV ',
232: 'CSM_MTL_ITEM_SUBINV_EVENT_PKG.DELETE_MTL_ITEM_SUBINV',FND_LOG.LEVEL_PROCEDURE);
233:
234: IF l_inventory_items_tbl.count > 0 THEN
235: l_inventory_items_tbl.delete;
228: );
229:
230: BEGIN
231: CSM_UTIL_PKG.LOG('Entering CSM_MTL_ITEM_SUBINV_EVENT_PKG.DELETE_MTL_ITEM_SUBINV ',
232: 'CSM_MTL_ITEM_SUBINV_EVENT_PKG.DELETE_MTL_ITEM_SUBINV',FND_LOG.LEVEL_PROCEDURE);
233:
234: IF l_inventory_items_tbl.count > 0 THEN
235: l_inventory_items_tbl.delete;
236: END IF;
265: END LOOP;
266:
267: END IF;
268:
269: CSM_UTIL_PKG.LOG('Leaving CSM_MTL_ITEM_SUBINV_EVENT_PKG.DELETE_MTL_ITEM_SUBINV ',
270: 'CSM_MTL_ITEM_SUBINV_EVENT_PKG.DELETE_MTL_ITEM_SUBINV',FND_LOG.LEVEL_PROCEDURE);
271:
272: EXCEPTION
273: WHEN others THEN
266:
267: END IF;
268:
269: CSM_UTIL_PKG.LOG('Leaving CSM_MTL_ITEM_SUBINV_EVENT_PKG.DELETE_MTL_ITEM_SUBINV ',
270: 'CSM_MTL_ITEM_SUBINV_EVENT_PKG.DELETE_MTL_ITEM_SUBINV',FND_LOG.LEVEL_PROCEDURE);
271:
272: EXCEPTION
273: WHEN others THEN
274: l_sqlerrno := to_char(SQLCODE);
273: WHEN others THEN
274: l_sqlerrno := to_char(SQLCODE);
275: l_sqlerrmsg := substr(SQLERRM, 1,2000);
276: ROLLBACK;
277: CSM_UTIL_PKG.LOG('Exception in CSM_MTL_ITEM_SUBINV_EVENT_PKG.DELETE_MTL_ITEM_SUBINV: ' || l_sqlerrno || ':' || l_sqlerrmsg,
278: 'CSM_MTL_ITEM_SUBINV_EVENT_PKG.DELETE_MTL_ITEM_SUBINV',FND_LOG.LEVEL_EXCEPTION);
279: END DELETE_MTL_ITEM_SUBINV;
280:
281:
274: l_sqlerrno := to_char(SQLCODE);
275: l_sqlerrmsg := substr(SQLERRM, 1,2000);
276: ROLLBACK;
277: CSM_UTIL_PKG.LOG('Exception in CSM_MTL_ITEM_SUBINV_EVENT_PKG.DELETE_MTL_ITEM_SUBINV: ' || l_sqlerrno || ':' || l_sqlerrmsg,
278: 'CSM_MTL_ITEM_SUBINV_EVENT_PKG.DELETE_MTL_ITEM_SUBINV',FND_LOG.LEVEL_EXCEPTION);
279: END DELETE_MTL_ITEM_SUBINV;
280:
281:
282: PROCEDURE Refresh_acc(p_status OUT NOCOPY VARCHAR2,
298: CURSOR l_last_run_date_csr
299: IS
300: SELECT nvl(last_run_date, (sysdate - 365*50))
301: FROM jtm_con_request_data
302: WHERE package_name = 'CSM_MTL_ITEM_SUBINV_EVENT_PKG'
303: AND procedure_name = 'REFRESH_ACC';
304:
305: --process inserts
306: CURSOR l_ins_mtl_item_subinv_csr
405: FROM asg_user
406: WHERE resource_id = p_resourceid;
407:
408: BEGIN
409: CSM_UTIL_PKG.LOG('Entering CSM_MTL_ITEM_SUBINV_EVENT_PKG.Refresh_acc ',
410: 'CSM_MTL_ITEM_SUBINV_EVENT_PKG.Refresh_acc',FND_LOG.LEVEL_PROCEDURE);
411:
412: l_run_date := SYSDATE;
413:
406: WHERE resource_id = p_resourceid;
407:
408: BEGIN
409: CSM_UTIL_PKG.LOG('Entering CSM_MTL_ITEM_SUBINV_EVENT_PKG.Refresh_acc ',
410: 'CSM_MTL_ITEM_SUBINV_EVENT_PKG.Refresh_acc',FND_LOG.LEVEL_PROCEDURE);
411:
412: l_run_date := SYSDATE;
413:
414: -- get last conc program update date
459:
460: -- update last_run_date
461: UPDATE jtm_con_request_data
462: SET last_run_date = l_run_date
463: WHERE package_name = 'CSM_MTL_ITEM_SUBINV_EVENT_PKG'
464: AND procedure_name = 'REFRESH_ACC';
465:
466: COMMIT;
467:
465:
466: COMMIT;
467:
468: p_status := 'FINE';
469: p_message := 'CSM_MTL_ITEM_SUBINV_EVENT_PKG.Refresh_Acc Executed successfully';
470:
471: EXCEPTION
472: WHEN others THEN
473: l_sqlerrno := to_char(SQLCODE);
472: WHEN others THEN
473: l_sqlerrno := to_char(SQLCODE);
474: l_sqlerrmsg := substr(SQLERRM, 1,2000);
475: p_status := 'ERROR';
476: p_message := 'Error in CSM_MTL_ITEM_SUBINV_EVENT_PKG.Refresh_Acc: ' || l_sqlerrno || ':' || l_sqlerrmsg;
477: ROLLBACK;
478: CSM_UTIL_PKG.LOG('Exception in CSM_MTL_ITEM_SUBINV_EVENT_PKG.refresh_acc: ' || l_sqlerrno || ':' || l_sqlerrmsg,
479: 'CSM_MTL_ITEM_SUBINV_EVENT_PKG.refresh_acc',FND_LOG.LEVEL_EXCEPTION);
480: END Refresh_acc;
474: l_sqlerrmsg := substr(SQLERRM, 1,2000);
475: p_status := 'ERROR';
476: p_message := 'Error in CSM_MTL_ITEM_SUBINV_EVENT_PKG.Refresh_Acc: ' || l_sqlerrno || ':' || l_sqlerrmsg;
477: ROLLBACK;
478: CSM_UTIL_PKG.LOG('Exception in CSM_MTL_ITEM_SUBINV_EVENT_PKG.refresh_acc: ' || l_sqlerrno || ':' || l_sqlerrmsg,
479: 'CSM_MTL_ITEM_SUBINV_EVENT_PKG.refresh_acc',FND_LOG.LEVEL_EXCEPTION);
480: END Refresh_acc;
481:
482: END CSM_MTL_ITEM_SUBINV_EVENT_PKG;
475: p_status := 'ERROR';
476: p_message := 'Error in CSM_MTL_ITEM_SUBINV_EVENT_PKG.Refresh_Acc: ' || l_sqlerrno || ':' || l_sqlerrmsg;
477: ROLLBACK;
478: CSM_UTIL_PKG.LOG('Exception in CSM_MTL_ITEM_SUBINV_EVENT_PKG.refresh_acc: ' || l_sqlerrno || ':' || l_sqlerrmsg,
479: 'CSM_MTL_ITEM_SUBINV_EVENT_PKG.refresh_acc',FND_LOG.LEVEL_EXCEPTION);
480: END Refresh_acc;
481:
482: END CSM_MTL_ITEM_SUBINV_EVENT_PKG;
478: CSM_UTIL_PKG.LOG('Exception in CSM_MTL_ITEM_SUBINV_EVENT_PKG.refresh_acc: ' || l_sqlerrno || ':' || l_sqlerrmsg,
479: 'CSM_MTL_ITEM_SUBINV_EVENT_PKG.refresh_acc',FND_LOG.LEVEL_EXCEPTION);
480: END Refresh_acc;
481:
482: END CSM_MTL_ITEM_SUBINV_EVENT_PKG;