[Home] [Help]
PACKAGE BODY: APPS.FA_RX_PARAMETERS_PKG
Source
1 PACKAGE BODY FA_RX_PARAMETERS_PKG as
2 /* $Header: faxrxpmb.pls 120.4 2005/07/28 18:27:32 tkawamur ship $ */
3
4 procedure insert_row (X_rowid in out nocopy varchar2,
5 X_report_id number,
6 X_lov_id number,
7 X_name varchar2,
8 X_required varchar2,
9 X_max_length number,
10 X_datatype varchar2,
11 X_relop varchar2,
12 X_last_update_date date,
13 X_last_updated_by number,
14 X_created_by number,
15 X_creation_date date,
16 X_last_update_login number,
17 X_parameter_counter number,
18 X_column_name varchar2,
19 X_calling_fn varchar2) is
20
21 cursor c is select rowid from fa_rx_rep_parameters
22 where report_id = X_report_id and name = X_name;
23
24 begin
25
26
27 insert into fa_rx_rep_parameters (
28 report_id, lov_id, name, required,
29 max_length, datatype, relational_op, last_update_date,
30 last_updated_by, created_by, creation_date,
31 last_update_login, parameter_counter, column_name)
32 values ( X_report_id, X_lov_id, X_name, X_required,
33 X_max_length, X_datatype, X_relop, X_last_update_date,
34 X_last_updated_by, X_created_by, X_creation_date,
35 X_last_update_login, X_parameter_counter, X_column_name);
36
37 open c;
38 fetch c into X_rowid;
39 if (c%notfound) then
40 close c;
41 raise no_data_found;
42 end if;
43 close c;
44
45 exception when others then
46 FA_STANDARD_PKG.RAISE_ERROR
47 (Called_Fn => 'FA_RX_PARAMETERS_PKG.Insert_Row',
48 Calling_Fn => X_Calling_Fn);
49
50 end insert_row;
51
52 procedure lock_row (X_rowid in out nocopy varchar2,
53 X_report_id number,
54 X_lov_id number,
55 X_parameter_counter number,
56 X_column_name varchar2,
57 X_name varchar2,
58 X_required varchar2,
59 X_max_length number,
60 X_datatype varchar2,
61 X_relop varchar2,
62 X_calling_fn varchar2) is
63
64 cursor c_reports is
65 SELECT *
66 FROM FA_RX_REP_parameters
67 WHERE ROWID = X_ROWID
68 FOR UPDATE OF REPORT_ID, name NOWAIT;
69 Recinfo c_reports%rowtype;
70
71 begin
72
73 Open c_reports;
74 Fetch c_reports into recinfo;
75 IF (c_reports%notfound) then
76 close c_reports;
77 fnd_message.set_name('FND','FORM_RECORD_DELETED');
78 app_exception.raise_exception;
79
80 End if;
81 Close c_reports;
82
83 if (
84 (recinfo.report_id = X_report_id)
85 AND (nvl(recinfo.lov_id,-9999) = nvl(X_lov_id,-9999))
86 AND (recinfo.parameter_counter = X_parameter_counter)
87 AND (nvl(recinfo.column_name,'X') = nvl(X_column_name,'X'))
88 AND (nvl(recinfo.name,'X') = nvl(X_name,'X'))
89 AND (nvl(recinfo.relational_op,'X') = nvl(X_relop,'X'))
90 AND (recinfo.required = X_required)
91 AND (recinfo.max_length = X_max_length)
92 AND (recinfo.datatype = X_datatype)) then
93 return;
94 else
95 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
96 APP_EXCEPTION.Raise_Exception;
97 end if;
98
99 end lock_row;
100
101
102 procedure update_row (X_rowid in out nocopy varchar2,
103 X_report_id number,
104 X_lov_id number,
105 X_name varchar2,
106 X_required varchar2,
107 X_max_length number,
108 X_datatype varchar2,
109 X_relop varchar2,
110 X_last_update_date date,
111 X_last_updated_by number,
112 X_last_update_login number,
113 X_parameter_counter number,
114 X_column_name varchar2,
115 X_calling_fn varchar2) is
116
117 begin
118
119 update fa_rx_rep_parameters set
120 report_id = X_report_id,
121 lov_id = X_lov_id,
122 name = X_name,
123 required = X_required,
124 max_length = X_max_length,
125 datatype = X_datatype,
126 relational_op = X_relop,
127 last_update_date = X_last_update_date,
128 last_updated_by = X_last_updated_by,
129 last_update_login = X_last_update_login,
130 parameter_counter = X_parameter_counter,
131 column_name = X_column_name
132 where rowid = X_rowid;
133
134 if (SQL%NOTFOUND) then
135 raise no_data_found;
136 end if;
137
138 exception WHEN Others THEN
139 FA_STANDARD_PKG.RAISE_ERROR
140 (Called_Fn => 'FA_RX_PARAMETERS_PKG.Update_Row',
141 Calling_Fn => X_Calling_Fn);
142
143
144 end update_row;
145
146 procedure delete_row (X_rowid varchar2,
147 X_report_id number,
148 X_name varchar2,
149 X_calling_fn varchar2) is
150 begin
151
152 if x_rowid is not null then
153 delete from fa_rx_rep_parameters
154 where rowid = X_rowid;
155 else -- error
156 null;
157 end if;
158
159 if (SQL%NOTFOUND) then
160 Raise NO_DATA_FOUND;
161 end if;
162 EXCEPTION
163 WHEN Others THEN
164 FA_STANDARD_PKG.RAISE_ERROR
165 (Called_Fn => 'FA_RX_PARAMETERS_PKG.Delete_Row',
166 Calling_Fn => X_Calling_Fn);
167 end delete_row;
168
169 end FA_RX_PARAMETERS_PKG;