[Home] [Help]
PACKAGE BODY: APPS.CS_SR_TSK_TMPL_SEQ_RULES_PKG
Source
1 PACKAGE BODY CS_SR_TSK_TMPL_SEQ_RULES_PKG AS
2 /* $Header: cstskrlb.pls 120.0 2006/03/07 18:40:06 jngeorge noship $ */
3
4 procedure INSERT_ROW (
5 X_ROWID in out NOCOPY VARCHAR2,
6 P_SEARCH_RULE_ID in NUMBER,
7 P_ACTIVE_FLAG in VARCHAR2,
8 P_OBJECT_VERSION_NUMBER in NUMBER,
9 P_SECURITY_GROUP_ID in NUMBER,
10 P_SEARCH_RULE_CODE in VARCHAR2,
11 P_SEARCH_SEQUENCE in NUMBER,
12 P_CREATION_DATE in DATE,
13 P_CREATED_BY in NUMBER,
14 P_LAST_UPDATE_DATE in DATE,
15 P_LAST_UPDATED_BY in NUMBER,
16 P_LAST_UPDATE_LOGIN in NUMBER
17 ) IS
18
19 BEGIN
20 INSERT INTO CS_SR_TSK_TMPL_SEQ_RULES (
21 ACTIVE_FLAG,
22 CREATION_DATE,
23 CREATED_BY,
24 LAST_UPDATE_DATE,
25 LAST_UPDATED_BY,
26 LAST_UPDATE_LOGIN,
27 OBJECT_VERSION_NUMBER,
28 SECURITY_GROUP_ID,
29 SEARCH_RULE_ID,
30 SEARCH_RULE_CODE,
31 SEARCH_SEQUENCE
32 )
33 VALUES
34 (
35 P_ACTIVE_FLAG,
36 P_CREATION_DATE,
37 P_CREATED_BY,
38 P_LAST_UPDATE_DATE,
39 P_LAST_UPDATED_BY,
40 P_LAST_UPDATE_LOGIN,
41 P_OBJECT_VERSION_NUMBER,
42 P_SECURITY_GROUP_ID,
43 P_SEARCH_RULE_ID,
44 P_SEARCH_RULE_CODE,
45 P_SEARCH_SEQUENCE
46 ) RETURNING rowid INTO X_ROWID;
47
48 END INSERT_ROW;
49
50 PROCEDURE LOCK_ROW (
51 P_SEARCH_RULE_ID in NUMBER,
52 P_ACTIVE_FLAG in VARCHAR2,
53 P_OBJECT_VERSION_NUMBER in NUMBER,
54 P_SECURITY_GROUP_ID in NUMBER,
55 P_SEARCH_RULE_CODE in VARCHAR2,
56 P_SEARCH_SEQUENCE in NUMBER
57 ) is
58 cursor c1 is select
59 ACTIVE_FLAG,
60 OBJECT_VERSION_NUMBER,
61 SECURITY_GROUP_ID,
62 SEARCH_RULE_CODE,
63 SEARCH_SEQUENCE,
64 SEARCH_RULE_ID
65 from CS_SR_TSK_TMPL_SEQ_RULES
66 where SEARCH_RULE_ID = P_SEARCH_RULE_ID
67 and OBJECT_VERSION_NUMBER = P_OBJECT_VERSION_NUMBER
68 for update of SEARCH_RULE_ID nowait;
69 begin
70 for tlinfo in c1 loop
71 if ( (tlinfo.SEARCH_RULE_ID = P_SEARCH_RULE_ID)
72 AND ((tlinfo.ACTIVE_FLAG = P_ACTIVE_FLAG)
73 OR ((tlinfo.ACTIVE_FLAG is null) AND (P_ACTIVE_FLAG is null)))
74 AND (tlinfo.OBJECT_VERSION_NUMBER = P_OBJECT_VERSION_NUMBER)
75 AND ((tlinfo.SECURITY_GROUP_ID = P_SECURITY_GROUP_ID)
76 OR ((tlinfo.SECURITY_GROUP_ID is null) AND (P_SECURITY_GROUP_ID is null)))
77 AND (tlinfo.SEARCH_RULE_CODE = P_SEARCH_RULE_CODE)
78 AND ((tlinfo.SEARCH_SEQUENCE = P_SEARCH_SEQUENCE)
79 OR ((tlinfo.SEARCH_SEQUENCE is null) AND (P_SEARCH_SEQUENCE is null)))
80 ) then
81 null;
82 else
83 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
84 app_exception.raise_exception;
85 end if;
86 end loop;
87 return;
88 end LOCK_ROW;
89
90 procedure UPDATE_ROW (
91 P_SEARCH_RULE_ID in NUMBER,
92 P_ACTIVE_FLAG in VARCHAR2,
93 P_OBJECT_VERSION_NUMBER in NUMBER,
94 P_SECURITY_GROUP_ID in NUMBER,
95 P_SEARCH_RULE_CODE in VARCHAR2,
96 P_SEARCH_SEQUENCE in NUMBER,
97 P_LAST_UPDATE_DATE in DATE,
98 P_LAST_UPDATED_BY in NUMBER,
99 P_LAST_UPDATE_LOGIN in NUMBER
100 ) is
101 begin
102 update CS_SR_TSK_TMPL_SEQ_RULES set
103 ACTIVE_FLAG = P_ACTIVE_FLAG,
104 OBJECT_VERSION_NUMBER = P_OBJECT_VERSION_NUMBER,
105 SECURITY_GROUP_ID = P_SECURITY_GROUP_ID,
106 SEARCH_RULE_CODE = P_SEARCH_RULE_CODE,
107 SEARCH_SEQUENCE = P_SEARCH_SEQUENCE,
108 SEARCH_RULE_ID = P_SEARCH_RULE_ID,
109 LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
110 LAST_UPDATED_BY = P_LAST_UPDATED_BY,
111 LAST_UPDATE_LOGIN = P_LAST_UPDATE_LOGIN
112 where SEARCH_RULE_ID = P_SEARCH_RULE_ID ;
113
114 if (sql%notfound) then
115 raise no_data_found;
116 end if;
117 end UPDATE_ROW;
118
119 procedure DELETE_ROW (
120 P_SEARCH_RULE_ID in NUMBER) is
121 begin
122 delete from CS_SR_TSK_TMPL_SEQ_RULES
123 where SEARCH_RULE_ID = P_SEARCH_RULE_ID;
124
125 if (sql%notfound) then
126 raise no_data_found;
127 end if;
128
129 end DELETE_ROW;
130
131
132 procedure LOAD_ROW (
133 X_ROWID IN out NOCOPY VARCHAR2,
134 P_SEARCH_RULE_ID IN NUMBER,
135 P_ACTIVE_FLAG IN VARCHAR2,
136 P_OBJECT_VERSION_NUMBER IN NUMBER,
137 P_SECURITY_GROUP_ID IN NUMBER,
138 P_SEARCH_RULE_CODE IN VARCHAR2,
139 P_SEARCH_SEQUENCE IN NUMBER,
140 P_CREATION_DATE IN DATE,
141 P_CREATED_BY IN NUMBER,
142 P_LAST_UPDATE_DATE IN DATE,
143 P_LAST_UPDATED_BY IN NUMBER,
144 P_LAST_UPDATE_LOGIN IN NUMBER,
145 P_OWNER IN VARCHAR2
146 ) IS
147
148 l_user_id NUMBER := 0 ;
149 l_row_id VARCHAR2(4000) ;
150
151 BEGIN
152
153 IF (p_owner = 'SEED') THEN
154 l_user_id := 1 ;
155 END IF ;
156
157
158 UPDATE_ROW (
159 P_SEARCH_RULE_ID => P_SEARCH_RULE_ID ,
160 P_ACTIVE_FLAG => P_ACTIVE_FLAG ,
161 P_OBJECT_VERSION_NUMBER => P_OBJECT_VERSION_NUMBER ,
162 P_SECURITY_GROUP_ID => P_SECURITY_GROUP_ID ,
163 P_SEARCH_RULE_CODE => P_SEARCH_RULE_CODE ,
164 P_SEARCH_SEQUENCE => P_SEARCH_SEQUENCE ,
165 P_LAST_UPDATE_DATE => NVL(P_LAST_UPDATE_DATE,sysdate) ,
166 P_LAST_UPDATED_BY => l_user_id ,
167 P_LAST_UPDATE_LOGIN => 0
168 );
169
170 EXCEPTION
171 WHEN no_data_found THEN
172 INSERT_ROW
173 (
174 X_ROWID => l_ROW_ID ,
175 P_SEARCH_RULE_ID => P_SEARCH_RULE_ID ,
176 P_ACTIVE_FLAG => P_ACTIVE_FLAG ,
177 P_OBJECT_VERSION_NUMBER => P_OBJECT_VERSION_NUMBER ,
178 P_SECURITY_GROUP_ID => P_SECURITY_GROUP_ID ,
179 P_SEARCH_RULE_CODE => P_SEARCH_RULE_CODE ,
180 P_SEARCH_SEQUENCE => P_SEARCH_SEQUENCE ,
181 P_CREATION_DATE => NVL(P_CREATION_DATE,sysdate),
182 P_CREATED_BY => l_user_id ,
183 P_LAST_UPDATE_DATE => NVL(P_LAST_UPDATE_DATE,sysdate) ,
184 P_LAST_UPDATED_BY => l_user_id ,
185 P_LAST_UPDATE_LOGIN => l_user_id
186 ) ;
187
188 END LOAD_ROW ;
189
190 END CS_SR_TSK_TMPL_SEQ_RULES_PKG;