[Home] [Help]
PACKAGE BODY: APPS.CSD_TO_FORM_REPAIR_HISTORY
Source
1 PACKAGE BODY CSD_TO_FORM_REPAIR_HISTORY AS
2 /* $Header: csdgdrhb.pls 115.9 2002/11/12 21:30:58 sangigup ship $*/
3 -- Start of Comments
4 -- Package name : CSD_TO_FORM_REPAIR_HISTORY
5 -- Purpose : Takes all parameters from the FORM and construct those parameters into a record for calling
6 -- the prviate API in the CSD_REPAIR_HISTORY_PVT package.
7 -- History : 11/17/1999, Created by Raghavan
8 -- NOTE :
9 -- End of Comments
10
11 g_debug NUMBER := csd_gen_utility_pvt.g_debug_level;
12
13 PROCEDURE Validate_And_Write (
14 P_Api_Version_Number IN NUMBER,
15 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
16 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
17 p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
18 p_action_code IN NUMBER, /* 0 = insert, 1 = update, 2 = delete */
19 px_REPAIR_HISTORY_ID OUT NOCOPY NUMBER ,
20 p_OBJECT_VERSION_NUMBER in NUMBER := FND_API.G_MISS_NUM,
21 p_REQUEST_ID in NUMBER := FND_API.G_MISS_NUM,
22 p_PROGRAM_ID in NUMBER := FND_API.G_MISS_NUM,
23 p_PROGRAM_APPLICATION_ID in NUMBER := FND_API.G_MISS_NUM,
24 p_PROGRAM_UPDATE_DATE in DATE := FND_API.G_MISS_DATE,
25 p_CREATED_BY in NUMBER := FND_API.G_MISS_NUM,
26 p_CREATION_DATE in DATE := FND_API.G_MISS_DATE,
27 p_LAST_UPDATED_BY in NUMBER := FND_API.G_MISS_NUM,
28 p_LAST_UPDATE_DATE in DATE := FND_API.G_MISS_DATE,
29 p_REPAIR_LINE_ID in NUMBER := FND_API.G_MISS_NUM,
30 p_EVENT_CODE in VARCHAR2,
31 p_EVENT_DATE in DATE,
32 p_QUANTITY in NUMBER := FND_API.G_MISS_NUM,
33 p_PARAMN1 in NUMBER := FND_API.G_MISS_NUM,
34 p_PARAMN2 in NUMBER := FND_API.G_MISS_NUM,
35 p_PARAMN3 in NUMBER := FND_API.G_MISS_NUM,
36 p_PARAMN4 in NUMBER := FND_API.G_MISS_NUM,
37 p_PARAMN5 in NUMBER := FND_API.G_MISS_NUM,
38 p_PARAMN6 in NUMBER := FND_API.G_MISS_NUM,
39 p_PARAMN7 in NUMBER := FND_API.G_MISS_NUM,
40 p_PARAMN8 in NUMBER := FND_API.G_MISS_NUM,
41 p_PARAMN9 in NUMBER := FND_API.G_MISS_NUM,
42 p_PARAMN10 in NUMBER := FND_API.G_MISS_NUM,
43 p_PARAMC1 in VARCHAR2 := FND_API.G_MISS_CHAR,
44 p_PARAMC2 in VARCHAR2 := FND_API.G_MISS_CHAR,
45 p_PARAMC3 in VARCHAR2 := FND_API.G_MISS_CHAR,
46 p_PARAMC4 in VARCHAR2 := FND_API.G_MISS_CHAR,
47 p_PARAMC5 in VARCHAR2 := FND_API.G_MISS_CHAR,
48 p_PARAMC6 in VARCHAR2 := FND_API.G_MISS_CHAR,
49 p_PARAMC7 in VARCHAR2 := FND_API.G_MISS_CHAR,
50 p_PARAMC8 in VARCHAR2 := FND_API.G_MISS_CHAR,
51 p_PARAMC9 in VARCHAR2 := FND_API.G_MISS_CHAR,
52 p_PARAMC10 in VARCHAR2 := FND_API.G_MISS_CHAR,
53 p_PARAMD1 in DATE := FND_API.G_MISS_DATE,
54 p_PARAMD2 in DATE := FND_API.G_MISS_DATE,
55 p_PARAMD3 in DATE := FND_API.G_MISS_DATE,
56 p_PARAMD4 in DATE := FND_API.G_MISS_DATE,
57 p_PARAMD5 in DATE := FND_API.G_MISS_DATE,
58 p_PARAMD6 in DATE := FND_API.G_MISS_DATE,
59 p_PARAMD7 in DATE := FND_API.G_MISS_DATE,
60 p_PARAMD8 in DATE := FND_API.G_MISS_DATE,
61 p_PARAMD9 in DATE := FND_API.G_MISS_DATE,
62 p_PARAMD10 in DATE := FND_API.G_MISS_DATE,
63 p_ATTRIBUTE_CATEGORY in VARCHAR2 := FND_API.G_MISS_CHAR,
64 p_ATTRIBUTE1 in VARCHAR2 := FND_API.G_MISS_CHAR,
65 p_ATTRIBUTE2 in VARCHAR2 := FND_API.G_MISS_CHAR,
66 p_ATTRIBUTE3 in VARCHAR2 := FND_API.G_MISS_CHAR,
67 p_ATTRIBUTE4 in VARCHAR2 := FND_API.G_MISS_CHAR,
68 p_ATTRIBUTE5 in VARCHAR2 := FND_API.G_MISS_CHAR,
69 p_ATTRIBUTE6 in VARCHAR2 := FND_API.G_MISS_CHAR,
70 p_ATTRIBUTE7 in VARCHAR2 := FND_API.G_MISS_CHAR,
71 p_ATTRIBUTE8 in VARCHAR2 := FND_API.G_MISS_CHAR,
72 p_ATTRIBUTE9 in VARCHAR2 := FND_API.G_MISS_CHAR,
73 p_ATTRIBUTE10 in VARCHAR2 := FND_API.G_MISS_CHAR,
74 p_ATTRIBUTE11 in VARCHAR2 := FND_API.G_MISS_CHAR,
75 p_ATTRIBUTE12 in VARCHAR2 := FND_API.G_MISS_CHAR,
76 p_ATTRIBUTE13 in VARCHAR2 := FND_API.G_MISS_CHAR,
77 p_ATTRIBUTE14 in VARCHAR2 := FND_API.G_MISS_CHAR,
78 p_ATTRIBUTE15 in VARCHAR2 := FND_API.G_MISS_CHAR,
79 p_LAST_UPDATE_LOGIN in NUMBER := FND_API.G_MISS_CHAR,
80 X_Return_Status OUT NOCOPY VARCHAR2 ,
81 X_Msg_Count OUT NOCOPY NUMBER ,
82 X_Msg_Data OUT NOCOPY VARCHAR2
83 )
84 IS
85 l_repair_hist_rec CSD_REPAIR_HISTORY_PVT.REPH_Rec_Type;
86 p_temp_repair_line_id number;
87
88 BEGIN
89 -- initiate X_Msg_Count
90 X_Msg_Count := 0;
91
92 -- check p_action_code
93 if p_action_code not in (0, 1, 2) then
94 X_Return_Status := FND_API.G_RET_STS_ERROR;
95 X_Msg_Count := X_Msg_Count + 1;
96 X_Msg_Data := 'Invalid action codes should indicate an Insert, Delete or Update action.';
97 GOTO end_job;
98 end if;
99
100
101 L_REPAIR_HIST_REC.REPAIR_HISTORY_ID := px_repair_history_id;
102 L_REPAIR_HIST_REC.OBJECT_VERSION_NUMBER := p_OBJECT_VERSION_NUMBER ;
103 L_REPAIR_HIST_REC.REQUEST_ID := p_REQUEST_ID ;
104 L_REPAIR_HIST_REC.PROGRAM_ID := p_PROGRAM_ID ;
105 L_REPAIR_HIST_REC.PROGRAM_APPLICATION_ID := p_PROGRAM_APPLICATION_ID ;
106 L_REPAIR_HIST_REC.PROGRAM_UPDATE_DATE := p_PROGRAM_UPDATE_DATE ;
107 L_REPAIR_HIST_REC.CREATED_BY := p_CREATED_BY ;
108 L_REPAIR_HIST_REC.CREATION_DATE := p_CREATION_DATE;
109 L_REPAIR_HIST_REC.LAST_UPDATED_BY := p_LAST_UPDATED_BY ;
110 L_REPAIR_HIST_REC.LAST_UPDATE_DATE := p_LAST_UPDATE_DATE ;
111 L_REPAIR_HIST_REC.REPAIR_LINE_ID := p_REPAIR_LINE_ID ;
112 L_REPAIR_HIST_REC.EVENT_CODE := p_EVENT_CODE ;
113 L_REPAIR_HIST_REC.EVENT_DATE := p_EVENT_DATE ;
114 L_REPAIR_HIST_REC.QUANTITY := p_QUANTITY ;
115 L_REPAIR_HIST_REC.PARAMN1 := p_PARAMN1 ;
116 L_REPAIR_HIST_REC.PARAMN2 := p_PARAMN2 ;
117 L_REPAIR_HIST_REC.PARAMN3 := p_PARAMN3 ;
118 L_REPAIR_HIST_REC.PARAMN4 := p_PARAMN4 ;
119 L_REPAIR_HIST_REC.PARAMN5 := p_PARAMN5;
120 L_REPAIR_HIST_REC.PARAMN6 := p_PARAMN6 ;
121 L_REPAIR_HIST_REC.PARAMN7 := p_PARAMN7;
122 L_REPAIR_HIST_REC.PARAMN8 := p_PARAMN8;
123 L_REPAIR_HIST_REC.PARAMN9 := p_PARAMN9 ;
124 L_REPAIR_HIST_REC.PARAMN10 := p_PARAMN10;
125 L_REPAIR_HIST_REC.PARAMC1 := p_PARAMC1 ;
126 L_REPAIR_HIST_REC.PARAMC2 := p_PARAMC2;
127 L_REPAIR_HIST_REC.PARAMC3 := p_PARAMC3;
128 L_REPAIR_HIST_REC.PARAMC4 := p_PARAMC4;
129 L_REPAIR_HIST_REC.PARAMC5 := p_PARAMC5;
130 L_REPAIR_HIST_REC.PARAMC6 := p_PARAMC6;
131 L_REPAIR_HIST_REC.PARAMC7 := p_PARAMC7;
132 L_REPAIR_HIST_REC.PARAMC8 := p_PARAMC8;
133 L_REPAIR_HIST_REC.PARAMC9 := p_PARAMC9;
134 L_REPAIR_HIST_REC.PARAMC10 := p_PARAMC10 ;
135 L_REPAIR_HIST_REC.PARAMD1 := p_PARAMD1 ;
136 L_REPAIR_HIST_REC.PARAMD2 := p_PARAMD2;
137 L_REPAIR_HIST_REC.PARAMD3 := p_PARAMD3;
138 L_REPAIR_HIST_REC.PARAMD4 := p_PARAMD4 ;
139 L_REPAIR_HIST_REC.PARAMD5 := p_PARAMD5;
140 L_REPAIR_HIST_REC.PARAMD6 := p_PARAMD6;
141 L_REPAIR_HIST_REC.PARAMD7 := p_PARAMD7 ;
142 L_REPAIR_HIST_REC.PARAMD8 := p_PARAMD8;
143 L_REPAIR_HIST_REC.PARAMD9 := p_PARAMD9 ;
144 L_REPAIR_HIST_REC.PARAMD10 := p_PARAMD10 ;
145 L_REPAIR_HIST_REC.ATTRIBUTE_CATEGORY := p_ATTRIBUTE_CATEGORY ;
146 L_REPAIR_HIST_REC.ATTRIBUTE1 := p_ATTRIBUTE1 ;
147 L_REPAIR_HIST_REC.ATTRIBUTE2 := p_ATTRIBUTE2 ;
148 L_REPAIR_HIST_REC.ATTRIBUTE3 := p_ATTRIBUTE3;
149 L_REPAIR_HIST_REC.ATTRIBUTE4 := p_ATTRIBUTE4 ;
150 L_REPAIR_HIST_REC.ATTRIBUTE5 := p_ATTRIBUTE5 ;
151 L_REPAIR_HIST_REC.ATTRIBUTE6 := p_ATTRIBUTE6;
152 L_REPAIR_HIST_REC.ATTRIBUTE7 := p_ATTRIBUTE7;
153 L_REPAIR_HIST_REC.ATTRIBUTE8 := p_ATTRIBUTE8;
154 L_REPAIR_HIST_REC.ATTRIBUTE9 := p_ATTRIBUTE9;
155 L_REPAIR_HIST_REC.ATTRIBUTE10 := p_ATTRIBUTE10 ;
156 L_REPAIR_HIST_REC.ATTRIBUTE11 := p_ATTRIBUTE11;
157 L_REPAIR_HIST_REC.ATTRIBUTE12 := p_ATTRIBUTE12;
158 L_REPAIR_HIST_REC.ATTRIBUTE13 := p_ATTRIBUTE13;
159 L_REPAIR_HIST_REC.ATTRIBUTE14 := p_ATTRIBUTE14;
160 L_REPAIR_HIST_REC.ATTRIBUTE15 := p_ATTRIBUTE15;
161 L_REPAIR_HIST_REC.LAST_UPDATE_LOGIN := p_LAST_UPDATE_LOGIN ;
162
163 if p_action_code = 0 then
164 -- call the private insert (create) procedure
165 IF (g_debug > 0 ) THEN
166 csd_gen_utility_pvt.add('CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write before CSD_REPAIR_HISTORY_PVT.Create_repair_history call');
167 END IF;
168
169
170 CSD_REPAIR_HISTORY_PVT.Create_repair_history(
171 P_Api_Version_Number => p_api_version_number,
172 P_Init_Msg_List => p_init_msg_list,
173 P_Commit => p_commit,
174 p_validation_level => p_validation_level,
175 P_reph_rec => l_repair_hist_rec,
176 X_REPAIR_HISTORY_ID => p_temp_repair_line_id,
177 X_Return_Status => x_return_status,
178 X_Msg_Count => x_msg_count,
179 X_Msg_Data => x_msg_data
180 );
181
182 IF (g_debug > 0 ) THEN
183 csd_gen_utility_pvt.add('CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write after CSD_REPAIR_HISTORY_PVT.Create_repair_history x_return_status'||x_return_status);
184 END IF;
185
186 elsif p_action_code = 1 then
187 -- call the private update procedure
188
189 IF (g_debug > 0 ) THEN
190 csd_gen_utility_pvt.add('CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write before CSD_REPAIR_HISTORY_PVT.Update_repair_history call');
191 END IF;
192
193
194 CSD_REPAIR_HISTORY_PVT.update_repair_history(
195 P_Api_Version_Number => p_api_version_number,
196 P_Init_Msg_List => p_init_msg_list,
197 P_Commit => p_commit,
198 p_validation_level => p_validation_level,
199 P_reph_rec => l_repair_hist_rec,
200 X_Return_Status => x_return_status,
201 X_Msg_Count => x_msg_count,
202 X_Msg_Data => x_msg_data
203 );
204
205 IF (g_debug > 0 ) THEN
206 csd_gen_utility_pvt.add('CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write after CSD_REPAIR_HISTORY_PVT.Update_repair_history x_return_status'||x_return_status);
207 END IF;
208
209
210 else
211 -- call the private delete procedure
212
213 IF (g_debug > 0 ) THEN
214 csd_gen_utility_pvt.add('CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write before CSD_REPAIR_HISTORY_PVT.Delete_repair_history call');
215 END IF;
216
217
218
219 CSD_REPAIR_HISTORY_PVT.delete_repair_history(
220 P_Api_Version_Number => p_api_version_number,
221 P_Init_Msg_List => p_init_msg_list,
222 P_Commit => p_commit,
223 p_validation_level => p_validation_level,
224 P_reph_rec => l_repair_hist_rec,
225 X_Return_Status => x_return_status,
226 X_Msg_Count => x_msg_count,
227 X_Msg_Data => x_msg_data
228 );
229
230 IF (g_debug > 0 ) THEN
231 csd_gen_utility_pvt.add('CSD_TO_FORM_REPAIR_HISTORY.Validate_And_Write after CSD_REPAIR_HISTORY_PVT.Delete_repair_history x_return_status'||x_return_status);
232 END IF;
233
234
235 end if;
236
237 px_repair_history_id := p_temp_repair_line_id;
238
239 <<end_job>>
240 null;
241
242 END Validate_And_Write;
243
244 END CSD_TO_FORM_REPAIR_HISTORY;