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