[Home] [Help]
PACKAGE BODY: APPS.JTF_TASK_CUSTOM_COLORS_PKG
Source
1 package body JTF_TASK_CUSTOM_COLORS_PKG as
2 /* $Header: jtftkclb.pls 115.2 2002/12/04 02:27:56 sachoudh ship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out nocopy VARCHAR2,
5 X_RULE_ID in NUMBER,
6 X_COLOR_DETERMINATION_PRIORITY in NUMBER,
7 X_TYPE_ID in NUMBER,
8 X_PRIORITY_ID in NUMBER,
9 X_ASSIGNMENT_STATUS_ID in NUMBER,
10 X_ESCALATED_TASK in VARCHAR2,
11 X_ACTIVE_FLAG in VARCHAR2,
12 X_BACKGROUND_COL_DEC in NUMBER,
13 X_BACKGROUND_COL_RGB in VARCHAR2,
14 X_CREATION_DATE in DATE,
15 X_CREATED_BY in NUMBER,
16 X_LAST_UPDATE_DATE in DATE,
17 X_LAST_UPDATED_BY in NUMBER,
18 X_LAST_UPDATE_LOGIN in NUMBER
19 ) is
20 cursor C is select ROWID from JTF_TASK_CUSTOM_COLORS
21 where RULE_ID = X_RULE_ID
22 ;
23 begin
24 insert into JTF_TASK_CUSTOM_COLORS (
25 RULE_ID,
26 OBJECT_VERSION_NUMBER,
27 COLOR_DETERMINATION_PRIORITY,
28 TYPE_ID,
29 PRIORITY_ID,
30 ASSIGNMENT_STATUS_ID,
31 ESCALATED_TASK,
32 BACKGROUND_COL_DEC,
33 BACKGROUND_COL_RGB,
34 ACTIVE_FLAG,
35 CREATED_BY,
36 CREATION_DATE,
37 LAST_UPDATED_BY,
38 LAST_UPDATE_DATE,
39 LAST_UPDATE_LOGIN
40 ) values (
41 X_RULE_ID,
42 1,
43 X_COLOR_DETERMINATION_PRIORITY,
44 X_TYPE_ID,
45 X_PRIORITY_ID,
46 X_ASSIGNMENT_STATUS_ID,
47 X_ESCALATED_TASK,
48 X_BACKGROUND_COL_DEC,
49 X_BACKGROUND_COL_RGB,
50 X_ACTIVE_FLAG,
51 X_CREATED_BY,
52 X_CREATION_DATE,
53 X_LAST_UPDATED_BY,
54 X_LAST_UPDATE_DATE,
55 X_LAST_UPDATE_LOGIN
56 );
57
58 open c;
59 fetch c into X_ROWID;
60 if (c%notfound) then
61 close c;
62 raise no_data_found;
63 end if;
64 close c;
65
66 end INSERT_ROW;
67
68 procedure LOCK_ROW (
69 X_RULE_ID in NUMBER,
70 X_OBJECT_VERSION_NUMBER in NUMBER
71 ) is
72 cursor c1 is select
73 OBJECT_VERSION_NUMBER
74 from JTF_TASK_CUSTOM_COLORS
75 where RULE_ID = X_RULE_ID
76 for update of RULE_ID nowait;
77
78 recinfo c1%rowtype;
79
80 e_resource_busy exception;
81 pragma exception_init(e_resource_busy, -54);
82
83 begin
84 open c1;
85 fetch c1 into recinfo;
86
87 if (c1%notfound) then
88 close c1;
89 fnd_message.set_name('JTF', 'JTF_API_RECORD_NOT_FOUND');
90 app_exception.raise_exception;
91 end if;
92 close c1;
93
94 IF (recinfo.object_version_number <> x_object_version_number)
95 THEN
96 fnd_message.set_name ('JTF', 'JTF_API_RECORD_NOT_FOUND');
97 fnd_msg_pub.add;
98 app_exception.raise_exception;
99 END IF;
100
101 exception
102 when e_resource_busy then
103 fnd_message.set_name('FND', 'FND_LOCK_RECORD_ERROR');
104 fnd_msg_pub.add;
105 app_exception.raise_exception;
106 end LOCK_ROW;
107
108 procedure UPDATE_ROW (
109 X_RULE_ID in NUMBER,
110 X_OBJECT_VERSION_NUMBER in NUMBER,
111 X_COLOR_DETERMINATION_PRIORITY in NUMBER,
112 X_TYPE_ID in NUMBER,
113 X_PRIORITY_ID in NUMBER,
114 X_ASSIGNMENT_STATUS_ID in NUMBER,
115 X_ESCALATED_TASK in VARCHAR2,
116 X_ACTIVE_FLAG in VARCHAR2,
117 X_BACKGROUND_COL_DEC in NUMBER,
118 X_BACKGROUND_COL_RGB in VARCHAR2,
119 X_LAST_UPDATE_DATE in DATE,
120 X_LAST_UPDATED_BY in NUMBER,
121 X_LAST_UPDATE_LOGIN in NUMBER
122 ) is
123 begin
124 update JTF_TASK_CUSTOM_COLORS set
125 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
126 COLOR_DETERMINATION_PRIORITY = X_COLOR_DETERMINATION_PRIORITY,
127 TYPE_ID = X_TYPE_ID,
128 PRIORITY_ID = X_PRIORITY_ID,
129 ASSIGNMENT_STATUS_ID = X_ASSIGNMENT_STATUS_ID,
130 ESCALATED_TASK = X_ESCALATED_TASK,
131 ACTIVE_FLAG = X_ACTIVE_FLAG,
132 BACKGROUND_COL_DEC = X_BACKGROUND_COL_DEC,
133 BACKGROUND_COL_RGB = X_BACKGROUND_COL_RGB,
134 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
135 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
136 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
137 where RULE_ID = X_RULE_ID;
138
139 if (sql%notfound) then
140 raise no_data_found;
141 end if;
142 end UPDATE_ROW;
143
144 procedure DELETE_ROW (
145 X_RULE_ID in NUMBER
146 ) is
147 begin
148 delete from JTF_TASK_CUSTOM_COLORS
149 where RULE_ID = X_RULE_ID;
150
151 if (sql%notfound) then
152 raise no_data_found;
153 end if;
154
155 end DELETE_ROW;
156
157 end JTF_TASK_CUSTOM_COLORS_PKG;