77: ,P_USER_ID => p_user_id
78: );
79:
80: -- if not history, get notes for customer
81: IF NOT csm_util_pkg.is_flow_history(p_flowtype) THEN
82: CSM_NOTES_EVENT_PKG.NOTES_MAKE_DIRTY_I_GRP(p_sourceobjectcode => 'PARTY',
83: p_sourceobjectid => p_party_id,
84: p_userid => p_user_id,
85: p_error_msg => l_err_msg,
86: x_return_status => l_ret_status
87: );
88:
89: IF l_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
90: csm_util_pkg.LOG(l_err_msg, 'CSM_PARTY_EVENT_PKG.PARTY_ACC_I', FND_LOG.LEVEL_ERROR);
91: END IF;
92: END IF;
93:
94: p_error_msg := 'Leaving CSM_PARTY_EVENT_PKG.PARTY_ACC_I' || ' for party_id ' || to_char(p_party_id);
95: EXCEPTION
96: WHEN others THEN
97: x_return_status := FND_API.G_RET_STS_ERROR;
98: p_error_msg := ' FAILED PARTY_ACC_I:' || to_char(p_party_id);
99: CSM_UTIL_PKG.LOG( p_error_msg, 'CSM_PARTY_EVENT_PKG.PARTY_ACC_I', FND_LOG.LEVEL_EXCEPTION);
100: RAISE;
101:
102: END PARTY_ACC_I;
103:
170: ,P_USER_ID => p_user_id
171: );
172:
173: -- delete notes if flow is not history
174: IF NOT (csm_util_pkg.is_flow_history(p_flowtype)) THEN
175: CSM_NOTES_EVENT_PKG.NOTES_MAKE_DIRTY_D_GRP(p_sourceobjectcode => 'PARTY',
176: p_sourceobjectid => p_party_id,
177: p_userid => p_user_id,
178: p_error_msg => l_err_msg,
179: x_return_status => l_ret_status
180: );
181:
182: IF l_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
183: csm_util_pkg.LOG(l_err_msg, 'CSM_PARTY_EVENT_PKG.PARTY_ACC_D', FND_LOG.LEVEL_ERROR);
184: END IF;
185: END IF;
186: ELSIF l_count = 1 THEN
187: OPEN l_check_party_ref(p_party_id, p_user_id) ;
199: ,P_USER_ID => p_user_id
200: );
201:
202: -- delete notes if flow is not history
203: IF NOT (csm_util_pkg.is_flow_history(p_flowtype)) THEN
204: CSM_NOTES_EVENT_PKG.NOTES_MAKE_DIRTY_D_GRP(p_sourceobjectcode => 'PARTY',
205: p_sourceobjectid => p_party_id,
206: p_userid => p_user_id,
207: p_error_msg => l_err_msg,
208: x_return_status => l_ret_status
209: );
210:
211: IF l_ret_status <> FND_API.G_RET_STS_SUCCESS THEN
212: csm_util_pkg.LOG(l_err_msg, 'CSM_PARTY_EVENT_PKG.PARTY_ACC_D', FND_LOG.LEVEL_ERROR);
213: END IF;
214: END IF;
215: END IF;
216: END IF;
219: EXCEPTION
220: WHEN others THEN
221: x_return_status := FND_API.G_RET_STS_ERROR;
222: p_error_msg := ' FAILED PARTY_ACC_D:' || to_char(p_party_id);
223: CSM_UTIL_PKG.LOG( p_error_msg, 'CSM_PARTY_EVENT_PKG.PARTY_ACC_D', FND_LOG.LEVEL_EXCEPTION);
224: RAISE;
225:
226: END PARTY_ACC_D;
227:
248: FROM csm_party_sites_acc
249: WHERE party_id = p_party_id;
250:
251: BEGIN
252: CSM_UTIL_PKG.LOG('Entering PARTY_ORG_UPD_WF_EVENT_SUB',
253: 'CSM_PARTY_EVENT_PKG.PARTY_ORG_UPD_WF_EVENT_SUB',FND_LOG.LEVEL_PROCEDURE);
254:
255: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
256: RETURN 'SUCCESS';
251: BEGIN
252: CSM_UTIL_PKG.LOG('Entering PARTY_ORG_UPD_WF_EVENT_SUB',
253: 'CSM_PARTY_EVENT_PKG.PARTY_ORG_UPD_WF_EVENT_SUB',FND_LOG.LEVEL_PROCEDURE);
254:
255: IF NOT CSM_UTIL_PKG.IS_FIELD_SERVICE_PALM_ENABLED THEN
256: RETURN 'SUCCESS';
257: END IF;
258:
259: l_party_id := p_event.GetValueForParameter('PARTY_ID');
279: ,P_ACCESS_ID => r_party_sites_rec.access_id
280: );
281: END LOOP;
282:
283: CSM_UTIL_PKG.LOG('Leaving PARTY_ORG_UPD_WF_EVENT_SUB for party_id: ' || TO_CHAR(l_party_id),
284: 'CSM_PARTY_EVENT_PKG.PARTY_ORG_UPD_WF_EVENT_SUB',FND_LOG.LEVEL_PROCEDURE);
285: RETURN 'SUCCESS';
286: EXCEPTION
287: WHEN OTHERS THEN
288: l_sqlerrno := to_char(SQLCODE);
289: l_sqlerrmsg := substr(SQLERRM, 1,2000);
290: l_error_msg := ' Exception in PARTY_ORG_UPD_WF_EVENT_SUB for party_id:' || to_char(l_party_id)
291: || ':' || l_sqlerrno || ':' || l_sqlerrmsg;
292: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_PARTY_EVENT_PKG.PARTY_ORG_UPD_WF_EVENT_SUB',FND_LOG.LEVEL_EXCEPTION);
293: RETURN 'ERROR';
294: END PARTY_ORG_UPD_WF_EVENT_SUB;
295:
296: --Bug 9128169
364: FETCH c_get_access_ID INTO l_accessid_tbl(I);
365: CLOSE c_get_access_ID;
366: END LOOP;
367:
368: CSM_UTIL_PKG.LOG(TO_CHAR(l_accessid_tbl.COUNT) || ' records sent for purge', 'CSM_PARTY_EVENT_PKG.PURGE_PARTY_CONC',FND_LOG.LEVEL_EVENT);
369:
370: --calling MARK-DIRTY
371: l_rc := asg_download.mark_dirty( 'CSF_M_PARTIES', l_accessid_tbl
372: , l_userid_tbl, 'D', sysdate,true );
401: l_error_msg := ' Exception in PURGE_PARTY_CONC :' || l_sqlerrno || ':' || l_sqlerrmsg;
402:
403: p_status := 'ERROR';
404: p_message := 'Error in CSM_PARTY_EVENT_PKG.PURGE_PARTY_CONC: ' || l_error_msg;
405: CSM_UTIL_PKG.LOG(l_error_msg, 'CSM_PARTY_EVENT_PKG.PURGE_PARTY_CONC',FND_LOG.LEVEL_EVENT);
406:
407: END PURGE_PARTY_CONC;
408:
409: END CSM_PARTY_EVENT_PKG;