[Home] [Help]
PACKAGE BODY: APPS.OZF_NA_RULE_LINE_PKG
Source
1 PACKAGE BODY OZF_Na_Rule_Line_PKG as
2 /* $Header: ozftdnlb.pls 120.0 2005/05/31 23:40:31 appldev noship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- OZF_Na_Rule_Line_PKG
7 -- Purpose
8 --
9 -- History
10 --
11 -- NOTE
12 --
13 -- This Api is generated with Latest version of
14 -- Rosetta, where g_miss indicates NULL and
15 -- NULL indicates missing value. Rosetta Version 1.55
16 -- End of Comments
17 -- ===============================================================
18
19
20 G_PKG_NAME CONSTANT VARCHAR2(30):= 'OZF_Na_Rule_Line_PKG';
21 G_FILE_NAME CONSTANT VARCHAR2(12) := 'amstam.b.pls';
22
23
24
25
26 -- ========================================================
27 --
28 -- NAME
29 -- Insert_Row
30 --
31 -- PURPOSE
32 --
33 -- NOTES
34 --
35 -- HISTORY
36 --
37 -- ========================================================
38 PROCEDURE Insert_Row(
39 px_na_rule_line_id IN OUT NOCOPY NUMBER,
40 p_na_rule_header_id NUMBER,
41 p_na_deduction_rule_id NUMBER,
42 p_active_flag VARCHAR2,
43 px_object_version_number IN OUT NOCOPY NUMBER,
44 p_creation_date DATE,
45 p_created_by NUMBER,
46 p_last_update_date DATE,
47 p_last_updated_by NUMBER,
48 p_last_update_login NUMBER)
49
50 IS
51 x_rowid VARCHAR2(30);
52
53
54 BEGIN
55
56
57 px_object_version_number := nvl(px_object_version_number, 1);
58
59
60 INSERT INTO ozf_na_rule_lines(
61 na_rule_line_id,
62 na_rule_header_id,
63 na_deduction_rule_id,
64 active_flag,
65 object_version_number,
66 creation_date,
67 created_by,
68 last_update_date,
69 last_updated_by,
70 last_update_login
71 ) VALUES (
72 DECODE( px_na_rule_line_id, FND_API.G_MISS_NUM, NULL, px_na_rule_line_id),
73 DECODE( p_na_rule_header_id, FND_API.G_MISS_NUM, NULL, p_na_rule_header_id),
74 DECODE( p_na_deduction_rule_id, FND_API.G_MISS_NUM, NULL, p_na_deduction_rule_id),
75 DECODE( p_active_flag, FND_API.g_miss_char, NULL, p_active_flag),
76 DECODE( px_object_version_number, FND_API.G_MISS_NUM, 1, px_object_version_number),
77 DECODE( p_creation_date, FND_API.G_MISS_DATE, SYSDATE, p_creation_date),
78 DECODE( p_created_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID, p_created_by),
79 DECODE( p_last_update_date, FND_API.G_MISS_DATE, SYSDATE, p_last_update_date),
80 DECODE( p_last_updated_by, FND_API.G_MISS_NUM, FND_GLOBAL.USER_ID, p_last_updated_by),
81 DECODE( p_last_update_login, FND_API.G_MISS_NUM, FND_GLOBAL.CONC_LOGIN_ID, p_last_update_login));
82
83 END Insert_Row;
84
85
86
87
88 -- ========================================================
89 --
90 -- NAME
91 -- Update_Row
92 --
93 -- PURPOSE
94 --
95 -- NOTES
96 --
97 -- HISTORY
98 --
99 -- ========================================================
100 PROCEDURE Update_Row(
101 p_na_rule_line_id NUMBER,
102 p_na_rule_header_id NUMBER,
103 p_na_deduction_rule_id NUMBER,
104 p_active_flag VARCHAR2,
105 p_object_version_number IN NUMBER,
106 p_last_update_date DATE,
107 p_last_updated_by NUMBER,
108 p_last_update_login NUMBER)
109
110 IS
111 BEGIN
112 Update ozf_na_rule_lines
113 SET
114 na_rule_line_id = DECODE( p_na_rule_line_id, null, na_rule_line_id, FND_API.G_MISS_NUM, null, p_na_rule_line_id),
115 na_rule_header_id = DECODE( p_na_rule_header_id, null, na_rule_header_id, FND_API.G_MISS_NUM, null, p_na_rule_header_id),
116 na_deduction_rule_id = DECODE( p_na_deduction_rule_id, null, na_deduction_rule_id, FND_API.G_MISS_NUM, null, p_na_deduction_rule_id),
117 active_flag = DECODE( p_active_flag, null, active_flag, FND_API.g_miss_char, null, p_active_flag),
118 object_version_number = nvl(p_object_version_number,0) + 1 ,
119 last_update_date = DECODE( p_last_update_date, to_date(NULL), last_update_date, FND_API.G_MISS_DATE, to_date(NULL), p_last_update_date),
120 last_updated_by = DECODE( p_last_updated_by, null, last_updated_by, FND_API.G_MISS_NUM, null, p_last_updated_by),
121 last_update_login = DECODE( p_last_update_login, null, last_update_login, FND_API.G_MISS_NUM, null, p_last_update_login)
122 WHERE na_rule_line_id = p_na_rule_line_id
123 AND object_version_number = p_object_version_number;
124
125
126 IF (SQL%NOTFOUND) THEN
127 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
128 END IF;
129
130
131 END Update_Row;
132
133
134
135
136 -- ========================================================
137 --
138 -- NAME
139 -- Delete_Row
140 --
141 -- PURPOSE
142 --
143 -- NOTES
144 --
145 -- HISTORY
146 --
147 -- ========================================================
148 PROCEDURE Delete_Row(
149 p_na_rule_line_id NUMBER,
150 p_object_version_number NUMBER)
151 IS
152 BEGIN
153 DELETE FROM ozf_na_rule_lines
154 WHERE na_rule_line_id = p_na_rule_line_id
155 AND object_version_number = p_object_version_number;
156 If (SQL%NOTFOUND) then
157 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
158 End If;
159 END Delete_Row ;
160
161
162
163
164
165 -- ========================================================
166 --
167 -- NAME
168 -- Lock_Row
169 --
170 -- PURPOSE
171 --
172 -- NOTES
173 --
174 -- HISTORY
175 --
176 -- ========================================================
177 PROCEDURE Lock_Row(
178 p_na_rule_line_id NUMBER,
179 p_object_version_number NUMBER)
180 IS
181 CURSOR C IS
182 SELECT *
183 FROM ozf_na_rule_lines
184 WHERE na_rule_line_id = p_na_rule_line_id
185 AND object_version_number = p_object_version_number
186 FOR UPDATE OF na_rule_line_id NOWAIT;
187 Recinfo C%ROWTYPE;
188 BEGIN
189
190 OPEN c;
191 FETCH c INTO Recinfo;
192 IF (c%NOTFOUND) THEN
193 CLOSE c;
194 AMS_Utility_PVT.error_message ('AMS_API_RECORD_NOT_FOUND');
195 RAISE FND_API.g_exc_error;
196 END IF;
197 CLOSE c;
198 END Lock_Row;
199
200
201
202 END OZF_Na_Rule_Line_PKG;