[Home] [Help]
89:
90: -- To Validate_Visit_Task
91: PROCEDURE Validate_Visit_Task (
92: p_api_version IN NUMBER,
93: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
94: p_commit IN VARCHAR2 := Fnd_Api.g_false,
95: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
96: p_Task_rec IN AHL_VWP_RULES_PVT.task_rec_type,
97: x_return_status OUT NOCOPY VARCHAR2,
90: -- To Validate_Visit_Task
91: PROCEDURE Validate_Visit_Task (
92: p_api_version IN NUMBER,
93: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
94: p_commit IN VARCHAR2 := Fnd_Api.g_false,
95: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
96: p_Task_rec IN AHL_VWP_RULES_PVT.task_rec_type,
97: x_return_status OUT NOCOPY VARCHAR2,
98: x_msg_count OUT NOCOPY NUMBER,
91: PROCEDURE Validate_Visit_Task (
92: p_api_version IN NUMBER,
93: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
94: p_commit IN VARCHAR2 := Fnd_Api.g_false,
95: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
96: p_Task_rec IN AHL_VWP_RULES_PVT.task_rec_type,
97: x_return_status OUT NOCOPY VARCHAR2,
98: x_msg_count OUT NOCOPY NUMBER,
99: x_msg_data OUT NOCOPY VARCHAR2
106:
107: -- To Create Unassociated Task
108: PROCEDURE Create_Unassociated_Task(
109: p_api_version IN NUMBER,
110: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
111: p_commit IN VARCHAR2 := Fnd_Api.g_false,
112: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
113: p_module_type IN VARCHAR2 := 'JSP',
114: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
107: -- To Create Unassociated Task
108: PROCEDURE Create_Unassociated_Task(
109: p_api_version IN NUMBER,
110: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
111: p_commit IN VARCHAR2 := Fnd_Api.g_false,
112: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
113: p_module_type IN VARCHAR2 := 'JSP',
114: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
115: x_return_status OUT NOCOPY VARCHAR2,
108: PROCEDURE Create_Unassociated_Task(
109: p_api_version IN NUMBER,
110: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
111: p_commit IN VARCHAR2 := Fnd_Api.g_false,
112: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
113: p_module_type IN VARCHAR2 := 'JSP',
114: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
115: x_return_status OUT NOCOPY VARCHAR2,
116: x_msg_count OUT NOCOPY NUMBER,
119:
120: -- To Create Summary Task
121: PROCEDURE Create_Summary_Task(
122: p_api_version IN NUMBER,
123: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
124: p_commit IN VARCHAR2 := Fnd_Api.g_false,
125: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
126: p_module_type IN VARCHAR2 :='JSP',
127: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
120: -- To Create Summary Task
121: PROCEDURE Create_Summary_Task(
122: p_api_version IN NUMBER,
123: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
124: p_commit IN VARCHAR2 := Fnd_Api.g_false,
125: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
126: p_module_type IN VARCHAR2 :='JSP',
127: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
128: x_return_status OUT NOCOPY VARCHAR2,
121: PROCEDURE Create_Summary_Task(
122: p_api_version IN NUMBER,
123: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
124: p_commit IN VARCHAR2 := Fnd_Api.g_false,
125: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
126: p_module_type IN VARCHAR2 :='JSP',
127: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
128: x_return_status OUT NOCOPY VARCHAR2,
129: x_msg_count OUT NOCOPY NUMBER,
132:
133: -- To Delete SR Task
134: PROCEDURE Delete_SR_Task (
135: p_api_version IN NUMBER,
136: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
137: p_commit IN VARCHAR2 := Fnd_Api.g_false,
138: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
139: p_module_type IN VARCHAR2:= 'JSP',
140: p_visit_task_ID IN NUMBER,
133: -- To Delete SR Task
134: PROCEDURE Delete_SR_Task (
135: p_api_version IN NUMBER,
136: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
137: p_commit IN VARCHAR2 := Fnd_Api.g_false,
138: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
139: p_module_type IN VARCHAR2:= 'JSP',
140: p_visit_task_ID IN NUMBER,
141: x_return_status OUT NOCOPY VARCHAR2,
134: PROCEDURE Delete_SR_Task (
135: p_api_version IN NUMBER,
136: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
137: p_commit IN VARCHAR2 := Fnd_Api.g_false,
138: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
139: p_module_type IN VARCHAR2:= 'JSP',
140: p_visit_task_ID IN NUMBER,
141: x_return_status OUT NOCOPY VARCHAR2,
142: x_msg_count OUT NOCOPY NUMBER,
145:
146: -- To Update Summary Task
147: PROCEDURE Update_Summary_Task(
148: p_api_version IN NUMBER,
149: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
150: p_commit IN VARCHAR2 := Fnd_Api.g_false,
151: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
152: p_module_type IN VARCHAR2 := 'JSP',
153: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
146: -- To Update Summary Task
147: PROCEDURE Update_Summary_Task(
148: p_api_version IN NUMBER,
149: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
150: p_commit IN VARCHAR2 := Fnd_Api.g_false,
151: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
152: p_module_type IN VARCHAR2 := 'JSP',
153: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
154: x_return_status OUT NOCOPY VARCHAR2,
147: PROCEDURE Update_Summary_Task(
148: p_api_version IN NUMBER,
149: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
150: p_commit IN VARCHAR2 := Fnd_Api.g_false,
151: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
152: p_module_type IN VARCHAR2 := 'JSP',
153: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
154: x_return_status OUT NOCOPY VARCHAR2,
155: x_msg_count OUT NOCOPY NUMBER,
159: -- To Update Unassociated Task
160:
161: PROCEDURE Update_Unassociated_Task(
162: p_api_version IN NUMBER,
163: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
164: p_commit IN VARCHAR2 := Fnd_Api.g_false,
165: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
166: p_module_type IN VARCHAR2 := 'JSP',
167: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
160:
161: PROCEDURE Update_Unassociated_Task(
162: p_api_version IN NUMBER,
163: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
164: p_commit IN VARCHAR2 := Fnd_Api.g_false,
165: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
166: p_module_type IN VARCHAR2 := 'JSP',
167: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
168: x_return_status OUT NOCOPY VARCHAR2,
161: PROCEDURE Update_Unassociated_Task(
162: p_api_version IN NUMBER,
163: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
164: p_commit IN VARCHAR2 := Fnd_Api.g_false,
165: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
166: p_module_type IN VARCHAR2 := 'JSP',
167: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
168: x_return_status OUT NOCOPY VARCHAR2,
169: x_msg_count OUT NOCOPY NUMBER,
172:
173: -- To Delete Unassociated Task
174: PROCEDURE Delete_Unassociated_Task (
175: p_api_version IN NUMBER,
176: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
177: p_commit IN VARCHAR2 := Fnd_Api.g_false,
178: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
179: p_module_type IN VARCHAR2 := 'JSP',
180: p_Visit_Task_Id IN NUMBER,
173: -- To Delete Unassociated Task
174: PROCEDURE Delete_Unassociated_Task (
175: p_api_version IN NUMBER,
176: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
177: p_commit IN VARCHAR2 := Fnd_Api.g_false,
178: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
179: p_module_type IN VARCHAR2 := 'JSP',
180: p_Visit_Task_Id IN NUMBER,
181: x_return_status OUT NOCOPY VARCHAR2,
174: PROCEDURE Delete_Unassociated_Task (
175: p_api_version IN NUMBER,
176: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
177: p_commit IN VARCHAR2 := Fnd_Api.g_false,
178: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
179: p_module_type IN VARCHAR2 := 'JSP',
180: p_Visit_Task_Id IN NUMBER,
181: x_return_status OUT NOCOPY VARCHAR2,
182: x_msg_count OUT NOCOPY NUMBER,
188: );
189:
190: PROCEDURE Update_Tasks_in_Planning(
191: p_api_version IN NUMBER := 1.0,
192: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
193: p_commit IN VARCHAR2:= FND_API.G_FALSE,
194: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
195: p_module_type IN VARCHAR2:= 'JSP',
196: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
189:
190: PROCEDURE Update_Tasks_in_Planning(
191: p_api_version IN NUMBER := 1.0,
192: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
193: p_commit IN VARCHAR2:= FND_API.G_FALSE,
194: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
195: p_module_type IN VARCHAR2:= 'JSP',
196: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
197: x_return_status OUT NOCOPY VARCHAR2,
190: PROCEDURE Update_Tasks_in_Planning(
191: p_api_version IN NUMBER := 1.0,
192: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
193: p_commit IN VARCHAR2:= FND_API.G_FALSE,
194: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
195: p_module_type IN VARCHAR2:= 'JSP',
196: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
197: x_return_status OUT NOCOPY VARCHAR2,
198: x_msg_count OUT NOCOPY NUMBER,
200: );
201:
202: PROCEDURE Update_Tasks_in_Production(
203: p_api_version IN NUMBER := 1.0,
204: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
205: p_commit IN VARCHAR2:= FND_API.G_FALSE,
206: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
207: p_module_type IN VARCHAR2:= 'JSP',
208: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
201:
202: PROCEDURE Update_Tasks_in_Production(
203: p_api_version IN NUMBER := 1.0,
204: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
205: p_commit IN VARCHAR2:= FND_API.G_FALSE,
206: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
207: p_module_type IN VARCHAR2:= 'JSP',
208: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
209: x_return_status OUT NOCOPY VARCHAR2,
202: PROCEDURE Update_Tasks_in_Production(
203: p_api_version IN NUMBER := 1.0,
204: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
205: p_commit IN VARCHAR2:= FND_API.G_FALSE,
206: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
207: p_module_type IN VARCHAR2:= 'JSP',
208: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
209: x_return_status OUT NOCOPY VARCHAR2,
210: x_msg_count OUT NOCOPY NUMBER,
221: -- VWPE 12730539:: PRAKKUM :: 26-JUL-2011 :: start
222: -- To Delete Stage Task
223: PROCEDURE Delete_Stage_Task(
224: p_api_version IN NUMBER,
225: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
226: p_commit IN VARCHAR2 := Fnd_Api.g_false,
227: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
228: p_module_type IN VARCHAR2 := 'JSP',
229: p_visit_task_ID IN NUMBER,
222: -- To Delete Stage Task
223: PROCEDURE Delete_Stage_Task(
224: p_api_version IN NUMBER,
225: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
226: p_commit IN VARCHAR2 := Fnd_Api.g_false,
227: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
228: p_module_type IN VARCHAR2 := 'JSP',
229: p_visit_task_ID IN NUMBER,
230: x_return_status OUT NOCOPY VARCHAR2,
223: PROCEDURE Delete_Stage_Task(
224: p_api_version IN NUMBER,
225: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
226: p_commit IN VARCHAR2 := Fnd_Api.g_false,
227: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
228: p_module_type IN VARCHAR2 := 'JSP',
229: p_visit_task_ID IN NUMBER,
230: x_return_status OUT NOCOPY VARCHAR2,
231: x_msg_count OUT NOCOPY NUMBER,
352: fnd_log.string(l_log_procedure,
353: L_DEBUG_KEY ||'.begin',
354: 'At the start of PL SQL procedure.');
355: END IF;
356: IF p_x_task_rec.DURATION = Fnd_Api.G_MISS_NUM THEN
357: p_x_task_rec.DURATION := NULL;
358: ELSE
359: p_x_task_rec.DURATION := p_x_task_rec.DURATION;
360: END IF;
358: ELSE
359: p_x_task_rec.DURATION := p_x_task_rec.DURATION;
360: END IF;
361:
362: IF p_x_task_rec.PROJECT_TASK_ID = Fnd_Api.G_MISS_NUM THEN
363: p_x_task_rec.PROJECT_TASK_ID := NULL;
364: ELSE
365: p_x_task_rec.PROJECT_TASK_ID := p_x_task_rec.PROJECT_TASK_ID;
366: END IF;
364: ELSE
365: p_x_task_rec.PROJECT_TASK_ID := p_x_task_rec.PROJECT_TASK_ID;
366: END IF;
367:
368: IF p_x_task_rec.COST_PARENT_ID = Fnd_Api.G_MISS_NUM THEN
369: p_x_task_rec.COST_PARENT_ID := NULL;
370: ELSE
371: p_x_task_rec.COST_PARENT_ID := p_x_task_rec.COST_PARENT_ID;
372: END IF;
370: ELSE
371: p_x_task_rec.COST_PARENT_ID := p_x_task_rec.COST_PARENT_ID;
372: END IF;
373:
374: IF p_x_task_rec.MR_ROUTE_ID = Fnd_Api.G_MISS_NUM THEN
375: p_x_task_rec.MR_ROUTE_ID := NULL;
376: ELSE
377: p_x_task_rec.MR_ROUTE_ID := p_x_task_rec.MR_ROUTE_ID;
378: END IF;
376: ELSE
377: p_x_task_rec.MR_ROUTE_ID := p_x_task_rec.MR_ROUTE_ID;
378: END IF;
379:
380: IF p_x_task_rec.MR_ID = Fnd_Api.G_MISS_NUM THEN
381: p_x_task_rec.MR_ID := NULL;
382: ELSE
383: p_x_task_rec.MR_ID := p_x_task_rec.MR_ID;
384: END IF;
382: ELSE
383: p_x_task_rec.MR_ID := p_x_task_rec.MR_ID;
384: END IF;
385:
386: IF p_x_task_rec.UNIT_EFFECTIVITY_ID = Fnd_Api.G_MISS_NUM THEN
387: p_x_task_rec.UNIT_EFFECTIVITY_ID := NULL;
388: ELSE
389: p_x_task_rec.UNIT_EFFECTIVITY_ID := p_x_task_rec.UNIT_EFFECTIVITY_ID;
390: END IF;
388: ELSE
389: p_x_task_rec.UNIT_EFFECTIVITY_ID := p_x_task_rec.UNIT_EFFECTIVITY_ID;
390: END IF;
391:
392: IF p_x_task_rec.START_FROM_HOUR = Fnd_Api.G_MISS_NUM THEN
393: p_x_task_rec.START_FROM_HOUR := NULL;
394: ELSE
395: p_x_task_rec.START_FROM_HOUR := p_x_task_rec.START_FROM_HOUR;
396: END IF;
394: ELSE
395: p_x_task_rec.START_FROM_HOUR := p_x_task_rec.START_FROM_HOUR;
396: END IF;
397:
398: IF p_x_task_rec.PRIMARY_VISIT_TASK_ID = Fnd_Api.G_MISS_NUM THEN
399: p_x_task_rec.PRIMARY_VISIT_TASK_ID := NULL;
400: ELSE
401: p_x_task_rec.PRIMARY_VISIT_TASK_ID := p_x_task_rec.PRIMARY_VISIT_TASK_ID;
402: END IF;
400: ELSE
401: p_x_task_rec.PRIMARY_VISIT_TASK_ID := p_x_task_rec.PRIMARY_VISIT_TASK_ID;
402: END IF;
403:
404: IF p_x_task_rec.ORIGINATING_TASK_ID = Fnd_Api.G_MISS_NUM THEN
405: p_x_task_rec.ORIGINATING_TASK_ID := NULL;
406: ELSE
407: p_x_task_rec.ORIGINATING_TASK_ID := p_x_task_rec.ORIGINATING_TASK_ID;
408: END IF;
406: ELSE
407: p_x_task_rec.ORIGINATING_TASK_ID := p_x_task_rec.ORIGINATING_TASK_ID;
408: END IF;
409:
410: IF p_x_task_rec.SERVICE_REQUEST_ID = Fnd_Api.G_MISS_NUM THEN
411: p_x_task_rec.SERVICE_REQUEST_ID := NULL;
412: ELSE
413: p_x_task_rec.SERVICE_REQUEST_ID := p_x_task_rec.SERVICE_REQUEST_ID;
414: END IF;
412: ELSE
413: p_x_task_rec.SERVICE_REQUEST_ID := p_x_task_rec.SERVICE_REQUEST_ID;
414: END IF;
415:
416: IF p_x_task_rec.attribute_category = Fnd_Api.G_MISS_CHAR THEN
417: p_x_task_rec.attribute_category := NULL;
418: ELSE
419: p_x_task_rec.attribute_category := p_x_task_rec.attribute_category;
420: END IF;
419: p_x_task_rec.attribute_category := p_x_task_rec.attribute_category;
420: END IF;
421:
422: --MANESING::Component Maintenance Planning Project, 07-Aug-2011, added target quantity
423: IF p_x_task_rec.TARGET_QTY = Fnd_Api.G_MISS_NUM THEN
424: p_x_task_rec.TARGET_QTY := NULL;
425: END IF;
426: --
427: IF (l_log_procedure >= l_log_current_level) THEN
440: -- To display all task details for the update task UI screen
441: --------------------------------------------------------------------
442: PROCEDURE Get_Task_Details (
443: p_api_version IN NUMBER,
444: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
445: p_commit IN VARCHAR2 := Fnd_Api.g_false,
446: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
447: p_module_type IN VARCHAR2 :='JSP',
448: p_task_id IN NUMBER,
441: --------------------------------------------------------------------
442: PROCEDURE Get_Task_Details (
443: p_api_version IN NUMBER,
444: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
445: p_commit IN VARCHAR2 := Fnd_Api.g_false,
446: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
447: p_module_type IN VARCHAR2 :='JSP',
448: p_task_id IN NUMBER,
449: x_task_rec OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
442: PROCEDURE Get_Task_Details (
443: p_api_version IN NUMBER,
444: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
445: p_commit IN VARCHAR2 := Fnd_Api.g_false,
446: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
447: p_module_type IN VARCHAR2 :='JSP',
448: p_task_id IN NUMBER,
449: x_task_rec OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
450: x_return_status OUT NOCOPY VARCHAR2,
987:
988: -- Standard start of API savepoint
989: SAVEPOINT Get_Task_Details;
990:
991: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
992: Fnd_Msg_Pub.initialize;
993: END IF;
994:
995: -- Initialize API return status to success
992: Fnd_Msg_Pub.initialize;
993: END IF;
994:
995: -- Initialize API return status to success
996: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
997:
998: -- Standard call to check for call compatibility.
999: IF NOT Fnd_Api.compatible_api_call(
1000: l_api_version,
995: -- Initialize API return status to success
996: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
997:
998: -- Standard call to check for call compatibility.
999: IF NOT Fnd_Api.compatible_api_call(
1000: l_api_version,
1001: p_api_version,
1002: l_api_name,
1003: G_PKG_NAME
1001: p_api_version,
1002: l_api_name,
1003: G_PKG_NAME
1004: ) THEN
1005: RAISE Fnd_Api.g_exc_unexpected_error;
1006: END IF;
1007:
1008: ------------------------Start of API Body------------------------------------
1009: ------------------------Cursor------------------------------------
1107: l_duration := c_task_data_rec.duration;
1108: END IF;
1109:
1110: -- For finding visit task number for originating task id
1111: IF c_task_data_rec.originating_task_id IS NOT NULL AND c_task_data_rec.originating_task_id <> Fnd_Api.g_miss_num THEN
1112: OPEN c_number(c_task_data_rec.originating_task_id);
1113: FETCH c_number INTO l_origin_num;
1114: CLOSE c_number;
1115: ELSE
1116: l_origin_num := NULL;
1117: END IF;
1118:
1119: -- For finding visit task number for cost parent id
1120: IF c_task_data_rec.cost_parent_id IS NOT NULL AND c_task_data_rec.cost_parent_id <> Fnd_Api.g_miss_num THEN
1121: OPEN c_number(c_task_data_rec.cost_parent_id);
1122: FETCH c_number INTO l_parent_num;
1123: CLOSE c_number;
1124: ELSE
1279: -- Standard call to get message count and if count is 1, get message info
1280: /* Fnd_Msg_Pub.Count_And_Get
1281: ( p_count => x_msg_count,
1282: p_data => x_msg_data,
1283: p_encoded => Fnd_Api.g_false); */
1284:
1285: --Standard check to count messages
1286: l_msg_count := Fnd_Msg_Pub.count_msg;
1287:
1286: l_msg_count := Fnd_Msg_Pub.count_msg;
1287:
1288: IF l_msg_count > 0 THEN
1289: x_msg_count := l_msg_count;
1290: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1291: RAISE Fnd_Api.G_EXC_ERROR;
1292: END IF;
1293:
1294: -- Debug info.
1287:
1288: IF l_msg_count > 0 THEN
1289: x_msg_count := l_msg_count;
1290: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1291: RAISE Fnd_Api.G_EXC_ERROR;
1292: END IF;
1293:
1294: -- Debug info.
1295: IF (l_log_procedure >= l_log_current_level) THEN
1297: L_DEBUG_KEY ||'.end',
1298: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
1299: END IF;
1300: EXCEPTION
1301: WHEN Fnd_Api.G_EXC_ERROR THEN
1302: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1303: ROLLBACK TO Get_Task_Details;
1304: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1305: p_data => x_msg_data,
1298: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
1299: END IF;
1300: EXCEPTION
1301: WHEN Fnd_Api.G_EXC_ERROR THEN
1302: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1303: ROLLBACK TO Get_Task_Details;
1304: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1305: p_data => x_msg_data,
1306: p_encoded => Fnd_Api.g_false);
1302: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1303: ROLLBACK TO Get_Task_Details;
1304: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1305: p_data => x_msg_data,
1306: p_encoded => Fnd_Api.g_false);
1307: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1308: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1309: ROLLBACK TO Get_Task_Details;
1310: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1303: ROLLBACK TO Get_Task_Details;
1304: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1305: p_data => x_msg_data,
1306: p_encoded => Fnd_Api.g_false);
1307: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1308: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1309: ROLLBACK TO Get_Task_Details;
1310: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1311: p_data => x_msg_data,
1304: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1305: p_data => x_msg_data,
1306: p_encoded => Fnd_Api.g_false);
1307: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1308: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1309: ROLLBACK TO Get_Task_Details;
1310: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1311: p_data => x_msg_data,
1312: p_encoded => Fnd_Api.g_false);
1308: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1309: ROLLBACK TO Get_Task_Details;
1310: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1311: p_data => x_msg_data,
1312: p_encoded => Fnd_Api.g_false);
1313: WHEN OTHERS THEN
1314: ROLLBACK TO Get_Task_Details;
1315: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1316: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1311: p_data => x_msg_data,
1312: p_encoded => Fnd_Api.g_false);
1313: WHEN OTHERS THEN
1314: ROLLBACK TO Get_Task_Details;
1315: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1316: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1317: THEN
1318: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1319: END IF;
1317: THEN
1318: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1319: END IF;
1320: Fnd_Msg_Pub.count_and_get (
1321: p_encoded => Fnd_Api.g_false,
1322: p_count => x_msg_count,
1323: p_data => x_msg_data );
1324: END Get_Task_Details;
1325:
1330: -- To create all types of tasks i.e Unassociated/Summary/Unplanned/Planned
1331: --------------------------------------------------------------------
1332: PROCEDURE Create_Task (
1333: p_api_version IN NUMBER,
1334: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1335: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1336: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1337: p_module_type IN VARCHAR2 := 'JSP',
1338: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
1331: --------------------------------------------------------------------
1332: PROCEDURE Create_Task (
1333: p_api_version IN NUMBER,
1334: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1335: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1336: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1337: p_module_type IN VARCHAR2 := 'JSP',
1338: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
1339: x_return_status OUT NOCOPY VARCHAR2,
1332: PROCEDURE Create_Task (
1333: p_api_version IN NUMBER,
1334: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1335: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1336: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1337: p_module_type IN VARCHAR2 := 'JSP',
1338: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
1339: x_return_status OUT NOCOPY VARCHAR2,
1340: x_msg_count OUT NOCOPY NUMBER,
1393: --------------------- initialize -----------------------
1394: SAVEPOINT Create_Task;
1395:
1396: -- Initialize message list if p_init_msg_list is set to TRUE.
1397: IF Fnd_Api.to_boolean(p_init_msg_list)
1398: THEN
1399: Fnd_Msg_Pub.initialize;
1400: END IF;
1401:
1399: Fnd_Msg_Pub.initialize;
1400: END IF;
1401:
1402: -- Initialize API return status to success
1403: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1404:
1405: -- Standard call to check for call compatibility.
1406: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1407: p_api_version,
1402: -- Initialize API return status to success
1403: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1404:
1405: -- Standard call to check for call compatibility.
1406: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1407: p_api_version,
1408: l_api_name,G_PKG_NAME)
1409: THEN
1410: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1406: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1407: p_api_version,
1408: l_api_name,G_PKG_NAME)
1409: THEN
1410: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1411: END IF;
1412:
1413: --------------------Start of API Body-----------------------------------
1414: -------------------Cursor values------------------------------------
1425: -- Kasridha: Changes for Component Maintenance Planning
1426: l_is_comp_visit := AHL_CMP_UTIL_PKG.Is_Comp_Visit(l_task_rec.visit_id);
1427: -- SKPATHAK :: ER: 9147951 :: 11-JAN-2010 :: STARTS
1428: IF (l_task_rec.PAST_TASK_START_DATE IS NOT NULL
1429: AND l_task_rec.PAST_TASK_START_DATE <> Fnd_Api.G_MISS_DATE) THEN
1430: IF (l_task_rec.PAST_TASK_END_DATE IS NULL
1431: OR l_task_rec.PAST_TASK_START_DATE = Fnd_Api.G_MISS_DATE) THEN
1432: -- if start date is entered but not end date, throw error
1433: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
1427: -- SKPATHAK :: ER: 9147951 :: 11-JAN-2010 :: STARTS
1428: IF (l_task_rec.PAST_TASK_START_DATE IS NOT NULL
1429: AND l_task_rec.PAST_TASK_START_DATE <> Fnd_Api.G_MISS_DATE) THEN
1430: IF (l_task_rec.PAST_TASK_END_DATE IS NULL
1431: OR l_task_rec.PAST_TASK_START_DATE = Fnd_Api.G_MISS_DATE) THEN
1432: -- if start date is entered but not end date, throw error
1433: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
1434: Fnd_Msg_Pub.ADD;
1435: RAISE FND_API.G_EXC_ERROR;
1431: OR l_task_rec.PAST_TASK_START_DATE = Fnd_Api.G_MISS_DATE) THEN
1432: -- if start date is entered but not end date, throw error
1433: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
1434: Fnd_Msg_Pub.ADD;
1435: RAISE FND_API.G_EXC_ERROR;
1436: END IF;
1437: IF (l_task_rec.PAST_TASK_START_DATE >= SYSDATE) THEN
1438: -- Throw error if start date is not in past
1439: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_PAST_ST_DATE_INV');
1437: IF (l_task_rec.PAST_TASK_START_DATE >= SYSDATE) THEN
1438: -- Throw error if start date is not in past
1439: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_PAST_ST_DATE_INV');
1440: Fnd_Msg_Pub.ADD;
1441: RAISE FND_API.G_EXC_ERROR;
1442: END IF;
1443: IF (l_task_rec.PAST_TASK_START_DATE < NVL(c_visit_rec.START_DATE_TIME, l_task_rec.PAST_TASK_START_DATE)) THEN
1444: -- Throw error if past task start date is before the visit start date
1445: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_START_DATE_INVLD');
1443: IF (l_task_rec.PAST_TASK_START_DATE < NVL(c_visit_rec.START_DATE_TIME, l_task_rec.PAST_TASK_START_DATE)) THEN
1444: -- Throw error if past task start date is before the visit start date
1445: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_START_DATE_INVLD');
1446: Fnd_Msg_Pub.ADD;
1447: RAISE FND_API.G_EXC_ERROR;
1448: END IF;
1449: IF (l_task_rec.PAST_TASK_START_DATE > l_task_rec.PAST_TASK_END_DATE) THEN
1450: -- Throw error if past task start date is after the past task end date
1451: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_INVLD');
1449: IF (l_task_rec.PAST_TASK_START_DATE > l_task_rec.PAST_TASK_END_DATE) THEN
1450: -- Throw error if past task start date is after the past task end date
1451: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_INVLD');
1452: Fnd_Msg_Pub.ADD;
1453: RAISE FND_API.G_EXC_ERROR;
1454: END IF;
1455: IF (l_task_rec.PAST_TASK_END_DATE > NVL(c_visit_rec.CLOSE_DATE_TIME,l_task_rec.PAST_TASK_END_DATE)) THEN
1456: -- Throw error if visit ends before the task
1457: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_END_DATE_INVLD');
1455: IF (l_task_rec.PAST_TASK_END_DATE > NVL(c_visit_rec.CLOSE_DATE_TIME,l_task_rec.PAST_TASK_END_DATE)) THEN
1456: -- Throw error if visit ends before the task
1457: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_END_DATE_INVLD');
1458: Fnd_Msg_Pub.ADD;
1459: RAISE FND_API.G_EXC_ERROR;
1460: END IF;
1461: -- SKPATHAK :: Bug #9402556 :: 24-FEB-2010 :: Added call to Validate_Past_Task_Dates
1462: -- Validate past dates against visit stages, task hierarchy and cost parent hierarchy
1463: AHL_VWP_RULES_PVT.Validate_Past_Task_Dates ( p_task_rec => l_Task_rec,
1461: -- SKPATHAK :: Bug #9402556 :: 24-FEB-2010 :: Added call to Validate_Past_Task_Dates
1462: -- Validate past dates against visit stages, task hierarchy and cost parent hierarchy
1463: AHL_VWP_RULES_PVT.Validate_Past_Task_Dates ( p_task_rec => l_Task_rec,
1464: x_return_status => l_return_status);
1465: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1466: IF (l_log_statement >= l_log_current_level) THEN
1467: fnd_log.string(l_log_statement,
1468: L_DEBUG_KEY,
1469: 'Returned success from AHL_VWP_RULES_PVT.Validate_Past_Task_Dates');
1467: fnd_log.string(l_log_statement,
1468: L_DEBUG_KEY,
1469: 'Returned success from AHL_VWP_RULES_PVT.Validate_Past_Task_Dates');
1470: END IF;
1471: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1472: RAISE FND_API.G_EXC_ERROR;
1473: ELSE
1474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1475: END IF;
1468: L_DEBUG_KEY,
1469: 'Returned success from AHL_VWP_RULES_PVT.Validate_Past_Task_Dates');
1470: END IF;
1471: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1472: RAISE FND_API.G_EXC_ERROR;
1473: ELSE
1474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1475: END IF;
1476:
1470: END IF;
1471: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1472: RAISE FND_API.G_EXC_ERROR;
1473: ELSE
1474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1475: END IF;
1476:
1477: ELSE -- PAST_TASK_START_DATE is null
1478: -- SKPATHAK :: Bug #9402279 :: 24-FEB-2010
1475: END IF;
1476:
1477: ELSE -- PAST_TASK_START_DATE is null
1478: -- SKPATHAK :: Bug #9402279 :: 24-FEB-2010
1479: -- Changed the condition from l_task_rec.PAST_TASK_START_DATE <> Fnd_Api.G_MISS_DATE
1480: -- to l_task_rec.PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE
1481: IF (l_task_rec.PAST_TASK_END_DATE IS NOT NULL
1482: AND l_task_rec.PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE) THEN
1483: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
1476:
1477: ELSE -- PAST_TASK_START_DATE is null
1478: -- SKPATHAK :: Bug #9402279 :: 24-FEB-2010
1479: -- Changed the condition from l_task_rec.PAST_TASK_START_DATE <> Fnd_Api.G_MISS_DATE
1480: -- to l_task_rec.PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE
1481: IF (l_task_rec.PAST_TASK_END_DATE IS NOT NULL
1482: AND l_task_rec.PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE) THEN
1483: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
1484: Fnd_Msg_Pub.ADD;
1478: -- SKPATHAK :: Bug #9402279 :: 24-FEB-2010
1479: -- Changed the condition from l_task_rec.PAST_TASK_START_DATE <> Fnd_Api.G_MISS_DATE
1480: -- to l_task_rec.PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE
1481: IF (l_task_rec.PAST_TASK_END_DATE IS NOT NULL
1482: AND l_task_rec.PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE) THEN
1483: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
1484: Fnd_Msg_Pub.ADD;
1485: RAISE FND_API.G_EXC_ERROR;
1486: END IF;
1481: IF (l_task_rec.PAST_TASK_END_DATE IS NOT NULL
1482: AND l_task_rec.PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE) THEN
1483: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
1484: Fnd_Msg_Pub.ADD;
1485: RAISE FND_API.G_EXC_ERROR;
1486: END IF;
1487: l_task_rec.PAST_TASK_START_DATE := NULL;
1488: l_task_rec.PAST_TASK_END_DATE := NULL;
1489: END IF;
1491:
1492: IF c_visit_rec.status_code IN ('CLOSED','CANCELLED') THEN
1493: Fnd_Message.SET_NAME('AHL','AHL_VWP_NOT_USE_VISIT');
1494: Fnd_Msg_Pub.ADD;
1495: RAISE Fnd_Api.G_EXC_ERROR;
1496: ELSE
1497: IF l_task_rec.task_type_code = 'SUMMARY' THEN
1498: IF (l_log_statement >= l_log_current_level) THEN
1499: fnd_log.string(l_log_statement,
1503: Create_Summary_Task
1504: (
1505: p_api_version => l_api_version,
1506: p_init_msg_list => p_init_msg_list,
1507: p_commit => Fnd_Api.g_false,
1508: p_validation_level => p_validation_level,
1509: p_module_type => p_module_type,
1510: p_x_task_rec => l_task_rec,
1511: x_return_status => l_return_status,
1533: END IF;
1534: AHL_VWP_PLAN_TASKS_PVT.Create_Planned_Task (
1535: p_api_version => l_api_version,
1536: p_init_msg_list => p_init_msg_list,
1537: p_commit => Fnd_Api.g_false,
1538: p_validation_level => p_validation_level,
1539: p_module_type => p_module_type,
1540: p_x_task_rec => l_task_rec,
1541: x_return_status => l_return_status,
1559: END IF;
1560: AHL_VWP_UNPLAN_TASKS_PVT.Create_Unplanned_Task (
1561: p_api_version => l_api_version,
1562: p_init_msg_list => p_init_msg_list,
1563: p_commit => Fnd_Api.g_false,
1564: p_validation_level => p_validation_level,
1565: p_module_type => p_module_type,
1566: p_x_task_rec => l_task_rec,
1567: x_return_status => l_return_status,
1585: Create_Unassociated_Task
1586: (
1587: p_api_version => l_api_version,
1588: p_init_msg_list => p_init_msg_list,
1589: p_commit => Fnd_Api.g_false,
1590: p_validation_level => p_validation_level,
1591: p_module_type => p_module_type,
1592: p_x_task_rec => l_task_rec,
1593: x_return_status => l_return_status,
1623: l_task_rec.task_type_code = 'SUMMARY' AND
1624: l_task_rec.mr_id IS NULL) THEN
1625: AHL_VWP_PROJ_PROD_PVT.plan_visit(
1626: p_api_version => l_api_version,
1627: p_init_msg_list => Fnd_Api.g_false,
1628: p_commit => Fnd_Api.g_false,
1629: p_validation_level => p_validation_level,
1630: p_caller => NULL,
1631: p_visit_id => l_task_rec.visit_id,
1624: l_task_rec.mr_id IS NULL) THEN
1625: AHL_VWP_PROJ_PROD_PVT.plan_visit(
1626: p_api_version => l_api_version,
1627: p_init_msg_list => Fnd_Api.g_false,
1628: p_commit => Fnd_Api.g_false,
1629: p_validation_level => p_validation_level,
1630: p_caller => NULL,
1631: p_visit_id => l_task_rec.visit_id,
1632: x_return_status => l_return_status,
1638: L_DEBUG_KEY,
1639: 'After Calling AHL_VWP_PROJ_PROD_PVT.plan_visit. Return Status = ' || l_return_status );
1640: END IF;
1641:
1642: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1643: x_msg_count := l_msg_count;
1644: x_return_status := l_return_status;
1645: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1646: RAISE Fnd_Api.g_exc_error;
1641:
1642: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1643: x_msg_count := l_msg_count;
1644: x_return_status := l_return_status;
1645: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1646: RAISE Fnd_Api.g_exc_error;
1647: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1648: RAISE Fnd_Api.g_exc_unexpected_error;
1649: END IF;
1642: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1643: x_msg_count := l_msg_count;
1644: x_return_status := l_return_status;
1645: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1646: RAISE Fnd_Api.g_exc_error;
1647: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1648: RAISE Fnd_Api.g_exc_unexpected_error;
1649: END IF;
1650: END IF;
1643: x_msg_count := l_msg_count;
1644: x_return_status := l_return_status;
1645: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1646: RAISE Fnd_Api.g_exc_error;
1647: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1648: RAISE Fnd_Api.g_exc_unexpected_error;
1649: END IF;
1650: END IF;
1651: ELSE
1644: x_return_status := l_return_status;
1645: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1646: RAISE Fnd_Api.g_exc_error;
1647: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1648: RAISE Fnd_Api.g_exc_unexpected_error;
1649: END IF;
1650: END IF;
1651: ELSE
1652: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063 :: STARTS
1653: -- If tasks are added to a visit in below mentioned statuses, draft WOs should be automatically created for the visit tasks
1654: IF ((c_visit_rec.status_code IN ('PLANNING', 'PARTIALLY RELEASED', 'RELEASED')) AND (l_task_rec.task_type_code <> 'SUMMARY') AND (l_return_status='S')) THEN
1655: AHL_VWP_PROJ_PROD_PVT.plan_visit(
1656: p_api_version => l_api_version,
1657: p_init_msg_list => Fnd_Api.g_false,
1658: p_commit => Fnd_Api.g_false,
1659: p_validation_level => p_validation_level,
1660: -- SKPATHAK :: 16-JUL-2011 :: VWPE: ER:12730539
1661: -- If this API is called during creation of an unassociated task, then need to necessarily call RELEASE_VISIT, so passing UNA as module type
1654: IF ((c_visit_rec.status_code IN ('PLANNING', 'PARTIALLY RELEASED', 'RELEASED')) AND (l_task_rec.task_type_code <> 'SUMMARY') AND (l_return_status='S')) THEN
1655: AHL_VWP_PROJ_PROD_PVT.plan_visit(
1656: p_api_version => l_api_version,
1657: p_init_msg_list => Fnd_Api.g_false,
1658: p_commit => Fnd_Api.g_false,
1659: p_validation_level => p_validation_level,
1660: -- SKPATHAK :: 16-JUL-2011 :: VWPE: ER:12730539
1661: -- If this API is called during creation of an unassociated task, then need to necessarily call RELEASE_VISIT, so passing UNA as module type
1662: p_caller => 'UNA',
1670: L_DEBUG_KEY,
1671: 'After Calling AHL_VWP_PROJ_PROD_PVT.plan_visit. Return Status = ' || l_return_status );
1672: END IF;
1673:
1674: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1675: x_msg_count := l_msg_count;
1676: x_return_status := l_return_status;
1677: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1678: RAISE Fnd_Api.g_exc_error;
1673:
1674: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1675: x_msg_count := l_msg_count;
1676: x_return_status := l_return_status;
1677: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1678: RAISE Fnd_Api.g_exc_error;
1679: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1680: RAISE Fnd_Api.g_exc_unexpected_error;
1681: END IF;
1674: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1675: x_msg_count := l_msg_count;
1676: x_return_status := l_return_status;
1677: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1678: RAISE Fnd_Api.g_exc_error;
1679: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1680: RAISE Fnd_Api.g_exc_unexpected_error;
1681: END IF;
1682: END IF;
1675: x_msg_count := l_msg_count;
1676: x_return_status := l_return_status;
1677: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1678: RAISE Fnd_Api.g_exc_error;
1679: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1680: RAISE Fnd_Api.g_exc_unexpected_error;
1681: END IF;
1682: END IF;
1683: END IF;
1676: x_return_status := l_return_status;
1677: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1678: RAISE Fnd_Api.g_exc_error;
1679: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1680: RAISE Fnd_Api.g_exc_unexpected_error;
1681: END IF;
1682: END IF;
1683: END IF;
1684: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063 :: END
1767: IF (l_return_status = 'V') THEN
1768: x_msg_count := l_msg_count;
1769: x_return_status := l_return_status;
1770: -- Raise Expected Error if l_return_status is 'E'
1771: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
1772: x_msg_count := l_msg_count;
1773: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1774: RAISE Fnd_Api.G_EXC_ERROR;
1775: -- Raise Unexpected Error on all other cases
1769: x_return_status := l_return_status;
1770: -- Raise Expected Error if l_return_status is 'E'
1771: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
1772: x_msg_count := l_msg_count;
1773: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1774: RAISE Fnd_Api.G_EXC_ERROR;
1775: -- Raise Unexpected Error on all other cases
1776: ELSIF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
1777: x_msg_count := l_msg_count;
1770: -- Raise Expected Error if l_return_status is 'E'
1771: ELSIF l_return_status = Fnd_Api.G_RET_STS_ERROR THEN
1772: x_msg_count := l_msg_count;
1773: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1774: RAISE Fnd_Api.G_EXC_ERROR;
1775: -- Raise Unexpected Error on all other cases
1776: ELSIF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
1777: x_msg_count := l_msg_count;
1778: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1772: x_msg_count := l_msg_count;
1773: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1774: RAISE Fnd_Api.G_EXC_ERROR;
1775: -- Raise Unexpected Error on all other cases
1776: ELSIF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
1777: x_msg_count := l_msg_count;
1778: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1779: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1780: END IF;
1774: RAISE Fnd_Api.G_EXC_ERROR;
1775: -- Raise Unexpected Error on all other cases
1776: ELSIF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
1777: x_msg_count := l_msg_count;
1778: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1779: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1780: END IF;
1781:
1782: --Standard check for commit
1775: -- Raise Unexpected Error on all other cases
1776: ELSIF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
1777: x_msg_count := l_msg_count;
1778: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1779: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1780: END IF;
1781:
1782: --Standard check for commit
1783: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1779: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1780: END IF;
1781:
1782: --Standard check for commit
1783: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1784: COMMIT;
1785: END IF;
1786:
1787: IF (l_log_procedure >= l_log_current_level) THEN
1790: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
1791: END IF;
1792:
1793: EXCEPTION
1794: WHEN Fnd_Api.g_exc_error THEN
1795: ROLLBACK TO Create_Task;
1796: x_return_status := Fnd_Api.g_ret_sts_error;
1797: Fnd_Msg_Pub.count_and_get(
1798: p_encoded => Fnd_Api.g_false,
1792:
1793: EXCEPTION
1794: WHEN Fnd_Api.g_exc_error THEN
1795: ROLLBACK TO Create_Task;
1796: x_return_status := Fnd_Api.g_ret_sts_error;
1797: Fnd_Msg_Pub.count_and_get(
1798: p_encoded => Fnd_Api.g_false,
1799: p_count => x_msg_count,
1800: p_data => x_msg_data
1794: WHEN Fnd_Api.g_exc_error THEN
1795: ROLLBACK TO Create_Task;
1796: x_return_status := Fnd_Api.g_ret_sts_error;
1797: Fnd_Msg_Pub.count_and_get(
1798: p_encoded => Fnd_Api.g_false,
1799: p_count => x_msg_count,
1800: p_data => x_msg_data
1801: );
1802: WHEN Fnd_Api.g_exc_unexpected_error THEN
1798: p_encoded => Fnd_Api.g_false,
1799: p_count => x_msg_count,
1800: p_data => x_msg_data
1801: );
1802: WHEN Fnd_Api.g_exc_unexpected_error THEN
1803: ROLLBACK TO Create_Task;
1804: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1805: Fnd_Msg_Pub.count_and_get (
1806: p_encoded => Fnd_Api.g_false,
1800: p_data => x_msg_data
1801: );
1802: WHEN Fnd_Api.g_exc_unexpected_error THEN
1803: ROLLBACK TO Create_Task;
1804: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1805: Fnd_Msg_Pub.count_and_get (
1806: p_encoded => Fnd_Api.g_false,
1807: p_count => x_msg_count,
1808: p_data => x_msg_data
1802: WHEN Fnd_Api.g_exc_unexpected_error THEN
1803: ROLLBACK TO Create_Task;
1804: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1805: Fnd_Msg_Pub.count_and_get (
1806: p_encoded => Fnd_Api.g_false,
1807: p_count => x_msg_count,
1808: p_data => x_msg_data
1809: );
1810: WHEN OTHERS THEN
1808: p_data => x_msg_data
1809: );
1810: WHEN OTHERS THEN
1811: ROLLBACK TO Create_Task;
1812: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1813: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1814: THEN
1815: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1816: END IF;
1814: THEN
1815: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1816: END IF;
1817: Fnd_Msg_Pub.count_and_get (
1818: p_encoded => Fnd_Api.g_false,
1819: p_count => x_msg_count,
1820: p_data => x_msg_data
1821: );
1822: END Create_Task;
1828: -- To create Unassociated Task for the maintainance visit
1829: --------------------------------------------------------------------
1830: PROCEDURE Create_Unassociated_Task (
1831: p_api_version IN NUMBER,
1832: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1833: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1834: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1835: p_module_type IN VARCHAR2 := 'JSP',
1836: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
1829: --------------------------------------------------------------------
1830: PROCEDURE Create_Unassociated_Task (
1831: p_api_version IN NUMBER,
1832: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1833: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1834: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1835: p_module_type IN VARCHAR2 := 'JSP',
1836: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
1837: x_return_status OUT NOCOPY VARCHAR2,
1830: PROCEDURE Create_Unassociated_Task (
1831: p_api_version IN NUMBER,
1832: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1833: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1834: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1835: p_module_type IN VARCHAR2 := 'JSP',
1836: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
1837: x_return_status OUT NOCOPY VARCHAR2,
1838: x_msg_count OUT NOCOPY NUMBER,
1901:
1902: SAVEPOINT Create_Unassociated_Task;
1903:
1904: -- Initialize message list if p_init_msg_list is set to TRUE.
1905: IF Fnd_Api.to_boolean(p_init_msg_list)
1906: THEN
1907: Fnd_Msg_Pub.initialize;
1908: END IF;
1909:
1907: Fnd_Msg_Pub.initialize;
1908: END IF;
1909:
1910: -- Initialize API return status to success
1911: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1912:
1913: -- Standard call to check for call compatibility.
1914: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1915: p_api_version,
1910: -- Initialize API return status to success
1911: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1912:
1913: -- Standard call to check for call compatibility.
1914: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1915: p_api_version,
1916: l_api_name,G_PKG_NAME)
1917: THEN
1918: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1914: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1915: p_api_version,
1916: l_api_name,G_PKG_NAME)
1917: THEN
1918: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1919: END IF;
1920:
1921: -- PRAKKUM :: FP:PIE :: 13-OCT-2010 :: validate Service Type attributes
1922: AHL_VWP_RULES_PVT.Validate_Service_Type(
1948:
1949: IF c_visit_rec.status_code IN ('CLOSED','CANCELLED') THEN
1950: Fnd_Message.SET_NAME('AHL','AHL_VWP_NOT_USE_VISIT');
1951: Fnd_Msg_Pub.ADD;
1952: RAISE Fnd_Api.G_EXC_ERROR;
1953: /*
1954: Commented to fix bug # 4029318
1955: ELSIF c_visit_rec.status_code = 'RELEASED' OR c_visit_rec.status_code = 'PARTIALLY RELEASED' THEN
1956: Added the below condition for the call from Production for SR creation
1987: X_STAGE_ID => L_task_rec.STAGE_ID,
1988: X_RETURN_STATUS => l_return_status,
1989: x_error_msg_code => l_msg_data );
1990:
1991: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
1992: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_NOT_EXISTS');
1993: Fnd_Msg_Pub.ADD;
1994: RAISE Fnd_Api.G_EXC_ERROR;
1995: END IF;
1990:
1991: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
1992: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_NOT_EXISTS');
1993: Fnd_Msg_Pub.ADD;
1994: RAISE Fnd_Api.G_EXC_ERROR;
1995: END IF;
1996: --
1997: -- For ITEM
1998: -- Convert item name to item id
1996: --
1997: -- For ITEM
1998: -- Convert item name to item id
1999: IF (l_Task_rec.inventory_item_id IS NOT NULL AND
2000: l_Task_rec.inventory_item_id <> Fnd_Api.G_MISS_NUM) AND
2001: (l_Task_rec.item_organization_id IS NOT NULL AND
2002: l_Task_rec.item_organization_id <> Fnd_Api.G_MISS_NUM) THEN
2003:
2004: AHL_VWP_RULES_PVT.Check_Item_Name_Or_Id
1998: -- Convert item name to item id
1999: IF (l_Task_rec.inventory_item_id IS NOT NULL AND
2000: l_Task_rec.inventory_item_id <> Fnd_Api.G_MISS_NUM) AND
2001: (l_Task_rec.item_organization_id IS NOT NULL AND
2002: l_Task_rec.item_organization_id <> Fnd_Api.G_MISS_NUM) THEN
2003:
2004: AHL_VWP_RULES_PVT.Check_Item_Name_Or_Id
2005: (p_item_id => l_Task_rec.inventory_item_id,
2006: p_org_id => l_Task_rec.item_organization_id,
2010: x_item_name => l_item_name,
2011: x_return_status => l_return_status,
2012: x_error_msg_code => l_msg_data);
2013:
2014: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
2015: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_NOT_EXISTS');
2016: Fnd_Msg_Pub.ADD;
2017: RAISE Fnd_Api.G_EXC_ERROR;
2018: END IF;
2013:
2014: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
2015: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_NOT_EXISTS');
2016: Fnd_Msg_Pub.ADD;
2017: RAISE Fnd_Api.G_EXC_ERROR;
2018: END IF;
2019:
2020: IF UPPER(l_Task_rec.item_name) <> UPPER(l_item_name) THEN
2021: IF (l_log_statement >= l_log_current_level) THEN
2025: END IF;
2026:
2027: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_USE_LOV');
2028: Fnd_Msg_Pub.ADD;
2029: RAISE Fnd_Api.G_EXC_ERROR;
2030: END IF;
2031: ELSE
2032: IF (l_log_statement >= l_log_current_level) THEN
2033: fnd_log.string(l_log_statement,
2035: ': Check item else loop');
2036: END IF;
2037: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_USE_LOV');
2038: Fnd_Msg_Pub.ADD;
2039: RAISE Fnd_Api.G_EXC_ERROR;
2040: END IF;
2041:
2042: --Assign the returned value
2043: l_Task_rec.inventory_item_id := l_item_id;
2057: ----------- Start defining and validate all LOVs on Create Visit's Task UI Screen---
2058: --
2059: -- For DEPARTMENT
2060: -- Convert department name to department id
2061: IF (l_task_rec.dept_name IS NOT NULL AND l_task_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
2062:
2063: IF (l_log_statement >= l_log_current_level) THEN
2064: fnd_log.string(l_log_statement,
2065: L_DEBUG_KEY,
2073: x_department_id => l_department_id,
2074: x_return_status => l_return_status,
2075: x_error_msg_code => l_msg_data);
2076:
2077: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2078: THEN
2079: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
2080: Fnd_Msg_Pub.ADD;
2081: RAISE Fnd_Api.G_EXC_ERROR;
2077: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2078: THEN
2079: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
2080: Fnd_Msg_Pub.ADD;
2081: RAISE Fnd_Api.G_EXC_ERROR;
2082: END IF;
2083:
2084: -- Changes for Post 11.5.10 by amagrawa
2085: Ahl_vwp_rules_pvt.CHECK_DEPARTMENT_SHIFT
2085: Ahl_vwp_rules_pvt.CHECK_DEPARTMENT_SHIFT
2086: ( P_DEPT_ID => l_department_id,
2087: X_RETURN_STATUS => l_return_status);
2088:
2089: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
2090: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
2091: Fnd_Msg_Pub.ADD;
2092: RAISE Fnd_Api.G_EXC_ERROR;
2093: END IF;
2088:
2089: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
2090: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
2091: Fnd_Msg_Pub.ADD;
2092: RAISE Fnd_Api.G_EXC_ERROR;
2093: END IF;
2094: --Assign the returned value
2095: l_task_rec.department_id := l_department_id;
2096: END IF;
2103:
2104: -- For SERIAL NUMBER
2105: -- Convert serial number to instance/ serial id
2106: IF (l_Task_rec.serial_number IS NOT NULL AND
2107: l_Task_rec.serial_number <> Fnd_Api.G_MISS_CHAR) THEN
2108: IF (l_log_statement >= l_log_current_level) THEN
2109: fnd_log.string(l_log_statement,
2110: L_DEBUG_KEY,
2111: ': AHL_VWP_RULES_PVT.Check_Serial_Name_Or_Id ' );
2118: x_serial_id => l_serial_id,
2119: x_return_status => l_return_status,
2120: x_error_msg_code => l_msg_data);
2121:
2122: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
2123: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
2124: Fnd_Msg_Pub.ADD;
2125: RAISE Fnd_Api.G_EXC_ERROR;
2126: ELSE
2121:
2122: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
2123: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
2124: Fnd_Msg_Pub.ADD;
2125: RAISE Fnd_Api.G_EXC_ERROR;
2126: ELSE
2127: --Assign the returned value
2128: l_Task_rec.instance_id := l_serial_id;
2129:
2136: END IF;
2137: /* sowsubra - start
2138: --BEGIN: jeli added for bug 3777720
2139: IF (AHL_VWP_RULES_PVT.instance_in_config_tree(l_task_rec.visit_id, l_task_rec.instance_id)
2140: = FND_API.G_RET_STS_ERROR) THEN
2141: --END: jeli added for bug 3777720
2142: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
2143: Fnd_Msg_Pub.ADD;
2144: RAISE Fnd_Api.G_EXC_ERROR;
2140: = FND_API.G_RET_STS_ERROR) THEN
2141: --END: jeli added for bug 3777720
2142: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
2143: Fnd_Msg_Pub.ADD;
2144: RAISE Fnd_Api.G_EXC_ERROR;
2145: END IF;
2146: sowsubra - end */
2147: END IF;
2148: END IF;
2171:
2172: IF (l_Task_rec.QUANTITY is null) THEN
2173: Fnd_Message.SET_NAME('AHL','AHL_TASK_QTY_NULL');
2174: Fnd_Msg_Pub.ADD;
2175: RAISE Fnd_Api.G_EXC_ERROR;
2176: END IF;
2177:
2178: IF (l_Task_rec.QUANTITY <= 0) THEN
2179: Fnd_Message.SET_NAME('AHL','AHL_POSITIVE_TSK_QTY');
2177:
2178: IF (l_Task_rec.QUANTITY <= 0) THEN
2179: Fnd_Message.SET_NAME('AHL','AHL_POSITIVE_TSK_QTY');
2180: Fnd_Msg_Pub.ADD;
2181: RAISE Fnd_Api.G_EXC_ERROR;
2182: END IF;
2183:
2184: IF (l_Task_rec.QUANTITY > l_instance_qty ) THEN
2185: Fnd_Message.SET_NAME('AHL','AHL_INCORRECT_TSK_QTY');
2183:
2184: IF (l_Task_rec.QUANTITY > l_instance_qty ) THEN
2185: Fnd_Message.SET_NAME('AHL','AHL_INCORRECT_TSK_QTY');
2186: Fnd_Msg_Pub.ADD;
2187: RAISE Fnd_Api.G_EXC_ERROR;
2188: END IF;
2189: -- End changes by rnahata for Issue 105
2190:
2191: -- For COST PARENT TASK
2190:
2191: -- For COST PARENT TASK
2192: -- Convert cost parent number to id
2193: IF (l_Task_rec.cost_parent_number IS NOT NULL AND
2194: l_Task_rec.cost_parent_number <> Fnd_Api.G_MISS_NUM ) THEN
2195: IF (l_log_statement >= l_log_current_level) THEN
2196: fnd_log.string(l_log_statement,
2197: L_DEBUG_KEY,
2198: 'Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID ' );
2204: x_visit_task_id => l_cost_parent_id,
2205: x_return_status => l_return_status,
2206: x_error_msg_code => l_msg_data);
2207:
2208: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2209: THEN
2210: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
2211: Fnd_Msg_Pub.ADD;
2212: RAISE Fnd_Api.g_exc_error;
2208: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2209: THEN
2210: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
2211: Fnd_Msg_Pub.ADD;
2212: RAISE Fnd_Api.g_exc_error;
2213: END IF;
2214:
2215: --Assign the returned value
2216: l_Task_rec.cost_parent_id := l_cost_parent_id;
2223: END IF;
2224:
2225: -- To Check for cost parent task id not forming loop
2226: IF (l_Task_rec.cost_parent_id IS NOT NULL AND
2227: l_Task_rec.cost_parent_id <> Fnd_Api.G_MISS_NUM ) THEN
2228:
2229: IF (l_log_statement >= l_log_current_level) THEN
2230: fnd_log.string(l_log_statement,
2231: L_DEBUG_KEY,
2246:
2247: -- For ORIGINATING TASK
2248: -- Convert originating task number to id
2249: IF (l_Task_rec.orginating_task_number IS NOT NULL AND
2250: l_Task_rec.orginating_task_number <> Fnd_Api.G_MISS_NUM ) THEN
2251: IF (l_log_statement >= l_log_current_level) THEN
2252: fnd_log.string(l_log_statement,
2253: L_DEBUG_KEY,
2254: 'Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID ' );
2260: x_visit_task_id => l_originating_task_id,
2261: x_return_status => l_return_status,
2262: x_error_msg_code => l_msg_data);
2263:
2264: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2265: THEN
2266: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORIGINATING_NOT_EXISTS');
2267: Fnd_Msg_Pub.ADD;
2268: RAISE Fnd_Api.g_exc_error;
2264: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2265: THEN
2266: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORIGINATING_NOT_EXISTS');
2267: Fnd_Msg_Pub.ADD;
2268: RAISE Fnd_Api.g_exc_error;
2269: END IF;
2270: --Assign the returned value
2271: l_Task_rec.originating_task_id := l_originating_task_id;
2272: END IF;
2278: END IF;
2279:
2280: -- To Check for originating task id not forming loop
2281: IF (l_Task_rec.originating_task_id IS NOT NULL AND
2282: l_Task_rec.originating_task_id <> Fnd_Api.G_MISS_NUM ) THEN
2283:
2284: AHL_VWP_RULES_PVT.Check_Origin_Task_Loop
2285: (p_visit_id => l_Task_rec.visit_id ,
2286: p_visit_task_id => l_Task_rec.visit_task_id ,
2301: END IF;
2302: Validate_Visit_Task (
2303: p_api_version => l_api_version,
2304: p_init_msg_list => p_init_msg_list,
2305: p_commit => Fnd_Api.g_false,
2306: p_validation_level => p_validation_level,
2307: p_task_rec => l_task_rec,
2308: x_return_status => l_return_status,
2309: x_msg_count => x_msg_count,
2309: x_msg_count => x_msg_count,
2310: x_msg_data => x_msg_data
2311: );
2312:
2313: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2314: RAISE Fnd_Api.g_exc_error;
2315: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2316: RAISE Fnd_Api.g_exc_unexpected_error;
2317: END IF;
2310: x_msg_data => x_msg_data
2311: );
2312:
2313: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2314: RAISE Fnd_Api.g_exc_error;
2315: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2316: RAISE Fnd_Api.g_exc_unexpected_error;
2317: END IF;
2318: END IF;
2311: );
2312:
2313: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2314: RAISE Fnd_Api.g_exc_error;
2315: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2316: RAISE Fnd_Api.g_exc_unexpected_error;
2317: END IF;
2318: END IF;
2319: /* ELSE Commented to fix bug # 4029318 Senthil
2312:
2313: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2314: RAISE Fnd_Api.g_exc_error;
2315: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2316: RAISE Fnd_Api.g_exc_unexpected_error;
2317: END IF;
2318: END IF;
2319: /* ELSE Commented to fix bug # 4029318 Senthil
2320: -- TASK NAME ==== NAME
2317: END IF;
2318: END IF;
2319: /* ELSE Commented to fix bug # 4029318 Senthil
2320: -- TASK NAME ==== NAME
2321: IF (l_task_rec.visit_task_name IS NULL OR l_task_rec.visit_task_name = Fnd_Api.G_MISS_CHAR) THEN
2322: Fnd_Message.set_name ('AHL', 'AHL_VWP_NAME_MISSING');
2323: Fnd_Msg_Pub.ADD;
2324: RAISE Fnd_Api.g_exc_error;
2325: END IF;
2320: -- TASK NAME ==== NAME
2321: IF (l_task_rec.visit_task_name IS NULL OR l_task_rec.visit_task_name = Fnd_Api.G_MISS_CHAR) THEN
2322: Fnd_Message.set_name ('AHL', 'AHL_VWP_NAME_MISSING');
2323: Fnd_Msg_Pub.ADD;
2324: RAISE Fnd_Api.g_exc_error;
2325: END IF;
2326: END IF;
2327: */
2328: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063 :: STARTS
2326: END IF;
2327: */
2328: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063 :: STARTS
2329: -- If task id or task number is null, generate the same
2330: IF ((l_task_rec.visit_task_ID = Fnd_Api.g_miss_num ) OR (l_task_rec.visit_task_ID IS NULL)) THEN
2331: l_Visit_Task_ID := AHL_VWP_RULES_PVT.Get_Visit_Task_Id();
2332: l_task_rec.visit_task_ID := l_Visit_Task_ID;
2333: END IF;
2334:
2332: l_task_rec.visit_task_ID := l_Visit_Task_ID;
2333: END IF;
2334:
2335: -- Check for the Visit Number.
2336: IF ((l_task_rec.visit_task_number = Fnd_Api.g_miss_num ) OR (l_task_rec.visit_task_number IS NULL)) THEN
2337: l_task_number := AHL_VWP_RULES_PVT.Get_Visit_Task_Number(l_task_rec.visit_id);
2338: l_task_rec.visit_task_number := l_task_number;
2339: END IF;
2340: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063 :: ENDS
2458: l_return_status);
2459: END IF;
2460:
2461: l_msg_count := Fnd_Msg_Pub.count_msg;
2462: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
2463: x_msg_count := l_msg_count;
2464: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2465: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2466: END IF;
2460:
2461: l_msg_count := Fnd_Msg_Pub.count_msg;
2462: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
2463: x_msg_count := l_msg_count;
2464: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2465: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2466: END IF;
2467: -- salogan added for supplier warranty ends
2468:
2461: l_msg_count := Fnd_Msg_Pub.count_msg;
2462: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
2463: x_msg_count := l_msg_count;
2464: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2465: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2466: END IF;
2467: -- salogan added for supplier warranty ends
2468:
2469: -- Added cxcheng POST11510--------------
2476:
2477: -- SKPATHAK :: ER: 9147951 :: 11-JAN-2010 :: Call Adjust_Task_Times only if past date is null
2478: IF l_task_rec.PAST_TASK_START_DATE IS NULL THEN
2479: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
2480: p_init_msg_list => Fnd_Api.G_FALSE,
2481: p_commit => Fnd_Api.G_FALSE,
2482: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2483: x_return_status => l_return_status,
2484: x_msg_count => l_msg_count,
2477: -- SKPATHAK :: ER: 9147951 :: 11-JAN-2010 :: Call Adjust_Task_Times only if past date is null
2478: IF l_task_rec.PAST_TASK_START_DATE IS NULL THEN
2479: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
2480: p_init_msg_list => Fnd_Api.G_FALSE,
2481: p_commit => Fnd_Api.G_FALSE,
2482: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2483: x_return_status => l_return_status,
2484: x_msg_count => l_msg_count,
2485: x_msg_data => l_msg_data,
2478: IF l_task_rec.PAST_TASK_START_DATE IS NULL THEN
2479: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
2480: p_init_msg_list => Fnd_Api.G_FALSE,
2481: p_commit => Fnd_Api.G_FALSE,
2482: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2483: x_return_status => l_return_status,
2484: x_msg_count => l_msg_count,
2485: x_msg_data => l_msg_data,
2486: p_task_id => l_task_rec.visit_task_id);
2494:
2495: --Standard check to count messages
2496: l_msg_count := Fnd_Msg_Pub.count_msg;
2497:
2498: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2499: x_msg_count := l_msg_count;
2500: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2501: RAISE Fnd_Api.G_EXC_ERROR;
2502: END IF;
2496: l_msg_count := Fnd_Msg_Pub.count_msg;
2497:
2498: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2499: x_msg_count := l_msg_count;
2500: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2501: RAISE Fnd_Api.G_EXC_ERROR;
2502: END IF;
2503:
2504: -- set OUT value
2497:
2498: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2499: x_msg_count := l_msg_count;
2500: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2501: RAISE Fnd_Api.G_EXC_ERROR;
2502: END IF;
2503:
2504: -- set OUT value
2505: p_x_task_rec.Visit_Task_ID := l_task_rec.Visit_Task_ID;
2513: p_visit_id =>c_visit_rec.visit_id,
2514: p_flag =>'Y',
2515: x_return_status =>x_return_status);
2516:
2517: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2518: RAISE FND_API.G_EXC_ERROR;
2519: END IF;
2520: END IF;
2521:
2514: p_flag =>'Y',
2515: x_return_status =>x_return_status);
2516:
2517: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2518: RAISE FND_API.G_EXC_ERROR;
2519: END IF;
2520: END IF;
2521:
2522: IF (l_log_statement >= l_log_current_level) THEN
2540:
2541: AHL_VWP_PROJ_PROD_PVT.Add_Task_to_Project(
2542: p_api_version => l_api_version,
2543: p_init_msg_list => p_init_msg_list,
2544: p_commit => Fnd_Api.g_false,
2545: p_validation_level => p_validation_level,
2546: p_module_type => p_module_type,
2547: p_visit_task_id => l_task_rec.Visit_Task_ID,
2548: x_return_status => l_return_status,
2559: ---------------------------End of API Body---------------------------------------
2560: --Standard check to count messages
2561: l_msg_count := Fnd_Msg_Pub.count_msg;
2562:
2563: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2564: x_msg_count := l_msg_count;
2565: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2566: RAISE Fnd_Api.G_EXC_ERROR;
2567: END IF;
2561: l_msg_count := Fnd_Msg_Pub.count_msg;
2562:
2563: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2564: x_msg_count := l_msg_count;
2565: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2566: RAISE Fnd_Api.G_EXC_ERROR;
2567: END IF;
2568:
2569: --Standard check for commit
2562:
2563: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2564: x_msg_count := l_msg_count;
2565: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2566: RAISE Fnd_Api.G_EXC_ERROR;
2567: END IF;
2568:
2569: --Standard check for commit
2570: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2566: RAISE Fnd_Api.G_EXC_ERROR;
2567: END IF;
2568:
2569: --Standard check for commit
2570: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2571: COMMIT;
2572: END IF;
2573:
2574: IF (l_log_procedure >= l_log_current_level) THEN
2577: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
2578: END IF;
2579:
2580: EXCEPTION
2581: WHEN Fnd_Api.g_exc_error THEN
2582: ROLLBACK TO Create_Unassociated_Task;
2583: x_return_status := Fnd_Api.g_ret_sts_error;
2584: Fnd_Msg_Pub.count_and_get(
2585: p_encoded => Fnd_Api.g_false,
2579:
2580: EXCEPTION
2581: WHEN Fnd_Api.g_exc_error THEN
2582: ROLLBACK TO Create_Unassociated_Task;
2583: x_return_status := Fnd_Api.g_ret_sts_error;
2584: Fnd_Msg_Pub.count_and_get(
2585: p_encoded => Fnd_Api.g_false,
2586: p_count => x_msg_count,
2587: p_data => x_msg_data
2581: WHEN Fnd_Api.g_exc_error THEN
2582: ROLLBACK TO Create_Unassociated_Task;
2583: x_return_status := Fnd_Api.g_ret_sts_error;
2584: Fnd_Msg_Pub.count_and_get(
2585: p_encoded => Fnd_Api.g_false,
2586: p_count => x_msg_count,
2587: p_data => x_msg_data
2588: );
2589:
2586: p_count => x_msg_count,
2587: p_data => x_msg_data
2588: );
2589:
2590: WHEN Fnd_Api.g_exc_unexpected_error THEN
2591: ROLLBACK TO Create_Unassociated_Task;
2592: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2593: Fnd_Msg_Pub.count_and_get (
2594: p_encoded => Fnd_Api.g_false,
2588: );
2589:
2590: WHEN Fnd_Api.g_exc_unexpected_error THEN
2591: ROLLBACK TO Create_Unassociated_Task;
2592: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2593: Fnd_Msg_Pub.count_and_get (
2594: p_encoded => Fnd_Api.g_false,
2595: p_count => x_msg_count,
2596: p_data => x_msg_data
2590: WHEN Fnd_Api.g_exc_unexpected_error THEN
2591: ROLLBACK TO Create_Unassociated_Task;
2592: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2593: Fnd_Msg_Pub.count_and_get (
2594: p_encoded => Fnd_Api.g_false,
2595: p_count => x_msg_count,
2596: p_data => x_msg_data
2597: );
2598:
2597: );
2598:
2599: WHEN OTHERS THEN
2600: ROLLBACK TO Create_Unassociated_Task;
2601: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2602: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
2603: THEN
2604: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2605: END IF;
2603: THEN
2604: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2605: END IF;
2606: Fnd_Msg_Pub.count_and_get (
2607: p_encoded => Fnd_Api.g_false,
2608: p_count => x_msg_count,
2609: p_data => x_msg_data
2610: );
2611:
2618: -- To create Summary Task for the maintainance visit
2619: --------------------------------------------------------------------
2620: PROCEDURE Create_Summary_Task (
2621: p_api_version IN NUMBER,
2622: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2623: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2624: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2625: p_module_type IN VARCHAR2 := 'JSP',
2626: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
2619: --------------------------------------------------------------------
2620: PROCEDURE Create_Summary_Task (
2621: p_api_version IN NUMBER,
2622: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2623: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2624: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2625: p_module_type IN VARCHAR2 := 'JSP',
2626: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
2627: x_return_status OUT NOCOPY VARCHAR2,
2620: PROCEDURE Create_Summary_Task (
2621: p_api_version IN NUMBER,
2622: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2623: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2624: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2625: p_module_type IN VARCHAR2 := 'JSP',
2626: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
2627: x_return_status OUT NOCOPY VARCHAR2,
2628: x_msg_count OUT NOCOPY NUMBER,
2679:
2680: SAVEPOINT Create_Summary_Task;
2681:
2682: -- Initialize message list if p_init_msg_list is set to TRUE.
2683: IF Fnd_Api.to_boolean(p_init_msg_list)
2684: THEN
2685: Fnd_Msg_Pub.initialize;
2686: END IF;
2687:
2685: Fnd_Msg_Pub.initialize;
2686: END IF;
2687:
2688: -- Initialize API return status to success
2689: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2690:
2691: -- Standard call to check for call compatibility.
2692: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2693: p_api_version,
2688: -- Initialize API return status to success
2689: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2690:
2691: -- Standard call to check for call compatibility.
2692: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2693: p_api_version,
2694: l_api_name,G_PKG_NAME)
2695: THEN
2696: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2692: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2693: p_api_version,
2694: l_api_name,G_PKG_NAME)
2695: THEN
2696: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2697: END IF;
2698:
2699: --------------------Value OR ID conversion---------------------------
2700: --Start API Body
2720:
2721: IF c_visit_rec.status_code IN ('CLOSED','CANCELLED') THEN
2722: Fnd_Message.SET_NAME('AHL','AHL_VWP_NOT_USE_VISIT');
2723: Fnd_Msg_Pub.ADD;
2724: RAISE Fnd_Api.G_EXC_ERROR;
2725: ELSE
2726: ----------- Start defining and validate all LOVs on Create Visit's Task UI Screen---
2727: --
2728: -- For DEPARTMENT
2726: ----------- Start defining and validate all LOVs on Create Visit's Task UI Screen---
2727: --
2728: -- For DEPARTMENT
2729: -- Convert department name to department id
2730: IF (l_task_rec.dept_name IS NOT NULL AND l_task_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
2731: IF (l_log_statement >= l_log_current_level) THEN
2732: fnd_log.string(l_log_statement,
2733: L_DEBUG_KEY,
2734: 'Calling AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id ');
2740: x_department_id => l_department_id,
2741: x_return_status => l_return_status,
2742: x_error_msg_code => l_msg_data);
2743:
2744: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2745: THEN
2746: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
2747: Fnd_Msg_Pub.ADD;
2748: RAISE Fnd_Api.G_EXC_ERROR;
2744: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2745: THEN
2746: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
2747: Fnd_Msg_Pub.ADD;
2748: RAISE Fnd_Api.G_EXC_ERROR;
2749: END IF;
2750:
2751: -- Changes for Post 11.5.10 by amagrawa
2752: Ahl_vwp_rules_pvt.CHECK_DEPARTMENT_SHIFT
2752: Ahl_vwp_rules_pvt.CHECK_DEPARTMENT_SHIFT
2753: ( P_DEPT_ID => l_department_id,
2754: X_RETURN_STATUS => l_return_status);
2755:
2756: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
2757: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
2758: Fnd_Msg_Pub.ADD;
2759: RAISE Fnd_Api.G_EXC_ERROR;
2760: END IF;
2755:
2756: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
2757: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
2758: Fnd_Msg_Pub.ADD;
2759: RAISE Fnd_Api.G_EXC_ERROR;
2760: END IF;
2761:
2762: --Assign the returned value
2763: l_task_rec.department_id := l_department_id;
2776: -- For ITEM
2777: -- Convert item name to item id
2778:
2779: IF (l_Task_rec.inventory_item_id IS NOT NULL AND
2780: l_Task_rec.inventory_item_id <> Fnd_Api.G_MISS_NUM) AND
2781: (l_Task_rec.item_organization_id IS NOT NULL AND
2782: l_Task_rec.item_organization_id <> Fnd_Api.G_MISS_NUM) THEN
2783:
2784: IF (l_log_statement >= l_log_current_level) THEN
2778:
2779: IF (l_Task_rec.inventory_item_id IS NOT NULL AND
2780: l_Task_rec.inventory_item_id <> Fnd_Api.G_MISS_NUM) AND
2781: (l_Task_rec.item_organization_id IS NOT NULL AND
2782: l_Task_rec.item_organization_id <> Fnd_Api.G_MISS_NUM) THEN
2783:
2784: IF (l_log_statement >= l_log_current_level) THEN
2785: fnd_log.string(l_log_statement,
2786: L_DEBUG_KEY,
2795: x_item_name => l_item_name,
2796: x_return_status => l_return_status,
2797: x_error_msg_code => l_msg_data);
2798:
2799: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2800: THEN
2801: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_NOT_EXISTS');
2802: Fnd_Msg_Pub.ADD;
2803: RAISE Fnd_Api.G_EXC_ERROR;
2799: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2800: THEN
2801: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_NOT_EXISTS');
2802: Fnd_Msg_Pub.ADD;
2803: RAISE Fnd_Api.G_EXC_ERROR;
2804: END IF;
2805:
2806: IF UPPER(l_Task_rec.item_name) <> UPPER(l_item_name) THEN
2807: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_USE_LOV');
2805:
2806: IF UPPER(l_Task_rec.item_name) <> UPPER(l_item_name) THEN
2807: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_USE_LOV');
2808: Fnd_Msg_Pub.ADD;
2809: RAISE Fnd_Api.G_EXC_ERROR;
2810: END IF;
2811:
2812: --Assign the returned value
2813: l_Task_rec.inventory_item_id := l_item_id;
2817: Post 11.5.10 Changes done by Senthil.
2818: ELSE
2819: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_USE_LOV');
2820: Fnd_Msg_Pub.ADD;
2821: RAISE Fnd_Api.G_EXC_ERROR;
2822: */
2823:
2824: ELSE
2825: -- bug fix #4181411
2824: ELSE
2825: -- bug fix #4181411
2826: -- yazhou 17-Feb-2005
2827: IF (c_visit_rec.inventory_item_id IS NOT NULL AND
2828: c_visit_rec.inventory_item_id <> Fnd_Api.G_MISS_NUM) AND
2829: (c_visit_rec.item_organization_id IS NOT NULL AND
2830: c_visit_rec.item_organization_id <> Fnd_Api.G_MISS_NUM) THEN
2831:
2832: l_Task_rec.inventory_item_id := c_visit_rec.inventory_item_id;
2826: -- yazhou 17-Feb-2005
2827: IF (c_visit_rec.inventory_item_id IS NOT NULL AND
2828: c_visit_rec.inventory_item_id <> Fnd_Api.G_MISS_NUM) AND
2829: (c_visit_rec.item_organization_id IS NOT NULL AND
2830: c_visit_rec.item_organization_id <> Fnd_Api.G_MISS_NUM) THEN
2831:
2832: l_Task_rec.inventory_item_id := c_visit_rec.inventory_item_id;
2833: l_Task_rec.item_organization_id := c_visit_rec.item_organization_id;
2834: ELSE
2838: IF get_task_inst_dtls%NOTFOUND THEN
2839: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUM_TASK_ITEM');
2840: Fnd_Msg_Pub.ADD;
2841: CLOSE get_task_inst_dtls;
2842: RAISE Fnd_Api.G_EXC_ERROR;
2843: END IF;
2844:
2845: l_Task_rec.inventory_item_id := get_task_inst_rec.inventory_item_id;
2846: l_Task_rec.item_organization_id := get_task_inst_rec.item_organization_id;
2862:
2863: -- For SERIAL NUMBER
2864: -- Convert serial number to instance/ serial id
2865: IF (l_Task_rec.serial_number IS NOT NULL AND
2866: l_Task_rec.serial_number <> Fnd_Api.G_MISS_CHAR) THEN
2867:
2868: AHL_VWP_RULES_PVT.Check_Serial_Name_Or_Id
2869: (p_item_id => l_Task_rec.inventory_item_id,
2870: p_org_id => l_Task_rec.item_organization_id,
2873: x_serial_id => l_serial_id,
2874: x_return_status => l_return_status,
2875: x_error_msg_code => l_msg_data);
2876:
2877: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
2878: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
2879: Fnd_Msg_Pub.ADD;
2880: RAISE Fnd_Api.G_EXC_ERROR;
2881: ELSE
2876:
2877: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
2878: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
2879: Fnd_Msg_Pub.ADD;
2880: RAISE Fnd_Api.G_EXC_ERROR;
2881: ELSE
2882: --Assign the returned value
2883: l_Task_rec.instance_id := l_serial_id;
2884:
2890: ', Org ID= ' || l_Task_rec.item_organization_id);
2891: END IF;
2892: /* sowsubra - start
2893: --BEGIN: jeli added for bug 3777720
2894: IF (AHL_VWP_RULES_PVT.instance_in_config_tree(l_task_rec.visit_id, l_task_rec.instance_id) = FND_API.G_RET_STS_ERROR) THEN
2895: --END: jeli added for bug 3777720
2896: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
2897: Fnd_Msg_Pub.ADD;
2898: RAISE Fnd_Api.G_EXC_ERROR;
2894: IF (AHL_VWP_RULES_PVT.instance_in_config_tree(l_task_rec.visit_id, l_task_rec.instance_id) = FND_API.G_RET_STS_ERROR) THEN
2895: --END: jeli added for bug 3777720
2896: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
2897: Fnd_Msg_Pub.ADD;
2898: RAISE Fnd_Api.G_EXC_ERROR;
2899: END IF;
2900: sowsubra - end */
2901: END IF;
2902: END IF;
2911: --
2912: -- For COST PARENT TASK
2913: -- Convert cost parent number to id
2914: IF (l_Task_rec.cost_parent_number IS NOT NULL AND
2915: l_Task_rec.cost_parent_number <> Fnd_Api.G_MISS_NUM ) THEN
2916:
2917: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
2918: (p_visit_task_id => l_Task_rec.cost_parent_id,
2919: p_visit_task_number => l_Task_rec.cost_parent_number,
2921: x_visit_task_id => l_cost_parent_id,
2922: x_return_status => l_return_status,
2923: x_error_msg_code => l_msg_data);
2924:
2925: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2926: THEN
2927: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
2928: Fnd_Msg_Pub.ADD;
2929: RAISE Fnd_Api.g_exc_error;
2925: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2926: THEN
2927: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
2928: Fnd_Msg_Pub.ADD;
2929: RAISE Fnd_Api.g_exc_error;
2930: END IF;
2931:
2932: --Assign the returned value
2933: l_Task_rec.cost_parent_id := l_cost_parent_id;
2940: END IF;
2941:
2942: -- To Check for cost parent task id not forming loop
2943: IF (l_Task_rec.cost_parent_id IS NOT NULL AND
2944: l_Task_rec.cost_parent_id <> Fnd_Api.G_MISS_NUM ) THEN
2945:
2946: AHL_VWP_RULES_PVT.Check_Cost_Parent_Loop
2947: (p_visit_id => l_Task_rec.visit_id,
2948: p_visit_task_id => l_Task_rec.visit_task_id ,
2960: --
2961: -- For ORIGINATING TASK
2962: -- Convert originating task number to id
2963: IF (l_Task_rec.orginating_task_number IS NOT NULL AND
2964: l_Task_rec.orginating_task_number <> Fnd_Api.G_MISS_NUM ) THEN
2965:
2966: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
2967: (p_visit_task_id => l_Task_rec.originating_task_id,
2968: p_visit_task_number => l_Task_rec.orginating_task_number,
2970: x_visit_task_id => l_originating_task_id,
2971: x_return_status => l_return_status,
2972: x_error_msg_code => l_msg_data);
2973:
2974: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2975: THEN
2976: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORIGINATING_NOT_EXISTS');
2977: Fnd_Msg_Pub.ADD;
2978: RAISE Fnd_Api.g_exc_error;
2974: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2975: THEN
2976: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORIGINATING_NOT_EXISTS');
2977: Fnd_Msg_Pub.ADD;
2978: RAISE Fnd_Api.g_exc_error;
2979: END IF;
2980:
2981: --Assign the returned value
2982: l_Task_rec.originating_task_id := l_originating_task_id;
2989: END IF;
2990:
2991: -- To Check for originating task id not forming loop
2992: IF (l_Task_rec.originating_task_id IS NOT NULL AND
2993: l_Task_rec.originating_task_id <> Fnd_Api.G_MISS_NUM ) THEN
2994:
2995: AHL_VWP_RULES_PVT.Check_Origin_Task_Loop
2996: (p_visit_id => l_Task_rec.visit_id ,
2997: p_visit_task_id => l_Task_rec.visit_task_id ,
3001: END IF;
3002:
3003: -- Validate target quantity
3004: IF (l_Task_rec.target_qty IS NOT NULL AND
3005: l_Task_rec.target_qty <> Fnd_Api.G_MISS_NUM AND
3006: l_Task_rec.target_qty < 0) THEN
3007: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_CMP_TARGET_QTY_INVLD');
3008: FND_MSG_PUB.add;
3009: RAISE FND_API.G_EXC_ERROR;
3005: l_Task_rec.target_qty <> Fnd_Api.G_MISS_NUM AND
3006: l_Task_rec.target_qty < 0) THEN
3007: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_CMP_TARGET_QTY_INVLD');
3008: FND_MSG_PUB.add;
3009: RAISE FND_API.G_EXC_ERROR;
3010: END IF;
3011: ----------- End defining and validate all LOVs on Create Visit's Task UI Screen---
3012:
3013: ---------------------------------------------- Validate ----------------------------------------------
3020:
3021: Validate_Visit_Task (
3022: p_api_version => l_api_version,
3023: p_init_msg_list => p_init_msg_list,
3024: p_commit => Fnd_Api.g_false,
3025: p_validation_level => p_validation_level,
3026: p_task_rec => l_task_rec,
3027: x_return_status => l_return_status,
3028: x_msg_count => x_msg_count,
3028: x_msg_count => x_msg_count,
3029: x_msg_data => x_msg_data
3030: );
3031:
3032: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3033: RAISE Fnd_Api.g_exc_error;
3034: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3035: RAISE Fnd_Api.g_exc_unexpected_error;
3036: END IF;
3029: x_msg_data => x_msg_data
3030: );
3031:
3032: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3033: RAISE Fnd_Api.g_exc_error;
3034: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3035: RAISE Fnd_Api.g_exc_unexpected_error;
3036: END IF;
3037:
3030: );
3031:
3032: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3033: RAISE Fnd_Api.g_exc_error;
3034: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3035: RAISE Fnd_Api.g_exc_unexpected_error;
3036: END IF;
3037:
3038: -- Check for the ID.
3031:
3032: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
3033: RAISE Fnd_Api.g_exc_error;
3034: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
3035: RAISE Fnd_Api.g_exc_unexpected_error;
3036: END IF;
3037:
3038: -- Check for the ID.
3039: IF l_task_rec.Visit_Task_ID = Fnd_Api.g_miss_num OR l_task_rec.Visit_Task_ID IS NULL THEN
3035: RAISE Fnd_Api.g_exc_unexpected_error;
3036: END IF;
3037:
3038: -- Check for the ID.
3039: IF l_task_rec.Visit_Task_ID = Fnd_Api.g_miss_num OR l_task_rec.Visit_Task_ID IS NULL THEN
3040: -- Check for the ID.
3041: l_Visit_Task_ID := AHL_VWP_RULES_PVT.Get_Visit_Task_Id();
3042: l_task_rec.visit_task_ID := l_Visit_Task_ID;
3043:
3043:
3044: END IF;
3045:
3046: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063 :: Check for the Task Number
3047: IF l_task_rec.visit_task_number = Fnd_Api.g_miss_num OR l_task_rec.visit_task_number IS NULL THEN
3048: l_task_number := AHL_VWP_RULES_PVT.Get_Visit_Task_Number(l_task_rec.visit_id);
3049: l_task_rec.visit_task_number := l_task_number;
3050: END IF;
3051:
3180: l_return_status);
3181: END IF;
3182:
3183: l_msg_count := Fnd_Msg_Pub.count_msg;
3184: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
3185: x_msg_count := l_msg_count;
3186: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3187: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3188: END IF;
3182:
3183: l_msg_count := Fnd_Msg_Pub.count_msg;
3184: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
3185: x_msg_count := l_msg_count;
3186: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3187: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3188: END IF;
3189: -- salogan added for supplier warranty ends
3190:
3183: l_msg_count := Fnd_Msg_Pub.count_msg;
3184: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
3185: x_msg_count := l_msg_count;
3186: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3187: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3188: END IF;
3189: -- salogan added for supplier warranty ends
3190:
3191: -- Added cxcheng POST11510--------------
3196: 'Before Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times' );
3197: END IF;
3198:
3199: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
3200: p_init_msg_list => Fnd_Api.G_FALSE,
3201: p_commit => Fnd_Api.G_FALSE,
3202: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3203: x_return_status => l_return_status,
3204: x_msg_count => l_msg_count,
3197: END IF;
3198:
3199: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
3200: p_init_msg_list => Fnd_Api.G_FALSE,
3201: p_commit => Fnd_Api.G_FALSE,
3202: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3203: x_return_status => l_return_status,
3204: x_msg_count => l_msg_count,
3205: x_msg_data => l_msg_data,
3198:
3199: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
3200: p_init_msg_list => Fnd_Api.G_FALSE,
3201: p_commit => Fnd_Api.G_FALSE,
3202: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3203: x_return_status => l_return_status,
3204: x_msg_count => l_msg_count,
3205: x_msg_data => l_msg_data,
3206: p_task_id => l_task_rec.visit_task_id);
3213:
3214: --Standard check to count messages
3215: l_msg_count := Fnd_Msg_Pub.count_msg;
3216:
3217: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3218: x_msg_count := l_msg_count;
3219: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3220: RAISE Fnd_Api.G_EXC_ERROR;
3221: END IF;
3215: l_msg_count := Fnd_Msg_Pub.count_msg;
3216:
3217: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3218: x_msg_count := l_msg_count;
3219: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3220: RAISE Fnd_Api.G_EXC_ERROR;
3221: END IF;
3222:
3223: -- set OUT value
3216:
3217: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3218: x_msg_count := l_msg_count;
3219: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3220: RAISE Fnd_Api.G_EXC_ERROR;
3221: END IF;
3222:
3223: -- set OUT value
3224: p_x_task_rec.Visit_Task_ID := l_task_rec.Visit_Task_ID;
3230: AHL_VWP_RULES_PVT.update_visit_task_flag(
3231: p_visit_id =>c_visit_rec.visit_id,
3232: p_flag =>'Y',
3233: x_return_status =>x_return_status);
3234: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3235: RAISE FND_API.G_EXC_ERROR;
3236: END IF;
3237: END IF;
3238:
3231: p_visit_id =>c_visit_rec.visit_id,
3232: p_flag =>'Y',
3233: x_return_status =>x_return_status);
3234: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3235: RAISE FND_API.G_EXC_ERROR;
3236: END IF;
3237: END IF;
3238:
3239: IF (l_log_statement >= l_log_current_level) THEN
3250: l_msg_count := Fnd_Msg_Pub.count_msg;
3251:
3252: IF l_msg_count > 0 THEN
3253: x_msg_count := l_msg_count;
3254: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3255: RAISE Fnd_Api.G_EXC_ERROR;
3256: END IF;
3257:
3258: --Standard check for commit
3251:
3252: IF l_msg_count > 0 THEN
3253: x_msg_count := l_msg_count;
3254: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3255: RAISE Fnd_Api.G_EXC_ERROR;
3256: END IF;
3257:
3258: --Standard check for commit
3259: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
3255: RAISE Fnd_Api.G_EXC_ERROR;
3256: END IF;
3257:
3258: --Standard check for commit
3259: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
3260: COMMIT;
3261: END IF;
3262:
3263: IF (l_log_procedure >= l_log_current_level) THEN
3265: L_DEBUG_KEY ||'.end',
3266: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
3267: END IF;
3268: EXCEPTION
3269: WHEN Fnd_Api.g_exc_error THEN
3270: ROLLBACK TO Create_Summary_Task;
3271: x_return_status := Fnd_Api.g_ret_sts_error;
3272: Fnd_Msg_Pub.count_and_get(
3273: p_encoded => Fnd_Api.g_false,
3267: END IF;
3268: EXCEPTION
3269: WHEN Fnd_Api.g_exc_error THEN
3270: ROLLBACK TO Create_Summary_Task;
3271: x_return_status := Fnd_Api.g_ret_sts_error;
3272: Fnd_Msg_Pub.count_and_get(
3273: p_encoded => Fnd_Api.g_false,
3274: p_count => x_msg_count,
3275: p_data => x_msg_data
3269: WHEN Fnd_Api.g_exc_error THEN
3270: ROLLBACK TO Create_Summary_Task;
3271: x_return_status := Fnd_Api.g_ret_sts_error;
3272: Fnd_Msg_Pub.count_and_get(
3273: p_encoded => Fnd_Api.g_false,
3274: p_count => x_msg_count,
3275: p_data => x_msg_data
3276: );
3277: WHEN Fnd_Api.g_exc_unexpected_error THEN
3273: p_encoded => Fnd_Api.g_false,
3274: p_count => x_msg_count,
3275: p_data => x_msg_data
3276: );
3277: WHEN Fnd_Api.g_exc_unexpected_error THEN
3278: ROLLBACK TO Create_Summary_Task;
3279: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3280: Fnd_Msg_Pub.count_and_get (
3281: p_encoded => Fnd_Api.g_false,
3275: p_data => x_msg_data
3276: );
3277: WHEN Fnd_Api.g_exc_unexpected_error THEN
3278: ROLLBACK TO Create_Summary_Task;
3279: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3280: Fnd_Msg_Pub.count_and_get (
3281: p_encoded => Fnd_Api.g_false,
3282: p_count => x_msg_count,
3283: p_data => x_msg_data
3277: WHEN Fnd_Api.g_exc_unexpected_error THEN
3278: ROLLBACK TO Create_Summary_Task;
3279: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3280: Fnd_Msg_Pub.count_and_get (
3281: p_encoded => Fnd_Api.g_false,
3282: p_count => x_msg_count,
3283: p_data => x_msg_data
3284: );
3285: WHEN OTHERS THEN
3283: p_data => x_msg_data
3284: );
3285: WHEN OTHERS THEN
3286: ROLLBACK TO Create_Summary_Task;
3287: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3288: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3289: THEN
3290: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3291: END IF;
3289: THEN
3290: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3291: END IF;
3292: Fnd_Msg_Pub.count_and_get (
3293: p_encoded => Fnd_Api.g_false,
3294: p_count => x_msg_count,
3295: p_data => x_msg_data
3296: );
3297: END Create_Summary_Task;
3304: -- To update all types of tasks i.e Unassociated/Summary/Unplanned/Planned Tasks.
3305: --------------------------------------------------------------------
3306: PROCEDURE Update_Task (
3307: p_api_version IN NUMBER,
3308: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3309: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3310: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3311: p_module_type IN VARCHAR2 := 'JSP',
3312: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
3305: --------------------------------------------------------------------
3306: PROCEDURE Update_Task (
3307: p_api_version IN NUMBER,
3308: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3309: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3310: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3311: p_module_type IN VARCHAR2 := 'JSP',
3312: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
3313: x_return_status OUT NOCOPY VARCHAR2,
3306: PROCEDURE Update_Task (
3307: p_api_version IN NUMBER,
3308: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3309: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3310: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3311: p_module_type IN VARCHAR2 := 'JSP',
3312: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
3313: x_return_status OUT NOCOPY VARCHAR2,
3314: x_msg_count OUT NOCOPY NUMBER,
3353:
3354: --------------------- initialize -----------------------
3355: SAVEPOINT Update_Task;
3356:
3357: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
3358: Fnd_Msg_Pub.initialize;
3359: END IF;
3360:
3361: -- Initialize API return status to success
3358: Fnd_Msg_Pub.initialize;
3359: END IF;
3360:
3361: -- Initialize API return status to success
3362: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3363:
3364: -- Standard call to check for call compatibility.
3365: IF NOT Fnd_Api.compatible_api_call(
3366: l_api_version,
3361: -- Initialize API return status to success
3362: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3363:
3364: -- Standard call to check for call compatibility.
3365: IF NOT Fnd_Api.compatible_api_call(
3366: l_api_version,
3367: p_api_version,
3368: l_api_name,
3369: G_PKG_NAME
3367: p_api_version,
3368: l_api_name,
3369: G_PKG_NAME
3370: ) THEN
3371: RAISE Fnd_Api.g_exc_unexpected_error;
3372: END IF;
3373: --------------------Start of API Body-----------------------------------
3374:
3375: -------------------Cursor values------------------------------------
3391: END IF;
3392:
3393:
3394: IF (l_task_rec.PAST_TASK_START_DATE IS NOT NULL
3395: AND l_task_rec.PAST_TASK_START_DATE <> Fnd_Api.G_MISS_DATE) THEN
3396: IF (l_task_rec.PAST_TASK_END_DATE IS NULL
3397: OR l_task_rec.PAST_TASK_START_DATE = Fnd_Api.G_MISS_DATE) THEN
3398: -- if start date is entered but not end date, throw error
3399: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
3393:
3394: IF (l_task_rec.PAST_TASK_START_DATE IS NOT NULL
3395: AND l_task_rec.PAST_TASK_START_DATE <> Fnd_Api.G_MISS_DATE) THEN
3396: IF (l_task_rec.PAST_TASK_END_DATE IS NULL
3397: OR l_task_rec.PAST_TASK_START_DATE = Fnd_Api.G_MISS_DATE) THEN
3398: -- if start date is entered but not end date, throw error
3399: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
3400: Fnd_Msg_Pub.ADD;
3401: RAISE FND_API.G_EXC_ERROR;
3397: OR l_task_rec.PAST_TASK_START_DATE = Fnd_Api.G_MISS_DATE) THEN
3398: -- if start date is entered but not end date, throw error
3399: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
3400: Fnd_Msg_Pub.ADD;
3401: RAISE FND_API.G_EXC_ERROR;
3402: END IF;
3403: IF (l_Task_rec.PAST_TASK_START_DATE >= SYSDATE) THEN
3404: -- Throw error if start date is not in past
3405: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_PAST_ST_DATE_INV');
3403: IF (l_Task_rec.PAST_TASK_START_DATE >= SYSDATE) THEN
3404: -- Throw error if start date is not in past
3405: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_PAST_ST_DATE_INV');
3406: Fnd_Msg_Pub.ADD;
3407: RAISE FND_API.G_EXC_ERROR;
3408: END IF;
3409: IF (l_task_rec.PAST_TASK_START_DATE < NVL(c_visit_rec.START_DATE_TIME, l_task_rec.PAST_TASK_START_DATE)) THEN
3410: -- Throw error if past task start date is before the visit start date
3411: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_START_DATE_INVLD');
3409: IF (l_task_rec.PAST_TASK_START_DATE < NVL(c_visit_rec.START_DATE_TIME, l_task_rec.PAST_TASK_START_DATE)) THEN
3410: -- Throw error if past task start date is before the visit start date
3411: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_START_DATE_INVLD');
3412: Fnd_Msg_Pub.ADD;
3413: RAISE FND_API.G_EXC_ERROR;
3414: END IF;
3415: IF (l_task_rec.PAST_TASK_START_DATE > l_task_rec.PAST_TASK_END_DATE) THEN
3416: -- Throw error if past task start date is after the past task end date
3417: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_INVLD');
3415: IF (l_task_rec.PAST_TASK_START_DATE > l_task_rec.PAST_TASK_END_DATE) THEN
3416: -- Throw error if past task start date is after the past task end date
3417: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_INVLD');
3418: Fnd_Msg_Pub.ADD;
3419: RAISE FND_API.G_EXC_ERROR;
3420: END IF;
3421: IF (l_Task_rec.PAST_TASK_END_DATE > NVL(c_visit_rec.CLOSE_DATE_TIME, l_Task_rec.PAST_TASK_END_DATE)) THEN
3422: -- Throw error if visit ends before the task
3423: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_END_DATE_INVLD');
3421: IF (l_Task_rec.PAST_TASK_END_DATE > NVL(c_visit_rec.CLOSE_DATE_TIME, l_Task_rec.PAST_TASK_END_DATE)) THEN
3422: -- Throw error if visit ends before the task
3423: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_END_DATE_INVLD');
3424: Fnd_Msg_Pub.ADD;
3425: RAISE FND_API.G_EXC_ERROR;
3426: END IF;
3427: -- Validate past dates against visit stages, task hierarchy and cost parent hierarchy
3428: AHL_VWP_RULES_PVT.Validate_Past_Task_Dates ( p_task_rec => l_Task_rec,
3429: x_return_status => l_return_status);
3426: END IF;
3427: -- Validate past dates against visit stages, task hierarchy and cost parent hierarchy
3428: AHL_VWP_RULES_PVT.Validate_Past_Task_Dates ( p_task_rec => l_Task_rec,
3429: x_return_status => l_return_status);
3430: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3431: IF (l_log_statement >= l_log_current_level) THEN
3432: fnd_log.string(l_log_statement,
3433: L_DEBUG_KEY,
3434: 'Returned success from AHL_VWP_RULES_PVT.Validate_Past_Task_Dates');
3432: fnd_log.string(l_log_statement,
3433: L_DEBUG_KEY,
3434: 'Returned success from AHL_VWP_RULES_PVT.Validate_Past_Task_Dates');
3435: END IF;
3436: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3437: RAISE FND_API.G_EXC_ERROR;
3438: ELSE
3439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3440: END IF;
3433: L_DEBUG_KEY,
3434: 'Returned success from AHL_VWP_RULES_PVT.Validate_Past_Task_Dates');
3435: END IF;
3436: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3437: RAISE FND_API.G_EXC_ERROR;
3438: ELSE
3439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3440: END IF;
3441: ELSE -- PAST_TASK_START_DATE is null
3435: END IF;
3436: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3437: RAISE FND_API.G_EXC_ERROR;
3438: ELSE
3439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3440: END IF;
3441: ELSE -- PAST_TASK_START_DATE is null
3442: -- SKPATHAK :: Bug #9402279 :: 24-FEB-2010
3443: -- Changed the condition from l_task_rec.PAST_TASK_START_DATE <> Fnd_Api.G_MISS_DATE
3439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3440: END IF;
3441: ELSE -- PAST_TASK_START_DATE is null
3442: -- SKPATHAK :: Bug #9402279 :: 24-FEB-2010
3443: -- Changed the condition from l_task_rec.PAST_TASK_START_DATE <> Fnd_Api.G_MISS_DATE
3444: -- to l_task_rec.PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE
3445: IF (l_Task_rec.PAST_TASK_END_DATE IS NOT NULL
3446: AND l_Task_rec.PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE) THEN
3447: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
3440: END IF;
3441: ELSE -- PAST_TASK_START_DATE is null
3442: -- SKPATHAK :: Bug #9402279 :: 24-FEB-2010
3443: -- Changed the condition from l_task_rec.PAST_TASK_START_DATE <> Fnd_Api.G_MISS_DATE
3444: -- to l_task_rec.PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE
3445: IF (l_Task_rec.PAST_TASK_END_DATE IS NOT NULL
3446: AND l_Task_rec.PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE) THEN
3447: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
3448: Fnd_Msg_Pub.ADD;
3442: -- SKPATHAK :: Bug #9402279 :: 24-FEB-2010
3443: -- Changed the condition from l_task_rec.PAST_TASK_START_DATE <> Fnd_Api.G_MISS_DATE
3444: -- to l_task_rec.PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE
3445: IF (l_Task_rec.PAST_TASK_END_DATE IS NOT NULL
3446: AND l_Task_rec.PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE) THEN
3447: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
3448: Fnd_Msg_Pub.ADD;
3449: RAISE FND_API.G_EXC_ERROR;
3450: END IF;
3445: IF (l_Task_rec.PAST_TASK_END_DATE IS NOT NULL
3446: AND l_Task_rec.PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE) THEN
3447: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
3448: Fnd_Msg_Pub.ADD;
3449: RAISE FND_API.G_EXC_ERROR;
3450: END IF;
3451: -- If the earlier value of past task date is not null, cannot nullify the past date now
3452: IF c_Task_rec.PAST_TASK_START_DATE IS NOT NULL THEN
3453: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_DATE_NOT_NULL');
3451: -- If the earlier value of past task date is not null, cannot nullify the past date now
3452: IF c_Task_rec.PAST_TASK_START_DATE IS NOT NULL THEN
3453: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_DATE_NOT_NULL');
3454: Fnd_Msg_Pub.ADD;
3455: RAISE FND_API.G_EXC_ERROR;
3456: END IF;
3457: l_Task_rec.PAST_TASK_START_DATE := NULL;
3458: l_Task_rec.PAST_TASK_END_DATE := NULL;
3459: END IF;
3475:
3476: Update_Tasks_in_Production
3477: (p_api_version => l_api_version,
3478: p_init_msg_list => p_init_msg_list,
3479: p_commit => Fnd_Api.g_false,
3480: p_validation_level => p_validation_level,
3481: p_module_type => p_module_type,
3482: p_x_task_rec => l_task_rec,
3483: x_return_status => l_return_status,
3498: END IF;
3499: Update_Tasks_in_Planning
3500: (p_api_version => l_api_version,
3501: p_init_msg_list => p_init_msg_list,
3502: p_commit => Fnd_Api.g_false,
3503: p_validation_level => p_validation_level,
3504: p_module_type => p_module_type,
3505: p_x_task_rec => l_task_rec,
3506: x_return_status => l_return_status,
3545: L_DEBUG_KEY,
3546: 'After calling AHL_VWP_PROJ_PROD_PVT.Update_Project_Task l_return_status= '|| l_return_status);
3547: END IF;
3548:
3549: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3550: x_msg_count := FND_MSG_PUB.count_msg;
3551: IF (l_log_statement >= l_log_current_level) THEN
3552: fnd_log.string(l_log_statement, L_DEBUG_KEY, 'Errors from Update_Project_Task. Message count: ' || x_msg_count);
3553: END IF;
3550: x_msg_count := FND_MSG_PUB.count_msg;
3551: IF (l_log_statement >= l_log_current_level) THEN
3552: fnd_log.string(l_log_statement, L_DEBUG_KEY, 'Errors from Update_Project_Task. Message count: ' || x_msg_count);
3553: END IF;
3554: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3555: RAISE FND_API.G_EXC_ERROR;
3556: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3558: END IF;
3551: IF (l_log_statement >= l_log_current_level) THEN
3552: fnd_log.string(l_log_statement, L_DEBUG_KEY, 'Errors from Update_Project_Task. Message count: ' || x_msg_count);
3553: END IF;
3554: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3555: RAISE FND_API.G_EXC_ERROR;
3556: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3558: END IF;
3559: ELSE
3552: fnd_log.string(l_log_statement, L_DEBUG_KEY, 'Errors from Update_Project_Task. Message count: ' || x_msg_count);
3553: END IF;
3554: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3555: RAISE FND_API.G_EXC_ERROR;
3556: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3558: END IF;
3559: ELSE
3560: IF (l_log_statement >= l_log_current_level) THEN
3553: END IF;
3554: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3555: RAISE FND_API.G_EXC_ERROR;
3556: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3558: END IF;
3559: ELSE
3560: IF (l_log_statement >= l_log_current_level) THEN
3561: fnd_log.string(l_log_statement, L_DEBUG_KEY, 'Returned Success from Update_Project_Task.');
3567: END IF;
3568: -- PRAKKUM :: FP PIE :: 13-OCT-2010 :: END
3569:
3570: -- Added to raise errors after calling respective API's
3571: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3572: RAISE FND_API.G_EXC_ERROR;
3573: END IF;
3574:
3575: ------------------------End of API Body------------------------------------
3568: -- PRAKKUM :: FP PIE :: 13-OCT-2010 :: END
3569:
3570: -- Added to raise errors after calling respective API's
3571: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3572: RAISE FND_API.G_EXC_ERROR;
3573: END IF;
3574:
3575: ------------------------End of API Body------------------------------------
3576: --Standard check to count messages
3577: l_msg_count := Fnd_Msg_Pub.count_msg;
3578:
3579: IF l_msg_count > 0 THEN
3580: x_msg_count := l_msg_count;
3581: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3582: RAISE Fnd_Api.G_EXC_ERROR;
3583: END IF;
3584:
3585: --Standard check for commit
3578:
3579: IF l_msg_count > 0 THEN
3580: x_msg_count := l_msg_count;
3581: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3582: RAISE Fnd_Api.G_EXC_ERROR;
3583: END IF;
3584:
3585: --Standard check for commit
3586: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
3582: RAISE Fnd_Api.G_EXC_ERROR;
3583: END IF;
3584:
3585: --Standard check for commit
3586: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
3587: COMMIT;
3588: END IF;
3589:
3590: IF (l_log_procedure >= l_log_current_level) THEN
3593: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
3594: END IF;
3595:
3596: EXCEPTION
3597: WHEN Fnd_Api.g_exc_error THEN
3598: ROLLBACK TO Update_Task;
3599: x_return_status := Fnd_Api.g_ret_sts_error;
3600: Fnd_Msg_Pub.count_and_get (
3601: p_encoded => Fnd_Api.g_false,
3595:
3596: EXCEPTION
3597: WHEN Fnd_Api.g_exc_error THEN
3598: ROLLBACK TO Update_Task;
3599: x_return_status := Fnd_Api.g_ret_sts_error;
3600: Fnd_Msg_Pub.count_and_get (
3601: p_encoded => Fnd_Api.g_false,
3602: p_count => x_msg_count,
3603: p_data => x_msg_data
3597: WHEN Fnd_Api.g_exc_error THEN
3598: ROLLBACK TO Update_Task;
3599: x_return_status := Fnd_Api.g_ret_sts_error;
3600: Fnd_Msg_Pub.count_and_get (
3601: p_encoded => Fnd_Api.g_false,
3602: p_count => x_msg_count,
3603: p_data => x_msg_data
3604: );
3605: WHEN Fnd_Api.g_exc_unexpected_error THEN
3601: p_encoded => Fnd_Api.g_false,
3602: p_count => x_msg_count,
3603: p_data => x_msg_data
3604: );
3605: WHEN Fnd_Api.g_exc_unexpected_error THEN
3606: ROLLBACK TO Update_Task;
3607: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3608: Fnd_Msg_Pub.count_and_get (
3609: p_encoded => Fnd_Api.g_false,
3603: p_data => x_msg_data
3604: );
3605: WHEN Fnd_Api.g_exc_unexpected_error THEN
3606: ROLLBACK TO Update_Task;
3607: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3608: Fnd_Msg_Pub.count_and_get (
3609: p_encoded => Fnd_Api.g_false,
3610: p_count => x_msg_count,
3611: p_data => x_msg_data
3605: WHEN Fnd_Api.g_exc_unexpected_error THEN
3606: ROLLBACK TO Update_Task;
3607: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3608: Fnd_Msg_Pub.count_and_get (
3609: p_encoded => Fnd_Api.g_false,
3610: p_count => x_msg_count,
3611: p_data => x_msg_data
3612: );
3613: WHEN OTHERS THEN
3611: p_data => x_msg_data
3612: );
3613: WHEN OTHERS THEN
3614: ROLLBACK TO Update_Task;
3615: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3616: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3617: THEN
3618: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3619: END IF;
3617: THEN
3618: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3619: END IF;
3620: Fnd_Msg_Pub.count_and_get (
3621: p_encoded => Fnd_Api.g_false,
3622: p_count => x_msg_count,
3623: p_data => x_msg_data
3624: );
3625: END Update_Task;
3633: --------------------------------------------------------------------
3634:
3635: PROCEDURE Update_Tasks_in_Planning(
3636: p_api_version IN NUMBER := 1.0,
3637: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
3638: p_commit IN VARCHAR2:= FND_API.G_FALSE,
3639: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3640: p_module_type IN VARCHAR2:= 'JSP',
3641: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
3634:
3635: PROCEDURE Update_Tasks_in_Planning(
3636: p_api_version IN NUMBER := 1.0,
3637: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
3638: p_commit IN VARCHAR2:= FND_API.G_FALSE,
3639: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3640: p_module_type IN VARCHAR2:= 'JSP',
3641: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
3642: x_return_status OUT NOCOPY VARCHAR2,
3635: PROCEDURE Update_Tasks_in_Planning(
3636: p_api_version IN NUMBER := 1.0,
3637: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
3638: p_commit IN VARCHAR2:= FND_API.G_FALSE,
3639: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3640: p_module_type IN VARCHAR2:= 'JSP',
3641: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
3642: x_return_status OUT NOCOPY VARCHAR2,
3643: x_msg_count OUT NOCOPY NUMBER,
3805:
3806: --------------------- initialize -----------------------
3807: SAVEPOINT Update_Tasks_in_Planning;
3808:
3809: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
3810: Fnd_Msg_Pub.initialize;
3811: END IF;
3812:
3813: -- Initialize API return status to success
3810: Fnd_Msg_Pub.initialize;
3811: END IF;
3812:
3813: -- Initialize API return status to success
3814: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3815:
3816: -- Standard call to check for call compatibility.
3817: IF NOT Fnd_Api.compatible_api_call(
3818: l_api_version,
3813: -- Initialize API return status to success
3814: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3815:
3816: -- Standard call to check for call compatibility.
3817: IF NOT Fnd_Api.compatible_api_call(
3818: l_api_version,
3819: p_api_version,
3820: l_api_name,
3821: G_PKG_NAME
3819: p_api_version,
3820: l_api_name,
3821: G_PKG_NAME
3822: ) THEN
3823: RAISE Fnd_Api.g_exc_unexpected_error;
3824: END IF;
3825:
3826: -- PRAKKUM :: FP:PIE :: 13-OCT-2010 :: validate Service Type attributes, before calling any other update API
3827: AHL_VWP_RULES_PVT.Validate_Service_Type(
3862: X_RETURN_STATUS => l_return_status,
3863: X_MSG_COUNT => l_msg_count,
3864: X_MSG_DATA => l_msg_data );
3865:
3866: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3867: x_msg_count := l_msg_count;
3868: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3869: RAISE Fnd_Api.G_EXC_ERROR;
3870: END IF;
3864: X_MSG_DATA => l_msg_data );
3865:
3866: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3867: x_msg_count := l_msg_count;
3868: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3869: RAISE Fnd_Api.G_EXC_ERROR;
3870: END IF;
3871: END IF;
3872:
3865:
3866: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3867: x_msg_count := l_msg_count;
3868: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3869: RAISE Fnd_Api.G_EXC_ERROR;
3870: END IF;
3871: END IF;
3872:
3873: -- Code added to make sure that department name to id conversion takes place
3871: END IF;
3872:
3873: -- Code added to make sure that department name to id conversion takes place
3874: -- Irrespective of above API Being Called.
3875: IF (l_task_rec.dept_name IS NOT NULL AND l_task_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
3876: AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id
3877: (p_organization_id => l_visit_rec.organization_id,
3878: p_dept_name => l_task_rec.dept_name,
3879: p_department_id => NULL,
3880: x_department_id => l_task_rec.department_id,
3881: x_return_status => l_return_status,
3882: x_error_msg_code => l_msg_data);
3883:
3884: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
3885: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
3886: Fnd_Msg_Pub.ADD;
3887: RAISE Fnd_Api.G_EXC_ERROR;
3888: END IF;
3883:
3884: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
3885: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
3886: Fnd_Msg_Pub.ADD;
3887: RAISE Fnd_Api.G_EXC_ERROR;
3888: END IF;
3889:
3890: -- Changes for Post 11.5.10 by cxcheng
3891: Ahl_vwp_rules_pvt.CHECK_DEPARTMENT_SHIFT
3891: Ahl_vwp_rules_pvt.CHECK_DEPARTMENT_SHIFT
3892: ( P_DEPT_ID => l_task_rec.department_id,
3893: X_RETURN_STATUS => l_return_status);
3894:
3895: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
3896: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
3897: Fnd_Msg_Pub.ADD;
3898: RAISE Fnd_Api.G_EXC_ERROR;
3899: END IF;
3894:
3895: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
3896: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
3897: Fnd_Msg_Pub.ADD;
3898: RAISE Fnd_Api.G_EXC_ERROR;
3899: END IF;
3900: ELSE
3901: l_task_rec.department_id := NULL;
3902: END IF;
3974: 'Before Calling AHL_PRD_WORKORDER_PVT.update_job');
3975: END IF;
3976: AHL_PRD_WORKORDER_PVT.update_job
3977: (p_api_version =>1.0,
3978: p_init_msg_list =>fnd_api.g_false,
3979: p_commit =>fnd_api.g_false,
3980: p_validation_level =>p_validation_level,
3981: p_default =>fnd_api.g_false,
3982: p_module_type =>'API',
3975: END IF;
3976: AHL_PRD_WORKORDER_PVT.update_job
3977: (p_api_version =>1.0,
3978: p_init_msg_list =>fnd_api.g_false,
3979: p_commit =>fnd_api.g_false,
3980: p_validation_level =>p_validation_level,
3981: p_default =>fnd_api.g_false,
3982: p_module_type =>'API',
3983: x_return_status =>x_return_status,
3977: (p_api_version =>1.0,
3978: p_init_msg_list =>fnd_api.g_false,
3979: p_commit =>fnd_api.g_false,
3980: p_validation_level =>p_validation_level,
3981: p_default =>fnd_api.g_false,
3982: p_module_type =>'API',
3983: x_return_status =>x_return_status,
3984: x_msg_count =>x_msg_count,
3985: x_msg_data =>x_msg_data,
3993: L_DEBUG_KEY,
3994: 'After Calling AHL_PRD_WORKORDER_PVT.update_job, Return Status = ' || x_return_status);
3995: END IF;
3996:
3997: IF l_return_status <> Fnd_Api.g_ret_sts_success THEN
3998: RAISE Fnd_Api.G_EXC_ERROR;
3999: END IF;
4000:
4001: --SKPATHAK :: VWPE: ER:12424063 :: 08-JUN-2011 :: close the cursor only if %notfound
3994: 'After Calling AHL_PRD_WORKORDER_PVT.update_job, Return Status = ' || x_return_status);
3995: END IF;
3996:
3997: IF l_return_status <> Fnd_Api.g_ret_sts_success THEN
3998: RAISE Fnd_Api.G_EXC_ERROR;
3999: END IF;
4000:
4001: --SKPATHAK :: VWPE: ER:12424063 :: 08-JUN-2011 :: close the cursor only if %notfound
4002: ELSE --c_Task_WO%FOUND
4021: Update_Summary_Task
4022: (
4023: p_api_version => l_api_version,
4024: p_init_msg_list => p_init_msg_list,
4025: p_commit => Fnd_Api.g_false,
4026: p_validation_level => p_validation_level,
4027: p_module_type => p_module_type,
4028: p_x_task_rec => l_task_rec,
4029: x_return_status => l_return_status,
4047: AHL_VWP_PLAN_TASKS_PVT.Update_Planned_Task
4048: (
4049: p_api_version => l_api_version,
4050: p_init_msg_list => p_init_msg_list,
4051: p_commit => Fnd_Api.g_false,
4052: p_validation_level => p_validation_level,
4053: p_module_type => p_module_type,
4054: p_x_task_rec => l_task_rec,
4055: x_return_status => l_return_status,
4066:
4067: AHL_VWP_UNPLAN_TASKS_PVT.Update_Unplanned_Task
4068: (p_api_version => l_api_version,
4069: p_init_msg_list => p_init_msg_list,
4070: p_commit => Fnd_Api.g_false,
4071: p_validation_level => p_validation_level,
4072: p_module_type => p_module_type,
4073: p_x_task_rec => l_task_rec,
4074: x_return_status => l_return_status,
4085:
4086: Update_Unassociated_Task
4087: (p_api_version => l_api_version,
4088: p_init_msg_list => p_init_msg_list,
4089: p_commit => Fnd_Api.g_false,
4090: p_validation_level => p_validation_level,
4091: p_module_type => p_module_type,
4092: p_x_task_rec => l_task_rec,
4093: x_return_status => l_return_status,
4102: END IF;
4103: END IF;
4104:
4105: -- Added to raise errors after calling respective API's
4106: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4107: RAISE FND_API.G_EXC_ERROR;
4108: END IF;
4109:
4110: --------------------------------------------------------------------------
4103: END IF;
4104:
4105: -- Added to raise errors after calling respective API's
4106: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4107: RAISE FND_API.G_EXC_ERROR;
4108: END IF;
4109:
4110: --------------------------------------------------------------------------
4111: ---- START 11.5.10 CHANGES FOR COSTING ----
4114: -- Conversion is done to make sure that the number to id conversion takes place
4115: -- Irrespective of above Update API Calls.
4116: -- Convert cost parent number to id
4117: IF (p_x_task_rec.cost_parent_number IS NOT NULL AND
4118: p_x_task_rec.cost_parent_number <> Fnd_Api.G_MISS_NUM ) THEN
4119:
4120: IF (l_log_statement >= l_log_current_level)THEN
4121: fnd_log.string(l_log_statement,
4122: L_DEBUG_KEY,
4130: x_visit_task_id => p_x_task_rec.cost_parent_id,
4131: x_return_status => l_return_status,
4132: x_error_msg_code => l_msg_data);
4133:
4134: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4135: RAISE FND_API.G_EXC_ERROR;
4136: END IF;
4137: ELSE
4138: p_x_task_rec.cost_parent_id := null;
4131: x_return_status => l_return_status,
4132: x_error_msg_code => l_msg_data);
4133:
4134: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4135: RAISE FND_API.G_EXC_ERROR;
4136: END IF;
4137: ELSE
4138: p_x_task_rec.cost_parent_id := null;
4139: END IF;
4158: L_DEBUG_KEY,
4159: 'After Calling AHL_VWP_RULES_PVT.Update_Visit_Task_Flag, Return Status = ' ||x_return_status);
4160: END IF;
4161:
4162: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4163: RAISE FND_API.G_EXC_ERROR;
4164: END IF;
4165: END IF;
4166: END IF; -- for cost_parent_id check
4159: 'After Calling AHL_VWP_RULES_PVT.Update_Visit_Task_Flag, Return Status = ' ||x_return_status);
4160: END IF;
4161:
4162: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4163: RAISE FND_API.G_EXC_ERROR;
4164: END IF;
4165: END IF;
4166: END IF; -- for cost_parent_id check
4167:
4174: l_msg_count := Fnd_Msg_Pub.count_msg;
4175:
4176: IF l_msg_count > 0 THEN
4177: x_msg_count := l_msg_count;
4178: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4179: RAISE Fnd_Api.G_EXC_ERROR;
4180: END IF;
4181:
4182: --Standard check for commit
4175:
4176: IF l_msg_count > 0 THEN
4177: x_msg_count := l_msg_count;
4178: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4179: RAISE Fnd_Api.G_EXC_ERROR;
4180: END IF;
4181:
4182: --Standard check for commit
4183: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
4179: RAISE Fnd_Api.G_EXC_ERROR;
4180: END IF;
4181:
4182: --Standard check for commit
4183: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
4184: COMMIT;
4185: END IF;
4186:
4187: IF (l_log_procedure >= l_log_current_level) THEN
4190: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
4191: END IF;
4192:
4193: EXCEPTION
4194: WHEN Fnd_Api.g_exc_error THEN
4195: ROLLBACK TO Update_Tasks_in_Planning;
4196: x_return_status := Fnd_Api.g_ret_sts_error;
4197: Fnd_Msg_Pub.count_and_get (
4198: p_encoded => Fnd_Api.g_false,
4192:
4193: EXCEPTION
4194: WHEN Fnd_Api.g_exc_error THEN
4195: ROLLBACK TO Update_Tasks_in_Planning;
4196: x_return_status := Fnd_Api.g_ret_sts_error;
4197: Fnd_Msg_Pub.count_and_get (
4198: p_encoded => Fnd_Api.g_false,
4199: p_count => x_msg_count,
4200: p_data => x_msg_data
4194: WHEN Fnd_Api.g_exc_error THEN
4195: ROLLBACK TO Update_Tasks_in_Planning;
4196: x_return_status := Fnd_Api.g_ret_sts_error;
4197: Fnd_Msg_Pub.count_and_get (
4198: p_encoded => Fnd_Api.g_false,
4199: p_count => x_msg_count,
4200: p_data => x_msg_data
4201: );
4202: WHEN Fnd_Api.g_exc_unexpected_error THEN
4198: p_encoded => Fnd_Api.g_false,
4199: p_count => x_msg_count,
4200: p_data => x_msg_data
4201: );
4202: WHEN Fnd_Api.g_exc_unexpected_error THEN
4203: ROLLBACK TO Update_Tasks_in_Planning;
4204: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4205: Fnd_Msg_Pub.count_and_get (
4206: p_encoded => Fnd_Api.g_false,
4200: p_data => x_msg_data
4201: );
4202: WHEN Fnd_Api.g_exc_unexpected_error THEN
4203: ROLLBACK TO Update_Tasks_in_Planning;
4204: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4205: Fnd_Msg_Pub.count_and_get (
4206: p_encoded => Fnd_Api.g_false,
4207: p_count => x_msg_count,
4208: p_data => x_msg_data
4202: WHEN Fnd_Api.g_exc_unexpected_error THEN
4203: ROLLBACK TO Update_Tasks_in_Planning;
4204: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4205: Fnd_Msg_Pub.count_and_get (
4206: p_encoded => Fnd_Api.g_false,
4207: p_count => x_msg_count,
4208: p_data => x_msg_data
4209: );
4210: WHEN OTHERS THEN
4208: p_data => x_msg_data
4209: );
4210: WHEN OTHERS THEN
4211: ROLLBACK TO Update_Tasks_in_Planning;
4212: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4213: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4214: THEN
4215: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4216: END IF;
4214: THEN
4215: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4216: END IF;
4217: Fnd_Msg_Pub.count_and_get (
4218: p_encoded => Fnd_Api.g_false,
4219: p_count => x_msg_count,
4220: p_data => x_msg_data
4221: );
4222:
4231: --------------------------------------------------------------------
4232:
4233: PROCEDURE Update_Tasks_in_Production(
4234: p_api_version IN NUMBER := 1.0,
4235: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
4236: p_commit IN VARCHAR2:= FND_API.G_FALSE,
4237: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4238: p_module_type IN VARCHAR2:= 'JSP',
4239: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
4232:
4233: PROCEDURE Update_Tasks_in_Production(
4234: p_api_version IN NUMBER := 1.0,
4235: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
4236: p_commit IN VARCHAR2:= FND_API.G_FALSE,
4237: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4238: p_module_type IN VARCHAR2:= 'JSP',
4239: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
4240: x_return_status OUT NOCOPY VARCHAR2,
4233: PROCEDURE Update_Tasks_in_Production(
4234: p_api_version IN NUMBER := 1.0,
4235: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
4236: p_commit IN VARCHAR2:= FND_API.G_FALSE,
4237: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4238: p_module_type IN VARCHAR2:= 'JSP',
4239: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
4240: x_return_status OUT NOCOPY VARCHAR2,
4241: x_msg_count OUT NOCOPY NUMBER,
4335:
4336: --------------------- initialize -----------------------
4337: SAVEPOINT Update_Tasks_in_Production;
4338:
4339: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
4340: Fnd_Msg_Pub.initialize;
4341: END IF;
4342:
4343: -- Initialize API return status to success
4340: Fnd_Msg_Pub.initialize;
4341: END IF;
4342:
4343: -- Initialize API return status to success
4344: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4345:
4346: -- Standard call to check for call compatibility.
4347: IF NOT Fnd_Api.compatible_api_call(
4348: l_api_version,
4343: -- Initialize API return status to success
4344: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4345:
4346: -- Standard call to check for call compatibility.
4347: IF NOT Fnd_Api.compatible_api_call(
4348: l_api_version,
4349: p_api_version,
4350: l_api_name,
4351: G_PKG_NAME
4349: p_api_version,
4350: l_api_name,
4351: G_PKG_NAME
4352: ) THEN
4353: RAISE Fnd_Api.g_exc_unexpected_error;
4354: END IF;
4355:
4356: OPEN c_visit_task_det(l_Task_rec.visit_task_id);
4357: FETCH c_visit_task_det INTO l_old_Task_rec;
4357: FETCH c_visit_task_det INTO l_old_Task_rec;
4358: CLOSE c_visit_task_det;
4359:
4360: IF (l_Task_rec.cost_parent_number IS NOT NULL AND
4361: l_Task_rec.cost_parent_number <> Fnd_Api.G_MISS_NUM ) THEN
4362:
4363: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
4364: (p_visit_task_id => l_Task_rec.cost_parent_id,
4365: p_visit_task_number => l_Task_rec.cost_parent_number,
4370:
4371: -- PRAKKUM :: FP PIE :: 13-OCT-2010 :: Pass the cost parent to the in out param
4372: p_x_task_rec.cost_parent_id := l_cost_parent_id;
4373:
4374: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4375: THEN
4376: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
4377: Fnd_Msg_Pub.ADD;
4378: RAISE Fnd_Api.g_exc_error;
4374: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4375: THEN
4376: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
4377: Fnd_Msg_Pub.ADD;
4378: RAISE Fnd_Api.g_exc_error;
4379: END IF;
4380: --Assign the returned value
4381: l_Task_rec.cost_parent_id := l_cost_parent_id;
4382: ELSE
4384: END IF;
4385:
4386: -- To Check for cost parent task id not forming loop
4387: IF (l_Task_rec.cost_parent_id IS NOT NULL AND
4388: l_Task_rec.cost_parent_id <> Fnd_Api.G_MISS_NUM ) THEN
4389:
4390: AHL_VWP_RULES_PVT.Check_Cost_Parent_Loop
4391: (p_visit_id => l_Task_rec.visit_id,
4392: p_visit_task_id => l_Task_rec.visit_task_id ,
4395: END IF;
4396:
4397: -- Validate target quantity
4398: IF (l_Task_rec.target_qty IS NOT NULL AND
4399: l_Task_rec.target_qty <> Fnd_Api.G_MISS_NUM AND
4400: l_Task_rec.target_qty < 0) THEN
4401: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_CMP_TARGET_QTY_INVLD');
4402: FND_MSG_PUB.add;
4403: RAISE FND_API.G_EXC_ERROR;
4399: l_Task_rec.target_qty <> Fnd_Api.G_MISS_NUM AND
4400: l_Task_rec.target_qty < 0) THEN
4401: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_CMP_TARGET_QTY_INVLD');
4402: FND_MSG_PUB.add;
4403: RAISE FND_API.G_EXC_ERROR;
4404: END IF;
4405:
4406: IF (l_log_statement >= l_log_current_level) THEN
4407: fnd_log.string(l_log_statement,
4511:
4512: -- SKPATHAK :: ER: 9147951 :: 11-JAN-2010 :: Call Adjust_Task_Times only if past date is null
4513: IF l_old_Task_rec.PAST_TASK_START_DATE IS NULL THEN
4514: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
4515: p_init_msg_list => Fnd_Api.G_FALSE,
4516: p_commit => Fnd_Api.G_FALSE,
4517: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4518: x_return_status => l_return_status,
4519: x_msg_count => l_msg_count,
4512: -- SKPATHAK :: ER: 9147951 :: 11-JAN-2010 :: Call Adjust_Task_Times only if past date is null
4513: IF l_old_Task_rec.PAST_TASK_START_DATE IS NULL THEN
4514: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
4515: p_init_msg_list => Fnd_Api.G_FALSE,
4516: p_commit => Fnd_Api.G_FALSE,
4517: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4518: x_return_status => l_return_status,
4519: x_msg_count => l_msg_count,
4520: x_msg_data => l_msg_data,
4513: IF l_old_Task_rec.PAST_TASK_START_DATE IS NULL THEN
4514: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
4515: p_init_msg_list => Fnd_Api.G_FALSE,
4516: p_commit => Fnd_Api.G_FALSE,
4517: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4518: x_return_status => l_return_status,
4519: x_msg_count => l_msg_count,
4520: x_msg_data => l_msg_data,
4521: p_task_id => l_task_rec.visit_task_id);
4529:
4530: --Standard check to count messages
4531: l_msg_count := Fnd_Msg_Pub.count_msg;
4532:
4533: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4534: x_msg_count := l_msg_count;
4535: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4536: RAISE Fnd_Api.G_EXC_ERROR;
4537: END IF;
4531: l_msg_count := Fnd_Msg_Pub.count_msg;
4532:
4533: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4534: x_msg_count := l_msg_count;
4535: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4536: RAISE Fnd_Api.G_EXC_ERROR;
4537: END IF;
4538:
4539: IF NVL(l_task_rec.cost_parent_id,-30) <> NVL(l_old_Task_rec.cost_parent_id,-30)
4532:
4533: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4534: x_msg_count := l_msg_count;
4535: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4536: RAISE Fnd_Api.G_EXC_ERROR;
4537: END IF;
4538:
4539: IF NVL(l_task_rec.cost_parent_id,-30) <> NVL(l_old_Task_rec.cost_parent_id,-30)
4540: THEN
4554: l_msg_count := Fnd_Msg_Pub.count_msg;
4555:
4556: IF l_msg_count > 0 THEN
4557: x_msg_count := l_msg_count;
4558: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4559: RAISE Fnd_Api.G_EXC_ERROR;
4560: END IF;
4561:
4562: --Standard check for commit
4555:
4556: IF l_msg_count > 0 THEN
4557: x_msg_count := l_msg_count;
4558: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4559: RAISE Fnd_Api.G_EXC_ERROR;
4560: END IF;
4561:
4562: --Standard check for commit
4563: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
4559: RAISE Fnd_Api.G_EXC_ERROR;
4560: END IF;
4561:
4562: --Standard check for commit
4563: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
4564: COMMIT;
4565: END IF;
4566:
4567: IF (l_log_procedure >= l_log_current_level) THEN
4569: L_DEBUG_KEY ||'.end',
4570: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
4571: END IF;
4572: EXCEPTION
4573: WHEN Fnd_Api.g_exc_error THEN
4574: ROLLBACK TO Update_Tasks_in_Production;
4575: x_return_status := Fnd_Api.g_ret_sts_error;
4576: Fnd_Msg_Pub.count_and_get (
4577: p_encoded => Fnd_Api.g_false,
4571: END IF;
4572: EXCEPTION
4573: WHEN Fnd_Api.g_exc_error THEN
4574: ROLLBACK TO Update_Tasks_in_Production;
4575: x_return_status := Fnd_Api.g_ret_sts_error;
4576: Fnd_Msg_Pub.count_and_get (
4577: p_encoded => Fnd_Api.g_false,
4578: p_count => x_msg_count,
4579: p_data => x_msg_data
4573: WHEN Fnd_Api.g_exc_error THEN
4574: ROLLBACK TO Update_Tasks_in_Production;
4575: x_return_status := Fnd_Api.g_ret_sts_error;
4576: Fnd_Msg_Pub.count_and_get (
4577: p_encoded => Fnd_Api.g_false,
4578: p_count => x_msg_count,
4579: p_data => x_msg_data
4580: );
4581: WHEN Fnd_Api.g_exc_unexpected_error THEN
4577: p_encoded => Fnd_Api.g_false,
4578: p_count => x_msg_count,
4579: p_data => x_msg_data
4580: );
4581: WHEN Fnd_Api.g_exc_unexpected_error THEN
4582: ROLLBACK TO Update_Tasks_in_Production;
4583: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4584: Fnd_Msg_Pub.count_and_get (
4585: p_encoded => Fnd_Api.g_false,
4579: p_data => x_msg_data
4580: );
4581: WHEN Fnd_Api.g_exc_unexpected_error THEN
4582: ROLLBACK TO Update_Tasks_in_Production;
4583: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4584: Fnd_Msg_Pub.count_and_get (
4585: p_encoded => Fnd_Api.g_false,
4586: p_count => x_msg_count,
4587: p_data => x_msg_data
4581: WHEN Fnd_Api.g_exc_unexpected_error THEN
4582: ROLLBACK TO Update_Tasks_in_Production;
4583: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4584: Fnd_Msg_Pub.count_and_get (
4585: p_encoded => Fnd_Api.g_false,
4586: p_count => x_msg_count,
4587: p_data => x_msg_data
4588: );
4589: WHEN OTHERS THEN
4587: p_data => x_msg_data
4588: );
4589: WHEN OTHERS THEN
4590: ROLLBACK TO Update_Tasks_in_Production;
4591: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4592: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4593: THEN
4594: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4595: END IF;
4593: THEN
4594: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4595: END IF;
4596: Fnd_Msg_Pub.count_and_get (
4597: p_encoded => Fnd_Api.g_false,
4598: p_count => x_msg_count,
4599: p_data => x_msg_data
4600: );
4601: END Update_Tasks_in_Production;
4608: -- To update Unassociated task for the Maintainance visit.
4609: --------------------------------------------------------------------
4610: PROCEDURE Update_Unassociated_Task (
4611: p_api_version IN NUMBER,
4612: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4613: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4614: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4615: p_module_type IN VARCHAR2 := 'JSP',
4616: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
4609: --------------------------------------------------------------------
4610: PROCEDURE Update_Unassociated_Task (
4611: p_api_version IN NUMBER,
4612: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4613: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4614: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4615: p_module_type IN VARCHAR2 := 'JSP',
4616: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
4617: x_return_status OUT NOCOPY VARCHAR2,
4610: PROCEDURE Update_Unassociated_Task (
4611: p_api_version IN NUMBER,
4612: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4613: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4614: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4615: p_module_type IN VARCHAR2 := 'JSP',
4616: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
4617: x_return_status OUT NOCOPY VARCHAR2,
4618: x_msg_count OUT NOCOPY NUMBER,
4656:
4657: --------------------- initialize -----------------------
4658: SAVEPOINT Update_Unassociated_Task;
4659:
4660: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
4661: Fnd_Msg_Pub.initialize;
4662: END IF;
4663:
4664: -- Initialize API return status to success
4661: Fnd_Msg_Pub.initialize;
4662: END IF;
4663:
4664: -- Initialize API return status to success
4665: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4666:
4667: -- Standard call to check for call compatibility.
4668: IF NOT Fnd_Api.compatible_api_call(
4669: l_api_version,
4664: -- Initialize API return status to success
4665: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4666:
4667: -- Standard call to check for call compatibility.
4668: IF NOT Fnd_Api.compatible_api_call(
4669: l_api_version,
4670: p_api_version,
4671: l_api_name,
4672: G_PKG_NAME
4670: p_api_version,
4671: l_api_name,
4672: G_PKG_NAME
4673: ) THEN
4674: RAISE Fnd_Api.g_exc_unexpected_error;
4675: END IF;
4676:
4677: ---------------------------------------------- Start----------------------------------------------------------
4678: OPEN c_Visit(l_Task_rec.visit_id);
4700: ----------- Start defining and validate all LOVs on Create Visit's Task UI Screen---
4701: --
4702: -- For DEPARTMENT
4703: -- Convert department name to department id
4704: IF (l_task_rec.dept_name IS NOT NULL AND l_task_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
4705:
4706: AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id
4707: (p_organization_id => c_visit_rec.organization_id,
4708: p_dept_name => l_task_rec.dept_name,
4710: x_department_id => l_department_id,
4711: x_return_status => l_return_status,
4712: x_error_msg_code => l_msg_data);
4713:
4714: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4715: THEN
4716: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
4717: Fnd_Msg_Pub.ADD;
4718: RAISE Fnd_Api.G_EXC_ERROR;
4714: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4715: THEN
4716: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
4717: Fnd_Msg_Pub.ADD;
4718: RAISE Fnd_Api.G_EXC_ERROR;
4719: END IF;
4720:
4721: --Assign the returned value
4722: l_task_rec.department_id := l_department_id;
4733: --
4734: -- For SERIAL NUMBER
4735: -- Convert serial number to instance/ serial id
4736: IF (l_Task_rec.serial_number IS NOT NULL AND
4737: l_Task_rec.serial_number <> Fnd_Api.G_MISS_CHAR) THEN
4738:
4739: IF (l_log_statement >= l_log_current_level) THEN
4740: fnd_log.string(l_log_statement,
4741: L_DEBUG_KEY,
4750: x_serial_id => l_serial_id,
4751: x_return_status => l_return_status,
4752: x_error_msg_code => l_msg_data);
4753:
4754: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
4755: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
4756: Fnd_Msg_Pub.ADD;
4757: RAISE Fnd_Api.G_EXC_ERROR;
4758: ELSE
4753:
4754: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
4755: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
4756: Fnd_Msg_Pub.ADD;
4757: RAISE Fnd_Api.G_EXC_ERROR;
4758: ELSE
4759:
4760: --Assign the returned value
4761: l_Task_rec.instance_id := l_serial_id;
4770: /* sowsubra - start
4771: IF c_Visit_rec.item_instance_id IS NOT NULL THEN
4772:
4773: --BEGIN: jeli added for bug 3777720
4774: IF (AHL_VWP_RULES_PVT.instance_in_config_tree(l_task_rec.visit_id, l_task_rec.instance_id) = FND_API.G_RET_STS_ERROR) THEN
4775: --END: jeli added for bug 3777720
4776: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
4777: Fnd_Msg_Pub.ADD;
4778: RAISE Fnd_Api.G_EXC_ERROR;
4774: IF (AHL_VWP_RULES_PVT.instance_in_config_tree(l_task_rec.visit_id, l_task_rec.instance_id) = FND_API.G_RET_STS_ERROR) THEN
4775: --END: jeli added for bug 3777720
4776: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
4777: Fnd_Msg_Pub.ADD;
4778: RAISE Fnd_Api.G_EXC_ERROR;
4779: END IF;
4780: END IF;
4781: sowsubra - end */
4782: END IF;
4792: --
4793: -- For COST PARENT TASK
4794: -- Convert cost parent number to id
4795: IF (l_Task_rec.cost_parent_number IS NOT NULL AND
4796: l_Task_rec.cost_parent_number <> Fnd_Api.G_MISS_NUM ) THEN
4797:
4798: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
4799: (p_visit_task_id => l_Task_rec.cost_parent_id,
4800: p_visit_task_number => l_Task_rec.cost_parent_number,
4802: x_visit_task_id => l_cost_parent_id,
4803: x_return_status => l_return_status,
4804: x_error_msg_code => l_msg_data);
4805:
4806: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4807: THEN
4808: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
4809: Fnd_Msg_Pub.ADD;
4810: RAISE Fnd_Api.g_exc_error;
4806: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4807: THEN
4808: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
4809: Fnd_Msg_Pub.ADD;
4810: RAISE Fnd_Api.g_exc_error;
4811: END IF;
4812:
4813: --Assign the returned value
4814: l_Task_rec.cost_parent_id := l_cost_parent_id;
4822: END IF;
4823:
4824: -- To Check for cost parent task id not forming loop
4825: IF (l_Task_rec.cost_parent_id IS NOT NULL AND
4826: l_Task_rec.cost_parent_id <> Fnd_Api.G_MISS_NUM ) THEN
4827:
4828: AHL_VWP_RULES_PVT.Check_Cost_Parent_Loop
4829: (p_visit_id => l_Task_rec.visit_id,
4830: p_visit_task_id => l_Task_rec.visit_task_id ,
4843: --
4844: -- For ORIGINATING TASK
4845: -- Convert originating task number to id
4846: IF (l_Task_rec.orginating_task_number IS NOT NULL AND
4847: l_Task_rec.orginating_task_number <> Fnd_Api.G_MISS_NUM ) THEN
4848:
4849: IF (l_log_statement >= l_log_current_level) THEN
4850: fnd_log.string(l_log_statement,
4851: L_DEBUG_KEY,
4859: x_visit_task_id => l_originating_task_id,
4860: x_return_status => l_return_status,
4861: x_error_msg_code => l_msg_data);
4862:
4863: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4864: THEN
4865: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORIGINATING_NOT_EXISTS');
4866: Fnd_Msg_Pub.ADD;
4867: RAISE Fnd_Api.g_exc_error;
4863: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4864: THEN
4865: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORIGINATING_NOT_EXISTS');
4866: Fnd_Msg_Pub.ADD;
4867: RAISE Fnd_Api.g_exc_error;
4868: END IF;
4869:
4870: --Assign the returned value
4871: l_Task_rec.originating_task_id := l_originating_task_id;
4879: END IF;
4880:
4881: -- To Check for originating task id not forming loop
4882: IF (l_Task_rec.originating_task_id IS NOT NULL AND
4883: l_Task_rec.originating_task_id <> Fnd_Api.G_MISS_NUM ) THEN
4884:
4885: AHL_VWP_RULES_PVT.Check_Origin_Task_Loop
4886: (p_visit_id => l_Task_rec.visit_id ,
4887: p_visit_task_id => l_Task_rec.visit_task_id ,
4934: END IF;
4935:
4936: END IF;
4937:
4938: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4939: x_msg_count := l_msg_count;
4940: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4941: RAISE Fnd_Api.G_EXC_ERROR;
4942: END IF;
4936: END IF;
4937:
4938: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4939: x_msg_count := l_msg_count;
4940: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4941: RAISE Fnd_Api.G_EXC_ERROR;
4942: END IF;
4943:
4944: -- post 11.5.10 changes by Senthil end
4937:
4938: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4939: x_msg_count := l_msg_count;
4940: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4941: RAISE Fnd_Api.G_EXC_ERROR;
4942: END IF;
4943:
4944: -- post 11.5.10 changes by Senthil end
4945:
4948: p_task_rec => p_x_task_rec,
4949: p_validation_mode => Jtf_Plsql_Api.g_update,
4950: x_return_status => l_return_status
4951: );
4952: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4953: RAISE Fnd_Api.g_exc_unexpected_error;
4954: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
4955: RAISE Fnd_Api.g_exc_error;
4956: END IF;
4949: p_validation_mode => Jtf_Plsql_Api.g_update,
4950: x_return_status => l_return_status
4951: );
4952: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4953: RAISE Fnd_Api.g_exc_unexpected_error;
4954: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
4955: RAISE Fnd_Api.g_exc_error;
4956: END IF;
4957: END IF;
4950: x_return_status => l_return_status
4951: );
4952: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4953: RAISE Fnd_Api.g_exc_unexpected_error;
4954: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
4955: RAISE Fnd_Api.g_exc_error;
4956: END IF;
4957: END IF;
4958:
4951: );
4952: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4953: RAISE Fnd_Api.g_exc_unexpected_error;
4954: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
4955: RAISE Fnd_Api.g_exc_error;
4956: END IF;
4957: END IF;
4958:
4959: -- Check Object version number.
4959: -- Check Object version number.
4960: IF (c_task_rec.object_version_number <> l_task_rec.object_version_number) THEN
4961: Fnd_Message.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
4962: Fnd_Msg_Pub.ADD;
4963: RAISE Fnd_Api.G_EXC_ERROR;
4964: END IF;
4965:
4966: --Standard check to count messages
4967: l_msg_count := Fnd_Msg_Pub.count_msg;
4967: l_msg_count := Fnd_Msg_Pub.count_msg;
4968:
4969: IF l_msg_count > 0 THEN
4970: x_msg_count := l_msg_count;
4971: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4972: RAISE Fnd_Api.G_EXC_ERROR;
4973: END IF;
4974:
4975: -------------------------- update --------------------
4968:
4969: IF l_msg_count > 0 THEN
4970: x_msg_count := l_msg_count;
4971: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4972: RAISE Fnd_Api.G_EXC_ERROR;
4973: END IF;
4974:
4975: -------------------------- update --------------------
4976: IF (l_log_statement >= l_log_current_level) THEN
5101: l_return_status);
5102: END IF;
5103:
5104: l_msg_count := Fnd_Msg_Pub.count_msg;
5105: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
5106: x_msg_count := l_msg_count;
5107: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5108: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5109: END IF;
5103:
5104: l_msg_count := Fnd_Msg_Pub.count_msg;
5105: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
5106: x_msg_count := l_msg_count;
5107: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5108: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5109: END IF;
5110: --salogan added for supplier warranty ends
5111:
5104: l_msg_count := Fnd_Msg_Pub.count_msg;
5105: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
5106: x_msg_count := l_msg_count;
5107: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5108: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5109: END IF;
5110: --salogan added for supplier warranty ends
5111:
5112: -- Added cxcheng POST11510--------------
5119:
5120: -- SKPATHAK :: ER: 9147951 :: 11-JAN-2010 :: Call Adjust_Task_Times only if past date is null
5121: IF l_task_rec.PAST_TASK_START_DATE IS NULL THEN
5122: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
5123: p_init_msg_list => Fnd_Api.G_FALSE,
5124: p_commit => Fnd_Api.G_FALSE,
5125: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
5126: x_return_status => l_return_status,
5127: x_msg_count => l_msg_count,
5120: -- SKPATHAK :: ER: 9147951 :: 11-JAN-2010 :: Call Adjust_Task_Times only if past date is null
5121: IF l_task_rec.PAST_TASK_START_DATE IS NULL THEN
5122: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
5123: p_init_msg_list => Fnd_Api.G_FALSE,
5124: p_commit => Fnd_Api.G_FALSE,
5125: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
5126: x_return_status => l_return_status,
5127: x_msg_count => l_msg_count,
5128: x_msg_data => l_msg_data,
5121: IF l_task_rec.PAST_TASK_START_DATE IS NULL THEN
5122: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
5123: p_init_msg_list => Fnd_Api.G_FALSE,
5124: p_commit => Fnd_Api.G_FALSE,
5125: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
5126: x_return_status => l_return_status,
5127: x_msg_count => l_msg_count,
5128: x_msg_data => l_msg_data,
5129: p_task_id => l_task_rec.visit_task_id);
5137:
5138: --Standard check to count messages
5139: l_msg_count := Fnd_Msg_Pub.count_msg;
5140:
5141: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5142: x_msg_count := l_msg_count;
5143: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5144: RAISE Fnd_Api.G_EXC_ERROR;
5145: END IF;
5139: l_msg_count := Fnd_Msg_Pub.count_msg;
5140:
5141: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5142: x_msg_count := l_msg_count;
5143: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5144: RAISE Fnd_Api.G_EXC_ERROR;
5145: END IF;
5146:
5147: IF NVL(l_task_rec.Duration, -10) <> NVL(c_task_rec.Duration, -10) OR
5140:
5141: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5142: x_msg_count := l_msg_count;
5143: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5144: RAISE Fnd_Api.G_EXC_ERROR;
5145: END IF;
5146:
5147: IF NVL(l_task_rec.Duration, -10) <> NVL(c_task_rec.Duration, -10) OR
5148: NVL(l_task_rec.start_from_hour, -20) <> NVL(c_task_rec.start_from_hour, -20) OR
5163: END IF;
5164:
5165: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
5166: p_api_version => 1.0,
5167: p_init_msg_list => FND_API.g_false,
5168: p_commit => FND_API.g_false,
5169: p_validation_level => FND_API.g_valid_level_full,
5170: p_visit_id => l_task_rec.visit_id,
5171: p_visit_task_id => NULL,
5164:
5165: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
5166: p_api_version => 1.0,
5167: p_init_msg_list => FND_API.g_false,
5168: p_commit => FND_API.g_false,
5169: p_validation_level => FND_API.g_valid_level_full,
5170: p_visit_id => l_task_rec.visit_id,
5171: p_visit_task_id => NULL,
5172: p_org_id => NULL,
5165: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
5166: p_api_version => 1.0,
5167: p_init_msg_list => FND_API.g_false,
5168: p_commit => FND_API.g_false,
5169: p_validation_level => FND_API.g_valid_level_full,
5170: p_visit_id => l_task_rec.visit_id,
5171: p_visit_task_id => NULL,
5172: p_org_id => NULL,
5173: p_start_date => NULL,
5185: 'Return Status = ' || l_return_status );
5186: END IF;
5187:
5188: IF l_return_status <> 'S' THEN
5189: RAISE Fnd_Api.G_EXC_ERROR;
5190: END IF;
5191:
5192: END IF; -- Start_date_time check.
5193:
5195: AHL_VWP_RULES_PVT.Update_Visit_Task_Flag
5196: (p_visit_id => l_task_rec.visit_id,
5197: p_flag => 'Y',
5198: x_return_status => x_return_status);
5199: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5200: RAISE FND_API.G_EXC_ERROR;
5201: END IF;
5202: END IF;
5203: END IF;
5196: (p_visit_id => l_task_rec.visit_id,
5197: p_flag => 'Y',
5198: x_return_status => x_return_status);
5199: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5200: RAISE FND_API.G_EXC_ERROR;
5201: END IF;
5202: END IF;
5203: END IF;
5204:
5209: l_msg_count := Fnd_Msg_Pub.count_msg;
5210:
5211: IF l_msg_count > 0 THEN
5212: x_msg_count := l_msg_count;
5213: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5214: RAISE Fnd_Api.G_EXC_ERROR;
5215: END IF;
5216:
5217: --Standard check for commit
5210:
5211: IF l_msg_count > 0 THEN
5212: x_msg_count := l_msg_count;
5213: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5214: RAISE Fnd_Api.G_EXC_ERROR;
5215: END IF;
5216:
5217: --Standard check for commit
5218: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
5214: RAISE Fnd_Api.G_EXC_ERROR;
5215: END IF;
5216:
5217: --Standard check for commit
5218: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
5219: COMMIT;
5220: END IF;
5221:
5222: IF (l_log_procedure >= l_log_current_level) THEN
5224: L_DEBUG_KEY ||'.end',
5225: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
5226: END IF;
5227: EXCEPTION
5228: WHEN Fnd_Api.g_exc_error THEN
5229: ROLLBACK TO Update_Unassociated_Task;
5230: x_return_status := Fnd_Api.g_ret_sts_error;
5231: Fnd_Msg_Pub.count_and_get (
5232: p_encoded => Fnd_Api.g_false,
5226: END IF;
5227: EXCEPTION
5228: WHEN Fnd_Api.g_exc_error THEN
5229: ROLLBACK TO Update_Unassociated_Task;
5230: x_return_status := Fnd_Api.g_ret_sts_error;
5231: Fnd_Msg_Pub.count_and_get (
5232: p_encoded => Fnd_Api.g_false,
5233: p_count => x_msg_count,
5234: p_data => x_msg_data
5228: WHEN Fnd_Api.g_exc_error THEN
5229: ROLLBACK TO Update_Unassociated_Task;
5230: x_return_status := Fnd_Api.g_ret_sts_error;
5231: Fnd_Msg_Pub.count_and_get (
5232: p_encoded => Fnd_Api.g_false,
5233: p_count => x_msg_count,
5234: p_data => x_msg_data
5235: );
5236: WHEN Fnd_Api.g_exc_unexpected_error THEN
5232: p_encoded => Fnd_Api.g_false,
5233: p_count => x_msg_count,
5234: p_data => x_msg_data
5235: );
5236: WHEN Fnd_Api.g_exc_unexpected_error THEN
5237: ROLLBACK TO Update_Unassociated_Task;
5238: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5239: Fnd_Msg_Pub.count_and_get (
5240: p_encoded => Fnd_Api.g_false,
5234: p_data => x_msg_data
5235: );
5236: WHEN Fnd_Api.g_exc_unexpected_error THEN
5237: ROLLBACK TO Update_Unassociated_Task;
5238: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5239: Fnd_Msg_Pub.count_and_get (
5240: p_encoded => Fnd_Api.g_false,
5241: p_count => x_msg_count,
5242: p_data => x_msg_data
5236: WHEN Fnd_Api.g_exc_unexpected_error THEN
5237: ROLLBACK TO Update_Unassociated_Task;
5238: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5239: Fnd_Msg_Pub.count_and_get (
5240: p_encoded => Fnd_Api.g_false,
5241: p_count => x_msg_count,
5242: p_data => x_msg_data
5243: );
5244: WHEN OTHERS THEN
5242: p_data => x_msg_data
5243: );
5244: WHEN OTHERS THEN
5245: ROLLBACK TO Update_Unassociated_Task;
5246: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5247: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5248: THEN
5249: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5250: END IF;
5248: THEN
5249: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5250: END IF;
5251: Fnd_Msg_Pub.count_and_get (
5252: p_encoded => Fnd_Api.g_false,
5253: p_count => x_msg_count,
5254: p_data => x_msg_data
5255: );
5256: END Update_Unassociated_Task;
5263: -- To update Summary task for the Maintainance visit.
5264: --------------------------------------------------------------------
5265: PROCEDURE Update_Summary_Task (
5266: p_api_version IN NUMBER,
5267: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5268: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5269: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5270: p_module_type IN VARCHAR2 := 'JSP',
5271: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
5264: --------------------------------------------------------------------
5265: PROCEDURE Update_Summary_Task (
5266: p_api_version IN NUMBER,
5267: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5268: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5269: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5270: p_module_type IN VARCHAR2 := 'JSP',
5271: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
5272: x_return_status OUT NOCOPY VARCHAR2,
5265: PROCEDURE Update_Summary_Task (
5266: p_api_version IN NUMBER,
5267: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5268: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5269: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5270: p_module_type IN VARCHAR2 := 'JSP',
5271: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
5272: x_return_status OUT NOCOPY VARCHAR2,
5273: x_msg_count OUT NOCOPY NUMBER,
5310: END IF;
5311: --------------------- initialize -----------------------
5312: SAVEPOINT Update_Summary_Task;
5313:
5314: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
5315: Fnd_Msg_Pub.initialize;
5316: END IF;
5317:
5318: -- Initialize API return status to success
5315: Fnd_Msg_Pub.initialize;
5316: END IF;
5317:
5318: -- Initialize API return status to success
5319: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5320:
5321: -- Standard call to check for call compatibility.
5322: IF NOT Fnd_Api.compatible_api_call(
5323: l_api_version,
5318: -- Initialize API return status to success
5319: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5320:
5321: -- Standard call to check for call compatibility.
5322: IF NOT Fnd_Api.compatible_api_call(
5323: l_api_version,
5324: p_api_version,
5325: l_api_name,
5326: G_PKG_NAME
5324: p_api_version,
5325: l_api_name,
5326: G_PKG_NAME
5327: ) THEN
5328: RAISE Fnd_Api.g_exc_unexpected_error;
5329: END IF;
5330:
5331: ------------------------Start of API Body------------------------------------
5332: OPEN c_Visit(l_Task_rec.visit_id);
5354: ----------- Start defining and validate all LOVs on Create Visit's Task UI Screen---
5355: --
5356: -- For DEPARTMENT
5357: -- Convert department name to department id
5358: IF (l_task_rec.dept_name IS NOT NULL AND l_task_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
5359:
5360: AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id
5361: (p_organization_id => c_visit_rec.organization_id,
5362: p_dept_name => l_task_rec.dept_name,
5364: x_department_id => l_department_id,
5365: x_return_status => l_return_status,
5366: x_error_msg_code => l_msg_data);
5367:
5368: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
5369: THEN
5370: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
5371: Fnd_Msg_Pub.ADD;
5372: RAISE Fnd_Api.G_EXC_ERROR;
5368: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
5369: THEN
5370: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
5371: Fnd_Msg_Pub.ADD;
5372: RAISE Fnd_Api.G_EXC_ERROR;
5373: END IF;
5374:
5375: --Assign the returned value
5376: l_task_rec.department_id := l_department_id;
5395: --
5396: -- For SERIAL NUMBER
5397: -- Convert serial number to instance/ serial id
5398: IF (l_Task_rec.serial_number IS NOT NULL AND
5399: l_Task_rec.serial_number <> Fnd_Api.G_MISS_CHAR) THEN
5400:
5401: AHL_VWP_RULES_PVT.Check_Serial_Name_Or_Id
5402: (p_item_id => l_Task_rec.inventory_item_id,
5403: p_org_id => l_Task_rec.item_organization_id,
5406: x_serial_id => l_serial_id,
5407: x_return_status => l_return_status,
5408: x_error_msg_code => l_msg_data);
5409:
5410: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
5411: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
5412: Fnd_Msg_Pub.ADD;
5413: RAISE Fnd_Api.G_EXC_ERROR;
5414: ELSE
5409:
5410: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
5411: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
5412: Fnd_Msg_Pub.ADD;
5413: RAISE Fnd_Api.G_EXC_ERROR;
5414: ELSE
5415:
5416: --Assign the returned value
5417: l_Task_rec.instance_id := l_serial_id;
5424: ': Before UC Item Org ID= ' || l_Task_rec.item_organization_id);
5425: END IF;
5426: /* sowsubra - start
5427: --BEGIN: jeli added for bug 3777720
5428: IF (AHL_VWP_RULES_PVT.instance_in_config_tree(l_task_rec.visit_id, l_task_rec.instance_id) = FND_API.G_RET_STS_ERROR) THEN
5429: --END: jeli added for bug 3777720
5430: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
5431: Fnd_Msg_Pub.ADD;
5432: RAISE Fnd_Api.G_EXC_ERROR;
5428: IF (AHL_VWP_RULES_PVT.instance_in_config_tree(l_task_rec.visit_id, l_task_rec.instance_id) = FND_API.G_RET_STS_ERROR) THEN
5429: --END: jeli added for bug 3777720
5430: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
5431: Fnd_Msg_Pub.ADD;
5432: RAISE Fnd_Api.G_EXC_ERROR;
5433: END IF;
5434: sowsubra - end */
5435:
5436: END IF; -- End of l_return_status success check
5456: --
5457: -- For COST PARENT TASK
5458: -- Convert cost parent number to id
5459: IF (l_Task_rec.cost_parent_number IS NOT NULL AND
5460: l_Task_rec.cost_parent_number <> Fnd_Api.G_MISS_NUM ) THEN
5461:
5462: IF (l_log_statement >= l_log_current_level) THEN
5463: fnd_log.string(l_log_statement,
5464: L_DEBUG_KEY,
5472: x_visit_task_id => l_cost_parent_id,
5473: x_return_status => l_return_status,
5474: x_error_msg_code => l_msg_data);
5475:
5476: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
5477: THEN
5478: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
5479: Fnd_Msg_Pub.ADD;
5480: RAISE Fnd_Api.g_exc_error;
5476: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
5477: THEN
5478: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
5479: Fnd_Msg_Pub.ADD;
5480: RAISE Fnd_Api.g_exc_error;
5481: END IF;
5482:
5483: --Assign the returned value
5484: l_Task_rec.cost_parent_id := l_cost_parent_id;
5487: END IF;
5488:
5489: -- To Check for cost parent task id not forming loop
5490: IF (l_Task_rec.cost_parent_id IS NOT NULL AND
5491: l_Task_rec.cost_parent_id <> Fnd_Api.G_MISS_NUM ) THEN
5492:
5493: AHL_VWP_RULES_PVT.Check_Cost_Parent_Loop
5494: (p_visit_id => l_Task_rec.visit_id,
5495: p_visit_task_id => l_Task_rec.visit_task_id ,
5513: --
5514: -- For ORIGINATING TASK
5515: -- Convert originating task number to id
5516: IF (l_Task_rec.orginating_task_number IS NOT NULL AND
5517: l_Task_rec.orginating_task_number <> Fnd_Api.G_MISS_NUM ) THEN
5518:
5519: IF (l_log_statement >= l_log_current_level) THEN
5520: fnd_log.string(l_log_statement,
5521: L_DEBUG_KEY,
5529: x_visit_task_id => l_originating_task_id,
5530: x_return_status => l_return_status,
5531: x_error_msg_code => l_msg_data);
5532:
5533: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
5534: THEN
5535: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORIGINATING_NOT_EXISTS');
5536: Fnd_Msg_Pub.ADD;
5537: RAISE Fnd_Api.g_exc_error;
5533: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
5534: THEN
5535: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORIGINATING_NOT_EXISTS');
5536: Fnd_Msg_Pub.ADD;
5537: RAISE Fnd_Api.g_exc_error;
5538: END IF;
5539:
5540: --Assign the returned value
5541: l_Task_rec.originating_task_id := l_originating_task_id;
5550: END IF;
5551:
5552: -- To Check for originating task id not forming loop
5553: IF (l_Task_rec.originating_task_id IS NOT NULL AND
5554: l_Task_rec.originating_task_id <> Fnd_Api.G_MISS_NUM ) THEN
5555:
5556: AHL_VWP_RULES_PVT.Check_Origin_Task_Loop
5557: (p_visit_id => l_Task_rec.visit_id ,
5558: p_visit_task_id => l_Task_rec.visit_task_id ,
5566: END IF;
5567:
5568: -- Validate target quantity
5569: IF (l_Task_rec.target_qty IS NOT NULL AND
5570: l_Task_rec.target_qty <> Fnd_Api.G_MISS_NUM AND
5571: l_Task_rec.target_qty < 0) THEN
5572: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_CMP_TARGET_QTY_INVLD');
5573: FND_MSG_PUB.add;
5574: RAISE FND_API.G_EXC_ERROR;
5570: l_Task_rec.target_qty <> Fnd_Api.G_MISS_NUM AND
5571: l_Task_rec.target_qty < 0) THEN
5572: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_CMP_TARGET_QTY_INVLD');
5573: FND_MSG_PUB.add;
5574: RAISE FND_API.G_EXC_ERROR;
5575: END IF;
5576: ----------- End defining and validate all LOVs on Create Visit's Task UI Screen---
5577:
5578: ----------------------- validate ----------------------
5595: p_task_rec => p_x_task_rec,
5596: p_validation_mode => Jtf_Plsql_Api.g_update,
5597: x_return_status => l_return_status
5598: );
5599: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5600: RAISE Fnd_Api.g_exc_unexpected_error;
5601: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
5602: RAISE Fnd_Api.g_exc_error;
5603: END IF;
5596: p_validation_mode => Jtf_Plsql_Api.g_update,
5597: x_return_status => l_return_status
5598: );
5599: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5600: RAISE Fnd_Api.g_exc_unexpected_error;
5601: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
5602: RAISE Fnd_Api.g_exc_error;
5603: END IF;
5604: END IF;
5597: x_return_status => l_return_status
5598: );
5599: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5600: RAISE Fnd_Api.g_exc_unexpected_error;
5601: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
5602: RAISE Fnd_Api.g_exc_error;
5603: END IF;
5604: END IF;
5605:
5598: );
5599: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
5600: RAISE Fnd_Api.g_exc_unexpected_error;
5601: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
5602: RAISE Fnd_Api.g_exc_error;
5603: END IF;
5604: END IF;
5605:
5606: -- Check Object version number.
5606: -- Check Object version number.
5607: IF (c_task_rec.object_version_number <> l_task_rec.object_version_number) THEN
5608: Fnd_Message.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
5609: Fnd_Msg_Pub.ADD;
5610: RAISE Fnd_Api.G_EXC_ERROR;
5611: END IF;
5612:
5613: --Standard check to count messages
5614: l_msg_count := Fnd_Msg_Pub.count_msg;
5614: l_msg_count := Fnd_Msg_Pub.count_msg;
5615:
5616: IF l_msg_count > 0 THEN
5617: x_msg_count := l_msg_count;
5618: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5619: RAISE Fnd_Api.G_EXC_ERROR;
5620: END IF;
5621:
5622: -------------------------- update --------------------
5615:
5616: IF l_msg_count > 0 THEN
5617: x_msg_count := l_msg_count;
5618: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5619: RAISE Fnd_Api.G_EXC_ERROR;
5620: END IF;
5621:
5622: -------------------------- update --------------------
5623: IF (l_log_statement >= l_log_current_level) THEN
5748: l_return_status);
5749: END IF;
5750:
5751: l_msg_count := Fnd_Msg_Pub.count_msg;
5752: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
5753: x_msg_count := l_msg_count;
5754: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5755: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5756: END IF;
5750:
5751: l_msg_count := Fnd_Msg_Pub.count_msg;
5752: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
5753: x_msg_count := l_msg_count;
5754: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5755: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5756: END IF;
5757: --salogan added for supplier warranty ends
5758:
5751: l_msg_count := Fnd_Msg_Pub.count_msg;
5752: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
5753: x_msg_count := l_msg_count;
5754: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5755: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5756: END IF;
5757: --salogan added for supplier warranty ends
5758:
5759: ------------------------End of API Body------------------------------------
5764: L_DEBUG_KEY,
5765: 'Before calling AHL_VWP_TIMES_PVT.Adjust_Task_Times');
5766: END IF;
5767: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
5768: p_init_msg_list => Fnd_Api.G_FALSE,
5769: p_commit => Fnd_Api.G_FALSE,
5770: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
5771: x_return_status => l_return_status,
5772: x_msg_count => l_msg_count,
5765: 'Before calling AHL_VWP_TIMES_PVT.Adjust_Task_Times');
5766: END IF;
5767: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
5768: p_init_msg_list => Fnd_Api.G_FALSE,
5769: p_commit => Fnd_Api.G_FALSE,
5770: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
5771: x_return_status => l_return_status,
5772: x_msg_count => l_msg_count,
5773: x_msg_data => l_msg_data,
5766: END IF;
5767: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
5768: p_init_msg_list => Fnd_Api.G_FALSE,
5769: p_commit => Fnd_Api.G_FALSE,
5770: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
5771: x_return_status => l_return_status,
5772: x_msg_count => l_msg_count,
5773: x_msg_data => l_msg_data,
5774: p_task_id =>l_task_rec.visit_task_id);
5780:
5781: --Standard check to count messages
5782: l_msg_count := Fnd_Msg_Pub.count_msg;
5783:
5784: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5785: x_msg_count := l_msg_count;
5786: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5787: RAISE Fnd_Api.G_EXC_ERROR;
5788: END IF;
5782: l_msg_count := Fnd_Msg_Pub.count_msg;
5783:
5784: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5785: x_msg_count := l_msg_count;
5786: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5787: RAISE Fnd_Api.G_EXC_ERROR;
5788: END IF;
5789:
5790: --Standard check for commit
5783:
5784: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5785: x_msg_count := l_msg_count;
5786: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5787: RAISE Fnd_Api.G_EXC_ERROR;
5788: END IF;
5789:
5790: --Standard check for commit
5791: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
5787: RAISE Fnd_Api.G_EXC_ERROR;
5788: END IF;
5789:
5790: --Standard check for commit
5791: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
5792: COMMIT;
5793: END IF;
5794:
5795: IF (l_log_procedure >= l_log_current_level) THEN
5798: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
5799: END IF;
5800:
5801: EXCEPTION
5802: WHEN Fnd_Api.g_exc_error THEN
5803: ROLLBACK TO Update_Summary_Task;
5804: x_return_status := Fnd_Api.g_ret_sts_error;
5805: Fnd_Msg_Pub.count_and_get (
5806: p_encoded => Fnd_Api.g_false,
5800:
5801: EXCEPTION
5802: WHEN Fnd_Api.g_exc_error THEN
5803: ROLLBACK TO Update_Summary_Task;
5804: x_return_status := Fnd_Api.g_ret_sts_error;
5805: Fnd_Msg_Pub.count_and_get (
5806: p_encoded => Fnd_Api.g_false,
5807: p_count => x_msg_count,
5808: p_data => x_msg_data
5802: WHEN Fnd_Api.g_exc_error THEN
5803: ROLLBACK TO Update_Summary_Task;
5804: x_return_status := Fnd_Api.g_ret_sts_error;
5805: Fnd_Msg_Pub.count_and_get (
5806: p_encoded => Fnd_Api.g_false,
5807: p_count => x_msg_count,
5808: p_data => x_msg_data
5809: );
5810: WHEN Fnd_Api.g_exc_unexpected_error THEN
5806: p_encoded => Fnd_Api.g_false,
5807: p_count => x_msg_count,
5808: p_data => x_msg_data
5809: );
5810: WHEN Fnd_Api.g_exc_unexpected_error THEN
5811: ROLLBACK TO Update_Summary_Task;
5812: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5813: Fnd_Msg_Pub.count_and_get (
5814: p_encoded => Fnd_Api.g_false,
5808: p_data => x_msg_data
5809: );
5810: WHEN Fnd_Api.g_exc_unexpected_error THEN
5811: ROLLBACK TO Update_Summary_Task;
5812: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5813: Fnd_Msg_Pub.count_and_get (
5814: p_encoded => Fnd_Api.g_false,
5815: p_count => x_msg_count,
5816: p_data => x_msg_data
5810: WHEN Fnd_Api.g_exc_unexpected_error THEN
5811: ROLLBACK TO Update_Summary_Task;
5812: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5813: Fnd_Msg_Pub.count_and_get (
5814: p_encoded => Fnd_Api.g_false,
5815: p_count => x_msg_count,
5816: p_data => x_msg_data
5817: );
5818: WHEN OTHERS THEN
5816: p_data => x_msg_data
5817: );
5818: WHEN OTHERS THEN
5819: ROLLBACK TO Update_Summary_Task;
5820: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5821: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5822: THEN
5823: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5824: END IF;
5822: THEN
5823: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5824: END IF;
5825: Fnd_Msg_Pub.count_and_get (
5826: p_encoded => Fnd_Api.g_false,
5827: p_count => x_msg_count,
5828: p_data => x_msg_data
5829: );
5830: END Update_Summary_Task;
5837: -- To delete all types of tasks i.e Unassociated/Summary/Planned/Unplanned tasks.
5838: --------------------------------------------------------------------
5839: PROCEDURE Delete_Task (
5840: p_api_version IN NUMBER,
5841: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5842: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5843: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5844: p_module_type IN VARCHAR2 := 'JSP',
5845: p_Visit_Task_Id IN NUMBER,
5838: --------------------------------------------------------------------
5839: PROCEDURE Delete_Task (
5840: p_api_version IN NUMBER,
5841: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5842: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5843: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5844: p_module_type IN VARCHAR2 := 'JSP',
5845: p_Visit_Task_Id IN NUMBER,
5846: x_return_status OUT NOCOPY VARCHAR2,
5839: PROCEDURE Delete_Task (
5840: p_api_version IN NUMBER,
5841: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5842: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5843: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5844: p_module_type IN VARCHAR2 := 'JSP',
5845: p_Visit_Task_Id IN NUMBER,
5846: x_return_status OUT NOCOPY VARCHAR2,
5847: x_msg_count OUT NOCOPY NUMBER,
5938: END IF;
5939: --------------------- initialize -----------------------
5940: SAVEPOINT Delete_Task;
5941:
5942: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
5943: Fnd_Msg_Pub.initialize;
5944: END IF;
5945:
5946: -- Initialize API return status to success
5943: Fnd_Msg_Pub.initialize;
5944: END IF;
5945:
5946: -- Initialize API return status to success
5947: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5948:
5949: -- Standard call to check for call compatibility.
5950: IF NOT Fnd_Api.compatible_api_call(
5951: l_api_version,
5946: -- Initialize API return status to success
5947: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5948:
5949: -- Standard call to check for call compatibility.
5950: IF NOT Fnd_Api.compatible_api_call(
5951: l_api_version,
5952: p_api_version,
5953: l_api_name,
5954: G_PKG_NAME
5952: p_api_version,
5953: l_api_name,
5954: G_PKG_NAME
5955: ) THEN
5956: RAISE Fnd_Api.g_exc_unexpected_error;
5957: END IF;
5958: --------------------Start of API Body-----------------------------------
5959:
5960: -------------------Cursor values------------------------------------
5982:
5983: IF c_visit_rec.status_code IN ('CLOSED','CANCELLED') THEN
5984: Fnd_Message.SET_NAME('AHL','AHL_VWP_NOT_USE_VISIT');
5985: Fnd_Msg_Pub.ADD;
5986: RAISE Fnd_Api.G_EXC_ERROR;
5987: ELSIF c_task_rec.status_code = 'PLANNING' THEN
5988: IF c_task_rec.task_type_code = 'SUMMARY' THEN
5989:
5990: IF (l_log_statement >= l_log_current_level) THEN
5994: END IF;
5995: Delete_Summary_Task
5996: ( p_api_version => l_api_version,
5997: p_init_msg_list => p_init_msg_list,
5998: p_commit => Fnd_Api.g_false,
5999: p_validation_level => p_validation_level,
6000: p_module_type => p_module_type,
6001: p_visit_task_id => p_visit_task_id,
6002: x_return_status => l_return_status,
6019: END IF;
6020: AHL_VWP_PLAN_TASKS_PVT.Delete_Planned_Task
6021: ( p_api_version => l_api_version,
6022: p_init_msg_list => p_init_msg_list,
6023: p_commit => Fnd_Api.g_false,
6024: p_validation_level => p_validation_level,
6025: p_module_type => p_module_type,
6026: p_visit_task_id => p_visit_task_id,
6027: x_return_status => l_return_status,
6044: END IF;
6045: AHL_VWP_UNPLAN_TASKS_PVT.Delete_Unplanned_Task
6046: ( p_api_version => l_api_version,
6047: p_init_msg_list => p_init_msg_list,
6048: p_commit => Fnd_Api.g_false,
6049: p_validation_level => p_validation_level,
6050: p_module_type => p_module_type,
6051: p_visit_task_id => p_visit_task_id,
6052: x_return_status => l_return_status,
6068: END IF;
6069: Delete_Stage_Task
6070: ( p_api_version => l_api_version,
6071: p_init_msg_list => p_init_msg_list,
6072: p_commit => Fnd_Api.g_false,
6073: p_validation_level => p_validation_level,
6074: p_module_type => p_module_type,
6075: p_visit_task_id => p_visit_task_id,
6076: x_return_status => l_return_status,
6094: END IF;
6095: Delete_Unassociated_Task
6096: (p_api_version => l_api_version,
6097: p_init_msg_list => p_init_msg_list,
6098: p_commit => Fnd_Api.g_false,
6099: p_validation_level => p_validation_level,
6100: p_module_type => p_module_type,
6101: p_visit_task_id => p_visit_task_id,
6102: x_return_status => l_return_status,
6112: END IF;
6113:
6114: l_msg_count := Fnd_Msg_Pub.count_msg;
6115:
6116: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6117: x_msg_count := l_msg_count;
6118: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6119: RAISE Fnd_Api.G_EXC_ERROR;
6120: END IF;
6114: l_msg_count := Fnd_Msg_Pub.count_msg;
6115:
6116: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6117: x_msg_count := l_msg_count;
6118: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6119: RAISE Fnd_Api.G_EXC_ERROR;
6120: END IF;
6121:
6122: -- Added cxcheng POST11510--------------
6115:
6116: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6117: x_msg_count := l_msg_count;
6118: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6119: RAISE Fnd_Api.G_EXC_ERROR;
6120: END IF;
6121:
6122: -- Added cxcheng POST11510--------------
6123: --Now adjust the times derivation for entire visit task could delete at
6129: 'Before Calling AHL_VWP_TIMES_PVT.calculate_Task_Times');
6130: END IF;
6131:
6132: AHL_VWP_TIMES_PVT.calculate_Task_Times(p_api_version => 1.0,
6133: p_init_msg_list => Fnd_Api.G_FALSE,
6134: p_commit => Fnd_Api.G_FALSE,
6135: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
6136: x_return_status => l_return_status,
6137: x_msg_count => l_msg_count,
6130: END IF;
6131:
6132: AHL_VWP_TIMES_PVT.calculate_Task_Times(p_api_version => 1.0,
6133: p_init_msg_list => Fnd_Api.G_FALSE,
6134: p_commit => Fnd_Api.G_FALSE,
6135: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
6136: x_return_status => l_return_status,
6137: x_msg_count => l_msg_count,
6138: x_msg_data => l_msg_data,
6131:
6132: AHL_VWP_TIMES_PVT.calculate_Task_Times(p_api_version => 1.0,
6133: p_init_msg_list => Fnd_Api.G_FALSE,
6134: p_commit => Fnd_Api.G_FALSE,
6135: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
6136: x_return_status => l_return_status,
6137: x_msg_count => l_msg_count,
6138: x_msg_data => l_msg_data,
6139: p_visit_id => c_task_rec.visit_id);
6152:
6153: /* Operation flag changed to 'U' From 'R' by mpothuku on 02/07/05 */
6154: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
6155: (p_api_version => p_api_version,
6156: p_init_msg_list => Fnd_Api.G_FALSE,
6157: p_commit => Fnd_Api.G_FALSE,
6158: p_visit_id => c_task_rec.visit_id,
6159: p_visit_task_id => NULL,
6160: p_org_id => NULL,
6153: /* Operation flag changed to 'U' From 'R' by mpothuku on 02/07/05 */
6154: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
6155: (p_api_version => p_api_version,
6156: p_init_msg_list => Fnd_Api.G_FALSE,
6157: p_commit => Fnd_Api.G_FALSE,
6158: p_visit_id => c_task_rec.visit_id,
6159: p_visit_task_id => NULL,
6160: p_org_id => NULL,
6161: p_start_date => NULL,
6170: L_DEBUG_KEY,
6171: 'After Calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials, Return Status = ' || l_return_status);
6172: END IF;
6173:
6174: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6175: x_msg_count := l_msg_count;
6176: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6177: RAISE Fnd_Api.G_EXC_ERROR;
6178: END IF;
6172: END IF;
6173:
6174: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6175: x_msg_count := l_msg_count;
6176: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6177: RAISE Fnd_Api.G_EXC_ERROR;
6178: END IF;
6179:
6180: -- post 11.5.10
6173:
6174: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6175: x_msg_count := l_msg_count;
6176: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6177: RAISE Fnd_Api.G_EXC_ERROR;
6178: END IF;
6179:
6180: -- post 11.5.10
6181: --yazhou start
6270: CS_ServiceRequest_PUB.Update_Status
6271: (
6272: p_api_version => 2.0,
6273: p_init_msg_list => p_init_msg_list,
6274: p_commit => FND_API.G_FALSE,
6275: p_resp_appl_id => NULL,
6276: p_resp_id => NULL,
6277: p_user_id => NULL,
6278: p_login_id => NULL,
6278: p_login_id => NULL,
6279: p_status_id => 1, --OPEN
6280: p_closed_date => NULL,
6281: p_audit_comments => NULL,
6282: p_called_by_workflow => FND_API.G_FALSE,
6283: p_workflow_process_id => NULL,
6284: p_comments => NULL,
6285: p_public_comment_flag => FND_API.G_FALSE,
6286: p_validate_sr_closure => 'N',
6281: p_audit_comments => NULL,
6282: p_called_by_workflow => FND_API.G_FALSE,
6283: p_workflow_process_id => NULL,
6284: p_comments => NULL,
6285: p_public_comment_flag => FND_API.G_FALSE,
6286: p_validate_sr_closure => 'N',
6287: p_auto_close_child_entities => 'N',
6288: p_request_id => NULL,
6289: p_request_number => c_sr_ovn_rec.incident_number,
6303: END IF;
6304:
6305: l_msg_count := Fnd_Msg_Pub.count_msg;
6306:
6307: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6308: x_msg_count := l_msg_count;
6309: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6310: RAISE Fnd_Api.G_EXC_ERROR;
6311: END IF;
6305: l_msg_count := Fnd_Msg_Pub.count_msg;
6306:
6307: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6308: x_msg_count := l_msg_count;
6309: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6310: RAISE Fnd_Api.G_EXC_ERROR;
6311: END IF;
6312: END IF;
6313:
6306:
6307: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6308: x_msg_count := l_msg_count;
6309: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6310: RAISE Fnd_Api.G_EXC_ERROR;
6311: END IF;
6312: END IF;
6313:
6314: END IF;
6320: p_visit_id =>c_visit_rec.visit_id,
6321: p_flag =>'Y',
6322: x_return_status =>x_return_status);
6323:
6324: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6325: RAISE FND_API.G_EXC_ERROR;
6326: END IF;
6327: END IF;
6328: ------------------------End of API Body------------------------------------
6321: p_flag =>'Y',
6322: x_return_status =>x_return_status);
6323:
6324: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6325: RAISE FND_API.G_EXC_ERROR;
6326: END IF;
6327: END IF;
6328: ------------------------End of API Body------------------------------------
6329:
6329:
6330: --Standard check to count messages
6331: l_msg_count := Fnd_Msg_Pub.count_msg;
6332:
6333: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6334: x_msg_count := l_msg_count;
6335: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6336: RAISE Fnd_Api.G_EXC_ERROR;
6337: END IF;
6331: l_msg_count := Fnd_Msg_Pub.count_msg;
6332:
6333: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6334: x_msg_count := l_msg_count;
6335: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6336: RAISE Fnd_Api.G_EXC_ERROR;
6337: END IF;
6338:
6339: --Standard check for commit
6332:
6333: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6334: x_msg_count := l_msg_count;
6335: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6336: RAISE Fnd_Api.G_EXC_ERROR;
6337: END IF;
6338:
6339: --Standard check for commit
6340: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
6336: RAISE Fnd_Api.G_EXC_ERROR;
6337: END IF;
6338:
6339: --Standard check for commit
6340: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
6341: COMMIT;
6342: END IF;
6343:
6344: IF (l_log_procedure >= l_log_current_level) THEN
6347: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
6348: END IF;
6349:
6350: EXCEPTION
6351: WHEN Fnd_Api.g_exc_error THEN
6352: ROLLBACK TO Delete_Task;
6353: x_return_status := Fnd_Api.g_ret_sts_error;
6354: Fnd_Msg_Pub.count_and_get (
6355: p_encoded => Fnd_Api.g_false,
6349:
6350: EXCEPTION
6351: WHEN Fnd_Api.g_exc_error THEN
6352: ROLLBACK TO Delete_Task;
6353: x_return_status := Fnd_Api.g_ret_sts_error;
6354: Fnd_Msg_Pub.count_and_get (
6355: p_encoded => Fnd_Api.g_false,
6356: p_count => x_msg_count,
6357: p_data => x_msg_data
6351: WHEN Fnd_Api.g_exc_error THEN
6352: ROLLBACK TO Delete_Task;
6353: x_return_status := Fnd_Api.g_ret_sts_error;
6354: Fnd_Msg_Pub.count_and_get (
6355: p_encoded => Fnd_Api.g_false,
6356: p_count => x_msg_count,
6357: p_data => x_msg_data
6358: );
6359: WHEN Fnd_Api.g_exc_unexpected_error THEN
6355: p_encoded => Fnd_Api.g_false,
6356: p_count => x_msg_count,
6357: p_data => x_msg_data
6358: );
6359: WHEN Fnd_Api.g_exc_unexpected_error THEN
6360: ROLLBACK TO Delete_Task;
6361: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6362: Fnd_Msg_Pub.count_and_get (
6363: p_encoded => Fnd_Api.g_false,
6357: p_data => x_msg_data
6358: );
6359: WHEN Fnd_Api.g_exc_unexpected_error THEN
6360: ROLLBACK TO Delete_Task;
6361: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6362: Fnd_Msg_Pub.count_and_get (
6363: p_encoded => Fnd_Api.g_false,
6364: p_count => x_msg_count,
6365: p_data => x_msg_data
6359: WHEN Fnd_Api.g_exc_unexpected_error THEN
6360: ROLLBACK TO Delete_Task;
6361: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6362: Fnd_Msg_Pub.count_and_get (
6363: p_encoded => Fnd_Api.g_false,
6364: p_count => x_msg_count,
6365: p_data => x_msg_data
6366: );
6367: WHEN OTHERS THEN
6365: p_data => x_msg_data
6366: );
6367: WHEN OTHERS THEN
6368: ROLLBACK TO Delete_Task;
6369: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6370: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6371: THEN
6372: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6373: END IF;
6371: THEN
6372: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6373: END IF;
6374: Fnd_Msg_Pub.count_and_get (
6375: p_encoded => Fnd_Api.g_false,
6376: p_count => x_msg_count,
6377: p_data => x_msg_data
6378: );
6379: END Delete_Task;
6387: --------------------------------------------------------------------
6388:
6389: PROCEDURE Delete_Unassociated_Task (
6390: p_api_version IN NUMBER,
6391: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
6392: p_commit IN VARCHAR2 := Fnd_Api.g_false,
6393: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
6394: p_module_type IN VARCHAR2 := 'JSP',
6395: p_visit_task_ID IN NUMBER,
6388:
6389: PROCEDURE Delete_Unassociated_Task (
6390: p_api_version IN NUMBER,
6391: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
6392: p_commit IN VARCHAR2 := Fnd_Api.g_false,
6393: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
6394: p_module_type IN VARCHAR2 := 'JSP',
6395: p_visit_task_ID IN NUMBER,
6396: x_return_status OUT NOCOPY VARCHAR2,
6389: PROCEDURE Delete_Unassociated_Task (
6390: p_api_version IN NUMBER,
6391: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
6392: p_commit IN VARCHAR2 := Fnd_Api.g_false,
6393: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
6394: p_module_type IN VARCHAR2 := 'JSP',
6395: p_visit_task_ID IN NUMBER,
6396: x_return_status OUT NOCOPY VARCHAR2,
6397: x_msg_count OUT NOCOPY NUMBER,
6471:
6472: --------------------- initialize -----------------------
6473: SAVEPOINT Delete_Unassociated_Task;
6474:
6475: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
6476: Fnd_Msg_Pub.initialize;
6477: END IF;
6478:
6479: -- Initialize API return status to success
6476: Fnd_Msg_Pub.initialize;
6477: END IF;
6478:
6479: -- Initialize API return status to success
6480: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6481:
6482: -- Standard call to check for call compatibility.
6483: IF NOT Fnd_Api.compatible_api_call(
6484: l_api_version,
6479: -- Initialize API return status to success
6480: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6481:
6482: -- Standard call to check for call compatibility.
6483: IF NOT Fnd_Api.compatible_api_call(
6484: l_api_version,
6485: p_api_version,
6486: l_api_name,
6487: G_PKG_NAME
6485: p_api_version,
6486: l_api_name,
6487: G_PKG_NAME
6488: ) THEN
6489: RAISE Fnd_Api.g_exc_unexpected_error;
6490: END IF;
6491:
6492: ------------------------Start of API Body------------------------------------
6493: IF (l_log_statement >= l_log_current_level) THEN
6505: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
6506: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
6507: Fnd_Msg_Pub.ADD;
6508: END IF;
6509: RAISE Fnd_Api.g_exc_error;
6510: END IF;
6511: CLOSE c_Task;
6512:
6513: -- To find the visit related information
6530:
6531: l_msg_count := FND_MSG_PUB.count_msg;
6532: IF l_msg_count > 0 THEN
6533: x_msg_count := l_msg_count;
6534: x_return_status := FND_API.G_RET_STS_ERROR;
6535: RAISE FND_API.G_EXC_ERROR;
6536: END IF;
6537:
6538: l_workorder_rec.wip_entity_id := null;
6531: l_msg_count := FND_MSG_PUB.count_msg;
6532: IF l_msg_count > 0 THEN
6533: x_msg_count := l_msg_count;
6534: x_return_status := FND_API.G_RET_STS_ERROR;
6535: RAISE FND_API.G_EXC_ERROR;
6536: END IF;
6537:
6538: l_workorder_rec.wip_entity_id := null;
6539: l_workorder_rec.STATUS_CODE:='22'; --Deleted Status Refer DLD to Verify.
6545: END IF;
6546: AHL_PRD_WORKORDER_PVT.update_job
6547: (
6548: p_api_version => 1.0,
6549: p_init_msg_list => fnd_api.g_false,
6550: p_commit => fnd_api.g_false,
6551: p_validation_level => p_validation_level,
6552: p_default => fnd_api.g_false,
6553: p_module_type => NULL,
6546: AHL_PRD_WORKORDER_PVT.update_job
6547: (
6548: p_api_version => 1.0,
6549: p_init_msg_list => fnd_api.g_false,
6550: p_commit => fnd_api.g_false,
6551: p_validation_level => p_validation_level,
6552: p_default => fnd_api.g_false,
6553: p_module_type => NULL,
6554: x_return_status => x_return_status,
6548: p_api_version => 1.0,
6549: p_init_msg_list => fnd_api.g_false,
6550: p_commit => fnd_api.g_false,
6551: p_validation_level => p_validation_level,
6552: p_default => fnd_api.g_false,
6553: p_module_type => NULL,
6554: x_return_status => x_return_status,
6555: x_msg_count => x_msg_count,
6556: x_msg_data => x_msg_data,
6565: 'After Calling AHL_PRD_WORKORDER_PVT.update_job, Return Status = ' || x_return_status);
6566: END IF;
6567:
6568: l_msg_count := FND_MSG_PUB.count_msg;
6569: IF l_msg_count > 0 OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6570: x_msg_count := l_msg_count;
6571: x_return_status := FND_API.G_RET_STS_ERROR;
6572: RAISE FND_API.G_EXC_ERROR;
6573: END IF;
6567:
6568: l_msg_count := FND_MSG_PUB.count_msg;
6569: IF l_msg_count > 0 OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6570: x_msg_count := l_msg_count;
6571: x_return_status := FND_API.G_RET_STS_ERROR;
6572: RAISE FND_API.G_EXC_ERROR;
6573: END IF;
6574:
6575: ELSE
6568: l_msg_count := FND_MSG_PUB.count_msg;
6569: IF l_msg_count > 0 OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6570: x_msg_count := l_msg_count;
6571: x_return_status := FND_API.G_RET_STS_ERROR;
6572: RAISE FND_API.G_EXC_ERROR;
6573: END IF;
6574:
6575: ELSE
6576: -- if status is not draft
6575: ELSE
6576: -- if status is not draft
6577: Fnd_Message.set_name ('AHL', 'AHL_VWP_TSK_CANNOT_DEL');
6578: Fnd_Msg_Pub.ADD;
6579: RAISE FND_API.G_EXC_ERROR;
6580: END IF; -- End of Job Status
6581: CLOSE c_workorders;
6582:
6583: ELSE
6604: (p_visit_task_id =>l_task_Id,
6605: x_return_status =>x_return_status
6606: );
6607:
6608: IF NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6609: x_msg_count := l_msg_count;
6610: x_return_status := FND_API.G_RET_STS_ERROR;
6611: RAISE FND_API.G_EXC_ERROR;
6612: END IF;
6606: );
6607:
6608: IF NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6609: x_msg_count := l_msg_count;
6610: x_return_status := FND_API.G_RET_STS_ERROR;
6611: RAISE FND_API.G_EXC_ERROR;
6612: END IF;
6613:
6614: -- To find if task deleted from a visit in the Primary Plan,
6607:
6608: IF NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6609: x_msg_count := l_msg_count;
6610: x_return_status := FND_API.G_RET_STS_ERROR;
6611: RAISE FND_API.G_EXC_ERROR;
6612: END IF;
6613:
6614: -- To find if task deleted from a visit in the Primary Plan,
6615: -- then any task associated to it in a simulation visit must have the association removed.
6661: END IF;
6662: AHL_VWP_PROJ_PROD_PVT.Delete_Task_to_Project(
6663: /*p_api_version => l_api_version,
6664: p_init_msg_list => p_init_msg_list,
6665: p_commit => Fnd_Api.g_false,
6666: p_validation_level => p_validation_level,
6667: p_module_type => p_module_type,*/
6668: p_visit_task_id => c_task_rec.Visit_Task_ID,
6669: x_return_status => l_return_status);
6670: /*x_msg_count => x_msg_count,
6671: x_msg_data => x_msg_data);*/
6672:
6673: l_msg_count := FND_MSG_PUB.count_msg;
6674: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6675: x_msg_count := l_msg_count;
6676: x_return_status := FND_API.G_RET_STS_ERROR;
6677: RAISE FND_API.G_EXC_ERROR;
6678: END IF;
6672:
6673: l_msg_count := FND_MSG_PUB.count_msg;
6674: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6675: x_msg_count := l_msg_count;
6676: x_return_status := FND_API.G_RET_STS_ERROR;
6677: RAISE FND_API.G_EXC_ERROR;
6678: END IF;
6679: END IF;
6680:
6673: l_msg_count := FND_MSG_PUB.count_msg;
6674: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6675: x_msg_count := l_msg_count;
6676: x_return_status := FND_API.G_RET_STS_ERROR;
6677: RAISE FND_API.G_EXC_ERROR;
6678: END IF;
6679: END IF;
6680:
6681: IF (l_log_statement >= l_log_current_level) THEN
6694: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
6695: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
6696: Fnd_Msg_Pub.ADD;
6697: END IF;
6698: RAISE Fnd_Api.g_exc_error;
6699: END IF;
6700:
6701: -- Delete task base (AHL_VISIT_TASKS_B) table data
6702: DELETE FROM Ahl_Visit_Tasks_B
6704:
6705: IF (SQL%NOTFOUND) THEN
6706: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
6707: Fnd_Msg_Pub.ADD;
6708: RAISE Fnd_Api.g_exc_error;
6709: END IF;
6710:
6711: ELSE
6712: UPDATE AHL_VISIT_TASKS_B
6742: l_return_status);
6743: END IF;
6744:
6745: l_msg_count := Fnd_Msg_Pub.count_msg;
6746: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
6747: x_msg_count := l_msg_count;
6748: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6749: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6750: END IF;
6744:
6745: l_msg_count := Fnd_Msg_Pub.count_msg;
6746: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
6747: x_msg_count := l_msg_count;
6748: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6749: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6750: END IF;
6751: -- salogan added for supplier warranty ends
6752:
6745: l_msg_count := Fnd_Msg_Pub.count_msg;
6746: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
6747: x_msg_count := l_msg_count;
6748: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6749: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6750: END IF;
6751: -- salogan added for supplier warranty ends
6752:
6753: IF (l_log_statement >= l_log_current_level) THEN
6758:
6759: END IF; -- End of l_workorder_present flag check
6760:
6761: ------------------------End of API Body------------------------------------
6762: IF Fnd_Api.to_boolean (p_commit) THEN
6763: COMMIT;
6764: END IF;
6765:
6766: Fnd_Msg_Pub.count_and_get (
6763: COMMIT;
6764: END IF;
6765:
6766: Fnd_Msg_Pub.count_and_get (
6767: p_encoded => Fnd_Api.g_false,
6768: p_count => x_msg_count,
6769: p_data => x_msg_data
6770: );
6771:
6774: L_DEBUG_KEY ||'.end',
6775: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
6776: END IF;
6777: EXCEPTION
6778: WHEN Fnd_Api.g_exc_error THEN
6779: ROLLBACK TO Delete_Unassociated_Task;
6780: x_return_status := Fnd_Api.g_ret_sts_error;
6781: Fnd_Msg_Pub.count_and_get (
6782: p_encoded => Fnd_Api.g_false,
6776: END IF;
6777: EXCEPTION
6778: WHEN Fnd_Api.g_exc_error THEN
6779: ROLLBACK TO Delete_Unassociated_Task;
6780: x_return_status := Fnd_Api.g_ret_sts_error;
6781: Fnd_Msg_Pub.count_and_get (
6782: p_encoded => Fnd_Api.g_false,
6783: p_count => x_msg_count,
6784: p_data => x_msg_data
6778: WHEN Fnd_Api.g_exc_error THEN
6779: ROLLBACK TO Delete_Unassociated_Task;
6780: x_return_status := Fnd_Api.g_ret_sts_error;
6781: Fnd_Msg_Pub.count_and_get (
6782: p_encoded => Fnd_Api.g_false,
6783: p_count => x_msg_count,
6784: p_data => x_msg_data
6785: );
6786: WHEN Fnd_Api.g_exc_unexpected_error THEN
6782: p_encoded => Fnd_Api.g_false,
6783: p_count => x_msg_count,
6784: p_data => x_msg_data
6785: );
6786: WHEN Fnd_Api.g_exc_unexpected_error THEN
6787: ROLLBACK TO Delete_Unassociated_Task;
6788: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6789: Fnd_Msg_Pub.count_and_get (
6790: p_encoded => Fnd_Api.g_false,
6784: p_data => x_msg_data
6785: );
6786: WHEN Fnd_Api.g_exc_unexpected_error THEN
6787: ROLLBACK TO Delete_Unassociated_Task;
6788: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6789: Fnd_Msg_Pub.count_and_get (
6790: p_encoded => Fnd_Api.g_false,
6791: p_count => x_msg_count,
6792: p_data => x_msg_data
6786: WHEN Fnd_Api.g_exc_unexpected_error THEN
6787: ROLLBACK TO Delete_Unassociated_Task;
6788: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6789: Fnd_Msg_Pub.count_and_get (
6790: p_encoded => Fnd_Api.g_false,
6791: p_count => x_msg_count,
6792: p_data => x_msg_data
6793: );
6794: WHEN OTHERS THEN
6792: p_data => x_msg_data
6793: );
6794: WHEN OTHERS THEN
6795: ROLLBACK TO Delete_Unassociated_Task;
6796: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6797: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6798: THEN
6799: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6800: END IF;
6798: THEN
6799: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6800: END IF;
6801: Fnd_Msg_Pub.count_and_get (
6802: p_encoded => Fnd_Api.g_false,
6803: p_count => x_msg_count,
6804: p_data => x_msg_data
6805: );
6806: END Delete_Unassociated_Task;
6815: --------------------------------------------------------------------
6816:
6817: PROCEDURE Delete_SR_Task (
6818: p_api_version IN NUMBER,
6819: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
6820: p_commit IN VARCHAR2 := Fnd_Api.g_false,
6821: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
6822: p_module_type IN VARCHAR2:= 'JSP',
6823: p_visit_task_ID IN NUMBER,
6816:
6817: PROCEDURE Delete_SR_Task (
6818: p_api_version IN NUMBER,
6819: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
6820: p_commit IN VARCHAR2 := Fnd_Api.g_false,
6821: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
6822: p_module_type IN VARCHAR2:= 'JSP',
6823: p_visit_task_ID IN NUMBER,
6824: x_return_status OUT NOCOPY VARCHAR2,
6817: PROCEDURE Delete_SR_Task (
6818: p_api_version IN NUMBER,
6819: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
6820: p_commit IN VARCHAR2 := Fnd_Api.g_false,
6821: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
6822: p_module_type IN VARCHAR2:= 'JSP',
6823: p_visit_task_ID IN NUMBER,
6824: x_return_status OUT NOCOPY VARCHAR2,
6825: x_msg_count OUT NOCOPY NUMBER,
6909: END IF;
6910:
6911: SAVEPOINT Delete_SR_Task;
6912:
6913: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
6914: Fnd_Msg_Pub.initialize;
6915: END IF;
6916:
6917: -- Initialize API return status to success
6915: END IF;
6916:
6917: -- Initialize API return status to success
6918:
6919: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6920:
6921: -- Standard call to check for call compatibility.
6922: IF NOT Fnd_Api.compatible_api_call(L_api_version,p_api_version,
6923: l_api_name, G_PKG_NAME)
6918:
6919: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6920:
6921: -- Standard call to check for call compatibility.
6922: IF NOT Fnd_Api.compatible_api_call(L_api_version,p_api_version,
6923: l_api_name, G_PKG_NAME)
6924: THEN
6925: RAISE Fnd_Api.g_exc_unexpected_error;
6926: END IF;
6921: -- Standard call to check for call compatibility.
6922: IF NOT Fnd_Api.compatible_api_call(L_api_version,p_api_version,
6923: l_api_name, G_PKG_NAME)
6924: THEN
6925: RAISE Fnd_Api.g_exc_unexpected_error;
6926: END IF;
6927:
6928: ------------------------Start of API Body------------------------------------
6929: IF (l_log_statement >= l_log_current_level) THEN
6943: THEN
6944: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
6945: Fnd_Msg_Pub.ADD;
6946: END IF;
6947: RAISE Fnd_Api.g_exc_error;
6948: ELSE
6949: l_orgin_id :=c_task_rec.ORIGINATING_TASK_ID;
6950: l_cost_id :=c_task_rec.cost_parent_id;
6951: l_visit_id :=c_task_rec.visit_id;
6983: FND_MESSAGE.SET_TOKEN('Task_Number',c_task_rec.visit_task_number);
6984: Fnd_Msg_Pub.ADD;
6985: CLOSE c_workorders;
6986: CLOSE c_SR_tasks;
6987: RAISE fnd_Api.g_exc_error;
6988: -- IF STATUS IS NOT DRAFT RAISE ERROR.
6989: ELSIF c_workrec.status_code='17'
6990: THEN
6991:
7002: IF l_msg_count > 0 THEN
7003: CLOSE c_workorders;
7004: CLOSE c_SR_tasks;
7005: x_msg_count := l_msg_count;
7006: x_return_status := FND_API.G_RET_STS_ERROR;
7007: RAISE FND_API.G_EXC_ERROR;
7008: END IF;
7009: l_workorder_rec.wip_entity_id := null;
7010: l_workorder_rec.STATUS_CODE:='22'; --Deleted Status Refer DLD to Verify.
7003: CLOSE c_workorders;
7004: CLOSE c_SR_tasks;
7005: x_msg_count := l_msg_count;
7006: x_return_status := FND_API.G_RET_STS_ERROR;
7007: RAISE FND_API.G_EXC_ERROR;
7008: END IF;
7009: l_workorder_rec.wip_entity_id := null;
7010: l_workorder_rec.STATUS_CODE:='22'; --Deleted Status Refer DLD to Verify.
7011:
7019:
7020: /*AHL_PRD_WORKORDER_PVT.update_job
7021: (
7022: p_api_version =>1.0,
7023: p_init_msg_list =>fnd_api.g_false,
7024: p_commit =>fnd_api.g_false,
7025: p_validation_level =>p_validation_level,
7026: p_default =>fnd_api.g_false,
7027: p_module_type =>NULL,
7020: /*AHL_PRD_WORKORDER_PVT.update_job
7021: (
7022: p_api_version =>1.0,
7023: p_init_msg_list =>fnd_api.g_false,
7024: p_commit =>fnd_api.g_false,
7025: p_validation_level =>p_validation_level,
7026: p_default =>fnd_api.g_false,
7027: p_module_type =>NULL,
7028:
7022: p_api_version =>1.0,
7023: p_init_msg_list =>fnd_api.g_false,
7024: p_commit =>fnd_api.g_false,
7025: p_validation_level =>p_validation_level,
7026: p_default =>fnd_api.g_false,
7027: p_module_type =>NULL,
7028:
7029: x_return_status =>x_return_status,
7030: x_msg_count =>x_msg_count,
7043:
7044: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
7045: (
7046: p_api_version =>1.0,
7047: p_init_msg_list =>fnd_api.g_false,
7048: p_commit =>fnd_api.g_false,
7049: p_validation_level =>p_validation_level,
7050: p_default =>fnd_api.g_false,
7051: p_module_type =>NULL,
7044: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
7045: (
7046: p_api_version =>1.0,
7047: p_init_msg_list =>fnd_api.g_false,
7048: p_commit =>fnd_api.g_false,
7049: p_validation_level =>p_validation_level,
7050: p_default =>fnd_api.g_false,
7051: p_module_type =>NULL,
7052: x_return_status =>l_return_status,
7046: p_api_version =>1.0,
7047: p_init_msg_list =>fnd_api.g_false,
7048: p_commit =>fnd_api.g_false,
7049: p_validation_level =>p_validation_level,
7050: p_default =>fnd_api.g_false,
7051: p_module_type =>NULL,
7052: x_return_status =>l_return_status,
7053: x_msg_count =>l_msg_count,
7054: x_msg_data =>l_msg_data,
7063: 'After Calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs, Return Status = ' || l_return_status );
7064: END IF;
7065:
7066: l_msg_count := FND_MSG_PUB.count_msg;
7067: IF l_msg_count > 0 OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7068: CLOSE c_workorders;
7069: CLOSE c_SR_tasks;
7070: x_msg_count := l_msg_count;
7071: x_return_status := FND_API.G_RET_STS_ERROR;
7067: IF l_msg_count > 0 OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7068: CLOSE c_workorders;
7069: CLOSE c_SR_tasks;
7070: x_msg_count := l_msg_count;
7071: x_return_status := FND_API.G_RET_STS_ERROR;
7072: RAISE FND_API.G_EXC_ERROR;
7073: END IF;
7074:
7075: END IF; -- End of If c_workrec.status_code<>'17' check
7068: CLOSE c_workorders;
7069: CLOSE c_SR_tasks;
7070: x_msg_count := l_msg_count;
7071: x_return_status := FND_API.G_RET_STS_ERROR;
7072: RAISE FND_API.G_EXC_ERROR;
7073: END IF;
7074:
7075: END IF; -- End of If c_workrec.status_code<>'17' check
7076:
7090: p_visit_task_id =>l_task_ID,
7091: x_return_status =>x_return_status
7092: );
7093:
7094: IF FND_MSG_PUB.count_msg>0 or NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7095: CLOSE c_SR_tasks;
7096: RAISE Fnd_Api.g_exc_error;
7097: END IF;
7098:
7092: );
7093:
7094: IF FND_MSG_PUB.count_msg>0 or NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7095: CLOSE c_SR_tasks;
7096: RAISE Fnd_Api.g_exc_error;
7097: END IF;
7098:
7099: IF (l_log_statement >= l_log_current_level) THEN
7100: fnd_log.string(l_log_statement,
7129:
7130: AHL_VWP_PROJ_PROD_PVT.Delete_Task_to_Project(
7131: /* p_api_version => l_api_version,
7132: p_init_msg_list => p_init_msg_list,
7133: p_commit => Fnd_Api.g_false,
7134: p_validation_level => p_validation_level,
7135: p_module_type => p_module_type,*/
7136: p_visit_task_id => l_task_id,
7137: x_return_status => l_return_status);
7144: 'After Calling AHL_VWP_PROJ_PROD_PVT.Delete_Task_to_Project, Return Status = ' || l_return_status);
7145: END IF;
7146:
7147: IF (fnd_msg_pub.count_msg > 0) OR
7148: NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7149: CLOSE c_SR_tasks;
7150: RAISE Fnd_Api.g_exc_error;
7151: END IF;
7152:
7146:
7147: IF (fnd_msg_pub.count_msg > 0) OR
7148: NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7149: CLOSE c_SR_tasks;
7150: RAISE Fnd_Api.g_exc_error;
7151: END IF;
7152:
7153: END IF;
7154:
7209: l_return_status);
7210: END IF;
7211:
7212: l_msg_count := Fnd_Msg_Pub.count_msg;
7213: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
7214: x_msg_count := l_msg_count;
7215: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7216: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7217: END IF;
7211:
7212: l_msg_count := Fnd_Msg_Pub.count_msg;
7213: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
7214: x_msg_count := l_msg_count;
7215: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7216: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7217: END IF;
7218: -- salogan added for supplier warranty ends
7219: ELSE
7212: l_msg_count := Fnd_Msg_Pub.count_msg;
7213: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
7214: x_msg_count := l_msg_count;
7215: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7216: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7217: END IF;
7218: -- salogan added for supplier warranty ends
7219: ELSE
7220: DELETE FROM Ahl_Visit_Tasks_TL
7226: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
7227: Fnd_Msg_Pub.ADD;
7228: END IF;
7229: CLOSE c_SR_tasks;
7230: RAISE Fnd_Api.g_exc_error;
7231: END IF;
7232:
7233: -- Delete task base (AHL_VISIT_TASKS_B) table data
7234:
7247: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
7248: Fnd_Msg_Pub.ADD;
7249: END IF;
7250: CLOSE c_SR_tasks;
7251: RAISE Fnd_Api.g_exc_error;
7252: END IF;
7253: END IF;
7254:
7255: IF NVL(c_visit_rec.actual_price,0) <> 0
7284: L_DEBUG_KEY ||'.end',
7285: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
7286: END IF;
7287: EXCEPTION
7288: WHEN Fnd_Api.g_exc_error THEN
7289: ROLLBACK TO Delete_SR_Task;
7290: x_return_status := Fnd_Api.g_ret_sts_error;
7291: Fnd_Msg_Pub.count_and_get (
7292: p_encoded => Fnd_Api.g_false,
7286: END IF;
7287: EXCEPTION
7288: WHEN Fnd_Api.g_exc_error THEN
7289: ROLLBACK TO Delete_SR_Task;
7290: x_return_status := Fnd_Api.g_ret_sts_error;
7291: Fnd_Msg_Pub.count_and_get (
7292: p_encoded => Fnd_Api.g_false,
7293: p_count => x_msg_count,
7294: p_data => x_msg_data
7288: WHEN Fnd_Api.g_exc_error THEN
7289: ROLLBACK TO Delete_SR_Task;
7290: x_return_status := Fnd_Api.g_ret_sts_error;
7291: Fnd_Msg_Pub.count_and_get (
7292: p_encoded => Fnd_Api.g_false,
7293: p_count => x_msg_count,
7294: p_data => x_msg_data
7295: );
7296: WHEN Fnd_Api.g_exc_unexpected_error THEN
7292: p_encoded => Fnd_Api.g_false,
7293: p_count => x_msg_count,
7294: p_data => x_msg_data
7295: );
7296: WHEN Fnd_Api.g_exc_unexpected_error THEN
7297: ROLLBACK TO Delete_SR_Task;
7298: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7299: Fnd_Msg_Pub.count_and_get (
7300: p_encoded => Fnd_Api.g_false,
7294: p_data => x_msg_data
7295: );
7296: WHEN Fnd_Api.g_exc_unexpected_error THEN
7297: ROLLBACK TO Delete_SR_Task;
7298: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7299: Fnd_Msg_Pub.count_and_get (
7300: p_encoded => Fnd_Api.g_false,
7301: p_count => x_msg_count,
7302: p_data => x_msg_data
7296: WHEN Fnd_Api.g_exc_unexpected_error THEN
7297: ROLLBACK TO Delete_SR_Task;
7298: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7299: Fnd_Msg_Pub.count_and_get (
7300: p_encoded => Fnd_Api.g_false,
7301: p_count => x_msg_count,
7302: p_data => x_msg_data
7303: );
7304: WHEN OTHERS THEN
7302: p_data => x_msg_data
7303: );
7304: WHEN OTHERS THEN
7305: ROLLBACK TO Delete_SR_Task;
7306: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7307: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7308: THEN
7309: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7310: END IF;
7308: THEN
7309: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7310: END IF;
7311: Fnd_Msg_Pub.count_and_get (
7312: p_encoded => Fnd_Api.g_false,
7313: p_count => x_msg_count,
7314: p_data => x_msg_data
7315: );
7316: END Delete_SR_Task;
7323: -- To delete Summary tasks for the Maintenace visit.
7324: --------------------------------------------------------------------
7325: PROCEDURE Delete_Summary_Task (
7326: p_api_version IN NUMBER,
7327: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
7328: p_commit IN VARCHAR2 := Fnd_Api.g_false,
7329: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
7330: p_module_type IN VARCHAR2:= 'JSP',
7331: p_visit_task_ID IN NUMBER,
7324: --------------------------------------------------------------------
7325: PROCEDURE Delete_Summary_Task (
7326: p_api_version IN NUMBER,
7327: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
7328: p_commit IN VARCHAR2 := Fnd_Api.g_false,
7329: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
7330: p_module_type IN VARCHAR2:= 'JSP',
7331: p_visit_task_ID IN NUMBER,
7332: x_return_status OUT NOCOPY VARCHAR2,
7325: PROCEDURE Delete_Summary_Task (
7326: p_api_version IN NUMBER,
7327: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
7328: p_commit IN VARCHAR2 := Fnd_Api.g_false,
7329: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
7330: p_module_type IN VARCHAR2:= 'JSP',
7331: p_visit_task_ID IN NUMBER,
7332: x_return_status OUT NOCOPY VARCHAR2,
7333: x_msg_count OUT NOCOPY NUMBER,
7433: --------------------- initialize -----------------------
7434: SAVEPOINT Delete_Summary_Task;
7435: -- Check if API is called in debug mode. If yes, enable debug.
7436:
7437: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
7438: Fnd_Msg_Pub.initialize;
7439: END IF;
7440:
7441: -- Initialize API return status to success
7439: END IF;
7440:
7441: -- Initialize API return status to success
7442:
7443: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
7444:
7445: -- Standard call to check for call compatibility.
7446: IF NOT Fnd_Api.compatible_api_call(L_api_version,p_api_version,
7447: l_api_name, G_PKG_NAME)
7442:
7443: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
7444:
7445: -- Standard call to check for call compatibility.
7446: IF NOT Fnd_Api.compatible_api_call(L_api_version,p_api_version,
7447: l_api_name, G_PKG_NAME)
7448: THEN
7449: RAISE Fnd_Api.g_exc_unexpected_error;
7450: END IF;
7445: -- Standard call to check for call compatibility.
7446: IF NOT Fnd_Api.compatible_api_call(L_api_version,p_api_version,
7447: l_api_name, G_PKG_NAME)
7448: THEN
7449: RAISE Fnd_Api.g_exc_unexpected_error;
7450: END IF;
7451:
7452: ------------------------Start of API Body------------------------------------
7453:
7468: THEN
7469: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
7470: Fnd_Msg_Pub.ADD;
7471: END IF;
7472: RAISE Fnd_Api.g_exc_error;
7473:
7474: END IF; -- End of if c_task%notfound then check
7475: CLOSE c_Task;
7476:
7505:
7506: IF c_task_rec.task_type_code = 'SUMMARY' THEN
7507: AHL_LTP_REQST_MATRL_PVT.Remove_Stage_Materials (
7508: p_api_version => 1.0,
7509: p_init_msg_list => Fnd_Api.G_FALSE,
7510: p_commit => Fnd_Api.G_FALSE,
7511: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
7512: p_module_type => 'VST',
7513: p_visit_id => l_visit_id,
7506: IF c_task_rec.task_type_code = 'SUMMARY' THEN
7507: AHL_LTP_REQST_MATRL_PVT.Remove_Stage_Materials (
7508: p_api_version => 1.0,
7509: p_init_msg_list => Fnd_Api.G_FALSE,
7510: p_commit => Fnd_Api.G_FALSE,
7511: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
7512: p_module_type => 'VST',
7513: p_visit_id => l_visit_id,
7514: p_mr_header_id => c_task_rec.MR_ID,
7507: AHL_LTP_REQST_MATRL_PVT.Remove_Stage_Materials (
7508: p_api_version => 1.0,
7509: p_init_msg_list => Fnd_Api.G_FALSE,
7510: p_commit => Fnd_Api.G_FALSE,
7511: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
7512: p_module_type => 'VST',
7513: p_visit_id => l_visit_id,
7514: p_mr_header_id => c_task_rec.MR_ID,
7515: p_instance_id => c_task_rec.instance_id,
7525: 'After callingAHL_LTP_REQST_MATRL_PVT.Remove_Stage_Materials. l_return_status = ' || l_return_status);
7526: END IF;
7527:
7528: -- Check Error Message stack.
7529: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7530: x_msg_count := l_msg_count;
7531: x_return_status := l_return_status;
7532: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
7533: RAISE Fnd_Api.g_exc_error;
7528: -- Check Error Message stack.
7529: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7530: x_msg_count := l_msg_count;
7531: x_return_status := l_return_status;
7532: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
7533: RAISE Fnd_Api.g_exc_error;
7534: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
7535: RAISE Fnd_Api.g_exc_unexpected_error;
7536: END IF;
7529: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7530: x_msg_count := l_msg_count;
7531: x_return_status := l_return_status;
7532: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
7533: RAISE Fnd_Api.g_exc_error;
7534: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
7535: RAISE Fnd_Api.g_exc_unexpected_error;
7536: END IF;
7537: END IF;
7530: x_msg_count := l_msg_count;
7531: x_return_status := l_return_status;
7532: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
7533: RAISE Fnd_Api.g_exc_error;
7534: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
7535: RAISE Fnd_Api.g_exc_unexpected_error;
7536: END IF;
7537: END IF;
7538: -- SKPATHAK :: 20-JUN-2011 :: VWPE: ER:12673125 :: END
7531: x_return_status := l_return_status;
7532: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
7533: RAISE Fnd_Api.g_exc_error;
7534: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
7535: RAISE Fnd_Api.g_exc_unexpected_error;
7536: END IF;
7537: END IF;
7538: -- SKPATHAK :: 20-JUN-2011 :: VWPE: ER:12673125 :: END
7539:
7546: 'Before Calling Delete_Summary_Task' );
7547: END IF;
7548: Delete_Summary_Task(
7549: p_api_version =>p_api_version,
7550: p_init_msg_list =>Fnd_Api.g_false,
7551: p_commit =>Fnd_Api.g_false,
7552: p_validation_level =>Fnd_Api.g_valid_level_full,
7553: p_module_type =>NULL,
7554: p_Visit_Task_Id =>l_origin_id,
7547: END IF;
7548: Delete_Summary_Task(
7549: p_api_version =>p_api_version,
7550: p_init_msg_list =>Fnd_Api.g_false,
7551: p_commit =>Fnd_Api.g_false,
7552: p_validation_level =>Fnd_Api.g_valid_level_full,
7553: p_module_type =>NULL,
7554: p_Visit_Task_Id =>l_origin_id,
7555: x_return_status =>x_return_status,
7548: Delete_Summary_Task(
7549: p_api_version =>p_api_version,
7550: p_init_msg_list =>Fnd_Api.g_false,
7551: p_commit =>Fnd_Api.g_false,
7552: p_validation_level =>Fnd_Api.g_valid_level_full,
7553: p_module_type =>NULL,
7554: p_Visit_Task_Id =>l_origin_id,
7555: x_return_status =>x_return_status,
7556: x_msg_count =>x_msg_count,
7561: L_DEBUG_KEY,
7562: 'After Calling Delete_Summary_Task, Return Status = ' || x_return_status);
7563: END IF;
7564:
7565: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
7566: RAISE Fnd_Api.G_EXC_ERROR;
7567: END IF;
7568: Else
7569: -- To find the visit related information
7562: 'After Calling Delete_Summary_Task, Return Status = ' || x_return_status);
7563: END IF;
7564:
7565: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
7566: RAISE Fnd_Api.G_EXC_ERROR;
7567: END IF;
7568: Else
7569: -- To find the visit related information
7570: OPEN c_Visit(c_task_rec.visit_id);
7575: IF (c_visit_rec.status_code NOT IN ('PLANNING', 'DRAFT', 'PARTIALLY RELEASED'))
7576: THEN
7577: Fnd_Message.set_name ('AHL', 'AHL_VWP_PLANNING_OPER');
7578: Fnd_Msg_Pub.ADD;
7579: RAISE fnd_Api.g_exc_error;
7580: END IF;
7581:
7582: l_unit_effectivity_id := null;
7583: l_task_type := null;
7617: FND_MESSAGE.SET_TOKEN('Task_Number',c_task_rec.visit_task_number);
7618: Fnd_Msg_Pub.ADD;
7619: CLOSE c_workorders;
7620: CLOSE c_all_tasks;
7621: RAISE fnd_Api.g_exc_error;
7622: -- IF STATUS IS NOT DRAFT RAISE ERROR.
7623: ELSIF c_workrec.status_code='17' THEN
7624: l_workorder_present :='Y';
7625: l_workorder_rec.workorder_id:=c_workrec.workorder_id;
7632: l_msg_count := FND_MSG_PUB.count_msg;
7633:
7634: IF l_msg_count > 0 THEN
7635: x_msg_count := l_msg_count;
7636: x_return_status := FND_API.G_RET_STS_ERROR;
7637: CLOSE c_workorders;
7638: CLOSE c_all_tasks;
7639: RAISE FND_API.G_EXC_ERROR;
7640: END IF;
7635: x_msg_count := l_msg_count;
7636: x_return_status := FND_API.G_RET_STS_ERROR;
7637: CLOSE c_workorders;
7638: CLOSE c_all_tasks;
7639: RAISE FND_API.G_EXC_ERROR;
7640: END IF;
7641:
7642: l_workorder_rec.wip_entity_id := null;
7643: l_workorder_rec.STATUS_CODE:='22'; --Deleted Status Refer DLD to Verify.
7654:
7655: /*AHL_PRD_WORKORDER_PVT.update_job
7656: (
7657: p_api_version =>1.0,
7658: p_init_msg_list =>fnd_api.g_false,
7659: p_commit =>fnd_api.g_false,
7660: p_validation_level =>p_validation_level,
7661: p_default =>fnd_api.g_false,
7662: p_module_type =>NULL,
7655: /*AHL_PRD_WORKORDER_PVT.update_job
7656: (
7657: p_api_version =>1.0,
7658: p_init_msg_list =>fnd_api.g_false,
7659: p_commit =>fnd_api.g_false,
7660: p_validation_level =>p_validation_level,
7661: p_default =>fnd_api.g_false,
7662: p_module_type =>NULL,
7663: x_return_status =>x_return_status,
7657: p_api_version =>1.0,
7658: p_init_msg_list =>fnd_api.g_false,
7659: p_commit =>fnd_api.g_false,
7660: p_validation_level =>p_validation_level,
7661: p_default =>fnd_api.g_false,
7662: p_module_type =>NULL,
7663: x_return_status =>x_return_status,
7664: x_msg_count =>x_msg_count,
7665: x_msg_data =>x_msg_data,
7670:
7671: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
7672: (
7673: p_api_version =>1.0,
7674: p_init_msg_list =>fnd_api.g_false,
7675: p_commit =>fnd_api.g_false,
7676: p_validation_level =>p_validation_level,
7677: p_default =>fnd_api.g_false,
7678: p_module_type =>NULL,
7671: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
7672: (
7673: p_api_version =>1.0,
7674: p_init_msg_list =>fnd_api.g_false,
7675: p_commit =>fnd_api.g_false,
7676: p_validation_level =>p_validation_level,
7677: p_default =>fnd_api.g_false,
7678: p_module_type =>NULL,
7679: x_return_status =>l_return_status,
7673: p_api_version =>1.0,
7674: p_init_msg_list =>fnd_api.g_false,
7675: p_commit =>fnd_api.g_false,
7676: p_validation_level =>p_validation_level,
7677: p_default =>fnd_api.g_false,
7678: p_module_type =>NULL,
7679: x_return_status =>l_return_status,
7680: x_msg_count =>l_msg_count,
7681: x_msg_data =>l_msg_data,
7690: 'After Calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs, Return Status = ' || l_return_status );
7691: END IF;
7692:
7693: l_msg_count := FND_MSG_PUB.count_msg;
7694: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7695: x_msg_count := l_msg_count;
7696: x_return_status := FND_API.G_RET_STS_ERROR;
7697: CLOSE c_workorders;
7698: CLOSE c_all_tasks;
7692:
7693: l_msg_count := FND_MSG_PUB.count_msg;
7694: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7695: x_msg_count := l_msg_count;
7696: x_return_status := FND_API.G_RET_STS_ERROR;
7697: CLOSE c_workorders;
7698: CLOSE c_all_tasks;
7699: RAISE FND_API.G_EXC_ERROR;
7700: END IF;
7695: x_msg_count := l_msg_count;
7696: x_return_status := FND_API.G_RET_STS_ERROR;
7697: CLOSE c_workorders;
7698: CLOSE c_all_tasks;
7699: RAISE FND_API.G_EXC_ERROR;
7700: END IF;
7701: END IF; -- End of If c_workrec.status_code<>'17' check
7702: END IF; -- End of if c_workorders%found check
7703: CLOSE c_workorders;
7714: p_visit_task_id =>l_task_ID,
7715: x_return_status =>x_return_status
7716: );
7717:
7718: IF NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7719: x_return_status := FND_API.G_RET_STS_ERROR;
7720: CLOSE c_all_tasks;
7721: RAISE FND_API.G_EXC_ERROR;
7722: END IF;
7715: x_return_status =>x_return_status
7716: );
7717:
7718: IF NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7719: x_return_status := FND_API.G_RET_STS_ERROR;
7720: CLOSE c_all_tasks;
7721: RAISE FND_API.G_EXC_ERROR;
7722: END IF;
7723:
7717:
7718: IF NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7719: x_return_status := FND_API.G_RET_STS_ERROR;
7720: CLOSE c_all_tasks;
7721: RAISE FND_API.G_EXC_ERROR;
7722: END IF;
7723:
7724: IF (l_log_statement >= l_log_current_level)THEN
7725: fnd_log.string(l_log_statement,
7768:
7769: AHL_VWP_PROJ_PROD_PVT.Delete_Task_to_Project(
7770: /* p_api_version => l_api_version,
7771: p_init_msg_list => p_init_msg_list,
7772: p_commit => Fnd_Api.g_false,
7773: p_validation_level => p_validation_level,
7774: p_module_type => p_module_type,*/
7775: p_visit_task_id => l_task_id,
7776: x_return_status => l_return_status);
7776: x_return_status => l_return_status);
7777: /* x_msg_count => x_msg_count,
7778: x_msg_data => x_msg_data);*/
7779:
7780: IF (fnd_msg_pub.count_msg > 0) OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7781: x_return_status := FND_API.G_RET_STS_ERROR;
7782: CLOSE c_all_tasks;
7783: RAISE FND_API.G_EXC_ERROR;
7784: END IF;
7777: /* x_msg_count => x_msg_count,
7778: x_msg_data => x_msg_data);*/
7779:
7780: IF (fnd_msg_pub.count_msg > 0) OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7781: x_return_status := FND_API.G_RET_STS_ERROR;
7782: CLOSE c_all_tasks;
7783: RAISE FND_API.G_EXC_ERROR;
7784: END IF;
7785:
7779:
7780: IF (fnd_msg_pub.count_msg > 0) OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7781: x_return_status := FND_API.G_RET_STS_ERROR;
7782: CLOSE c_all_tasks;
7783: RAISE FND_API.G_EXC_ERROR;
7784: END IF;
7785:
7786: END IF;
7787:
7854: l_return_status);
7855: END IF;
7856:
7857: l_msg_count := Fnd_Msg_Pub.count_msg;
7858: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
7859: x_msg_count := l_msg_count;
7860: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7861: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7862: END IF;
7856:
7857: l_msg_count := Fnd_Msg_Pub.count_msg;
7858: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
7859: x_msg_count := l_msg_count;
7860: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7861: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7862: END IF;
7863: -- salogan added for supplier warranty ends
7864: ELSE
7857: l_msg_count := Fnd_Msg_Pub.count_msg;
7858: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
7859: x_msg_count := l_msg_count;
7860: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7861: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7862: END IF;
7863: -- salogan added for supplier warranty ends
7864: ELSE
7865:
7875: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
7876: Fnd_Msg_Pub.ADD;
7877: END IF;
7878: CLOSE c_all_tasks;
7879: RAISE Fnd_Api.g_exc_error;
7880: END IF;
7881:
7882: -- Delete task base (AHL_VISIT_TASKS_B) table data
7883: IF (l_log_statement >= l_log_current_level)THEN
7895: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
7896: Fnd_Msg_Pub.ADD;
7897: END IF;
7898: CLOSE c_all_tasks;
7899: RAISE Fnd_Api.g_exc_error;
7900: END IF;
7901: END IF;
7902:
7903: IF NVL(c_visit_rec.actual_price,0) <> 0
7938:
7939: AHL_UMP_UNPLANNED_PVT.DELETE_UNIT_EFFECTIVITY
7940: (
7941: P_API_VERSION => p_api_version,
7942: p_init_msg_list => FND_API.G_FALSE,
7943: p_commit => FND_API.G_FALSE,
7944:
7945: X_RETURN_STATUS => l_return_status,
7946: X_MSG_COUNT => l_msg_count,
7939: AHL_UMP_UNPLANNED_PVT.DELETE_UNIT_EFFECTIVITY
7940: (
7941: P_API_VERSION => p_api_version,
7942: p_init_msg_list => FND_API.G_FALSE,
7943: p_commit => FND_API.G_FALSE,
7944:
7945: X_RETURN_STATUS => l_return_status,
7946: X_MSG_COUNT => l_msg_count,
7947: X_MSG_DATA => x_msg_data,
7951: fnd_log.string(l_log_statement,
7952: L_DEBUG_KEY,
7953: 'After DELETE_UNIT_EFFECTIVITY');
7954: END IF;
7955: IF (l_msg_count > 0) OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7956: x_return_status := FND_API.G_RET_STS_ERROR;
7957: RAISE FND_API.G_EXC_ERROR;
7958: END IF;
7959: ELSE
7952: L_DEBUG_KEY,
7953: 'After DELETE_UNIT_EFFECTIVITY');
7954: END IF;
7955: IF (l_msg_count > 0) OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7956: x_return_status := FND_API.G_RET_STS_ERROR;
7957: RAISE FND_API.G_EXC_ERROR;
7958: END IF;
7959: ELSE
7960: CLOSE check_unplanned_ue_assoc;
7953: 'After DELETE_UNIT_EFFECTIVITY');
7954: END IF;
7955: IF (l_msg_count > 0) OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7956: x_return_status := FND_API.G_RET_STS_ERROR;
7957: RAISE FND_API.G_EXC_ERROR;
7958: END IF;
7959: ELSE
7960: CLOSE check_unplanned_ue_assoc;
7961: END IF;
7971: END IF;
7972: Delete_SR_Task(
7973: p_api_version => p_api_version,
7974: p_init_msg_list => p_init_msg_list,
7975: p_commit => Fnd_Api.g_false,
7976: p_validation_level => p_validation_level,
7977: p_module_type => p_module_type,
7978: p_visit_task_ID => p_visit_task_ID,
7979: x_return_status => x_return_status,
7991: fnd_log.string(l_log_statement,
7992: L_DEBUG_KEY,
7993: 'Error raised in Delete_SR_Task');
7994: END IF;
7995: RAISE Fnd_Api.G_EXC_ERROR;
7996: END IF;
7997:
7998: ----------TO DELETE MANUALLY CREATED SUMMARY TASKS-------
7999: ELSIF L_MR_ID IS NULL
8060: AHL_VWP_PROJ_PROD_PVT.Delete_Task_to_Project
8061: (
8062: /* p_api_version => l_api_version,
8063: p_init_msg_list => p_init_msg_list,
8064: p_commit => Fnd_Api.g_false,
8065: p_validation_level => p_validation_level,
8066: p_module_type => p_module_type,*/
8067: p_visit_task_id => l_task_id,
8068: x_return_status => l_return_status);
8068: x_return_status => l_return_status);
8069: /* x_msg_count => x_msg_count,
8070: x_msg_data => x_msg_data);*/
8071:
8072: IF l_return_status <> Fnd_Api.g_ret_sts_success THEN
8073: x_return_status := Fnd_Api.g_ret_sts_error;
8074: RAISE Fnd_Api.G_EXC_ERROR;
8075: END IF;
8076:
8069: /* x_msg_count => x_msg_count,
8070: x_msg_data => x_msg_data);*/
8071:
8072: IF l_return_status <> Fnd_Api.g_ret_sts_success THEN
8073: x_return_status := Fnd_Api.g_ret_sts_error;
8074: RAISE Fnd_Api.G_EXC_ERROR;
8075: END IF;
8076:
8077: -- Update Task status to 'DELETED'
8070: x_msg_data => x_msg_data);*/
8071:
8072: IF l_return_status <> Fnd_Api.g_ret_sts_success THEN
8073: x_return_status := Fnd_Api.g_ret_sts_error;
8074: RAISE Fnd_Api.G_EXC_ERROR;
8075: END IF;
8076:
8077: -- Update Task status to 'DELETED'
8078: UPDATE AHL_VISIT_TASKS_B
8109: l_return_status);
8110: END IF;
8111:
8112: l_msg_count := Fnd_Msg_Pub.count_msg;
8113: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
8114: x_msg_count := l_msg_count;
8115: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
8116: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
8117: END IF;
8111:
8112: l_msg_count := Fnd_Msg_Pub.count_msg;
8113: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
8114: x_msg_count := l_msg_count;
8115: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
8116: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
8117: END IF;
8118: -- salogan added for supplier warranty ends
8119: ELSE
8112: l_msg_count := Fnd_Msg_Pub.count_msg;
8113: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
8114: x_msg_count := l_msg_count;
8115: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
8116: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
8117: END IF;
8118: -- salogan added for supplier warranty ends
8119: ELSE
8120:
8123:
8124: IF (SQL%NOTFOUND) THEN
8125: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
8126: Fnd_Msg_Pub.ADD;
8127: RAISE Fnd_Api.g_exc_error;
8128: END IF;
8129:
8130: -- Delete task base (AHL_VISIT_TASKS_B) table data
8131: IF (l_log_statement >= l_log_current_level) THEN
8139:
8140: IF (SQL%NOTFOUND) THEN
8141: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
8142: Fnd_Msg_Pub.ADD;
8143: RAISE Fnd_Api.g_exc_error;
8144: END IF;
8145:
8146: END IF;
8147:
8151: END IF; --End of if c_task_rec.mr_id is not null check
8152: END IF; --l_origin_id is null check
8153:
8154: ------------------------End of API Body------------------------------------
8155: IF Fnd_Api.to_boolean (p_commit) THEN
8156: COMMIT;
8157: END IF;
8158:
8159: Fnd_Msg_Pub.count_and_get (
8156: COMMIT;
8157: END IF;
8158:
8159: Fnd_Msg_Pub.count_and_get (
8160: p_encoded => Fnd_Api.g_false,
8161: p_count => x_msg_count,
8162: p_data => x_msg_data
8163: );
8164:
8168: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
8169: END IF;
8170:
8171: EXCEPTION
8172: WHEN Fnd_Api.g_exc_error THEN
8173: ROLLBACK TO Delete_Summary_Task;
8174: x_return_status := Fnd_Api.g_ret_sts_error;
8175: Fnd_Msg_Pub.count_and_get (
8176: p_encoded => Fnd_Api.g_false,
8170:
8171: EXCEPTION
8172: WHEN Fnd_Api.g_exc_error THEN
8173: ROLLBACK TO Delete_Summary_Task;
8174: x_return_status := Fnd_Api.g_ret_sts_error;
8175: Fnd_Msg_Pub.count_and_get (
8176: p_encoded => Fnd_Api.g_false,
8177: p_count => x_msg_count,
8178: p_data => x_msg_data
8172: WHEN Fnd_Api.g_exc_error THEN
8173: ROLLBACK TO Delete_Summary_Task;
8174: x_return_status := Fnd_Api.g_ret_sts_error;
8175: Fnd_Msg_Pub.count_and_get (
8176: p_encoded => Fnd_Api.g_false,
8177: p_count => x_msg_count,
8178: p_data => x_msg_data
8179: );
8180: WHEN Fnd_Api.g_exc_unexpected_error THEN
8176: p_encoded => Fnd_Api.g_false,
8177: p_count => x_msg_count,
8178: p_data => x_msg_data
8179: );
8180: WHEN Fnd_Api.g_exc_unexpected_error THEN
8181: ROLLBACK TO Delete_Summary_Task;
8182: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8183: Fnd_Msg_Pub.count_and_get (
8184: p_encoded => Fnd_Api.g_false,
8178: p_data => x_msg_data
8179: );
8180: WHEN Fnd_Api.g_exc_unexpected_error THEN
8181: ROLLBACK TO Delete_Summary_Task;
8182: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8183: Fnd_Msg_Pub.count_and_get (
8184: p_encoded => Fnd_Api.g_false,
8185: p_count => x_msg_count,
8186: p_data => x_msg_data
8180: WHEN Fnd_Api.g_exc_unexpected_error THEN
8181: ROLLBACK TO Delete_Summary_Task;
8182: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8183: Fnd_Msg_Pub.count_and_get (
8184: p_encoded => Fnd_Api.g_false,
8185: p_count => x_msg_count,
8186: p_data => x_msg_data
8187: );
8188: WHEN OTHERS THEN
8186: p_data => x_msg_data
8187: );
8188: WHEN OTHERS THEN
8189: ROLLBACK TO Delete_Summary_Task;
8190: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8191: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
8192: THEN
8193: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8194: END IF;
8192: THEN
8193: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8194: END IF;
8195: Fnd_Msg_Pub.count_and_get (
8196: p_encoded => Fnd_Api.g_false,
8197: p_count => x_msg_count,
8198: p_data => x_msg_data
8199: );
8200: END Delete_Summary_Task;
8205: --
8206: --------------------------------------------------------------------
8207: PROCEDURE Search_Task (
8208: p_api_version IN NUMBER,
8209: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
8210: p_commit IN VARCHAR2 := Fnd_Api.g_false,
8211: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
8212: p_module_type IN VARCHAR2 := 'JSP',
8213: p_visit_id IN NUMBER,
8206: --------------------------------------------------------------------
8207: PROCEDURE Search_Task (
8208: p_api_version IN NUMBER,
8209: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
8210: p_commit IN VARCHAR2 := Fnd_Api.g_false,
8211: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
8212: p_module_type IN VARCHAR2 := 'JSP',
8213: p_visit_id IN NUMBER,
8214:
8207: PROCEDURE Search_Task (
8208: p_api_version IN NUMBER,
8209: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
8210: p_commit IN VARCHAR2 := Fnd_Api.g_false,
8211: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
8212: p_module_type IN VARCHAR2 := 'JSP',
8213: p_visit_id IN NUMBER,
8214:
8215: p_x_srch_task_tbl IN OUT NOCOPY Srch_Task_Tbl_Type,
8254: 'At the start of PL SQL procedure.');
8255: END IF;
8256:
8257: -- Initialize message list if p_init_msg_list is set to TRUE.
8258: IF Fnd_Api.to_boolean(p_init_msg_list)
8259: THEN
8260: Fnd_Msg_Pub.initialize;
8261: END IF;
8262:
8260: Fnd_Msg_Pub.initialize;
8261: END IF;
8262:
8263: -- Initialize API return status to success
8264: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
8265:
8266: -- Standard call to check for call compatibility.
8267: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
8268: p_api_version,
8263: -- Initialize API return status to success
8264: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
8265:
8266: -- Standard call to check for call compatibility.
8267: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
8268: p_api_version,
8269: l_api_name,G_PKG_NAME)
8270: THEN
8271: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
8267: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
8268: p_api_version,
8269: l_api_name,G_PKG_NAME)
8270: THEN
8271: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
8272: END IF;
8273: ---------------------------Start of Body-------------------------------------
8274: IF (l_log_statement >= l_log_current_level) THEN
8275: fnd_log.string(l_log_statement,
8280: FETCH c_visit INTO c_visit_rec;
8281: CLOSE c_visit;
8282:
8283: IF (c_visit_rec.START_DATE_TIME IS NOT NULL
8284: AND c_visit_rec.START_DATE_TIME <> Fnd_Api.G_MISS_DATE
8285: AND c_visit_rec.DEPARTMENT_ID IS NOT NULL
8286: AND c_visit_rec.DEPARTMENT_ID <> FND_API.G_MISS_NUM) THEN
8287:
8288: IF l_tasks_tbl.COUNT > 0 THEN
8282:
8283: IF (c_visit_rec.START_DATE_TIME IS NOT NULL
8284: AND c_visit_rec.START_DATE_TIME <> Fnd_Api.G_MISS_DATE
8285: AND c_visit_rec.DEPARTMENT_ID IS NOT NULL
8286: AND c_visit_rec.DEPARTMENT_ID <> FND_API.G_MISS_NUM) THEN
8287:
8288: IF l_tasks_tbl.COUNT > 0 THEN
8289: x := l_tasks_tbl.FIRST;
8290: LOOP
8340: l_msg_count := Fnd_Msg_Pub.count_msg;
8341:
8342: IF l_msg_count > 0 THEN
8343: x_msg_count := l_msg_count;
8344: x_return_status := Fnd_Api.G_RET_STS_ERROR;
8345: RAISE Fnd_Api.G_EXC_ERROR;
8346: END IF;
8347:
8348: --Standard check for commit
8341:
8342: IF l_msg_count > 0 THEN
8343: x_msg_count := l_msg_count;
8344: x_return_status := Fnd_Api.G_RET_STS_ERROR;
8345: RAISE Fnd_Api.G_EXC_ERROR;
8346: END IF;
8347:
8348: --Standard check for commit
8349: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
8345: RAISE Fnd_Api.G_EXC_ERROR;
8346: END IF;
8347:
8348: --Standard check for commit
8349: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
8350: COMMIT;
8351: END IF;
8352:
8353: IF (l_log_procedure >= l_log_current_level) THEN
8356: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
8357: END IF;
8358:
8359: EXCEPTION
8360: WHEN Fnd_Api.g_exc_error THEN
8361: ROLLBACK TO Search_Task;
8362: x_return_status := Fnd_Api.g_ret_sts_error;
8363: Fnd_Msg_Pub.count_and_get(
8364: p_encoded => Fnd_Api.g_false,
8358:
8359: EXCEPTION
8360: WHEN Fnd_Api.g_exc_error THEN
8361: ROLLBACK TO Search_Task;
8362: x_return_status := Fnd_Api.g_ret_sts_error;
8363: Fnd_Msg_Pub.count_and_get(
8364: p_encoded => Fnd_Api.g_false,
8365: p_count => x_msg_count,
8366: p_data => x_msg_data
8360: WHEN Fnd_Api.g_exc_error THEN
8361: ROLLBACK TO Search_Task;
8362: x_return_status := Fnd_Api.g_ret_sts_error;
8363: Fnd_Msg_Pub.count_and_get(
8364: p_encoded => Fnd_Api.g_false,
8365: p_count => x_msg_count,
8366: p_data => x_msg_data
8367: );
8368: WHEN Fnd_Api.g_exc_unexpected_error THEN
8364: p_encoded => Fnd_Api.g_false,
8365: p_count => x_msg_count,
8366: p_data => x_msg_data
8367: );
8368: WHEN Fnd_Api.g_exc_unexpected_error THEN
8369: ROLLBACK TO Search_Task;
8370: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8371: Fnd_Msg_Pub.count_and_get (
8372: p_encoded => Fnd_Api.g_false,
8366: p_data => x_msg_data
8367: );
8368: WHEN Fnd_Api.g_exc_unexpected_error THEN
8369: ROLLBACK TO Search_Task;
8370: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8371: Fnd_Msg_Pub.count_and_get (
8372: p_encoded => Fnd_Api.g_false,
8373: p_count => x_msg_count,
8374: p_data => x_msg_data
8368: WHEN Fnd_Api.g_exc_unexpected_error THEN
8369: ROLLBACK TO Search_Task;
8370: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8371: Fnd_Msg_Pub.count_and_get (
8372: p_encoded => Fnd_Api.g_false,
8373: p_count => x_msg_count,
8374: p_data => x_msg_data
8375: );
8376: WHEN OTHERS THEN
8374: p_data => x_msg_data
8375: );
8376: WHEN OTHERS THEN
8377: ROLLBACK TO Search_Task;
8378: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8379: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
8380: THEN
8381: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8382: END IF;
8380: THEN
8381: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8382: END IF;
8383: Fnd_Msg_Pub.count_and_get (
8384: p_encoded => Fnd_Api.g_false,
8385: p_count => x_msg_count,
8386: p_data => x_msg_data
8387: );
8388: END Search_Task;
8395: --
8396: --------------------------------------------------------------------
8397: PROCEDURE Validate_Visit_Task (
8398: p_api_version IN NUMBER,
8399: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
8400: p_commit IN VARCHAR2 := Fnd_Api.g_false,
8401: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
8402: p_task_rec IN AHL_VWP_RULES_PVT.Task_Rec_Type,
8403:
8396: --------------------------------------------------------------------
8397: PROCEDURE Validate_Visit_Task (
8398: p_api_version IN NUMBER,
8399: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
8400: p_commit IN VARCHAR2 := Fnd_Api.g_false,
8401: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
8402: p_task_rec IN AHL_VWP_RULES_PVT.Task_Rec_Type,
8403:
8404: x_return_status OUT NOCOPY VARCHAR2,
8397: PROCEDURE Validate_Visit_Task (
8398: p_api_version IN NUMBER,
8399: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
8400: p_commit IN VARCHAR2 := Fnd_Api.g_false,
8401: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
8402: p_task_rec IN AHL_VWP_RULES_PVT.Task_Rec_Type,
8403:
8404: x_return_status OUT NOCOPY VARCHAR2,
8405: x_msg_count OUT NOCOPY NUMBER,
8419: L_DEBUG_KEY ||'.begin',
8420: 'At the start of PL SQL procedure.');
8421: END IF;
8422:
8423: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
8424: Fnd_Msg_Pub.initialize;
8425: END IF;
8426:
8427: IF NOT Fnd_Api.compatible_api_call (
8423: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
8424: Fnd_Msg_Pub.initialize;
8425: END IF;
8426:
8427: IF NOT Fnd_Api.compatible_api_call (
8428: l_api_version,
8429: p_api_version,
8430: l_api_name,
8431: G_PKG_NAME
8429: p_api_version,
8430: l_api_name,
8431: G_PKG_NAME
8432: ) THEN
8433: RAISE Fnd_Api.g_exc_unexpected_error;
8434: END IF;
8435: x_return_status := Fnd_Api.g_ret_sts_success;
8436:
8437: ---------------------- validate ------------------------
8431: G_PKG_NAME
8432: ) THEN
8433: RAISE Fnd_Api.g_exc_unexpected_error;
8434: END IF;
8435: x_return_status := Fnd_Api.g_ret_sts_success;
8436:
8437: ---------------------- validate ------------------------
8438:
8439: IF (l_log_statement >= l_log_current_level) THEN
8447: p_task_rec => p_task_rec,
8448: p_validation_mode => Jtf_Plsql_Api.g_create,
8449: x_return_status => l_return_status
8450: );
8451: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
8452: RAISE Fnd_Api.g_exc_unexpected_error;
8453: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
8454: RAISE Fnd_Api.g_exc_error;
8455: END IF;
8448: p_validation_mode => Jtf_Plsql_Api.g_create,
8449: x_return_status => l_return_status
8450: );
8451: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
8452: RAISE Fnd_Api.g_exc_unexpected_error;
8453: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
8454: RAISE Fnd_Api.g_exc_error;
8455: END IF;
8456: END IF;
8449: x_return_status => l_return_status
8450: );
8451: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
8452: RAISE Fnd_Api.g_exc_unexpected_error;
8453: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
8454: RAISE Fnd_Api.g_exc_error;
8455: END IF;
8456: END IF;
8457:
8450: );
8451: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
8452: RAISE Fnd_Api.g_exc_unexpected_error;
8453: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
8454: RAISE Fnd_Api.g_exc_error;
8455: END IF;
8456: END IF;
8457:
8458: IF (l_log_statement >= l_log_current_level) THEN
8463:
8464: -------------------- finish --------------------------
8465: -- Standard call to get message count and if count is 1, get message info
8466: Fnd_Msg_Pub.count_and_get (
8467: p_encoded => Fnd_Api.g_false,
8468: p_count => x_msg_count,
8469: p_data => x_msg_data
8470: );
8471:
8474: L_DEBUG_KEY ||'.end',
8475: 'At the end of PL SQL procedure. Return Status = ' || l_return_status);
8476: END IF;
8477: EXCEPTION
8478: WHEN Fnd_Api.g_exc_error THEN
8479: x_return_status := Fnd_Api.g_ret_sts_error;
8480: Fnd_Msg_Pub.count_and_get (
8481: p_encoded => Fnd_Api.g_false,
8482: p_count => x_msg_count,
8475: 'At the end of PL SQL procedure. Return Status = ' || l_return_status);
8476: END IF;
8477: EXCEPTION
8478: WHEN Fnd_Api.g_exc_error THEN
8479: x_return_status := Fnd_Api.g_ret_sts_error;
8480: Fnd_Msg_Pub.count_and_get (
8481: p_encoded => Fnd_Api.g_false,
8482: p_count => x_msg_count,
8483: p_data => x_msg_data
8477: EXCEPTION
8478: WHEN Fnd_Api.g_exc_error THEN
8479: x_return_status := Fnd_Api.g_ret_sts_error;
8480: Fnd_Msg_Pub.count_and_get (
8481: p_encoded => Fnd_Api.g_false,
8482: p_count => x_msg_count,
8483: p_data => x_msg_data
8484: );
8485: WHEN Fnd_Api.g_exc_unexpected_error THEN
8481: p_encoded => Fnd_Api.g_false,
8482: p_count => x_msg_count,
8483: p_data => x_msg_data
8484: );
8485: WHEN Fnd_Api.g_exc_unexpected_error THEN
8486: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8487: Fnd_Msg_Pub.count_and_get (
8488: p_encoded => Fnd_Api.g_false,
8489: p_count => x_msg_count,
8482: p_count => x_msg_count,
8483: p_data => x_msg_data
8484: );
8485: WHEN Fnd_Api.g_exc_unexpected_error THEN
8486: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8487: Fnd_Msg_Pub.count_and_get (
8488: p_encoded => Fnd_Api.g_false,
8489: p_count => x_msg_count,
8490: p_data => x_msg_data
8484: );
8485: WHEN Fnd_Api.g_exc_unexpected_error THEN
8486: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8487: Fnd_Msg_Pub.count_and_get (
8488: p_encoded => Fnd_Api.g_false,
8489: p_count => x_msg_count,
8490: p_data => x_msg_data
8491: );
8492: WHEN OTHERS THEN
8489: p_count => x_msg_count,
8490: p_data => x_msg_data
8491: );
8492: WHEN OTHERS THEN
8493: x_return_status := Fnd_Api.g_ret_sts_unexp_error;
8494: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
8495: THEN
8496: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8497: END IF;
8495: THEN
8496: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8497: END IF;
8498: Fnd_Msg_Pub.count_and_get (
8499: p_encoded => Fnd_Api.g_false,
8500: p_count => x_msg_count,
8501: p_data => x_msg_data
8502: );
8503: END Validate_Visit_Task;
8524: fnd_log.string(l_log_procedure,
8525: L_DEBUG_KEY ||'.begin',
8526: 'At the start of PL SQL procedure.');
8527: END IF;
8528: x_return_status := Fnd_Api.g_ret_sts_success;
8529: -- Validate required items.
8530:
8531: IF (l_log_statement >= l_log_current_level) THEN
8532: fnd_log.string(l_log_statement,
8540: the time of creation of tasks as once created serial number cannot be edited.*/
8541: p_validation_mode => p_validation_mode,
8542: x_return_status => x_return_status
8543: );
8544: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
8545: RETURN;
8546: END IF;
8547:
8548: --
8599: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
8600: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
8601: Fnd_Msg_Pub.ADD;
8602: END IF;
8603: RAISE Fnd_Api.g_exc_error;
8604: END IF;
8605: CLOSE c_Visit_Task;
8606:
8607: END Complete_Visit_Task_Rec;
8642: L_DEBUG_KEY ||'.begin',
8643: 'At the start of PL SQL procedure.');
8644: END IF;
8645:
8646: x_return_status := Fnd_Api.g_ret_sts_success;
8647:
8648: -- TASK NAME ==== NAME
8649: IF (p_task_rec.VISIT_TASK_NAME IS NULL OR p_Task_rec.VISIT_TASK_NAME = Fnd_Api.G_MISS_CHAR) THEN
8650: Fnd_Message.set_name ('AHL', 'AHL_VWP_NAME_MISSING');
8645:
8646: x_return_status := Fnd_Api.g_ret_sts_success;
8647:
8648: -- TASK NAME ==== NAME
8649: IF (p_task_rec.VISIT_TASK_NAME IS NULL OR p_Task_rec.VISIT_TASK_NAME = Fnd_Api.G_MISS_CHAR) THEN
8650: Fnd_Message.set_name ('AHL', 'AHL_VWP_NAME_MISSING');
8651: Fnd_Msg_Pub.ADD;
8652: x_return_status := Fnd_Api.g_ret_sts_error;
8653: END IF;
8648: -- TASK NAME ==== NAME
8649: IF (p_task_rec.VISIT_TASK_NAME IS NULL OR p_Task_rec.VISIT_TASK_NAME = Fnd_Api.G_MISS_CHAR) THEN
8650: Fnd_Message.set_name ('AHL', 'AHL_VWP_NAME_MISSING');
8651: Fnd_Msg_Pub.ADD;
8652: x_return_status := Fnd_Api.g_ret_sts_error;
8653: END IF;
8654:
8655: IF UPPER(p_task_rec.TASK_TYPE_CODE) = 'UNASSOCIATED' THEN
8656:
8654:
8655: IF UPPER(p_task_rec.TASK_TYPE_CODE) = 'UNASSOCIATED' THEN
8656:
8657: -- ITEM ==== INVENTORY_ITEM_ID
8658: IF (p_Task_rec.item_name IS NULL OR p_Task_rec.item_name = Fnd_Api.G_MISS_CHAR ) THEN
8659: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8660: Fnd_Message.set_name ('AHL', 'AHL_VWP_ITEM_MISSING');
8661: Fnd_Msg_Pub.ADD;
8662: END IF;
8659: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8660: Fnd_Message.set_name ('AHL', 'AHL_VWP_ITEM_MISSING');
8661: Fnd_Msg_Pub.ADD;
8662: END IF;
8663: x_return_status := Fnd_Api.g_ret_sts_error;
8664: END IF;
8665:
8666: -- TASK DURATION ==== DURATION
8667: IF (p_task_rec.DURATION IS NULL OR p_Task_rec.DURATION = Fnd_Api.G_MISS_NUM) THEN
8663: x_return_status := Fnd_Api.g_ret_sts_error;
8664: END IF;
8665:
8666: -- TASK DURATION ==== DURATION
8667: IF (p_task_rec.DURATION IS NULL OR p_Task_rec.DURATION = Fnd_Api.G_MISS_NUM) THEN
8668: Fnd_Message.set_name ('AHL', 'AHL_VWP_DURATION_MISSING');
8669: Fnd_Msg_Pub.ADD;
8670: x_return_status := Fnd_Api.g_ret_sts_error;
8671: END IF;
8666: -- TASK DURATION ==== DURATION
8667: IF (p_task_rec.DURATION IS NULL OR p_Task_rec.DURATION = Fnd_Api.G_MISS_NUM) THEN
8668: Fnd_Message.set_name ('AHL', 'AHL_VWP_DURATION_MISSING');
8669: Fnd_Msg_Pub.ADD;
8670: x_return_status := Fnd_Api.g_ret_sts_error;
8671: END IF;
8672:
8673: IF (p_task_rec.DURATION IS NOT NULL AND p_Task_rec.DURATION <> Fnd_Api.G_MISS_NUM) THEN
8674: IF p_task_rec.DURATION < 0 OR FLOOR(p_task_rec.DURATION) <> p_task_rec.DURATION THEN
8669: Fnd_Msg_Pub.ADD;
8670: x_return_status := Fnd_Api.g_ret_sts_error;
8671: END IF;
8672:
8673: IF (p_task_rec.DURATION IS NOT NULL AND p_Task_rec.DURATION <> Fnd_Api.G_MISS_NUM) THEN
8674: IF p_task_rec.DURATION < 0 OR FLOOR(p_task_rec.DURATION) <> p_task_rec.DURATION THEN
8675: Fnd_Message.set_name ('AHL', 'AHL_VWP_ONLY_POSITIVE_VALUE');
8676: Fnd_Msg_Pub.ADD;
8677: x_return_status := Fnd_Api.g_ret_sts_error;
8673: IF (p_task_rec.DURATION IS NOT NULL AND p_Task_rec.DURATION <> Fnd_Api.G_MISS_NUM) THEN
8674: IF p_task_rec.DURATION < 0 OR FLOOR(p_task_rec.DURATION) <> p_task_rec.DURATION THEN
8675: Fnd_Message.set_name ('AHL', 'AHL_VWP_ONLY_POSITIVE_VALUE');
8676: Fnd_Msg_Pub.ADD;
8677: x_return_status := Fnd_Api.g_ret_sts_error;
8678: END IF;
8679: END IF;
8680:
8681: IF ( p_validation_mode = Jtf_Plsql_Api.g_create ) THEN
8683: -- Check if the serial number is present only for serialised instances.
8684: OPEN c_check_inst_nonserial (p_task_rec.instance_id);
8685: FETCH c_check_inst_nonserial INTO l_serial_ctrl;
8686: IF c_check_inst_nonserial%NOTFOUND THEN
8687: IF (p_Task_rec.SERIAL_NUMBER IS NULL OR p_Task_rec.SERIAL_NUMBER = Fnd_Api.G_MISS_CHAR) THEN
8688: Fnd_Message.set_name ('AHL', 'AHL_VWP_SERIAL_MISSING');
8689: Fnd_Msg_Pub.ADD;
8690: x_return_status := Fnd_Api.g_ret_sts_error;
8691: END IF;
8686: IF c_check_inst_nonserial%NOTFOUND THEN
8687: IF (p_Task_rec.SERIAL_NUMBER IS NULL OR p_Task_rec.SERIAL_NUMBER = Fnd_Api.G_MISS_CHAR) THEN
8688: Fnd_Message.set_name ('AHL', 'AHL_VWP_SERIAL_MISSING');
8689: Fnd_Msg_Pub.ADD;
8690: x_return_status := Fnd_Api.g_ret_sts_error;
8691: END IF;
8692: ELSE
8693: IF (p_Task_rec.SERIAL_NUMBER IS NOT NULL) THEN
8694: Fnd_Message.set_name ('AHL', 'AHL_VWP_SERIAL_NOT_NEEDED');
8692: ELSE
8693: IF (p_Task_rec.SERIAL_NUMBER IS NOT NULL) THEN
8694: Fnd_Message.set_name ('AHL', 'AHL_VWP_SERIAL_NOT_NEEDED');
8695: Fnd_Msg_Pub.ADD;
8696: x_return_status := Fnd_Api.g_ret_sts_error;
8697: END IF;
8698: END IF;
8699: CLOSE c_check_inst_nonserial;
8700: -- End changes by rnahata for Issue 105
8701: END IF;
8702:
8703: END IF;
8704:
8705: IF (p_task_rec.START_FROM_HOUR IS NOT NULL AND p_Task_rec.START_FROM_HOUR <> Fnd_Api.G_MISS_NUM) THEN
8706: IF p_task_rec.START_FROM_HOUR < 0 OR FLOOR(p_task_rec.START_FROM_HOUR) <> p_task_rec.START_FROM_HOUR THEN
8707: Fnd_Message.set_name ('AHL', 'AHL_VWP_ONLY_POSITIVE_VALUE');
8708: Fnd_Msg_Pub.ADD;
8709: x_return_status := Fnd_Api.g_ret_sts_error;
8705: IF (p_task_rec.START_FROM_HOUR IS NOT NULL AND p_Task_rec.START_FROM_HOUR <> Fnd_Api.G_MISS_NUM) THEN
8706: IF p_task_rec.START_FROM_HOUR < 0 OR FLOOR(p_task_rec.START_FROM_HOUR) <> p_task_rec.START_FROM_HOUR THEN
8707: Fnd_Message.set_name ('AHL', 'AHL_VWP_ONLY_POSITIVE_VALUE');
8708: Fnd_Msg_Pub.ADD;
8709: x_return_status := Fnd_Api.g_ret_sts_error;
8710: END IF;
8711: END IF;
8712:
8713: IF (l_log_procedure >= l_log_current_level) THEN
8733: l_valid_flag VARCHAR2(1);
8734: L_API_NAME CONSTANT VARCHAR2(30) := 'Check_Visit_Task_UK_Items';
8735: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
8736: BEGIN
8737: x_return_status := Fnd_Api.g_ret_sts_success;
8738:
8739: IF (l_log_procedure >= l_log_current_level) THEN
8740: fnd_log.string(l_log_procedure,
8741: L_DEBUG_KEY ||'.begin',
8758: -- FOR CREATION
8759: IF Ahl_Utility_Pvt.check_uniqueness(
8760: 'Ahl_Visit_Tasks_vl',
8761: 'Visit_Task_ID = ' || p_task_rec.Visit_Task_ID
8762: ) = Fnd_Api.g_false
8763: THEN
8764: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8765: Fnd_Message.set_name ('AHL', 'AHL_VWP_DUPLICATE_TASK_ID');
8766: Fnd_Msg_Pub.ADD;
8764: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8765: Fnd_Message.set_name ('AHL', 'AHL_VWP_DUPLICATE_TASK_ID');
8766: Fnd_Msg_Pub.ADD;
8767: END IF;
8768: x_return_status := Fnd_Api.g_ret_sts_error;
8769: RETURN;
8770: END IF;
8771: END IF;
8772:
8784: -- To create all types of tasks i.e Unassociated/Summary/Unplanned/Planned
8785: --------------------------------------------------------------------
8786: PROCEDURE Create_PUP_Tasks (
8787: p_api_version IN NUMBER,
8788: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
8789: p_commit IN VARCHAR2 := Fnd_Api.g_false,
8790: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
8791: p_module_type IN VARCHAR2 := 'JSP',
8792: p_x_task_tbl IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Tbl_Type,
8785: --------------------------------------------------------------------
8786: PROCEDURE Create_PUP_Tasks (
8787: p_api_version IN NUMBER,
8788: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
8789: p_commit IN VARCHAR2 := Fnd_Api.g_false,
8790: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
8791: p_module_type IN VARCHAR2 := 'JSP',
8792: p_x_task_tbl IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Tbl_Type,
8793: x_return_status OUT NOCOPY VARCHAR2,
8786: PROCEDURE Create_PUP_Tasks (
8787: p_api_version IN NUMBER,
8788: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
8789: p_commit IN VARCHAR2 := Fnd_Api.g_false,
8790: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
8791: p_module_type IN VARCHAR2 := 'JSP',
8792: p_x_task_tbl IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Tbl_Type,
8793: x_return_status OUT NOCOPY VARCHAR2,
8794: x_msg_count OUT NOCOPY NUMBER,
8889: 'At the start of PL SQL procedure.');
8890: END IF;
8891:
8892: -- Initialize message list if p_init_msg_list is set to TRUE.
8893: IF Fnd_Api.to_boolean(p_init_msg_list)
8894: THEN
8895: Fnd_Msg_Pub.initialize;
8896: END IF;
8897:
8895: Fnd_Msg_Pub.initialize;
8896: END IF;
8897:
8898: -- Initialize API return status to success
8899: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
8900:
8901: -- Standard call to check for call compatibility.
8902: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
8903: p_api_version,
8898: -- Initialize API return status to success
8899: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
8900:
8901: -- Standard call to check for call compatibility.
8902: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
8903: p_api_version,
8904: l_api_name,G_PKG_NAME)
8905: THEN
8906: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
8902: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
8903: p_api_version,
8904: l_api_name,G_PKG_NAME)
8905: THEN
8906: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
8907: END IF;
8908:
8909: --------------------Start of API Body-----------------------------------
8910: -------------------Cursor values------------------------------------
8932: l_is_comp_visit := AHL_CMP_UTIL_PKG.Is_Comp_Visit (c_visit_rec.visit_id);
8933: IF l_is_comp_visit = 'N' AND c_visit_rec.locked_flag = 'Y' THEN
8934: Fnd_Message.SET_NAME('AHL','AHL_VWP_LOCKED_VISIT');
8935: Fnd_Msg_Pub.ADD;
8936: RAISE Fnd_Api.G_EXC_ERROR;
8937: END IF;
8938:
8939: IF c_visit_rec.status_code IN ('CLOSED','CANCELLED') THEN
8940: Fnd_Message.SET_NAME('AHL','AHL_VWP_NOT_USE_VISIT');
8938:
8939: IF c_visit_rec.status_code IN ('CLOSED','CANCELLED') THEN
8940: Fnd_Message.SET_NAME('AHL','AHL_VWP_NOT_USE_VISIT');
8941: Fnd_Msg_Pub.ADD;
8942: RAISE Fnd_Api.G_EXC_ERROR;
8943: ELSE
8944: FOR i IN p_x_task_tbl.first .. p_x_task_tbl.last
8945: LOOP
8946: -- SKPATHAK :: ER: 9147951 :: 11-JAN-2010 :: STARTS
8944: FOR i IN p_x_task_tbl.first .. p_x_task_tbl.last
8945: LOOP
8946: -- SKPATHAK :: ER: 9147951 :: 11-JAN-2010 :: STARTS
8947: IF (l_task_tbl(i).PAST_TASK_START_DATE IS NOT NULL
8948: AND l_task_tbl(i).PAST_TASK_START_DATE <> Fnd_Api.G_MISS_DATE) THEN
8949: IF (l_task_tbl(i).PAST_TASK_END_DATE IS NULL
8950: OR l_task_tbl(i).PAST_TASK_START_DATE = Fnd_Api.G_MISS_DATE) THEN
8951: -- if start date is entered but not end date, throw error
8952: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
8946: -- SKPATHAK :: ER: 9147951 :: 11-JAN-2010 :: STARTS
8947: IF (l_task_tbl(i).PAST_TASK_START_DATE IS NOT NULL
8948: AND l_task_tbl(i).PAST_TASK_START_DATE <> Fnd_Api.G_MISS_DATE) THEN
8949: IF (l_task_tbl(i).PAST_TASK_END_DATE IS NULL
8950: OR l_task_tbl(i).PAST_TASK_START_DATE = Fnd_Api.G_MISS_DATE) THEN
8951: -- if start date is entered but not end date, throw error
8952: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
8953: Fnd_Msg_Pub.ADD;
8954: RAISE FND_API.G_EXC_ERROR;
8950: OR l_task_tbl(i).PAST_TASK_START_DATE = Fnd_Api.G_MISS_DATE) THEN
8951: -- if start date is entered but not end date, throw error
8952: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
8953: Fnd_Msg_Pub.ADD;
8954: RAISE FND_API.G_EXC_ERROR;
8955: END IF;
8956: -- If both past task start and end dates are non-null
8957: l_past_dates_flag := 'Y';
8958: IF (l_task_tbl(i).PAST_TASK_START_DATE >= SYSDATE) THEN
8958: IF (l_task_tbl(i).PAST_TASK_START_DATE >= SYSDATE) THEN
8959: -- Throw error if start date is not in past
8960: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_PAST_ST_DATE_INV');
8961: Fnd_Msg_Pub.ADD;
8962: RAISE FND_API.G_EXC_ERROR;
8963: END IF;
8964: IF (l_task_tbl(i).PAST_TASK_START_DATE < NVL(c_visit_rec.START_DATE_TIME, l_task_tbl(i).PAST_TASK_START_DATE)) THEN
8965: -- Throw error if past task start date is before the visit start date
8966: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_START_DATE_INVLD');
8964: IF (l_task_tbl(i).PAST_TASK_START_DATE < NVL(c_visit_rec.START_DATE_TIME, l_task_tbl(i).PAST_TASK_START_DATE)) THEN
8965: -- Throw error if past task start date is before the visit start date
8966: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_START_DATE_INVLD');
8967: Fnd_Msg_Pub.ADD;
8968: RAISE FND_API.G_EXC_ERROR;
8969: END IF;
8970: IF (l_task_tbl(i).PAST_TASK_START_DATE > l_task_tbl(i).PAST_TASK_END_DATE) THEN
8971: -- Throw error if past task start date is after the past task end date
8972: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_INVLD');
8970: IF (l_task_tbl(i).PAST_TASK_START_DATE > l_task_tbl(i).PAST_TASK_END_DATE) THEN
8971: -- Throw error if past task start date is after the past task end date
8972: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_INVLD');
8973: Fnd_Msg_Pub.ADD;
8974: RAISE FND_API.G_EXC_ERROR;
8975: END IF;
8976: IF (l_task_tbl(i).PAST_TASK_END_DATE > NVL(c_visit_rec.CLOSE_DATE_TIME, l_task_tbl(i).PAST_TASK_END_DATE)) THEN
8977: -- Throw error if visit ends before the task
8978: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_END_DATE_INVLD');
8976: IF (l_task_tbl(i).PAST_TASK_END_DATE > NVL(c_visit_rec.CLOSE_DATE_TIME, l_task_tbl(i).PAST_TASK_END_DATE)) THEN
8977: -- Throw error if visit ends before the task
8978: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_END_DATE_INVLD');
8979: Fnd_Msg_Pub.ADD;
8980: RAISE FND_API.G_EXC_ERROR;
8981: END IF;
8982: ELSE -- PAST_TASK_START_DATE is null
8983: -- SKPATHAK :: Bug #9402279 :: 24-FEB-2010 :: Replaced l_task_tbl(1) with l_task_tbl(i)
8984: -- Also changed the condition from l_task_tbl(i).PAST_TASK_START_DATE <> Fnd_Api.G_MISS_DATE
8980: RAISE FND_API.G_EXC_ERROR;
8981: END IF;
8982: ELSE -- PAST_TASK_START_DATE is null
8983: -- SKPATHAK :: Bug #9402279 :: 24-FEB-2010 :: Replaced l_task_tbl(1) with l_task_tbl(i)
8984: -- Also changed the condition from l_task_tbl(i).PAST_TASK_START_DATE <> Fnd_Api.G_MISS_DATE
8985: -- to l_task_tbl(i).PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE
8986: IF (l_task_tbl(i).PAST_TASK_END_DATE IS NOT NULL
8987: AND l_task_tbl(i).PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE) THEN
8988: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
8981: END IF;
8982: ELSE -- PAST_TASK_START_DATE is null
8983: -- SKPATHAK :: Bug #9402279 :: 24-FEB-2010 :: Replaced l_task_tbl(1) with l_task_tbl(i)
8984: -- Also changed the condition from l_task_tbl(i).PAST_TASK_START_DATE <> Fnd_Api.G_MISS_DATE
8985: -- to l_task_tbl(i).PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE
8986: IF (l_task_tbl(i).PAST_TASK_END_DATE IS NOT NULL
8987: AND l_task_tbl(i).PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE) THEN
8988: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
8989: Fnd_Msg_Pub.ADD;
8983: -- SKPATHAK :: Bug #9402279 :: 24-FEB-2010 :: Replaced l_task_tbl(1) with l_task_tbl(i)
8984: -- Also changed the condition from l_task_tbl(i).PAST_TASK_START_DATE <> Fnd_Api.G_MISS_DATE
8985: -- to l_task_tbl(i).PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE
8986: IF (l_task_tbl(i).PAST_TASK_END_DATE IS NOT NULL
8987: AND l_task_tbl(i).PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE) THEN
8988: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
8989: Fnd_Msg_Pub.ADD;
8990: RAISE FND_API.G_EXC_ERROR;
8991: END IF;
8986: IF (l_task_tbl(i).PAST_TASK_END_DATE IS NOT NULL
8987: AND l_task_tbl(i).PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE) THEN
8988: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
8989: Fnd_Msg_Pub.ADD;
8990: RAISE FND_API.G_EXC_ERROR;
8991: END IF;
8992: l_task_tbl(i).PAST_TASK_START_DATE := NULL;
8993: l_task_tbl(i).PAST_TASK_END_DATE := NULL;
8994: END IF;
9023:
9024: IF(l_task_tbl(i).QUANTITY > NVL(l_target_qty, 0)) THEN
9025: Fnd_Message.SET_NAME('AHL','AHL_CMP_TSK_QTY_RPR_QTY');
9026: Fnd_Msg_Pub.ADD;
9027: RAISE Fnd_Api.G_EXC_ERROR;
9028: END IF;
9029:
9030: ELSIF(l_task_tbl(i).QUANTITY > l_instance_qty ) THEN
9031: Fnd_Message.SET_NAME('AHL','AHL_INCORRECT_TSK_QTY');
9029:
9030: ELSIF(l_task_tbl(i).QUANTITY > l_instance_qty ) THEN
9031: Fnd_Message.SET_NAME('AHL','AHL_INCORRECT_TSK_QTY');
9032: Fnd_Msg_Pub.ADD;
9033: RAISE Fnd_Api.G_EXC_ERROR;
9034: END IF;
9035: */
9036: IF(l_task_tbl(i).QUANTITY > l_instance_qty ) THEN
9037: Fnd_Message.SET_NAME('AHL','AHL_INCORRECT_TSK_QTY');
9035: */
9036: IF(l_task_tbl(i).QUANTITY > l_instance_qty ) THEN
9037: Fnd_Message.SET_NAME('AHL','AHL_INCORRECT_TSK_QTY');
9038: Fnd_Msg_Pub.ADD;
9039: RAISE Fnd_Api.G_EXC_ERROR;
9040: END IF;
9041:
9042: END IF;
9043:
9057: l_task_tbl(i).task_start_date > c_visit_rec.CLOSE_DATE_TIME) THEN
9058: FND_MESSAGE.SET_NAME ('AHL', 'AHL_VWP_TSK_START_DATE_INVLD');
9059: FND_MESSAGE.SET_TOKEN('DATE', l_task_tbl(i).task_start_date);
9060: FND_MSG_PUB.ADD;
9061: RAISE FND_API.G_EXC_ERROR;
9062: END IF;
9063:
9064: AHL_VWP_PLAN_TASKS_PVT.Create_Planned_Task (
9065: p_api_version => l_api_version,
9063:
9064: AHL_VWP_PLAN_TASKS_PVT.Create_Planned_Task (
9065: p_api_version => l_api_version,
9066: p_init_msg_list => p_init_msg_list,
9067: p_commit => FND_API.G_FALSE,
9068: p_validation_level => p_validation_level,
9069: p_module_type => p_module_type,
9070: p_x_task_rec => l_task_tbl(i),
9071: x_return_status => l_return_status,
9080: l_return_status);
9081: END IF;
9082: l_msg_count := Fnd_Msg_Pub.count_msg;
9083:
9084: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9085: x_msg_count := l_msg_count;
9086: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9087: RAISE Fnd_Api.G_EXC_ERROR;
9088: END IF;
9082: l_msg_count := Fnd_Msg_Pub.count_msg;
9083:
9084: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9085: x_msg_count := l_msg_count;
9086: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9087: RAISE Fnd_Api.G_EXC_ERROR;
9088: END IF;
9089:
9090: ELSIF l_task_tbl(i).task_type_code = 'UNPLANNED' THEN
9083:
9084: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9085: x_msg_count := l_msg_count;
9086: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9087: RAISE Fnd_Api.G_EXC_ERROR;
9088: END IF;
9089:
9090: ELSIF l_task_tbl(i).task_type_code = 'UNPLANNED' THEN
9091: -- Begin changes by rnahata for Issue 105
9095:
9096: IF (l_task_tbl(i).QUANTITY is null) THEN
9097: Fnd_Message.SET_NAME('AHL','AHL_TASK_QTY_NULL');
9098: Fnd_Msg_Pub.ADD;
9099: RAISE Fnd_Api.G_EXC_ERROR;
9100: END IF;
9101:
9102: IF (l_task_tbl(i).QUANTITY <= 0 ) THEN
9103: Fnd_Message.SET_NAME('AHL','AHL_POSITIVE_TSK_QTY');
9101:
9102: IF (l_task_tbl(i).QUANTITY <= 0 ) THEN
9103: Fnd_Message.SET_NAME('AHL','AHL_POSITIVE_TSK_QTY');
9104: Fnd_Msg_Pub.ADD;
9105: RAISE Fnd_Api.G_EXC_ERROR;
9106: END IF;
9107: /*Kasridha : Changes for Component Maintenance Planning Begins
9108: Throw error only when the quantity is greater than
9109: repair quantity , for component visits */
9118:
9119: IF(l_task_tbl(i).QUANTITY > NVL(l_target_qty, 0)) THEN
9120: Fnd_Message.SET_NAME('AHL','AHL_CMP_TSK_QTY_RPR_QTY');
9121: Fnd_Msg_Pub.ADD;
9122: RAISE Fnd_Api.G_EXC_ERROR;
9123: END IF;
9124:
9125:
9126: ELSIF(l_task_tbl(i).QUANTITY > l_instance_qty ) THEN
9125:
9126: ELSIF(l_task_tbl(i).QUANTITY > l_instance_qty ) THEN
9127: Fnd_Message.SET_NAME('AHL','AHL_INCORRECT_TSK_QTY');
9128: Fnd_Msg_Pub.ADD;
9129: RAISE Fnd_Api.G_EXC_ERROR;
9130: END IF;
9131: */
9132:
9133: IF(l_task_tbl(i).QUANTITY > l_instance_qty ) THEN
9132:
9133: IF(l_task_tbl(i).QUANTITY > l_instance_qty ) THEN
9134: Fnd_Message.SET_NAME('AHL','AHL_INCORRECT_TSK_QTY');
9135: Fnd_Msg_Pub.ADD;
9136: RAISE Fnd_Api.G_EXC_ERROR;
9137: END IF;
9138:
9139: -- Kasridha : Changes for Component Maintenance Planning Ends
9140:
9147:
9148: AHL_VWP_UNPLAN_TASKS_PVT.Create_Unplanned_Task (
9149: p_api_version => l_api_version,
9150: p_init_msg_list => p_init_msg_list,
9151: p_commit => FND_API.G_FALSE,
9152: p_validation_level => p_validation_level,
9153: p_module_type => p_module_type,
9154: p_x_task_rec => l_task_tbl(i),
9155: x_return_status => l_return_status,
9164: END IF;
9165:
9166: l_msg_count := Fnd_Msg_Pub.count_msg;
9167:
9168: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9169: x_msg_count := l_msg_count;
9170: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9171: RAISE Fnd_Api.G_EXC_ERROR;
9172: END IF;
9166: l_msg_count := Fnd_Msg_Pub.count_msg;
9167:
9168: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9169: x_msg_count := l_msg_count;
9170: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9171: RAISE Fnd_Api.G_EXC_ERROR;
9172: END IF;
9173: END IF;
9174: END LOOP;
9167:
9168: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9169: x_msg_count := l_msg_count;
9170: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9171: RAISE Fnd_Api.G_EXC_ERROR;
9172: END IF;
9173: END IF;
9174: END LOOP;
9175: END IF;
9184: L_DEBUG_KEY,
9185: 'Before Calling AHL_VWP_TIMES_PVT.Calculate_Task_Times');
9186: END IF;
9187: AHL_VWP_TIMES_PVT.Calculate_Task_Times(p_api_version => 1.0,
9188: p_init_msg_list => Fnd_Api.G_FALSE,
9189: p_commit => Fnd_Api.G_FALSE,
9190: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
9191: x_return_status => l_return_status,
9192: x_msg_count => l_msg_count,
9185: 'Before Calling AHL_VWP_TIMES_PVT.Calculate_Task_Times');
9186: END IF;
9187: AHL_VWP_TIMES_PVT.Calculate_Task_Times(p_api_version => 1.0,
9188: p_init_msg_list => Fnd_Api.G_FALSE,
9189: p_commit => Fnd_Api.G_FALSE,
9190: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
9191: x_return_status => l_return_status,
9192: x_msg_count => l_msg_count,
9193: x_msg_data => l_msg_data,
9186: END IF;
9187: AHL_VWP_TIMES_PVT.Calculate_Task_Times(p_api_version => 1.0,
9188: p_init_msg_list => Fnd_Api.G_FALSE,
9189: p_commit => Fnd_Api.G_FALSE,
9190: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
9191: x_return_status => l_return_status,
9192: x_msg_count => l_msg_count,
9193: x_msg_data => l_msg_data,
9194: p_visit_id => c_visit_rec.VISIT_ID);
9198: L_DEBUG_KEY,
9199: 'After Calling AHL_VWP_TIMES_PVT.Calculate_Task_Times. Return Status = ' || l_return_status );
9200: END IF;
9201:
9202: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9203: x_msg_count := l_msg_count;
9204: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9205: RAISE Fnd_Api.G_EXC_ERROR;
9206: END IF;
9200: END IF;
9201:
9202: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9203: x_msg_count := l_msg_count;
9204: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9205: RAISE Fnd_Api.G_EXC_ERROR;
9206: END IF;
9207: END IF;
9208: -- SKPATHAK :: Bug 8343599 :: 14_APR-2009 :: End
9201:
9202: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9203: x_msg_count := l_msg_count;
9204: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9205: RAISE Fnd_Api.G_EXC_ERROR;
9206: END IF;
9207: END IF;
9208: -- SKPATHAK :: Bug 8343599 :: 14_APR-2009 :: End
9209:
9214: L_DEBUG_KEY,
9215: 'Before Calling AHL_VWP_RULES_PVT.Handle_Task_Dependency');
9216: END IF;
9217: AHL_VWP_RULES_PVT.Handle_Task_Dependency(p_api_version => 1.0,
9218: p_init_msg_list => Fnd_Api.G_FALSE,
9219: p_commit => Fnd_Api.G_FALSE,
9220: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
9221: p_visit_id => c_visit_rec.VISIT_ID,
9222: p_task_tbl => l_task_tbl,
9215: 'Before Calling AHL_VWP_RULES_PVT.Handle_Task_Dependency');
9216: END IF;
9217: AHL_VWP_RULES_PVT.Handle_Task_Dependency(p_api_version => 1.0,
9218: p_init_msg_list => Fnd_Api.G_FALSE,
9219: p_commit => Fnd_Api.G_FALSE,
9220: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
9221: p_visit_id => c_visit_rec.VISIT_ID,
9222: p_task_tbl => l_task_tbl,
9223: x_return_status => l_return_status,
9216: END IF;
9217: AHL_VWP_RULES_PVT.Handle_Task_Dependency(p_api_version => 1.0,
9218: p_init_msg_list => Fnd_Api.G_FALSE,
9219: p_commit => Fnd_Api.G_FALSE,
9220: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
9221: p_visit_id => c_visit_rec.VISIT_ID,
9222: p_task_tbl => l_task_tbl,
9223: x_return_status => l_return_status,
9224: x_msg_count => l_msg_count,
9228: fnd_log.string(l_log_statement,
9229: L_DEBUG_KEY,
9230: 'After Calling AHL_VWP_RULES_PVT.Handle_Task_Dependency. Return Status = ' || l_return_status );
9231: END IF;
9232: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9233: x_msg_count := l_msg_count;
9234: l_return_status := Fnd_Api.G_RET_STS_ERROR;
9235: x_return_status := l_return_status;
9236: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
9230: 'After Calling AHL_VWP_RULES_PVT.Handle_Task_Dependency. Return Status = ' || l_return_status );
9231: END IF;
9232: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9233: x_msg_count := l_msg_count;
9234: l_return_status := Fnd_Api.G_RET_STS_ERROR;
9235: x_return_status := l_return_status;
9236: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
9237: RAISE Fnd_Api.g_exc_error;
9238: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
9232: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9233: x_msg_count := l_msg_count;
9234: l_return_status := Fnd_Api.G_RET_STS_ERROR;
9235: x_return_status := l_return_status;
9236: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
9237: RAISE Fnd_Api.g_exc_error;
9238: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
9239: RAISE Fnd_Api.g_exc_unexpected_error;
9240: END IF;
9233: x_msg_count := l_msg_count;
9234: l_return_status := Fnd_Api.G_RET_STS_ERROR;
9235: x_return_status := l_return_status;
9236: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
9237: RAISE Fnd_Api.g_exc_error;
9238: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
9239: RAISE Fnd_Api.g_exc_unexpected_error;
9240: END IF;
9241: END IF;
9234: l_return_status := Fnd_Api.G_RET_STS_ERROR;
9235: x_return_status := l_return_status;
9236: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
9237: RAISE Fnd_Api.g_exc_error;
9238: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
9239: RAISE Fnd_Api.g_exc_unexpected_error;
9240: END IF;
9241: END IF;
9242: --VWPE :: tchimira :: 19-FEB -2011 :: end
9235: x_return_status := l_return_status;
9236: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
9237: RAISE Fnd_Api.g_exc_error;
9238: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
9239: RAISE Fnd_Api.g_exc_unexpected_error;
9240: END IF;
9241: END IF;
9242: --VWPE :: tchimira :: 19-FEB -2011 :: end
9243:
9400: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063 :: Automatically create draft WOs if tasks are added to a visit that is in any of the below three statuses
9401: IF ((c_visit_rec.status_code IN ('PLANNING', 'PARTIALLY RELEASED', 'RELEASED')) AND (p_module_type <> 'SR')) THEN
9402: AHL_VWP_PROJ_PROD_PVT.plan_visit(
9403: p_api_version => l_api_version,
9404: p_init_msg_list => Fnd_Api.G_FALSE,
9405: p_commit => Fnd_Api.G_FALSE,
9406: p_validation_level => p_validation_level,
9407: p_visit_id => l_task_tbl(1).visit_id,
9408: x_return_status => l_return_status,
9401: IF ((c_visit_rec.status_code IN ('PLANNING', 'PARTIALLY RELEASED', 'RELEASED')) AND (p_module_type <> 'SR')) THEN
9402: AHL_VWP_PROJ_PROD_PVT.plan_visit(
9403: p_api_version => l_api_version,
9404: p_init_msg_list => Fnd_Api.G_FALSE,
9405: p_commit => Fnd_Api.G_FALSE,
9406: p_validation_level => p_validation_level,
9407: p_visit_id => l_task_tbl(1).visit_id,
9408: x_return_status => l_return_status,
9409: x_msg_count => l_msg_count,
9414: L_DEBUG_KEY,
9415: 'After Calling AHL_VWP_PROJ_PROD_PVT.plan_visit. Return Status = ' || l_return_status );
9416: END IF;
9417:
9418: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9419: x_msg_count := l_msg_count;
9420: x_return_status := l_return_status;
9421: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
9422: RAISE Fnd_Api.g_exc_error;
9417:
9418: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9419: x_msg_count := l_msg_count;
9420: x_return_status := l_return_status;
9421: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
9422: RAISE Fnd_Api.g_exc_error;
9423: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
9424: RAISE Fnd_Api.g_exc_unexpected_error;
9425: END IF;
9418: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9419: x_msg_count := l_msg_count;
9420: x_return_status := l_return_status;
9421: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
9422: RAISE Fnd_Api.g_exc_error;
9423: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
9424: RAISE Fnd_Api.g_exc_unexpected_error;
9425: END IF;
9426: END IF;
9419: x_msg_count := l_msg_count;
9420: x_return_status := l_return_status;
9421: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
9422: RAISE Fnd_Api.g_exc_error;
9423: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
9424: RAISE Fnd_Api.g_exc_unexpected_error;
9425: END IF;
9426: END IF;
9427: END IF;
9420: x_return_status := l_return_status;
9421: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
9422: RAISE Fnd_Api.g_exc_error;
9423: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
9424: RAISE Fnd_Api.g_exc_unexpected_error;
9425: END IF;
9426: END IF;
9427: END IF;
9428:
9476: END IF;
9477:
9478: AHL_CMP_PVT.Move_To_InRepair_Locator(
9479: p_api_version => l_api_version,
9480: p_init_msg_list => Fnd_Api.g_false,
9481: p_commit => Fnd_Api.g_false,
9482: p_validation_level => p_validation_level,
9483: p_wip_entity_id => l_rts_wip_id,
9484: p_instance_id => l_instance_id,
9477:
9478: AHL_CMP_PVT.Move_To_InRepair_Locator(
9479: p_api_version => l_api_version,
9480: p_init_msg_list => Fnd_Api.g_false,
9481: p_commit => Fnd_Api.g_false,
9482: p_validation_level => p_validation_level,
9483: p_wip_entity_id => l_rts_wip_id,
9484: p_instance_id => l_instance_id,
9485: p_repair_batch_name => l_repair_batch_name,
9493: L_DEBUG_KEY,
9494: 'After Calling AHL_VWP_PROJ_PROD_PVT.Move_To_InRepair_Locator.' ||
9495: 'Return Status = ' || l_return_status );
9496: END IF;
9497: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9498: x_msg_count := l_msg_count;
9499: x_return_status := l_return_status;
9500: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
9501: RAISE Fnd_Api.g_exc_error;
9496: END IF;
9497: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9498: x_msg_count := l_msg_count;
9499: x_return_status := l_return_status;
9500: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
9501: RAISE Fnd_Api.g_exc_error;
9502: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
9503: RAISE Fnd_Api.g_exc_unexpected_error;
9504: END IF;
9497: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9498: x_msg_count := l_msg_count;
9499: x_return_status := l_return_status;
9500: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
9501: RAISE Fnd_Api.g_exc_error;
9502: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
9503: RAISE Fnd_Api.g_exc_unexpected_error;
9504: END IF;
9505: ELSE
9498: x_msg_count := l_msg_count;
9499: x_return_status := l_return_status;
9500: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
9501: RAISE Fnd_Api.g_exc_error;
9502: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
9503: RAISE Fnd_Api.g_exc_unexpected_error;
9504: END IF;
9505: ELSE
9506: FND_MSG_PUB.Initialize;
9499: x_return_status := l_return_status;
9500: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
9501: RAISE Fnd_Api.g_exc_error;
9502: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
9503: RAISE Fnd_Api.g_exc_unexpected_error;
9504: END IF;
9505: ELSE
9506: FND_MSG_PUB.Initialize;
9507: END IF;
9520: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063 :: Automatically create draft WOs if tasks are added to a visit that is in any of the below three statuses
9521: IF ((c_visit_rec.status_code IN ('PLANNING', 'PARTIALLY RELEASED', 'RELEASED')) AND (p_module_type <> 'SR')) THEN
9522: AHL_VWP_PROJ_PROD_PVT.plan_visit(
9523: p_api_version => l_api_version,
9524: p_init_msg_list => Fnd_Api.G_FALSE,
9525: p_commit => Fnd_Api.G_FALSE,
9526: p_validation_level => p_validation_level,
9527: p_visit_id => l_task_tbl(1).visit_id,
9528: x_return_status => l_return_status,
9521: IF ((c_visit_rec.status_code IN ('PLANNING', 'PARTIALLY RELEASED', 'RELEASED')) AND (p_module_type <> 'SR')) THEN
9522: AHL_VWP_PROJ_PROD_PVT.plan_visit(
9523: p_api_version => l_api_version,
9524: p_init_msg_list => Fnd_Api.G_FALSE,
9525: p_commit => Fnd_Api.G_FALSE,
9526: p_validation_level => p_validation_level,
9527: p_visit_id => l_task_tbl(1).visit_id,
9528: x_return_status => l_return_status,
9529: x_msg_count => l_msg_count,
9534: L_DEBUG_KEY,
9535: 'After Calling AHL_VWP_PROJ_PROD_PVT.plan_visit. Return Status = ' || l_return_status );
9536: END IF;
9537:
9538: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9539: x_msg_count := l_msg_count;
9540: x_return_status := l_return_status;
9541: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
9542: RAISE Fnd_Api.g_exc_error;
9537:
9538: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9539: x_msg_count := l_msg_count;
9540: x_return_status := l_return_status;
9541: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
9542: RAISE Fnd_Api.g_exc_error;
9543: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
9544: RAISE Fnd_Api.g_exc_unexpected_error;
9545: END IF;
9538: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9539: x_msg_count := l_msg_count;
9540: x_return_status := l_return_status;
9541: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
9542: RAISE Fnd_Api.g_exc_error;
9543: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
9544: RAISE Fnd_Api.g_exc_unexpected_error;
9545: END IF;
9546: END IF;
9539: x_msg_count := l_msg_count;
9540: x_return_status := l_return_status;
9541: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
9542: RAISE Fnd_Api.g_exc_error;
9543: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
9544: RAISE Fnd_Api.g_exc_unexpected_error;
9545: END IF;
9546: END IF;
9547: END IF;
9540: x_return_status := l_return_status;
9541: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
9542: RAISE Fnd_Api.g_exc_error;
9543: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
9544: RAISE Fnd_Api.g_exc_unexpected_error;
9545: END IF;
9546: END IF;
9547: END IF;
9548:
9559: l_msg_count := Fnd_Msg_Pub.count_msg;
9560:
9561: IF l_msg_count > 0 THEN
9562: x_msg_count := l_msg_count;
9563: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9564: RAISE Fnd_Api.G_EXC_ERROR;
9565: END IF;
9566:
9567: --Standard check for commit
9560:
9561: IF l_msg_count > 0 THEN
9562: x_msg_count := l_msg_count;
9563: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9564: RAISE Fnd_Api.G_EXC_ERROR;
9565: END IF;
9566:
9567: --Standard check for commit
9568: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
9564: RAISE Fnd_Api.G_EXC_ERROR;
9565: END IF;
9566:
9567: --Standard check for commit
9568: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
9569: COMMIT;
9570: END IF;
9571:
9572: IF (l_log_procedure >= l_log_current_level) THEN
9574: L_DEBUG_KEY ||'.end',
9575: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
9576: END IF;
9577: EXCEPTION
9578: WHEN Fnd_Api.g_exc_error THEN
9579: ROLLBACK TO Create_PUP_Tasks;
9580: x_return_status := Fnd_Api.g_ret_sts_error;
9581: Fnd_Msg_Pub.count_and_get(
9582: p_encoded => Fnd_Api.g_false,
9576: END IF;
9577: EXCEPTION
9578: WHEN Fnd_Api.g_exc_error THEN
9579: ROLLBACK TO Create_PUP_Tasks;
9580: x_return_status := Fnd_Api.g_ret_sts_error;
9581: Fnd_Msg_Pub.count_and_get(
9582: p_encoded => Fnd_Api.g_false,
9583: p_count => x_msg_count,
9584: p_data => x_msg_data
9578: WHEN Fnd_Api.g_exc_error THEN
9579: ROLLBACK TO Create_PUP_Tasks;
9580: x_return_status := Fnd_Api.g_ret_sts_error;
9581: Fnd_Msg_Pub.count_and_get(
9582: p_encoded => Fnd_Api.g_false,
9583: p_count => x_msg_count,
9584: p_data => x_msg_data
9585: );
9586: WHEN Fnd_Api.g_exc_unexpected_error THEN
9582: p_encoded => Fnd_Api.g_false,
9583: p_count => x_msg_count,
9584: p_data => x_msg_data
9585: );
9586: WHEN Fnd_Api.g_exc_unexpected_error THEN
9587: ROLLBACK TO Create_PUP_Tasks;
9588: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
9589: Fnd_Msg_Pub.count_and_get (
9590: p_encoded => Fnd_Api.g_false,
9584: p_data => x_msg_data
9585: );
9586: WHEN Fnd_Api.g_exc_unexpected_error THEN
9587: ROLLBACK TO Create_PUP_Tasks;
9588: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
9589: Fnd_Msg_Pub.count_and_get (
9590: p_encoded => Fnd_Api.g_false,
9591: p_count => x_msg_count,
9592: p_data => x_msg_data
9586: WHEN Fnd_Api.g_exc_unexpected_error THEN
9587: ROLLBACK TO Create_PUP_Tasks;
9588: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
9589: Fnd_Msg_Pub.count_and_get (
9590: p_encoded => Fnd_Api.g_false,
9591: p_count => x_msg_count,
9592: p_data => x_msg_data
9593: );
9594: WHEN OTHERS THEN
9592: p_data => x_msg_data
9593: );
9594: WHEN OTHERS THEN
9595: ROLLBACK TO Create_PUP_Tasks;
9596: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
9597: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
9598: THEN
9599: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
9600: END IF;
9598: THEN
9599: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
9600: END IF;
9601: Fnd_Msg_Pub.count_and_get (
9602: p_encoded => Fnd_Api.g_false,
9603: p_count => x_msg_count,
9604: p_data => x_msg_data
9605: );
9606: END Create_PUP_Tasks;
9612: -- Parameters :
9613: --
9614: -- Standard IN Parameters :
9615: -- p_api_version IN NUMBER Required
9616: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
9617: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
9618: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
9619: -- p_module_type IN VARCHAR2 Default NULL.
9620: -- p_visit_rec IN AHL_VWP_VISITS_PVT.Visit_Rec_Type,
9613: --
9614: -- Standard IN Parameters :
9615: -- p_api_version IN NUMBER Required
9616: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
9617: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
9618: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
9619: -- p_module_type IN VARCHAR2 Default NULL.
9620: -- p_visit_rec IN AHL_VWP_VISITS_PVT.Visit_Rec_Type,
9621: --
9614: -- Standard IN Parameters :
9615: -- p_api_version IN NUMBER Required
9616: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
9617: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
9618: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
9619: -- p_module_type IN VARCHAR2 Default NULL.
9620: -- p_visit_rec IN AHL_VWP_VISITS_PVT.Visit_Rec_Type,
9621: --
9622: -- Standard OUT Parameters :
9630: -- Initial Version 1.0
9631: -------------------------------------------------------------------
9632: PROCEDURE associate_default_mrs (
9633: p_api_version IN NUMBER,
9634: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
9635: p_commit IN VARCHAR2 := Fnd_Api.g_false,
9636: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
9637: p_module_type IN VARCHAR2 := 'JSP',
9638: x_return_status OUT NOCOPY VARCHAR2,
9631: -------------------------------------------------------------------
9632: PROCEDURE associate_default_mrs (
9633: p_api_version IN NUMBER,
9634: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
9635: p_commit IN VARCHAR2 := Fnd_Api.g_false,
9636: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
9637: p_module_type IN VARCHAR2 := 'JSP',
9638: x_return_status OUT NOCOPY VARCHAR2,
9639: x_msg_count OUT NOCOPY NUMBER,
9632: PROCEDURE associate_default_mrs (
9633: p_api_version IN NUMBER,
9634: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
9635: p_commit IN VARCHAR2 := Fnd_Api.g_false,
9636: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
9637: p_module_type IN VARCHAR2 := 'JSP',
9638: x_return_status OUT NOCOPY VARCHAR2,
9639: x_msg_count OUT NOCOPY NUMBER,
9640: x_msg_data OUT NOCOPY VARCHAR2,
9688: 'At the start of PL SQL procedure.');
9689: END IF;
9690:
9691: -- Initialize message list if p_init_msg_list is set to TRUE.
9692: IF Fnd_Api.to_boolean(p_init_msg_list)
9693: THEN
9694: Fnd_Msg_Pub.initialize;
9695: END IF;
9696:
9694: Fnd_Msg_Pub.initialize;
9695: END IF;
9696:
9697: -- Initialize API return status to success
9698: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
9699:
9700: -- Standard call to check for call compatibility.
9701: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
9702: p_api_version,
9697: -- Initialize API return status to success
9698: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
9699:
9700: -- Standard call to check for call compatibility.
9701: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
9702: p_api_version,
9703: l_api_name,G_PKG_NAME)
9704: THEN
9705: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
9701: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
9702: p_api_version,
9703: l_api_name,G_PKG_NAME)
9704: THEN
9705: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
9706: END IF;
9707:
9708: --------------------Start of API Body-----------------------------------
9709:
9736: END IF;
9737:
9738: l_msg_count := Fnd_Msg_Pub.count_msg;
9739:
9740: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9741: x_msg_count := l_msg_count;
9742: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9743: RAISE Fnd_Api.G_EXC_ERROR;
9744: END IF;
9738: l_msg_count := Fnd_Msg_Pub.count_msg;
9739:
9740: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9741: x_msg_count := l_msg_count;
9742: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9743: RAISE Fnd_Api.G_EXC_ERROR;
9744: END IF;
9745:
9746: -- Begin changes by rnahata for Issue 105
9739:
9740: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9741: x_msg_count := l_msg_count;
9742: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9743: RAISE Fnd_Api.G_EXC_ERROR;
9744: END IF;
9745:
9746: -- Begin changes by rnahata for Issue 105
9747: OPEN c_get_instance_qty(l_instance_id);
9787: x_msg_data => l_msg_data);
9788:
9789: l_msg_count := Fnd_Msg_Pub.count_msg;
9790:
9791: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9792: x_msg_count := l_msg_count;
9793: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9794: RAISE Fnd_Api.G_EXC_ERROR;
9795: END IF;
9789: l_msg_count := Fnd_Msg_Pub.count_msg;
9790:
9791: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9792: x_msg_count := l_msg_count;
9793: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9794: RAISE Fnd_Api.G_EXC_ERROR;
9795: END IF;
9796:
9797: END IF; -- Instance ID is not null.
9790:
9791: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9792: x_msg_count := l_msg_count;
9793: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9794: RAISE Fnd_Api.G_EXC_ERROR;
9795: END IF;
9796:
9797: END IF; -- Instance ID is not null.
9798:
9802: l_msg_count := Fnd_Msg_Pub.count_msg;
9803:
9804: IF l_msg_count > 0 THEN
9805: x_msg_count := l_msg_count;
9806: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9807: RAISE Fnd_Api.G_EXC_ERROR;
9808: END IF;
9809:
9810: IF (l_log_procedure >= l_log_current_level) THEN
9803:
9804: IF l_msg_count > 0 THEN
9805: x_msg_count := l_msg_count;
9806: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9807: RAISE Fnd_Api.G_EXC_ERROR;
9808: END IF;
9809:
9810: IF (l_log_procedure >= l_log_current_level) THEN
9811: fnd_log.string(l_log_procedure,
9812: L_DEBUG_KEY ||'.end',
9813: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
9814: END IF;
9815: EXCEPTION
9816: WHEN Fnd_Api.g_exc_error THEN
9817: ROLLBACK TO associate_default_mrs;
9818: x_return_status := Fnd_Api.g_ret_sts_error;
9819: Fnd_Msg_Pub.count_and_get(
9820: p_encoded => Fnd_Api.g_false,
9814: END IF;
9815: EXCEPTION
9816: WHEN Fnd_Api.g_exc_error THEN
9817: ROLLBACK TO associate_default_mrs;
9818: x_return_status := Fnd_Api.g_ret_sts_error;
9819: Fnd_Msg_Pub.count_and_get(
9820: p_encoded => Fnd_Api.g_false,
9821: p_count => x_msg_count,
9822: p_data => x_msg_data
9816: WHEN Fnd_Api.g_exc_error THEN
9817: ROLLBACK TO associate_default_mrs;
9818: x_return_status := Fnd_Api.g_ret_sts_error;
9819: Fnd_Msg_Pub.count_and_get(
9820: p_encoded => Fnd_Api.g_false,
9821: p_count => x_msg_count,
9822: p_data => x_msg_data
9823: );
9824: WHEN Fnd_Api.g_exc_unexpected_error THEN
9820: p_encoded => Fnd_Api.g_false,
9821: p_count => x_msg_count,
9822: p_data => x_msg_data
9823: );
9824: WHEN Fnd_Api.g_exc_unexpected_error THEN
9825: ROLLBACK TO associate_default_mrs;
9826: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
9827: Fnd_Msg_Pub.count_and_get (
9828: p_encoded => Fnd_Api.g_false,
9822: p_data => x_msg_data
9823: );
9824: WHEN Fnd_Api.g_exc_unexpected_error THEN
9825: ROLLBACK TO associate_default_mrs;
9826: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
9827: Fnd_Msg_Pub.count_and_get (
9828: p_encoded => Fnd_Api.g_false,
9829: p_count => x_msg_count,
9830: p_data => x_msg_data
9824: WHEN Fnd_Api.g_exc_unexpected_error THEN
9825: ROLLBACK TO associate_default_mrs;
9826: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
9827: Fnd_Msg_Pub.count_and_get (
9828: p_encoded => Fnd_Api.g_false,
9829: p_count => x_msg_count,
9830: p_data => x_msg_data
9831: );
9832: WHEN OTHERS THEN
9830: p_data => x_msg_data
9831: );
9832: WHEN OTHERS THEN
9833: ROLLBACK TO associate_default_mrs;
9834: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
9835: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
9836: THEN
9837: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
9838: END IF;
9836: THEN
9837: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
9838: END IF;
9839: Fnd_Msg_Pub.count_and_get (
9840: p_encoded => Fnd_Api.g_false,
9841: p_count => x_msg_count,
9842: p_data => x_msg_data
9843: );
9844: END associate_default_mrs;
9902: l_entitlement_rec.warranty_entitlement_id := l_warranty_entl_id;
9903: l_entitlement_rec.operation_flag := AHL_WARRANTY_ENTL_PVT.G_OP_DELETE;
9904: ELSE
9905: l_entitlement_rec.warranty_entitlement_id := l_warranty_entl_id;
9906: l_entitlement_rec.visit_task_id := FND_API.G_MISS_NUM;
9907: l_entitlement_rec.object_version_number := l_ovn;
9908: l_entitlement_rec.operation_flag := AHL_WARRANTY_ENTL_PVT.G_OP_UPDATE;
9909: END IF;
9910: x_warranty_entl_tbl(0) := l_entitlement_rec;
9931: -- To create visit tasks for visit stages
9932: --------------------------------------------------------------------
9933: PROCEDURE Create_Stage_Tasks (
9934: p_api_version IN NUMBER,
9935: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
9936: p_commit IN VARCHAR2 := Fnd_Api.g_false,
9937: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
9938: p_module_type IN VARCHAR2 := null,
9939: p_stage_id IN NUMBER,
9932: --------------------------------------------------------------------
9933: PROCEDURE Create_Stage_Tasks (
9934: p_api_version IN NUMBER,
9935: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
9936: p_commit IN VARCHAR2 := Fnd_Api.g_false,
9937: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
9938: p_module_type IN VARCHAR2 := null,
9939: p_stage_id IN NUMBER,
9940: p_visit_id IN NUMBER,
9933: PROCEDURE Create_Stage_Tasks (
9934: p_api_version IN NUMBER,
9935: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
9936: p_commit IN VARCHAR2 := Fnd_Api.g_false,
9937: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
9938: p_module_type IN VARCHAR2 := null,
9939: p_stage_id IN NUMBER,
9940: p_visit_id IN NUMBER,
9941: x_return_status OUT NOCOPY VARCHAR2,
10006: 'At the start of PL SQL procedure. p_stage_id= '||p_stage_id||' and p_visit_id= '||p_visit_id);
10007: END IF;
10008:
10009: -- Initialize message list if p_init_msg_list is set to TRUE.
10010: IF Fnd_Api.to_boolean(p_init_msg_list)
10011: THEN
10012: Fnd_Msg_Pub.initialize;
10013: END IF;
10014:
10012: Fnd_Msg_Pub.initialize;
10013: END IF;
10014:
10015: -- Initialize API return status to success
10016: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
10017:
10018: -- Standard call to check for call compatibility.
10019: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
10020: p_api_version,
10015: -- Initialize API return status to success
10016: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
10017:
10018: -- Standard call to check for call compatibility.
10019: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
10020: p_api_version,
10021: l_api_name,G_PKG_NAME)
10022: THEN
10023: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
10019: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
10020: p_api_version,
10021: l_api_name,G_PKG_NAME)
10022: THEN
10023: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
10024: END IF;
10025:
10026: --------------------Start of API Body-----------------------------------
10027:
10024: END IF;
10025:
10026: --------------------Start of API Body-----------------------------------
10027:
10028: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN
10029: FND_MESSAGE.Set_Name('AHL','AHL_VWP_CST_INPUT_MISS');
10030: FND_MSG_PUB.ADD;
10031: IF (l_log_statement >= l_log_current_level) THEN
10032: fnd_log.string(l_log_statement,
10032: fnd_log.string(l_log_statement,
10033: L_DEBUG_KEY,
10034: 'Visit id is mandatory but found null in input ');
10035: END IF;
10036: RAISE FND_API.G_EXC_ERROR;
10037: END IF;
10038:
10039: -- Validate the visit id
10040: OPEN val_visit(p_visit_id);
10048: L_DEBUG_KEY,
10049: 'Input visit id is INVALID ');
10050: END IF;
10051: CLOSE val_visit;
10052: RAISE FND_API.G_EXC_ERROR;
10053: END IF;
10054: CLOSE val_visit;
10055:
10056: -- Validate the visit id + stage id combination
10068: L_DEBUG_KEY,
10069: 'Input stage id is INVALID ');
10070: END IF;
10071: CLOSE val_visit_stage;
10072: RAISE FND_API.G_EXC_ERROR;
10073: END IF;
10074: CLOSE val_visit_stage;
10075: END IF;
10076:
10085: L_DEBUG_KEY,
10086: 'Input visit id is INVALID ');
10087: END IF;
10088: CLOSE Get_Visit_Details;
10089: RAISE FND_API.G_EXC_ERROR;
10090: END IF;
10091: CLOSE Get_Visit_Details;
10092:
10093: l_visit_task_id := AHL_VWP_RULES_PVT.Get_Visit_Task_Id();
10186:
10187: AHL_VWP_PROJ_PROD_PVT.plan_visit(
10188: p_api_version => l_api_version,
10189: p_init_msg_list => p_init_msg_list,
10190: p_commit => Fnd_Api.g_false,
10191: p_validation_level => p_validation_level,
10192: -- SKPATHAK :: 20-JUN-2011 :: VWPE: ER:12673125
10193: -- If caller is create stage task API, then necessarily call RELEASE_VISIT
10194: p_caller => 'STG',
10202: L_DEBUG_KEY,
10203: 'After Calling AHL_VWP_PROJ_PROD_PVT.plan_visit. Return Status = ' || l_return_status );
10204: END IF;
10205:
10206: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
10207: x_msg_count := l_msg_count;
10208: x_return_status := l_return_status;
10209: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
10210: RAISE Fnd_Api.g_exc_error;
10205:
10206: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
10207: x_msg_count := l_msg_count;
10208: x_return_status := l_return_status;
10209: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
10210: RAISE Fnd_Api.g_exc_error;
10211: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
10212: RAISE Fnd_Api.g_exc_unexpected_error;
10213: END IF;
10206: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
10207: x_msg_count := l_msg_count;
10208: x_return_status := l_return_status;
10209: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
10210: RAISE Fnd_Api.g_exc_error;
10211: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
10212: RAISE Fnd_Api.g_exc_unexpected_error;
10213: END IF;
10214: END IF;
10207: x_msg_count := l_msg_count;
10208: x_return_status := l_return_status;
10209: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
10210: RAISE Fnd_Api.g_exc_error;
10211: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
10212: RAISE Fnd_Api.g_exc_unexpected_error;
10213: END IF;
10214: END IF;
10215: END IF;
10208: x_return_status := l_return_status;
10209: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
10210: RAISE Fnd_Api.g_exc_error;
10211: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
10212: RAISE Fnd_Api.g_exc_unexpected_error;
10213: END IF;
10214: END IF;
10215: END IF;
10216:
10215: END IF;
10216:
10217: IF l_msg_count > 0 THEN
10218: x_msg_count := l_msg_count;
10219: RAISE Fnd_Api.G_EXC_ERROR;
10220: END IF;
10221:
10222: --Standard check for commit
10223: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
10219: RAISE Fnd_Api.G_EXC_ERROR;
10220: END IF;
10221:
10222: --Standard check for commit
10223: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
10224: COMMIT;
10225: END IF;
10226:
10227: IF (l_log_procedure >= l_log_current_level) THEN
10229: L_DEBUG_KEY ||'.end',
10230: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
10231: END IF;
10232: EXCEPTION
10233: WHEN Fnd_Api.g_exc_error THEN
10234: ROLLBACK TO Create_Stage_Tasks;
10235: x_return_status := Fnd_Api.g_ret_sts_error;
10236: Fnd_Msg_Pub.count_and_get(
10237: p_encoded => Fnd_Api.g_false,
10231: END IF;
10232: EXCEPTION
10233: WHEN Fnd_Api.g_exc_error THEN
10234: ROLLBACK TO Create_Stage_Tasks;
10235: x_return_status := Fnd_Api.g_ret_sts_error;
10236: Fnd_Msg_Pub.count_and_get(
10237: p_encoded => Fnd_Api.g_false,
10238: p_count => x_msg_count,
10239: p_data => x_msg_data
10233: WHEN Fnd_Api.g_exc_error THEN
10234: ROLLBACK TO Create_Stage_Tasks;
10235: x_return_status := Fnd_Api.g_ret_sts_error;
10236: Fnd_Msg_Pub.count_and_get(
10237: p_encoded => Fnd_Api.g_false,
10238: p_count => x_msg_count,
10239: p_data => x_msg_data
10240: );
10241: WHEN Fnd_Api.g_exc_unexpected_error THEN
10237: p_encoded => Fnd_Api.g_false,
10238: p_count => x_msg_count,
10239: p_data => x_msg_data
10240: );
10241: WHEN Fnd_Api.g_exc_unexpected_error THEN
10242: ROLLBACK TO Create_Stage_Tasks;
10243: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
10244: Fnd_Msg_Pub.count_and_get (
10245: p_encoded => Fnd_Api.g_false,
10239: p_data => x_msg_data
10240: );
10241: WHEN Fnd_Api.g_exc_unexpected_error THEN
10242: ROLLBACK TO Create_Stage_Tasks;
10243: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
10244: Fnd_Msg_Pub.count_and_get (
10245: p_encoded => Fnd_Api.g_false,
10246: p_count => x_msg_count,
10247: p_data => x_msg_data
10241: WHEN Fnd_Api.g_exc_unexpected_error THEN
10242: ROLLBACK TO Create_Stage_Tasks;
10243: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
10244: Fnd_Msg_Pub.count_and_get (
10245: p_encoded => Fnd_Api.g_false,
10246: p_count => x_msg_count,
10247: p_data => x_msg_data
10248: );
10249: WHEN OTHERS THEN
10247: p_data => x_msg_data
10248: );
10249: WHEN OTHERS THEN
10250: ROLLBACK TO Create_Stage_Tasks;
10251: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
10252: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
10253: THEN
10254: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
10255: END IF;
10253: THEN
10254: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
10255: END IF;
10256: Fnd_Msg_Pub.count_and_get (
10257: p_encoded => Fnd_Api.g_false,
10258: p_count => x_msg_count,
10259: p_data => x_msg_data
10260: );
10261: END Create_Stage_Tasks;
10271: --------------------------------------------------------------------
10272:
10273: PROCEDURE Delete_Stage_Task (
10274: p_api_version IN NUMBER,
10275: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
10276: p_commit IN VARCHAR2 := Fnd_Api.g_false,
10277: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
10278: p_module_type IN VARCHAR2 := 'JSP',
10279: p_visit_task_ID IN NUMBER,
10272:
10273: PROCEDURE Delete_Stage_Task (
10274: p_api_version IN NUMBER,
10275: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
10276: p_commit IN VARCHAR2 := Fnd_Api.g_false,
10277: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
10278: p_module_type IN VARCHAR2 := 'JSP',
10279: p_visit_task_ID IN NUMBER,
10280: x_return_status OUT NOCOPY VARCHAR2,
10273: PROCEDURE Delete_Stage_Task (
10274: p_api_version IN NUMBER,
10275: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
10276: p_commit IN VARCHAR2 := Fnd_Api.g_false,
10277: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
10278: p_module_type IN VARCHAR2 := 'JSP',
10279: p_visit_task_ID IN NUMBER,
10280: x_return_status OUT NOCOPY VARCHAR2,
10281: x_msg_count OUT NOCOPY NUMBER,
10364:
10365: --------------------- initialize -----------------------
10366: SAVEPOINT Delete_Stage_Task;
10367:
10368: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
10369: Fnd_Msg_Pub.initialize;
10370: END IF;
10371:
10372: -- Initialize API return status to success
10369: Fnd_Msg_Pub.initialize;
10370: END IF;
10371:
10372: -- Initialize API return status to success
10373: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
10374:
10375: -- Standard call to check for call compatibility.
10376: IF NOT Fnd_Api.compatible_api_call(
10377: l_api_version,
10372: -- Initialize API return status to success
10373: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
10374:
10375: -- Standard call to check for call compatibility.
10376: IF NOT Fnd_Api.compatible_api_call(
10377: l_api_version,
10378: p_api_version,
10379: l_api_name,
10380: G_PKG_NAME
10378: p_api_version,
10379: l_api_name,
10380: G_PKG_NAME
10381: ) THEN
10382: RAISE Fnd_Api.g_exc_unexpected_error;
10383: END IF;
10384:
10385: ------------------------Start of API Body------------------------------------
10386: IF (l_log_statement >= l_log_current_level) THEN
10398: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
10399: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
10400: Fnd_Msg_Pub.ADD;
10401: END IF;
10402: RAISE Fnd_Api.g_exc_error;
10403: END IF;
10404: CLOSE c_Task;
10405:
10406: l_visit_id := c_task_rec.visit_id;
10419:
10420: IF l_stage_tasks_count>0 THEN
10421: Fnd_Message.SET_NAME('AHL','AHL_VWP_STG_NO_DEL_HAV_TASKS');
10422: Fnd_Msg_Pub.ADD;
10423: RAISE FND_API.G_EXC_ERROR;
10424: END IF;*/
10425:
10426:
10427: OPEN c_workorders(c_task_rec.visit_task_id);
10439:
10440: l_msg_count := FND_MSG_PUB.count_msg;
10441: IF l_msg_count > 0 THEN
10442: x_msg_count := l_msg_count;
10443: x_return_status := FND_API.G_RET_STS_ERROR;
10444: RAISE FND_API.G_EXC_ERROR;
10445: END IF;
10446:
10447: l_workorder_rec.wip_entity_id := null;
10440: l_msg_count := FND_MSG_PUB.count_msg;
10441: IF l_msg_count > 0 THEN
10442: x_msg_count := l_msg_count;
10443: x_return_status := FND_API.G_RET_STS_ERROR;
10444: RAISE FND_API.G_EXC_ERROR;
10445: END IF;
10446:
10447: l_workorder_rec.wip_entity_id := null;
10448: l_workorder_rec.STATUS_CODE:='22'; --Deleted Status Refer DLD to Verify.
10454: END IF;
10455: AHL_PRD_WORKORDER_PVT.update_job
10456: (
10457: p_api_version => 1.0,
10458: p_init_msg_list => fnd_api.g_false,
10459: p_commit => fnd_api.g_false,
10460: p_validation_level => p_validation_level,
10461: p_default => fnd_api.g_false,
10462: p_module_type => NULL,
10455: AHL_PRD_WORKORDER_PVT.update_job
10456: (
10457: p_api_version => 1.0,
10458: p_init_msg_list => fnd_api.g_false,
10459: p_commit => fnd_api.g_false,
10460: p_validation_level => p_validation_level,
10461: p_default => fnd_api.g_false,
10462: p_module_type => NULL,
10463: x_return_status => x_return_status,
10457: p_api_version => 1.0,
10458: p_init_msg_list => fnd_api.g_false,
10459: p_commit => fnd_api.g_false,
10460: p_validation_level => p_validation_level,
10461: p_default => fnd_api.g_false,
10462: p_module_type => NULL,
10463: x_return_status => x_return_status,
10464: x_msg_count => x_msg_count,
10465: x_msg_data => x_msg_data,
10474: 'After Calling AHL_PRD_WORKORDER_PVT.update_job, Return Status = ' || x_return_status);
10475: END IF;
10476:
10477: l_msg_count := FND_MSG_PUB.count_msg;
10478: IF l_msg_count > 0 OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
10479: x_msg_count := l_msg_count;
10480: x_return_status := FND_API.G_RET_STS_ERROR;
10481: RAISE FND_API.G_EXC_ERROR;
10482: END IF;
10476:
10477: l_msg_count := FND_MSG_PUB.count_msg;
10478: IF l_msg_count > 0 OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
10479: x_msg_count := l_msg_count;
10480: x_return_status := FND_API.G_RET_STS_ERROR;
10481: RAISE FND_API.G_EXC_ERROR;
10482: END IF;
10483:
10484: ELSE
10477: l_msg_count := FND_MSG_PUB.count_msg;
10478: IF l_msg_count > 0 OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
10479: x_msg_count := l_msg_count;
10480: x_return_status := FND_API.G_RET_STS_ERROR;
10481: RAISE FND_API.G_EXC_ERROR;
10482: END IF;
10483:
10484: ELSE
10485: -- if status is not draft
10484: ELSE
10485: -- if status is not draft
10486: Fnd_Message.set_name ('AHL', 'AHL_VWP_TSK_CANNOT_DEL');
10487: Fnd_Msg_Pub.ADD;
10488: RAISE FND_API.G_EXC_ERROR;
10489: END IF; -- End of Job Status
10490: CLOSE c_workorders;
10491:
10492: ELSE
10522: 'Updation of the status to DELETED');
10523: END IF;
10524:
10525: ------------------------End of API Body------------------------------------
10526: IF Fnd_Api.to_boolean (p_commit) THEN
10527: COMMIT;
10528: END IF;
10529:
10530: Fnd_Msg_Pub.count_and_get (
10527: COMMIT;
10528: END IF;
10529:
10530: Fnd_Msg_Pub.count_and_get (
10531: p_encoded => Fnd_Api.g_false,
10532: p_count => x_msg_count,
10533: p_data => x_msg_data
10534: );
10535:
10538: L_DEBUG_KEY ||'.end',
10539: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
10540: END IF;
10541: EXCEPTION
10542: WHEN Fnd_Api.g_exc_error THEN
10543: ROLLBACK TO Delete_Stage_Task;
10544: x_return_status := Fnd_Api.g_ret_sts_error;
10545: Fnd_Msg_Pub.count_and_get (
10546: p_encoded => Fnd_Api.g_false,
10540: END IF;
10541: EXCEPTION
10542: WHEN Fnd_Api.g_exc_error THEN
10543: ROLLBACK TO Delete_Stage_Task;
10544: x_return_status := Fnd_Api.g_ret_sts_error;
10545: Fnd_Msg_Pub.count_and_get (
10546: p_encoded => Fnd_Api.g_false,
10547: p_count => x_msg_count,
10548: p_data => x_msg_data
10542: WHEN Fnd_Api.g_exc_error THEN
10543: ROLLBACK TO Delete_Stage_Task;
10544: x_return_status := Fnd_Api.g_ret_sts_error;
10545: Fnd_Msg_Pub.count_and_get (
10546: p_encoded => Fnd_Api.g_false,
10547: p_count => x_msg_count,
10548: p_data => x_msg_data
10549: );
10550: WHEN Fnd_Api.g_exc_unexpected_error THEN
10546: p_encoded => Fnd_Api.g_false,
10547: p_count => x_msg_count,
10548: p_data => x_msg_data
10549: );
10550: WHEN Fnd_Api.g_exc_unexpected_error THEN
10551: ROLLBACK TO Delete_Stage_Task;
10552: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
10553: Fnd_Msg_Pub.count_and_get (
10554: p_encoded => Fnd_Api.g_false,
10548: p_data => x_msg_data
10549: );
10550: WHEN Fnd_Api.g_exc_unexpected_error THEN
10551: ROLLBACK TO Delete_Stage_Task;
10552: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
10553: Fnd_Msg_Pub.count_and_get (
10554: p_encoded => Fnd_Api.g_false,
10555: p_count => x_msg_count,
10556: p_data => x_msg_data
10550: WHEN Fnd_Api.g_exc_unexpected_error THEN
10551: ROLLBACK TO Delete_Stage_Task;
10552: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
10553: Fnd_Msg_Pub.count_and_get (
10554: p_encoded => Fnd_Api.g_false,
10555: p_count => x_msg_count,
10556: p_data => x_msg_data
10557: );
10558: WHEN OTHERS THEN
10556: p_data => x_msg_data
10557: );
10558: WHEN OTHERS THEN
10559: ROLLBACK TO Delete_Stage_Task;
10560: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
10561: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
10562: THEN
10563: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
10564: END IF;
10562: THEN
10563: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
10564: END IF;
10565: Fnd_Msg_Pub.count_and_get (
10566: p_encoded => Fnd_Api.g_false,
10567: p_count => x_msg_count,
10568: p_data => x_msg_data
10569: );
10570: END Delete_Stage_Task;