[Home] [Help]
83: PROCEDURE Default_Missing_Attribs
84: ( p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type)
85: AS
86: BEGIN
87: IF p_x_task_rec.DURATION = Fnd_Api.G_MISS_NUM THEN
88: p_x_task_rec.DURATION := NULL;
89: ELSE
90: p_x_task_rec.DURATION := p_x_task_rec.DURATION;
91: END IF;
89: ELSE
90: p_x_task_rec.DURATION := p_x_task_rec.DURATION;
91: END IF;
92:
93: IF p_x_task_rec.PROJECT_TASK_ID = Fnd_Api.G_MISS_NUM THEN
94: p_x_task_rec.PROJECT_TASK_ID := NULL;
95: ELSE
96: p_x_task_rec.PROJECT_TASK_ID := p_x_task_rec.PROJECT_TASK_ID;
97: END IF;
95: ELSE
96: p_x_task_rec.PROJECT_TASK_ID := p_x_task_rec.PROJECT_TASK_ID;
97: END IF;
98:
99: IF p_x_task_rec.COST_PARENT_ID = Fnd_Api.G_MISS_NUM THEN
100: p_x_task_rec.COST_PARENT_ID := NULL;
101: ELSE
102: p_x_task_rec.COST_PARENT_ID := p_x_task_rec.COST_PARENT_ID;
103: END IF;
101: ELSE
102: p_x_task_rec.COST_PARENT_ID := p_x_task_rec.COST_PARENT_ID;
103: END IF;
104:
105: IF p_x_task_rec.MR_ROUTE_ID = Fnd_Api.G_MISS_NUM THEN
106: p_x_task_rec.MR_ROUTE_ID := NULL;
107: ELSE
108: p_x_task_rec.MR_ROUTE_ID := p_x_task_rec.MR_ROUTE_ID;
109: END IF;
107: ELSE
108: p_x_task_rec.MR_ROUTE_ID := p_x_task_rec.MR_ROUTE_ID;
109: END IF;
110:
111: IF p_x_task_rec.MR_ID = Fnd_Api.G_MISS_NUM THEN
112: p_x_task_rec.MR_ID := NULL;
113: ELSE
114: p_x_task_rec.MR_ID := p_x_task_rec.MR_ID;
115: END IF;
113: ELSE
114: p_x_task_rec.MR_ID := p_x_task_rec.MR_ID;
115: END IF;
116:
117: IF p_x_task_rec.UNIT_EFFECTIVITY_ID = Fnd_Api.G_MISS_NUM THEN
118: p_x_task_rec.UNIT_EFFECTIVITY_ID := NULL;
119: ELSE
120: p_x_task_rec.UNIT_EFFECTIVITY_ID := p_x_task_rec.UNIT_EFFECTIVITY_ID;
121: END IF;
119: ELSE
120: p_x_task_rec.UNIT_EFFECTIVITY_ID := p_x_task_rec.UNIT_EFFECTIVITY_ID;
121: END IF;
122:
123: IF p_x_task_rec.START_FROM_HOUR = Fnd_Api.G_MISS_NUM THEN
124: p_x_task_rec.START_FROM_HOUR := NULL;
125: ELSE
126: p_x_task_rec.START_FROM_HOUR := p_x_task_rec.START_FROM_HOUR;
127: END IF;
125: ELSE
126: p_x_task_rec.START_FROM_HOUR := p_x_task_rec.START_FROM_HOUR;
127: END IF;
128:
129: IF p_x_task_rec.PRIMARY_VISIT_TASK_ID = Fnd_Api.G_MISS_NUM THEN
130: p_x_task_rec.PRIMARY_VISIT_TASK_ID := NULL;
131: ELSE
132: p_x_task_rec.PRIMARY_VISIT_TASK_ID := p_x_task_rec.PRIMARY_VISIT_TASK_ID;
133: END IF;
131: ELSE
132: p_x_task_rec.PRIMARY_VISIT_TASK_ID := p_x_task_rec.PRIMARY_VISIT_TASK_ID;
133: END IF;
134:
135: IF p_x_task_rec.ORIGINATING_TASK_ID = Fnd_Api.G_MISS_NUM THEN
136: p_x_task_rec.ORIGINATING_TASK_ID := NULL;
137: ELSE
138: p_x_task_rec.ORIGINATING_TASK_ID := p_x_task_rec.ORIGINATING_TASK_ID;
139: END IF;
137: ELSE
138: p_x_task_rec.ORIGINATING_TASK_ID := p_x_task_rec.ORIGINATING_TASK_ID;
139: END IF;
140:
141: IF p_x_task_rec.SERVICE_REQUEST_ID = Fnd_Api.G_MISS_NUM THEN
142: p_x_task_rec.SERVICE_REQUEST_ID := NULL;
143: ELSE
144: p_x_task_rec.SERVICE_REQUEST_ID := p_x_task_rec.SERVICE_REQUEST_ID;
145: END IF;
143: ELSE
144: p_x_task_rec.SERVICE_REQUEST_ID := p_x_task_rec.SERVICE_REQUEST_ID;
145: END IF;
146:
147: IF p_x_task_rec.attribute_category = Fnd_Api.G_MISS_CHAR THEN
148: p_x_task_rec.attribute_category := NULL;
149: ELSE
150: p_x_task_rec.attribute_category := p_x_task_rec.attribute_category;
151: END IF;
149: ELSE
150: p_x_task_rec.attribute_category := p_x_task_rec.attribute_category;
151: END IF;
152:
153: IF p_x_task_rec.attribute1 = Fnd_Api.G_MISS_CHAR THEN
154: p_x_task_rec.attribute1 := NULL;
155: ELSE
156: p_x_task_rec.attribute1 := p_x_task_rec.attribute1;
157: END IF;
155: ELSE
156: p_x_task_rec.attribute1 := p_x_task_rec.attribute1;
157: END IF;
158:
159: IF p_x_task_rec.attribute2 = Fnd_Api.G_MISS_CHAR THEN
160: p_x_task_rec.attribute2 := NULL;
161: ELSE
162: p_x_task_rec.attribute2 := p_x_task_rec.attribute2;
163: END IF;
161: ELSE
162: p_x_task_rec.attribute2 := p_x_task_rec.attribute2;
163: END IF;
164: --
165: IF p_x_task_rec.attribute3 = Fnd_Api.G_MISS_CHAR THEN
166: p_x_task_rec.attribute3 := NULL;
167: ELSE
168: p_x_task_rec.attribute3 := p_x_task_rec.attribute3;
169: END IF;
167: ELSE
168: p_x_task_rec.attribute3 := p_x_task_rec.attribute3;
169: END IF;
170: --
171: IF p_x_task_rec.attribute4 = Fnd_Api.G_MISS_CHAR THEN
172: p_x_task_rec.attribute4 := NULL;
173: ELSE
174: p_x_task_rec.attribute4 := p_x_task_rec.attribute4;
175: END IF;
173: ELSE
174: p_x_task_rec.attribute4 := p_x_task_rec.attribute4;
175: END IF;
176: --
177: IF p_x_task_rec.attribute5 = Fnd_Api.G_MISS_CHAR THEN
178: p_x_task_rec.attribute5 := NULL;
179: ELSE
180: p_x_task_rec.attribute5 := p_x_task_rec.attribute5;
181: END IF;
179: ELSE
180: p_x_task_rec.attribute5 := p_x_task_rec.attribute5;
181: END IF;
182: --
183: IF p_x_task_rec.attribute6 = Fnd_Api.G_MISS_CHAR THEN
184: p_x_task_rec.attribute6 := NULL;
185: ELSE
186: p_x_task_rec.attribute6 := p_x_task_rec.attribute6;
187: END IF;
185: ELSE
186: p_x_task_rec.attribute6 := p_x_task_rec.attribute6;
187: END IF;
188: --
189: IF p_x_task_rec.attribute7 = Fnd_Api.G_MISS_CHAR THEN
190: p_x_task_rec.attribute7 := NULL;
191: ELSE
192: p_x_task_rec.attribute7 := p_x_task_rec.attribute7;
193: END IF;
191: ELSE
192: p_x_task_rec.attribute7 := p_x_task_rec.attribute7;
193: END IF;
194: --
195: IF p_x_task_rec.attribute8 = Fnd_Api.G_MISS_CHAR THEN
196: p_x_task_rec.attribute8 := NULL;
197: ELSE
198: p_x_task_rec.attribute8 := p_x_task_rec.attribute8;
199: END IF;
197: ELSE
198: p_x_task_rec.attribute8 := p_x_task_rec.attribute8;
199: END IF;
200: --
201: IF p_x_task_rec.attribute9 = Fnd_Api.G_MISS_CHAR THEN
202: p_x_task_rec.attribute9 := NULL;
203: ELSE
204: p_x_task_rec.attribute9 := p_x_task_rec.attribute9;
205: END IF;
203: ELSE
204: p_x_task_rec.attribute9 := p_x_task_rec.attribute9;
205: END IF;
206: --
207: IF p_x_task_rec.attribute10 = Fnd_Api.G_MISS_CHAR THEN
208: p_x_task_rec.attribute10 := NULL;
209: ELSE
210: p_x_task_rec.attribute10 := p_x_task_rec.attribute10;
211: END IF;
209: ELSE
210: p_x_task_rec.attribute10 := p_x_task_rec.attribute10;
211: END IF;
212: --
213: IF p_x_task_rec.attribute11 = Fnd_Api.G_MISS_CHAR THEN
214: p_x_task_rec.attribute11 := NULL;
215: ELSE
216: p_x_task_rec.attribute11 := p_x_task_rec.attribute11;
217: END IF;
215: ELSE
216: p_x_task_rec.attribute11 := p_x_task_rec.attribute11;
217: END IF;
218: --
219: IF p_x_task_rec.attribute12 = Fnd_Api.G_MISS_CHAR THEN
220: p_x_task_rec.attribute12 := NULL;
221: ELSE
222: p_x_task_rec.attribute12 := p_x_task_rec.attribute12;
223: END IF;
221: ELSE
222: p_x_task_rec.attribute12 := p_x_task_rec.attribute12;
223: END IF;
224: --
225: IF p_x_task_rec.attribute13 = Fnd_Api.G_MISS_CHAR THEN
226: p_x_task_rec.attribute13 := NULL;
227: ELSE
228: p_x_task_rec.attribute13 := p_x_task_rec.attribute13;
229: END IF;
227: ELSE
228: p_x_task_rec.attribute13 := p_x_task_rec.attribute13;
229: END IF;
230: --
231: IF p_x_task_rec.attribute14 = Fnd_Api.G_MISS_CHAR THEN
232: p_x_task_rec.attribute14 := NULL;
233: ELSE
234: p_x_task_rec.attribute14 := p_x_task_rec.attribute14;
235: END IF;
233: ELSE
234: p_x_task_rec.attribute14 := p_x_task_rec.attribute14;
235: END IF;
236: --
237: IF p_x_task_rec.attribute15 = Fnd_Api.G_MISS_CHAR THEN
238: p_x_task_rec.attribute15 := NULL;
239: ELSE
240: p_x_task_rec.attribute15 := p_x_task_rec.attribute15;
241: END IF;
239: ELSE
240: p_x_task_rec.attribute15 := p_x_task_rec.attribute15;
241: END IF;
242: --
243: IF p_x_task_rec.description = Fnd_Api.G_MISS_CHAR THEN
244: p_x_task_rec.description := NULL;
245: ELSE
246: p_x_task_rec.description := p_x_task_rec.description;
247: END IF;
329:
330: END IF;
331: -- Check item name or item id
332: IF (p_x_task_Rec.inventory_item_id IS NOT NULL AND
333: p_x_task_Rec.inventory_item_id <> Fnd_Api.G_MISS_NUM) AND
334: (p_x_task_Rec.item_organization_id IS NOT NULL AND
335: p_x_task_Rec.item_organization_id <> Fnd_Api.G_MISS_NUM) THEN
336: AHL_VWP_RULES_PVT.Check_Item_name_Or_Id
337: (p_item_id => p_x_task_Rec.inventory_item_id,
331: -- Check item name or item id
332: IF (p_x_task_Rec.inventory_item_id IS NOT NULL AND
333: p_x_task_Rec.inventory_item_id <> Fnd_Api.G_MISS_NUM) AND
334: (p_x_task_Rec.item_organization_id IS NOT NULL AND
335: p_x_task_Rec.item_organization_id <> Fnd_Api.G_MISS_NUM) THEN
336: AHL_VWP_RULES_PVT.Check_Item_name_Or_Id
337: (p_item_id => p_x_task_Rec.inventory_item_id,
338: p_org_id => p_x_task_Rec.item_organization_id,
339: p_item_name => p_x_task_Rec.item_name,
344: x_error_msg_code => l_msg_data);
345: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
346: fnd_log.string(fnd_log.level_statement, l_full_name, 'item id, item name, orgid: ' || l_item_id || '**' || l_item_name || '**' || l_org_id);
347: END IF;
348: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS
349: THEN
350: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_NOT_EXISTS');
351: Fnd_Msg_Pub.ADD;
352: RAISE Fnd_Api.G_EXC_ERROR;
348: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS
349: THEN
350: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_NOT_EXISTS');
351: Fnd_Msg_Pub.ADD;
352: RAISE Fnd_Api.G_EXC_ERROR;
353: END IF;
354:
355: -- Changes made by skpathak on 20-OCT-2008 while fixing bug 7016519
356: -- Removing incorrect checks
358: p_x_task_Rec.item_name := l_item_name;
359:
360:
361: ELSE -- Else of item id and item org id exists or not
362: IF p_x_task_Rec.item_name IS NULL OR p_x_task_Rec.item_name = FND_API.g_miss_char THEN
363: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
364: fnd_log.string(fnd_log.level_statement, l_full_name, 'Item name missing');
365: END IF;
366: Fnd_Message.SET_NAME('AHL','AHL_VWP_TSK_ITEM_MISSING');
364: fnd_log.string(fnd_log.level_statement, l_full_name, 'Item name missing');
365: END IF;
366: Fnd_Message.SET_NAME('AHL','AHL_VWP_TSK_ITEM_MISSING');
367: Fnd_Msg_Pub.ADD;
368: RAISE Fnd_Api.G_EXC_ERROR;
369: ELSE
370: -- Item name is not null, but at least one of item id and org id is null
371: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
372: fnd_log.string(fnd_log.level_statement, l_full_name, 'Check item else condition.');
372: fnd_log.string(fnd_log.level_statement, l_full_name, 'Check item else condition.');
373: END IF;
374: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_USE_LOV');
375: Fnd_Msg_Pub.ADD;
376: RAISE Fnd_Api.G_EXC_ERROR;
377: END IF;
378: END IF; -- End of itemid and itemorg id check
379:
380: --Assign the returned value
391: FETCH c_check INTO l_count;
392: CLOSE c_check;
393:
394: IF l_count = 0 OR l_count IS NULL THEN
395: x_return_status := Fnd_Api.g_ret_sts_error;
396: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_MR_NOT_MATCH');
397: Fnd_Msg_Pub.ADD;
398: END IF;
399: END IF;
406: FETCH c_check_inst_nonserial INTO l_serial_ctrl;
407: IF c_check_inst_nonserial%NOTFOUND THEN
408: CLOSE c_check_inst_nonserial;
409: -- Convert serial number to instance/ serial id
410: IF (p_x_task_Rec.serial_number IS NOT NULL AND p_x_task_Rec.serial_number <> Fnd_Api.G_MISS_CHAR) OR
411: (p_x_task_Rec.instance_id IS NOT NULL AND p_x_task_Rec.instance_id <> Fnd_Api.G_MISS_CHAR) THEN
412:
413: AHL_VWP_RULES_PVT.Check_serial_name_Or_Id
414: (p_item_id => p_x_task_Rec.inventory_item_id,
407: IF c_check_inst_nonserial%NOTFOUND THEN
408: CLOSE c_check_inst_nonserial;
409: -- Convert serial number to instance/ serial id
410: IF (p_x_task_Rec.serial_number IS NOT NULL AND p_x_task_Rec.serial_number <> Fnd_Api.G_MISS_CHAR) OR
411: (p_x_task_Rec.instance_id IS NOT NULL AND p_x_task_Rec.instance_id <> Fnd_Api.G_MISS_CHAR) THEN
412:
413: AHL_VWP_RULES_PVT.Check_serial_name_Or_Id
414: (p_item_id => p_x_task_Rec.inventory_item_id,
415: p_org_id => p_x_task_Rec.item_organization_id,
418: x_serial_id => l_instance_id,
419: x_return_status => l_return_status,
420: x_error_msg_code => l_msg_data);
421:
422: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
423: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
424: Fnd_Msg_Pub.ADD;
425: RAISE Fnd_Api.G_EXC_ERROR;
426: ELSE
421:
422: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
423: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
424: Fnd_Msg_Pub.ADD;
425: RAISE Fnd_Api.G_EXC_ERROR;
426: ELSE
427: --Assign the returned value
428: p_x_task_Rec.instance_id := l_instance_id;
429: END IF;
433: fnd_log.string(fnd_log.level_statement, l_full_name, 'Check serial not found else');
434: END IF;
435: Fnd_Message.SET_NAME('AHL','AHL_VWP_TSK_SERIAL_MISSING');
436: Fnd_Msg_Pub.ADD;
437: RAISE Fnd_Api.G_EXC_ERROR;
438: END IF; --Serial number not null
439: ELSE --non serial controlled item
440: p_x_task_Rec.instance_id := l_inst_id;
441: CLOSE c_check_inst_nonserial;
443: -- End changes by rnahata for Issue 105
444:
445: IF c_visit_rec.organization_id IS NOT NULL THEN
446: -- Get dept code using dept description
447: IF (p_x_task_Rec.dept_name IS NOT NULL AND p_x_task_Rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
448:
449: AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id
450: (p_organization_id => c_visit_rec.organization_id,
451: p_dept_name => p_x_task_Rec.dept_name,
453: x_department_id => p_x_task_Rec.department_id,
454: x_return_status => l_return_status,
455: x_error_msg_code => l_msg_data);
456:
457: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS
458: THEN
459: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
460: Fnd_Msg_Pub.ADD;
461: RAISE Fnd_Api.G_EXC_ERROR;
457: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS
458: THEN
459: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
460: Fnd_Msg_Pub.ADD;
461: RAISE Fnd_Api.G_EXC_ERROR;
462: END IF;
463:
464: -- Changes for Post 11.5.10 by amagrawa
465: Ahl_vwp_rules_pvt.CHECK_DEPARTMENT_SHIFT
465: Ahl_vwp_rules_pvt.CHECK_DEPARTMENT_SHIFT
466: (P_DEPT_ID => p_x_task_Rec.department_id,
467: X_RETURN_STATUS => l_return_status);
468:
469: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
470: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
471: Fnd_Msg_Pub.ADD;
472: RAISE Fnd_Api.G_EXC_ERROR;
473: END IF;
468:
469: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
470: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
471: Fnd_Msg_Pub.ADD;
472: RAISE Fnd_Api.G_EXC_ERROR;
473: END IF;
474: ELSE
475: p_x_task_Rec.dept_name := NULL;
476: -- Post 11.5.10 changes by Senthil
479: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
480: fnd_log.string(fnd_log.level_statement, l_full_name, 'Dept ID= ' || p_x_task_Rec.department_id);
481: END IF;
482: ELSE -- Else of if visit org not exists
483: IF (p_x_task_Rec.dept_name IS NOT NULL AND p_x_task_Rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
484: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
485: fnd_log.string(fnd_log.level_statement, l_full_name, 'NO ORGANIZATION FOR VISIT');
486: END IF;
487: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_NO_ORG_EXISTS');
485: fnd_log.string(fnd_log.level_statement, l_full_name, 'NO ORGANIZATION FOR VISIT');
486: END IF;
487: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_NO_ORG_EXISTS');
488: Fnd_Msg_Pub.ADD;
489: RAISE Fnd_Api.G_EXC_ERROR;
490: END IF;
491: END IF; -- End of if visit org exists
492:
493:
508: --
509: --------------------------------------------------------------------
510: PROCEDURE Create_Unplanned_Task (
511: p_api_version IN NUMBER,
512: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
513: p_commit IN VARCHAR2 := Fnd_Api.g_false,
514: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
515: p_module_type IN VARCHAR2 := 'JSP',
516: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.task_rec_type,
509: --------------------------------------------------------------------
510: PROCEDURE Create_Unplanned_Task (
511: p_api_version IN NUMBER,
512: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
513: p_commit IN VARCHAR2 := Fnd_Api.g_false,
514: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
515: p_module_type IN VARCHAR2 := 'JSP',
516: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.task_rec_type,
517: x_return_status OUT NOCOPY VARCHAR2,
510: PROCEDURE Create_Unplanned_Task (
511: p_api_version IN NUMBER,
512: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
513: p_commit IN VARCHAR2 := Fnd_Api.g_false,
514: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
515: p_module_type IN VARCHAR2 := 'JSP',
516: p_x_task_Rec IN OUT NOCOPY AHL_VWP_RULES_PVT.task_rec_type,
517: x_return_status OUT NOCOPY VARCHAR2,
518: x_msg_count OUT NOCOPY NUMBER,
604: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
605: fnd_log.string(fnd_log.level_procedure, l_full_name || '.begin', 'Entering Procedure');
606: END IF;
607:
608: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
609: Fnd_Msg_Pub.initialize;
610: END IF;
611:
612: IF NOT Fnd_Api.compatible_api_call (
608: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
609: Fnd_Msg_Pub.initialize;
610: END IF;
611:
612: IF NOT Fnd_Api.compatible_api_call (
613: L_API_VERSION,
614: p_api_version,
615: L_API_NAME,
616: G_PKG_NAME
614: p_api_version,
615: L_API_NAME,
616: G_PKG_NAME
617: ) THEN
618: RAISE Fnd_Api.g_exc_unexpected_error;
619: END IF;
620: x_return_status := Fnd_Api.g_ret_sts_success;
621:
622: -- Calling Asso_Inst_Dept_SR_to_Tasks API
616: G_PKG_NAME
617: ) THEN
618: RAISE Fnd_Api.g_exc_unexpected_error;
619: END IF;
620: x_return_status := Fnd_Api.g_ret_sts_success;
621:
622: -- Calling Asso_Inst_Dept_SR_to_Tasks API
623: Asso_Inst_Dept_SR_to_Tasks (
624: p_module_type => p_module_type,
636: l_item_id := p_x_task_Rec.inventory_item_id;
637: l_org_id := p_x_task_Rec.item_organization_id;
638: l_mr_header_id := p_x_task_Rec.MR_ID;
639:
640: IF l_department_id = FND_API.g_miss_num THEN
641: l_department_id := NULL;
642: END IF;
643:
644: IF l_instance_id = FND_API.g_miss_num THEN
640: IF l_department_id = FND_API.g_miss_num THEN
641: l_department_id := NULL;
642: END IF;
643:
644: IF l_instance_id = FND_API.g_miss_num THEN
645: l_instance_id := NULL;
646: END IF;
647:
648: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
667: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
668: fnd_log.string(fnd_log.level_statement, l_full_name, 'Returned from call to AHL_UMP_UNPLANNED_PVT.CREATE_UNIT_EFFECTIVITY. x_return_status = ' || l_return_status || ' and x_orig_ue_id = ' || l_ue_id);
669: END IF;
670:
671: IF l_msg_count > 0 OR NVL(l_return_status,'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
672: X_msg_count := l_msg_count;
673: X_return_status := Fnd_Api.G_RET_STS_ERROR;
674: RAISE Fnd_Api.G_EXC_ERROR;
675: END IF;
669: END IF;
670:
671: IF l_msg_count > 0 OR NVL(l_return_status,'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
672: X_msg_count := l_msg_count;
673: X_return_status := Fnd_Api.G_RET_STS_ERROR;
674: RAISE Fnd_Api.G_EXC_ERROR;
675: END IF;
676:
677:
670:
671: IF l_msg_count > 0 OR NVL(l_return_status,'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
672: X_msg_count := l_msg_count;
673: X_return_status := Fnd_Api.G_RET_STS_ERROR;
674: RAISE Fnd_Api.G_EXC_ERROR;
675: END IF;
676:
677:
678: p_x_task_Rec.task_type_code :='UNPLANNED';
694: END IF;
695:
696: IF l_msg_count > 0 THEN
697: X_msg_count := l_msg_count;
698: X_return_status := Fnd_Api.G_RET_STS_ERROR;
699: RAISE Fnd_Api.G_EXC_ERROR;
700: END IF;
701:
702: -- Update of ahl_schedule_materials added by surrkuma on 15-JUl-2010 for Bug 9901811
695:
696: IF l_msg_count > 0 THEN
697: X_msg_count := l_msg_count;
698: X_return_status := Fnd_Api.G_RET_STS_ERROR;
699: RAISE Fnd_Api.G_EXC_ERROR;
700: END IF;
701:
702: -- Update of ahl_schedule_materials added by surrkuma on 15-JUl-2010 for Bug 9901811
703: -- Materials were created with the type of PLANNED. Need to change to UNPLANNED
741: p_visit_id =>l_visit_csr_rec.visit_id,
742: p_flag =>'Y',
743: x_return_status =>x_return_status);
744: END IF;
745: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
746: CLOSE C_VISIT;
747: RAISE FND_API.G_EXC_ERROR;
748: END IF;
749: CLOSE C_VISIT;
743: x_return_status =>x_return_status);
744: END IF;
745: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
746: CLOSE C_VISIT;
747: RAISE FND_API.G_EXC_ERROR;
748: END IF;
749: CLOSE C_VISIT;
750: -- B6452310 - sowsubra
751: -- END IF;
754: --
755: -- END of API body.
756: --
757: -- Standard check of p_commit.
758: IF Fnd_Api.To_Boolean ( p_commit ) THEN
759: COMMIT WORK;
760: END IF;
761:
762: -- Standard call to get message count and if count is 1, get message info
760: END IF;
761:
762: -- Standard call to get message count and if count is 1, get message info
763: Fnd_Msg_Pub.count_and_get(
764: p_encoded => Fnd_Api.g_false,
765: p_count => x_msg_count,
766: p_data => x_msg_data
767: );
768:
770: fnd_log.string(fnd_log.level_procedure, l_full_name ||'.end', 'Exiting procedure');
771: END IF;
772:
773: EXCEPTION
774: WHEN Fnd_Api.g_exc_error THEN
775: ROLLBACK TO Create_Unplanned_Task;
776: x_return_status := Fnd_Api.g_ret_sts_error;
777: Fnd_Msg_Pub.count_and_get(
778: p_encoded => Fnd_Api.g_false,
772:
773: EXCEPTION
774: WHEN Fnd_Api.g_exc_error THEN
775: ROLLBACK TO Create_Unplanned_Task;
776: x_return_status := Fnd_Api.g_ret_sts_error;
777: Fnd_Msg_Pub.count_and_get(
778: p_encoded => Fnd_Api.g_false,
779: p_count => x_msg_count,
780: p_data => x_msg_data
774: WHEN Fnd_Api.g_exc_error THEN
775: ROLLBACK TO Create_Unplanned_Task;
776: x_return_status := Fnd_Api.g_ret_sts_error;
777: Fnd_Msg_Pub.count_and_get(
778: p_encoded => Fnd_Api.g_false,
779: p_count => x_msg_count,
780: p_data => x_msg_data
781: );
782: WHEN Fnd_Api.g_exc_unexpected_error THEN
778: p_encoded => Fnd_Api.g_false,
779: p_count => x_msg_count,
780: p_data => x_msg_data
781: );
782: WHEN Fnd_Api.g_exc_unexpected_error THEN
783: ROLLBACK TO Create_Unplanned_Task;
784: x_return_status := Fnd_Api.g_ret_sts_unexp_error;
785: Fnd_Msg_Pub.count_and_get (
786: p_encoded => Fnd_Api.g_false,
780: p_data => x_msg_data
781: );
782: WHEN Fnd_Api.g_exc_unexpected_error THEN
783: ROLLBACK TO Create_Unplanned_Task;
784: x_return_status := Fnd_Api.g_ret_sts_unexp_error;
785: Fnd_Msg_Pub.count_and_get (
786: p_encoded => Fnd_Api.g_false,
787: p_count => x_msg_count,
788: p_data => x_msg_data
782: WHEN Fnd_Api.g_exc_unexpected_error THEN
783: ROLLBACK TO Create_Unplanned_Task;
784: x_return_status := Fnd_Api.g_ret_sts_unexp_error;
785: Fnd_Msg_Pub.count_and_get (
786: p_encoded => Fnd_Api.g_false,
787: p_count => x_msg_count,
788: p_data => x_msg_data
789: );
790: WHEN OTHERS THEN
788: p_data => x_msg_data
789: );
790: WHEN OTHERS THEN
791: ROLLBACK TO Create_Unplanned_Task;
792: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
793: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
794: THEN
795: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
796: END IF;
794: THEN
795: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
796: END IF;
797: Fnd_Msg_Pub.count_and_get (
798: p_encoded => Fnd_Api.g_false,
799: p_count => x_msg_count,
800: p_data => x_msg_data
801: );
802: END Create_Unplanned_Task;
809: -- To update Unplanned task for the Maintainance visit.
810: --------------------------------------------------------------------
811: PROCEDURE Update_Unplanned_Task (
812: p_api_version IN NUMBER,
813: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
814: p_commit IN VARCHAR2 := Fnd_Api.g_false,
815: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
816: p_module_type IN VARCHAR2 := 'JSP',
817:
810: --------------------------------------------------------------------
811: PROCEDURE Update_Unplanned_Task (
812: p_api_version IN NUMBER,
813: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
814: p_commit IN VARCHAR2 := Fnd_Api.g_false,
815: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
816: p_module_type IN VARCHAR2 := 'JSP',
817:
818: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
811: PROCEDURE Update_Unplanned_Task (
812: p_api_version IN NUMBER,
813: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
814: p_commit IN VARCHAR2 := Fnd_Api.g_false,
815: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
816: p_module_type IN VARCHAR2 := 'JSP',
817:
818: p_x_task_rec IN OUT NOCOPY AHL_VWP_RULES_PVT.Task_Rec_Type,
819: x_return_status OUT NOCOPY VARCHAR2,
858: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
859: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||':*************************Start*************************');
860: END IF;
861:
862: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
863: Fnd_Msg_Pub.initialize;
864: END IF;
865:
866: -- Initialize API return status to success
863: Fnd_Msg_Pub.initialize;
864: END IF;
865:
866: -- Initialize API return status to success
867: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
868:
869: -- Standard call to check for call compatibility.
870: IF NOT Fnd_Api.compatible_api_call(
871: l_api_version,
866: -- Initialize API return status to success
867: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
868:
869: -- Standard call to check for call compatibility.
870: IF NOT Fnd_Api.compatible_api_call(
871: l_api_version,
872: p_api_version,
873: l_api_name,
874: G_PKG_NAME
872: p_api_version,
873: l_api_name,
874: G_PKG_NAME
875: ) THEN
876: RAISE Fnd_Api.g_exc_unexpected_error;
877: END IF;
878:
879: ------------------------Start of API Body------------------------------------
880: OPEN c_Visit(l_Task_rec.visit_id);
900: ----------- Start defining and validate all LOVs on Create Visit's Task UI Screen---
901: --
902: -- For DEPARTMENT
903: -- Convert department name to department id
904: IF (l_task_rec.dept_name IS NOT NULL AND l_task_rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
905:
906: AHL_VWP_RULES_PVT.Check_Dept_Desc_Or_Id
907: (p_organization_id => c_visit_rec.organization_id,
908: p_dept_name => l_task_rec.dept_name,
910: x_department_id => l_department_id,
911: x_return_status => l_return_status,
912: x_error_msg_code => l_msg_data);
913:
914: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS
915: THEN
916: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
917: Fnd_Msg_Pub.ADD;
918: RAISE Fnd_Api.G_EXC_ERROR;
914: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS
915: THEN
916: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
917: Fnd_Msg_Pub.ADD;
918: RAISE Fnd_Api.G_EXC_ERROR;
919: END IF;
920:
921: --Assign the returned value
922: l_task_rec.department_id := l_department_id;
930: --
931: -- For COST PARENT TASK
932: -- Convert cost parent number to id
933: IF (l_Task_rec.cost_parent_number IS NOT NULL AND
934: l_Task_rec.cost_parent_number <> Fnd_Api.G_MISS_NUM ) THEN
935:
936: AHL_VWP_RULES_PVT.Check_Visit_Task_Number_OR_ID
937: (p_visit_task_id => l_Task_rec.cost_parent_id,
938: p_visit_task_number => l_Task_rec.cost_parent_number,
940: x_visit_task_id => l_cost_parent_id,
941: x_return_status => l_return_status,
942: x_error_msg_code => l_msg_data);
943:
944: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS
945: THEN
946: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
947: Fnd_Msg_Pub.ADD;
948: RAISE Fnd_Api.g_exc_error;
944: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS
945: THEN
946: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
947: Fnd_Msg_Pub.ADD;
948: RAISE Fnd_Api.g_exc_error;
949: END IF;
950:
951: --Assign the returned value
952: l_Task_rec.cost_parent_id := l_cost_parent_id;
958: END IF;
959:
960: -- To Check for cost parent task id not forming loop
961: IF (l_Task_rec.cost_parent_id IS NOT NULL AND
962: l_Task_rec.cost_parent_id <> Fnd_Api.G_MISS_NUM ) THEN
963:
964: AHL_VWP_RULES_PVT.Check_Cost_Parent_Loop
965: (p_visit_id => l_Task_rec.visit_id,
966: p_visit_task_id => l_Task_rec.visit_task_id ,
994: p_task_rec => p_x_task_rec,
995: p_validation_mode => Jtf_Plsql_Api.g_update,
996: x_return_status => l_return_status
997: );
998: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
999: RAISE Fnd_Api.g_exc_unexpected_error;
1000: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
1001: RAISE Fnd_Api.g_exc_error;
1002: END IF;
995: p_validation_mode => Jtf_Plsql_Api.g_update,
996: x_return_status => l_return_status
997: );
998: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
999: RAISE Fnd_Api.g_exc_unexpected_error;
1000: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
1001: RAISE Fnd_Api.g_exc_error;
1002: END IF;
1003: END IF;
996: x_return_status => l_return_status
997: );
998: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
999: RAISE Fnd_Api.g_exc_unexpected_error;
1000: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
1001: RAISE Fnd_Api.g_exc_error;
1002: END IF;
1003: END IF;
1004:
997: );
998: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
999: RAISE Fnd_Api.g_exc_unexpected_error;
1000: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
1001: RAISE Fnd_Api.g_exc_error;
1002: END IF;
1003: END IF;
1004:
1005: -- Check Object version number.
1005: -- Check Object version number.
1006: IF (c_task_rec.object_version_number <> l_task_rec.object_version_number) THEN
1007: Fnd_Message.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1008: Fnd_Msg_Pub.ADD;
1009: RAISE Fnd_Api.G_EXC_ERROR;
1010: END IF;
1011:
1012: -- Post 11.5.10 Changes by Senthil.
1013: IF(L_task_rec.STAGE_ID IS NOT NULL OR L_task_rec.STAGE_NAME IS NOT NULL) THEN
1025:
1026: --Standard check to count messages
1027: l_msg_count := Fnd_Msg_Pub.count_msg;
1028:
1029: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1030: X_msg_count := l_msg_count;
1031: X_return_status := Fnd_Api.G_RET_STS_ERROR;
1032: RAISE Fnd_Api.G_EXC_ERROR;
1033: END IF;
1027: l_msg_count := Fnd_Msg_Pub.count_msg;
1028:
1029: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1030: X_msg_count := l_msg_count;
1031: X_return_status := Fnd_Api.G_RET_STS_ERROR;
1032: RAISE Fnd_Api.G_EXC_ERROR;
1033: END IF;
1034:
1035: -------------------------- update --------------------
1028:
1029: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1030: X_msg_count := l_msg_count;
1031: X_return_status := Fnd_Api.G_RET_STS_ERROR;
1032: RAISE Fnd_Api.G_EXC_ERROR;
1033: END IF;
1034:
1035: -------------------------- update --------------------
1036: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1156: l_return_status);
1157: END IF;
1158:
1159: l_msg_count := Fnd_Msg_Pub.count_msg;
1160: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
1161: x_msg_count := l_msg_count;
1162: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1163: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1164: END IF;
1158:
1159: l_msg_count := Fnd_Msg_Pub.count_msg;
1160: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
1161: x_msg_count := l_msg_count;
1162: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1163: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1164: END IF;
1165: --salogan added for supplier warranty ends
1166:
1159: l_msg_count := Fnd_Msg_Pub.count_msg;
1160: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
1161: x_msg_count := l_msg_count;
1162: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1163: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1164: END IF;
1165: --salogan added for supplier warranty ends
1166:
1167: -- Assign back to in/out parameter
1173:
1174: -- SKPATHAK :: ER: 9147951 :: 11-JAN-2010 ::Call Adjust_Task_Times only if past date is null
1175: IF l_task_rec.PAST_TASK_START_DATE IS NULL THEN
1176: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
1177: p_init_msg_list => Fnd_Api.G_FALSE,
1178: p_commit => Fnd_Api.G_FALSE,
1179: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1180: x_return_status => l_return_status,
1181: x_msg_count => l_msg_count,
1174: -- SKPATHAK :: ER: 9147951 :: 11-JAN-2010 ::Call Adjust_Task_Times only if past date is null
1175: IF l_task_rec.PAST_TASK_START_DATE IS NULL THEN
1176: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
1177: p_init_msg_list => Fnd_Api.G_FALSE,
1178: p_commit => Fnd_Api.G_FALSE,
1179: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1180: x_return_status => l_return_status,
1181: x_msg_count => l_msg_count,
1182: x_msg_data => l_msg_data,
1175: IF l_task_rec.PAST_TASK_START_DATE IS NULL THEN
1176: AHL_VWP_TIMES_PVT.Adjust_Task_Times(p_api_version => 1.0,
1177: p_init_msg_list => Fnd_Api.G_FALSE,
1178: p_commit => Fnd_Api.G_FALSE,
1179: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
1180: x_return_status => l_return_status,
1181: x_msg_count => l_msg_count,
1182: x_msg_data => l_msg_data,
1183: p_task_id => l_task_rec.visit_task_id);
1185:
1186: --Standard check to count messages
1187: l_msg_count := Fnd_Msg_Pub.count_msg;
1188:
1189: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1190: x_msg_count := l_msg_count;
1191: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1192: RAISE Fnd_Api.G_EXC_ERROR;
1193: END IF;
1187: l_msg_count := Fnd_Msg_Pub.count_msg;
1188:
1189: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1190: x_msg_count := l_msg_count;
1191: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1192: RAISE Fnd_Api.G_EXC_ERROR;
1193: END IF;
1194:
1195:
1188:
1189: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1190: x_msg_count := l_msg_count;
1191: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1192: RAISE Fnd_Api.G_EXC_ERROR;
1193: END IF;
1194:
1195:
1196: -- To Update visit attribute any_task_chg_flag for costing purpose
1207: IF c_upd_Task_rec.start_date_time IS NOT NULL THEN
1208:
1209: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
1210: p_api_version => 1.0,
1211: p_init_msg_list => FND_API.g_false,
1212: p_commit => FND_API.g_false,
1213: p_validation_level => FND_API.g_valid_level_full,
1214: p_visit_id => l_task_rec.visit_id,
1215: p_visit_task_id => NULL,
1208:
1209: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
1210: p_api_version => 1.0,
1211: p_init_msg_list => FND_API.g_false,
1212: p_commit => FND_API.g_false,
1213: p_validation_level => FND_API.g_valid_level_full,
1214: p_visit_id => l_task_rec.visit_id,
1215: p_visit_task_id => NULL,
1216: p_org_id => NULL,
1209: AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials (
1210: p_api_version => 1.0,
1211: p_init_msg_list => FND_API.g_false,
1212: p_commit => FND_API.g_false,
1213: p_validation_level => FND_API.g_valid_level_full,
1214: p_visit_id => l_task_rec.visit_id,
1215: p_visit_task_id => NULL,
1216: p_org_id => NULL,
1217: p_start_date => NULL,
1226: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.',l_full_name ||'Planned Order Flag : ' || l_planned_order_flag);
1227: END IF;
1228:
1229: IF l_return_status <> 'S' THEN
1230: RAISE Fnd_Api.G_EXC_ERROR;
1231: END IF;
1232:
1233: END IF; -- Start_date_time check.
1234:
1245: l_msg_count := Fnd_Msg_Pub.count_msg;
1246:
1247: IF l_msg_count > 0 THEN
1248: X_msg_count := l_msg_count;
1249: X_return_status := Fnd_Api.G_RET_STS_ERROR;
1250: RAISE Fnd_Api.G_EXC_ERROR;
1251: END IF;
1252:
1253: --Standard check for commit
1246:
1247: IF l_msg_count > 0 THEN
1248: X_msg_count := l_msg_count;
1249: X_return_status := Fnd_Api.G_RET_STS_ERROR;
1250: RAISE Fnd_Api.G_EXC_ERROR;
1251: END IF;
1252:
1253: --Standard check for commit
1254: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1250: RAISE Fnd_Api.G_EXC_ERROR;
1251: END IF;
1252:
1253: --Standard check for commit
1254: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1255: COMMIT;
1256: END IF;
1257:
1258: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1260: END IF;
1261:
1262:
1263: EXCEPTION
1264: WHEN Fnd_Api.g_exc_error THEN
1265: ROLLBACK TO Update_Unplanned_Task;
1266: x_return_status := Fnd_Api.g_ret_sts_error;
1267: Fnd_Msg_Pub.count_and_get (
1268: p_encoded => Fnd_Api.g_false,
1262:
1263: EXCEPTION
1264: WHEN Fnd_Api.g_exc_error THEN
1265: ROLLBACK TO Update_Unplanned_Task;
1266: x_return_status := Fnd_Api.g_ret_sts_error;
1267: Fnd_Msg_Pub.count_and_get (
1268: p_encoded => Fnd_Api.g_false,
1269: p_count => x_msg_count,
1270: p_data => x_msg_data
1264: WHEN Fnd_Api.g_exc_error THEN
1265: ROLLBACK TO Update_Unplanned_Task;
1266: x_return_status := Fnd_Api.g_ret_sts_error;
1267: Fnd_Msg_Pub.count_and_get (
1268: p_encoded => Fnd_Api.g_false,
1269: p_count => x_msg_count,
1270: p_data => x_msg_data
1271: );
1272: WHEN Fnd_Api.g_exc_unexpected_error THEN
1268: p_encoded => Fnd_Api.g_false,
1269: p_count => x_msg_count,
1270: p_data => x_msg_data
1271: );
1272: WHEN Fnd_Api.g_exc_unexpected_error THEN
1273: ROLLBACK TO Update_Unplanned_Task;
1274: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1275: Fnd_Msg_Pub.count_and_get (
1276: p_encoded => Fnd_Api.g_false,
1270: p_data => x_msg_data
1271: );
1272: WHEN Fnd_Api.g_exc_unexpected_error THEN
1273: ROLLBACK TO Update_Unplanned_Task;
1274: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1275: Fnd_Msg_Pub.count_and_get (
1276: p_encoded => Fnd_Api.g_false,
1277: p_count => x_msg_count,
1278: p_data => x_msg_data
1272: WHEN Fnd_Api.g_exc_unexpected_error THEN
1273: ROLLBACK TO Update_Unplanned_Task;
1274: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1275: Fnd_Msg_Pub.count_and_get (
1276: p_encoded => Fnd_Api.g_false,
1277: p_count => x_msg_count,
1278: p_data => x_msg_data
1279: );
1280: WHEN OTHERS THEN
1278: p_data => x_msg_data
1279: );
1280: WHEN OTHERS THEN
1281: ROLLBACK TO Update_Unplanned_Task;
1282: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1283: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1284: THEN
1285: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1286: END IF;
1284: THEN
1285: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1286: END IF;
1287: Fnd_Msg_Pub.count_and_get (
1288: p_encoded => Fnd_Api.g_false,
1289: p_count => x_msg_count,
1290: p_data => x_msg_data
1291: );
1292: END Update_Unplanned_Task;
1300: -- Modifying the Unplanned tasks for costing by rtadikon
1301: --------------------------------------------------------------------
1302: PROCEDURE Delete_Unplanned_Task (
1303: p_api_version IN NUMBER,
1304: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1305: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1306: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1307: p_module_type IN VARCHAR2 := 'JSP',
1308: p_visit_task_ID IN NUMBER,
1301: --------------------------------------------------------------------
1302: PROCEDURE Delete_Unplanned_Task (
1303: p_api_version IN NUMBER,
1304: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1305: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1306: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1307: p_module_type IN VARCHAR2 := 'JSP',
1308: p_visit_task_ID IN NUMBER,
1309: x_return_status OUT NOCOPY VARCHAR2,
1302: PROCEDURE Delete_Unplanned_Task (
1303: p_api_version IN NUMBER,
1304: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1305: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1306: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1307: p_module_type IN VARCHAR2 := 'JSP',
1308: p_visit_task_ID IN NUMBER,
1309: x_return_status OUT NOCOPY VARCHAR2,
1310: x_msg_count OUT NOCOPY NUMBER,
1334: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1335: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||':*************************START*************************');
1336: END IF;
1337:
1338: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
1339: Fnd_Msg_Pub.initialize;
1340: END IF;
1341:
1342: -- Initialize API return status to success
1339: Fnd_Msg_Pub.initialize;
1340: END IF;
1341:
1342: -- Initialize API return status to success
1343: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1344:
1345: -- Standard call to check for call compatibility.
1346: IF NOT Fnd_Api.compatible_api_call(
1347: l_api_version,
1342: -- Initialize API return status to success
1343: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1344:
1345: -- Standard call to check for call compatibility.
1346: IF NOT Fnd_Api.compatible_api_call(
1347: l_api_version,
1348: p_api_version,
1349: l_api_name,
1350: G_PKG_NAME) THEN
1347: l_api_version,
1348: p_api_version,
1349: l_api_name,
1350: G_PKG_NAME) THEN
1351: RAISE Fnd_Api.g_exc_unexpected_error;
1352: END IF;
1353:
1354: ------------------------Start of API Body------------------------------------
1355: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1366: CLOSE c_Task;
1367: Fnd_Message.set_name('AHL', 'AHL_VWP_TASK_ID_INVALID');
1368: FND_MESSAGE.SET_TOKEN('TASK_ID',p_visit_task_id,false);
1369: Fnd_Msg_Pub.ADD;
1370: RAISE Fnd_Api.g_exc_error;
1371: ELSE
1372: CLOSE c_Task;
1373:
1374: l_origin_id:= c_task_rec.originating_task_id;
1380: END IF;
1381:
1382: AHL_VWP_TASKS_PVT.Delete_Summary_Task(
1383: p_api_version => p_api_version,
1384: p_init_msg_list => Fnd_Api.g_false,
1385: p_commit => Fnd_Api.g_false,
1386: p_validation_level => Fnd_Api.g_valid_level_full,
1387: p_module_type => NULL,
1388: p_Visit_Task_Id => l_origin_id,
1381:
1382: AHL_VWP_TASKS_PVT.Delete_Summary_Task(
1383: p_api_version => p_api_version,
1384: p_init_msg_list => Fnd_Api.g_false,
1385: p_commit => Fnd_Api.g_false,
1386: p_validation_level => Fnd_Api.g_valid_level_full,
1387: p_module_type => NULL,
1388: p_Visit_Task_Id => l_origin_id,
1389: x_return_status => x_return_status,
1382: AHL_VWP_TASKS_PVT.Delete_Summary_Task(
1383: p_api_version => p_api_version,
1384: p_init_msg_list => Fnd_Api.g_false,
1385: p_commit => Fnd_Api.g_false,
1386: p_validation_level => Fnd_Api.g_valid_level_full,
1387: p_module_type => NULL,
1388: p_Visit_Task_Id => l_origin_id,
1389: x_return_status => x_return_status,
1390: x_msg_count => x_msg_count,
1390: x_msg_count => x_msg_count,
1391: x_msg_data => x_msg_data
1392: );
1393:
1394: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1395: RAISE Fnd_Api.G_EXC_ERROR;
1396: END IF;
1397:
1398: Else
1391: x_msg_data => x_msg_data
1392: );
1393:
1394: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1395: RAISE Fnd_Api.G_EXC_ERROR;
1396: END IF;
1397:
1398: Else
1399: Fnd_Message.SET_NAME('AHL','AHL_VWP_UNPLANNEDTASKMR');
1397:
1398: Else
1399: Fnd_Message.SET_NAME('AHL','AHL_VWP_UNPLANNEDTASKMR');
1400: Fnd_Msg_Pub.ADD;
1401: RAISE Fnd_Api.G_EXC_ERROR;
1402: --Displays 'Unplanned Task association to Maintenance Requirement is missing.'
1403: End IF;
1404:
1405: END IF;
1416: */
1417:
1418: l_msg_count := Fnd_Msg_Pub.count_msg;
1419:
1420: IF l_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1421: X_msg_count := l_msg_count;
1422: X_return_status := Fnd_Api.G_RET_STS_ERROR;
1423:
1424: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1418: l_msg_count := Fnd_Msg_Pub.count_msg;
1419:
1420: IF l_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1421: X_msg_count := l_msg_count;
1422: X_return_status := Fnd_Api.G_RET_STS_ERROR;
1423:
1424: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1425: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', ' Error Before Commit---> After Delete Summary task call');
1426: END IF;
1424: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1425: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', ' Error Before Commit---> After Delete Summary task call');
1426: END IF;
1427:
1428: RAISE Fnd_Api.G_EXC_ERROR;
1429: END IF;
1430:
1431:
1432: ------------------------End of API Body------------------------------------
1429: END IF;
1430:
1431:
1432: ------------------------End of API Body------------------------------------
1433: IF Fnd_Api.to_boolean (p_commit) THEN
1434: COMMIT;
1435: END IF;
1436:
1437: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1437: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1438: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||':*************************END*************************');
1439: END IF;
1440: EXCEPTION
1441: WHEN Fnd_Api.g_exc_error THEN
1442: ROLLBACK TO Delete_Unplanned_Task;
1443: x_return_status := Fnd_Api.g_ret_sts_error;
1444: Fnd_Msg_Pub.count_and_get (
1445: p_encoded => Fnd_Api.g_false,
1439: END IF;
1440: EXCEPTION
1441: WHEN Fnd_Api.g_exc_error THEN
1442: ROLLBACK TO Delete_Unplanned_Task;
1443: x_return_status := Fnd_Api.g_ret_sts_error;
1444: Fnd_Msg_Pub.count_and_get (
1445: p_encoded => Fnd_Api.g_false,
1446: p_count => x_msg_count,
1447: p_data => x_msg_data
1441: WHEN Fnd_Api.g_exc_error THEN
1442: ROLLBACK TO Delete_Unplanned_Task;
1443: x_return_status := Fnd_Api.g_ret_sts_error;
1444: Fnd_Msg_Pub.count_and_get (
1445: p_encoded => Fnd_Api.g_false,
1446: p_count => x_msg_count,
1447: p_data => x_msg_data
1448: );
1449:
1446: p_count => x_msg_count,
1447: p_data => x_msg_data
1448: );
1449:
1450: WHEN Fnd_Api.g_exc_unexpected_error THEN
1451: ROLLBACK TO Delete_Unplanned_Task;
1452: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1453: Fnd_Msg_Pub.count_and_get (
1454: p_encoded => Fnd_Api.g_false,
1448: );
1449:
1450: WHEN Fnd_Api.g_exc_unexpected_error THEN
1451: ROLLBACK TO Delete_Unplanned_Task;
1452: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1453: Fnd_Msg_Pub.count_and_get (
1454: p_encoded => Fnd_Api.g_false,
1455: p_count => x_msg_count,
1456: p_data => x_msg_data
1450: WHEN Fnd_Api.g_exc_unexpected_error THEN
1451: ROLLBACK TO Delete_Unplanned_Task;
1452: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1453: Fnd_Msg_Pub.count_and_get (
1454: p_encoded => Fnd_Api.g_false,
1455: p_count => x_msg_count,
1456: p_data => x_msg_data
1457: );
1458:
1457: );
1458:
1459: WHEN OTHERS THEN
1460: ROLLBACK TO Delete_Unplanned_Task;
1461: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1462: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1463: THEN
1464: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1465: END IF;
1463: THEN
1464: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1465: END IF;
1466: Fnd_Msg_Pub.count_and_get (
1467: p_encoded => Fnd_Api.g_false,
1468: p_count => x_msg_count,
1469: p_data => x_msg_data
1470: );
1471:
1488: BEGIN
1489: --
1490: -- Validate required items.
1491:
1492: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1493:
1494: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1495: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.'||G_PKG_NAME,'Check_Task_Items' || ':Before Check_Visit_Task_Req_Items');
1496: END IF;
1497: Check_Visit_Task_Req_Items (
1498: p_task_rec => p_task_rec,
1499: x_return_status => x_return_status
1500: );
1501: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
1502: RETURN;
1503: END IF;
1504: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1505: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', 'Check_Task_Items' || ':After Check_Visit_Task_Req_Items');
1514: p_task_rec => p_task_rec,
1515: p_validation_mode => p_validation_mode,
1516: x_return_status => x_return_status
1517: );
1518: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
1519: RETURN;
1520: END IF;
1521: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1522: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.'||G_PKG_NAME, 'Check_Task_Items' ||':Before Check_Visit_Task_UK_Items');
1553: IF c_Visit_Task%NOTFOUND THEN
1554: CLOSE c_Visit_Task;
1555: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
1556: Fnd_Msg_Pub.ADD;
1557: RAISE Fnd_Api.g_exc_error;
1558: END IF;
1559: CLOSE c_Visit_Task;
1560:
1561: END Complete_Visit_Task_Rec;
1575: IS
1576:
1577: BEGIN
1578:
1579: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1580: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1581: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.'||G_PKG_NAME,'Check_Visit_Task_Req_Items: = Start Check_Visit_Task_Req_Items ');
1582: END IF;
1583: -- TASK NAME ==== NAME
1580: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1581: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.'||G_PKG_NAME,'Check_Visit_Task_Req_Items: = Start Check_Visit_Task_Req_Items ');
1582: END IF;
1583: -- TASK NAME ==== NAME
1584: IF (p_task_rec.VISIT_TASK_NAME IS NULL OR p_Task_rec.VISIT_TASK_NAME = Fnd_Api.G_MISS_CHAR) THEN
1585: Fnd_Message.set_name ('AHL', 'AHL_VWP_NAME_MISSING');
1586: Fnd_Msg_Pub.ADD;
1587: x_return_status := Fnd_Api.g_ret_sts_error;
1588: RETURN;
1583: -- TASK NAME ==== NAME
1584: IF (p_task_rec.VISIT_TASK_NAME IS NULL OR p_Task_rec.VISIT_TASK_NAME = Fnd_Api.G_MISS_CHAR) THEN
1585: Fnd_Message.set_name ('AHL', 'AHL_VWP_NAME_MISSING');
1586: Fnd_Msg_Pub.ADD;
1587: x_return_status := Fnd_Api.g_ret_sts_error;
1588: RETURN;
1589: END IF;
1590: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1591: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.'||G_PKG_NAME,'Check_Visit_Task_Req_Items:Inside Validation Start from Hour = ' || p_task_rec.START_FROM_HOUR);
1589: END IF;
1590: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1591: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.'||G_PKG_NAME,'Check_Visit_Task_Req_Items:Inside Validation Start from Hour = ' || p_task_rec.START_FROM_HOUR);
1592: END IF;
1593: IF (p_task_rec.START_FROM_HOUR IS NOT NULL and p_Task_rec.START_FROM_HOUR <> Fnd_Api.G_MISS_NUM) THEN
1594: IF p_task_rec.START_FROM_HOUR < 0 OR FLOOR(p_task_rec.START_FROM_HOUR) <> p_task_rec.START_FROM_HOUR THEN
1595: Fnd_Message.set_name ('AHL', 'AHL_VWP_ONLY_POSITIVE_VALUE');
1596: Fnd_Msg_Pub.ADD;
1597: x_return_status := Fnd_Api.g_ret_sts_error;
1593: IF (p_task_rec.START_FROM_HOUR IS NOT NULL and p_Task_rec.START_FROM_HOUR <> Fnd_Api.G_MISS_NUM) THEN
1594: IF p_task_rec.START_FROM_HOUR < 0 OR FLOOR(p_task_rec.START_FROM_HOUR) <> p_task_rec.START_FROM_HOUR THEN
1595: Fnd_Message.set_name ('AHL', 'AHL_VWP_ONLY_POSITIVE_VALUE');
1596: Fnd_Msg_Pub.ADD;
1597: x_return_status := Fnd_Api.g_ret_sts_error;
1598: RETURN;
1599: END IF;
1600: END IF;
1601:
1616: IS
1617: l_valid_flag VARCHAR2(1);
1618:
1619: BEGIN
1620: x_return_status := Fnd_Api.g_ret_sts_success;
1621: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1622: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.'||G_PKG_NAME,'Check_Visit_Task_UK_Items: = Start Check_Visit_Task_UK_Items ');
1623: END IF;
1624: --
1631: -- FOR CREATION
1632: IF Ahl_Utility_Pvt.check_uniqueness(
1633: 'Ahl_Visit_Tasks_vl',
1634: 'Visit_Task_ID = ' || p_task_rec.Visit_Task_ID
1635: ) = Fnd_Api.g_false
1636: THEN
1637: Fnd_Message.set_name ('AHL', 'AHL_VWP_DUPLICATE_TASK_ID');
1638: Fnd_Msg_Pub.ADD;
1639: x_return_status := Fnd_Api.g_ret_sts_error;
1635: ) = Fnd_Api.g_false
1636: THEN
1637: Fnd_Message.set_name ('AHL', 'AHL_VWP_DUPLICATE_TASK_ID');
1638: Fnd_Msg_Pub.ADD;
1639: x_return_status := Fnd_Api.g_ret_sts_error;
1640: RETURN;
1641: END IF;
1642: END IF;
1643: