1: package body FND_SVC_COMPONENTS_PKG as
2: /* $Header: AFSVCMTB.pls 115.5 2002/12/27 20:20:10 ankung noship $ */
3:
4: procedure INSERT_ROW (
5: X_ROWID in out nocopy VARCHAR2,
84: close c;
85:
86: exception
87: when others then
88: wf_core.context('FND_SVC_COMPONENTS_PKG', 'Insert_Row', X_COMPONENT_ID, X_COMPONENT_NAME);
89: raise;
90:
91: end INSERT_ROW;
92:
170: return;
171:
172: exception
173: when others then
174: wf_core.context('FND_SVC_COMPONENTS_PKG', 'Lock_Row', X_COMPONENT_ID, X_COMPONENT_NAME);
175: raise;
176: end LOCK_ROW;
177:
178: procedure UPDATE_ROW (
389: end if;
390: end if;
391: exception
392: when others then
393: wf_core.context('FND_SVC_COMPONENTS_PKG', 'Update_Row', X_COMPONENT_ID, X_COMPONENT_NAME);
394: raise;
395: end UPDATE_ROW;
396:
397: procedure DELETE_ROW (
484: INTO l_component_id
485: FROM fnd_svc_components
486: WHERE component_name = X_COMPONENT_NAME;
487:
488: FND_SVC_COMPONENTS_PKG.UPDATE_ROW (
489: X_COMPONENT_ID => l_component_id,
490: X_COMPONENT_NAME => X_COMPONENT_NAME,
491: X_COMPONENT_STATUS => X_COMPONENT_STATUS,
492: X_COMPONENT_TYPE => X_COMPONENT_TYPE,
511: SELECT fnd_svc_components_s.nextval
512: INTO l_component_id
513: FROM dual;
514:
515: FND_SVC_COMPONENTS_PKG.INSERT_ROW (
516: X_ROWID => row_id,
517: X_COMPONENT_ID => l_component_id,
518: X_COMPONENT_NAME => X_COMPONENT_NAME,
519: X_COMPONENT_STATUS => X_COMPONENT_STATUS,
538: end;
539: end LOAD_ROW;
540:
541:
542: end FND_SVC_COMPONENTS_PKG;