[Home] [Help]
86:
87: -- To Validate_Visit_Task
88: PROCEDURE Validate_Visit_Task (
89: p_api_version IN NUMBER,
90: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
91: p_commit IN VARCHAR2 := Fnd_Api.g_false,
92: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
93: p_Task_rec IN AHL_VWP_RULES_PVT.task_rec_type,
94: x_return_status OUT NOCOPY VARCHAR2,
87: -- To Validate_Visit_Task
88: PROCEDURE Validate_Visit_Task (
89: p_api_version IN NUMBER,
90: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
91: p_commit IN VARCHAR2 := Fnd_Api.g_false,
92: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
93: p_Task_rec IN AHL_VWP_RULES_PVT.task_rec_type,
94: x_return_status OUT NOCOPY VARCHAR2,
95: x_msg_count OUT NOCOPY NUMBER,
88: PROCEDURE Validate_Visit_Task (
89: p_api_version IN NUMBER,
90: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
91: p_commit IN VARCHAR2 := Fnd_Api.g_false,
92: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
93: p_Task_rec IN AHL_VWP_RULES_PVT.task_rec_type,
94: x_return_status OUT NOCOPY VARCHAR2,
95: x_msg_count OUT NOCOPY NUMBER,
96: x_msg_data OUT NOCOPY VARCHAR2
103:
104: -- To Create Unassociated Task
105: PROCEDURE Create_Unassociated_Task(
106: p_api_version IN NUMBER,
107: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
108: p_commit IN VARCHAR2 := Fnd_Api.g_false,
109: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
110: p_module_type IN VARCHAR2 := 'JSP',
111: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
104: -- To Create Unassociated Task
105: PROCEDURE Create_Unassociated_Task(
106: p_api_version IN NUMBER,
107: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
108: p_commit IN VARCHAR2 := Fnd_Api.g_false,
109: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
110: p_module_type IN VARCHAR2 := 'JSP',
111: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
112: x_return_status OUT NOCOPY VARCHAR2,
105: PROCEDURE Create_Unassociated_Task(
106: p_api_version IN NUMBER,
107: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
108: p_commit IN VARCHAR2 := Fnd_Api.g_false,
109: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
110: p_module_type IN VARCHAR2 := 'JSP',
111: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
112: x_return_status OUT NOCOPY VARCHAR2,
113: x_msg_count OUT NOCOPY NUMBER,
116:
117: -- To Create Summary Task
118: PROCEDURE Create_Summary_Task(
119: p_api_version IN NUMBER,
120: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
121: p_commit IN VARCHAR2 := Fnd_Api.g_false,
122: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
123: p_module_type IN VARCHAR2 :='JSP',
124: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
117: -- To Create Summary Task
118: PROCEDURE Create_Summary_Task(
119: p_api_version IN NUMBER,
120: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
121: p_commit IN VARCHAR2 := Fnd_Api.g_false,
122: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
123: p_module_type IN VARCHAR2 :='JSP',
124: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
125: x_return_status OUT NOCOPY VARCHAR2,
118: PROCEDURE Create_Summary_Task(
119: p_api_version IN NUMBER,
120: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
121: p_commit IN VARCHAR2 := Fnd_Api.g_false,
122: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
123: p_module_type IN VARCHAR2 :='JSP',
124: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
125: x_return_status OUT NOCOPY VARCHAR2,
126: x_msg_count OUT NOCOPY NUMBER,
129:
130: -- To Delete SR Task
131: PROCEDURE Delete_SR_Task (
132: p_api_version IN NUMBER,
133: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
134: p_commit IN VARCHAR2 := Fnd_Api.g_false,
135: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
136: p_module_type IN VARCHAR2:= 'JSP',
137: p_visit_task_ID IN NUMBER,
130: -- To Delete SR Task
131: PROCEDURE Delete_SR_Task (
132: p_api_version IN NUMBER,
133: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
134: p_commit IN VARCHAR2 := Fnd_Api.g_false,
135: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
136: p_module_type IN VARCHAR2:= 'JSP',
137: p_visit_task_ID IN NUMBER,
138: x_return_status OUT NOCOPY VARCHAR2,
131: PROCEDURE Delete_SR_Task (
132: p_api_version IN NUMBER,
133: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
134: p_commit IN VARCHAR2 := Fnd_Api.g_false,
135: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
136: p_module_type IN VARCHAR2:= 'JSP',
137: p_visit_task_ID IN NUMBER,
138: x_return_status OUT NOCOPY VARCHAR2,
139: x_msg_count OUT NOCOPY NUMBER,
142:
143: -- To Update Summary Task
144: PROCEDURE Update_Summary_Task(
145: p_api_version IN NUMBER,
146: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
147: p_commit IN VARCHAR2 := Fnd_Api.g_false,
148: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
149: p_module_type IN VARCHAR2 := 'JSP',
150: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
143: -- To Update Summary Task
144: PROCEDURE Update_Summary_Task(
145: p_api_version IN NUMBER,
146: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
147: p_commit IN VARCHAR2 := Fnd_Api.g_false,
148: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
149: p_module_type IN VARCHAR2 := 'JSP',
150: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
151: x_return_status OUT NOCOPY VARCHAR2,
144: PROCEDURE Update_Summary_Task(
145: p_api_version IN NUMBER,
146: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
147: p_commit IN VARCHAR2 := Fnd_Api.g_false,
148: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
149: p_module_type IN VARCHAR2 := 'JSP',
150: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
151: x_return_status OUT NOCOPY VARCHAR2,
152: x_msg_count OUT NOCOPY NUMBER,
156: -- To Update Unassociated Task
157:
158: PROCEDURE Update_Unassociated_Task(
159: p_api_version IN NUMBER,
160: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
161: p_commit IN VARCHAR2 := Fnd_Api.g_false,
162: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
163: p_module_type IN VARCHAR2 := 'JSP',
164: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
157:
158: PROCEDURE Update_Unassociated_Task(
159: p_api_version IN NUMBER,
160: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
161: p_commit IN VARCHAR2 := Fnd_Api.g_false,
162: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
163: p_module_type IN VARCHAR2 := 'JSP',
164: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
165: x_return_status OUT NOCOPY VARCHAR2,
158: PROCEDURE Update_Unassociated_Task(
159: p_api_version IN NUMBER,
160: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
161: p_commit IN VARCHAR2 := Fnd_Api.g_false,
162: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
163: p_module_type IN VARCHAR2 := 'JSP',
164: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
165: x_return_status OUT NOCOPY VARCHAR2,
166: x_msg_count OUT NOCOPY NUMBER,
169:
170: -- To Delete Unassociated Task
171: PROCEDURE Delete_Unassociated_Task (
172: p_api_version IN NUMBER,
173: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
174: p_commit IN VARCHAR2 := Fnd_Api.g_false,
175: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
176: p_module_type IN VARCHAR2 := 'JSP',
177: p_Visit_Task_Id IN NUMBER,
170: -- To Delete Unassociated Task
171: PROCEDURE Delete_Unassociated_Task (
172: p_api_version IN NUMBER,
173: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
174: p_commit IN VARCHAR2 := Fnd_Api.g_false,
175: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
176: p_module_type IN VARCHAR2 := 'JSP',
177: p_Visit_Task_Id IN NUMBER,
178: x_return_status OUT NOCOPY VARCHAR2,
171: PROCEDURE Delete_Unassociated_Task (
172: p_api_version IN NUMBER,
173: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
174: p_commit IN VARCHAR2 := Fnd_Api.g_false,
175: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
176: p_module_type IN VARCHAR2 := 'JSP',
177: p_Visit_Task_Id IN NUMBER,
178: x_return_status OUT NOCOPY VARCHAR2,
179: x_msg_count OUT NOCOPY NUMBER,
185: );
186:
187: PROCEDURE Update_Tasks_in_Planning(
188: p_api_version IN NUMBER := 1.0,
189: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
190: p_commit IN VARCHAR2:= FND_API.G_FALSE,
191: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
192: p_module_type IN VARCHAR2:= 'JSP',
193: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
186:
187: PROCEDURE Update_Tasks_in_Planning(
188: p_api_version IN NUMBER := 1.0,
189: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
190: p_commit IN VARCHAR2:= FND_API.G_FALSE,
191: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
192: p_module_type IN VARCHAR2:= 'JSP',
193: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
194: x_return_status OUT NOCOPY VARCHAR2,
187: PROCEDURE Update_Tasks_in_Planning(
188: p_api_version IN NUMBER := 1.0,
189: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
190: p_commit IN VARCHAR2:= FND_API.G_FALSE,
191: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
192: p_module_type IN VARCHAR2:= 'JSP',
193: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
194: x_return_status OUT NOCOPY VARCHAR2,
195: x_msg_count OUT NOCOPY NUMBER,
197: );
198:
199: PROCEDURE Update_Tasks_in_Production(
200: p_api_version IN NUMBER := 1.0,
201: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
202: p_commit IN VARCHAR2:= FND_API.G_FALSE,
203: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
204: p_module_type IN VARCHAR2:= 'JSP',
205: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
198:
199: PROCEDURE Update_Tasks_in_Production(
200: p_api_version IN NUMBER := 1.0,
201: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
202: p_commit IN VARCHAR2:= FND_API.G_FALSE,
203: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
204: p_module_type IN VARCHAR2:= 'JSP',
205: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
206: x_return_status OUT NOCOPY VARCHAR2,
199: PROCEDURE Update_Tasks_in_Production(
200: p_api_version IN NUMBER := 1.0,
201: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
202: p_commit IN VARCHAR2:= FND_API.G_FALSE,
203: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
204: p_module_type IN VARCHAR2:= 'JSP',
205: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
206: x_return_status OUT NOCOPY VARCHAR2,
207: x_msg_count OUT NOCOPY NUMBER,
328: fnd_log.string(l_log_procedure,
329: L_DEBUG_KEY ||'.begin',
330: 'At the start of PL SQL procedure.');
331: END IF;
332: IF p_x_task_rec.DURATION = Fnd_Api.G_MISS_NUM THEN
333: p_x_task_rec.DURATION := NULL;
334: ELSE
335: p_x_task_rec.DURATION := p_x_task_rec.DURATION;
336: END IF;
334: ELSE
335: p_x_task_rec.DURATION := p_x_task_rec.DURATION;
336: END IF;
337:
338: IF p_x_task_rec.PROJECT_TASK_ID = Fnd_Api.G_MISS_NUM THEN
339: p_x_task_rec.PROJECT_TASK_ID := NULL;
340: ELSE
341: p_x_task_rec.PROJECT_TASK_ID := p_x_task_rec.PROJECT_TASK_ID;
342: END IF;
340: ELSE
341: p_x_task_rec.PROJECT_TASK_ID := p_x_task_rec.PROJECT_TASK_ID;
342: END IF;
343:
344: IF p_x_task_rec.COST_PARENT_ID = Fnd_Api.G_MISS_NUM THEN
345: p_x_task_rec.COST_PARENT_ID := NULL;
346: ELSE
347: p_x_task_rec.COST_PARENT_ID := p_x_task_rec.COST_PARENT_ID;
348: END IF;
346: ELSE
347: p_x_task_rec.COST_PARENT_ID := p_x_task_rec.COST_PARENT_ID;
348: END IF;
349:
350: IF p_x_task_rec.MR_ROUTE_ID = Fnd_Api.G_MISS_NUM THEN
351: p_x_task_rec.MR_ROUTE_ID := NULL;
352: ELSE
353: p_x_task_rec.MR_ROUTE_ID := p_x_task_rec.MR_ROUTE_ID;
354: END IF;
352: ELSE
353: p_x_task_rec.MR_ROUTE_ID := p_x_task_rec.MR_ROUTE_ID;
354: END IF;
355:
356: IF p_x_task_rec.MR_ID = Fnd_Api.G_MISS_NUM THEN
357: p_x_task_rec.MR_ID := NULL;
358: ELSE
359: p_x_task_rec.MR_ID := p_x_task_rec.MR_ID;
360: END IF;
358: ELSE
359: p_x_task_rec.MR_ID := p_x_task_rec.MR_ID;
360: END IF;
361:
362: IF p_x_task_rec.UNIT_EFFECTIVITY_ID = Fnd_Api.G_MISS_NUM THEN
363: p_x_task_rec.UNIT_EFFECTIVITY_ID := NULL;
364: ELSE
365: p_x_task_rec.UNIT_EFFECTIVITY_ID := p_x_task_rec.UNIT_EFFECTIVITY_ID;
366: END IF;
364: ELSE
365: p_x_task_rec.UNIT_EFFECTIVITY_ID := p_x_task_rec.UNIT_EFFECTIVITY_ID;
366: END IF;
367:
368: IF p_x_task_rec.START_FROM_HOUR = Fnd_Api.G_MISS_NUM THEN
369: p_x_task_rec.START_FROM_HOUR := NULL;
370: ELSE
371: p_x_task_rec.START_FROM_HOUR := p_x_task_rec.START_FROM_HOUR;
372: END IF;
370: ELSE
371: p_x_task_rec.START_FROM_HOUR := p_x_task_rec.START_FROM_HOUR;
372: END IF;
373:
374: IF p_x_task_rec.PRIMARY_VISIT_TASK_ID = Fnd_Api.G_MISS_NUM THEN
375: p_x_task_rec.PRIMARY_VISIT_TASK_ID := NULL;
376: ELSE
377: p_x_task_rec.PRIMARY_VISIT_TASK_ID := p_x_task_rec.PRIMARY_VISIT_TASK_ID;
378: END IF;
376: ELSE
377: p_x_task_rec.PRIMARY_VISIT_TASK_ID := p_x_task_rec.PRIMARY_VISIT_TASK_ID;
378: END IF;
379:
380: IF p_x_task_rec.ORIGINATING_TASK_ID = Fnd_Api.G_MISS_NUM THEN
381: p_x_task_rec.ORIGINATING_TASK_ID := NULL;
382: ELSE
383: p_x_task_rec.ORIGINATING_TASK_ID := p_x_task_rec.ORIGINATING_TASK_ID;
384: END IF;
382: ELSE
383: p_x_task_rec.ORIGINATING_TASK_ID := p_x_task_rec.ORIGINATING_TASK_ID;
384: END IF;
385:
386: IF p_x_task_rec.SERVICE_REQUEST_ID = Fnd_Api.G_MISS_NUM THEN
387: p_x_task_rec.SERVICE_REQUEST_ID := NULL;
388: ELSE
389: p_x_task_rec.SERVICE_REQUEST_ID := p_x_task_rec.SERVICE_REQUEST_ID;
390: END IF;
388: ELSE
389: p_x_task_rec.SERVICE_REQUEST_ID := p_x_task_rec.SERVICE_REQUEST_ID;
390: END IF;
391:
392: IF p_x_task_rec.attribute_category = Fnd_Api.G_MISS_CHAR THEN
393: p_x_task_rec.attribute_category := NULL;
394: ELSE
395: p_x_task_rec.attribute_category := p_x_task_rec.attribute_category;
396: END IF;
411: -- To display all task details for the update task UI screen
412: --------------------------------------------------------------------
413: PROCEDURE Get_Task_Details (
414: p_api_version IN NUMBER,
415: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
416: p_commit IN VARCHAR2 := Fnd_Api.g_false,
417: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
418: p_module_type IN VARCHAR2 :='JSP',
419: p_task_id IN NUMBER,
412: --------------------------------------------------------------------
413: PROCEDURE Get_Task_Details (
414: p_api_version IN NUMBER,
415: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
416: p_commit IN VARCHAR2 := Fnd_Api.g_false,
417: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
418: p_module_type IN VARCHAR2 :='JSP',
419: p_task_id IN NUMBER,
420: x_task_rec OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
413: PROCEDURE Get_Task_Details (
414: p_api_version IN NUMBER,
415: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
416: p_commit IN VARCHAR2 := Fnd_Api.g_false,
417: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
418: p_module_type IN VARCHAR2 :='JSP',
419: p_task_id IN NUMBER,
420: x_task_rec OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
421: x_return_status OUT NOCOPY VARCHAR2,
835:
836: -- Standard start of API savepoint
837: SAVEPOINT Get_Task_Details;
838:
839: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
840: Fnd_Msg_Pub.initialize;
841: END IF;
842:
843: -- Initialize API return status to success
840: Fnd_Msg_Pub.initialize;
841: END IF;
842:
843: -- Initialize API return status to success
844: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
845:
846: -- Standard call to check for call compatibility.
847: IF NOT Fnd_Api.compatible_api_call(
848: l_api_version,
843: -- Initialize API return status to success
844: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
845:
846: -- Standard call to check for call compatibility.
847: IF NOT Fnd_Api.compatible_api_call(
848: l_api_version,
849: p_api_version,
850: l_api_name,
851: G_PKG_NAME
849: p_api_version,
850: l_api_name,
851: G_PKG_NAME
852: ) THEN
853: RAISE Fnd_Api.g_exc_unexpected_error;
854: END IF;
855:
856: ------------------------Start of API Body------------------------------------
857: ------------------------Cursor------------------------------------
955: l_duration := c_task_data_rec.duration;
956: END IF;
957:
958: -- For finding visit task number for originating task id
959: 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
960: OPEN c_number(c_task_data_rec.originating_task_id);
961: FETCH c_number INTO l_origin_num;
962: CLOSE c_number;
963: ELSE
964: l_origin_num := NULL;
965: END IF;
966:
967: -- For finding visit task number for cost parent id
968: 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
969: OPEN c_number(c_task_data_rec.cost_parent_id);
970: FETCH c_number INTO l_parent_num;
971: CLOSE c_number;
972: ELSE
1065: -- Standard call to get message count and if count is 1, get message info
1066: /* Fnd_Msg_Pub.Count_And_Get
1067: ( p_count => x_msg_count,
1068: p_data => x_msg_data,
1069: p_encoded => Fnd_Api.g_false); */
1070:
1071: --Standard check to count messages
1072: l_msg_count := Fnd_Msg_Pub.count_msg;
1073:
1072: l_msg_count := Fnd_Msg_Pub.count_msg;
1073:
1074: IF l_msg_count > 0 THEN
1075: x_msg_count := l_msg_count;
1076: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1077: RAISE Fnd_Api.G_EXC_ERROR;
1078: END IF;
1079:
1080: -- Debug info.
1073:
1074: IF l_msg_count > 0 THEN
1075: x_msg_count := l_msg_count;
1076: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1077: RAISE Fnd_Api.G_EXC_ERROR;
1078: END IF;
1079:
1080: -- Debug info.
1081: IF (l_log_procedure >= l_log_current_level) THEN
1083: L_DEBUG_KEY ||'.end',
1084: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
1085: END IF;
1086: EXCEPTION
1087: WHEN Fnd_Api.G_EXC_ERROR THEN
1088: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1089: ROLLBACK TO Get_Task_Details;
1090: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1091: p_data => x_msg_data,
1084: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
1085: END IF;
1086: EXCEPTION
1087: WHEN Fnd_Api.G_EXC_ERROR THEN
1088: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1089: ROLLBACK TO Get_Task_Details;
1090: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1091: p_data => x_msg_data,
1092: p_encoded => Fnd_Api.g_false);
1088: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1089: ROLLBACK TO Get_Task_Details;
1090: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1091: p_data => x_msg_data,
1092: p_encoded => Fnd_Api.g_false);
1093: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1094: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1095: ROLLBACK TO Get_Task_Details;
1096: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1089: ROLLBACK TO Get_Task_Details;
1090: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1091: p_data => x_msg_data,
1092: p_encoded => Fnd_Api.g_false);
1093: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1094: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1095: ROLLBACK TO Get_Task_Details;
1096: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1097: p_data => x_msg_data,
1090: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1091: p_data => x_msg_data,
1092: p_encoded => Fnd_Api.g_false);
1093: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1094: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1095: ROLLBACK TO Get_Task_Details;
1096: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1097: p_data => x_msg_data,
1098: p_encoded => Fnd_Api.g_false);
1094: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1095: ROLLBACK TO Get_Task_Details;
1096: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1097: p_data => x_msg_data,
1098: p_encoded => Fnd_Api.g_false);
1099: WHEN OTHERS THEN
1100: ROLLBACK TO Get_Task_Details;
1101: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1102: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1097: p_data => x_msg_data,
1098: p_encoded => Fnd_Api.g_false);
1099: WHEN OTHERS THEN
1100: ROLLBACK TO Get_Task_Details;
1101: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1102: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1103: THEN
1104: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1105: END IF;
1103: THEN
1104: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1105: END IF;
1106: Fnd_Msg_Pub.count_and_get (
1107: p_encoded => Fnd_Api.g_false,
1108: p_count => x_msg_count,
1109: p_data => x_msg_data );
1110: END Get_Task_Details;
1111:
1116: -- To create all types of tasks i.e Unassociated/Summary/Unplanned/Planned
1117: --------------------------------------------------------------------
1118: PROCEDURE Create_Task (
1119: p_api_version IN NUMBER,
1120: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1121: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1122: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1123: p_module_type IN VARCHAR2 := 'JSP',
1124: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
1117: --------------------------------------------------------------------
1118: PROCEDURE Create_Task (
1119: p_api_version IN NUMBER,
1120: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1121: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1122: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1123: p_module_type IN VARCHAR2 := 'JSP',
1124: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
1125: x_return_status OUT NOCOPY VARCHAR2,
1118: PROCEDURE Create_Task (
1119: p_api_version IN NUMBER,
1120: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1121: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1122: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1123: p_module_type IN VARCHAR2 := 'JSP',
1124: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
1125: x_return_status OUT NOCOPY VARCHAR2,
1126: x_msg_count OUT NOCOPY NUMBER,
1151: --------------------- initialize -----------------------
1152: SAVEPOINT Create_Task;
1153:
1154: -- Initialize message list if p_init_msg_list is set to TRUE.
1155: IF Fnd_Api.to_boolean(p_init_msg_list)
1156: THEN
1157: Fnd_Msg_Pub.initialize;
1158: END IF;
1159:
1157: Fnd_Msg_Pub.initialize;
1158: END IF;
1159:
1160: -- Initialize API return status to success
1161: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1162:
1163: -- Standard call to check for call compatibility.
1164: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1165: p_api_version,
1160: -- Initialize API return status to success
1161: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1162:
1163: -- Standard call to check for call compatibility.
1164: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1165: p_api_version,
1166: l_api_name,G_PKG_NAME)
1167: THEN
1168: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1164: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1165: p_api_version,
1166: l_api_name,G_PKG_NAME)
1167: THEN
1168: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1169: END IF;
1170:
1171: --------------------Start of API Body-----------------------------------
1172: -------------------Cursor values------------------------------------
1183:
1184: IF c_visit_rec.status_code IN ('CLOSED','CANCELLED') THEN
1185: Fnd_Message.SET_NAME('AHL','AHL_VWP_NOT_USE_VISIT');
1186: Fnd_Msg_Pub.ADD;
1187: RAISE Fnd_Api.G_EXC_ERROR;
1188: ELSE
1189: IF l_task_rec.task_type_code = 'SUMMARY' THEN
1190: IF (l_log_statement >= l_log_current_level) THEN
1191: fnd_log.string(l_log_statement,
1195: Create_Summary_Task
1196: (
1197: p_api_version => l_api_version,
1198: p_init_msg_list => p_init_msg_list,
1199: p_commit => Fnd_Api.g_false,
1200: p_validation_level => p_validation_level,
1201: p_module_type => p_module_type,
1202: p_x_task_rec => l_task_rec,
1203: x_return_status => l_return_status,
1225: END IF;
1226: AHL_VWP_PLAN_TASKS_PVT.Create_Planned_Task (
1227: p_api_version => l_api_version,
1228: p_init_msg_list => p_init_msg_list,
1229: p_commit => Fnd_Api.g_false,
1230: p_validation_level => p_validation_level,
1231: p_module_type => p_module_type,
1232: p_x_task_rec => l_task_rec,
1233: x_return_status => l_return_status,
1251: END IF;
1252: AHL_VWP_UNPLAN_TASKS_PVT.Create_Unplanned_Task (
1253: p_api_version => l_api_version,
1254: p_init_msg_list => p_init_msg_list,
1255: p_commit => Fnd_Api.g_false,
1256: p_validation_level => p_validation_level,
1257: p_module_type => p_module_type,
1258: p_x_task_rec => l_task_rec,
1259: x_return_status => l_return_status,
1277: Create_Unassociated_Task
1278: (
1279: p_api_version => l_api_version,
1280: p_init_msg_list => p_init_msg_list,
1281: p_commit => Fnd_Api.g_false,
1282: p_validation_level => p_validation_level,
1283: p_module_type => p_module_type,
1284: p_x_task_rec => l_task_rec,
1285: x_return_status => l_return_status,
1314: --------------------End of API Body-------------------------------------
1315: --Standard check to count messages
1316: l_msg_count := Fnd_Msg_Pub.count_msg;
1317:
1318: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
1319: x_msg_count := l_msg_count;
1320: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1321: RAISE Fnd_Api.G_EXC_ERROR;
1322: END IF;
1316: l_msg_count := Fnd_Msg_Pub.count_msg;
1317:
1318: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
1319: x_msg_count := l_msg_count;
1320: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1321: RAISE Fnd_Api.G_EXC_ERROR;
1322: END IF;
1323:
1324: --Standard check for commit
1317:
1318: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
1319: x_msg_count := l_msg_count;
1320: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1321: RAISE Fnd_Api.G_EXC_ERROR;
1322: END IF;
1323:
1324: --Standard check for commit
1325: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1321: RAISE Fnd_Api.G_EXC_ERROR;
1322: END IF;
1323:
1324: --Standard check for commit
1325: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1326: COMMIT;
1327: END IF;
1328:
1329: IF (l_log_procedure >= l_log_current_level) THEN
1332: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
1333: END IF;
1334:
1335: EXCEPTION
1336: WHEN Fnd_Api.g_exc_error THEN
1337: ROLLBACK TO Create_Task;
1338: x_return_status := Fnd_Api.g_ret_sts_error;
1339: Fnd_Msg_Pub.count_and_get(
1340: p_encoded => Fnd_Api.g_false,
1334:
1335: EXCEPTION
1336: WHEN Fnd_Api.g_exc_error THEN
1337: ROLLBACK TO Create_Task;
1338: x_return_status := Fnd_Api.g_ret_sts_error;
1339: Fnd_Msg_Pub.count_and_get(
1340: p_encoded => Fnd_Api.g_false,
1341: p_count => x_msg_count,
1342: p_data => x_msg_data
1336: WHEN Fnd_Api.g_exc_error THEN
1337: ROLLBACK TO Create_Task;
1338: x_return_status := Fnd_Api.g_ret_sts_error;
1339: Fnd_Msg_Pub.count_and_get(
1340: p_encoded => Fnd_Api.g_false,
1341: p_count => x_msg_count,
1342: p_data => x_msg_data
1343: );
1344: WHEN Fnd_Api.g_exc_unexpected_error THEN
1340: p_encoded => Fnd_Api.g_false,
1341: p_count => x_msg_count,
1342: p_data => x_msg_data
1343: );
1344: WHEN Fnd_Api.g_exc_unexpected_error THEN
1345: ROLLBACK TO Create_Task;
1346: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1347: Fnd_Msg_Pub.count_and_get (
1348: p_encoded => Fnd_Api.g_false,
1342: p_data => x_msg_data
1343: );
1344: WHEN Fnd_Api.g_exc_unexpected_error THEN
1345: ROLLBACK TO Create_Task;
1346: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1347: Fnd_Msg_Pub.count_and_get (
1348: p_encoded => Fnd_Api.g_false,
1349: p_count => x_msg_count,
1350: p_data => x_msg_data
1344: WHEN Fnd_Api.g_exc_unexpected_error THEN
1345: ROLLBACK TO Create_Task;
1346: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1347: Fnd_Msg_Pub.count_and_get (
1348: p_encoded => Fnd_Api.g_false,
1349: p_count => x_msg_count,
1350: p_data => x_msg_data
1351: );
1352: WHEN OTHERS THEN
1350: p_data => x_msg_data
1351: );
1352: WHEN OTHERS THEN
1353: ROLLBACK TO Create_Task;
1354: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1355: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1356: THEN
1357: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1358: END IF;
1356: THEN
1357: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1358: END IF;
1359: Fnd_Msg_Pub.count_and_get (
1360: p_encoded => Fnd_Api.g_false,
1361: p_count => x_msg_count,
1362: p_data => x_msg_data
1363: );
1364: END Create_Task;
1370: -- To create Unassociated Task for the maintainance visit
1371: --------------------------------------------------------------------
1372: PROCEDURE Create_Unassociated_Task (
1373: p_api_version IN NUMBER,
1374: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1375: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1376: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1377: p_module_type IN VARCHAR2 := 'JSP',
1378: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
1371: --------------------------------------------------------------------
1372: PROCEDURE Create_Unassociated_Task (
1373: p_api_version IN NUMBER,
1374: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1375: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1376: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1377: p_module_type IN VARCHAR2 := 'JSP',
1378: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
1379: x_return_status OUT NOCOPY VARCHAR2,
1372: PROCEDURE Create_Unassociated_Task (
1373: p_api_version IN NUMBER,
1374: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1375: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1376: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1377: p_module_type IN VARCHAR2 := 'JSP',
1378: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
1379: x_return_status OUT NOCOPY VARCHAR2,
1380: x_msg_count OUT NOCOPY NUMBER,
1442:
1443: SAVEPOINT Create_Unassociated_Task;
1444:
1445: -- Initialize message list if p_init_msg_list is set to TRUE.
1446: IF Fnd_Api.to_boolean(p_init_msg_list)
1447: THEN
1448: Fnd_Msg_Pub.initialize;
1449: END IF;
1450:
1448: Fnd_Msg_Pub.initialize;
1449: END IF;
1450:
1451: -- Initialize API return status to success
1452: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1453:
1454: -- Standard call to check for call compatibility.
1455: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1456: p_api_version,
1451: -- Initialize API return status to success
1452: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1453:
1454: -- Standard call to check for call compatibility.
1455: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1456: p_api_version,
1457: l_api_name,G_PKG_NAME)
1458: THEN
1459: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1455: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1456: p_api_version,
1457: l_api_name,G_PKG_NAME)
1458: THEN
1459: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1460: END IF;
1461:
1462: --------------------Value OR ID conversion---------------------------
1463: --Start API Body
1481:
1482: IF c_visit_rec.status_code IN ('CLOSED','CANCELLED') THEN
1483: Fnd_Message.SET_NAME('AHL','AHL_VWP_NOT_USE_VISIT');
1484: Fnd_Msg_Pub.ADD;
1485: RAISE Fnd_Api.G_EXC_ERROR;
1486: /*
1487: Commented to fix bug # 4029318
1488: ELSIF c_visit_rec.status_code = 'RELEASED' OR c_visit_rec.status_code = 'PARTIALLY RELEASED' THEN
1489: Added the below condition for the call from Production for SR creation
1520: X_STAGE_ID => L_task_rec.STAGE_ID,
1521: X_RETURN_STATUS => l_return_status,
1522: x_error_msg_code => l_msg_data );
1523:
1524: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
1525: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_NOT_EXISTS');
1526: Fnd_Msg_Pub.ADD;
1527: RAISE Fnd_Api.G_EXC_ERROR;
1528: END IF;
1523:
1524: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
1525: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_NOT_EXISTS');
1526: Fnd_Msg_Pub.ADD;
1527: RAISE Fnd_Api.G_EXC_ERROR;
1528: END IF;
1529: --
1530: -- For ITEM
1531: -- Convert item name to item id
1529: --
1530: -- For ITEM
1531: -- Convert item name to item id
1532: IF (l_Task_rec.inventory_item_id IS NOT NULL AND
1533: l_Task_rec.inventory_item_id <> Fnd_Api.G_MISS_NUM) AND
1534: (l_Task_rec.item_organization_id IS NOT NULL AND
1535: l_Task_rec.item_organization_id <> Fnd_Api.G_MISS_NUM) THEN
1536:
1537: AHL_VWP_RULES_PVT.Check_Item_Name_Or_Id
1531: -- Convert item name to item id
1532: IF (l_Task_rec.inventory_item_id IS NOT NULL AND
1533: l_Task_rec.inventory_item_id <> Fnd_Api.G_MISS_NUM) AND
1534: (l_Task_rec.item_organization_id IS NOT NULL AND
1535: l_Task_rec.item_organization_id <> Fnd_Api.G_MISS_NUM) THEN
1536:
1537: AHL_VWP_RULES_PVT.Check_Item_Name_Or_Id
1538: (p_item_id => l_Task_rec.inventory_item_id,
1539: p_org_id => l_Task_rec.item_organization_id,
1543: x_item_name => l_item_name,
1544: x_return_status => l_return_status,
1545: x_error_msg_code => l_msg_data);
1546:
1547: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
1548: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_NOT_EXISTS');
1549: Fnd_Msg_Pub.ADD;
1550: RAISE Fnd_Api.G_EXC_ERROR;
1551: END IF;
1546:
1547: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
1548: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_NOT_EXISTS');
1549: Fnd_Msg_Pub.ADD;
1550: RAISE Fnd_Api.G_EXC_ERROR;
1551: END IF;
1552:
1553: IF UPPER(l_Task_rec.item_name) <> UPPER(l_item_name) THEN
1554: IF (l_log_statement >= l_log_current_level) THEN
1558: END IF;
1559:
1560: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_USE_LOV');
1561: Fnd_Msg_Pub.ADD;
1562: RAISE Fnd_Api.G_EXC_ERROR;
1563: END IF;
1564: ELSE
1565: IF (l_log_statement >= l_log_current_level) THEN
1566: fnd_log.string(l_log_statement,
1568: ': Check item else loop');
1569: END IF;
1570: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_USE_LOV');
1571: Fnd_Msg_Pub.ADD;
1572: RAISE Fnd_Api.G_EXC_ERROR;
1573: END IF;
1574:
1575: --Assign the returned value
1576: l_Task_rec.inventory_item_id := l_item_id;
1590: ----------- Start defining and validate all LOVs on Create Visit's Task UI Screen---
1591: --
1592: -- For DEPARTMENT
1593: -- Convert department name to department id
1594: IF (l_task_rec.dept_name IS NOT NULL AND l_task_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
1595:
1596: IF (l_log_statement >= l_log_current_level) THEN
1597: fnd_log.string(l_log_statement,
1598: L_DEBUG_KEY,
1606: x_department_id => l_department_id,
1607: x_return_status => l_return_status,
1608: x_error_msg_code => l_msg_data);
1609:
1610: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
1611: THEN
1612: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
1613: Fnd_Msg_Pub.ADD;
1614: RAISE Fnd_Api.G_EXC_ERROR;
1610: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
1611: THEN
1612: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
1613: Fnd_Msg_Pub.ADD;
1614: RAISE Fnd_Api.G_EXC_ERROR;
1615: END IF;
1616:
1617: -- Changes for Post 11.5.10 by amagrawa
1618: Ahl_vwp_rules_pvt.CHECK_DEPARTMENT_SHIFT
1618: Ahl_vwp_rules_pvt.CHECK_DEPARTMENT_SHIFT
1619: ( P_DEPT_ID => l_department_id,
1620: X_RETURN_STATUS => l_return_status);
1621:
1622: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
1623: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
1624: Fnd_Msg_Pub.ADD;
1625: RAISE Fnd_Api.G_EXC_ERROR;
1626: END IF;
1621:
1622: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
1623: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
1624: Fnd_Msg_Pub.ADD;
1625: RAISE Fnd_Api.G_EXC_ERROR;
1626: END IF;
1627: --Assign the returned value
1628: l_task_rec.department_id := l_department_id;
1629: END IF;
1636:
1637: -- For SERIAL NUMBER
1638: -- Convert serial number to instance/ serial id
1639: IF (l_Task_rec.serial_number IS NOT NULL AND
1640: l_Task_rec.serial_number <> Fnd_Api.G_MISS_CHAR) THEN
1641: IF (l_log_statement >= l_log_current_level) THEN
1642: fnd_log.string(l_log_statement,
1643: L_DEBUG_KEY,
1644: ': AHL_VWP_RULES_PVT.Check_Serial_Name_Or_Id ' );
1651: x_serial_id => l_serial_id,
1652: x_return_status => l_return_status,
1653: x_error_msg_code => l_msg_data);
1654:
1655: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
1656: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
1657: Fnd_Msg_Pub.ADD;
1658: RAISE Fnd_Api.G_EXC_ERROR;
1659: ELSE
1654:
1655: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
1656: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
1657: Fnd_Msg_Pub.ADD;
1658: RAISE Fnd_Api.G_EXC_ERROR;
1659: ELSE
1660: --Assign the returned value
1661: l_Task_rec.instance_id := l_serial_id;
1662:
1669: END IF;
1670: /* sowsubra - start
1671: --BEGIN: jeli added for bug 3777720
1672: IF (AHL_VWP_RULES_PVT.instance_in_config_tree(l_task_rec.visit_id, l_task_rec.instance_id)
1673: = FND_API.G_RET_STS_ERROR) THEN
1674: --END: jeli added for bug 3777720
1675: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
1676: Fnd_Msg_Pub.ADD;
1677: RAISE Fnd_Api.G_EXC_ERROR;
1673: = FND_API.G_RET_STS_ERROR) THEN
1674: --END: jeli added for bug 3777720
1675: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
1676: Fnd_Msg_Pub.ADD;
1677: RAISE Fnd_Api.G_EXC_ERROR;
1678: END IF;
1679: sowsubra - end */
1680: END IF;
1681: END IF;
1704:
1705: IF (l_Task_rec.QUANTITY is null) THEN
1706: Fnd_Message.SET_NAME('AHL','AHL_TASK_QTY_NULL');
1707: Fnd_Msg_Pub.ADD;
1708: RAISE Fnd_Api.G_EXC_ERROR;
1709: END IF;
1710:
1711: IF (l_Task_rec.QUANTITY <= 0) THEN
1712: Fnd_Message.SET_NAME('AHL','AHL_POSITIVE_TSK_QTY');
1710:
1711: IF (l_Task_rec.QUANTITY <= 0) THEN
1712: Fnd_Message.SET_NAME('AHL','AHL_POSITIVE_TSK_QTY');
1713: Fnd_Msg_Pub.ADD;
1714: RAISE Fnd_Api.G_EXC_ERROR;
1715: END IF;
1716:
1717: IF (l_Task_rec.QUANTITY > l_instance_qty ) THEN
1718: Fnd_Message.SET_NAME('AHL','AHL_INCORRECT_TSK_QTY');
1716:
1717: IF (l_Task_rec.QUANTITY > l_instance_qty ) THEN
1718: Fnd_Message.SET_NAME('AHL','AHL_INCORRECT_TSK_QTY');
1719: Fnd_Msg_Pub.ADD;
1720: RAISE Fnd_Api.G_EXC_ERROR;
1721: END IF;
1722: -- End changes by rnahata for Issue 105
1723:
1724: -- For COST PARENT TASK
1723:
1724: -- For COST PARENT TASK
1725: -- Convert cost parent number to id
1726: IF (l_Task_rec.cost_parent_number IS NOT NULL AND
1727: l_Task_rec.cost_parent_number <> Fnd_Api.G_MISS_NUM ) THEN
1728: IF (l_log_statement >= l_log_current_level) THEN
1729: fnd_log.string(l_log_statement,
1730: L_DEBUG_KEY,
1731: 'Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID ' );
1737: x_visit_task_id => l_cost_parent_id,
1738: x_return_status => l_return_status,
1739: x_error_msg_code => l_msg_data);
1740:
1741: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
1742: THEN
1743: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
1744: Fnd_Msg_Pub.ADD;
1745: RAISE Fnd_Api.g_exc_error;
1741: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
1742: THEN
1743: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
1744: Fnd_Msg_Pub.ADD;
1745: RAISE Fnd_Api.g_exc_error;
1746: END IF;
1747:
1748: --Assign the returned value
1749: l_Task_rec.cost_parent_id := l_cost_parent_id;
1756: END IF;
1757:
1758: -- To Check for cost parent task id not forming loop
1759: IF (l_Task_rec.cost_parent_id IS NOT NULL AND
1760: l_Task_rec.cost_parent_id <> Fnd_Api.G_MISS_NUM ) THEN
1761:
1762: IF (l_log_statement >= l_log_current_level) THEN
1763: fnd_log.string(l_log_statement,
1764: L_DEBUG_KEY,
1779:
1780: -- For ORIGINATING TASK
1781: -- Convert originating task number to id
1782: IF (l_Task_rec.orginating_task_number IS NOT NULL AND
1783: l_Task_rec.orginating_task_number <> Fnd_Api.G_MISS_NUM ) THEN
1784: IF (l_log_statement >= l_log_current_level) THEN
1785: fnd_log.string(l_log_statement,
1786: L_DEBUG_KEY,
1787: 'Calling AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID ' );
1793: x_visit_task_id => l_originating_task_id,
1794: x_return_status => l_return_status,
1795: x_error_msg_code => l_msg_data);
1796:
1797: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
1798: THEN
1799: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORIGINATING_NOT_EXISTS');
1800: Fnd_Msg_Pub.ADD;
1801: RAISE Fnd_Api.g_exc_error;
1797: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
1798: THEN
1799: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORIGINATING_NOT_EXISTS');
1800: Fnd_Msg_Pub.ADD;
1801: RAISE Fnd_Api.g_exc_error;
1802: END IF;
1803: --Assign the returned value
1804: l_Task_rec.originating_task_id := l_originating_task_id;
1805: END IF;
1811: END IF;
1812:
1813: -- To Check for originating task id not forming loop
1814: IF (l_Task_rec.originating_task_id IS NOT NULL AND
1815: l_Task_rec.originating_task_id <> Fnd_Api.G_MISS_NUM ) THEN
1816:
1817: AHL_VWP_RULES_PVT.Check_Origin_Task_Loop
1818: (p_visit_id => l_Task_rec.visit_id ,
1819: p_visit_task_id => l_Task_rec.visit_task_id ,
1834: END IF;
1835: Validate_Visit_Task (
1836: p_api_version => l_api_version,
1837: p_init_msg_list => p_init_msg_list,
1838: p_commit => Fnd_Api.g_false,
1839: p_validation_level => p_validation_level,
1840: p_task_rec => l_task_rec,
1841: x_return_status => l_return_status,
1842: x_msg_count => x_msg_count,
1842: x_msg_count => x_msg_count,
1843: x_msg_data => x_msg_data
1844: );
1845:
1846: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1847: RAISE Fnd_Api.g_exc_error;
1848: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1849: RAISE Fnd_Api.g_exc_unexpected_error;
1850: END IF;
1843: x_msg_data => x_msg_data
1844: );
1845:
1846: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1847: RAISE Fnd_Api.g_exc_error;
1848: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1849: RAISE Fnd_Api.g_exc_unexpected_error;
1850: END IF;
1851: END IF;
1844: );
1845:
1846: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1847: RAISE Fnd_Api.g_exc_error;
1848: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1849: RAISE Fnd_Api.g_exc_unexpected_error;
1850: END IF;
1851: END IF;
1852: /* ELSE Commented to fix bug # 4029318 Senthil
1845:
1846: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
1847: RAISE Fnd_Api.g_exc_error;
1848: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1849: RAISE Fnd_Api.g_exc_unexpected_error;
1850: END IF;
1851: END IF;
1852: /* ELSE Commented to fix bug # 4029318 Senthil
1853: -- TASK NAME ==== NAME
1850: END IF;
1851: END IF;
1852: /* ELSE Commented to fix bug # 4029318 Senthil
1853: -- TASK NAME ==== NAME
1854: IF (l_task_rec.visit_task_name IS NULL OR l_task_rec.visit_task_name = Fnd_Api.G_MISS_CHAR) THEN
1855: Fnd_Message.set_name ('AHL', 'AHL_VWP_NAME_MISSING');
1856: Fnd_Msg_Pub.ADD;
1857: RAISE Fnd_Api.g_exc_error;
1858: END IF;
1853: -- TASK NAME ==== NAME
1854: IF (l_task_rec.visit_task_name IS NULL OR l_task_rec.visit_task_name = Fnd_Api.G_MISS_CHAR) THEN
1855: Fnd_Message.set_name ('AHL', 'AHL_VWP_NAME_MISSING');
1856: Fnd_Msg_Pub.ADD;
1857: RAISE Fnd_Api.g_exc_error;
1858: END IF;
1859: END IF;
1860: */
1861: l_Visit_Task_ID := AHL_VWP_RULES_PVT.Get_Visit_Task_Id();
1955: 'Before Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times' );
1956: END IF;
1957:
1958: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
1959: p_init_msg_list => Fnd_Api.G_FALSE,
1960: p_commit => Fnd_Api.G_FALSE,
1961: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1962: x_return_status => l_return_status,
1963: x_msg_count => l_msg_count,
1956: END IF;
1957:
1958: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
1959: p_init_msg_list => Fnd_Api.G_FALSE,
1960: p_commit => Fnd_Api.G_FALSE,
1961: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1962: x_return_status => l_return_status,
1963: x_msg_count => l_msg_count,
1964: x_msg_data => l_msg_data,
1957:
1958: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
1959: p_init_msg_list => Fnd_Api.G_FALSE,
1960: p_commit => Fnd_Api.G_FALSE,
1961: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1962: x_return_status => l_return_status,
1963: x_msg_count => l_msg_count,
1964: x_msg_data => l_msg_data,
1965: p_task_id => l_task_rec.visit_task_id);
1972:
1973: --Standard check to count messages
1974: l_msg_count := Fnd_Msg_Pub.count_msg;
1975:
1976: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1977: x_msg_count := l_msg_count;
1978: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1979: RAISE Fnd_Api.G_EXC_ERROR;
1980: END IF;
1974: l_msg_count := Fnd_Msg_Pub.count_msg;
1975:
1976: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1977: x_msg_count := l_msg_count;
1978: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1979: RAISE Fnd_Api.G_EXC_ERROR;
1980: END IF;
1981:
1982: -- set OUT value
1975:
1976: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1977: x_msg_count := l_msg_count;
1978: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1979: RAISE Fnd_Api.G_EXC_ERROR;
1980: END IF;
1981:
1982: -- set OUT value
1983: p_x_task_rec.Visit_Task_ID := l_task_rec.Visit_Task_ID;
1989: p_visit_id =>c_visit_rec.visit_id,
1990: p_flag =>'Y',
1991: x_return_status =>x_return_status);
1992:
1993: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1994: RAISE FND_API.G_EXC_ERROR;
1995: END IF;
1996: END IF;
1997:
1990: p_flag =>'Y',
1991: x_return_status =>x_return_status);
1992:
1993: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1994: RAISE FND_API.G_EXC_ERROR;
1995: END IF;
1996: END IF;
1997:
1998: IF (l_log_statement >= l_log_current_level) THEN
2013:
2014: AHL_VWP_PROJ_PROD_PVT.Add_Task_to_Project(
2015: p_api_version => l_api_version,
2016: p_init_msg_list => p_init_msg_list,
2017: p_commit => Fnd_Api.g_false,
2018: p_validation_level => p_validation_level,
2019: p_module_type => p_module_type,
2020: p_visit_task_id => l_task_rec.Visit_Task_ID,
2021: x_return_status => l_return_status,
2032: ---------------------------End of API Body---------------------------------------
2033: --Standard check to count messages
2034: l_msg_count := Fnd_Msg_Pub.count_msg;
2035:
2036: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2037: x_msg_count := l_msg_count;
2038: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2039: RAISE Fnd_Api.G_EXC_ERROR;
2040: END IF;
2034: l_msg_count := Fnd_Msg_Pub.count_msg;
2035:
2036: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2037: x_msg_count := l_msg_count;
2038: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2039: RAISE Fnd_Api.G_EXC_ERROR;
2040: END IF;
2041:
2042: --Standard check for commit
2035:
2036: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2037: x_msg_count := l_msg_count;
2038: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2039: RAISE Fnd_Api.G_EXC_ERROR;
2040: END IF;
2041:
2042: --Standard check for commit
2043: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2039: RAISE Fnd_Api.G_EXC_ERROR;
2040: END IF;
2041:
2042: --Standard check for commit
2043: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2044: COMMIT;
2045: END IF;
2046:
2047: IF (l_log_procedure >= l_log_current_level) THEN
2050: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
2051: END IF;
2052:
2053: EXCEPTION
2054: WHEN Fnd_Api.g_exc_error THEN
2055: ROLLBACK TO Create_Unassociated_Task;
2056: x_return_status := Fnd_Api.g_ret_sts_error;
2057: Fnd_Msg_Pub.count_and_get(
2058: p_encoded => Fnd_Api.g_false,
2052:
2053: EXCEPTION
2054: WHEN Fnd_Api.g_exc_error THEN
2055: ROLLBACK TO Create_Unassociated_Task;
2056: x_return_status := Fnd_Api.g_ret_sts_error;
2057: Fnd_Msg_Pub.count_and_get(
2058: p_encoded => Fnd_Api.g_false,
2059: p_count => x_msg_count,
2060: p_data => x_msg_data
2054: WHEN Fnd_Api.g_exc_error THEN
2055: ROLLBACK TO Create_Unassociated_Task;
2056: x_return_status := Fnd_Api.g_ret_sts_error;
2057: Fnd_Msg_Pub.count_and_get(
2058: p_encoded => Fnd_Api.g_false,
2059: p_count => x_msg_count,
2060: p_data => x_msg_data
2061: );
2062:
2059: p_count => x_msg_count,
2060: p_data => x_msg_data
2061: );
2062:
2063: WHEN Fnd_Api.g_exc_unexpected_error THEN
2064: ROLLBACK TO Create_Unassociated_Task;
2065: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2066: Fnd_Msg_Pub.count_and_get (
2067: p_encoded => Fnd_Api.g_false,
2061: );
2062:
2063: WHEN Fnd_Api.g_exc_unexpected_error THEN
2064: ROLLBACK TO Create_Unassociated_Task;
2065: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2066: Fnd_Msg_Pub.count_and_get (
2067: p_encoded => Fnd_Api.g_false,
2068: p_count => x_msg_count,
2069: p_data => x_msg_data
2063: WHEN Fnd_Api.g_exc_unexpected_error THEN
2064: ROLLBACK TO Create_Unassociated_Task;
2065: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2066: Fnd_Msg_Pub.count_and_get (
2067: p_encoded => Fnd_Api.g_false,
2068: p_count => x_msg_count,
2069: p_data => x_msg_data
2070: );
2071:
2070: );
2071:
2072: WHEN OTHERS THEN
2073: ROLLBACK TO Create_Unassociated_Task;
2074: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2075: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
2076: THEN
2077: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2078: END IF;
2076: THEN
2077: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2078: END IF;
2079: Fnd_Msg_Pub.count_and_get (
2080: p_encoded => Fnd_Api.g_false,
2081: p_count => x_msg_count,
2082: p_data => x_msg_data
2083: );
2084:
2091: -- To create Summary Task for the maintainance visit
2092: --------------------------------------------------------------------
2093: PROCEDURE Create_Summary_Task (
2094: p_api_version IN NUMBER,
2095: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2096: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2097: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2098: p_module_type IN VARCHAR2 := 'JSP',
2099: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
2092: --------------------------------------------------------------------
2093: PROCEDURE Create_Summary_Task (
2094: p_api_version IN NUMBER,
2095: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2096: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2097: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2098: p_module_type IN VARCHAR2 := 'JSP',
2099: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
2100: x_return_status OUT NOCOPY VARCHAR2,
2093: PROCEDURE Create_Summary_Task (
2094: p_api_version IN NUMBER,
2095: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2096: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2097: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2098: p_module_type IN VARCHAR2 := 'JSP',
2099: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
2100: x_return_status OUT NOCOPY VARCHAR2,
2101: x_msg_count OUT NOCOPY NUMBER,
2150:
2151: SAVEPOINT Create_Summary_Task;
2152:
2153: -- Initialize message list if p_init_msg_list is set to TRUE.
2154: IF Fnd_Api.to_boolean(p_init_msg_list)
2155: THEN
2156: Fnd_Msg_Pub.initialize;
2157: END IF;
2158:
2156: Fnd_Msg_Pub.initialize;
2157: END IF;
2158:
2159: -- Initialize API return status to success
2160: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2161:
2162: -- Standard call to check for call compatibility.
2163: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2164: p_api_version,
2159: -- Initialize API return status to success
2160: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2161:
2162: -- Standard call to check for call compatibility.
2163: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2164: p_api_version,
2165: l_api_name,G_PKG_NAME)
2166: THEN
2167: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2163: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2164: p_api_version,
2165: l_api_name,G_PKG_NAME)
2166: THEN
2167: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2168: END IF;
2169:
2170: --------------------Value OR ID conversion---------------------------
2171: --Start API Body
2191:
2192: IF c_visit_rec.status_code IN ('CLOSED','CANCELLED') THEN
2193: Fnd_Message.SET_NAME('AHL','AHL_VWP_NOT_USE_VISIT');
2194: Fnd_Msg_Pub.ADD;
2195: RAISE Fnd_Api.G_EXC_ERROR;
2196: ELSE
2197: ----------- Start defining and validate all LOVs on Create Visit's Task UI Screen---
2198: --
2199: -- For DEPARTMENT
2197: ----------- Start defining and validate all LOVs on Create Visit's Task UI Screen---
2198: --
2199: -- For DEPARTMENT
2200: -- Convert department name to department id
2201: IF (l_task_rec.dept_name IS NOT NULL AND l_task_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
2202: IF (l_log_statement >= l_log_current_level) THEN
2203: fnd_log.string(l_log_statement,
2204: L_DEBUG_KEY,
2205: 'Calling AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id ');
2211: x_department_id => l_department_id,
2212: x_return_status => l_return_status,
2213: x_error_msg_code => l_msg_data);
2214:
2215: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2216: THEN
2217: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
2218: Fnd_Msg_Pub.ADD;
2219: RAISE Fnd_Api.G_EXC_ERROR;
2215: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2216: THEN
2217: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
2218: Fnd_Msg_Pub.ADD;
2219: RAISE Fnd_Api.G_EXC_ERROR;
2220: END IF;
2221:
2222: -- Changes for Post 11.5.10 by amagrawa
2223: Ahl_vwp_rules_pvt.CHECK_DEPARTMENT_SHIFT
2223: Ahl_vwp_rules_pvt.CHECK_DEPARTMENT_SHIFT
2224: ( P_DEPT_ID => l_department_id,
2225: X_RETURN_STATUS => l_return_status);
2226:
2227: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
2228: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
2229: Fnd_Msg_Pub.ADD;
2230: RAISE Fnd_Api.G_EXC_ERROR;
2231: END IF;
2226:
2227: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
2228: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
2229: Fnd_Msg_Pub.ADD;
2230: RAISE Fnd_Api.G_EXC_ERROR;
2231: END IF;
2232:
2233: --Assign the returned value
2234: l_task_rec.department_id := l_department_id;
2247: -- For ITEM
2248: -- Convert item name to item id
2249:
2250: IF (l_Task_rec.inventory_item_id IS NOT NULL AND
2251: l_Task_rec.inventory_item_id <> Fnd_Api.G_MISS_NUM) AND
2252: (l_Task_rec.item_organization_id IS NOT NULL AND
2253: l_Task_rec.item_organization_id <> Fnd_Api.G_MISS_NUM) THEN
2254:
2255: IF (l_log_statement >= l_log_current_level) THEN
2249:
2250: IF (l_Task_rec.inventory_item_id IS NOT NULL AND
2251: l_Task_rec.inventory_item_id <> Fnd_Api.G_MISS_NUM) AND
2252: (l_Task_rec.item_organization_id IS NOT NULL AND
2253: l_Task_rec.item_organization_id <> Fnd_Api.G_MISS_NUM) THEN
2254:
2255: IF (l_log_statement >= l_log_current_level) THEN
2256: fnd_log.string(l_log_statement,
2257: L_DEBUG_KEY,
2266: x_item_name => l_item_name,
2267: x_return_status => l_return_status,
2268: x_error_msg_code => l_msg_data);
2269:
2270: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2271: THEN
2272: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_NOT_EXISTS');
2273: Fnd_Msg_Pub.ADD;
2274: RAISE Fnd_Api.G_EXC_ERROR;
2270: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2271: THEN
2272: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_NOT_EXISTS');
2273: Fnd_Msg_Pub.ADD;
2274: RAISE Fnd_Api.G_EXC_ERROR;
2275: END IF;
2276:
2277: IF UPPER(l_Task_rec.item_name) <> UPPER(l_item_name) THEN
2278: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_USE_LOV');
2276:
2277: IF UPPER(l_Task_rec.item_name) <> UPPER(l_item_name) THEN
2278: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_USE_LOV');
2279: Fnd_Msg_Pub.ADD;
2280: RAISE Fnd_Api.G_EXC_ERROR;
2281: END IF;
2282:
2283: --Assign the returned value
2284: l_Task_rec.inventory_item_id := l_item_id;
2288: Post 11.5.10 Changes done by Senthil.
2289: ELSE
2290: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_USE_LOV');
2291: Fnd_Msg_Pub.ADD;
2292: RAISE Fnd_Api.G_EXC_ERROR;
2293: */
2294:
2295: ELSE
2296: -- bug fix #4181411
2295: ELSE
2296: -- bug fix #4181411
2297: -- yazhou 17-Feb-2005
2298: IF (c_visit_rec.inventory_item_id IS NOT NULL AND
2299: c_visit_rec.inventory_item_id <> Fnd_Api.G_MISS_NUM) AND
2300: (c_visit_rec.item_organization_id IS NOT NULL AND
2301: c_visit_rec.item_organization_id <> Fnd_Api.G_MISS_NUM) THEN
2302:
2303: l_Task_rec.inventory_item_id := c_visit_rec.inventory_item_id;
2297: -- yazhou 17-Feb-2005
2298: IF (c_visit_rec.inventory_item_id IS NOT NULL AND
2299: c_visit_rec.inventory_item_id <> Fnd_Api.G_MISS_NUM) AND
2300: (c_visit_rec.item_organization_id IS NOT NULL AND
2301: c_visit_rec.item_organization_id <> Fnd_Api.G_MISS_NUM) THEN
2302:
2303: l_Task_rec.inventory_item_id := c_visit_rec.inventory_item_id;
2304: l_Task_rec.item_organization_id := c_visit_rec.item_organization_id;
2305: ELSE
2309: IF get_task_inst_dtls%NOTFOUND THEN
2310: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUM_TASK_ITEM');
2311: Fnd_Msg_Pub.ADD;
2312: CLOSE get_task_inst_dtls;
2313: RAISE Fnd_Api.G_EXC_ERROR;
2314: END IF;
2315:
2316: l_Task_rec.inventory_item_id := get_task_inst_rec.inventory_item_id;
2317: l_Task_rec.item_organization_id := get_task_inst_rec.item_organization_id;
2333:
2334: -- For SERIAL NUMBER
2335: -- Convert serial number to instance/ serial id
2336: IF (l_Task_rec.serial_number IS NOT NULL AND
2337: l_Task_rec.serial_number <> Fnd_Api.G_MISS_CHAR) THEN
2338:
2339: AHL_VWP_RULES_PVT.Check_Serial_Name_Or_Id
2340: (p_item_id => l_Task_rec.inventory_item_id,
2341: p_org_id => l_Task_rec.item_organization_id,
2344: x_serial_id => l_serial_id,
2345: x_return_status => l_return_status,
2346: x_error_msg_code => l_msg_data);
2347:
2348: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
2349: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
2350: Fnd_Msg_Pub.ADD;
2351: RAISE Fnd_Api.G_EXC_ERROR;
2352: ELSE
2347:
2348: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
2349: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
2350: Fnd_Msg_Pub.ADD;
2351: RAISE Fnd_Api.G_EXC_ERROR;
2352: ELSE
2353: --Assign the returned value
2354: l_Task_rec.instance_id := l_serial_id;
2355:
2361: ', Org ID= ' || l_Task_rec.item_organization_id);
2362: END IF;
2363: /* sowsubra - start
2364: --BEGIN: jeli added for bug 3777720
2365: 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
2366: --END: jeli added for bug 3777720
2367: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
2368: Fnd_Msg_Pub.ADD;
2369: RAISE Fnd_Api.G_EXC_ERROR;
2365: 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
2366: --END: jeli added for bug 3777720
2367: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
2368: Fnd_Msg_Pub.ADD;
2369: RAISE Fnd_Api.G_EXC_ERROR;
2370: END IF;
2371: sowsubra - end */
2372: END IF;
2373: END IF;
2382: --
2383: -- For COST PARENT TASK
2384: -- Convert cost parent number to id
2385: IF (l_Task_rec.cost_parent_number IS NOT NULL AND
2386: l_Task_rec.cost_parent_number <> Fnd_Api.G_MISS_NUM ) THEN
2387:
2388: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
2389: (p_visit_task_id => l_Task_rec.cost_parent_id,
2390: p_visit_task_number => l_Task_rec.cost_parent_number,
2392: x_visit_task_id => l_cost_parent_id,
2393: x_return_status => l_return_status,
2394: x_error_msg_code => l_msg_data);
2395:
2396: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2397: THEN
2398: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
2399: Fnd_Msg_Pub.ADD;
2400: RAISE Fnd_Api.g_exc_error;
2396: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2397: THEN
2398: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
2399: Fnd_Msg_Pub.ADD;
2400: RAISE Fnd_Api.g_exc_error;
2401: END IF;
2402:
2403: --Assign the returned value
2404: l_Task_rec.cost_parent_id := l_cost_parent_id;
2411: END IF;
2412:
2413: -- To Check for cost parent task id not forming loop
2414: IF (l_Task_rec.cost_parent_id IS NOT NULL AND
2415: l_Task_rec.cost_parent_id <> Fnd_Api.G_MISS_NUM ) THEN
2416:
2417: AHL_VWP_RULES_PVT.Check_Cost_Parent_Loop
2418: (p_visit_id => l_Task_rec.visit_id,
2419: p_visit_task_id => l_Task_rec.visit_task_id ,
2431: --
2432: -- For ORIGINATING TASK
2433: -- Convert originating task number to id
2434: IF (l_Task_rec.orginating_task_number IS NOT NULL AND
2435: l_Task_rec.orginating_task_number <> Fnd_Api.G_MISS_NUM ) THEN
2436:
2437: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
2438: (p_visit_task_id => l_Task_rec.originating_task_id,
2439: p_visit_task_number => l_Task_rec.orginating_task_number,
2441: x_visit_task_id => l_originating_task_id,
2442: x_return_status => l_return_status,
2443: x_error_msg_code => l_msg_data);
2444:
2445: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2446: THEN
2447: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORIGINATING_NOT_EXISTS');
2448: Fnd_Msg_Pub.ADD;
2449: RAISE Fnd_Api.g_exc_error;
2445: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2446: THEN
2447: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORIGINATING_NOT_EXISTS');
2448: Fnd_Msg_Pub.ADD;
2449: RAISE Fnd_Api.g_exc_error;
2450: END IF;
2451:
2452: --Assign the returned value
2453: l_Task_rec.originating_task_id := l_originating_task_id;
2460: END IF;
2461:
2462: -- To Check for originating task id not forming loop
2463: IF (l_Task_rec.originating_task_id IS NOT NULL AND
2464: l_Task_rec.originating_task_id <> Fnd_Api.G_MISS_NUM ) THEN
2465:
2466: AHL_VWP_RULES_PVT.Check_Origin_Task_Loop
2467: (p_visit_id => l_Task_rec.visit_id ,
2468: p_visit_task_id => l_Task_rec.visit_task_id ,
2482:
2483: Validate_Visit_Task (
2484: p_api_version => l_api_version,
2485: p_init_msg_list => p_init_msg_list,
2486: p_commit => Fnd_Api.g_false,
2487: p_validation_level => p_validation_level,
2488: p_task_rec => l_task_rec,
2489: x_return_status => l_return_status,
2490: x_msg_count => x_msg_count,
2490: x_msg_count => x_msg_count,
2491: x_msg_data => x_msg_data
2492: );
2493:
2494: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2495: RAISE Fnd_Api.g_exc_error;
2496: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2497: RAISE Fnd_Api.g_exc_unexpected_error;
2498: END IF;
2491: x_msg_data => x_msg_data
2492: );
2493:
2494: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2495: RAISE Fnd_Api.g_exc_error;
2496: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2497: RAISE Fnd_Api.g_exc_unexpected_error;
2498: END IF;
2499:
2492: );
2493:
2494: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2495: RAISE Fnd_Api.g_exc_error;
2496: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2497: RAISE Fnd_Api.g_exc_unexpected_error;
2498: END IF;
2499:
2500: -- Check for the ID.
2493:
2494: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
2495: RAISE Fnd_Api.g_exc_error;
2496: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
2497: RAISE Fnd_Api.g_exc_unexpected_error;
2498: END IF;
2499:
2500: -- Check for the ID.
2501: IF l_task_rec.Visit_Task_ID = Fnd_Api.g_miss_num OR l_task_rec.Visit_Task_ID IS NULL THEN
2497: RAISE Fnd_Api.g_exc_unexpected_error;
2498: END IF;
2499:
2500: -- Check for the ID.
2501: IF l_task_rec.Visit_Task_ID = Fnd_Api.g_miss_num OR l_task_rec.Visit_Task_ID IS NULL THEN
2502: -- Check for the ID.
2503: l_Visit_Task_ID := AHL_VWP_RULES_PVT.Get_Visit_Task_Id();
2504: l_task_rec.visit_task_ID := l_Visit_Task_ID;
2505:
2604: 'Before Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times' );
2605: END IF;
2606:
2607: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
2608: p_init_msg_list => Fnd_Api.G_FALSE,
2609: p_commit => Fnd_Api.G_FALSE,
2610: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2611: x_return_status => l_return_status,
2612: x_msg_count => l_msg_count,
2605: END IF;
2606:
2607: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
2608: p_init_msg_list => Fnd_Api.G_FALSE,
2609: p_commit => Fnd_Api.G_FALSE,
2610: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2611: x_return_status => l_return_status,
2612: x_msg_count => l_msg_count,
2613: x_msg_data => l_msg_data,
2606:
2607: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
2608: p_init_msg_list => Fnd_Api.G_FALSE,
2609: p_commit => Fnd_Api.G_FALSE,
2610: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
2611: x_return_status => l_return_status,
2612: x_msg_count => l_msg_count,
2613: x_msg_data => l_msg_data,
2614: p_task_id => l_task_rec.visit_task_id);
2621:
2622: --Standard check to count messages
2623: l_msg_count := Fnd_Msg_Pub.count_msg;
2624:
2625: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2626: x_msg_count := l_msg_count;
2627: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2628: RAISE Fnd_Api.G_EXC_ERROR;
2629: END IF;
2623: l_msg_count := Fnd_Msg_Pub.count_msg;
2624:
2625: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2626: x_msg_count := l_msg_count;
2627: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2628: RAISE Fnd_Api.G_EXC_ERROR;
2629: END IF;
2630:
2631: -- set OUT value
2624:
2625: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2626: x_msg_count := l_msg_count;
2627: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2628: RAISE Fnd_Api.G_EXC_ERROR;
2629: END IF;
2630:
2631: -- set OUT value
2632: p_x_task_rec.Visit_Task_ID := l_task_rec.Visit_Task_ID;
2636: AHL_VWP_RULES_PVT.update_visit_task_flag(
2637: p_visit_id =>c_visit_rec.visit_id,
2638: p_flag =>'Y',
2639: x_return_status =>x_return_status);
2640: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2641: RAISE FND_API.G_EXC_ERROR;
2642: END IF;
2643: END IF;
2644:
2637: p_visit_id =>c_visit_rec.visit_id,
2638: p_flag =>'Y',
2639: x_return_status =>x_return_status);
2640: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2641: RAISE FND_API.G_EXC_ERROR;
2642: END IF;
2643: END IF;
2644:
2645: IF (l_log_statement >= l_log_current_level) THEN
2656: l_msg_count := Fnd_Msg_Pub.count_msg;
2657:
2658: IF l_msg_count > 0 THEN
2659: x_msg_count := l_msg_count;
2660: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2661: RAISE Fnd_Api.G_EXC_ERROR;
2662: END IF;
2663:
2664: --Standard check for commit
2657:
2658: IF l_msg_count > 0 THEN
2659: x_msg_count := l_msg_count;
2660: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2661: RAISE Fnd_Api.G_EXC_ERROR;
2662: END IF;
2663:
2664: --Standard check for commit
2665: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2661: RAISE Fnd_Api.G_EXC_ERROR;
2662: END IF;
2663:
2664: --Standard check for commit
2665: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2666: COMMIT;
2667: END IF;
2668:
2669: IF (l_log_procedure >= l_log_current_level) THEN
2671: L_DEBUG_KEY ||'.end',
2672: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
2673: END IF;
2674: EXCEPTION
2675: WHEN Fnd_Api.g_exc_error THEN
2676: ROLLBACK TO Create_Summary_Task;
2677: x_return_status := Fnd_Api.g_ret_sts_error;
2678: Fnd_Msg_Pub.count_and_get(
2679: p_encoded => Fnd_Api.g_false,
2673: END IF;
2674: EXCEPTION
2675: WHEN Fnd_Api.g_exc_error THEN
2676: ROLLBACK TO Create_Summary_Task;
2677: x_return_status := Fnd_Api.g_ret_sts_error;
2678: Fnd_Msg_Pub.count_and_get(
2679: p_encoded => Fnd_Api.g_false,
2680: p_count => x_msg_count,
2681: p_data => x_msg_data
2675: WHEN Fnd_Api.g_exc_error THEN
2676: ROLLBACK TO Create_Summary_Task;
2677: x_return_status := Fnd_Api.g_ret_sts_error;
2678: Fnd_Msg_Pub.count_and_get(
2679: p_encoded => Fnd_Api.g_false,
2680: p_count => x_msg_count,
2681: p_data => x_msg_data
2682: );
2683: WHEN Fnd_Api.g_exc_unexpected_error THEN
2679: p_encoded => Fnd_Api.g_false,
2680: p_count => x_msg_count,
2681: p_data => x_msg_data
2682: );
2683: WHEN Fnd_Api.g_exc_unexpected_error THEN
2684: ROLLBACK TO Create_Summary_Task;
2685: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2686: Fnd_Msg_Pub.count_and_get (
2687: p_encoded => Fnd_Api.g_false,
2681: p_data => x_msg_data
2682: );
2683: WHEN Fnd_Api.g_exc_unexpected_error THEN
2684: ROLLBACK TO Create_Summary_Task;
2685: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2686: Fnd_Msg_Pub.count_and_get (
2687: p_encoded => Fnd_Api.g_false,
2688: p_count => x_msg_count,
2689: p_data => x_msg_data
2683: WHEN Fnd_Api.g_exc_unexpected_error THEN
2684: ROLLBACK TO Create_Summary_Task;
2685: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2686: Fnd_Msg_Pub.count_and_get (
2687: p_encoded => Fnd_Api.g_false,
2688: p_count => x_msg_count,
2689: p_data => x_msg_data
2690: );
2691: WHEN OTHERS THEN
2689: p_data => x_msg_data
2690: );
2691: WHEN OTHERS THEN
2692: ROLLBACK TO Create_Summary_Task;
2693: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2694: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
2695: THEN
2696: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2697: END IF;
2695: THEN
2696: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2697: END IF;
2698: Fnd_Msg_Pub.count_and_get (
2699: p_encoded => Fnd_Api.g_false,
2700: p_count => x_msg_count,
2701: p_data => x_msg_data
2702: );
2703: END Create_Summary_Task;
2710: -- To update all types of tasks i.e Unassociated/Summary/Unplanned/Planned Tasks.
2711: --------------------------------------------------------------------
2712: PROCEDURE Update_Task (
2713: p_api_version IN NUMBER,
2714: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2715: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2716: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2717: p_module_type IN VARCHAR2 := 'JSP',
2718: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
2711: --------------------------------------------------------------------
2712: PROCEDURE Update_Task (
2713: p_api_version IN NUMBER,
2714: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2715: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2716: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2717: p_module_type IN VARCHAR2 := 'JSP',
2718: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
2719: x_return_status OUT NOCOPY VARCHAR2,
2712: PROCEDURE Update_Task (
2713: p_api_version IN NUMBER,
2714: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2715: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2716: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2717: p_module_type IN VARCHAR2 := 'JSP',
2718: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
2719: x_return_status OUT NOCOPY VARCHAR2,
2720: x_msg_count OUT NOCOPY NUMBER,
2747:
2748: --------------------- initialize -----------------------
2749: SAVEPOINT Update_Task;
2750:
2751: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
2752: Fnd_Msg_Pub.initialize;
2753: END IF;
2754:
2755: -- Initialize API return status to success
2752: Fnd_Msg_Pub.initialize;
2753: END IF;
2754:
2755: -- Initialize API return status to success
2756: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2757:
2758: -- Standard call to check for call compatibility.
2759: IF NOT Fnd_Api.compatible_api_call(
2760: l_api_version,
2755: -- Initialize API return status to success
2756: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2757:
2758: -- Standard call to check for call compatibility.
2759: IF NOT Fnd_Api.compatible_api_call(
2760: l_api_version,
2761: p_api_version,
2762: l_api_name,
2763: G_PKG_NAME
2761: p_api_version,
2762: l_api_name,
2763: G_PKG_NAME
2764: ) THEN
2765: RAISE Fnd_Api.g_exc_unexpected_error;
2766: END IF;
2767: --------------------Start of API Body-----------------------------------
2768:
2769: -------------------Cursor values------------------------------------
2789:
2790: Update_Tasks_in_Production
2791: (p_api_version => l_api_version,
2792: p_init_msg_list => p_init_msg_list,
2793: p_commit => Fnd_Api.g_false,
2794: p_validation_level => p_validation_level,
2795: p_module_type => p_module_type,
2796: p_x_task_rec => l_task_rec,
2797: x_return_status => l_return_status,
2812: END IF;
2813: Update_Tasks_in_Planning
2814: (p_api_version => l_api_version,
2815: p_init_msg_list => p_init_msg_list,
2816: p_commit => Fnd_Api.g_false,
2817: p_validation_level => p_validation_level,
2818: p_module_type => p_module_type,
2819: p_x_task_rec => l_task_rec,
2820: x_return_status => l_return_status,
2828: END IF;
2829: END IF;
2830:
2831: -- Added to raise errors after calling respective API's
2832: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2833: RAISE FND_API.G_EXC_ERROR;
2834: END IF;
2835:
2836: ------------------------End of API Body------------------------------------
2829: END IF;
2830:
2831: -- Added to raise errors after calling respective API's
2832: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2833: RAISE FND_API.G_EXC_ERROR;
2834: END IF;
2835:
2836: ------------------------End of API Body------------------------------------
2837: --Standard check to count messages
2838: l_msg_count := Fnd_Msg_Pub.count_msg;
2839:
2840: IF l_msg_count > 0 THEN
2841: x_msg_count := l_msg_count;
2842: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2843: RAISE Fnd_Api.G_EXC_ERROR;
2844: END IF;
2845:
2846: --Standard check for commit
2839:
2840: IF l_msg_count > 0 THEN
2841: x_msg_count := l_msg_count;
2842: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2843: RAISE Fnd_Api.G_EXC_ERROR;
2844: END IF;
2845:
2846: --Standard check for commit
2847: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2843: RAISE Fnd_Api.G_EXC_ERROR;
2844: END IF;
2845:
2846: --Standard check for commit
2847: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2848: COMMIT;
2849: END IF;
2850:
2851: IF (l_log_procedure >= l_log_current_level) THEN
2854: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
2855: END IF;
2856:
2857: EXCEPTION
2858: WHEN Fnd_Api.g_exc_error THEN
2859: ROLLBACK TO Update_Task;
2860: x_return_status := Fnd_Api.g_ret_sts_error;
2861: Fnd_Msg_Pub.count_and_get (
2862: p_encoded => Fnd_Api.g_false,
2856:
2857: EXCEPTION
2858: WHEN Fnd_Api.g_exc_error THEN
2859: ROLLBACK TO Update_Task;
2860: x_return_status := Fnd_Api.g_ret_sts_error;
2861: Fnd_Msg_Pub.count_and_get (
2862: p_encoded => Fnd_Api.g_false,
2863: p_count => x_msg_count,
2864: p_data => x_msg_data
2858: WHEN Fnd_Api.g_exc_error THEN
2859: ROLLBACK TO Update_Task;
2860: x_return_status := Fnd_Api.g_ret_sts_error;
2861: Fnd_Msg_Pub.count_and_get (
2862: p_encoded => Fnd_Api.g_false,
2863: p_count => x_msg_count,
2864: p_data => x_msg_data
2865: );
2866: WHEN Fnd_Api.g_exc_unexpected_error THEN
2862: p_encoded => Fnd_Api.g_false,
2863: p_count => x_msg_count,
2864: p_data => x_msg_data
2865: );
2866: WHEN Fnd_Api.g_exc_unexpected_error THEN
2867: ROLLBACK TO Update_Task;
2868: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2869: Fnd_Msg_Pub.count_and_get (
2870: p_encoded => Fnd_Api.g_false,
2864: p_data => x_msg_data
2865: );
2866: WHEN Fnd_Api.g_exc_unexpected_error THEN
2867: ROLLBACK TO Update_Task;
2868: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2869: Fnd_Msg_Pub.count_and_get (
2870: p_encoded => Fnd_Api.g_false,
2871: p_count => x_msg_count,
2872: p_data => x_msg_data
2866: WHEN Fnd_Api.g_exc_unexpected_error THEN
2867: ROLLBACK TO Update_Task;
2868: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2869: Fnd_Msg_Pub.count_and_get (
2870: p_encoded => Fnd_Api.g_false,
2871: p_count => x_msg_count,
2872: p_data => x_msg_data
2873: );
2874: WHEN OTHERS THEN
2872: p_data => x_msg_data
2873: );
2874: WHEN OTHERS THEN
2875: ROLLBACK TO Update_Task;
2876: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2877: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
2878: THEN
2879: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2880: END IF;
2878: THEN
2879: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2880: END IF;
2881: Fnd_Msg_Pub.count_and_get (
2882: p_encoded => Fnd_Api.g_false,
2883: p_count => x_msg_count,
2884: p_data => x_msg_data
2885: );
2886: END Update_Task;
2894: --------------------------------------------------------------------
2895:
2896: PROCEDURE Update_Tasks_in_Planning(
2897: p_api_version IN NUMBER := 1.0,
2898: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
2899: p_commit IN VARCHAR2:= FND_API.G_FALSE,
2900: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2901: p_module_type IN VARCHAR2:= 'JSP',
2902: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
2895:
2896: PROCEDURE Update_Tasks_in_Planning(
2897: p_api_version IN NUMBER := 1.0,
2898: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
2899: p_commit IN VARCHAR2:= FND_API.G_FALSE,
2900: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2901: p_module_type IN VARCHAR2:= 'JSP',
2902: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
2903: x_return_status OUT NOCOPY VARCHAR2,
2896: PROCEDURE Update_Tasks_in_Planning(
2897: p_api_version IN NUMBER := 1.0,
2898: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
2899: p_commit IN VARCHAR2:= FND_API.G_FALSE,
2900: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2901: p_module_type IN VARCHAR2:= 'JSP',
2902: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
2903: x_return_status OUT NOCOPY VARCHAR2,
2904: x_msg_count OUT NOCOPY NUMBER,
3066:
3067: --------------------- initialize -----------------------
3068: SAVEPOINT Update_Tasks_in_Planning;
3069:
3070: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
3071: Fnd_Msg_Pub.initialize;
3072: END IF;
3073:
3074: -- Initialize API return status to success
3071: Fnd_Msg_Pub.initialize;
3072: END IF;
3073:
3074: -- Initialize API return status to success
3075: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3076:
3077: -- Standard call to check for call compatibility.
3078: IF NOT Fnd_Api.compatible_api_call(
3079: l_api_version,
3074: -- Initialize API return status to success
3075: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3076:
3077: -- Standard call to check for call compatibility.
3078: IF NOT Fnd_Api.compatible_api_call(
3079: l_api_version,
3080: p_api_version,
3081: l_api_name,
3082: G_PKG_NAME
3080: p_api_version,
3081: l_api_name,
3082: G_PKG_NAME
3083: ) THEN
3084: RAISE Fnd_Api.g_exc_unexpected_error;
3085: END IF;
3086:
3087: OPEN c_visit(l_task_rec.visit_id);
3088: FETCH c_visit INTO l_visit_rec;
3115: X_RETURN_STATUS => l_return_status,
3116: X_MSG_COUNT => l_msg_count,
3117: X_MSG_DATA => l_msg_data );
3118:
3119: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3120: x_msg_count := l_msg_count;
3121: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3122: RAISE Fnd_Api.G_EXC_ERROR;
3123: END IF;
3117: X_MSG_DATA => l_msg_data );
3118:
3119: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3120: x_msg_count := l_msg_count;
3121: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3122: RAISE Fnd_Api.G_EXC_ERROR;
3123: END IF;
3124: END IF;
3125:
3118:
3119: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3120: x_msg_count := l_msg_count;
3121: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3122: RAISE Fnd_Api.G_EXC_ERROR;
3123: END IF;
3124: END IF;
3125:
3126: -- Code added to make sure that department name to id conversion takes place
3124: END IF;
3125:
3126: -- Code added to make sure that department name to id conversion takes place
3127: -- Irrespective of above API Being Called.
3128: IF (l_task_rec.dept_name IS NOT NULL AND l_task_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
3129: AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id
3130: (p_organization_id => l_visit_rec.organization_id,
3131: p_dept_name => l_task_rec.dept_name,
3132: p_department_id => NULL,
3133: x_department_id => l_task_rec.department_id,
3134: x_return_status => l_return_status,
3135: x_error_msg_code => l_msg_data);
3136:
3137: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
3138: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
3139: Fnd_Msg_Pub.ADD;
3140: RAISE Fnd_Api.G_EXC_ERROR;
3141: END IF;
3136:
3137: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
3138: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
3139: Fnd_Msg_Pub.ADD;
3140: RAISE Fnd_Api.G_EXC_ERROR;
3141: END IF;
3142:
3143: -- Changes for Post 11.5.10 by cxcheng
3144: Ahl_vwp_rules_pvt.CHECK_DEPARTMENT_SHIFT
3144: Ahl_vwp_rules_pvt.CHECK_DEPARTMENT_SHIFT
3145: ( P_DEPT_ID => l_task_rec.department_id,
3146: X_RETURN_STATUS => l_return_status);
3147:
3148: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
3149: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
3150: Fnd_Msg_Pub.ADD;
3151: RAISE Fnd_Api.G_EXC_ERROR;
3152: END IF;
3147:
3148: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
3149: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
3150: Fnd_Msg_Pub.ADD;
3151: RAISE Fnd_Api.G_EXC_ERROR;
3152: END IF;
3153: ELSE
3154: l_task_rec.department_id := NULL;
3155: END IF;
3227: 'Before Calling AHL_PRD_WORKORDER_PVT.update_job');
3228: END IF;
3229: AHL_PRD_WORKORDER_PVT.update_job
3230: (p_api_version =>1.0,
3231: p_init_msg_list =>fnd_api.g_false,
3232: p_commit =>fnd_api.g_false,
3233: p_validation_level =>p_validation_level,
3234: p_default =>fnd_api.g_false,
3235: p_module_type =>'API',
3228: END IF;
3229: AHL_PRD_WORKORDER_PVT.update_job
3230: (p_api_version =>1.0,
3231: p_init_msg_list =>fnd_api.g_false,
3232: p_commit =>fnd_api.g_false,
3233: p_validation_level =>p_validation_level,
3234: p_default =>fnd_api.g_false,
3235: p_module_type =>'API',
3236: x_return_status =>x_return_status,
3230: (p_api_version =>1.0,
3231: p_init_msg_list =>fnd_api.g_false,
3232: p_commit =>fnd_api.g_false,
3233: p_validation_level =>p_validation_level,
3234: p_default =>fnd_api.g_false,
3235: p_module_type =>'API',
3236: x_return_status =>x_return_status,
3237: x_msg_count =>x_msg_count,
3238: x_msg_data =>x_msg_data,
3246: L_DEBUG_KEY,
3247: 'After Calling AHL_PRD_WORKORDER_PVT.update_job, Return Status = ' || x_return_status);
3248: END IF;
3249:
3250: IF l_return_status <> Fnd_Api.g_ret_sts_success THEN
3251: RAISE Fnd_Api.G_EXC_ERROR;
3252: END IF;
3253:
3254: END IF;
3247: 'After Calling AHL_PRD_WORKORDER_PVT.update_job, Return Status = ' || x_return_status);
3248: END IF;
3249:
3250: IF l_return_status <> Fnd_Api.g_ret_sts_success THEN
3251: RAISE Fnd_Api.G_EXC_ERROR;
3252: END IF;
3253:
3254: END IF;
3255: CLOSE c_Task_wO;
3272: Update_Summary_Task
3273: (
3274: p_api_version => l_api_version,
3275: p_init_msg_list => p_init_msg_list,
3276: p_commit => Fnd_Api.g_false,
3277: p_validation_level => p_validation_level,
3278: p_module_type => p_module_type,
3279: p_x_task_rec => l_task_rec,
3280: x_return_status => l_return_status,
3298: AHL_VWP_PLAN_TASKS_PVT.Update_Planned_Task
3299: (
3300: p_api_version => l_api_version,
3301: p_init_msg_list => p_init_msg_list,
3302: p_commit => Fnd_Api.g_false,
3303: p_validation_level => p_validation_level,
3304: p_module_type => p_module_type,
3305: p_x_task_rec => l_task_rec,
3306: x_return_status => l_return_status,
3317:
3318: AHL_VWP_UNPLAN_TASKS_PVT.Update_Unplanned_Task
3319: (p_api_version => l_api_version,
3320: p_init_msg_list => p_init_msg_list,
3321: p_commit => Fnd_Api.g_false,
3322: p_validation_level => p_validation_level,
3323: p_module_type => p_module_type,
3324: p_x_task_rec => l_task_rec,
3325: x_return_status => l_return_status,
3336:
3337: Update_Unassociated_Task
3338: (p_api_version => l_api_version,
3339: p_init_msg_list => p_init_msg_list,
3340: p_commit => Fnd_Api.g_false,
3341: p_validation_level => p_validation_level,
3342: p_module_type => p_module_type,
3343: p_x_task_rec => l_task_rec,
3344: x_return_status => l_return_status,
3353: END IF;
3354: END IF;
3355:
3356: -- Added to raise errors after calling respective API's
3357: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3358: RAISE FND_API.G_EXC_ERROR;
3359: END IF;
3360:
3361: --------------------------------------------------------------------------
3354: END IF;
3355:
3356: -- Added to raise errors after calling respective API's
3357: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3358: RAISE FND_API.G_EXC_ERROR;
3359: END IF;
3360:
3361: --------------------------------------------------------------------------
3362: ---- START 11.5.10 CHANGES FOR COSTING ----
3365: -- Conversion is done to make sure that the number to id conversion takes place
3366: -- Irrespective of above Update API Calls.
3367: -- Convert cost parent number to id
3368: IF (p_x_task_rec.cost_parent_number IS NOT NULL AND
3369: p_x_task_rec.cost_parent_number <> Fnd_Api.G_MISS_NUM ) THEN
3370:
3371: IF (l_log_statement >= l_log_current_level)THEN
3372: fnd_log.string(l_log_statement,
3373: L_DEBUG_KEY,
3381: x_visit_task_id => p_x_task_rec.cost_parent_id,
3382: x_return_status => l_return_status,
3383: x_error_msg_code => l_msg_data);
3384:
3385: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3386: RAISE FND_API.G_EXC_ERROR;
3387: END IF;
3388: ELSE
3389: p_x_task_rec.cost_parent_id := null;
3382: x_return_status => l_return_status,
3383: x_error_msg_code => l_msg_data);
3384:
3385: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3386: RAISE FND_API.G_EXC_ERROR;
3387: END IF;
3388: ELSE
3389: p_x_task_rec.cost_parent_id := null;
3390: END IF;
3409: L_DEBUG_KEY,
3410: 'After Calling AHL_VWP_RULES_PVT.Update_Visit_Task_Flag, Return Status = ' ||x_return_status);
3411: END IF;
3412:
3413: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3414: RAISE FND_API.G_EXC_ERROR;
3415: END IF;
3416: END IF;
3417: END IF; -- for cost_parent_id check
3410: 'After Calling AHL_VWP_RULES_PVT.Update_Visit_Task_Flag, Return Status = ' ||x_return_status);
3411: END IF;
3412:
3413: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3414: RAISE FND_API.G_EXC_ERROR;
3415: END IF;
3416: END IF;
3417: END IF; -- for cost_parent_id check
3418:
3425: l_msg_count := Fnd_Msg_Pub.count_msg;
3426:
3427: IF l_msg_count > 0 THEN
3428: x_msg_count := l_msg_count;
3429: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3430: RAISE Fnd_Api.G_EXC_ERROR;
3431: END IF;
3432:
3433: --Standard check for commit
3426:
3427: IF l_msg_count > 0 THEN
3428: x_msg_count := l_msg_count;
3429: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3430: RAISE Fnd_Api.G_EXC_ERROR;
3431: END IF;
3432:
3433: --Standard check for commit
3434: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
3430: RAISE Fnd_Api.G_EXC_ERROR;
3431: END IF;
3432:
3433: --Standard check for commit
3434: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
3435: COMMIT;
3436: END IF;
3437:
3438: IF (l_log_procedure >= l_log_current_level) THEN
3441: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
3442: END IF;
3443:
3444: EXCEPTION
3445: WHEN Fnd_Api.g_exc_error THEN
3446: ROLLBACK TO Update_Tasks_in_Planning;
3447: x_return_status := Fnd_Api.g_ret_sts_error;
3448: Fnd_Msg_Pub.count_and_get (
3449: p_encoded => Fnd_Api.g_false,
3443:
3444: EXCEPTION
3445: WHEN Fnd_Api.g_exc_error THEN
3446: ROLLBACK TO Update_Tasks_in_Planning;
3447: x_return_status := Fnd_Api.g_ret_sts_error;
3448: Fnd_Msg_Pub.count_and_get (
3449: p_encoded => Fnd_Api.g_false,
3450: p_count => x_msg_count,
3451: p_data => x_msg_data
3445: WHEN Fnd_Api.g_exc_error THEN
3446: ROLLBACK TO Update_Tasks_in_Planning;
3447: x_return_status := Fnd_Api.g_ret_sts_error;
3448: Fnd_Msg_Pub.count_and_get (
3449: p_encoded => Fnd_Api.g_false,
3450: p_count => x_msg_count,
3451: p_data => x_msg_data
3452: );
3453: WHEN Fnd_Api.g_exc_unexpected_error THEN
3449: p_encoded => Fnd_Api.g_false,
3450: p_count => x_msg_count,
3451: p_data => x_msg_data
3452: );
3453: WHEN Fnd_Api.g_exc_unexpected_error THEN
3454: ROLLBACK TO Update_Tasks_in_Planning;
3455: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3456: Fnd_Msg_Pub.count_and_get (
3457: p_encoded => Fnd_Api.g_false,
3451: p_data => x_msg_data
3452: );
3453: WHEN Fnd_Api.g_exc_unexpected_error THEN
3454: ROLLBACK TO Update_Tasks_in_Planning;
3455: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3456: Fnd_Msg_Pub.count_and_get (
3457: p_encoded => Fnd_Api.g_false,
3458: p_count => x_msg_count,
3459: p_data => x_msg_data
3453: WHEN Fnd_Api.g_exc_unexpected_error THEN
3454: ROLLBACK TO Update_Tasks_in_Planning;
3455: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3456: Fnd_Msg_Pub.count_and_get (
3457: p_encoded => Fnd_Api.g_false,
3458: p_count => x_msg_count,
3459: p_data => x_msg_data
3460: );
3461: WHEN OTHERS THEN
3459: p_data => x_msg_data
3460: );
3461: WHEN OTHERS THEN
3462: ROLLBACK TO Update_Tasks_in_Planning;
3463: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3464: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3465: THEN
3466: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3467: END IF;
3465: THEN
3466: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3467: END IF;
3468: Fnd_Msg_Pub.count_and_get (
3469: p_encoded => Fnd_Api.g_false,
3470: p_count => x_msg_count,
3471: p_data => x_msg_data
3472: );
3473:
3482: --------------------------------------------------------------------
3483:
3484: PROCEDURE Update_Tasks_in_Production(
3485: p_api_version IN NUMBER := 1.0,
3486: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
3487: p_commit IN VARCHAR2:= FND_API.G_FALSE,
3488: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3489: p_module_type IN VARCHAR2:= 'JSP',
3490: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
3483:
3484: PROCEDURE Update_Tasks_in_Production(
3485: p_api_version IN NUMBER := 1.0,
3486: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
3487: p_commit IN VARCHAR2:= FND_API.G_FALSE,
3488: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3489: p_module_type IN VARCHAR2:= 'JSP',
3490: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
3491: x_return_status OUT NOCOPY VARCHAR2,
3484: PROCEDURE Update_Tasks_in_Production(
3485: p_api_version IN NUMBER := 1.0,
3486: p_init_msg_list IN VARCHAR2:= FND_API.G_FALSE,
3487: p_commit IN VARCHAR2:= FND_API.G_FALSE,
3488: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3489: p_module_type IN VARCHAR2:= 'JSP',
3490: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
3491: x_return_status OUT NOCOPY VARCHAR2,
3492: x_msg_count OUT NOCOPY NUMBER,
3582:
3583: --------------------- initialize -----------------------
3584: SAVEPOINT Update_Tasks_in_Production;
3585:
3586: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
3587: Fnd_Msg_Pub.initialize;
3588: END IF;
3589:
3590: -- Initialize API return status to success
3587: Fnd_Msg_Pub.initialize;
3588: END IF;
3589:
3590: -- Initialize API return status to success
3591: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3592:
3593: -- Standard call to check for call compatibility.
3594: IF NOT Fnd_Api.compatible_api_call(
3595: l_api_version,
3590: -- Initialize API return status to success
3591: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3592:
3593: -- Standard call to check for call compatibility.
3594: IF NOT Fnd_Api.compatible_api_call(
3595: l_api_version,
3596: p_api_version,
3597: l_api_name,
3598: G_PKG_NAME
3596: p_api_version,
3597: l_api_name,
3598: G_PKG_NAME
3599: ) THEN
3600: RAISE Fnd_Api.g_exc_unexpected_error;
3601: END IF;
3602:
3603: OPEN c_visit_task_det(l_Task_rec.visit_task_id);
3604: FETCH c_visit_task_det INTO l_old_Task_rec;
3604: FETCH c_visit_task_det INTO l_old_Task_rec;
3605: CLOSE c_visit_task_det;
3606:
3607: IF (l_Task_rec.cost_parent_number IS NOT NULL AND
3608: l_Task_rec.cost_parent_number <> Fnd_Api.G_MISS_NUM ) THEN
3609:
3610: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
3611: (p_visit_task_id => l_Task_rec.cost_parent_id,
3612: p_visit_task_number => l_Task_rec.cost_parent_number,
3614: x_visit_task_id => l_cost_parent_id,
3615: x_return_status => l_return_status,
3616: x_error_msg_code => l_msg_data);
3617:
3618: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
3619: THEN
3620: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
3621: Fnd_Msg_Pub.ADD;
3622: RAISE Fnd_Api.g_exc_error;
3618: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
3619: THEN
3620: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
3621: Fnd_Msg_Pub.ADD;
3622: RAISE Fnd_Api.g_exc_error;
3623: END IF;
3624: --Assign the returned value
3625: l_Task_rec.cost_parent_id := l_cost_parent_id;
3626: ELSE
3628: END IF;
3629:
3630: -- To Check for cost parent task id not forming loop
3631: IF (l_Task_rec.cost_parent_id IS NOT NULL AND
3632: l_Task_rec.cost_parent_id <> Fnd_Api.G_MISS_NUM ) THEN
3633:
3634: AHL_VWP_RULES_PVT.Check_Cost_Parent_Loop
3635: (p_visit_id => l_Task_rec.visit_id,
3636: p_visit_task_id => l_Task_rec.visit_task_id ,
3711: L_DEBUG_KEY,
3712: 'Before Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times');
3713: END IF;
3714: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
3715: p_init_msg_list => Fnd_Api.G_FALSE,
3716: p_commit => Fnd_Api.G_FALSE,
3717: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3718: x_return_status => l_return_status,
3719: x_msg_count => l_msg_count,
3712: 'Before Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times');
3713: END IF;
3714: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
3715: p_init_msg_list => Fnd_Api.G_FALSE,
3716: p_commit => Fnd_Api.G_FALSE,
3717: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3718: x_return_status => l_return_status,
3719: x_msg_count => l_msg_count,
3720: x_msg_data => l_msg_data,
3713: END IF;
3714: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
3715: p_init_msg_list => Fnd_Api.G_FALSE,
3716: p_commit => Fnd_Api.G_FALSE,
3717: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
3718: x_return_status => l_return_status,
3719: x_msg_count => l_msg_count,
3720: x_msg_data => l_msg_data,
3721: p_task_id => l_task_rec.visit_task_id);
3728:
3729: --Standard check to count messages
3730: l_msg_count := Fnd_Msg_Pub.count_msg;
3731:
3732: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3733: x_msg_count := l_msg_count;
3734: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3735: RAISE Fnd_Api.G_EXC_ERROR;
3736: END IF;
3730: l_msg_count := Fnd_Msg_Pub.count_msg;
3731:
3732: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3733: x_msg_count := l_msg_count;
3734: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3735: RAISE Fnd_Api.G_EXC_ERROR;
3736: END IF;
3737:
3738: IF NVL(l_task_rec.cost_parent_id,-30) <> NVL(l_old_Task_rec.cost_parent_id,-30)
3731:
3732: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3733: x_msg_count := l_msg_count;
3734: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3735: RAISE Fnd_Api.G_EXC_ERROR;
3736: END IF;
3737:
3738: IF NVL(l_task_rec.cost_parent_id,-30) <> NVL(l_old_Task_rec.cost_parent_id,-30)
3739: THEN
3753: l_msg_count := Fnd_Msg_Pub.count_msg;
3754:
3755: IF l_msg_count > 0 THEN
3756: x_msg_count := l_msg_count;
3757: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3758: RAISE Fnd_Api.G_EXC_ERROR;
3759: END IF;
3760:
3761: --Standard check for commit
3754:
3755: IF l_msg_count > 0 THEN
3756: x_msg_count := l_msg_count;
3757: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3758: RAISE Fnd_Api.G_EXC_ERROR;
3759: END IF;
3760:
3761: --Standard check for commit
3762: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
3758: RAISE Fnd_Api.G_EXC_ERROR;
3759: END IF;
3760:
3761: --Standard check for commit
3762: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
3763: COMMIT;
3764: END IF;
3765:
3766: IF (l_log_procedure >= l_log_current_level) THEN
3768: L_DEBUG_KEY ||'.end',
3769: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
3770: END IF;
3771: EXCEPTION
3772: WHEN Fnd_Api.g_exc_error THEN
3773: ROLLBACK TO Update_Tasks_in_Production;
3774: x_return_status := Fnd_Api.g_ret_sts_error;
3775: Fnd_Msg_Pub.count_and_get (
3776: p_encoded => Fnd_Api.g_false,
3770: END IF;
3771: EXCEPTION
3772: WHEN Fnd_Api.g_exc_error THEN
3773: ROLLBACK TO Update_Tasks_in_Production;
3774: x_return_status := Fnd_Api.g_ret_sts_error;
3775: Fnd_Msg_Pub.count_and_get (
3776: p_encoded => Fnd_Api.g_false,
3777: p_count => x_msg_count,
3778: p_data => x_msg_data
3772: WHEN Fnd_Api.g_exc_error THEN
3773: ROLLBACK TO Update_Tasks_in_Production;
3774: x_return_status := Fnd_Api.g_ret_sts_error;
3775: Fnd_Msg_Pub.count_and_get (
3776: p_encoded => Fnd_Api.g_false,
3777: p_count => x_msg_count,
3778: p_data => x_msg_data
3779: );
3780: WHEN Fnd_Api.g_exc_unexpected_error THEN
3776: p_encoded => Fnd_Api.g_false,
3777: p_count => x_msg_count,
3778: p_data => x_msg_data
3779: );
3780: WHEN Fnd_Api.g_exc_unexpected_error THEN
3781: ROLLBACK TO Update_Tasks_in_Production;
3782: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3783: Fnd_Msg_Pub.count_and_get (
3784: p_encoded => Fnd_Api.g_false,
3778: p_data => x_msg_data
3779: );
3780: WHEN Fnd_Api.g_exc_unexpected_error THEN
3781: ROLLBACK TO Update_Tasks_in_Production;
3782: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3783: Fnd_Msg_Pub.count_and_get (
3784: p_encoded => Fnd_Api.g_false,
3785: p_count => x_msg_count,
3786: p_data => x_msg_data
3780: WHEN Fnd_Api.g_exc_unexpected_error THEN
3781: ROLLBACK TO Update_Tasks_in_Production;
3782: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3783: Fnd_Msg_Pub.count_and_get (
3784: p_encoded => Fnd_Api.g_false,
3785: p_count => x_msg_count,
3786: p_data => x_msg_data
3787: );
3788: WHEN OTHERS THEN
3786: p_data => x_msg_data
3787: );
3788: WHEN OTHERS THEN
3789: ROLLBACK TO Update_Tasks_in_Production;
3790: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3791: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3792: THEN
3793: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3794: END IF;
3792: THEN
3793: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3794: END IF;
3795: Fnd_Msg_Pub.count_and_get (
3796: p_encoded => Fnd_Api.g_false,
3797: p_count => x_msg_count,
3798: p_data => x_msg_data
3799: );
3800: END Update_Tasks_in_Production;
3807: -- To update Unassociated task for the Maintainance visit.
3808: --------------------------------------------------------------------
3809: PROCEDURE Update_Unassociated_Task (
3810: p_api_version IN NUMBER,
3811: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3812: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3813: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3814: p_module_type IN VARCHAR2 := 'JSP',
3815: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
3808: --------------------------------------------------------------------
3809: PROCEDURE Update_Unassociated_Task (
3810: p_api_version IN NUMBER,
3811: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3812: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3813: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3814: p_module_type IN VARCHAR2 := 'JSP',
3815: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
3816: x_return_status OUT NOCOPY VARCHAR2,
3809: PROCEDURE Update_Unassociated_Task (
3810: p_api_version IN NUMBER,
3811: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3812: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3813: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3814: p_module_type IN VARCHAR2 := 'JSP',
3815: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
3816: x_return_status OUT NOCOPY VARCHAR2,
3817: x_msg_count OUT NOCOPY NUMBER,
3854:
3855: --------------------- initialize -----------------------
3856: SAVEPOINT Update_Unassociated_Task;
3857:
3858: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
3859: Fnd_Msg_Pub.initialize;
3860: END IF;
3861:
3862: -- Initialize API return status to success
3859: Fnd_Msg_Pub.initialize;
3860: END IF;
3861:
3862: -- Initialize API return status to success
3863: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3864:
3865: -- Standard call to check for call compatibility.
3866: IF NOT Fnd_Api.compatible_api_call(
3867: l_api_version,
3862: -- Initialize API return status to success
3863: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3864:
3865: -- Standard call to check for call compatibility.
3866: IF NOT Fnd_Api.compatible_api_call(
3867: l_api_version,
3868: p_api_version,
3869: l_api_name,
3870: G_PKG_NAME
3868: p_api_version,
3869: l_api_name,
3870: G_PKG_NAME
3871: ) THEN
3872: RAISE Fnd_Api.g_exc_unexpected_error;
3873: END IF;
3874:
3875: ---------------------------------------------- Start----------------------------------------------------------
3876: OPEN c_Visit(l_Task_rec.visit_id);
3898: ----------- Start defining and validate all LOVs on Create Visit's Task UI Screen---
3899: --
3900: -- For DEPARTMENT
3901: -- Convert department name to department id
3902: IF (l_task_rec.dept_name IS NOT NULL AND l_task_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
3903:
3904: AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id
3905: (p_organization_id => c_visit_rec.organization_id,
3906: p_dept_name => l_task_rec.dept_name,
3908: x_department_id => l_department_id,
3909: x_return_status => l_return_status,
3910: x_error_msg_code => l_msg_data);
3911:
3912: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
3913: THEN
3914: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
3915: Fnd_Msg_Pub.ADD;
3916: RAISE Fnd_Api.G_EXC_ERROR;
3912: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
3913: THEN
3914: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
3915: Fnd_Msg_Pub.ADD;
3916: RAISE Fnd_Api.G_EXC_ERROR;
3917: END IF;
3918:
3919: --Assign the returned value
3920: l_task_rec.department_id := l_department_id;
3931: --
3932: -- For SERIAL NUMBER
3933: -- Convert serial number to instance/ serial id
3934: IF (l_Task_rec.serial_number IS NOT NULL AND
3935: l_Task_rec.serial_number <> Fnd_Api.G_MISS_CHAR) THEN
3936:
3937: IF (l_log_statement >= l_log_current_level) THEN
3938: fnd_log.string(l_log_statement,
3939: L_DEBUG_KEY,
3948: x_serial_id => l_serial_id,
3949: x_return_status => l_return_status,
3950: x_error_msg_code => l_msg_data);
3951:
3952: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
3953: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
3954: Fnd_Msg_Pub.ADD;
3955: RAISE Fnd_Api.G_EXC_ERROR;
3956: ELSE
3951:
3952: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
3953: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
3954: Fnd_Msg_Pub.ADD;
3955: RAISE Fnd_Api.G_EXC_ERROR;
3956: ELSE
3957:
3958: --Assign the returned value
3959: l_Task_rec.instance_id := l_serial_id;
3968: /* sowsubra - start
3969: IF c_Visit_rec.item_instance_id IS NOT NULL THEN
3970:
3971: --BEGIN: jeli added for bug 3777720
3972: 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
3973: --END: jeli added for bug 3777720
3974: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
3975: Fnd_Msg_Pub.ADD;
3976: RAISE Fnd_Api.G_EXC_ERROR;
3972: 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
3973: --END: jeli added for bug 3777720
3974: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
3975: Fnd_Msg_Pub.ADD;
3976: RAISE Fnd_Api.G_EXC_ERROR;
3977: END IF;
3978: END IF;
3979: sowsubra - end */
3980: END IF;
3990: --
3991: -- For COST PARENT TASK
3992: -- Convert cost parent number to id
3993: IF (l_Task_rec.cost_parent_number IS NOT NULL AND
3994: l_Task_rec.cost_parent_number <> Fnd_Api.G_MISS_NUM ) THEN
3995:
3996: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
3997: (p_visit_task_id => l_Task_rec.cost_parent_id,
3998: p_visit_task_number => l_Task_rec.cost_parent_number,
4000: x_visit_task_id => l_cost_parent_id,
4001: x_return_status => l_return_status,
4002: x_error_msg_code => l_msg_data);
4003:
4004: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4005: THEN
4006: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
4007: Fnd_Msg_Pub.ADD;
4008: RAISE Fnd_Api.g_exc_error;
4004: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4005: THEN
4006: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
4007: Fnd_Msg_Pub.ADD;
4008: RAISE Fnd_Api.g_exc_error;
4009: END IF;
4010:
4011: --Assign the returned value
4012: l_Task_rec.cost_parent_id := l_cost_parent_id;
4020: END IF;
4021:
4022: -- To Check for cost parent task id not forming loop
4023: IF (l_Task_rec.cost_parent_id IS NOT NULL AND
4024: l_Task_rec.cost_parent_id <> Fnd_Api.G_MISS_NUM ) THEN
4025:
4026: AHL_VWP_RULES_PVT.Check_Cost_Parent_Loop
4027: (p_visit_id => l_Task_rec.visit_id,
4028: p_visit_task_id => l_Task_rec.visit_task_id ,
4041: --
4042: -- For ORIGINATING TASK
4043: -- Convert originating task number to id
4044: IF (l_Task_rec.orginating_task_number IS NOT NULL AND
4045: l_Task_rec.orginating_task_number <> Fnd_Api.G_MISS_NUM ) THEN
4046:
4047: IF (l_log_statement >= l_log_current_level) THEN
4048: fnd_log.string(l_log_statement,
4049: L_DEBUG_KEY,
4057: x_visit_task_id => l_originating_task_id,
4058: x_return_status => l_return_status,
4059: x_error_msg_code => l_msg_data);
4060:
4061: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4062: THEN
4063: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORIGINATING_NOT_EXISTS');
4064: Fnd_Msg_Pub.ADD;
4065: RAISE Fnd_Api.g_exc_error;
4061: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4062: THEN
4063: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORIGINATING_NOT_EXISTS');
4064: Fnd_Msg_Pub.ADD;
4065: RAISE Fnd_Api.g_exc_error;
4066: END IF;
4067:
4068: --Assign the returned value
4069: l_Task_rec.originating_task_id := l_originating_task_id;
4077: END IF;
4078:
4079: -- To Check for originating task id not forming loop
4080: IF (l_Task_rec.originating_task_id IS NOT NULL AND
4081: l_Task_rec.originating_task_id <> Fnd_Api.G_MISS_NUM ) THEN
4082:
4083: AHL_VWP_RULES_PVT.Check_Origin_Task_Loop
4084: (p_visit_id => l_Task_rec.visit_id ,
4085: p_visit_task_id => l_Task_rec.visit_task_id ,
4132: END IF;
4133:
4134: END IF;
4135:
4136: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4137: x_msg_count := l_msg_count;
4138: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4139: RAISE Fnd_Api.G_EXC_ERROR;
4140: END IF;
4134: END IF;
4135:
4136: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4137: x_msg_count := l_msg_count;
4138: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4139: RAISE Fnd_Api.G_EXC_ERROR;
4140: END IF;
4141:
4142: -- post 11.5.10 changes by Senthil end
4135:
4136: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4137: x_msg_count := l_msg_count;
4138: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4139: RAISE Fnd_Api.G_EXC_ERROR;
4140: END IF;
4141:
4142: -- post 11.5.10 changes by Senthil end
4143:
4146: p_task_rec => p_x_task_rec,
4147: p_validation_mode => Jtf_Plsql_Api.g_update,
4148: x_return_status => l_return_status
4149: );
4150: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4151: RAISE Fnd_Api.g_exc_unexpected_error;
4152: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
4153: RAISE Fnd_Api.g_exc_error;
4154: END IF;
4147: p_validation_mode => Jtf_Plsql_Api.g_update,
4148: x_return_status => l_return_status
4149: );
4150: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4151: RAISE Fnd_Api.g_exc_unexpected_error;
4152: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
4153: RAISE Fnd_Api.g_exc_error;
4154: END IF;
4155: END IF;
4148: x_return_status => l_return_status
4149: );
4150: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4151: RAISE Fnd_Api.g_exc_unexpected_error;
4152: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
4153: RAISE Fnd_Api.g_exc_error;
4154: END IF;
4155: END IF;
4156:
4149: );
4150: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4151: RAISE Fnd_Api.g_exc_unexpected_error;
4152: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
4153: RAISE Fnd_Api.g_exc_error;
4154: END IF;
4155: END IF;
4156:
4157: -- Check Object version number.
4157: -- Check Object version number.
4158: IF (c_task_rec.object_version_number <> l_task_rec.object_version_number) THEN
4159: Fnd_Message.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
4160: Fnd_Msg_Pub.ADD;
4161: RAISE Fnd_Api.G_EXC_ERROR;
4162: END IF;
4163:
4164: --Standard check to count messages
4165: l_msg_count := Fnd_Msg_Pub.count_msg;
4165: l_msg_count := Fnd_Msg_Pub.count_msg;
4166:
4167: IF l_msg_count > 0 THEN
4168: x_msg_count := l_msg_count;
4169: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4170: RAISE Fnd_Api.G_EXC_ERROR;
4171: END IF;
4172:
4173: -------------------------- update --------------------
4166:
4167: IF l_msg_count > 0 THEN
4168: x_msg_count := l_msg_count;
4169: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4170: RAISE Fnd_Api.G_EXC_ERROR;
4171: END IF;
4172:
4173: -------------------------- update --------------------
4174: IF (l_log_statement >= l_log_current_level) THEN
4244: L_DEBUG_KEY,
4245: 'Before Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times');
4246: END IF;
4247: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
4248: p_init_msg_list => Fnd_Api.G_FALSE,
4249: p_commit => Fnd_Api.G_FALSE,
4250: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4251: x_return_status => l_return_status,
4252: x_msg_count => l_msg_count,
4245: 'Before Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times');
4246: END IF;
4247: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
4248: p_init_msg_list => Fnd_Api.G_FALSE,
4249: p_commit => Fnd_Api.G_FALSE,
4250: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4251: x_return_status => l_return_status,
4252: x_msg_count => l_msg_count,
4253: x_msg_data => l_msg_data,
4246: END IF;
4247: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
4248: p_init_msg_list => Fnd_Api.G_FALSE,
4249: p_commit => Fnd_Api.G_FALSE,
4250: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4251: x_return_status => l_return_status,
4252: x_msg_count => l_msg_count,
4253: x_msg_data => l_msg_data,
4254: p_task_id => l_task_rec.visit_task_id);
4261:
4262: --Standard check to count messages
4263: l_msg_count := Fnd_Msg_Pub.count_msg;
4264:
4265: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4266: x_msg_count := l_msg_count;
4267: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4268: RAISE Fnd_Api.G_EXC_ERROR;
4269: END IF;
4263: l_msg_count := Fnd_Msg_Pub.count_msg;
4264:
4265: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4266: x_msg_count := l_msg_count;
4267: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4268: RAISE Fnd_Api.G_EXC_ERROR;
4269: END IF;
4270:
4271: IF NVL(l_task_rec.Duration, -10) <> NVL(c_task_rec.Duration, -10) OR
4264:
4265: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4266: x_msg_count := l_msg_count;
4267: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4268: RAISE Fnd_Api.G_EXC_ERROR;
4269: END IF;
4270:
4271: IF NVL(l_task_rec.Duration, -10) <> NVL(c_task_rec.Duration, -10) OR
4272: NVL(l_task_rec.start_from_hour, -20) <> NVL(c_task_rec.start_from_hour, -20) OR
4287: END IF;
4288:
4289: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
4290: p_api_version => 1.0,
4291: p_init_msg_list => FND_API.g_false,
4292: p_commit => FND_API.g_false,
4293: p_validation_level => FND_API.g_valid_level_full,
4294: p_visit_id => l_task_rec.visit_id,
4295: p_visit_task_id => NULL,
4288:
4289: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
4290: p_api_version => 1.0,
4291: p_init_msg_list => FND_API.g_false,
4292: p_commit => FND_API.g_false,
4293: p_validation_level => FND_API.g_valid_level_full,
4294: p_visit_id => l_task_rec.visit_id,
4295: p_visit_task_id => NULL,
4296: p_org_id => NULL,
4289: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
4290: p_api_version => 1.0,
4291: p_init_msg_list => FND_API.g_false,
4292: p_commit => FND_API.g_false,
4293: p_validation_level => FND_API.g_valid_level_full,
4294: p_visit_id => l_task_rec.visit_id,
4295: p_visit_task_id => NULL,
4296: p_org_id => NULL,
4297: p_start_date => NULL,
4309: 'Return Status = ' || l_return_status );
4310: END IF;
4311:
4312: IF l_return_status <> 'S' THEN
4313: RAISE Fnd_Api.G_EXC_ERROR;
4314: END IF;
4315:
4316: END IF; -- Start_date_time check.
4317:
4319: AHL_VWP_RULES_PVT.Update_Visit_Task_Flag
4320: (p_visit_id => l_task_rec.visit_id,
4321: p_flag => 'Y',
4322: x_return_status => x_return_status);
4323: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4324: RAISE FND_API.G_EXC_ERROR;
4325: END IF;
4326: END IF;
4327: END IF;
4320: (p_visit_id => l_task_rec.visit_id,
4321: p_flag => 'Y',
4322: x_return_status => x_return_status);
4323: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4324: RAISE FND_API.G_EXC_ERROR;
4325: END IF;
4326: END IF;
4327: END IF;
4328:
4333: l_msg_count := Fnd_Msg_Pub.count_msg;
4334:
4335: IF l_msg_count > 0 THEN
4336: x_msg_count := l_msg_count;
4337: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4338: RAISE Fnd_Api.G_EXC_ERROR;
4339: END IF;
4340:
4341: --Standard check for commit
4334:
4335: IF l_msg_count > 0 THEN
4336: x_msg_count := l_msg_count;
4337: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4338: RAISE Fnd_Api.G_EXC_ERROR;
4339: END IF;
4340:
4341: --Standard check for commit
4342: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
4338: RAISE Fnd_Api.G_EXC_ERROR;
4339: END IF;
4340:
4341: --Standard check for commit
4342: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
4343: COMMIT;
4344: END IF;
4345:
4346: IF (l_log_procedure >= l_log_current_level) THEN
4348: L_DEBUG_KEY ||'.end',
4349: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
4350: END IF;
4351: EXCEPTION
4352: WHEN Fnd_Api.g_exc_error THEN
4353: ROLLBACK TO Update_Unassociated_Task;
4354: x_return_status := Fnd_Api.g_ret_sts_error;
4355: Fnd_Msg_Pub.count_and_get (
4356: p_encoded => Fnd_Api.g_false,
4350: END IF;
4351: EXCEPTION
4352: WHEN Fnd_Api.g_exc_error THEN
4353: ROLLBACK TO Update_Unassociated_Task;
4354: x_return_status := Fnd_Api.g_ret_sts_error;
4355: Fnd_Msg_Pub.count_and_get (
4356: p_encoded => Fnd_Api.g_false,
4357: p_count => x_msg_count,
4358: p_data => x_msg_data
4352: WHEN Fnd_Api.g_exc_error THEN
4353: ROLLBACK TO Update_Unassociated_Task;
4354: x_return_status := Fnd_Api.g_ret_sts_error;
4355: Fnd_Msg_Pub.count_and_get (
4356: p_encoded => Fnd_Api.g_false,
4357: p_count => x_msg_count,
4358: p_data => x_msg_data
4359: );
4360: WHEN Fnd_Api.g_exc_unexpected_error THEN
4356: p_encoded => Fnd_Api.g_false,
4357: p_count => x_msg_count,
4358: p_data => x_msg_data
4359: );
4360: WHEN Fnd_Api.g_exc_unexpected_error THEN
4361: ROLLBACK TO Update_Unassociated_Task;
4362: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4363: Fnd_Msg_Pub.count_and_get (
4364: p_encoded => Fnd_Api.g_false,
4358: p_data => x_msg_data
4359: );
4360: WHEN Fnd_Api.g_exc_unexpected_error THEN
4361: ROLLBACK TO Update_Unassociated_Task;
4362: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4363: Fnd_Msg_Pub.count_and_get (
4364: p_encoded => Fnd_Api.g_false,
4365: p_count => x_msg_count,
4366: p_data => x_msg_data
4360: WHEN Fnd_Api.g_exc_unexpected_error THEN
4361: ROLLBACK TO Update_Unassociated_Task;
4362: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4363: Fnd_Msg_Pub.count_and_get (
4364: p_encoded => Fnd_Api.g_false,
4365: p_count => x_msg_count,
4366: p_data => x_msg_data
4367: );
4368: WHEN OTHERS THEN
4366: p_data => x_msg_data
4367: );
4368: WHEN OTHERS THEN
4369: ROLLBACK TO Update_Unassociated_Task;
4370: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4371: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4372: THEN
4373: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4374: END IF;
4372: THEN
4373: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4374: END IF;
4375: Fnd_Msg_Pub.count_and_get (
4376: p_encoded => Fnd_Api.g_false,
4377: p_count => x_msg_count,
4378: p_data => x_msg_data
4379: );
4380: END Update_Unassociated_Task;
4387: -- To update Summary task for the Maintainance visit.
4388: --------------------------------------------------------------------
4389: PROCEDURE Update_Summary_Task (
4390: p_api_version IN NUMBER,
4391: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4392: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4393: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4394: p_module_type IN VARCHAR2 := 'JSP',
4395: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
4388: --------------------------------------------------------------------
4389: PROCEDURE Update_Summary_Task (
4390: p_api_version IN NUMBER,
4391: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4392: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4393: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4394: p_module_type IN VARCHAR2 := 'JSP',
4395: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
4396: x_return_status OUT NOCOPY VARCHAR2,
4389: PROCEDURE Update_Summary_Task (
4390: p_api_version IN NUMBER,
4391: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4392: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4393: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4394: p_module_type IN VARCHAR2 := 'JSP',
4395: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
4396: x_return_status OUT NOCOPY VARCHAR2,
4397: x_msg_count OUT NOCOPY NUMBER,
4433: END IF;
4434: --------------------- initialize -----------------------
4435: SAVEPOINT Update_Summary_Task;
4436:
4437: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
4438: Fnd_Msg_Pub.initialize;
4439: END IF;
4440:
4441: -- Initialize API return status to success
4438: Fnd_Msg_Pub.initialize;
4439: END IF;
4440:
4441: -- Initialize API return status to success
4442: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4443:
4444: -- Standard call to check for call compatibility.
4445: IF NOT Fnd_Api.compatible_api_call(
4446: l_api_version,
4441: -- Initialize API return status to success
4442: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4443:
4444: -- Standard call to check for call compatibility.
4445: IF NOT Fnd_Api.compatible_api_call(
4446: l_api_version,
4447: p_api_version,
4448: l_api_name,
4449: G_PKG_NAME
4447: p_api_version,
4448: l_api_name,
4449: G_PKG_NAME
4450: ) THEN
4451: RAISE Fnd_Api.g_exc_unexpected_error;
4452: END IF;
4453:
4454: ------------------------Start of API Body------------------------------------
4455: OPEN c_Visit(l_Task_rec.visit_id);
4477: ----------- Start defining and validate all LOVs on Create Visit's Task UI Screen---
4478: --
4479: -- For DEPARTMENT
4480: -- Convert department name to department id
4481: IF (l_task_rec.dept_name IS NOT NULL AND l_task_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
4482:
4483: AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id
4484: (p_organization_id => c_visit_rec.organization_id,
4485: p_dept_name => l_task_rec.dept_name,
4487: x_department_id => l_department_id,
4488: x_return_status => l_return_status,
4489: x_error_msg_code => l_msg_data);
4490:
4491: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4492: THEN
4493: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
4494: Fnd_Msg_Pub.ADD;
4495: RAISE Fnd_Api.G_EXC_ERROR;
4491: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4492: THEN
4493: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
4494: Fnd_Msg_Pub.ADD;
4495: RAISE Fnd_Api.G_EXC_ERROR;
4496: END IF;
4497:
4498: --Assign the returned value
4499: l_task_rec.department_id := l_department_id;
4518: --
4519: -- For SERIAL NUMBER
4520: -- Convert serial number to instance/ serial id
4521: IF (l_Task_rec.serial_number IS NOT NULL AND
4522: l_Task_rec.serial_number <> Fnd_Api.G_MISS_CHAR) THEN
4523:
4524: AHL_VWP_RULES_PVT.Check_Serial_Name_Or_Id
4525: (p_item_id => l_Task_rec.inventory_item_id,
4526: p_org_id => l_Task_rec.item_organization_id,
4529: x_serial_id => l_serial_id,
4530: x_return_status => l_return_status,
4531: x_error_msg_code => l_msg_data);
4532:
4533: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
4534: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
4535: Fnd_Msg_Pub.ADD;
4536: RAISE Fnd_Api.G_EXC_ERROR;
4537: ELSE
4532:
4533: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
4534: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
4535: Fnd_Msg_Pub.ADD;
4536: RAISE Fnd_Api.G_EXC_ERROR;
4537: ELSE
4538:
4539: --Assign the returned value
4540: l_Task_rec.instance_id := l_serial_id;
4547: ': Before UC Item Org ID= ' || l_Task_rec.item_organization_id);
4548: END IF;
4549: /* sowsubra - start
4550: --BEGIN: jeli added for bug 3777720
4551: 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
4552: --END: jeli added for bug 3777720
4553: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
4554: Fnd_Msg_Pub.ADD;
4555: RAISE Fnd_Api.G_EXC_ERROR;
4551: 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
4552: --END: jeli added for bug 3777720
4553: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
4554: Fnd_Msg_Pub.ADD;
4555: RAISE Fnd_Api.G_EXC_ERROR;
4556: END IF;
4557: sowsubra - end */
4558:
4559: END IF; -- End of l_return_status success check
4579: --
4580: -- For COST PARENT TASK
4581: -- Convert cost parent number to id
4582: IF (l_Task_rec.cost_parent_number IS NOT NULL AND
4583: l_Task_rec.cost_parent_number <> Fnd_Api.G_MISS_NUM ) THEN
4584:
4585: IF (l_log_statement >= l_log_current_level) THEN
4586: fnd_log.string(l_log_statement,
4587: L_DEBUG_KEY,
4595: x_visit_task_id => l_cost_parent_id,
4596: x_return_status => l_return_status,
4597: x_error_msg_code => l_msg_data);
4598:
4599: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4600: THEN
4601: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
4602: Fnd_Msg_Pub.ADD;
4603: RAISE Fnd_Api.g_exc_error;
4599: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4600: THEN
4601: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
4602: Fnd_Msg_Pub.ADD;
4603: RAISE Fnd_Api.g_exc_error;
4604: END IF;
4605:
4606: --Assign the returned value
4607: l_Task_rec.cost_parent_id := l_cost_parent_id;
4610: END IF;
4611:
4612: -- To Check for cost parent task id not forming loop
4613: IF (l_Task_rec.cost_parent_id IS NOT NULL AND
4614: l_Task_rec.cost_parent_id <> Fnd_Api.G_MISS_NUM ) THEN
4615:
4616: AHL_VWP_RULES_PVT.Check_Cost_Parent_Loop
4617: (p_visit_id => l_Task_rec.visit_id,
4618: p_visit_task_id => l_Task_rec.visit_task_id ,
4636: --
4637: -- For ORIGINATING TASK
4638: -- Convert originating task number to id
4639: IF (l_Task_rec.orginating_task_number IS NOT NULL AND
4640: l_Task_rec.orginating_task_number <> Fnd_Api.G_MISS_NUM ) THEN
4641:
4642: IF (l_log_statement >= l_log_current_level) THEN
4643: fnd_log.string(l_log_statement,
4644: L_DEBUG_KEY,
4652: x_visit_task_id => l_originating_task_id,
4653: x_return_status => l_return_status,
4654: x_error_msg_code => l_msg_data);
4655:
4656: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4657: THEN
4658: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORIGINATING_NOT_EXISTS');
4659: Fnd_Msg_Pub.ADD;
4660: RAISE Fnd_Api.g_exc_error;
4656: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4657: THEN
4658: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORIGINATING_NOT_EXISTS');
4659: Fnd_Msg_Pub.ADD;
4660: RAISE Fnd_Api.g_exc_error;
4661: END IF;
4662:
4663: --Assign the returned value
4664: l_Task_rec.originating_task_id := l_originating_task_id;
4673: END IF;
4674:
4675: -- To Check for originating task id not forming loop
4676: IF (l_Task_rec.originating_task_id IS NOT NULL AND
4677: l_Task_rec.originating_task_id <> Fnd_Api.G_MISS_NUM ) THEN
4678:
4679: AHL_VWP_RULES_PVT.Check_Origin_Task_Loop
4680: (p_visit_id => l_Task_rec.visit_id ,
4681: p_visit_task_id => l_Task_rec.visit_task_id ,
4710: p_task_rec => p_x_task_rec,
4711: p_validation_mode => Jtf_Plsql_Api.g_update,
4712: x_return_status => l_return_status
4713: );
4714: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4715: RAISE Fnd_Api.g_exc_unexpected_error;
4716: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
4717: RAISE Fnd_Api.g_exc_error;
4718: END IF;
4711: p_validation_mode => Jtf_Plsql_Api.g_update,
4712: x_return_status => l_return_status
4713: );
4714: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4715: RAISE Fnd_Api.g_exc_unexpected_error;
4716: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
4717: RAISE Fnd_Api.g_exc_error;
4718: END IF;
4719: END IF;
4712: x_return_status => l_return_status
4713: );
4714: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4715: RAISE Fnd_Api.g_exc_unexpected_error;
4716: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
4717: RAISE Fnd_Api.g_exc_error;
4718: END IF;
4719: END IF;
4720:
4713: );
4714: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4715: RAISE Fnd_Api.g_exc_unexpected_error;
4716: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
4717: RAISE Fnd_Api.g_exc_error;
4718: END IF;
4719: END IF;
4720:
4721: -- Check Object version number.
4721: -- Check Object version number.
4722: IF (c_task_rec.object_version_number <> l_task_rec.object_version_number) THEN
4723: Fnd_Message.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
4724: Fnd_Msg_Pub.ADD;
4725: RAISE Fnd_Api.G_EXC_ERROR;
4726: END IF;
4727:
4728: --Standard check to count messages
4729: l_msg_count := Fnd_Msg_Pub.count_msg;
4729: l_msg_count := Fnd_Msg_Pub.count_msg;
4730:
4731: IF l_msg_count > 0 THEN
4732: x_msg_count := l_msg_count;
4733: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4734: RAISE Fnd_Api.G_EXC_ERROR;
4735: END IF;
4736:
4737: -------------------------- update --------------------
4730:
4731: IF l_msg_count > 0 THEN
4732: x_msg_count := l_msg_count;
4733: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4734: RAISE Fnd_Api.G_EXC_ERROR;
4735: END IF;
4736:
4737: -------------------------- update --------------------
4738: IF (l_log_statement >= l_log_current_level) THEN
4810: L_DEBUG_KEY,
4811: 'Before calling AHL_VWP_TIMES_PVT.Adjust_Task_Times');
4812: END IF;
4813: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
4814: p_init_msg_list => Fnd_Api.G_FALSE,
4815: p_commit => Fnd_Api.G_FALSE,
4816: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4817: x_return_status => l_return_status,
4818: x_msg_count => l_msg_count,
4811: 'Before calling AHL_VWP_TIMES_PVT.Adjust_Task_Times');
4812: END IF;
4813: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
4814: p_init_msg_list => Fnd_Api.G_FALSE,
4815: p_commit => Fnd_Api.G_FALSE,
4816: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4817: x_return_status => l_return_status,
4818: x_msg_count => l_msg_count,
4819: x_msg_data => l_msg_data,
4812: END IF;
4813: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
4814: p_init_msg_list => Fnd_Api.G_FALSE,
4815: p_commit => Fnd_Api.G_FALSE,
4816: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
4817: x_return_status => l_return_status,
4818: x_msg_count => l_msg_count,
4819: x_msg_data => l_msg_data,
4820: p_task_id =>l_task_rec.visit_task_id);
4826:
4827: --Standard check to count messages
4828: l_msg_count := Fnd_Msg_Pub.count_msg;
4829:
4830: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4831: x_msg_count := l_msg_count;
4832: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4833: RAISE Fnd_Api.G_EXC_ERROR;
4834: END IF;
4828: l_msg_count := Fnd_Msg_Pub.count_msg;
4829:
4830: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4831: x_msg_count := l_msg_count;
4832: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4833: RAISE Fnd_Api.G_EXC_ERROR;
4834: END IF;
4835:
4836: --Standard check for commit
4829:
4830: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4831: x_msg_count := l_msg_count;
4832: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4833: RAISE Fnd_Api.G_EXC_ERROR;
4834: END IF;
4835:
4836: --Standard check for commit
4837: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
4833: RAISE Fnd_Api.G_EXC_ERROR;
4834: END IF;
4835:
4836: --Standard check for commit
4837: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
4838: COMMIT;
4839: END IF;
4840:
4841: IF (l_log_procedure >= l_log_current_level) THEN
4844: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
4845: END IF;
4846:
4847: EXCEPTION
4848: WHEN Fnd_Api.g_exc_error THEN
4849: ROLLBACK TO Update_Summary_Task;
4850: x_return_status := Fnd_Api.g_ret_sts_error;
4851: Fnd_Msg_Pub.count_and_get (
4852: p_encoded => Fnd_Api.g_false,
4846:
4847: EXCEPTION
4848: WHEN Fnd_Api.g_exc_error THEN
4849: ROLLBACK TO Update_Summary_Task;
4850: x_return_status := Fnd_Api.g_ret_sts_error;
4851: Fnd_Msg_Pub.count_and_get (
4852: p_encoded => Fnd_Api.g_false,
4853: p_count => x_msg_count,
4854: p_data => x_msg_data
4848: WHEN Fnd_Api.g_exc_error THEN
4849: ROLLBACK TO Update_Summary_Task;
4850: x_return_status := Fnd_Api.g_ret_sts_error;
4851: Fnd_Msg_Pub.count_and_get (
4852: p_encoded => Fnd_Api.g_false,
4853: p_count => x_msg_count,
4854: p_data => x_msg_data
4855: );
4856: WHEN Fnd_Api.g_exc_unexpected_error THEN
4852: p_encoded => Fnd_Api.g_false,
4853: p_count => x_msg_count,
4854: p_data => x_msg_data
4855: );
4856: WHEN Fnd_Api.g_exc_unexpected_error THEN
4857: ROLLBACK TO Update_Summary_Task;
4858: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4859: Fnd_Msg_Pub.count_and_get (
4860: p_encoded => Fnd_Api.g_false,
4854: p_data => x_msg_data
4855: );
4856: WHEN Fnd_Api.g_exc_unexpected_error THEN
4857: ROLLBACK TO Update_Summary_Task;
4858: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4859: Fnd_Msg_Pub.count_and_get (
4860: p_encoded => Fnd_Api.g_false,
4861: p_count => x_msg_count,
4862: p_data => x_msg_data
4856: WHEN Fnd_Api.g_exc_unexpected_error THEN
4857: ROLLBACK TO Update_Summary_Task;
4858: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4859: Fnd_Msg_Pub.count_and_get (
4860: p_encoded => Fnd_Api.g_false,
4861: p_count => x_msg_count,
4862: p_data => x_msg_data
4863: );
4864: WHEN OTHERS THEN
4862: p_data => x_msg_data
4863: );
4864: WHEN OTHERS THEN
4865: ROLLBACK TO Update_Summary_Task;
4866: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4867: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4868: THEN
4869: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4870: END IF;
4868: THEN
4869: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4870: END IF;
4871: Fnd_Msg_Pub.count_and_get (
4872: p_encoded => Fnd_Api.g_false,
4873: p_count => x_msg_count,
4874: p_data => x_msg_data
4875: );
4876: END Update_Summary_Task;
4883: -- To delete all types of tasks i.e Unassociated/Summary/Planned/Unplanned tasks.
4884: --------------------------------------------------------------------
4885: PROCEDURE Delete_Task (
4886: p_api_version IN NUMBER,
4887: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4888: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4889: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4890: p_module_type IN VARCHAR2 := 'JSP',
4891: p_Visit_Task_Id IN NUMBER,
4884: --------------------------------------------------------------------
4885: PROCEDURE Delete_Task (
4886: p_api_version IN NUMBER,
4887: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4888: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4889: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4890: p_module_type IN VARCHAR2 := 'JSP',
4891: p_Visit_Task_Id IN NUMBER,
4892: x_return_status OUT NOCOPY VARCHAR2,
4885: PROCEDURE Delete_Task (
4886: p_api_version IN NUMBER,
4887: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4888: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4889: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4890: p_module_type IN VARCHAR2 := 'JSP',
4891: p_Visit_Task_Id IN NUMBER,
4892: x_return_status OUT NOCOPY VARCHAR2,
4893: x_msg_count OUT NOCOPY NUMBER,
4965: END IF;
4966: --------------------- initialize -----------------------
4967: SAVEPOINT Delete_Task;
4968:
4969: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
4970: Fnd_Msg_Pub.initialize;
4971: END IF;
4972:
4973: -- Initialize API return status to success
4970: Fnd_Msg_Pub.initialize;
4971: END IF;
4972:
4973: -- Initialize API return status to success
4974: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4975:
4976: -- Standard call to check for call compatibility.
4977: IF NOT Fnd_Api.compatible_api_call(
4978: l_api_version,
4973: -- Initialize API return status to success
4974: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4975:
4976: -- Standard call to check for call compatibility.
4977: IF NOT Fnd_Api.compatible_api_call(
4978: l_api_version,
4979: p_api_version,
4980: l_api_name,
4981: G_PKG_NAME
4979: p_api_version,
4980: l_api_name,
4981: G_PKG_NAME
4982: ) THEN
4983: RAISE Fnd_Api.g_exc_unexpected_error;
4984: END IF;
4985: --------------------Start of API Body-----------------------------------
4986:
4987: -------------------Cursor values------------------------------------
5009:
5010: IF c_visit_rec.status_code IN ('CLOSED','CANCELLED') THEN
5011: Fnd_Message.SET_NAME('AHL','AHL_VWP_NOT_USE_VISIT');
5012: Fnd_Msg_Pub.ADD;
5013: RAISE Fnd_Api.G_EXC_ERROR;
5014: ELSIF c_task_rec.status_code = 'PLANNING' THEN
5015: IF c_task_rec.task_type_code = 'SUMMARY' THEN
5016:
5017: IF (l_log_statement >= l_log_current_level) THEN
5021: END IF;
5022: Delete_Summary_Task
5023: ( p_api_version => l_api_version,
5024: p_init_msg_list => p_init_msg_list,
5025: p_commit => Fnd_Api.g_false,
5026: p_validation_level => p_validation_level,
5027: p_module_type => p_module_type,
5028: p_visit_task_id => p_visit_task_id,
5029: x_return_status => l_return_status,
5046: END IF;
5047: AHL_VWP_PLAN_TASKS_PVT.Delete_Planned_Task
5048: ( p_api_version => l_api_version,
5049: p_init_msg_list => p_init_msg_list,
5050: p_commit => Fnd_Api.g_false,
5051: p_validation_level => p_validation_level,
5052: p_module_type => p_module_type,
5053: p_visit_task_id => p_visit_task_id,
5054: x_return_status => l_return_status,
5071: END IF;
5072: AHL_VWP_UNPLAN_TASKS_PVT.Delete_Unplanned_Task
5073: ( p_api_version => l_api_version,
5074: p_init_msg_list => p_init_msg_list,
5075: p_commit => Fnd_Api.g_false,
5076: p_validation_level => p_validation_level,
5077: p_module_type => p_module_type,
5078: p_visit_task_id => p_visit_task_id,
5079: x_return_status => l_return_status,
5096: END IF;
5097: Delete_Unassociated_Task
5098: (p_api_version => l_api_version,
5099: p_init_msg_list => p_init_msg_list,
5100: p_commit => Fnd_Api.g_false,
5101: p_validation_level => p_validation_level,
5102: p_module_type => p_module_type,
5103: p_visit_task_id => p_visit_task_id,
5104: x_return_status => l_return_status,
5114: END IF;
5115:
5116: l_msg_count := Fnd_Msg_Pub.count_msg;
5117:
5118: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5119: x_msg_count := l_msg_count;
5120: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5121: RAISE Fnd_Api.G_EXC_ERROR;
5122: END IF;
5116: l_msg_count := Fnd_Msg_Pub.count_msg;
5117:
5118: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5119: x_msg_count := l_msg_count;
5120: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5121: RAISE Fnd_Api.G_EXC_ERROR;
5122: END IF;
5123:
5124: -- Added cxcheng POST11510--------------
5117:
5118: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5119: x_msg_count := l_msg_count;
5120: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5121: RAISE Fnd_Api.G_EXC_ERROR;
5122: END IF;
5123:
5124: -- Added cxcheng POST11510--------------
5125: --Now adjust the times derivation for entire visit task could delete at
5131: 'Before Calling AHL_VWP_TIMES_PVT.calculate_Task_Times');
5132: END IF;
5133:
5134: AHL_VWP_TIMES_PVT.calculate_Task_Times(p_api_version => 1.0,
5135: p_init_msg_list => Fnd_Api.G_FALSE,
5136: p_commit => Fnd_Api.G_FALSE,
5137: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
5138: x_return_status => l_return_status,
5139: x_msg_count => l_msg_count,
5132: END IF;
5133:
5134: AHL_VWP_TIMES_PVT.calculate_Task_Times(p_api_version => 1.0,
5135: p_init_msg_list => Fnd_Api.G_FALSE,
5136: p_commit => Fnd_Api.G_FALSE,
5137: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
5138: x_return_status => l_return_status,
5139: x_msg_count => l_msg_count,
5140: x_msg_data => l_msg_data,
5133:
5134: AHL_VWP_TIMES_PVT.calculate_Task_Times(p_api_version => 1.0,
5135: p_init_msg_list => Fnd_Api.G_FALSE,
5136: p_commit => Fnd_Api.G_FALSE,
5137: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
5138: x_return_status => l_return_status,
5139: x_msg_count => l_msg_count,
5140: x_msg_data => l_msg_data,
5141: p_visit_id => c_task_rec.visit_id);
5154:
5155: /* Operation flag changed to 'U' From 'R' by mpothuku on 02/07/05 */
5156: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
5157: (p_api_version => p_api_version,
5158: p_init_msg_list => Fnd_Api.G_FALSE,
5159: p_commit => Fnd_Api.G_FALSE,
5160: p_visit_id => c_task_rec.visit_id,
5161: p_visit_task_id => NULL,
5162: p_org_id => NULL,
5155: /* Operation flag changed to 'U' From 'R' by mpothuku on 02/07/05 */
5156: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials
5157: (p_api_version => p_api_version,
5158: p_init_msg_list => Fnd_Api.G_FALSE,
5159: p_commit => Fnd_Api.G_FALSE,
5160: p_visit_id => c_task_rec.visit_id,
5161: p_visit_task_id => NULL,
5162: p_org_id => NULL,
5163: p_start_date => NULL,
5172: L_DEBUG_KEY,
5173: 'After Calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials, Return Status = ' || l_return_status);
5174: END IF;
5175:
5176: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5177: x_msg_count := l_msg_count;
5178: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5179: RAISE Fnd_Api.G_EXC_ERROR;
5180: END IF;
5174: END IF;
5175:
5176: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5177: x_msg_count := l_msg_count;
5178: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5179: RAISE Fnd_Api.G_EXC_ERROR;
5180: END IF;
5181:
5182: -- post 11.5.10
5175:
5176: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5177: x_msg_count := l_msg_count;
5178: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5179: RAISE Fnd_Api.G_EXC_ERROR;
5180: END IF;
5181:
5182: -- post 11.5.10
5183: --yazhou start
5232: CS_ServiceRequest_PUB.Update_Status
5233: (
5234: p_api_version => 2.0,
5235: p_init_msg_list => p_init_msg_list,
5236: p_commit => FND_API.G_FALSE,
5237: p_resp_appl_id => NULL,
5238: p_resp_id => NULL,
5239: p_user_id => NULL,
5240: p_login_id => NULL,
5240: p_login_id => NULL,
5241: p_status_id => 1, --OPEN
5242: p_closed_date => NULL,
5243: p_audit_comments => NULL,
5244: p_called_by_workflow => FND_API.G_FALSE,
5245: p_workflow_process_id => NULL,
5246: p_comments => NULL,
5247: p_public_comment_flag => FND_API.G_FALSE,
5248: p_validate_sr_closure => 'N',
5243: p_audit_comments => NULL,
5244: p_called_by_workflow => FND_API.G_FALSE,
5245: p_workflow_process_id => NULL,
5246: p_comments => NULL,
5247: p_public_comment_flag => FND_API.G_FALSE,
5248: p_validate_sr_closure => 'N',
5249: p_auto_close_child_entities => 'N',
5250: p_request_id => NULL,
5251: p_request_number => c_sr_ovn_rec.incident_number,
5265: END IF;
5266:
5267: l_msg_count := Fnd_Msg_Pub.count_msg;
5268:
5269: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5270: x_msg_count := l_msg_count;
5271: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5272: RAISE Fnd_Api.G_EXC_ERROR;
5273: END IF;
5267: l_msg_count := Fnd_Msg_Pub.count_msg;
5268:
5269: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5270: x_msg_count := l_msg_count;
5271: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5272: RAISE Fnd_Api.G_EXC_ERROR;
5273: END IF;
5274: END IF;
5275:
5268:
5269: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5270: x_msg_count := l_msg_count;
5271: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5272: RAISE Fnd_Api.G_EXC_ERROR;
5273: END IF;
5274: END IF;
5275:
5276: END IF;
5282: p_visit_id =>c_visit_rec.visit_id,
5283: p_flag =>'Y',
5284: x_return_status =>x_return_status);
5285:
5286: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5287: RAISE FND_API.G_EXC_ERROR;
5288: END IF;
5289: END IF;
5290: ------------------------End of API Body------------------------------------
5283: p_flag =>'Y',
5284: x_return_status =>x_return_status);
5285:
5286: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5287: RAISE FND_API.G_EXC_ERROR;
5288: END IF;
5289: END IF;
5290: ------------------------End of API Body------------------------------------
5291:
5291:
5292: --Standard check to count messages
5293: l_msg_count := Fnd_Msg_Pub.count_msg;
5294:
5295: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5296: x_msg_count := l_msg_count;
5297: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5298: RAISE Fnd_Api.G_EXC_ERROR;
5299: END IF;
5293: l_msg_count := Fnd_Msg_Pub.count_msg;
5294:
5295: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5296: x_msg_count := l_msg_count;
5297: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5298: RAISE Fnd_Api.G_EXC_ERROR;
5299: END IF;
5300:
5301: --Standard check for commit
5294:
5295: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5296: x_msg_count := l_msg_count;
5297: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5298: RAISE Fnd_Api.G_EXC_ERROR;
5299: END IF;
5300:
5301: --Standard check for commit
5302: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
5298: RAISE Fnd_Api.G_EXC_ERROR;
5299: END IF;
5300:
5301: --Standard check for commit
5302: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
5303: COMMIT;
5304: END IF;
5305:
5306: IF (l_log_procedure >= l_log_current_level) THEN
5309: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
5310: END IF;
5311:
5312: EXCEPTION
5313: WHEN Fnd_Api.g_exc_error THEN
5314: ROLLBACK TO Delete_Task;
5315: x_return_status := Fnd_Api.g_ret_sts_error;
5316: Fnd_Msg_Pub.count_and_get (
5317: p_encoded => Fnd_Api.g_false,
5311:
5312: EXCEPTION
5313: WHEN Fnd_Api.g_exc_error THEN
5314: ROLLBACK TO Delete_Task;
5315: x_return_status := Fnd_Api.g_ret_sts_error;
5316: Fnd_Msg_Pub.count_and_get (
5317: p_encoded => Fnd_Api.g_false,
5318: p_count => x_msg_count,
5319: p_data => x_msg_data
5313: WHEN Fnd_Api.g_exc_error THEN
5314: ROLLBACK TO Delete_Task;
5315: x_return_status := Fnd_Api.g_ret_sts_error;
5316: Fnd_Msg_Pub.count_and_get (
5317: p_encoded => Fnd_Api.g_false,
5318: p_count => x_msg_count,
5319: p_data => x_msg_data
5320: );
5321: WHEN Fnd_Api.g_exc_unexpected_error THEN
5317: p_encoded => Fnd_Api.g_false,
5318: p_count => x_msg_count,
5319: p_data => x_msg_data
5320: );
5321: WHEN Fnd_Api.g_exc_unexpected_error THEN
5322: ROLLBACK TO Delete_Task;
5323: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5324: Fnd_Msg_Pub.count_and_get (
5325: p_encoded => Fnd_Api.g_false,
5319: p_data => x_msg_data
5320: );
5321: WHEN Fnd_Api.g_exc_unexpected_error THEN
5322: ROLLBACK TO Delete_Task;
5323: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5324: Fnd_Msg_Pub.count_and_get (
5325: p_encoded => Fnd_Api.g_false,
5326: p_count => x_msg_count,
5327: p_data => x_msg_data
5321: WHEN Fnd_Api.g_exc_unexpected_error THEN
5322: ROLLBACK TO Delete_Task;
5323: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5324: Fnd_Msg_Pub.count_and_get (
5325: p_encoded => Fnd_Api.g_false,
5326: p_count => x_msg_count,
5327: p_data => x_msg_data
5328: );
5329: WHEN OTHERS THEN
5327: p_data => x_msg_data
5328: );
5329: WHEN OTHERS THEN
5330: ROLLBACK TO Delete_Task;
5331: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5332: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5333: THEN
5334: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5335: END IF;
5333: THEN
5334: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5335: END IF;
5336: Fnd_Msg_Pub.count_and_get (
5337: p_encoded => Fnd_Api.g_false,
5338: p_count => x_msg_count,
5339: p_data => x_msg_data
5340: );
5341: END Delete_Task;
5349: --------------------------------------------------------------------
5350:
5351: PROCEDURE Delete_Unassociated_Task (
5352: p_api_version IN NUMBER,
5353: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5354: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5355: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5356: p_module_type IN VARCHAR2 := 'JSP',
5357: p_visit_task_ID IN NUMBER,
5350:
5351: PROCEDURE Delete_Unassociated_Task (
5352: p_api_version IN NUMBER,
5353: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5354: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5355: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5356: p_module_type IN VARCHAR2 := 'JSP',
5357: p_visit_task_ID IN NUMBER,
5358: x_return_status OUT NOCOPY VARCHAR2,
5351: PROCEDURE Delete_Unassociated_Task (
5352: p_api_version IN NUMBER,
5353: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5354: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5355: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5356: p_module_type IN VARCHAR2 := 'JSP',
5357: p_visit_task_ID IN NUMBER,
5358: x_return_status OUT NOCOPY VARCHAR2,
5359: x_msg_count OUT NOCOPY NUMBER,
5432:
5433: --------------------- initialize -----------------------
5434: SAVEPOINT Delete_Unassociated_Task;
5435:
5436: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
5437: Fnd_Msg_Pub.initialize;
5438: END IF;
5439:
5440: -- Initialize API return status to success
5437: Fnd_Msg_Pub.initialize;
5438: END IF;
5439:
5440: -- Initialize API return status to success
5441: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5442:
5443: -- Standard call to check for call compatibility.
5444: IF NOT Fnd_Api.compatible_api_call(
5445: l_api_version,
5440: -- Initialize API return status to success
5441: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5442:
5443: -- Standard call to check for call compatibility.
5444: IF NOT Fnd_Api.compatible_api_call(
5445: l_api_version,
5446: p_api_version,
5447: l_api_name,
5448: G_PKG_NAME
5446: p_api_version,
5447: l_api_name,
5448: G_PKG_NAME
5449: ) THEN
5450: RAISE Fnd_Api.g_exc_unexpected_error;
5451: END IF;
5452:
5453: ------------------------Start of API Body------------------------------------
5454: IF (l_log_statement >= l_log_current_level) THEN
5466: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5467: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
5468: Fnd_Msg_Pub.ADD;
5469: END IF;
5470: RAISE Fnd_Api.g_exc_error;
5471: END IF;
5472: CLOSE c_Task;
5473:
5474: -- To find the visit related information
5491:
5492: l_msg_count := FND_MSG_PUB.count_msg;
5493: IF l_msg_count > 0 THEN
5494: x_msg_count := l_msg_count;
5495: x_return_status := FND_API.G_RET_STS_ERROR;
5496: RAISE FND_API.G_EXC_ERROR;
5497: END IF;
5498:
5499: l_workorder_rec.wip_entity_id := null;
5492: l_msg_count := FND_MSG_PUB.count_msg;
5493: IF l_msg_count > 0 THEN
5494: x_msg_count := l_msg_count;
5495: x_return_status := FND_API.G_RET_STS_ERROR;
5496: RAISE FND_API.G_EXC_ERROR;
5497: END IF;
5498:
5499: l_workorder_rec.wip_entity_id := null;
5500: l_workorder_rec.STATUS_CODE:='22'; --Deleted Status Refer DLD to Verify.
5506: END IF;
5507: AHL_PRD_WORKORDER_PVT.update_job
5508: (
5509: p_api_version => 1.0,
5510: p_init_msg_list => fnd_api.g_false,
5511: p_commit => fnd_api.g_false,
5512: p_validation_level => p_validation_level,
5513: p_default => fnd_api.g_false,
5514: p_module_type => NULL,
5507: AHL_PRD_WORKORDER_PVT.update_job
5508: (
5509: p_api_version => 1.0,
5510: p_init_msg_list => fnd_api.g_false,
5511: p_commit => fnd_api.g_false,
5512: p_validation_level => p_validation_level,
5513: p_default => fnd_api.g_false,
5514: p_module_type => NULL,
5515: x_return_status => x_return_status,
5509: p_api_version => 1.0,
5510: p_init_msg_list => fnd_api.g_false,
5511: p_commit => fnd_api.g_false,
5512: p_validation_level => p_validation_level,
5513: p_default => fnd_api.g_false,
5514: p_module_type => NULL,
5515: x_return_status => x_return_status,
5516: x_msg_count => x_msg_count,
5517: x_msg_data => x_msg_data,
5526: 'After Calling AHL_PRD_WORKORDER_PVT.update_job, Return Status = ' || x_return_status);
5527: END IF;
5528:
5529: l_msg_count := FND_MSG_PUB.count_msg;
5530: IF l_msg_count > 0 OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5531: x_msg_count := l_msg_count;
5532: x_return_status := FND_API.G_RET_STS_ERROR;
5533: RAISE FND_API.G_EXC_ERROR;
5534: END IF;
5528:
5529: l_msg_count := FND_MSG_PUB.count_msg;
5530: IF l_msg_count > 0 OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5531: x_msg_count := l_msg_count;
5532: x_return_status := FND_API.G_RET_STS_ERROR;
5533: RAISE FND_API.G_EXC_ERROR;
5534: END IF;
5535:
5536: ELSE
5529: l_msg_count := FND_MSG_PUB.count_msg;
5530: IF l_msg_count > 0 OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5531: x_msg_count := l_msg_count;
5532: x_return_status := FND_API.G_RET_STS_ERROR;
5533: RAISE FND_API.G_EXC_ERROR;
5534: END IF;
5535:
5536: ELSE
5537: -- if status is not draft
5536: ELSE
5537: -- if status is not draft
5538: Fnd_Message.set_name ('AHL', 'AHL_VWP_TSK_CANNOT_DEL');
5539: Fnd_Msg_Pub.ADD;
5540: RAISE FND_API.G_EXC_ERROR;
5541: END IF; -- End of Job Status
5542: CLOSE c_workorders;
5543:
5544: ELSE
5565: (p_visit_task_id =>l_task_Id,
5566: x_return_status =>x_return_status
5567: );
5568:
5569: IF NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5570: x_msg_count := l_msg_count;
5571: x_return_status := FND_API.G_RET_STS_ERROR;
5572: RAISE FND_API.G_EXC_ERROR;
5573: END IF;
5567: );
5568:
5569: IF NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5570: x_msg_count := l_msg_count;
5571: x_return_status := FND_API.G_RET_STS_ERROR;
5572: RAISE FND_API.G_EXC_ERROR;
5573: END IF;
5574:
5575: -- To find if task deleted from a visit in the Primary Plan,
5568:
5569: IF NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5570: x_msg_count := l_msg_count;
5571: x_return_status := FND_API.G_RET_STS_ERROR;
5572: RAISE FND_API.G_EXC_ERROR;
5573: END IF;
5574:
5575: -- To find if task deleted from a visit in the Primary Plan,
5576: -- then any task associated to it in a simulation visit must have the association removed.
5622: END IF;
5623: AHL_VWP_PROJ_PROD_PVT.Delete_Task_to_Project(
5624: /*p_api_version => l_api_version,
5625: p_init_msg_list => p_init_msg_list,
5626: p_commit => Fnd_Api.g_false,
5627: p_validation_level => p_validation_level,
5628: p_module_type => p_module_type,*/
5629: p_visit_task_id => c_task_rec.Visit_Task_ID,
5630: x_return_status => l_return_status);
5631: /*x_msg_count => x_msg_count,
5632: x_msg_data => x_msg_data);*/
5633:
5634: l_msg_count := FND_MSG_PUB.count_msg;
5635: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5636: x_msg_count := l_msg_count;
5637: x_return_status := FND_API.G_RET_STS_ERROR;
5638: RAISE FND_API.G_EXC_ERROR;
5639: END IF;
5633:
5634: l_msg_count := FND_MSG_PUB.count_msg;
5635: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5636: x_msg_count := l_msg_count;
5637: x_return_status := FND_API.G_RET_STS_ERROR;
5638: RAISE FND_API.G_EXC_ERROR;
5639: END IF;
5640: END IF;
5641:
5634: l_msg_count := FND_MSG_PUB.count_msg;
5635: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5636: x_msg_count := l_msg_count;
5637: x_return_status := FND_API.G_RET_STS_ERROR;
5638: RAISE FND_API.G_EXC_ERROR;
5639: END IF;
5640: END IF;
5641:
5642: IF (l_log_statement >= l_log_current_level) THEN
5655: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
5656: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
5657: Fnd_Msg_Pub.ADD;
5658: END IF;
5659: RAISE Fnd_Api.g_exc_error;
5660: END IF;
5661:
5662: -- Delete task base (AHL_VISIT_TASKS_B) table data
5663: DELETE FROM Ahl_Visit_Tasks_B
5665:
5666: IF (SQL%NOTFOUND) THEN
5667: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
5668: Fnd_Msg_Pub.ADD;
5669: RAISE Fnd_Api.g_exc_error;
5670: END IF;
5671:
5672: ELSE
5673: UPDATE AHL_VISIT_TASKS_B
5683:
5684: END IF; -- End of l_workorder_present flag check
5685:
5686: ------------------------End of API Body------------------------------------
5687: IF Fnd_Api.to_boolean (p_commit) THEN
5688: COMMIT;
5689: END IF;
5690:
5691: Fnd_Msg_Pub.count_and_get (
5688: COMMIT;
5689: END IF;
5690:
5691: Fnd_Msg_Pub.count_and_get (
5692: p_encoded => Fnd_Api.g_false,
5693: p_count => x_msg_count,
5694: p_data => x_msg_data
5695: );
5696:
5699: L_DEBUG_KEY ||'.end',
5700: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
5701: END IF;
5702: EXCEPTION
5703: WHEN Fnd_Api.g_exc_error THEN
5704: ROLLBACK TO Delete_Unassociated_Task;
5705: x_return_status := Fnd_Api.g_ret_sts_error;
5706: Fnd_Msg_Pub.count_and_get (
5707: p_encoded => Fnd_Api.g_false,
5701: END IF;
5702: EXCEPTION
5703: WHEN Fnd_Api.g_exc_error THEN
5704: ROLLBACK TO Delete_Unassociated_Task;
5705: x_return_status := Fnd_Api.g_ret_sts_error;
5706: Fnd_Msg_Pub.count_and_get (
5707: p_encoded => Fnd_Api.g_false,
5708: p_count => x_msg_count,
5709: p_data => x_msg_data
5703: WHEN Fnd_Api.g_exc_error THEN
5704: ROLLBACK TO Delete_Unassociated_Task;
5705: x_return_status := Fnd_Api.g_ret_sts_error;
5706: Fnd_Msg_Pub.count_and_get (
5707: p_encoded => Fnd_Api.g_false,
5708: p_count => x_msg_count,
5709: p_data => x_msg_data
5710: );
5711: WHEN Fnd_Api.g_exc_unexpected_error THEN
5707: p_encoded => Fnd_Api.g_false,
5708: p_count => x_msg_count,
5709: p_data => x_msg_data
5710: );
5711: WHEN Fnd_Api.g_exc_unexpected_error THEN
5712: ROLLBACK TO Delete_Unassociated_Task;
5713: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5714: Fnd_Msg_Pub.count_and_get (
5715: p_encoded => Fnd_Api.g_false,
5709: p_data => x_msg_data
5710: );
5711: WHEN Fnd_Api.g_exc_unexpected_error THEN
5712: ROLLBACK TO Delete_Unassociated_Task;
5713: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5714: Fnd_Msg_Pub.count_and_get (
5715: p_encoded => Fnd_Api.g_false,
5716: p_count => x_msg_count,
5717: p_data => x_msg_data
5711: WHEN Fnd_Api.g_exc_unexpected_error THEN
5712: ROLLBACK TO Delete_Unassociated_Task;
5713: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5714: Fnd_Msg_Pub.count_and_get (
5715: p_encoded => Fnd_Api.g_false,
5716: p_count => x_msg_count,
5717: p_data => x_msg_data
5718: );
5719: WHEN OTHERS THEN
5717: p_data => x_msg_data
5718: );
5719: WHEN OTHERS THEN
5720: ROLLBACK TO Delete_Unassociated_Task;
5721: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5722: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5723: THEN
5724: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5725: END IF;
5723: THEN
5724: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5725: END IF;
5726: Fnd_Msg_Pub.count_and_get (
5727: p_encoded => Fnd_Api.g_false,
5728: p_count => x_msg_count,
5729: p_data => x_msg_data
5730: );
5731: END Delete_Unassociated_Task;
5740: --------------------------------------------------------------------
5741:
5742: PROCEDURE Delete_SR_Task (
5743: p_api_version IN NUMBER,
5744: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5745: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5746: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5747: p_module_type IN VARCHAR2:= 'JSP',
5748: p_visit_task_ID IN NUMBER,
5741:
5742: PROCEDURE Delete_SR_Task (
5743: p_api_version IN NUMBER,
5744: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5745: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5746: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5747: p_module_type IN VARCHAR2:= 'JSP',
5748: p_visit_task_ID IN NUMBER,
5749: x_return_status OUT NOCOPY VARCHAR2,
5742: PROCEDURE Delete_SR_Task (
5743: p_api_version IN NUMBER,
5744: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
5745: p_commit IN VARCHAR2 := Fnd_Api.g_false,
5746: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
5747: p_module_type IN VARCHAR2:= 'JSP',
5748: p_visit_task_ID IN NUMBER,
5749: x_return_status OUT NOCOPY VARCHAR2,
5750: x_msg_count OUT NOCOPY NUMBER,
5829: END IF;
5830:
5831: SAVEPOINT Delete_SR_Task;
5832:
5833: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
5834: Fnd_Msg_Pub.initialize;
5835: END IF;
5836:
5837: -- Initialize API return status to success
5835: END IF;
5836:
5837: -- Initialize API return status to success
5838:
5839: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5840:
5841: -- Standard call to check for call compatibility.
5842: IF NOT Fnd_Api.compatible_api_call(L_api_version,p_api_version,
5843: l_api_name, G_PKG_NAME)
5838:
5839: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5840:
5841: -- Standard call to check for call compatibility.
5842: IF NOT Fnd_Api.compatible_api_call(L_api_version,p_api_version,
5843: l_api_name, G_PKG_NAME)
5844: THEN
5845: RAISE Fnd_Api.g_exc_unexpected_error;
5846: END IF;
5841: -- Standard call to check for call compatibility.
5842: IF NOT Fnd_Api.compatible_api_call(L_api_version,p_api_version,
5843: l_api_name, G_PKG_NAME)
5844: THEN
5845: RAISE Fnd_Api.g_exc_unexpected_error;
5846: END IF;
5847:
5848: ------------------------Start of API Body------------------------------------
5849: IF (l_log_statement >= l_log_current_level) THEN
5863: THEN
5864: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
5865: Fnd_Msg_Pub.ADD;
5866: END IF;
5867: RAISE Fnd_Api.g_exc_error;
5868: ELSE
5869: l_orgin_id :=c_task_rec.ORIGINATING_TASK_ID;
5870: l_cost_id :=c_task_rec.cost_parent_id;
5871: l_visit_id :=c_task_rec.visit_id;
5903: FND_MESSAGE.SET_TOKEN('Task_Number',c_task_rec.visit_task_number);
5904: Fnd_Msg_Pub.ADD;
5905: CLOSE c_workorders;
5906: CLOSE c_SR_tasks;
5907: RAISE fnd_Api.g_exc_error;
5908: -- IF STATUS IS NOT DRAFT RAISE ERROR.
5909: ELSIF c_workrec.status_code='17'
5910: THEN
5911:
5922: IF l_msg_count > 0 THEN
5923: CLOSE c_workorders;
5924: CLOSE c_SR_tasks;
5925: x_msg_count := l_msg_count;
5926: x_return_status := FND_API.G_RET_STS_ERROR;
5927: RAISE FND_API.G_EXC_ERROR;
5928: END IF;
5929: l_workorder_rec.wip_entity_id := null;
5930: l_workorder_rec.STATUS_CODE:='22'; --Deleted Status Refer DLD to Verify.
5923: CLOSE c_workorders;
5924: CLOSE c_SR_tasks;
5925: x_msg_count := l_msg_count;
5926: x_return_status := FND_API.G_RET_STS_ERROR;
5927: RAISE FND_API.G_EXC_ERROR;
5928: END IF;
5929: l_workorder_rec.wip_entity_id := null;
5930: l_workorder_rec.STATUS_CODE:='22'; --Deleted Status Refer DLD to Verify.
5931:
5937:
5938: AHL_PRD_WORKORDER_PVT.update_job
5939: (
5940: p_api_version =>1.0,
5941: p_init_msg_list =>fnd_api.g_false,
5942: p_commit =>fnd_api.g_false,
5943: p_validation_level =>p_validation_level,
5944: p_default =>fnd_api.g_false,
5945: p_module_type =>NULL,
5938: AHL_PRD_WORKORDER_PVT.update_job
5939: (
5940: p_api_version =>1.0,
5941: p_init_msg_list =>fnd_api.g_false,
5942: p_commit =>fnd_api.g_false,
5943: p_validation_level =>p_validation_level,
5944: p_default =>fnd_api.g_false,
5945: p_module_type =>NULL,
5946:
5940: p_api_version =>1.0,
5941: p_init_msg_list =>fnd_api.g_false,
5942: p_commit =>fnd_api.g_false,
5943: p_validation_level =>p_validation_level,
5944: p_default =>fnd_api.g_false,
5945: p_module_type =>NULL,
5946:
5947: x_return_status =>x_return_status,
5948: x_msg_count =>x_msg_count,
5959: 'After Calling AHL_PRD_WORKORDER_PVT.update_job, Return Status = ' || x_return_status);
5960: END IF;
5961:
5962: l_msg_count := FND_MSG_PUB.count_msg;
5963: IF l_msg_count > 0 OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5964: CLOSE c_workorders;
5965: CLOSE c_SR_tasks;
5966: x_msg_count := l_msg_count;
5967: x_return_status := FND_API.G_RET_STS_ERROR;
5963: IF l_msg_count > 0 OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5964: CLOSE c_workorders;
5965: CLOSE c_SR_tasks;
5966: x_msg_count := l_msg_count;
5967: x_return_status := FND_API.G_RET_STS_ERROR;
5968: RAISE FND_API.G_EXC_ERROR;
5969: END IF;
5970:
5971: END IF; -- End of If c_workrec.status_code<>'17' check
5964: CLOSE c_workorders;
5965: CLOSE c_SR_tasks;
5966: x_msg_count := l_msg_count;
5967: x_return_status := FND_API.G_RET_STS_ERROR;
5968: RAISE FND_API.G_EXC_ERROR;
5969: END IF;
5970:
5971: END IF; -- End of If c_workrec.status_code<>'17' check
5972:
5986: p_visit_task_id =>l_task_ID,
5987: x_return_status =>x_return_status
5988: );
5989:
5990: IF FND_MSG_PUB.count_msg>0 or NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5991: CLOSE c_SR_tasks;
5992: RAISE Fnd_Api.g_exc_error;
5993: END IF;
5994:
5988: );
5989:
5990: IF FND_MSG_PUB.count_msg>0 or NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5991: CLOSE c_SR_tasks;
5992: RAISE Fnd_Api.g_exc_error;
5993: END IF;
5994:
5995: IF (l_log_statement >= l_log_current_level) THEN
5996: fnd_log.string(l_log_statement,
6025:
6026: AHL_VWP_PROJ_PROD_PVT.Delete_Task_to_Project(
6027: /* p_api_version => l_api_version,
6028: p_init_msg_list => p_init_msg_list,
6029: p_commit => Fnd_Api.g_false,
6030: p_validation_level => p_validation_level,
6031: p_module_type => p_module_type,*/
6032: p_visit_task_id => l_task_id,
6033: x_return_status => l_return_status);
6040: 'After Calling AHL_VWP_PROJ_PROD_PVT.Delete_Task_to_Project, Return Status = ' || l_return_status);
6041: END IF;
6042:
6043: IF (fnd_msg_pub.count_msg > 0) OR
6044: NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6045: CLOSE c_SR_tasks;
6046: RAISE Fnd_Api.g_exc_error;
6047: END IF;
6048:
6042:
6043: IF (fnd_msg_pub.count_msg > 0) OR
6044: NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6045: CLOSE c_SR_tasks;
6046: RAISE Fnd_Api.g_exc_error;
6047: END IF;
6048:
6049: END IF;
6050:
6085: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
6086: Fnd_Msg_Pub.ADD;
6087: END IF;
6088: CLOSE c_SR_tasks;
6089: RAISE Fnd_Api.g_exc_error;
6090: END IF;
6091:
6092: -- Delete task base (AHL_VISIT_TASKS_B) table data
6093:
6106: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
6107: Fnd_Msg_Pub.ADD;
6108: END IF;
6109: CLOSE c_SR_tasks;
6110: RAISE Fnd_Api.g_exc_error;
6111: END IF;
6112: END IF;
6113:
6114: IF NVL(c_visit_rec.actual_price,0) <> 0
6143: L_DEBUG_KEY ||'.end',
6144: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
6145: END IF;
6146: EXCEPTION
6147: WHEN Fnd_Api.g_exc_error THEN
6148: ROLLBACK TO Delete_SR_Task;
6149: x_return_status := Fnd_Api.g_ret_sts_error;
6150: Fnd_Msg_Pub.count_and_get (
6151: p_encoded => Fnd_Api.g_false,
6145: END IF;
6146: EXCEPTION
6147: WHEN Fnd_Api.g_exc_error THEN
6148: ROLLBACK TO Delete_SR_Task;
6149: x_return_status := Fnd_Api.g_ret_sts_error;
6150: Fnd_Msg_Pub.count_and_get (
6151: p_encoded => Fnd_Api.g_false,
6152: p_count => x_msg_count,
6153: p_data => x_msg_data
6147: WHEN Fnd_Api.g_exc_error THEN
6148: ROLLBACK TO Delete_SR_Task;
6149: x_return_status := Fnd_Api.g_ret_sts_error;
6150: Fnd_Msg_Pub.count_and_get (
6151: p_encoded => Fnd_Api.g_false,
6152: p_count => x_msg_count,
6153: p_data => x_msg_data
6154: );
6155: WHEN Fnd_Api.g_exc_unexpected_error THEN
6151: p_encoded => Fnd_Api.g_false,
6152: p_count => x_msg_count,
6153: p_data => x_msg_data
6154: );
6155: WHEN Fnd_Api.g_exc_unexpected_error THEN
6156: ROLLBACK TO Delete_SR_Task;
6157: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6158: Fnd_Msg_Pub.count_and_get (
6159: p_encoded => Fnd_Api.g_false,
6153: p_data => x_msg_data
6154: );
6155: WHEN Fnd_Api.g_exc_unexpected_error THEN
6156: ROLLBACK TO Delete_SR_Task;
6157: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6158: Fnd_Msg_Pub.count_and_get (
6159: p_encoded => Fnd_Api.g_false,
6160: p_count => x_msg_count,
6161: p_data => x_msg_data
6155: WHEN Fnd_Api.g_exc_unexpected_error THEN
6156: ROLLBACK TO Delete_SR_Task;
6157: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6158: Fnd_Msg_Pub.count_and_get (
6159: p_encoded => Fnd_Api.g_false,
6160: p_count => x_msg_count,
6161: p_data => x_msg_data
6162: );
6163: WHEN OTHERS THEN
6161: p_data => x_msg_data
6162: );
6163: WHEN OTHERS THEN
6164: ROLLBACK TO Delete_SR_Task;
6165: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6166: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6167: THEN
6168: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6169: END IF;
6167: THEN
6168: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6169: END IF;
6170: Fnd_Msg_Pub.count_and_get (
6171: p_encoded => Fnd_Api.g_false,
6172: p_count => x_msg_count,
6173: p_data => x_msg_data
6174: );
6175: END Delete_SR_Task;
6182: -- To delete Summary tasks for the Maintenace visit.
6183: --------------------------------------------------------------------
6184: PROCEDURE Delete_Summary_Task (
6185: p_api_version IN NUMBER,
6186: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
6187: p_commit IN VARCHAR2 := Fnd_Api.g_false,
6188: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
6189: p_module_type IN VARCHAR2:= 'JSP',
6190: p_visit_task_ID IN NUMBER,
6183: --------------------------------------------------------------------
6184: PROCEDURE Delete_Summary_Task (
6185: p_api_version IN NUMBER,
6186: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
6187: p_commit IN VARCHAR2 := Fnd_Api.g_false,
6188: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
6189: p_module_type IN VARCHAR2:= 'JSP',
6190: p_visit_task_ID IN NUMBER,
6191: x_return_status OUT NOCOPY VARCHAR2,
6184: PROCEDURE Delete_Summary_Task (
6185: p_api_version IN NUMBER,
6186: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
6187: p_commit IN VARCHAR2 := Fnd_Api.g_false,
6188: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
6189: p_module_type IN VARCHAR2:= 'JSP',
6190: p_visit_task_ID IN NUMBER,
6191: x_return_status OUT NOCOPY VARCHAR2,
6192: x_msg_count OUT NOCOPY NUMBER,
6286: --------------------- initialize -----------------------
6287: SAVEPOINT Delete_Summary_Task;
6288: -- Check if API is called in debug mode. If yes, enable debug.
6289:
6290: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
6291: Fnd_Msg_Pub.initialize;
6292: END IF;
6293:
6294: -- Initialize API return status to success
6292: END IF;
6293:
6294: -- Initialize API return status to success
6295:
6296: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6297:
6298: -- Standard call to check for call compatibility.
6299: IF NOT Fnd_Api.compatible_api_call(L_api_version,p_api_version,
6300: l_api_name, G_PKG_NAME)
6295:
6296: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6297:
6298: -- Standard call to check for call compatibility.
6299: IF NOT Fnd_Api.compatible_api_call(L_api_version,p_api_version,
6300: l_api_name, G_PKG_NAME)
6301: THEN
6302: RAISE Fnd_Api.g_exc_unexpected_error;
6303: END IF;
6298: -- Standard call to check for call compatibility.
6299: IF NOT Fnd_Api.compatible_api_call(L_api_version,p_api_version,
6300: l_api_name, G_PKG_NAME)
6301: THEN
6302: RAISE Fnd_Api.g_exc_unexpected_error;
6303: END IF;
6304:
6305: ------------------------Start of API Body------------------------------------
6306:
6321: THEN
6322: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
6323: Fnd_Msg_Pub.ADD;
6324: END IF;
6325: RAISE Fnd_Api.g_exc_error;
6326:
6327: END IF; -- End of if c_task%notfound then check
6328: CLOSE c_Task;
6329:
6348: 'Before Calling Delete_Summary_Task' );
6349: END IF;
6350: Delete_Summary_Task(
6351: p_api_version =>p_api_version,
6352: p_init_msg_list =>Fnd_Api.g_false,
6353: p_commit =>Fnd_Api.g_false,
6354: p_validation_level =>Fnd_Api.g_valid_level_full,
6355: p_module_type =>NULL,
6356: p_Visit_Task_Id =>l_origin_id,
6349: END IF;
6350: Delete_Summary_Task(
6351: p_api_version =>p_api_version,
6352: p_init_msg_list =>Fnd_Api.g_false,
6353: p_commit =>Fnd_Api.g_false,
6354: p_validation_level =>Fnd_Api.g_valid_level_full,
6355: p_module_type =>NULL,
6356: p_Visit_Task_Id =>l_origin_id,
6357: x_return_status =>x_return_status,
6350: Delete_Summary_Task(
6351: p_api_version =>p_api_version,
6352: p_init_msg_list =>Fnd_Api.g_false,
6353: p_commit =>Fnd_Api.g_false,
6354: p_validation_level =>Fnd_Api.g_valid_level_full,
6355: p_module_type =>NULL,
6356: p_Visit_Task_Id =>l_origin_id,
6357: x_return_status =>x_return_status,
6358: x_msg_count =>x_msg_count,
6363: L_DEBUG_KEY,
6364: 'After Calling Delete_Summary_Task, Return Status = ' || x_return_status);
6365: END IF;
6366:
6367: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
6368: RAISE Fnd_Api.G_EXC_ERROR;
6369: END IF;
6370: Else
6371: -- To find the visit related information
6364: 'After Calling Delete_Summary_Task, Return Status = ' || x_return_status);
6365: END IF;
6366:
6367: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
6368: RAISE Fnd_Api.G_EXC_ERROR;
6369: END IF;
6370: Else
6371: -- To find the visit related information
6372: OPEN c_Visit(c_task_rec.visit_id);
6376: IF (c_visit_rec.status_code <> 'PLANNING' and c_visit_rec.status_code <> 'PARTIALLY RELEASED')
6377: THEN
6378: Fnd_Message.set_name ('AHL', 'AHL_VWP_PLANNING_OPER');
6379: Fnd_Msg_Pub.ADD;
6380: RAISE fnd_Api.g_exc_error;
6381: END IF;
6382:
6383: l_unit_effectivity_id := null;
6384: l_task_type := null;
6420: FND_MESSAGE.SET_TOKEN('Task_Number',c_task_rec.visit_task_number);
6421: Fnd_Msg_Pub.ADD;
6422: CLOSE c_workorders;
6423: CLOSE c_all_tasks;
6424: RAISE fnd_Api.g_exc_error;
6425: -- IF STATUS IS NOT DRAFT RAISE ERROR.
6426: ELSIF c_workrec.status_code='17' THEN
6427: l_workorder_present :='Y';
6428: l_workorder_rec.workorder_id:=c_workrec.workorder_id;
6435: l_msg_count := FND_MSG_PUB.count_msg;
6436:
6437: IF l_msg_count > 0 THEN
6438: x_msg_count := l_msg_count;
6439: x_return_status := FND_API.G_RET_STS_ERROR;
6440: CLOSE c_workorders;
6441: CLOSE c_all_tasks;
6442: RAISE FND_API.G_EXC_ERROR;
6443: END IF;
6438: x_msg_count := l_msg_count;
6439: x_return_status := FND_API.G_RET_STS_ERROR;
6440: CLOSE c_workorders;
6441: CLOSE c_all_tasks;
6442: RAISE FND_API.G_EXC_ERROR;
6443: END IF;
6444:
6445: l_workorder_rec.wip_entity_id := null;
6446: l_workorder_rec.STATUS_CODE:='22'; --Deleted Status Refer DLD to Verify.
6453:
6454: AHL_PRD_WORKORDER_PVT.update_job
6455: (
6456: p_api_version =>1.0,
6457: p_init_msg_list =>fnd_api.g_false,
6458: p_commit =>fnd_api.g_false,
6459: p_validation_level =>p_validation_level,
6460: p_default =>fnd_api.g_false,
6461: p_module_type =>NULL,
6454: AHL_PRD_WORKORDER_PVT.update_job
6455: (
6456: p_api_version =>1.0,
6457: p_init_msg_list =>fnd_api.g_false,
6458: p_commit =>fnd_api.g_false,
6459: p_validation_level =>p_validation_level,
6460: p_default =>fnd_api.g_false,
6461: p_module_type =>NULL,
6462: x_return_status =>x_return_status,
6456: p_api_version =>1.0,
6457: p_init_msg_list =>fnd_api.g_false,
6458: p_commit =>fnd_api.g_false,
6459: p_validation_level =>p_validation_level,
6460: p_default =>fnd_api.g_false,
6461: p_module_type =>NULL,
6462: x_return_status =>x_return_status,
6463: x_msg_count =>x_msg_count,
6464: x_msg_data =>x_msg_data,
6473: 'After Calling AHL_PRD_WORKORDER_PVT.update_job, Return Status = ' || x_return_status );
6474: END IF;
6475:
6476: l_msg_count := FND_MSG_PUB.count_msg;
6477: IF l_msg_count > 0 OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6478: x_msg_count := l_msg_count;
6479: x_return_status := FND_API.G_RET_STS_ERROR;
6480: CLOSE c_workorders;
6481: CLOSE c_all_tasks;
6475:
6476: l_msg_count := FND_MSG_PUB.count_msg;
6477: IF l_msg_count > 0 OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6478: x_msg_count := l_msg_count;
6479: x_return_status := FND_API.G_RET_STS_ERROR;
6480: CLOSE c_workorders;
6481: CLOSE c_all_tasks;
6482: RAISE FND_API.G_EXC_ERROR;
6483: END IF;
6478: x_msg_count := l_msg_count;
6479: x_return_status := FND_API.G_RET_STS_ERROR;
6480: CLOSE c_workorders;
6481: CLOSE c_all_tasks;
6482: RAISE FND_API.G_EXC_ERROR;
6483: END IF;
6484: END IF; -- End of If c_workrec.status_code<>'17' check
6485: END IF; -- End of if c_workorders%found check
6486: CLOSE c_workorders;
6497: p_visit_task_id =>l_task_ID,
6498: x_return_status =>x_return_status
6499: );
6500:
6501: IF NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6502: x_return_status := FND_API.G_RET_STS_ERROR;
6503: CLOSE c_all_tasks;
6504: RAISE FND_API.G_EXC_ERROR;
6505: END IF;
6498: x_return_status =>x_return_status
6499: );
6500:
6501: IF NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6502: x_return_status := FND_API.G_RET_STS_ERROR;
6503: CLOSE c_all_tasks;
6504: RAISE FND_API.G_EXC_ERROR;
6505: END IF;
6506:
6500:
6501: IF NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6502: x_return_status := FND_API.G_RET_STS_ERROR;
6503: CLOSE c_all_tasks;
6504: RAISE FND_API.G_EXC_ERROR;
6505: END IF;
6506:
6507: IF (l_log_statement >= l_log_current_level)THEN
6508: fnd_log.string(l_log_statement,
6539:
6540: AHL_VWP_PROJ_PROD_PVT.Delete_Task_to_Project(
6541: /* p_api_version => l_api_version,
6542: p_init_msg_list => p_init_msg_list,
6543: p_commit => Fnd_Api.g_false,
6544: p_validation_level => p_validation_level,
6545: p_module_type => p_module_type,*/
6546: p_visit_task_id => l_task_id,
6547: x_return_status => l_return_status);
6547: x_return_status => l_return_status);
6548: /* x_msg_count => x_msg_count,
6549: x_msg_data => x_msg_data);*/
6550:
6551: IF (fnd_msg_pub.count_msg > 0) OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6552: x_return_status := FND_API.G_RET_STS_ERROR;
6553: CLOSE c_all_tasks;
6554: RAISE FND_API.G_EXC_ERROR;
6555: END IF;
6548: /* x_msg_count => x_msg_count,
6549: x_msg_data => x_msg_data);*/
6550:
6551: IF (fnd_msg_pub.count_msg > 0) OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6552: x_return_status := FND_API.G_RET_STS_ERROR;
6553: CLOSE c_all_tasks;
6554: RAISE FND_API.G_EXC_ERROR;
6555: END IF;
6556:
6550:
6551: IF (fnd_msg_pub.count_msg > 0) OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6552: x_return_status := FND_API.G_RET_STS_ERROR;
6553: CLOSE c_all_tasks;
6554: RAISE FND_API.G_EXC_ERROR;
6555: END IF;
6556:
6557: END IF;
6558:
6609: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
6610: Fnd_Msg_Pub.ADD;
6611: END IF;
6612: CLOSE c_all_tasks;
6613: RAISE Fnd_Api.g_exc_error;
6614: END IF;
6615:
6616: -- Delete task base (AHL_VISIT_TASKS_B) table data
6617: IF (l_log_statement >= l_log_current_level)THEN
6629: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
6630: Fnd_Msg_Pub.ADD;
6631: END IF;
6632: CLOSE c_all_tasks;
6633: RAISE Fnd_Api.g_exc_error;
6634: END IF;
6635: END IF;
6636:
6637: IF NVL(c_visit_rec.actual_price,0) <> 0
6672:
6673: AHL_UMP_UNPLANNED_PVT.DELETE_UNIT_EFFECTIVITY
6674: (
6675: P_API_VERSION => p_api_version,
6676: p_init_msg_list => FND_API.G_FALSE,
6677: p_commit => FND_API.G_FALSE,
6678:
6679: X_RETURN_STATUS => l_return_status,
6680: X_MSG_COUNT => l_msg_count,
6673: AHL_UMP_UNPLANNED_PVT.DELETE_UNIT_EFFECTIVITY
6674: (
6675: P_API_VERSION => p_api_version,
6676: p_init_msg_list => FND_API.G_FALSE,
6677: p_commit => FND_API.G_FALSE,
6678:
6679: X_RETURN_STATUS => l_return_status,
6680: X_MSG_COUNT => l_msg_count,
6681: X_MSG_DATA => x_msg_data,
6685: fnd_log.string(l_log_statement,
6686: L_DEBUG_KEY,
6687: 'After DELETE_UNIT_EFFECTIVITY');
6688: END IF;
6689: IF (l_msg_count > 0) OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6690: x_return_status := FND_API.G_RET_STS_ERROR;
6691: RAISE FND_API.G_EXC_ERROR;
6692: END IF;
6693: ELSE
6686: L_DEBUG_KEY,
6687: 'After DELETE_UNIT_EFFECTIVITY');
6688: END IF;
6689: IF (l_msg_count > 0) OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6690: x_return_status := FND_API.G_RET_STS_ERROR;
6691: RAISE FND_API.G_EXC_ERROR;
6692: END IF;
6693: ELSE
6694: CLOSE check_unplanned_ue_assoc;
6687: 'After DELETE_UNIT_EFFECTIVITY');
6688: END IF;
6689: IF (l_msg_count > 0) OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6690: x_return_status := FND_API.G_RET_STS_ERROR;
6691: RAISE FND_API.G_EXC_ERROR;
6692: END IF;
6693: ELSE
6694: CLOSE check_unplanned_ue_assoc;
6695: END IF;
6705: END IF;
6706: Delete_SR_Task(
6707: p_api_version => p_api_version,
6708: p_init_msg_list => p_init_msg_list,
6709: p_commit => Fnd_Api.g_false,
6710: p_validation_level => p_validation_level,
6711: p_module_type => p_module_type,
6712: p_visit_task_ID => p_visit_task_ID,
6713: x_return_status => x_return_status,
6725: fnd_log.string(l_log_statement,
6726: L_DEBUG_KEY,
6727: 'Error raised in Delete_SR_Task');
6728: END IF;
6729: RAISE Fnd_Api.G_EXC_ERROR;
6730: END IF;
6731:
6732: ----------TO DELETE MANUALLY CREATED SUMMARY TASKS-------
6733: ELSIF L_MR_ID IS NULL
6794: AHL_VWP_PROJ_PROD_PVT.Delete_Task_to_Project
6795: (
6796: /* p_api_version => l_api_version,
6797: p_init_msg_list => p_init_msg_list,
6798: p_commit => Fnd_Api.g_false,
6799: p_validation_level => p_validation_level,
6800: p_module_type => p_module_type,*/
6801: p_visit_task_id => l_task_id,
6802: x_return_status => l_return_status);
6802: x_return_status => l_return_status);
6803: /* x_msg_count => x_msg_count,
6804: x_msg_data => x_msg_data);*/
6805:
6806: IF l_return_status <> Fnd_Api.g_ret_sts_success THEN
6807: x_return_status := Fnd_Api.g_ret_sts_error;
6808: RAISE Fnd_Api.G_EXC_ERROR;
6809: END IF;
6810:
6803: /* x_msg_count => x_msg_count,
6804: x_msg_data => x_msg_data);*/
6805:
6806: IF l_return_status <> Fnd_Api.g_ret_sts_success THEN
6807: x_return_status := Fnd_Api.g_ret_sts_error;
6808: RAISE Fnd_Api.G_EXC_ERROR;
6809: END IF;
6810:
6811: -- Update Task status to 'DELETED'
6804: x_msg_data => x_msg_data);*/
6805:
6806: IF l_return_status <> Fnd_Api.g_ret_sts_success THEN
6807: x_return_status := Fnd_Api.g_ret_sts_error;
6808: RAISE Fnd_Api.G_EXC_ERROR;
6809: END IF;
6810:
6811: -- Update Task status to 'DELETED'
6812: UPDATE AHL_VISIT_TASKS_B
6820:
6821: IF (SQL%NOTFOUND) THEN
6822: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
6823: Fnd_Msg_Pub.ADD;
6824: RAISE Fnd_Api.g_exc_error;
6825: END IF;
6826:
6827: -- Delete task base (AHL_VISIT_TASKS_B) table data
6828: IF (l_log_statement >= l_log_current_level) THEN
6836:
6837: IF (SQL%NOTFOUND) THEN
6838: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
6839: Fnd_Msg_Pub.ADD;
6840: RAISE Fnd_Api.g_exc_error;
6841: END IF;
6842:
6843: END IF;
6844:
6848: END IF; --End of if c_task_rec.mr_id is not null check
6849: END IF; --l_origin_id is null check
6850:
6851: ------------------------End of API Body------------------------------------
6852: IF Fnd_Api.to_boolean (p_commit) THEN
6853: COMMIT;
6854: END IF;
6855:
6856: Fnd_Msg_Pub.count_and_get (
6853: COMMIT;
6854: END IF;
6855:
6856: Fnd_Msg_Pub.count_and_get (
6857: p_encoded => Fnd_Api.g_false,
6858: p_count => x_msg_count,
6859: p_data => x_msg_data
6860: );
6861:
6865: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
6866: END IF;
6867:
6868: EXCEPTION
6869: WHEN Fnd_Api.g_exc_error THEN
6870: ROLLBACK TO Delete_Summary_Task;
6871: x_return_status := Fnd_Api.g_ret_sts_error;
6872: Fnd_Msg_Pub.count_and_get (
6873: p_encoded => Fnd_Api.g_false,
6867:
6868: EXCEPTION
6869: WHEN Fnd_Api.g_exc_error THEN
6870: ROLLBACK TO Delete_Summary_Task;
6871: x_return_status := Fnd_Api.g_ret_sts_error;
6872: Fnd_Msg_Pub.count_and_get (
6873: p_encoded => Fnd_Api.g_false,
6874: p_count => x_msg_count,
6875: p_data => x_msg_data
6869: WHEN Fnd_Api.g_exc_error THEN
6870: ROLLBACK TO Delete_Summary_Task;
6871: x_return_status := Fnd_Api.g_ret_sts_error;
6872: Fnd_Msg_Pub.count_and_get (
6873: p_encoded => Fnd_Api.g_false,
6874: p_count => x_msg_count,
6875: p_data => x_msg_data
6876: );
6877: WHEN Fnd_Api.g_exc_unexpected_error THEN
6873: p_encoded => Fnd_Api.g_false,
6874: p_count => x_msg_count,
6875: p_data => x_msg_data
6876: );
6877: WHEN Fnd_Api.g_exc_unexpected_error THEN
6878: ROLLBACK TO Delete_Summary_Task;
6879: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6880: Fnd_Msg_Pub.count_and_get (
6881: p_encoded => Fnd_Api.g_false,
6875: p_data => x_msg_data
6876: );
6877: WHEN Fnd_Api.g_exc_unexpected_error THEN
6878: ROLLBACK TO Delete_Summary_Task;
6879: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6880: Fnd_Msg_Pub.count_and_get (
6881: p_encoded => Fnd_Api.g_false,
6882: p_count => x_msg_count,
6883: p_data => x_msg_data
6877: WHEN Fnd_Api.g_exc_unexpected_error THEN
6878: ROLLBACK TO Delete_Summary_Task;
6879: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6880: Fnd_Msg_Pub.count_and_get (
6881: p_encoded => Fnd_Api.g_false,
6882: p_count => x_msg_count,
6883: p_data => x_msg_data
6884: );
6885: WHEN OTHERS THEN
6883: p_data => x_msg_data
6884: );
6885: WHEN OTHERS THEN
6886: ROLLBACK TO Delete_Summary_Task;
6887: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6888: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6889: THEN
6890: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6891: END IF;
6889: THEN
6890: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6891: END IF;
6892: Fnd_Msg_Pub.count_and_get (
6893: p_encoded => Fnd_Api.g_false,
6894: p_count => x_msg_count,
6895: p_data => x_msg_data
6896: );
6897: END Delete_Summary_Task;
6902: --
6903: --------------------------------------------------------------------
6904: PROCEDURE Search_Task (
6905: p_api_version IN NUMBER,
6906: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
6907: p_commit IN VARCHAR2 := Fnd_Api.g_false,
6908: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
6909: p_module_type IN VARCHAR2 := 'JSP',
6910: p_visit_id IN NUMBER,
6903: --------------------------------------------------------------------
6904: PROCEDURE Search_Task (
6905: p_api_version IN NUMBER,
6906: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
6907: p_commit IN VARCHAR2 := Fnd_Api.g_false,
6908: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
6909: p_module_type IN VARCHAR2 := 'JSP',
6910: p_visit_id IN NUMBER,
6911:
6904: PROCEDURE Search_Task (
6905: p_api_version IN NUMBER,
6906: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
6907: p_commit IN VARCHAR2 := Fnd_Api.g_false,
6908: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
6909: p_module_type IN VARCHAR2 := 'JSP',
6910: p_visit_id IN NUMBER,
6911:
6912: p_x_srch_task_tbl IN OUT NOCOPY Srch_Task_Tbl_Type,
6951: 'At the start of PL SQL procedure.');
6952: END IF;
6953:
6954: -- Initialize message list if p_init_msg_list is set to TRUE.
6955: IF Fnd_Api.to_boolean(p_init_msg_list)
6956: THEN
6957: Fnd_Msg_Pub.initialize;
6958: END IF;
6959:
6957: Fnd_Msg_Pub.initialize;
6958: END IF;
6959:
6960: -- Initialize API return status to success
6961: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6962:
6963: -- Standard call to check for call compatibility.
6964: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
6965: p_api_version,
6960: -- Initialize API return status to success
6961: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6962:
6963: -- Standard call to check for call compatibility.
6964: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
6965: p_api_version,
6966: l_api_name,G_PKG_NAME)
6967: THEN
6968: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6964: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
6965: p_api_version,
6966: l_api_name,G_PKG_NAME)
6967: THEN
6968: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6969: END IF;
6970: ---------------------------Start of Body-------------------------------------
6971: IF (l_log_statement >= l_log_current_level) THEN
6972: fnd_log.string(l_log_statement,
6977: FETCH c_visit INTO c_visit_rec;
6978: CLOSE c_visit;
6979:
6980: IF (c_visit_rec.START_DATE_TIME IS NOT NULL
6981: AND c_visit_rec.START_DATE_TIME <> Fnd_Api.G_MISS_DATE
6982: AND c_visit_rec.DEPARTMENT_ID IS NOT NULL
6983: AND c_visit_rec.DEPARTMENT_ID <> FND_API.G_MISS_NUM) THEN
6984:
6985: IF l_tasks_tbl.COUNT > 0 THEN
6979:
6980: IF (c_visit_rec.START_DATE_TIME IS NOT NULL
6981: AND c_visit_rec.START_DATE_TIME <> Fnd_Api.G_MISS_DATE
6982: AND c_visit_rec.DEPARTMENT_ID IS NOT NULL
6983: AND c_visit_rec.DEPARTMENT_ID <> FND_API.G_MISS_NUM) THEN
6984:
6985: IF l_tasks_tbl.COUNT > 0 THEN
6986: x := l_tasks_tbl.FIRST;
6987: LOOP
7037: l_msg_count := Fnd_Msg_Pub.count_msg;
7038:
7039: IF l_msg_count > 0 THEN
7040: x_msg_count := l_msg_count;
7041: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7042: RAISE Fnd_Api.G_EXC_ERROR;
7043: END IF;
7044:
7045: --Standard check for commit
7038:
7039: IF l_msg_count > 0 THEN
7040: x_msg_count := l_msg_count;
7041: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7042: RAISE Fnd_Api.G_EXC_ERROR;
7043: END IF;
7044:
7045: --Standard check for commit
7046: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
7042: RAISE Fnd_Api.G_EXC_ERROR;
7043: END IF;
7044:
7045: --Standard check for commit
7046: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
7047: COMMIT;
7048: END IF;
7049:
7050: IF (l_log_procedure >= l_log_current_level) THEN
7053: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
7054: END IF;
7055:
7056: EXCEPTION
7057: WHEN Fnd_Api.g_exc_error THEN
7058: ROLLBACK TO Search_Task;
7059: x_return_status := Fnd_Api.g_ret_sts_error;
7060: Fnd_Msg_Pub.count_and_get(
7061: p_encoded => Fnd_Api.g_false,
7055:
7056: EXCEPTION
7057: WHEN Fnd_Api.g_exc_error THEN
7058: ROLLBACK TO Search_Task;
7059: x_return_status := Fnd_Api.g_ret_sts_error;
7060: Fnd_Msg_Pub.count_and_get(
7061: p_encoded => Fnd_Api.g_false,
7062: p_count => x_msg_count,
7063: p_data => x_msg_data
7057: WHEN Fnd_Api.g_exc_error THEN
7058: ROLLBACK TO Search_Task;
7059: x_return_status := Fnd_Api.g_ret_sts_error;
7060: Fnd_Msg_Pub.count_and_get(
7061: p_encoded => Fnd_Api.g_false,
7062: p_count => x_msg_count,
7063: p_data => x_msg_data
7064: );
7065: WHEN Fnd_Api.g_exc_unexpected_error THEN
7061: p_encoded => Fnd_Api.g_false,
7062: p_count => x_msg_count,
7063: p_data => x_msg_data
7064: );
7065: WHEN Fnd_Api.g_exc_unexpected_error THEN
7066: ROLLBACK TO Search_Task;
7067: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7068: Fnd_Msg_Pub.count_and_get (
7069: p_encoded => Fnd_Api.g_false,
7063: p_data => x_msg_data
7064: );
7065: WHEN Fnd_Api.g_exc_unexpected_error THEN
7066: ROLLBACK TO Search_Task;
7067: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7068: Fnd_Msg_Pub.count_and_get (
7069: p_encoded => Fnd_Api.g_false,
7070: p_count => x_msg_count,
7071: p_data => x_msg_data
7065: WHEN Fnd_Api.g_exc_unexpected_error THEN
7066: ROLLBACK TO Search_Task;
7067: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7068: Fnd_Msg_Pub.count_and_get (
7069: p_encoded => Fnd_Api.g_false,
7070: p_count => x_msg_count,
7071: p_data => x_msg_data
7072: );
7073: WHEN OTHERS THEN
7071: p_data => x_msg_data
7072: );
7073: WHEN OTHERS THEN
7074: ROLLBACK TO Search_Task;
7075: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7076: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7077: THEN
7078: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7079: END IF;
7077: THEN
7078: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7079: END IF;
7080: Fnd_Msg_Pub.count_and_get (
7081: p_encoded => Fnd_Api.g_false,
7082: p_count => x_msg_count,
7083: p_data => x_msg_data
7084: );
7085: END Search_Task;
7092: --
7093: --------------------------------------------------------------------
7094: PROCEDURE Validate_Visit_Task (
7095: p_api_version IN NUMBER,
7096: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
7097: p_commit IN VARCHAR2 := Fnd_Api.g_false,
7098: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
7099: p_task_rec IN AHL_VWP_RULES_PVT.Task_Rec_Type,
7100:
7093: --------------------------------------------------------------------
7094: PROCEDURE Validate_Visit_Task (
7095: p_api_version IN NUMBER,
7096: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
7097: p_commit IN VARCHAR2 := Fnd_Api.g_false,
7098: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
7099: p_task_rec IN AHL_VWP_RULES_PVT.Task_Rec_Type,
7100:
7101: x_return_status OUT NOCOPY VARCHAR2,
7094: PROCEDURE Validate_Visit_Task (
7095: p_api_version IN NUMBER,
7096: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
7097: p_commit IN VARCHAR2 := Fnd_Api.g_false,
7098: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
7099: p_task_rec IN AHL_VWP_RULES_PVT.Task_Rec_Type,
7100:
7101: x_return_status OUT NOCOPY VARCHAR2,
7102: x_msg_count OUT NOCOPY NUMBER,
7116: L_DEBUG_KEY ||'.begin',
7117: 'At the start of PL SQL procedure.');
7118: END IF;
7119:
7120: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
7121: Fnd_Msg_Pub.initialize;
7122: END IF;
7123:
7124: IF NOT Fnd_Api.compatible_api_call (
7120: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
7121: Fnd_Msg_Pub.initialize;
7122: END IF;
7123:
7124: IF NOT Fnd_Api.compatible_api_call (
7125: l_api_version,
7126: p_api_version,
7127: l_api_name,
7128: G_PKG_NAME
7126: p_api_version,
7127: l_api_name,
7128: G_PKG_NAME
7129: ) THEN
7130: RAISE Fnd_Api.g_exc_unexpected_error;
7131: END IF;
7132: x_return_status := Fnd_Api.g_ret_sts_success;
7133:
7134: ---------------------- validate ------------------------
7128: G_PKG_NAME
7129: ) THEN
7130: RAISE Fnd_Api.g_exc_unexpected_error;
7131: END IF;
7132: x_return_status := Fnd_Api.g_ret_sts_success;
7133:
7134: ---------------------- validate ------------------------
7135:
7136: IF (l_log_statement >= l_log_current_level) THEN
7144: p_task_rec => p_task_rec,
7145: p_validation_mode => Jtf_Plsql_Api.g_create,
7146: x_return_status => l_return_status
7147: );
7148: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
7149: RAISE Fnd_Api.g_exc_unexpected_error;
7150: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
7151: RAISE Fnd_Api.g_exc_error;
7152: END IF;
7145: p_validation_mode => Jtf_Plsql_Api.g_create,
7146: x_return_status => l_return_status
7147: );
7148: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
7149: RAISE Fnd_Api.g_exc_unexpected_error;
7150: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
7151: RAISE Fnd_Api.g_exc_error;
7152: END IF;
7153: END IF;
7146: x_return_status => l_return_status
7147: );
7148: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
7149: RAISE Fnd_Api.g_exc_unexpected_error;
7150: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
7151: RAISE Fnd_Api.g_exc_error;
7152: END IF;
7153: END IF;
7154:
7147: );
7148: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
7149: RAISE Fnd_Api.g_exc_unexpected_error;
7150: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
7151: RAISE Fnd_Api.g_exc_error;
7152: END IF;
7153: END IF;
7154:
7155: IF (l_log_statement >= l_log_current_level) THEN
7160:
7161: -------------------- finish --------------------------
7162: -- Standard call to get message count and if count is 1, get message info
7163: Fnd_Msg_Pub.count_and_get (
7164: p_encoded => Fnd_Api.g_false,
7165: p_count => x_msg_count,
7166: p_data => x_msg_data
7167: );
7168:
7171: L_DEBUG_KEY ||'.end',
7172: 'At the end of PL SQL procedure. Return Status = ' || l_return_status);
7173: END IF;
7174: EXCEPTION
7175: WHEN Fnd_Api.g_exc_error THEN
7176: x_return_status := Fnd_Api.g_ret_sts_error;
7177: Fnd_Msg_Pub.count_and_get (
7178: p_encoded => Fnd_Api.g_false,
7179: p_count => x_msg_count,
7172: 'At the end of PL SQL procedure. Return Status = ' || l_return_status);
7173: END IF;
7174: EXCEPTION
7175: WHEN Fnd_Api.g_exc_error THEN
7176: x_return_status := Fnd_Api.g_ret_sts_error;
7177: Fnd_Msg_Pub.count_and_get (
7178: p_encoded => Fnd_Api.g_false,
7179: p_count => x_msg_count,
7180: p_data => x_msg_data
7174: EXCEPTION
7175: WHEN Fnd_Api.g_exc_error THEN
7176: x_return_status := Fnd_Api.g_ret_sts_error;
7177: Fnd_Msg_Pub.count_and_get (
7178: p_encoded => Fnd_Api.g_false,
7179: p_count => x_msg_count,
7180: p_data => x_msg_data
7181: );
7182: WHEN Fnd_Api.g_exc_unexpected_error THEN
7178: p_encoded => Fnd_Api.g_false,
7179: p_count => x_msg_count,
7180: p_data => x_msg_data
7181: );
7182: WHEN Fnd_Api.g_exc_unexpected_error THEN
7183: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7184: Fnd_Msg_Pub.count_and_get (
7185: p_encoded => Fnd_Api.g_false,
7186: p_count => x_msg_count,
7179: p_count => x_msg_count,
7180: p_data => x_msg_data
7181: );
7182: WHEN Fnd_Api.g_exc_unexpected_error THEN
7183: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7184: Fnd_Msg_Pub.count_and_get (
7185: p_encoded => Fnd_Api.g_false,
7186: p_count => x_msg_count,
7187: p_data => x_msg_data
7181: );
7182: WHEN Fnd_Api.g_exc_unexpected_error THEN
7183: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7184: Fnd_Msg_Pub.count_and_get (
7185: p_encoded => Fnd_Api.g_false,
7186: p_count => x_msg_count,
7187: p_data => x_msg_data
7188: );
7189: WHEN OTHERS THEN
7186: p_count => x_msg_count,
7187: p_data => x_msg_data
7188: );
7189: WHEN OTHERS THEN
7190: x_return_status := Fnd_Api.g_ret_sts_unexp_error;
7191: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7192: THEN
7193: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7194: END IF;
7192: THEN
7193: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7194: END IF;
7195: Fnd_Msg_Pub.count_and_get (
7196: p_encoded => Fnd_Api.g_false,
7197: p_count => x_msg_count,
7198: p_data => x_msg_data
7199: );
7200: END Validate_Visit_Task;
7221: fnd_log.string(l_log_procedure,
7222: L_DEBUG_KEY ||'.begin',
7223: 'At the start of PL SQL procedure.');
7224: END IF;
7225: x_return_status := Fnd_Api.g_ret_sts_success;
7226: -- Validate required items.
7227:
7228: IF (l_log_statement >= l_log_current_level) THEN
7229: fnd_log.string(l_log_statement,
7237: the time of creation of tasks as once created serial number cannot be edited.*/
7238: p_validation_mode => p_validation_mode,
7239: x_return_status => x_return_status
7240: );
7241: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
7242: RETURN;
7243: END IF;
7244:
7245: --
7296: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
7297: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
7298: Fnd_Msg_Pub.ADD;
7299: END IF;
7300: RAISE Fnd_Api.g_exc_error;
7301: END IF;
7302: CLOSE c_Visit_Task;
7303:
7304: END Complete_Visit_Task_Rec;
7339: L_DEBUG_KEY ||'.begin',
7340: 'At the start of PL SQL procedure.');
7341: END IF;
7342:
7343: x_return_status := Fnd_Api.g_ret_sts_success;
7344:
7345: -- TASK NAME ==== NAME
7346: IF (p_task_rec.VISIT_TASK_NAME IS NULL OR p_Task_rec.VISIT_TASK_NAME = Fnd_Api.G_MISS_CHAR) THEN
7347: Fnd_Message.set_name ('AHL', 'AHL_VWP_NAME_MISSING');
7342:
7343: x_return_status := Fnd_Api.g_ret_sts_success;
7344:
7345: -- TASK NAME ==== NAME
7346: IF (p_task_rec.VISIT_TASK_NAME IS NULL OR p_Task_rec.VISIT_TASK_NAME = Fnd_Api.G_MISS_CHAR) THEN
7347: Fnd_Message.set_name ('AHL', 'AHL_VWP_NAME_MISSING');
7348: Fnd_Msg_Pub.ADD;
7349: x_return_status := Fnd_Api.g_ret_sts_error;
7350: END IF;
7345: -- TASK NAME ==== NAME
7346: IF (p_task_rec.VISIT_TASK_NAME IS NULL OR p_Task_rec.VISIT_TASK_NAME = Fnd_Api.G_MISS_CHAR) THEN
7347: Fnd_Message.set_name ('AHL', 'AHL_VWP_NAME_MISSING');
7348: Fnd_Msg_Pub.ADD;
7349: x_return_status := Fnd_Api.g_ret_sts_error;
7350: END IF;
7351:
7352: IF UPPER(p_task_rec.TASK_TYPE_CODE) = 'UNASSOCIATED' THEN
7353:
7351:
7352: IF UPPER(p_task_rec.TASK_TYPE_CODE) = 'UNASSOCIATED' THEN
7353:
7354: -- ITEM ==== INVENTORY_ITEM_ID
7355: IF (p_Task_rec.item_name IS NULL OR p_Task_rec.item_name = Fnd_Api.G_MISS_CHAR ) THEN
7356: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
7357: Fnd_Message.set_name ('AHL', 'AHL_VWP_ITEM_MISSING');
7358: Fnd_Msg_Pub.ADD;
7359: END IF;
7356: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
7357: Fnd_Message.set_name ('AHL', 'AHL_VWP_ITEM_MISSING');
7358: Fnd_Msg_Pub.ADD;
7359: END IF;
7360: x_return_status := Fnd_Api.g_ret_sts_error;
7361: END IF;
7362:
7363: -- TASK DURATION ==== DURATION
7364: IF (p_task_rec.DURATION IS NULL OR p_Task_rec.DURATION = Fnd_Api.G_MISS_NUM) THEN
7360: x_return_status := Fnd_Api.g_ret_sts_error;
7361: END IF;
7362:
7363: -- TASK DURATION ==== DURATION
7364: IF (p_task_rec.DURATION IS NULL OR p_Task_rec.DURATION = Fnd_Api.G_MISS_NUM) THEN
7365: Fnd_Message.set_name ('AHL', 'AHL_VWP_DURATION_MISSING');
7366: Fnd_Msg_Pub.ADD;
7367: x_return_status := Fnd_Api.g_ret_sts_error;
7368: END IF;
7363: -- TASK DURATION ==== DURATION
7364: IF (p_task_rec.DURATION IS NULL OR p_Task_rec.DURATION = Fnd_Api.G_MISS_NUM) THEN
7365: Fnd_Message.set_name ('AHL', 'AHL_VWP_DURATION_MISSING');
7366: Fnd_Msg_Pub.ADD;
7367: x_return_status := Fnd_Api.g_ret_sts_error;
7368: END IF;
7369:
7370: IF (p_task_rec.DURATION IS NOT NULL AND p_Task_rec.DURATION <> Fnd_Api.G_MISS_NUM) THEN
7371: IF p_task_rec.DURATION < 0 OR FLOOR(p_task_rec.DURATION) <> p_task_rec.DURATION THEN
7366: Fnd_Msg_Pub.ADD;
7367: x_return_status := Fnd_Api.g_ret_sts_error;
7368: END IF;
7369:
7370: IF (p_task_rec.DURATION IS NOT NULL AND p_Task_rec.DURATION <> Fnd_Api.G_MISS_NUM) THEN
7371: IF p_task_rec.DURATION < 0 OR FLOOR(p_task_rec.DURATION) <> p_task_rec.DURATION THEN
7372: Fnd_Message.set_name ('AHL', 'AHL_VWP_ONLY_POSITIVE_VALUE');
7373: Fnd_Msg_Pub.ADD;
7374: x_return_status := Fnd_Api.g_ret_sts_error;
7370: IF (p_task_rec.DURATION IS NOT NULL AND p_Task_rec.DURATION <> Fnd_Api.G_MISS_NUM) THEN
7371: IF p_task_rec.DURATION < 0 OR FLOOR(p_task_rec.DURATION) <> p_task_rec.DURATION THEN
7372: Fnd_Message.set_name ('AHL', 'AHL_VWP_ONLY_POSITIVE_VALUE');
7373: Fnd_Msg_Pub.ADD;
7374: x_return_status := Fnd_Api.g_ret_sts_error;
7375: END IF;
7376: END IF;
7377:
7378: IF ( p_validation_mode = Jtf_Plsql_Api.g_create ) THEN
7380: -- Check if the serial number is present only for serialised instances.
7381: OPEN c_check_inst_nonserial (p_task_rec.instance_id);
7382: FETCH c_check_inst_nonserial INTO l_serial_ctrl;
7383: IF c_check_inst_nonserial%NOTFOUND THEN
7384: IF (p_Task_rec.SERIAL_NUMBER IS NULL OR p_Task_rec.SERIAL_NUMBER = Fnd_Api.G_MISS_CHAR) THEN
7385: Fnd_Message.set_name ('AHL', 'AHL_VWP_SERIAL_MISSING');
7386: Fnd_Msg_Pub.ADD;
7387: x_return_status := Fnd_Api.g_ret_sts_error;
7388: END IF;
7383: IF c_check_inst_nonserial%NOTFOUND THEN
7384: IF (p_Task_rec.SERIAL_NUMBER IS NULL OR p_Task_rec.SERIAL_NUMBER = Fnd_Api.G_MISS_CHAR) THEN
7385: Fnd_Message.set_name ('AHL', 'AHL_VWP_SERIAL_MISSING');
7386: Fnd_Msg_Pub.ADD;
7387: x_return_status := Fnd_Api.g_ret_sts_error;
7388: END IF;
7389: ELSE
7390: IF (p_Task_rec.SERIAL_NUMBER IS NOT NULL) THEN
7391: Fnd_Message.set_name ('AHL', 'AHL_VWP_SERIAL_NOT_NEEDED');
7389: ELSE
7390: IF (p_Task_rec.SERIAL_NUMBER IS NOT NULL) THEN
7391: Fnd_Message.set_name ('AHL', 'AHL_VWP_SERIAL_NOT_NEEDED');
7392: Fnd_Msg_Pub.ADD;
7393: x_return_status := Fnd_Api.g_ret_sts_error;
7394: END IF;
7395: END IF;
7396: CLOSE c_check_inst_nonserial;
7397: -- End changes by rnahata for Issue 105
7398: END IF;
7399:
7400: END IF;
7401:
7402: IF (p_task_rec.START_FROM_HOUR IS NOT NULL AND p_Task_rec.START_FROM_HOUR <> Fnd_Api.G_MISS_NUM) THEN
7403: IF p_task_rec.START_FROM_HOUR < 0 OR FLOOR(p_task_rec.START_FROM_HOUR) <> p_task_rec.START_FROM_HOUR THEN
7404: Fnd_Message.set_name ('AHL', 'AHL_VWP_ONLY_POSITIVE_VALUE');
7405: Fnd_Msg_Pub.ADD;
7406: x_return_status := Fnd_Api.g_ret_sts_error;
7402: IF (p_task_rec.START_FROM_HOUR IS NOT NULL AND p_Task_rec.START_FROM_HOUR <> Fnd_Api.G_MISS_NUM) THEN
7403: IF p_task_rec.START_FROM_HOUR < 0 OR FLOOR(p_task_rec.START_FROM_HOUR) <> p_task_rec.START_FROM_HOUR THEN
7404: Fnd_Message.set_name ('AHL', 'AHL_VWP_ONLY_POSITIVE_VALUE');
7405: Fnd_Msg_Pub.ADD;
7406: x_return_status := Fnd_Api.g_ret_sts_error;
7407: END IF;
7408: END IF;
7409:
7410: IF (l_log_procedure >= l_log_current_level) THEN
7430: l_valid_flag VARCHAR2(1);
7431: L_API_NAME CONSTANT VARCHAR2(30) := 'Check_Visit_Task_UK_Items';
7432: L_DEBUG_KEY CONSTANT VARCHAR2(100) := 'ahl.plsql.' || G_PKG_NAME || '.' || L_API_NAME;
7433: BEGIN
7434: x_return_status := Fnd_Api.g_ret_sts_success;
7435:
7436: IF (l_log_procedure >= l_log_current_level) THEN
7437: fnd_log.string(l_log_procedure,
7438: L_DEBUG_KEY ||'.begin',
7455: -- FOR CREATION
7456: IF Ahl_Utility_Pvt.check_uniqueness(
7457: 'Ahl_Visit_Tasks_vl',
7458: 'Visit_Task_ID = ' || p_task_rec.Visit_Task_ID
7459: ) = Fnd_Api.g_false
7460: THEN
7461: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
7462: Fnd_Message.set_name ('AHL', 'AHL_VWP_DUPLICATE_TASK_ID');
7463: Fnd_Msg_Pub.ADD;
7461: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
7462: Fnd_Message.set_name ('AHL', 'AHL_VWP_DUPLICATE_TASK_ID');
7463: Fnd_Msg_Pub.ADD;
7464: END IF;
7465: x_return_status := Fnd_Api.g_ret_sts_error;
7466: RETURN;
7467: END IF;
7468: END IF;
7469:
7481: -- To create all types of tasks i.e Unassociated/Summary/Unplanned/Planned
7482: --------------------------------------------------------------------
7483: PROCEDURE Create_PUP_Tasks (
7484: p_api_version IN NUMBER,
7485: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
7486: p_commit IN VARCHAR2 := Fnd_Api.g_false,
7487: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
7488: p_module_type IN VARCHAR2 := 'JSP',
7489: p_x_task_tbl IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Tbl_Type,
7482: --------------------------------------------------------------------
7483: PROCEDURE Create_PUP_Tasks (
7484: p_api_version IN NUMBER,
7485: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
7486: p_commit IN VARCHAR2 := Fnd_Api.g_false,
7487: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
7488: p_module_type IN VARCHAR2 := 'JSP',
7489: p_x_task_tbl IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Tbl_Type,
7490: x_return_status OUT NOCOPY VARCHAR2,
7483: PROCEDURE Create_PUP_Tasks (
7484: p_api_version IN NUMBER,
7485: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
7486: p_commit IN VARCHAR2 := Fnd_Api.g_false,
7487: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
7488: p_module_type IN VARCHAR2 := 'JSP',
7489: p_x_task_tbl IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Tbl_Type,
7490: x_return_status OUT NOCOPY VARCHAR2,
7491: x_msg_count OUT NOCOPY NUMBER,
7533: 'At the start of PL SQL procedure.');
7534: END IF;
7535:
7536: -- Initialize message list if p_init_msg_list is set to TRUE.
7537: IF Fnd_Api.to_boolean(p_init_msg_list)
7538: THEN
7539: Fnd_Msg_Pub.initialize;
7540: END IF;
7541:
7539: Fnd_Msg_Pub.initialize;
7540: END IF;
7541:
7542: -- Initialize API return status to success
7543: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
7544:
7545: -- Standard call to check for call compatibility.
7546: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
7547: p_api_version,
7542: -- Initialize API return status to success
7543: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
7544:
7545: -- Standard call to check for call compatibility.
7546: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
7547: p_api_version,
7548: l_api_name,G_PKG_NAME)
7549: THEN
7550: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7546: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
7547: p_api_version,
7548: l_api_name,G_PKG_NAME)
7549: THEN
7550: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7551: END IF;
7552:
7553: --------------------Start of API Body-----------------------------------
7554: -------------------Cursor values------------------------------------
7571:
7572: IF c_visit_rec.status_code IN ('CLOSED','CANCELLED') THEN
7573: Fnd_Message.SET_NAME('AHL','AHL_VWP_NOT_USE_VISIT');
7574: Fnd_Msg_Pub.ADD;
7575: RAISE Fnd_Api.G_EXC_ERROR;
7576: ELSE
7577: FOR i IN p_x_task_tbl.first .. p_x_task_tbl.last
7578: LOOP
7579: IF l_task_tbl(i).task_type_code = 'PLANNED' THEN
7591: ELSE
7592: IF (l_task_tbl(i).QUANTITY > l_instance_qty ) THEN
7593: Fnd_Message.SET_NAME('AHL','AHL_INCORRECT_TSK_QTY');
7594: Fnd_Msg_Pub.ADD;
7595: RAISE Fnd_Api.G_EXC_ERROR;
7596: END IF;
7597: END IF;
7598: -- End changes by rnahata for Issue 105
7599:
7607:
7608: AHL_VWP_PLAN_TASKS_PVT.Create_Planned_Task (
7609: p_api_version => l_api_version,
7610: p_init_msg_list => p_init_msg_list,
7611: p_commit => FND_API.G_FALSE,
7612: p_validation_level => p_validation_level,
7613: p_module_type => p_module_type,
7614: p_x_task_rec => l_task_tbl(i),
7615: x_return_status => l_return_status,
7624: l_return_status);
7625: END IF;
7626: l_msg_count := Fnd_Msg_Pub.count_msg;
7627:
7628: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7629: x_msg_count := l_msg_count;
7630: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7631: RAISE Fnd_Api.G_EXC_ERROR;
7632: END IF;
7626: l_msg_count := Fnd_Msg_Pub.count_msg;
7627:
7628: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7629: x_msg_count := l_msg_count;
7630: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7631: RAISE Fnd_Api.G_EXC_ERROR;
7632: END IF;
7633:
7634: ELSIF l_task_tbl(i).task_type_code = 'UNPLANNED' THEN
7627:
7628: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7629: x_msg_count := l_msg_count;
7630: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7631: RAISE Fnd_Api.G_EXC_ERROR;
7632: END IF;
7633:
7634: ELSIF l_task_tbl(i).task_type_code = 'UNPLANNED' THEN
7635: -- Begin changes by rnahata for Issue 105
7639:
7640: IF (l_task_tbl(i).QUANTITY is null) THEN
7641: Fnd_Message.SET_NAME('AHL','AHL_TASK_QTY_NULL');
7642: Fnd_Msg_Pub.ADD;
7643: RAISE Fnd_Api.G_EXC_ERROR;
7644: END IF;
7645:
7646: IF (l_task_tbl(i).QUANTITY <= 0 ) THEN
7647: Fnd_Message.SET_NAME('AHL','AHL_POSITIVE_TSK_QTY');
7645:
7646: IF (l_task_tbl(i).QUANTITY <= 0 ) THEN
7647: Fnd_Message.SET_NAME('AHL','AHL_POSITIVE_TSK_QTY');
7648: Fnd_Msg_Pub.ADD;
7649: RAISE Fnd_Api.G_EXC_ERROR;
7650: END IF;
7651:
7652: IF (l_task_tbl(i).QUANTITY > l_instance_qty ) THEN
7653: Fnd_Message.SET_NAME('AHL','AHL_INCORRECT_TSK_QTY');
7651:
7652: IF (l_task_tbl(i).QUANTITY > l_instance_qty ) THEN
7653: Fnd_Message.SET_NAME('AHL','AHL_INCORRECT_TSK_QTY');
7654: Fnd_Msg_Pub.ADD;
7655: RAISE Fnd_Api.G_EXC_ERROR;
7656: END IF;
7657: -- End changes by rnahata for Issue 105
7658:
7659: -- Call AHL_VWP_UNPLAN_TASKS_PVT
7665:
7666: AHL_VWP_UNPLAN_TASKS_PVT.Create_Unplanned_Task (
7667: p_api_version => l_api_version,
7668: p_init_msg_list => p_init_msg_list,
7669: p_commit => FND_API.G_FALSE,
7670: p_validation_level => p_validation_level,
7671: p_module_type => p_module_type,
7672: p_x_task_rec => l_task_tbl(i),
7673: x_return_status => l_return_status,
7682: END IF;
7683:
7684: l_msg_count := Fnd_Msg_Pub.count_msg;
7685:
7686: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7687: x_msg_count := l_msg_count;
7688: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7689: RAISE Fnd_Api.G_EXC_ERROR;
7690: END IF;
7684: l_msg_count := Fnd_Msg_Pub.count_msg;
7685:
7686: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7687: x_msg_count := l_msg_count;
7688: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7689: RAISE Fnd_Api.G_EXC_ERROR;
7690: END IF;
7691: END IF;
7692: END LOOP;
7685:
7686: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7687: x_msg_count := l_msg_count;
7688: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7689: RAISE Fnd_Api.G_EXC_ERROR;
7690: END IF;
7691: END IF;
7692: END LOOP;
7693: END IF;
7697: L_DEBUG_KEY,
7698: 'Before Calling AHL_VWP_TIMES_PVT.Calculate_Task_Times');
7699: END IF;
7700: AHL_VWP_TIMES_PVT.Calculate_Task_Times(p_api_version => 1.0,
7701: p_init_msg_list => Fnd_Api.G_FALSE,
7702: p_commit => Fnd_Api.G_FALSE,
7703: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
7704: x_return_status => l_return_status,
7705: x_msg_count => l_msg_count,
7698: 'Before Calling AHL_VWP_TIMES_PVT.Calculate_Task_Times');
7699: END IF;
7700: AHL_VWP_TIMES_PVT.Calculate_Task_Times(p_api_version => 1.0,
7701: p_init_msg_list => Fnd_Api.G_FALSE,
7702: p_commit => Fnd_Api.G_FALSE,
7703: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
7704: x_return_status => l_return_status,
7705: x_msg_count => l_msg_count,
7706: x_msg_data => l_msg_data,
7699: END IF;
7700: AHL_VWP_TIMES_PVT.Calculate_Task_Times(p_api_version => 1.0,
7701: p_init_msg_list => Fnd_Api.G_FALSE,
7702: p_commit => Fnd_Api.G_FALSE,
7703: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
7704: x_return_status => l_return_status,
7705: x_msg_count => l_msg_count,
7706: x_msg_data => l_msg_data,
7707: p_visit_id => c_visit_rec.VISIT_ID);
7711: L_DEBUG_KEY,
7712: 'After Calling AHL_VWP_TIMES_PVT.Calculate_Task_Times. Return Status = ' || l_return_status );
7713: END IF;
7714:
7715: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7716: x_msg_count := l_msg_count;
7717: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7718: RAISE Fnd_Api.G_EXC_ERROR;
7719: END IF;
7713: END IF;
7714:
7715: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7716: x_msg_count := l_msg_count;
7717: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7718: RAISE Fnd_Api.G_EXC_ERROR;
7719: END IF;
7720:
7721: IF c_visit_rec.STATUS_CODE = 'RELEASED' THEN
7714:
7715: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7716: x_msg_count := l_msg_count;
7717: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7718: RAISE Fnd_Api.G_EXC_ERROR;
7719: END IF;
7720:
7721: IF c_visit_rec.STATUS_CODE = 'RELEASED' THEN
7722: UPDATE AHL_VISITS_B
7736: l_msg_count := Fnd_Msg_Pub.count_msg;
7737:
7738: IF l_msg_count > 0 THEN
7739: x_msg_count := l_msg_count;
7740: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7741: RAISE Fnd_Api.G_EXC_ERROR;
7742: END IF;
7743:
7744: --Standard check for commit
7737:
7738: IF l_msg_count > 0 THEN
7739: x_msg_count := l_msg_count;
7740: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7741: RAISE Fnd_Api.G_EXC_ERROR;
7742: END IF;
7743:
7744: --Standard check for commit
7745: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
7741: RAISE Fnd_Api.G_EXC_ERROR;
7742: END IF;
7743:
7744: --Standard check for commit
7745: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
7746: COMMIT;
7747: END IF;
7748:
7749: IF (l_log_procedure >= l_log_current_level) THEN
7751: L_DEBUG_KEY ||'.end',
7752: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
7753: END IF;
7754: EXCEPTION
7755: WHEN Fnd_Api.g_exc_error THEN
7756: ROLLBACK TO Create_PUP_Tasks;
7757: x_return_status := Fnd_Api.g_ret_sts_error;
7758: Fnd_Msg_Pub.count_and_get(
7759: p_encoded => Fnd_Api.g_false,
7753: END IF;
7754: EXCEPTION
7755: WHEN Fnd_Api.g_exc_error THEN
7756: ROLLBACK TO Create_PUP_Tasks;
7757: x_return_status := Fnd_Api.g_ret_sts_error;
7758: Fnd_Msg_Pub.count_and_get(
7759: p_encoded => Fnd_Api.g_false,
7760: p_count => x_msg_count,
7761: p_data => x_msg_data
7755: WHEN Fnd_Api.g_exc_error THEN
7756: ROLLBACK TO Create_PUP_Tasks;
7757: x_return_status := Fnd_Api.g_ret_sts_error;
7758: Fnd_Msg_Pub.count_and_get(
7759: p_encoded => Fnd_Api.g_false,
7760: p_count => x_msg_count,
7761: p_data => x_msg_data
7762: );
7763: WHEN Fnd_Api.g_exc_unexpected_error THEN
7759: p_encoded => Fnd_Api.g_false,
7760: p_count => x_msg_count,
7761: p_data => x_msg_data
7762: );
7763: WHEN Fnd_Api.g_exc_unexpected_error THEN
7764: ROLLBACK TO Create_PUP_Tasks;
7765: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7766: Fnd_Msg_Pub.count_and_get (
7767: p_encoded => Fnd_Api.g_false,
7761: p_data => x_msg_data
7762: );
7763: WHEN Fnd_Api.g_exc_unexpected_error THEN
7764: ROLLBACK TO Create_PUP_Tasks;
7765: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7766: Fnd_Msg_Pub.count_and_get (
7767: p_encoded => Fnd_Api.g_false,
7768: p_count => x_msg_count,
7769: p_data => x_msg_data
7763: WHEN Fnd_Api.g_exc_unexpected_error THEN
7764: ROLLBACK TO Create_PUP_Tasks;
7765: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7766: Fnd_Msg_Pub.count_and_get (
7767: p_encoded => Fnd_Api.g_false,
7768: p_count => x_msg_count,
7769: p_data => x_msg_data
7770: );
7771: WHEN OTHERS THEN
7769: p_data => x_msg_data
7770: );
7771: WHEN OTHERS THEN
7772: ROLLBACK TO Create_PUP_Tasks;
7773: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7774: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7775: THEN
7776: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7777: END IF;
7775: THEN
7776: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7777: END IF;
7778: Fnd_Msg_Pub.count_and_get (
7779: p_encoded => Fnd_Api.g_false,
7780: p_count => x_msg_count,
7781: p_data => x_msg_data
7782: );
7783: END Create_PUP_Tasks;
7789: -- Parameters :
7790: --
7791: -- Standard IN Parameters :
7792: -- p_api_version IN NUMBER Required
7793: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
7794: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
7795: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
7796: -- p_module_type IN VARCHAR2 Default NULL.
7797: -- p_visit_rec IN AHL_VWP_VISITS_PVT.Visit_Rec_Type,
7790: --
7791: -- Standard IN Parameters :
7792: -- p_api_version IN NUMBER Required
7793: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
7794: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
7795: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
7796: -- p_module_type IN VARCHAR2 Default NULL.
7797: -- p_visit_rec IN AHL_VWP_VISITS_PVT.Visit_Rec_Type,
7798: --
7791: -- Standard IN Parameters :
7792: -- p_api_version IN NUMBER Required
7793: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
7794: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
7795: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
7796: -- p_module_type IN VARCHAR2 Default NULL.
7797: -- p_visit_rec IN AHL_VWP_VISITS_PVT.Visit_Rec_Type,
7798: --
7799: -- Standard OUT Parameters :
7807: -- Initial Version 1.0
7808: -------------------------------------------------------------------
7809: PROCEDURE associate_default_mrs (
7810: p_api_version IN NUMBER,
7811: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
7812: p_commit IN VARCHAR2 := Fnd_Api.g_false,
7813: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
7814: p_module_type IN VARCHAR2 := 'JSP',
7815: x_return_status OUT NOCOPY VARCHAR2,
7808: -------------------------------------------------------------------
7809: PROCEDURE associate_default_mrs (
7810: p_api_version IN NUMBER,
7811: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
7812: p_commit IN VARCHAR2 := Fnd_Api.g_false,
7813: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
7814: p_module_type IN VARCHAR2 := 'JSP',
7815: x_return_status OUT NOCOPY VARCHAR2,
7816: x_msg_count OUT NOCOPY NUMBER,
7809: PROCEDURE associate_default_mrs (
7810: p_api_version IN NUMBER,
7811: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
7812: p_commit IN VARCHAR2 := Fnd_Api.g_false,
7813: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
7814: p_module_type IN VARCHAR2 := 'JSP',
7815: x_return_status OUT NOCOPY VARCHAR2,
7816: x_msg_count OUT NOCOPY NUMBER,
7817: x_msg_data OUT NOCOPY VARCHAR2,
7861: 'At the start of PL SQL procedure.');
7862: END IF;
7863:
7864: -- Initialize message list if p_init_msg_list is set to TRUE.
7865: IF Fnd_Api.to_boolean(p_init_msg_list)
7866: THEN
7867: Fnd_Msg_Pub.initialize;
7868: END IF;
7869:
7867: Fnd_Msg_Pub.initialize;
7868: END IF;
7869:
7870: -- Initialize API return status to success
7871: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
7872:
7873: -- Standard call to check for call compatibility.
7874: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
7875: p_api_version,
7870: -- Initialize API return status to success
7871: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
7872:
7873: -- Standard call to check for call compatibility.
7874: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
7875: p_api_version,
7876: l_api_name,G_PKG_NAME)
7877: THEN
7878: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7874: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
7875: p_api_version,
7876: l_api_name,G_PKG_NAME)
7877: THEN
7878: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7879: END IF;
7880:
7881: --------------------Start of API Body-----------------------------------
7882:
7909: END IF;
7910:
7911: l_msg_count := Fnd_Msg_Pub.count_msg;
7912:
7913: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7914: x_msg_count := l_msg_count;
7915: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7916: RAISE Fnd_Api.G_EXC_ERROR;
7917: END IF;
7911: l_msg_count := Fnd_Msg_Pub.count_msg;
7912:
7913: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7914: x_msg_count := l_msg_count;
7915: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7916: RAISE Fnd_Api.G_EXC_ERROR;
7917: END IF;
7918:
7919: -- Begin changes by rnahata for Issue 105
7912:
7913: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7914: x_msg_count := l_msg_count;
7915: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7916: RAISE Fnd_Api.G_EXC_ERROR;
7917: END IF;
7918:
7919: -- Begin changes by rnahata for Issue 105
7920: OPEN c_get_instance_qty(l_instance_id);
7960: x_msg_data => l_msg_data);
7961:
7962: l_msg_count := Fnd_Msg_Pub.count_msg;
7963:
7964: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7965: x_msg_count := l_msg_count;
7966: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7967: RAISE Fnd_Api.G_EXC_ERROR;
7968: END IF;
7962: l_msg_count := Fnd_Msg_Pub.count_msg;
7963:
7964: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7965: x_msg_count := l_msg_count;
7966: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7967: RAISE Fnd_Api.G_EXC_ERROR;
7968: END IF;
7969:
7970: END IF; -- Instance ID is not null.
7963:
7964: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7965: x_msg_count := l_msg_count;
7966: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7967: RAISE Fnd_Api.G_EXC_ERROR;
7968: END IF;
7969:
7970: END IF; -- Instance ID is not null.
7971:
7975: l_msg_count := Fnd_Msg_Pub.count_msg;
7976:
7977: IF l_msg_count > 0 THEN
7978: x_msg_count := l_msg_count;
7979: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7980: RAISE Fnd_Api.G_EXC_ERROR;
7981: END IF;
7982:
7983: IF (l_log_procedure >= l_log_current_level) THEN
7976:
7977: IF l_msg_count > 0 THEN
7978: x_msg_count := l_msg_count;
7979: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7980: RAISE Fnd_Api.G_EXC_ERROR;
7981: END IF;
7982:
7983: IF (l_log_procedure >= l_log_current_level) THEN
7984: fnd_log.string(l_log_procedure,
7985: L_DEBUG_KEY ||'.end',
7986: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
7987: END IF;
7988: EXCEPTION
7989: WHEN Fnd_Api.g_exc_error THEN
7990: ROLLBACK TO associate_default_mrs;
7991: x_return_status := Fnd_Api.g_ret_sts_error;
7992: Fnd_Msg_Pub.count_and_get(
7993: p_encoded => Fnd_Api.g_false,
7987: END IF;
7988: EXCEPTION
7989: WHEN Fnd_Api.g_exc_error THEN
7990: ROLLBACK TO associate_default_mrs;
7991: x_return_status := Fnd_Api.g_ret_sts_error;
7992: Fnd_Msg_Pub.count_and_get(
7993: p_encoded => Fnd_Api.g_false,
7994: p_count => x_msg_count,
7995: p_data => x_msg_data
7989: WHEN Fnd_Api.g_exc_error THEN
7990: ROLLBACK TO associate_default_mrs;
7991: x_return_status := Fnd_Api.g_ret_sts_error;
7992: Fnd_Msg_Pub.count_and_get(
7993: p_encoded => Fnd_Api.g_false,
7994: p_count => x_msg_count,
7995: p_data => x_msg_data
7996: );
7997: WHEN Fnd_Api.g_exc_unexpected_error THEN
7993: p_encoded => Fnd_Api.g_false,
7994: p_count => x_msg_count,
7995: p_data => x_msg_data
7996: );
7997: WHEN Fnd_Api.g_exc_unexpected_error THEN
7998: ROLLBACK TO associate_default_mrs;
7999: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8000: Fnd_Msg_Pub.count_and_get (
8001: p_encoded => Fnd_Api.g_false,
7995: p_data => x_msg_data
7996: );
7997: WHEN Fnd_Api.g_exc_unexpected_error THEN
7998: ROLLBACK TO associate_default_mrs;
7999: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8000: Fnd_Msg_Pub.count_and_get (
8001: p_encoded => Fnd_Api.g_false,
8002: p_count => x_msg_count,
8003: p_data => x_msg_data
7997: WHEN Fnd_Api.g_exc_unexpected_error THEN
7998: ROLLBACK TO associate_default_mrs;
7999: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8000: Fnd_Msg_Pub.count_and_get (
8001: p_encoded => Fnd_Api.g_false,
8002: p_count => x_msg_count,
8003: p_data => x_msg_data
8004: );
8005: WHEN OTHERS THEN
8003: p_data => x_msg_data
8004: );
8005: WHEN OTHERS THEN
8006: ROLLBACK TO associate_default_mrs;
8007: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8008: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
8009: THEN
8010: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8011: END IF;
8009: THEN
8010: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8011: END IF;
8012: Fnd_Msg_Pub.count_and_get (
8013: p_encoded => Fnd_Api.g_false,
8014: p_count => x_msg_count,
8015: p_data => x_msg_data
8016: );
8017: END associate_default_mrs;