[Home] [Help]
1: package body HR_FORM_DATA_GROUP_ITEMS_PKG as
2: /* $Header: hrfgilct.pkb 120.1 2011/04/28 11:59:02 sidsaxen ship $ */
3: procedure OWNER_TO_WHO (
4: X_OWNER in VARCHAR2,
5: X_CREATION_DATE out nocopy DATE,
31: X_LAST_UPDATE_DATE in DATE,
32: X_LAST_UPDATED_BY in NUMBER,
33: X_LAST_UPDATE_LOGIN in NUMBER
34: ) is
35: cursor C is select ROWID from HR_FORM_DATA_GROUP_ITEMS
36: where FORM_DATA_GROUP_ITEM_ID = X_FORM_DATA_GROUP_ITEM_ID
37: ;
38: begin
39:
43: --
44:
45: BEGIN
46: PER_RIC_PKG.chk_integrity (
47: p_entity_name => 'HR_FORM_DATA_GROUP_ITEMS',
48: p_ref_entity_info => PER_RIC_PKG.ref_entity_tbl(
49: PER_RIC_PKG.ref_info_rec('HR_FORM_DATA_GROUPS_B', PER_RIC_PKG.column_info_tbl(
50: PER_RIC_PKG.col_info_rec('FORM_DATA_GROUP_ID',NULL,X_FORM_DATA_GROUP_ID,NULL))),
51: PER_RIC_PKG.ref_info_rec('HR_FORM_ITEMS_B', PER_RIC_PKG.column_info_tbl(
57:
58: --
59: -- Code Ends Here.
60: --
61: insert into HR_FORM_DATA_GROUP_ITEMS (
62: FORM_DATA_GROUP_ID,
63: FORM_ITEM_ID,
64: LAST_UPDATE_DATE,
65: LAST_UPDATED_BY,
98: cursor c1 is select
99: FORM_DATA_GROUP_ID,
100: FORM_ITEM_ID,
101: OBJECT_VERSION_NUMBER
102: from HR_FORM_DATA_GROUP_ITEMS
103: where FORM_DATA_GROUP_ITEM_ID = X_FORM_DATA_GROUP_ITEM_ID
104: for update of FORM_DATA_GROUP_ITEM_ID nowait;
105: begin
106: for tlinfo in c1 loop
126: X_LAST_UPDATED_BY in NUMBER,
127: X_LAST_UPDATE_LOGIN in NUMBER
128: ) is
129: begin
130: update HR_FORM_DATA_GROUP_ITEMS set
131: FORM_DATA_GROUP_ID = X_FORM_DATA_GROUP_ID,
132: FORM_ITEM_ID = X_FORM_ITEM_ID,
133: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
134: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
145: X_FORM_DATA_GROUP_ITEM_ID in NUMBER
146: ) is
147: begin
148:
149: delete from HR_FORM_DATA_GROUP_ITEMS
150: where FORM_DATA_GROUP_ITEM_ID = X_FORM_DATA_GROUP_ITEM_ID;
151:
152: if (sql%notfound) then
153: raise no_data_found;
213:
214: begin
215: select fgi.form_data_group_item_id
216: into x_form_data_group_item_id
217: from hr_form_data_group_items fgi
218: where fgi.form_data_group_id = x_form_data_group_id
219: and fgi.form_item_id = x_form_item_id;
220: exception
221: when no_data_found then
218: where fgi.form_data_group_id = x_form_data_group_id
219: and fgi.form_item_id = x_form_item_id;
220: exception
221: when no_data_found then
222: select hr_form_data_group_items_s.nextval
223: into x_form_data_group_item_id
224: from dual;
225: end;
226:
249: X_LAST_UPDATED_BY,
250: X_LAST_UPDATE_LOGIN);
251: end;
252: end LOAD_ROW;
253: end HR_FORM_DATA_GROUP_ITEMS_PKG;