[Home] [Help]
PACKAGE BODY: APPS.HR_LEGISLATION_SUBGROUPS_PKG
Source
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
15 ) values (
16 X_LEGISLATION_CODE,
17 X_LEGISLATION_SUBGROUP,
18 X_ACTIVE_INACTIVE_FLAG,
19 X_LEGISLATION_SUBGROUP_NAME
20 );
21 end INSERT_ROW;
22 --
23 procedure LOCK_ROW (
24 X_LEGISLATION_CODE in VARCHAR2,
25 X_LEGISLATION_SUBGROUP in VARCHAR2,
26 X_ACTIVE_INACTIVE_FLAG in VARCHAR2
27 ) is
28 cursor CSR_LEGISLATION_SUBGROUP (
29 X_LEGISLATION_CODE in VARCHAR2,
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;
39 begin
40 open CSR_LEGISLATION_SUBGROUP(X_LEGISLATION_CODE,X_LEGISLATION_SUBGROUP);
41 fetch CSR_LEGISLATION_SUBGROUP into RECINFO;
42 if (CSR_LEGISLATION_SUBGROUP%notfound) then
43 close CSR_LEGISLATION_SUBGROUP;
44 fnd_message.set_name('FND','FORM_RECORD_DELETED');
45 app_exception.raise_exception;
46 end if;
47 close CSR_LEGISLATION_SUBGROUP;
48 if ( ( (RECINFO.ACTIVE_INACTIVE_FLAG = X_ACTIVE_INACTIVE_FLAG)
49 or (RECINFO.ACTIVE_INACTIVE_FLAG is null and X_ACTIVE_INACTIVE_FLAG is null))
50 ) then
51 null;
52 else
53 fnd_message.set_name('FND','FORM_RECORD_CHANGED');
54 app_exception.raise_exception;
55 end if;
56 end LOCK_ROW;
57 --
58 procedure UPDATE_ROW (
59 X_LEGISLATION_CODE in VARCHAR2,
60 X_LEGISLATION_SUBGROUP in VARCHAR2,
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;
70 if (sql%notfound) then
71 raise no_data_found;
72 end if;
73 end UPDATE_ROW;
74 --
75 procedure DELETE_ROW (
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;
85 end if;
86 end DELETE_ROW;
87 --
88 procedure LOAD_ROW (
89 X_LEGISLATION_CODE in VARCHAR2,
90 X_LEGISLATION_SUBGROUP in VARCHAR2,
91 X_ACTIVE_INACTIVE_FLAG in VARCHAR2,
92 X_LEGISLATION_SUBGROUP_NAME in VARCHAR2,
93 X_OWNER in VARCHAR2
94 ) is
95 begin
96 begin
97 UPDATE_ROW (
98 X_LEGISLATION_CODE,
99 X_LEGISLATION_SUBGROUP,
100 X_ACTIVE_INACTIVE_FLAG,
101 X_LEGISLATION_SUBGROUP_NAME
102 );
103 exception
104 when no_data_found then
105 INSERT_ROW (
106 X_LEGISLATION_CODE,
107 X_LEGISLATION_SUBGROUP,
108 X_ACTIVE_INACTIVE_FLAG,
109 X_LEGISLATION_SUBGROUP_NAME
110 );
111 end;
112 end LOAD_ROW;
113 --
114 procedure TRANSLATE_ROW (
115 X_LEGISLATION_CODE in VARCHAR2,
116 X_LEGISLATION_SUBGROUP in VARCHAR2,
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;