1 package body CSD_RT_TRAN_RESPS_PKG as
2 /* $Header: csdtrtrb.pls 120.1 2005/07/29 16:36:09 vkjain noship $ */
3
4 procedure INSERT_ROW (
5 -- P_ROWID in out nocopy VARCHAR2,
6 PX_RT_TRAN_RESP_ID in out nocopy NUMBER,
7 P_RT_TRAN_ID in NUMBER,
8 P_RESPONSIBILITY_ID in NUMBER,
9 P_OBJECT_VERSION_NUMBER in NUMBER,
10 P_CREATION_DATE in DATE,
11 P_CREATED_BY in NUMBER,
12 P_LAST_UPDATE_DATE in DATE,
13 P_LAST_UPDATED_BY in NUMBER,
14 P_LAST_UPDATE_LOGIN in NUMBER
15 ) is
16
17 P_ROWID ROWID;
18
19 cursor C is select ROWID from CSD_RT_TRAN_RESPS
20 where RT_TRAN_RESP_ID = PX_RT_TRAN_RESP_ID
21 ;
22
23 begin
24
25 select CSD_RT_TRAN_RESPS_S1.nextval
26 into PX_RT_TRAN_RESP_ID
27 from dual;
28
29 insert into CSD_RT_TRAN_RESPS (
30 RT_TRAN_RESP_ID,
31 RT_TRAN_ID,
32 RESPONSIBILITY_ID,
33 OBJECT_VERSION_NUMBER,
34 CREATION_DATE,
35 CREATED_BY,
36 LAST_UPDATE_DATE,
37 LAST_UPDATED_BY,
38 LAST_UPDATE_LOGIN
39 ) values (
40 PX_RT_TRAN_RESP_ID,
41 P_RT_TRAN_ID,
42 P_RESPONSIBILITY_ID,
43 P_OBJECT_VERSION_NUMBER,
44 P_CREATION_DATE,
45 P_CREATED_BY,
46 P_LAST_UPDATE_DATE,
47 P_LAST_UPDATED_BY,
48 P_LAST_UPDATE_LOGIN
49 );
50
51 open c;
52 fetch c into P_ROWID;
53 if (c%notfound) then
54 close c;
55 raise no_data_found;
56 end if;
57 close c;
58
59 end INSERT_ROW;
60
61 procedure LOCK_ROW (
62 P_RT_TRAN_RESP_ID in NUMBER,
63 P_OBJECT_VERSION_NUMBER in NUMBER
64 ) is
65 cursor c is select
66 OBJECT_VERSION_NUMBER
67 from CSD_RT_TRAN_RESPS
68 where RT_TRAN_RESP_ID = P_RT_TRAN_RESP_ID
69 for update of RT_TRAN_RESP_ID nowait;
70 recinfo c%rowtype;
71
72 begin
73
74 open c;
75 fetch c into recinfo;
76 if (c%notfound) then
77 close c;
78 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
79 app_exception.raise_exception;
80 end if;
81 close c;
82
83 if (recinfo.OBJECT_VERSION_NUMBER = P_OBJECT_VERSION_NUMBER) then
84 null;
85 else
86 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
87 app_exception.raise_exception;
88 end if;
89
90 return;
91 end LOCK_ROW;
92
93 procedure UPDATE_ROW (
94 P_RT_TRAN_RESP_ID in NUMBER,
95 P_RT_TRAN_ID in NUMBER,
96 P_RESPONSIBILITY_ID in NUMBER,
97 P_OBJECT_VERSION_NUMBER in NUMBER,
98 P_LAST_UPDATE_DATE in DATE,
99 P_LAST_UPDATED_BY in NUMBER,
100 P_LAST_UPDATE_LOGIN in NUMBER
101 ) is
102 begin
103 update CSD_RT_TRAN_RESPS set
104 RT_TRAN_ID = P_RT_TRAN_ID,
105 RESPONSIBILITY_ID = P_RESPONSIBILITY_ID,
106 OBJECT_VERSION_NUMBER = P_OBJECT_VERSION_NUMBER + 1,
107 LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
108 LAST_UPDATED_BY = P_LAST_UPDATED_BY,
109 LAST_UPDATE_LOGIN = P_LAST_UPDATE_LOGIN
110 where RT_TRAN_RESP_ID = P_RT_TRAN_RESP_ID AND
111 OBJECT_VERSION_NUMBER = P_OBJECT_VERSION_NUMBER;
112
113 if (sql%notfound) then
114 raise no_data_found;
115 end if;
116
117 if (sql%notfound) then
118 raise no_data_found;
119 end if;
120 end UPDATE_ROW;
121
122 procedure DELETE_ROW (
123 P_RT_TRAN_RESP_ID in NUMBER
124 ) is
125 begin
126
127 delete from CSD_RT_TRAN_RESPS
128 where RT_TRAN_RESP_ID = P_RT_TRAN_RESP_ID;
129
130 if (sql%notfound) then
131 raise no_data_found;
132 end if;
133 end DELETE_ROW;
134
135 end CSD_RT_TRAN_RESPS_PKG;