[Home] [Help]
1: package body HR_LEGISLATION_SUBGROUPS_PKG as
2: /* $Header: pelsg01t.pkb 115.1 1999/11/05 01:37:49 pkm ship $ */
3: procedure INSERT_ROW (
4: X_LEGISLATION_CODE in VARCHAR2,
5: X_LEGISLATION_SUBGROUP in VARCHAR2,
6: X_ACTIVE_INACTIVE_FLAG in VARCHAR2,
7: X_LEGISLATION_SUBGROUP_NAME in VARCHAR2
8: ) is
9: begin
10: insert into HR_LEGISLATION_SUBGROUPS (
11: LEGISLATION_CODE,
12: LEGISLATION_SUBGROUP,
13: ACTIVE_INACTIVE_FLAG,
14: LEGISLATION_SUBGROUP_NAME
30: X_LEGISLATION_SUBGROUP in VARCHAR2
31: ) is
32: select ACTIVE_INACTIVE_FLAG,
33: LEGISLATION_SUBGROUP_NAME
34: from HR_LEGISLATION_SUBGROUPS
35: where LEGISLATION_CODE = X_LEGISLATION_CODE
36: and LEGISLATION_SUBGROUP = X_LEGISLATION_SUBGROUP
37: for update of LEGISLATION_CODE nowait;
38: RECINFO CSR_LEGISLATION_SUBGROUP%rowtype;
61: X_ACTIVE_INACTIVE_FLAG in VARCHAR2,
62: X_LEGISLATION_SUBGROUP_NAME in VARCHAR2
63: ) is
64: begin
65: update HR_LEGISLATION_SUBGROUPS set
66: ACTIVE_INACTIVE_FLAG = X_ACTIVE_INACTIVE_FLAG,
67: LEGISLATION_SUBGROUP_NAME = X_LEGISLATION_SUBGROUP_NAME
68: where LEGISLATION_CODE = X_LEGISLATION_CODE
69: and LEGISLATION_SUBGROUP = X_LEGISLATION_SUBGROUP;
76: X_LEGISLATION_CODE in VARCHAR2,
77: X_LEGISLATION_SUBGROUP in VARCHAR2
78: ) is
79: begin
80: delete from HR_LEGISLATION_SUBGROUPS
81: where LEGISLATION_CODE = X_LEGISLATION_CODE
82: and LEGISLATION_SUBGROUP = X_LEGISLATION_SUBGROUP;
83: if (sql%notfound) then
84: raise no_data_found;
117: X_LEGISLATION_SUBGROUP_NAME in VARCHAR2,
118: X_OWNER in VARCHAR2
119: ) is
120: begin
121: update HR_LEGISLATION_SUBGROUPS set
122: LEGISLATION_SUBGROUP_NAME = X_LEGISLATION_SUBGROUP_NAME
123: where LEGISLATION_CODE = X_LEGISLATION_CODE
124: and LEGISLATION_SUBGROUP = X_LEGISLATION_SUBGROUP
125: and userenv('LANG') = (select LANGUAGE_CODE
126: from FND_LANGUAGES
127: where INSTALLED_FLAG = 'B');
128: end TRANSLATE_ROW;
129: --
130: end HR_LEGISLATION_SUBGROUPS_PKG;