[Home] [Help]
PACKAGE BODY: APPS.PA_CI_IMPACTS_PKG
Source
1 package body PA_CI_IMPACTS_PKG as
2 /* $Header: PACIIPTB.pls 120.0 2005/06/03 13:37:12 appldev noship $ */
3 procedure INSERT_ROW (
4 X_ROWID out NOCOPY VARCHAR2,
5 X_CI_IMPACT_ID out NOCOPY NUMBER,
6
7 x_ci_id IN NUMBER,
8 x_impact_type_code IN varchar2,
9 x_status_code IN VARCHAR2,
10 x_description IN VARCHAR2,
11 x_implementation_date IN DATE,
12 x_implemented_by IN NUMBER,
13 x_implementation_comment IN VARCHAR2,
14 x_impacted_task_id IN number,
15
16 X_CREATION_DATE in DATE,
17 X_CREATED_BY in NUMBER,
18 X_LAST_UPDATE_DATE in DATE,
19 X_LAST_UPDATED_BY in NUMBER,
20 X_LAST_UPDATE_LOGIN in NUMBER
21 ) is
22 cursor C is select ROWID from PA_CI_IMPACTS
23 where CI_IMPACT_ID = X_CI_IMPACT_ID
24 ;
25 begin
26 SELECT pa_ci_impacts_s.NEXTVAL
27 INTO X_CI_IMPACT_ID
28 FROM sys.dual;
29
30 insert into PA_CI_IMPACTS (
31 ci_impact_id ,
32 CI_ID ,
33 impact_type_code ,
34 status_code ,
35 description ,
36 implementation_date ,
37 implemented_by ,
38 implementation_comment ,
39 impacted_task_id,
40 CREATION_DATE ,
41 CREATED_BY ,
42 LAST_UPDATE_DATE ,
43 LAST_UPDATED_BY ,
44 last_update_login,
45 record_version_number ) values (
46 x_ci_impact_id,
47 x_ci_id ,
48 x_impact_type_code ,
49 x_status_code ,
50 x_description ,
51 x_implementation_date ,
52 x_implemented_by ,
53 x_implementation_comment ,
54 x_impacted_task_id,
55 nvl(X_CREATION_DATE, sysdate) ,
56 nvl(X_CREATED_BY, fnd_global.user_id) ,
57 nvl(X_LAST_UPDATE_DATE, sysdate),
58 nvl(X_LAST_UPDATED_BY, fnd_global.user_id),
59 nvl(X_LAST_UPDATE_LOGIN, fnd_global.login_id),
60 1
61 );
62
63 open c;
64 fetch c into X_ROWID;
65 if (c%notfound) then
66 close c;
67 raise no_data_found;
68 end if;
69 close c;
70
71 end INSERT_ROW;
72
73 /*
74 procedure LOCK_ROW (
75 X_CI_IMPACT_ID in NUMBER,
76 x_record_version_number) is
77 cursor c is select
78 impact_type_code,
79 ci_id
80 from PA_CI_IMPACTS
81 where ci_impact_id
82 = x_ci_impact_id
83 AND record_version_number = x_record_version_number
84 for update of CI_impact_ID nowait;
85 recinfo c%rowtype;
86
87 begin
88 open c;
89 fetch c into recinfo;
90 if (c%notfound) then
91 close c;
92 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
93 app_exception.raise_exception;
94 end if;
95 close c;
96
97
98 return;
99 end LOCK_ROW;
100 */
101
102 procedure DELETE_ROW (
103 X_CI_IMPACT_ID in NUMBER,
104 X_record_version_number in NUMBER
105 ) is
106 begin
107 delete from PA_CI_IMPACTS
108 where CI_IMPACT_ID = x_ci_impact_id
109 AND record_version_number =x_record_version_number;
110
111 -- if (sql%notfound) then
112 -- raise no_data_found;
113 -- end if;
114 end DELETE_ROW;
115
116
117 procedure UPDATE_ROW (
118 X_CI_IMPACT_ID NUMBER,
119
120 x_ci_id IN NUMBER,
121 x_impact_type_code IN varchar2,
122 x_status_code IN VARCHAR2,
123 x_description IN VARCHAR2,
124 x_implementation_date IN DATE,
125 x_implemented_by IN NUMBER,
126 x_implementation_comment IN VARCHAR2,
127 x_impacted_task_id IN NUMBER,
128 X_LAST_UPDATE_DATE in DATE,
129 X_LAST_UPDATED_BY in NUMBER,
130 X_LAST_UPDATE_LOGIN in NUMBER,
131 x_record_version_number IN number
132 ) is
133 begin
134
135
136 update PA_CI_IMPACTS SET
137 CI_ID = Nvl(x_ci_id, ci_id),
138 impact_type_code = Nvl(x_impact_type_code,impact_type_code),
139 status_code = Nvl(x_status_code,status_code),
140 description = x_description,
141 implementation_date = x_implementation_date,
142 implemented_by = x_implemented_by,
143 implementation_comment = x_implementation_comment,
144 impacted_task_id = x_impacted_task_id,
145 LAST_UPDATE_DATE = sysdate,
146 LAST_UPDATED_BY = fnd_global.user_id,
147 last_update_login = fnd_global.login_id,
148 record_version_number = record_version_number +1
149 WHERE ci_impact_id = x_ci_impact_id
150 AND record_version_number = Nvl(x_record_version_number, record_version_number);
151 if (sql%notfound) then
152 raise no_data_found;
153 end if;
154
155 /*
156 description = Decode(x_description, fnd_api.g_miss_char,
157 NULL, Nvl(x_description,description)),
158 implementation_date = Decode(x_implementation_date, fnd_api.g_miss_date,
159 NULL, x_implementation_date),
160 implemented_by = Decode(x_implemented_by, fnd_api.g_miss_num,
161 NULL, x_implemented_by),
162 implementation_comment = Decode(x_implementation_comment, fnd_api.g_miss_char,
163 NULL, nvl(x_implementation_comment,implementation_comment)),
164 impacted_task_id = Decode(x_impacted_task_id, fnd_api.g_miss_num,
165 NULL, x_impacted_task_id),
166 */
167
168 end UPDATE_ROW;
169
170 end PA_CI_IMPACTS_PKG;