[Home] [Help]
41: -- Parameters :
42: --
43: -- Standard IN Parameters :
44: -- p_api_version IN NUMBER Required
45: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
46: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
47: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
48: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
49: -- p_module_type IN VARCHAR2 Default NULL.
42: --
43: -- Standard IN Parameters :
44: -- p_api_version IN NUMBER Required
45: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
46: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
47: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
48: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
49: -- p_module_type IN VARCHAR2 Default NULL.
50: --
43: -- Standard IN Parameters :
44: -- p_api_version IN NUMBER Required
45: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
46: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
47: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
48: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
49: -- p_module_type IN VARCHAR2 Default NULL.
50: --
51: -- Standard OUT Parameters :
44: -- p_api_version IN NUMBER Required
45: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
46: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
47: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
48: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
49: -- p_module_type IN VARCHAR2 Default NULL.
50: --
51: -- Standard OUT Parameters :
52: -- x_return_status OUT VARCHAR2 Required
62: -- Initial Version 1.0
63: -------------------------------------------------------------------
64: PROCEDURE Push_to_Production
65: (p_api_version IN NUMBER,
66: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
67: p_commit IN VARCHAR2 := Fnd_Api.g_false,
68: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
69: p_module_type IN VARCHAR2 := Null,
70: p_visit_id IN NUMBER,
63: -------------------------------------------------------------------
64: PROCEDURE Push_to_Production
65: (p_api_version IN NUMBER,
66: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
67: p_commit IN VARCHAR2 := Fnd_Api.g_false,
68: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
69: p_module_type IN VARCHAR2 := Null,
70: p_visit_id IN NUMBER,
71: p_release_flag IN VARCHAR2 := 'N',
64: PROCEDURE Push_to_Production
65: (p_api_version IN NUMBER,
66: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
67: p_commit IN VARCHAR2 := Fnd_Api.g_false,
68: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
69: p_module_type IN VARCHAR2 := Null,
70: p_visit_id IN NUMBER,
71: p_release_flag IN VARCHAR2 := 'N',
72: p_orig_visit_id IN NUMBER := NULL, -- By yazhou 08/06/04 for TC changes
82: -- Parameters :
83: --
84: -- Standard IN Parameters :
85: -- p_api_version IN NUMBER Required
86: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
87: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
88: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
89: -- p_module_type IN VARCHAR2 Default NULL.
90: --
83: --
84: -- Standard IN Parameters :
85: -- p_api_version IN NUMBER Required
86: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
87: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
88: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
89: -- p_module_type IN VARCHAR2 Default NULL.
90: --
91: -- Standard OUT Parameters :
84: -- Standard IN Parameters :
85: -- p_api_version IN NUMBER Required
86: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
87: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
88: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
89: -- p_module_type IN VARCHAR2 Default NULL.
90: --
91: -- Standard OUT Parameters :
92: -- x_return_status OUT VARCHAR2 Required
103: -- Initial Version 1.0 Created by Yazhou
104: -------------------------------------------------------------------
105: PROCEDURE Push_MR_to_Production
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 := Null,
111: p_visit_id IN NUMBER,
104: -------------------------------------------------------------------
105: PROCEDURE Push_MR_to_Production
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 := Null,
111: p_visit_id IN NUMBER,
112: p_unit_effectivity_id IN NUMBER,
105: PROCEDURE Push_MR_to_Production
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 := Null,
111: p_visit_id IN NUMBER,
112: p_unit_effectivity_id IN NUMBER,
113: p_release_flag IN VARCHAR2 := 'N',
126: -- Parameters :
127: --
128: -- Standard IN Parameters :
129: -- p_api_version IN NUMBER Required
130: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
131: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
132: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
133: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
134: -- p_module_type IN VARCHAR2 Default NULL.
127: --
128: -- Standard IN Parameters :
129: -- p_api_version IN NUMBER Required
130: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
131: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
132: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
133: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
134: -- p_module_type IN VARCHAR2 Default NULL.
135: --
128: -- Standard IN Parameters :
129: -- p_api_version IN NUMBER Required
130: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
131: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
132: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
133: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
134: -- p_module_type IN VARCHAR2 Default NULL.
135: --
136: -- Standard OUT Parameters :
129: -- p_api_version IN NUMBER Required
130: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
131: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
132: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
133: -- p_default IN VARCHAR2 Default FND_API.G_TRUE
134: -- p_module_type IN VARCHAR2 Default NULL.
135: --
136: -- Standard OUT Parameters :
137: -- x_return_status OUT VARCHAR2 Required
147: -- Initial Version 1.0 29-Jul-2005 Yazhou
148: -------------------------------------------------------------------
149: PROCEDURE Add_MR_to_Project(
150: p_api_version IN NUMBER,
151: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
152: p_commit IN VARCHAR2 := Fnd_Api.g_false,
153: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
154: p_module_type IN VARCHAR2 := Null,
155: p_visit_id IN NUMBER,
148: -------------------------------------------------------------------
149: PROCEDURE Add_MR_to_Project(
150: p_api_version IN NUMBER,
151: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
152: p_commit IN VARCHAR2 := Fnd_Api.g_false,
153: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
154: p_module_type IN VARCHAR2 := Null,
155: p_visit_id IN NUMBER,
156: p_unit_effectivity_id IN NUMBER,
149: PROCEDURE Add_MR_to_Project(
150: p_api_version IN NUMBER,
151: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
152: p_commit IN VARCHAR2 := Fnd_Api.g_false,
153: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
154: p_module_type IN VARCHAR2 := Null,
155: p_visit_id IN NUMBER,
156: p_unit_effectivity_id IN NUMBER,
157: x_return_status OUT NOCOPY VARCHAR2,
207: -- Parameters :
208: --
209: -- Standard IN Parameters :
210: -- p_api_version IN NUMBER Required
211: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
212: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
213: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
214: -- p_module_type IN VARCHAR2 Default Null
215: --
208: --
209: -- Standard IN Parameters :
210: -- p_api_version IN NUMBER Required
211: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
212: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
213: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
214: -- p_module_type IN VARCHAR2 Default Null
215: --
216: -- Standard OUT Parameters :
209: -- Standard IN Parameters :
210: -- p_api_version IN NUMBER Required
211: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
212: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
213: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
214: -- p_module_type IN VARCHAR2 Default Null
215: --
216: -- Standard OUT Parameters :
217: -- x_return_status OUT VARCHAR2 Required
228: -------------------------------------------------------------------
229:
230: PROCEDURE Push_tasks_to_production(
231: p_api_version IN NUMBER,
232: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
233: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
234: p_module_type IN VARCHAR2 := Null,
235: p_visit_id IN NUMBER,
236: p_tasks_tbl IN Task_Tbl_Type,
229:
230: PROCEDURE Push_tasks_to_production(
231: p_api_version IN NUMBER,
232: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
233: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
234: p_module_type IN VARCHAR2 := Null,
235: p_visit_id IN NUMBER,
236: p_tasks_tbl IN Task_Tbl_Type,
237: p_release_flag IN VARCHAR2 := 'N',
383: -- To carry push to Production and Plan Visit as background processes
384: -- Parameters :
385:
386: -- Standard IN Parameters :
387: -- p_commit IN VARCHAR2 Fnd_Api.G_FALSE
388: --
389: -- Standard OUT Parameters :
390: -- x_return_status OUT VARCHAR2 Required
391: -- x_msg_count OUT NUMBER Required
403: -- 02 Dec, 2009 P2P CP ER 9151144 TCHIMIRA Initial Version - 1.0
404: --------------------------------------------------------------------
405: PROCEDURE BG_Release_Visit
406: ( p_api_version IN NUMBER,
407: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
408: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
409: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
410: p_module_type IN VARCHAR2 := NULL,
411: p_visit_id IN NUMBER,
404: --------------------------------------------------------------------
405: PROCEDURE BG_Release_Visit
406: ( p_api_version IN NUMBER,
407: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
408: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
409: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
410: p_module_type IN VARCHAR2 := NULL,
411: p_visit_id IN NUMBER,
412: p_release_flag IN VARCHAR2 := 'U',
405: PROCEDURE BG_Release_Visit
406: ( p_api_version IN NUMBER,
407: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
408: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
409: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
410: p_module_type IN VARCHAR2 := NULL,
411: p_visit_id IN NUMBER,
412: p_release_flag IN VARCHAR2 := 'U',
413: x_request_id OUT NOCOPY NUMBER,
486: -- Standard start of API savepoint
487: SAVEPOINT BG_Release_Visit_Pvt;
488:
489: -- Initialize message list if p_init_msg_list is set to TRUE
490: IF FND_API.To_Boolean(p_init_msg_list) THEN
491: FND_MSG_PUB.Initialize;
492: END IF;
493: -- Initialize API return status to success
494: x_return_status := FND_API.G_RET_STS_SUCCESS;
490: IF FND_API.To_Boolean(p_init_msg_list) THEN
491: FND_MSG_PUB.Initialize;
492: END IF;
493: -- Initialize API return status to success
494: x_return_status := FND_API.G_RET_STS_SUCCESS;
495:
496: -- Standard call to check for call compatibility.
497: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
498: p_api_version,
493: -- Initialize API return status to success
494: x_return_status := FND_API.G_RET_STS_SUCCESS;
495:
496: -- Standard call to check for call compatibility.
497: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
498: p_api_version,
499: l_api_name,G_PKG_NAME) THEN
500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
501: END IF;
496: -- Standard call to check for call compatibility.
497: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
498: p_api_version,
499: l_api_name,G_PKG_NAME) THEN
500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
501: END IF;
502:
503: -- Check for Required Parameters
504: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN
500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
501: END IF;
502:
503: -- Check for Required Parameters
504: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN
505: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_CST_INPUT_MISS');
506: FND_MSG_PUB.ADD;
507: IF (l_log_unexpected >= l_log_current_level)THEN
508: fnd_log.string
511: 'ahl.plsql.AHL_VWP_CST_WO_PVT.Release_Visit',
512: 'Visit id is mandatory but found null in input '
513: );
514: END IF;
515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
516: END IF;
517:
518: --salogan::Modified the cursor fetch to handle both request id from P2P and Cost Estimation CP ER 9299910::01-JUN-2009::BEGIN
519: OPEN c_conc_req_phase(p_visit_id);
520: FETCH c_conc_req_phase INTO l_dummy_val;
521: IF(c_conc_req_phase%FOUND) THEN
522: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_CP_P2P_IN_PROGS');
523: FND_MSG_PUB.ADD;
524: RAISE FND_API.G_EXC_ERROR;
525: END IF;
526: CLOSE c_conc_req_phase;
527: --salogan::Modified the cursor fetch to handle both request id from P2P and Cost Estimation CP ER 9299910::01-JUN-2009::END
528:
534: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_INVALID_VST');
535: FND_MESSAGE.SET_TOKEN('VISIT_ID', p_visit_id);
536: FND_MSG_PUB.ADD;
537: CLOSE get_visit_status;
538: RAISE FND_API.G_EXC_ERROR;
539: END IF;
540: CLOSE get_visit_status;
541: -- If visit status is draft, CP for plan visit need to be launched
542: IF l_visit_status = 'DRAFT' THEN
565: END LOOP;
566: END IF;
567:
568: IF(l_invalid_stage=TRUE) THEN
569: RAISE FND_API.G_EXC_ERROR;
570: END IF;
571:
572: --CHANGES by jrotich bug #13028686 END
573:
594:
595: IF l_error_tbl_type.COUNT > 0 THEN
596: l_return_status := l_validate_error;
597: x_return_status := l_validate_error;
598: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
599: -- Check Error Message stack.
600: x_msg_count := FND_MSG_PUB.count_msg;
601:
602: IF (l_log_statement >= l_log_current_level)THEN
601:
602: IF (l_log_statement >= l_log_current_level)THEN
603: fnd_log.string ( l_log_statement, L_DEBUG_KEY,'Errors from AHL_VWP_PROJ_PROD_PVT.Validate_Before_Production - '||x_msg_count);
604: END IF;
605: RAISE Fnd_Api.g_exc_error;
606: ELSE
607: --salogan::Commented the repeated code CP ER 9299910::01-JUN-2009::BEGIN
608: --IF(l_phase_code IN('R' , 'P')) THEN
609: --FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_CP_P2P_IN_PROGS');
607: --salogan::Commented the repeated code CP ER 9299910::01-JUN-2009::BEGIN
608: --IF(l_phase_code IN('R' , 'P')) THEN
609: --FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_CP_P2P_IN_PROGS');
610: --FND_MSG_PUB.ADD;
611: --RAISE FND_API.G_EXC_ERROR;
612: --END IF;
613: --salogan::Commented the repeated code CP ER 9299910::01-JUN-2009::END
614:
615: IF (l_log_statement >= l_log_current_level) THEN
678: IF (l_log_procedure >= l_log_current_level)THEN
679: fnd_log.string ( l_log_procedure,L_DEBUG_KEY ||'.end','At the end of PLSQL procedure, x_return_status=' || x_return_status);
680: END IF;
681: EXCEPTION
682: WHEN FND_API.G_EXC_ERROR THEN
683: x_return_status := FND_API.G_RET_STS_ERROR;
684: ROLLBACK TO BG_Release_Visit_Pvt;
685: FND_MSG_PUB.count_and_get(
686: p_count => x_msg_count,
679: fnd_log.string ( l_log_procedure,L_DEBUG_KEY ||'.end','At the end of PLSQL procedure, x_return_status=' || x_return_status);
680: END IF;
681: EXCEPTION
682: WHEN FND_API.G_EXC_ERROR THEN
683: x_return_status := FND_API.G_RET_STS_ERROR;
684: ROLLBACK TO BG_Release_Visit_Pvt;
685: FND_MSG_PUB.count_and_get(
686: p_count => x_msg_count,
687: p_data => x_msg_data,
684: ROLLBACK TO BG_Release_Visit_Pvt;
685: FND_MSG_PUB.count_and_get(
686: p_count => x_msg_count,
687: p_data => x_msg_data,
688: p_encoded => fnd_api.g_false);
689:
690: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
692: ROLLBACK TO BG_Release_Visit_Pvt;
686: p_count => x_msg_count,
687: p_data => x_msg_data,
688: p_encoded => fnd_api.g_false);
689:
690: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
692: ROLLBACK TO BG_Release_Visit_Pvt;
693: FND_MSG_PUB.count_and_get(
694: p_count => x_msg_count,
687: p_data => x_msg_data,
688: p_encoded => fnd_api.g_false);
689:
690: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
691: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
692: ROLLBACK TO BG_Release_Visit_Pvt;
693: FND_MSG_PUB.count_and_get(
694: p_count => x_msg_count,
695: p_data => x_msg_data,
692: ROLLBACK TO BG_Release_Visit_Pvt;
693: FND_MSG_PUB.count_and_get(
694: p_count => x_msg_count,
695: p_data => x_msg_data,
696: p_encoded => fnd_api.g_false);
697:
698: WHEN OTHERS THEN
699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
700: ROLLBACK TO BG_Release_Visit_Pvt;
695: p_data => x_msg_data,
696: p_encoded => fnd_api.g_false);
697:
698: WHEN OTHERS THEN
699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
700: ROLLBACK TO BG_Release_Visit_Pvt;
701: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
702: fnd_msg_pub.add_exc_msg(
703: p_pkg_name => G_PKG_NAME,
705: p_error_text => SUBSTR(SQLERRM,1,500));
706: END IF;
707: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
708: p_data => x_msg_data,
709: p_encoded => fnd_api.g_false);
710:
711: END BG_Release_Visit;
712: --------------------------------------------------------------------
713: -- PROCEDURE
754: -- 1. Initialize error message stack by default
755: FND_MSG_PUB.Initialize;
756:
757: -- Standard call to check for call compatibility
758: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
759: retcode := 2;
760: errbuf := FND_MSG_PUB.Get;
761: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
762: END IF;
757: -- Standard call to check for call compatibility
758: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
759: retcode := 2;
760: errbuf := FND_MSG_PUB.Get;
761: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
762: END IF;
763:
764: -- 2. Dump all input parameters
765: fnd_file.put_line(fnd_file.log, '*************API input parameters**************');
783: --If the caller if 'FORMS' or 'JAVA', then the request has been launched for Plan_Visit else for P2P
784: IF p_caller IN ('FORMS', 'JAVA') THEN
785: AHL_VWP_PROJ_PROD_PVT.plan_visit(
786: p_api_version => p_api_version,
787: p_init_msg_list => Fnd_Api.G_FALSE,
788: p_commit => Fnd_Api.g_false,
789: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
790: p_caller => p_caller,
791: p_visit_id => l_visit_id,
784: IF p_caller IN ('FORMS', 'JAVA') THEN
785: AHL_VWP_PROJ_PROD_PVT.plan_visit(
786: p_api_version => p_api_version,
787: p_init_msg_list => Fnd_Api.G_FALSE,
788: p_commit => Fnd_Api.g_false,
789: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
790: p_caller => p_caller,
791: p_visit_id => l_visit_id,
792: x_return_status => l_return_status,
785: AHL_VWP_PROJ_PROD_PVT.plan_visit(
786: p_api_version => p_api_version,
787: p_init_msg_list => Fnd_Api.G_FALSE,
788: p_commit => Fnd_Api.g_false,
789: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
790: p_caller => p_caller,
791: p_visit_id => l_visit_id,
792: x_return_status => l_return_status,
793: x_msg_count => l_msg_count,
795:
796: l_msg_count := FND_MSG_PUB.Count_Msg;
797: IF (l_msg_count > 0) THEN
798: fnd_file.put_line(fnd_file.log, 'Following error occured while plan visit..');
799: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
800: RAISE FND_API.G_EXC_ERROR;
801: ELSE
802: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
803: END IF;
796: l_msg_count := FND_MSG_PUB.Count_Msg;
797: IF (l_msg_count > 0) THEN
798: fnd_file.put_line(fnd_file.log, 'Following error occured while plan visit..');
799: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
800: RAISE FND_API.G_EXC_ERROR;
801: ELSE
802: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
803: END IF;
804: END IF;
798: fnd_file.put_line(fnd_file.log, 'Following error occured while plan visit..');
799: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
800: RAISE FND_API.G_EXC_ERROR;
801: ELSE
802: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
803: END IF;
804: END IF;
805: ELSE
806: AHL_VWP_PROJ_PROD_PVT.Release_Visit(
814:
815: l_msg_count := FND_MSG_PUB.Count_Msg;
816: IF (l_msg_count > 0) THEN
817: fnd_file.put_line(fnd_file.log, 'Following error occured while pushing the visit to production..');
818: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
819: RAISE FND_API.G_EXC_ERROR;
820: ELSE
821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
822: END IF;
815: l_msg_count := FND_MSG_PUB.Count_Msg;
816: IF (l_msg_count > 0) THEN
817: fnd_file.put_line(fnd_file.log, 'Following error occured while pushing the visit to production..');
818: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
819: RAISE FND_API.G_EXC_ERROR;
820: ELSE
821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
822: END IF;
823: END IF;
817: fnd_file.put_line(fnd_file.log, 'Following error occured while pushing the visit to production..');
818: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
819: RAISE FND_API.G_EXC_ERROR;
820: ELSE
821: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
822: END IF;
823: END IF;
824: END IF; --p_caller check
825: END IF; --l_visit_id IS NOT NULL
824: END IF; --p_caller check
825: END IF; --l_visit_id IS NOT NULL
826:
827: EXCEPTION
828: WHEN FND_API.G_EXC_ERROR THEN
829: ROLLBACK TO BG_Push_to_Production;
830: retcode := 2;
831: FOR i IN 1..l_msg_count
832: LOOP
830: retcode := 2;
831: FOR i IN 1..l_msg_count
832: LOOP
833: fnd_msg_pub.get( p_msg_index => i,
834: p_encoded => FND_API.G_FALSE,
835: p_data => l_err_msg,
836: p_msg_index_out => l_msg_index_out);
837:
838: fnd_file.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_err_msg);
838: fnd_file.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_err_msg);
839: END LOOP;
840:
841:
842: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
843: ROLLBACK TO BG_Push_to_Production;
844: retcode := 2;
845: l_msg_count := Fnd_Msg_Pub.count_msg;
846: FOR i IN 1..l_msg_count
845: l_msg_count := Fnd_Msg_Pub.count_msg;
846: FOR i IN 1..l_msg_count
847: LOOP
848: fnd_msg_pub.get( p_msg_index => i,
849: p_encoded => FND_API.G_FALSE,
850: p_data => l_err_msg,
851: p_msg_index_out => l_msg_index_out);
852:
853: fnd_file.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_err_msg);
865: l_msg_count := Fnd_Msg_Pub.count_msg;
866: FOR i IN 1..l_msg_count
867: LOOP
868: fnd_msg_pub.get( p_msg_index => i,
869: p_encoded => FND_API.G_FALSE,
870: p_data => l_err_msg,
871: p_msg_index_out => l_msg_index_out);
872:
873: fnd_file.put_line(FND_FILE.LOG, 'Err message-'||l_msg_index_out||':' || l_err_msg);
892: -- visits and project tasks for all associated visit task
893: --------------------------------------------------------------------
894: PROCEDURE Integrate_to_Projects (
895: p_api_version IN NUMBER,
896: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
897: p_commit IN VARCHAR2 := Fnd_Api.g_false,
898: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
899: p_module_type IN VARCHAR2 := Null,
900: p_visit_id IN NUMBER,
893: --------------------------------------------------------------------
894: PROCEDURE Integrate_to_Projects (
895: p_api_version IN NUMBER,
896: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
897: p_commit IN VARCHAR2 := Fnd_Api.g_false,
898: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
899: p_module_type IN VARCHAR2 := Null,
900: p_visit_id IN NUMBER,
901: x_return_status OUT NOCOPY VARCHAR2,
894: PROCEDURE Integrate_to_Projects (
895: p_api_version IN NUMBER,
896: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
897: p_commit IN VARCHAR2 := Fnd_Api.g_false,
898: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
899: p_module_type IN VARCHAR2 := Null,
900: p_visit_id IN NUMBER,
901: x_return_status OUT NOCOPY VARCHAR2,
902: x_msg_count OUT NOCOPY NUMBER,
923: 'At the start of PL SQL procedure. Visit Id = ' || p_visit_id);
924: END IF;
925:
926: -- Initialize message list if p_init_msg_list is set to TRUE.
927: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
928: Fnd_Msg_Pub.initialize;
929: END IF;
930:
931: -- Initialize API return status to success
928: Fnd_Msg_Pub.initialize;
929: END IF;
930:
931: -- Initialize API return status to success
932: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
933:
934: -- Standard call to check for call compatibility.
935: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
936: p_api_version,
931: -- Initialize API return status to success
932: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
933:
934: -- Standard call to check for call compatibility.
935: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
936: p_api_version,
937: l_api_name,G_PKG_NAME)
938: THEN
939: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
935: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
936: p_api_version,
937: l_api_name,G_PKG_NAME)
938: THEN
939: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
940: END IF;
941:
942: IF (l_log_statement >= l_log_current_level) THEN
943: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Visit Id= '|| p_visit_id);
990: --
991: -- END of API body.
992: --
993: -- Standard check of p_commit.
994: IF Fnd_Api.To_Boolean ( p_commit ) THEN
995: COMMIT WORK;
996: END IF;
997:
998: Fnd_Msg_Pub.count_and_get(
995: COMMIT WORK;
996: END IF;
997:
998: Fnd_Msg_Pub.count_and_get(
999: p_encoded => Fnd_Api.g_false,
1000: p_count => x_msg_count,
1001: p_data => x_msg_data
1002: );
1003:
1005: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.end','End of PL/SQL procedure');
1006: END IF;
1007:
1008: EXCEPTION
1009: WHEN Fnd_Api.g_exc_error THEN
1010: ROLLBACK TO Integrate_to_Projects;
1011: x_return_status := Fnd_Api.g_ret_sts_error;
1012: Fnd_Msg_Pub.count_and_get (
1013: p_encoded => Fnd_Api.g_false,
1007:
1008: EXCEPTION
1009: WHEN Fnd_Api.g_exc_error THEN
1010: ROLLBACK TO Integrate_to_Projects;
1011: x_return_status := Fnd_Api.g_ret_sts_error;
1012: Fnd_Msg_Pub.count_and_get (
1013: p_encoded => Fnd_Api.g_false,
1014: p_count => x_msg_count,
1015: p_data => x_msg_data
1009: WHEN Fnd_Api.g_exc_error THEN
1010: ROLLBACK TO Integrate_to_Projects;
1011: x_return_status := Fnd_Api.g_ret_sts_error;
1012: Fnd_Msg_Pub.count_and_get (
1013: p_encoded => Fnd_Api.g_false,
1014: p_count => x_msg_count,
1015: p_data => x_msg_data
1016: );
1017: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1013: p_encoded => Fnd_Api.g_false,
1014: p_count => x_msg_count,
1015: p_data => x_msg_data
1016: );
1017: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1018: ROLLBACK TO Integrate_to_Projects;
1019: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1020: Fnd_Msg_Pub.count_and_get (
1021: p_encoded => Fnd_Api.g_false,
1015: p_data => x_msg_data
1016: );
1017: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1018: ROLLBACK TO Integrate_to_Projects;
1019: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1020: Fnd_Msg_Pub.count_and_get (
1021: p_encoded => Fnd_Api.g_false,
1022: p_count => x_msg_count,
1023: p_data => x_msg_data
1017: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1018: ROLLBACK TO Integrate_to_Projects;
1019: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1020: Fnd_Msg_Pub.count_and_get (
1021: p_encoded => Fnd_Api.g_false,
1022: p_count => x_msg_count,
1023: p_data => x_msg_data
1024: );
1025: WHEN OTHERS THEN
1023: p_data => x_msg_data
1024: );
1025: WHEN OTHERS THEN
1026: ROLLBACK TO Integrate_to_Projects;
1027: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1028: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
1029: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, L_API_NAME);
1030: END IF;
1031: Fnd_Msg_Pub.count_and_get (
1028: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
1029: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, L_API_NAME);
1030: END IF;
1031: Fnd_Msg_Pub.count_and_get (
1032: p_encoded => Fnd_Api.g_false,
1033: p_count => x_msg_count,
1034: p_data => x_msg_data
1035: );
1036: END Integrate_to_Projects;
1047: --
1048: --------------------------------------------------------------------
1049: PROCEDURE Add_Task_to_Project(
1050: p_api_version IN NUMBER,
1051: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1052: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1053: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1054: p_module_type IN VARCHAR2 := Null,
1055: p_visit_task_id IN NUMBER,
1048: --------------------------------------------------------------------
1049: PROCEDURE Add_Task_to_Project(
1050: p_api_version IN NUMBER,
1051: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1052: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1053: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1054: p_module_type IN VARCHAR2 := Null,
1055: p_visit_task_id IN NUMBER,
1056:
1049: PROCEDURE Add_Task_to_Project(
1050: p_api_version IN NUMBER,
1051: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
1052: p_commit IN VARCHAR2 := Fnd_Api.g_false,
1053: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
1054: p_module_type IN VARCHAR2 := Null,
1055: p_visit_task_id IN NUMBER,
1056:
1057: x_return_status OUT NOCOPY VARCHAR2,
1102: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.begin','At the start of PLSQL procedure');
1103: END IF;
1104:
1105: -- Initialize message list if p_init_msg_list is set to TRUE.
1106: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
1107: Fnd_Msg_Pub.initialize;
1108: END IF;
1109:
1110: -- Initialize API return status to success
1107: Fnd_Msg_Pub.initialize;
1108: END IF;
1109:
1110: -- Initialize API return status to success
1111: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1112:
1113: -- Standard call to check for call compatibility.
1114: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1115: p_api_version,
1110: -- Initialize API return status to success
1111: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1112:
1113: -- Standard call to check for call compatibility.
1114: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1115: p_api_version,
1116: L_API_NAME,G_PKG_NAME) THEN
1117: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1118: END IF;
1113: -- Standard call to check for call compatibility.
1114: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
1115: p_api_version,
1116: L_API_NAME,G_PKG_NAME) THEN
1117: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1118: END IF;
1119:
1120: IF (l_log_statement >= l_log_current_level) THEN
1121: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Visit Task Id = '|| p_visit_task_id);
1151: 'After calling AHL_VWP_RULES_PVT.Check_Proj_Responsibility. Return Status = ' ||
1152: l_return_status);
1153: END IF;
1154:
1155: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1156: IF (l_log_statement >= l_log_current_level) THEN
1157: fnd_log.string(l_log_statement,
1158: L_DEBUG_KEY,
1159: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility.');
1157: fnd_log.string(l_log_statement,
1158: L_DEBUG_KEY,
1159: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility.');
1160: END IF;
1161: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1162: RAISE FND_API.G_EXC_ERROR;
1163: ELSE
1164: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1165: END IF;
1158: L_DEBUG_KEY,
1159: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility.');
1160: END IF;
1161: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1162: RAISE FND_API.G_EXC_ERROR;
1163: ELSE
1164: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1165: END IF;
1166: END IF;
1160: END IF;
1161: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1162: RAISE FND_API.G_EXC_ERROR;
1163: ELSE
1164: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1165: END IF;
1166: END IF;
1167:
1168: IF l_chk_project = 'Y' THEN
1199: fnd_log.string(l_log_statement,
1200: L_DEBUG_KEY,
1201: 'After calling PA_PROJECT_PUB.check_unique_task_number. p_unique_task_number_flag = ' ||
1202: l_project_tsk_flag || ' Return Status = ' || l_return_status);
1203: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1204: fnd_log.string(l_log_statement,
1205: L_DEBUG_KEY,
1206: 'Errors from PA_PROJECT_PUB.check_unique_task_number. Message count: ' ||
1207: l_msg_count || ', message data: ' || l_msg_data);
1226: IF (l_log_statement >= l_log_current_level) THEN
1227: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling -- Check_Unique_Task_Reference l_proj_ref_flag = ' || l_proj_ref_flag);
1228: END IF;
1229:
1230: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1231: IF (l_log_statement >= l_log_current_level) THEN
1232: fnd_log.string(l_log_statement,
1233: L_DEBUG_KEY,
1234: 'Errors from PA_PROJECT_PUB.check_unique_task_number. Message count: ' ||
1233: L_DEBUG_KEY,
1234: 'Errors from PA_PROJECT_PUB.check_unique_task_number. Message count: ' ||
1235: l_msg_count || ', message data: ' || l_msg_data);
1236: END IF;
1237: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1238: RAISE FND_API.G_EXC_ERROR;
1239: ELSE
1240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1241: END IF;
1234: 'Errors from PA_PROJECT_PUB.check_unique_task_number. Message count: ' ||
1235: l_msg_count || ', message data: ' || l_msg_data);
1236: END IF;
1237: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1238: RAISE FND_API.G_EXC_ERROR;
1239: ELSE
1240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1241: END IF;
1242: END IF;
1236: END IF;
1237: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1238: RAISE FND_API.G_EXC_ERROR;
1239: ELSE
1240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1241: END IF;
1242: END IF;
1243:
1244: IF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'Y' THEN
1300: IF (l_log_statement >= l_log_current_level) THEN
1301: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Another Error - '||l_msg_data);
1302: END IF;
1303: END IF;
1304: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1305: END IF;
1306:
1307: IF l_return_status = 'S' THEN
1308: UPDATE AHL_VISIT_TASKS_B
1315: WHERE VISIT_TASK_ID = p_visit_task_id;
1316: END IF;
1317:
1318: ELSIF l_project_tsk_flag = 'N' AND l_proj_ref_flag = 'Y' THEN
1319: x_return_status := Fnd_Api.g_ret_sts_error;
1320: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1321: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_REF_NOT_UNIQ');
1322: Fnd_Msg_Pub.ADD;
1323: END IF;
1321: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_REF_NOT_UNIQ');
1322: Fnd_Msg_Pub.ADD;
1323: END IF;
1324: ELSIF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'N' THEN
1325: x_return_status := Fnd_Api.g_ret_sts_error;
1326: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1327: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_NUM_NOT_UNIQ');
1328: Fnd_Msg_Pub.ADD;
1329: END IF;
1327: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_NUM_NOT_UNIQ');
1328: Fnd_Msg_Pub.ADD;
1329: END IF;
1330: ELSE
1331: x_return_status := Fnd_Api.g_ret_sts_error;
1332: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1333: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TASK_NOT_UNIQUE');
1334: Fnd_Msg_Pub.ADD;
1335: END IF;
1342: -- END of API body.
1343: --
1344: -- Standard check of p_commit.
1345:
1346: IF Fnd_Api.To_Boolean (p_commit) THEN
1347: COMMIT WORK;
1348: END IF;
1349:
1350: Fnd_Msg_Pub.count_and_get(
1347: COMMIT WORK;
1348: END IF;
1349:
1350: Fnd_Msg_Pub.count_and_get(
1351: p_encoded => Fnd_Api.g_false,
1352: p_count => x_msg_count,
1353: p_data => x_msg_data
1354: );
1355:
1357: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.end','End of the procedure');
1358: END IF;
1359:
1360: EXCEPTION
1361: WHEN Fnd_Api.g_exc_error THEN
1362: ROLLBACK TO Add_Task_to_Project;
1363: x_return_status := Fnd_Api.g_ret_sts_error;
1364: Fnd_Msg_Pub.count_and_get (
1365: p_encoded => Fnd_Api.g_false,
1359:
1360: EXCEPTION
1361: WHEN Fnd_Api.g_exc_error THEN
1362: ROLLBACK TO Add_Task_to_Project;
1363: x_return_status := Fnd_Api.g_ret_sts_error;
1364: Fnd_Msg_Pub.count_and_get (
1365: p_encoded => Fnd_Api.g_false,
1366: p_count => x_msg_count,
1367: p_data => x_msg_data
1361: WHEN Fnd_Api.g_exc_error THEN
1362: ROLLBACK TO Add_Task_to_Project;
1363: x_return_status := Fnd_Api.g_ret_sts_error;
1364: Fnd_Msg_Pub.count_and_get (
1365: p_encoded => Fnd_Api.g_false,
1366: p_count => x_msg_count,
1367: p_data => x_msg_data
1368: );
1369: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1365: p_encoded => Fnd_Api.g_false,
1366: p_count => x_msg_count,
1367: p_data => x_msg_data
1368: );
1369: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1370: ROLLBACK TO Add_Task_to_Project;
1371: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1372: Fnd_Msg_Pub.count_and_get (
1373: p_encoded => Fnd_Api.g_false,
1367: p_data => x_msg_data
1368: );
1369: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1370: ROLLBACK TO Add_Task_to_Project;
1371: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1372: Fnd_Msg_Pub.count_and_get (
1373: p_encoded => Fnd_Api.g_false,
1374: p_count => x_msg_count,
1375: p_data => x_msg_data
1369: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1370: ROLLBACK TO Add_Task_to_Project;
1371: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1372: Fnd_Msg_Pub.count_and_get (
1373: p_encoded => Fnd_Api.g_false,
1374: p_count => x_msg_count,
1375: p_data => x_msg_data
1376: );
1377: WHEN OTHERS THEN
1375: p_data => x_msg_data
1376: );
1377: WHEN OTHERS THEN
1378: ROLLBACK TO Add_Task_to_Project;
1379: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1380: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
1381: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, L_API_NAME);
1382: END IF;
1383: Fnd_Msg_Pub.count_and_get (
1380: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
1381: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, L_API_NAME);
1382: END IF;
1383: Fnd_Msg_Pub.count_and_get (
1384: p_encoded => Fnd_Api.g_false,
1385: p_count => x_msg_count,
1386: p_data => x_msg_data
1387: );
1388: END Add_Task_to_Project;
1444: l_new_structure_flag VARCHAR2(1);
1445:
1446: BEGIN
1447:
1448: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1449:
1450: IF (l_log_procedure >= l_log_current_level) THEN
1451: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.begin','At the start of the procedure');
1452: END IF;
1476: L_DEBUG_KEY,
1477: 'After calling AHL_VWP_RULES_PVT.Check_Proj_Responsibility. Return Status = ' || l_return_status);
1478: END IF;
1479:
1480: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) THEN
1481: IF (l_log_statement >= l_log_current_level) THEN
1482: fnd_log.string(l_log_statement,
1483: L_DEBUG_KEY,
1484: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility');
1483: L_DEBUG_KEY,
1484: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility');
1485: END IF;
1486: x_return_status := l_return_status;
1487: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1488: RAISE FND_API.G_EXC_ERROR;
1489: ELSE
1490: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1491: END IF;
1484: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility');
1485: END IF;
1486: x_return_status := l_return_status;
1487: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1488: RAISE FND_API.G_EXC_ERROR;
1489: ELSE
1490: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1491: END IF;
1492: END IF;
1486: x_return_status := l_return_status;
1487: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1488: RAISE FND_API.G_EXC_ERROR;
1489: ELSE
1490: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1491: END IF;
1492: END IF;
1493:
1494: IF (l_log_statement >= l_log_current_level) THEN
1533: 'After calling PA_PROJECT_PUB.check_delete_task_ok. Return Status = ' ||
1534: l_return_status || ', delete task flag = ' || l_del_task_flag);
1535: END IF;
1536:
1537: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1538: IF (l_log_statement >= l_log_current_level) THEN
1539: fnd_log.string(l_log_statement,
1540: L_DEBUG_KEY,
1541: 'Errors from PA_PROJECT_PUB.check_delete_task_ok. Message count: ' ||
1541: 'Errors from PA_PROJECT_PUB.check_delete_task_ok. Message count: ' ||
1542: l_msg_count || ', message data: ' || l_msg_data);
1543: END IF;
1544: x_return_status := l_return_status;
1545: RAISE FND_API.G_EXC_ERROR;
1546: ELSE
1547: IF l_del_task_flag = 'Y' THEN
1548: IF (l_log_statement >= l_log_current_level) THEN
1549: fnd_log.string(l_log_statement,
1591: 'After calling PA_PROJECT_PUB.delete_task. Return Status = ' ||
1592: l_return_status);
1593: END IF;
1594:
1595: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1596: IF (l_log_statement >= l_log_current_level) THEN
1597: fnd_log.string(l_log_statement,
1598: L_DEBUG_KEY,
1599: 'Errors from PA_PROJECT_PUB.delete_task. Message count: ' ||
1598: L_DEBUG_KEY,
1599: 'Errors from PA_PROJECT_PUB.delete_task. Message count: ' ||
1600: l_msg_count || ', message data: ' || l_msg_data);
1601: END IF;
1602: x_return_status := Fnd_Api.g_ret_sts_error;
1603: RAISE FND_API.G_EXC_ERROR;
1604: END IF;
1605:
1606: --VWPE: ER:12424063 :: SKPATHAK :: 07-JUN-2012 :: START
1599: 'Errors from PA_PROJECT_PUB.delete_task. Message count: ' ||
1600: l_msg_count || ', message data: ' || l_msg_data);
1601: END IF;
1602: x_return_status := Fnd_Api.g_ret_sts_error;
1603: RAISE FND_API.G_EXC_ERROR;
1604: END IF;
1605:
1606: --VWPE: ER:12424063 :: SKPATHAK :: 07-JUN-2012 :: START
1607: --Delete the rollup task details for a given non-summary, non-stage task
1650: 'After calling PA_PROJECT_PUB.delete_task. Return Status = ' ||
1651: l_return_status);
1652: END IF;
1653:
1654: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1655: IF (l_log_statement >= l_log_current_level) THEN
1656: fnd_log.string(l_log_statement,
1657: L_DEBUG_KEY,
1658: 'Errors from PA_PROJECT_PUB.delete_task. Message count: ' ||
1657: L_DEBUG_KEY,
1658: 'Errors from PA_PROJECT_PUB.delete_task. Message count: ' ||
1659: l_msg_count || ', message data: ' || l_msg_data);
1660: END IF;
1661: x_return_status := Fnd_Api.g_ret_sts_error;
1662: RAISE FND_API.G_EXC_ERROR;
1663: END IF;
1664: END IF;
1665: --VWPE: ER:12424063 :: SKPATHAK :: 07-JUN-2012 :: END
1658: 'Errors from PA_PROJECT_PUB.delete_task. Message count: ' ||
1659: l_msg_count || ', message data: ' || l_msg_data);
1660: END IF;
1661: x_return_status := Fnd_Api.g_ret_sts_error;
1662: RAISE FND_API.G_EXC_ERROR;
1663: END IF;
1664: END IF;
1665: --VWPE: ER:12424063 :: SKPATHAK :: 07-JUN-2012 :: END
1666:
1837: get_proj_details_rec get_proj_details%ROWTYPE;
1838:
1839: BEGIN
1840: -- Initialize API return status to success
1841: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1842:
1843: IF (l_log_procedure >= l_log_current_level) THEN
1844: fnd_log.string(l_log_procedure,
1845: L_DEBUG_KEY ||'.begin',
1855: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1856: Fnd_Message.set_name ('AHL', 'AHL_PROJECT_STATUS_NOT_SET');
1857: Fnd_Msg_Pub.ADD;
1858: END IF;
1859: RAISE FND_API.G_EXC_ERROR;
1860: END IF;
1861: */
1862: /*sowsubra - ends */
1863:
1880: Fnd_Message.SET_NAME('AHL','AHL_PRJ_NEW_TXN_DISABLED');
1881: Fnd_Message.SET_TOKEN('PRJ_STATUS', l_project_status_code);
1882: Fnd_Msg_Pub.ADD;
1883: END IF;
1884: RAISE Fnd_Api.G_EXC_ERROR;
1885: END IF;
1886: -- End changes by rnahata for Bug 6334682
1887:
1888: OPEN c_Visit(p_visit_id);
1896: fnd_log.string(l_log_statement,L_DEBUG_KEY,'p_visit_id ** l_is_comp_visit--@> '||p_visit_id||' ** '||l_is_comp_visit);
1897: END IF;
1898:
1899: IF (c_visit_rec.START_DATE_TIME IS NOT NULL
1900: AND c_visit_rec.START_DATE_TIME <> Fnd_Api.G_MISS_DATE
1901: AND c_visit_rec.DEPARTMENT_ID IS NOT NULL
1902: AND c_visit_rec.DEPARTMENT_ID <> FND_API.G_MISS_NUM) THEN
1903:
1904: -- Post 11.5.10
1898:
1899: IF (c_visit_rec.START_DATE_TIME IS NOT NULL
1900: AND c_visit_rec.START_DATE_TIME <> Fnd_Api.G_MISS_DATE
1901: AND c_visit_rec.DEPARTMENT_ID IS NOT NULL
1902: AND c_visit_rec.DEPARTMENT_ID <> FND_API.G_MISS_NUM) THEN
1903:
1904: -- Post 11.5.10
1905: -- RROY
1906: IF c_visit_rec.project_template_id IS NOT NULL THEN
2101: L_DEBUG_KEY,
2102: 'After calling AHL_VWP_RULES_PVT.Check_Proj_Responsibility. Return Status = ' || l_return_status);
2103: END IF;
2104:
2105: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2106: IF (l_log_statement >= l_log_current_level) THEN
2107: fnd_log.string(l_log_statement,
2108: L_DEBUG_KEY,
2109: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility');
2108: L_DEBUG_KEY,
2109: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility');
2110: END IF;
2111: x_return_status := l_return_status;
2112: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2113: RAISE FND_API.G_EXC_ERROR;
2114: ELSE
2115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2116: END IF;
2109: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility');
2110: END IF;
2111: x_return_status := l_return_status;
2112: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2113: RAISE FND_API.G_EXC_ERROR;
2114: ELSE
2115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2116: END IF;
2117: END IF;
2111: x_return_status := l_return_status;
2112: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2113: RAISE FND_API.G_EXC_ERROR;
2114: ELSE
2115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2116: END IF;
2117: END IF;
2118:
2119: IF l_chk_project = 'Y' THEN
2139: L_DEBUG_KEY,
2140: 'Returned from PA_PROJECT_PUB.check_unique_project_reference: p_unique_project_ref_flag = ' || l_project_flag || ', Return Status = ' || l_return_status );
2141: END IF;
2142:
2143: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2144: IF (l_log_statement >= l_log_current_level) THEN
2145: fnd_log.string(l_log_statement,
2146: L_DEBUG_KEY,
2147: 'Errors from PA_PROJECT_PUB.check_unique_project_reference. Message count: ' ||
2146: L_DEBUG_KEY,
2147: 'Errors from PA_PROJECT_PUB.check_unique_project_reference. Message count: ' ||
2148: l_msg_count || ', message data: ' || l_msg_data);
2149: END IF;
2150: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2151: RAISE FND_API.G_EXC_ERROR;
2152: ELSE
2153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2154: END IF;
2147: 'Errors from PA_PROJECT_PUB.check_unique_project_reference. Message count: ' ||
2148: l_msg_count || ', message data: ' || l_msg_data);
2149: END IF;
2150: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2151: RAISE FND_API.G_EXC_ERROR;
2152: ELSE
2153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2154: END IF;
2155: END IF;
2149: END IF;
2150: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2151: RAISE FND_API.G_EXC_ERROR;
2152: ELSE
2153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2154: END IF;
2155: END IF;
2156:
2157: IF l_project_flag = 'Y' THEN
2184: 'After calling PA_PROJECT_PUB.create_project. Project_Id = ' ||
2185: l_project_out.pa_project_id || ' Return Status = ' || x_return_status);
2186: END IF;
2187:
2188: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2189: IF (l_log_statement >= l_log_current_level) THEN
2190: fnd_log.string(l_log_statement,
2191: L_DEBUG_KEY,
2192: 'Errors from PA_PROJECT_PUB.create_project. Message count: ' ||
2191: L_DEBUG_KEY,
2192: 'Errors from PA_PROJECT_PUB.create_project. Message count: ' ||
2193: l_msg_count || ', message data: ' || l_msg_data);
2194: END IF;
2195: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2196: RAISE FND_API.G_EXC_ERROR;
2197: ELSE
2198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2199: END IF;
2192: 'Errors from PA_PROJECT_PUB.create_project. Message count: ' ||
2193: l_msg_count || ', message data: ' || l_msg_data);
2194: END IF;
2195: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2196: RAISE FND_API.G_EXC_ERROR;
2197: ELSE
2198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2199: END IF;
2200: END IF;
2194: END IF;
2195: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2196: RAISE FND_API.G_EXC_ERROR;
2197: ELSE
2198: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2199: END IF;
2200: END IF;
2201:
2202: IF x_return_status = 'S' THEN
2252: x_msg_count => l_msg_count,
2253: x_msg_data => l_msg_data,
2254: p_param_data => l_param_data);
2255:
2256: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2257: IF (l_log_statement >= l_log_current_level) THEN
2258: fnd_log.string(l_log_statement,
2259: L_DEBUG_KEY,
2260: 'Errors from PJM_PROJECT_PARAM_PUB.Create_Project_Parameter. Message count: ' ||
2260: 'Errors from PJM_PROJECT_PARAM_PUB.Create_Project_Parameter. Message count: ' ||
2261: l_msg_count || ', message data: ' || l_msg_data);
2262: END IF;
2263:
2264: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2265: RAISE FND_API.G_EXC_ERROR;
2266: ELSE
2267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2268: END IF;
2261: l_msg_count || ', message data: ' || l_msg_data);
2262: END IF;
2263:
2264: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2265: RAISE FND_API.G_EXC_ERROR;
2266: ELSE
2267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2268: END IF;
2269: END IF;
2263:
2264: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2265: RAISE FND_API.G_EXC_ERROR;
2266: ELSE
2267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2268: END IF;
2269: END IF;
2270: -- RROY
2271: IF l_task_out.COUNT > 0 THEN
2300: END LOOP;
2301: END IF; -- End of l_task_out.COUNT
2302: END IF; -- End of x_return_status = 'S'
2303: ELSE -- Else of l_project_flag = 'Y'
2304: x_return_status := Fnd_Api.g_ret_sts_error;
2305: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
2306: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJECT_NOT_UNIQUE');
2307: Fnd_Msg_Pub.ADD;
2308: END IF;
2307: Fnd_Msg_Pub.ADD;
2308: END IF;
2309: END IF; -- End of l_project_flag = 'Y'
2310: END IF; --- End of l_chk_project = 'Y'
2311: ELSIF c_visit_rec.START_DATE_TIME IS NULL or c_visit_rec.START_DATE_TIME = Fnd_Api.G_MISS_DATE THEN
2312: x_return_status := Fnd_Api.g_ret_sts_error;
2313: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
2314: Fnd_Message.set_name ('AHL', 'AHL_VWP_VISIT_ST_DT_MISSING');
2315: Fnd_Msg_Pub.ADD;
2308: END IF;
2309: END IF; -- End of l_project_flag = 'Y'
2310: END IF; --- End of l_chk_project = 'Y'
2311: ELSIF c_visit_rec.START_DATE_TIME IS NULL or c_visit_rec.START_DATE_TIME = Fnd_Api.G_MISS_DATE THEN
2312: x_return_status := Fnd_Api.g_ret_sts_error;
2313: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
2314: Fnd_Message.set_name ('AHL', 'AHL_VWP_VISIT_ST_DT_MISSING');
2315: Fnd_Msg_Pub.ADD;
2316: END IF;
2341: -- To update Project status to CLOSED when visit is set as Closed/Canceled
2342: --------------------------------------------------------------------
2343: PROCEDURE Update_Project(
2344: p_api_version IN NUMBER,
2345: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2346: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2347: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2348: p_module_type IN VARCHAR2 := Null,
2349: p_visit_id IN NUMBER,
2342: --------------------------------------------------------------------
2343: PROCEDURE Update_Project(
2344: p_api_version IN NUMBER,
2345: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2346: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2347: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2348: p_module_type IN VARCHAR2 := Null,
2349: p_visit_id IN NUMBER,
2350:
2343: PROCEDURE Update_Project(
2344: p_api_version IN NUMBER,
2345: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
2346: p_commit IN VARCHAR2 := Fnd_Api.g_false,
2347: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
2348: p_module_type IN VARCHAR2 := Null,
2349: p_visit_id IN NUMBER,
2350:
2351: x_return_status OUT NOCOPY VARCHAR2,
2665: 'At the start of PL SQL procedure. Visit Id = ' || p_visit_id);
2666: END IF;
2667:
2668: -- Initialize message list if p_init_msg_list is set to TRUE.
2669: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
2670: Fnd_Msg_Pub.initialize;
2671: END IF;
2672:
2673: -- Initialize API return status to success
2670: Fnd_Msg_Pub.initialize;
2671: END IF;
2672:
2673: -- Initialize API return status to success
2674: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2675:
2676: -- Standard call to check for call compatibility.
2677: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2678: p_api_version,
2673: -- Initialize API return status to success
2674: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2675:
2676: -- Standard call to check for call compatibility.
2677: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2678: p_api_version,
2679: l_api_name,G_PKG_NAME)
2680: THEN
2681: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2677: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
2678: p_api_version,
2679: l_api_name,G_PKG_NAME)
2680: THEN
2681: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2682: END IF;
2683:
2684: -- To check Project responsibilites
2685: -- Post 11.5.10
2698: L_DEBUG_KEY,
2699: 'After calling AHL_VWP_RULES_PVT.Check_Proj_Responsibility. Return Status = ' || l_return_status);
2700: END IF;
2701:
2702: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) THEN
2703: IF (l_log_statement >= l_log_current_level) THEN
2704: fnd_log.string(l_log_statement,
2705: L_DEBUG_KEY,
2706: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility');
2705: L_DEBUG_KEY,
2706: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility');
2707: END IF;
2708: x_return_status := l_return_status;
2709: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2710: RAISE FND_API.G_EXC_ERROR;
2711: ELSE
2712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2713: END IF;
2706: 'Errors from AHL_VWP_RULES_PVT.Check_Proj_Responsibility');
2707: END IF;
2708: x_return_status := l_return_status;
2709: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2710: RAISE FND_API.G_EXC_ERROR;
2711: ELSE
2712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2713: END IF;
2714: END IF;
2708: x_return_status := l_return_status;
2709: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2710: RAISE FND_API.G_EXC_ERROR;
2711: ELSE
2712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2713: END IF;
2714: END IF;
2715:
2716: IF l_chk_project = 'Y' THEN
2752: OPEN c_proj_status_code(p_visit_id);
2753: FETCH c_proj_status_code INTO l_prj_status_code_fdb;
2754: CLOSE c_proj_status_code;
2755:
2756: IF p_module_type = 'DEL' AND (c_visit_rec.start_date_time is null OR c_visit_rec.start_date_time =Fnd_Api.G_MISS_DATE) then
2757: c_visit_rec.start_date_time := SYSDATE;
2758: END IF;
2759:
2760: IF (c_visit_rec.START_DATE_TIME IS NOT NULL
2757: c_visit_rec.start_date_time := SYSDATE;
2758: END IF;
2759:
2760: IF (c_visit_rec.START_DATE_TIME IS NOT NULL
2761: AND c_visit_rec.START_DATE_TIME <> Fnd_Api.G_MISS_DATE
2762: AND c_visit_rec.DEPARTMENT_ID IS NOT NULL
2763: AND c_visit_rec.DEPARTMENT_ID <> FND_API.G_MISS_NUM) THEN
2764:
2765: -- PRAKKUM :: PIE:FP :: 19-NOV-2010 ::
2759:
2760: IF (c_visit_rec.START_DATE_TIME IS NOT NULL
2761: AND c_visit_rec.START_DATE_TIME <> Fnd_Api.G_MISS_DATE
2762: AND c_visit_rec.DEPARTMENT_ID IS NOT NULL
2763: AND c_visit_rec.DEPARTMENT_ID <> FND_API.G_MISS_NUM) THEN
2764:
2765: -- PRAKKUM :: PIE:FP :: 19-NOV-2010 ::
2766: /*
2767: IF c_visit_rec.project_template_id IS NOT NULL THEN
3639: IF (l_log_statement >= l_log_current_level) THEN
3640: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling PA_PROJECT_PUB.UPDATE_PROJECT - l_return_status = '||l_return_status);
3641: END IF;
3642:
3643: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3644: IF (l_log_statement >= l_log_current_level) THEN
3645: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from PA_PROJECT_PUB.UPDATE_PROJECT - l_msg_count = '||l_msg_count);
3646: END IF;
3647: RAISE Fnd_Api.g_exc_error;
3643: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3644: IF (l_log_statement >= l_log_current_level) THEN
3645: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from PA_PROJECT_PUB.UPDATE_PROJECT - l_msg_count = '||l_msg_count);
3646: END IF;
3647: RAISE Fnd_Api.g_exc_error;
3648: END IF;
3649:
3650: -- PRAKKUM :: FP:PIE :: 13-OCT-2010 ::
3651: /*IF (l_top_task_id = -1) THEN
3690: x_msg_count => l_msg_count,
3691: x_msg_data => l_msg_data,
3692: p_param_data => l_param_data);
3693:
3694: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3695: CLOSE c_pjm_param;
3696: RAISE FND_API.G_EXC_ERROR;
3697: END IF;
3698: -- RROY
3692: p_param_data => l_param_data);
3693:
3694: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3695: CLOSE c_pjm_param;
3696: RAISE FND_API.G_EXC_ERROR;
3697: END IF;
3698: -- RROY
3699: END IF;
3700: CLOSE c_pjm_param;
3783: WHERE VISIT_ID = p_visit_id;
3784: END IF;
3785: END IF; -- c_visit_rec.PROJECT_ID IS NOT NULL
3786: -- PRAKKUM :: PIE Changes :: 13-OCT-2010 :: END
3787: ELSIF c_visit_rec.START_DATE_TIME IS NULL or c_visit_rec.START_DATE_TIME = Fnd_Api.G_MISS_DATE THEN
3788: x_return_status := Fnd_Api.g_ret_sts_error;
3789: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
3790: Fnd_Message.set_name ('AHL', 'AHL_VWP_VISIT_ST_DT_MISSING');
3791: Fnd_Msg_Pub.ADD;
3784: END IF;
3785: END IF; -- c_visit_rec.PROJECT_ID IS NOT NULL
3786: -- PRAKKUM :: PIE Changes :: 13-OCT-2010 :: END
3787: ELSIF c_visit_rec.START_DATE_TIME IS NULL or c_visit_rec.START_DATE_TIME = Fnd_Api.G_MISS_DATE THEN
3788: x_return_status := Fnd_Api.g_ret_sts_error;
3789: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
3790: Fnd_Message.set_name ('AHL', 'AHL_VWP_VISIT_ST_DT_MISSING');
3791: Fnd_Msg_Pub.ADD;
3792: END IF;
3798: l_msg_count := Fnd_Msg_Pub.count_msg;
3799:
3800: IF l_msg_count > 0 THEN
3801: X_msg_count := l_msg_count;
3802: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3803: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3804: END IF;
3805:
3806: IF (l_log_procedure >= l_log_current_level) THEN
3799:
3800: IF l_msg_count > 0 THEN
3801: X_msg_count := l_msg_count;
3802: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3803: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3804: END IF;
3805:
3806: IF (l_log_procedure >= l_log_current_level) THEN
3807: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.end','End of the procedure');
3807: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.end','End of the procedure');
3808: END IF;
3809:
3810: EXCEPTION
3811: WHEN FND_API.G_EXC_ERROR THEN
3812: x_return_status := FND_API.G_RET_STS_ERROR;
3813: ROLLBACK TO Update_Project;
3814: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
3815: p_data => x_msg_data,
3808: END IF;
3809:
3810: EXCEPTION
3811: WHEN FND_API.G_EXC_ERROR THEN
3812: x_return_status := FND_API.G_RET_STS_ERROR;
3813: ROLLBACK TO Update_Project;
3814: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
3815: p_data => x_msg_data,
3816: p_encoded => fnd_api.g_false);
3812: x_return_status := FND_API.G_RET_STS_ERROR;
3813: ROLLBACK TO Update_Project;
3814: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
3815: p_data => x_msg_data,
3816: p_encoded => fnd_api.g_false);
3817:
3818: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3820: ROLLBACK TO Update_Project;
3814: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
3815: p_data => x_msg_data,
3816: p_encoded => fnd_api.g_false);
3817:
3818: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3820: ROLLBACK TO Update_Project;
3821: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
3822: p_data => x_msg_data,
3815: p_data => x_msg_data,
3816: p_encoded => fnd_api.g_false);
3817:
3818: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3820: ROLLBACK TO Update_Project;
3821: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
3822: p_data => x_msg_data,
3823: p_encoded => fnd_api.g_false);
3819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3820: ROLLBACK TO Update_Project;
3821: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
3822: p_data => x_msg_data,
3823: p_encoded => fnd_api.g_false);
3824:
3825: WHEN OTHERS THEN
3826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3827: ROLLBACK TO Update_Project;
3822: p_data => x_msg_data,
3823: p_encoded => fnd_api.g_false);
3824:
3825: WHEN OTHERS THEN
3826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3827: ROLLBACK TO Update_Project;
3828: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3829: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3830: p_procedure_name => 'Update_Project',
3831: p_error_text => SUBSTR(SQLERRM,1,500));
3832: END IF;
3833: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
3834: p_data => x_msg_data,
3835: p_encoded => fnd_api.g_false);
3836:
3837: END Update_Project;
3838:
3839: --------------------------------------------------------------------
3844: -- To delete Project and its tasks if visit in VWP is deleted
3845: --------------------------------------------------------------------
3846: PROCEDURE Delete_Project(
3847: p_api_version IN NUMBER,
3848: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3849: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3850: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3851: p_module_type IN VARCHAR2 := Null,
3852: p_visit_id IN NUMBER,
3845: --------------------------------------------------------------------
3846: PROCEDURE Delete_Project(
3847: p_api_version IN NUMBER,
3848: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3849: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3850: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3851: p_module_type IN VARCHAR2 := Null,
3852: p_visit_id IN NUMBER,
3853: x_return_status OUT NOCOPY VARCHAR2,
3846: PROCEDURE Delete_Project(
3847: p_api_version IN NUMBER,
3848: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
3849: p_commit IN VARCHAR2 := Fnd_Api.g_false,
3850: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
3851: p_module_type IN VARCHAR2 := Null,
3852: p_visit_id IN NUMBER,
3853: x_return_status OUT NOCOPY VARCHAR2,
3854: x_msg_count OUT NOCOPY NUMBER,
3891: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.begin','At the start of the procedure');
3892: END IF;
3893:
3894: -- Initialize message list if p_init_msg_list is set to TRUE.
3895: IF Fnd_Api.to_boolean(p_init_msg_list)THEN
3896: Fnd_Msg_Pub.initialize;
3897: END IF;
3898:
3899: -- Initialize API return status to success
3896: Fnd_Msg_Pub.initialize;
3897: END IF;
3898:
3899: -- Initialize API return status to success
3900: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3901:
3902: -- Standard call to check for call compatibility.
3903: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
3904: p_api_version,
3899: -- Initialize API return status to success
3900: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3901:
3902: -- Standard call to check for call compatibility.
3903: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
3904: p_api_version,
3905: L_API_NAME,G_PKG_NAME) THEN
3906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3907: END IF;
3902: -- Standard call to check for call compatibility.
3903: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
3904: p_api_version,
3905: L_API_NAME,G_PKG_NAME) THEN
3906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3907: END IF;
3908:
3909: IF (l_log_statement >= l_log_current_level) THEN
3910: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Visit Id=' || p_visit_id);
3920: AHL_VWP_RULES_PVT.Check_Proj_Responsibility
3921: (x_check_project => l_chk_project,
3922: x_return_status => l_return_status);
3923:
3924: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
3925: x_return_status := l_return_status;
3926: RAISE G_EXC_ERROR;
3927: END IF;
3928:
3934: IF l_count > 0 THEN -- merge process for 11.5 10 bug# 3470801 fix on CMRDV10P
3935: Fnd_Message.SET_NAME('AHL','AHL_VWP_PROJ_PJM_PARA');
3936: Fnd_Message.SET_TOKEN('VISIT_NUMBER', c_visit_rec.Visit_Number);
3937: Fnd_Msg_Pub.ADD;
3938: RAISE Fnd_Api.G_EXC_ERROR;
3939: ELSE
3940: IF (l_log_statement >= l_log_current_level) THEN
3941: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before calling : PA_PROJECT_PUB.CHECK_DELETE_PROJECT_OK');
3942: END IF;
3984: IF (l_log_statement >= l_log_current_level) THEN
3985: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling PA_PROJECT_PUB.DELETE_PROJECT - l_return_status = '||l_return_status);
3986: END IF;
3987:
3988: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3989: IF (l_log_statement >= l_log_current_level) THEN
3990: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from PA_PROJECT_PUB.DELETE_PROJECT API : '|| x_msg_count );
3991: END IF;
3992: RAISE Fnd_Api.g_exc_error;
3988: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3989: IF (l_log_statement >= l_log_current_level) THEN
3990: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from PA_PROJECT_PUB.DELETE_PROJECT API : '|| x_msg_count );
3991: END IF;
3992: RAISE Fnd_Api.g_exc_error;
3993: END IF;
3994: END IF;
3995: END IF;
3996: END IF;
4000: l_msg_count := Fnd_Msg_Pub.count_msg;
4001:
4002: IF l_msg_count > 0 THEN
4003: X_msg_count := l_msg_count;
4004: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4005: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4006: END IF;
4007:
4008: IF (l_log_procedure >= l_log_current_level) THEN
4001:
4002: IF l_msg_count > 0 THEN
4003: X_msg_count := l_msg_count;
4004: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4005: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4006: END IF;
4007:
4008: IF (l_log_procedure >= l_log_current_level) THEN
4009: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.end','End of the procedure');
4009: fnd_log.string(l_log_procedure,L_DEBUG_KEY ||'.end','End of the procedure');
4010: END IF;
4011:
4012: EXCEPTION
4013: WHEN FND_API.G_EXC_ERROR THEN
4014: x_return_status := FND_API.G_RET_STS_ERROR;
4015: ROLLBACK TO Delete_Project;
4016: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4017: p_data => x_msg_data,
4010: END IF;
4011:
4012: EXCEPTION
4013: WHEN FND_API.G_EXC_ERROR THEN
4014: x_return_status := FND_API.G_RET_STS_ERROR;
4015: ROLLBACK TO Delete_Project;
4016: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4017: p_data => x_msg_data,
4018: p_encoded => fnd_api.g_false);
4014: x_return_status := FND_API.G_RET_STS_ERROR;
4015: ROLLBACK TO Delete_Project;
4016: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4017: p_data => x_msg_data,
4018: p_encoded => fnd_api.g_false);
4019:
4020: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4021: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4022: ROLLBACK TO Delete_Project;
4016: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4017: p_data => x_msg_data,
4018: p_encoded => fnd_api.g_false);
4019:
4020: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4021: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4022: ROLLBACK TO Delete_Project;
4023: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4024: p_data => x_msg_data,
4017: p_data => x_msg_data,
4018: p_encoded => fnd_api.g_false);
4019:
4020: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4021: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4022: ROLLBACK TO Delete_Project;
4023: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4024: p_data => x_msg_data,
4025: p_encoded => fnd_api.g_false);
4021: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4022: ROLLBACK TO Delete_Project;
4023: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4024: p_data => x_msg_data,
4025: p_encoded => fnd_api.g_false);
4026:
4027: WHEN OTHERS THEN
4028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4029: ROLLBACK TO Delete_Project;
4024: p_data => x_msg_data,
4025: p_encoded => fnd_api.g_false);
4026:
4027: WHEN OTHERS THEN
4028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4029: ROLLBACK TO Delete_Project;
4030: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4031: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
4032: p_procedure_name => 'Delete_Project',
4033: p_error_text => SUBSTR(SQLERRM,1,500));
4034: END IF;
4035: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
4036: p_data => x_msg_data,
4037: p_encoded => fnd_api.g_false);
4038: END Delete_Project;
4039:
4040:
4041: -- SATRAJEN :: BUG 12990261 :: Minimize the number of Error Messages :: Jun 2012
4416: --------------------------------------------------------------------
4417: PROCEDURE Validate_Before_Production
4418: (
4419: p_api_version IN NUMBER,
4420: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4421: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4422: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4423: p_module_type IN VARCHAR2 := 'JSP',
4424: p_visit_id IN NUMBER,
4417: PROCEDURE Validate_Before_Production
4418: (
4419: p_api_version IN NUMBER,
4420: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4421: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4422: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4423: p_module_type IN VARCHAR2 := 'JSP',
4424: p_visit_id IN NUMBER,
4425:
4418: (
4419: p_api_version IN NUMBER,
4420: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
4421: p_commit IN VARCHAR2 := Fnd_Api.g_false,
4422: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
4423: p_module_type IN VARCHAR2 := 'JSP',
4424: p_visit_id IN NUMBER,
4425:
4426: x_error_tbl OUT NOCOPY Error_Tbl_Type,
4676: 'At the start of PL SQL procedure. Visit Id = ' || p_visit_id);
4677: END IF;
4678:
4679: -- Initialize message list if p_init_msg_list is set to TRUE.
4680: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
4681: Fnd_Msg_Pub.initialize;
4682: END IF;
4683:
4684: -- Initialize API return status to success
4681: Fnd_Msg_Pub.initialize;
4682: END IF;
4683:
4684: -- Initialize API return status to success
4685: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4686:
4687: -- Standard call to check for call compatibility.
4688: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
4689: p_api_version,
4684: -- Initialize API return status to success
4685: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4686:
4687: -- Standard call to check for call compatibility.
4688: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
4689: p_api_version,
4690: l_api_name,G_PKG_NAME) THEN
4691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4692: END IF;
4687: -- Standard call to check for call compatibility.
4688: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
4689: p_api_version,
4690: l_api_name,G_PKG_NAME) THEN
4691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4692: END IF;
4693:
4694: OPEN c_visit (p_visit_id);
4695: FETCH c_visit INTO c_visit_rec;
4899:
4900: IF NVL(l_return_status, 'X') <> 'S' THEN
4901: Fnd_Message.SET_NAME('AHL','AHL_VWP_TYPE_CODE_NOT_EXISTS');
4902: Fnd_Msg_Pub.ADD;
4903: RAISE Fnd_Api.G_EXC_ERROR;
4904: END IF;
4905: END IF;
4906:
4907: /*sowsubra - part-chgER - 18 July, 2007- start*/
5037: -- To check all task's serial number are still active
5038: IF c_visit_rec.Item_Instance_Id IS NOT NULL THEN
5039:
5040: --BEGIN: jeli added for bug 3777720
5041: IF (AHL_VWP_RULES_PVT.instance_in_config_tree(p_visit_id, c_visit_rec.item_instance_id)= FND_API.G_RET_STS_ERROR) THEN
5042: --END: jeli added for bug 3777720
5043: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_INST_NO_FOUND');
5044: Fnd_Message.Set_Token('VISIT_NUMBER',c_visit_rec.VISIT_NUMBER);
5045: Fnd_Msg_Pub.ADD;
5054: EXIT WHEN c_task%NOTFOUND;
5055: IF c_task_rec.INSTANCE_ID IS NOT NULL THEN
5056: -- IF l_check_flag = 'N' THEN
5057: --BEGIN: jeli added for bug 3777720
5058: IF (AHL_VWP_RULES_PVT.instance_in_config_tree(p_visit_id, c_task_rec.instance_id) = FND_API.G_RET_STS_ERROR) THEN
5059: --END: jeli added for bug 3777720
5060: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_INST_NO_FOUND');
5061: Fnd_Message.Set_Token('VISIT_NUMBER', c_visit_rec.VISIT_NUMBER);
5062: Fnd_Msg_Pub.ADD;
5185: END LOOP;
5186: END IF;
5187:
5188: IF (c_visit_rec.START_DATE_TIME IS NOT NULL
5189: AND c_visit_rec.START_DATE_TIME <> Fnd_Api.g_miss_date)
5190: AND (c_visit_rec.DEPARTMENT_ID IS NOT NULL
5191: AND c_visit_rec.DEPARTMENT_ID <> Fnd_Api.g_miss_num)
5192: AND l_count > 0 AND l_chk_flag = 'N' AND l_dept_flag = 'N' THEN
5193:
5187:
5188: IF (c_visit_rec.START_DATE_TIME IS NOT NULL
5189: AND c_visit_rec.START_DATE_TIME <> Fnd_Api.g_miss_date)
5190: AND (c_visit_rec.DEPARTMENT_ID IS NOT NULL
5191: AND c_visit_rec.DEPARTMENT_ID <> Fnd_Api.g_miss_num)
5192: AND l_count > 0 AND l_chk_flag = 'N' AND l_dept_flag = 'N' THEN
5193:
5194: --The visit end date
5195: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063
5363:
5364: AHL_VWP_RULES_PVT.Validate_Return_To_Supply
5365: (
5366: p_api_version => 1.0,
5367: p_init_msg_list => FND_API.G_FALSE,
5368: p_commit => FND_API.G_FALSE,
5369: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5370: p_module_type => 'VST',
5371: p_visit_id => p_visit_id,
5364: AHL_VWP_RULES_PVT.Validate_Return_To_Supply
5365: (
5366: p_api_version => 1.0,
5367: p_init_msg_list => FND_API.G_FALSE,
5368: p_commit => FND_API.G_FALSE,
5369: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5370: p_module_type => 'VST',
5371: p_visit_id => p_visit_id,
5372: p_tasks_tbl => l_val_task_tbl,
5365: (
5366: p_api_version => 1.0,
5367: p_init_msg_list => FND_API.G_FALSE,
5368: p_commit => FND_API.G_FALSE,
5369: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5370: p_module_type => 'VST',
5371: p_visit_id => p_visit_id,
5372: p_tasks_tbl => l_val_task_tbl,
5373: x_return_status => l_return_status,
5390: l_msg_count := Fnd_Msg_Pub.count_msg;
5391: FOR i IN 1..l_msg_count LOOP
5392: FND_MSG_PUB.get (
5393: p_msg_index => i,
5394: p_encoded => FND_API.G_FALSE,
5395: p_data => x_msg_data,
5396: p_msg_index_out => x_msg_count);
5397: l_error_tbl(j).Msg_Index := j;
5398: l_error_tbl(j).Msg_Data := x_msg_data;
5399: j := j + 1;
5400: END LOOP;
5401: -- End by SOSAHNI on 10/01/2013 for BUG 16089769 :: FP base bug 14098719
5402: x_error_tbl := l_error_tbl;
5403: RAISE Fnd_Api.g_exc_error;
5404: END IF;
5405:
5406: END IF;
5407: -- SKPATHAK :: ER:12730539 :: 01-AUG-2011 :: END
5428: END IF;
5429:
5430: FND_MSG_PUB.get (
5431: p_msg_index => i, -- SOSAHNI :: BUG 16061401 :: FP base bug 12929344 :: 10/01/2013 :: Found this error while testing for this bug. Error message is not displayed when error count is one. Hence added the parameter
5432: p_encoded => FND_API.G_FALSE,
5433: p_data => l_data,
5434: p_msg_index_out => l_msg_count);
5435: IF (l_log_statement >= l_log_current_level) THEN
5436: fnd_log.string(l_log_statement,
5453: -------------------- finish --------------------------
5454: -- END of API body.
5455: -- Standard check of p_commit.
5456:
5457: IF Fnd_Api.To_Boolean (p_commit) THEN
5458: COMMIT WORK;
5459: END IF;
5460:
5461: Fnd_Msg_Pub.count_and_get(
5458: COMMIT WORK;
5459: END IF;
5460:
5461: Fnd_Msg_Pub.count_and_get(
5462: p_encoded => Fnd_Api.g_false,
5463: p_count => x_msg_count,
5464: p_data => x_msg_data
5465: );
5466:
5470: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
5471: END IF;
5472:
5473: EXCEPTION
5474: WHEN Fnd_Api.g_exc_error THEN
5475: ROLLBACK TO Validate_Before_Production;
5476: x_return_status := Fnd_Api.g_ret_sts_error;
5477: Fnd_Msg_Pub.count_and_get (
5478: p_encoded => Fnd_Api.g_false,
5472:
5473: EXCEPTION
5474: WHEN Fnd_Api.g_exc_error THEN
5475: ROLLBACK TO Validate_Before_Production;
5476: x_return_status := Fnd_Api.g_ret_sts_error;
5477: Fnd_Msg_Pub.count_and_get (
5478: p_encoded => Fnd_Api.g_false,
5479: p_count => x_msg_count,
5480: p_data => x_msg_data
5474: WHEN Fnd_Api.g_exc_error THEN
5475: ROLLBACK TO Validate_Before_Production;
5476: x_return_status := Fnd_Api.g_ret_sts_error;
5477: Fnd_Msg_Pub.count_and_get (
5478: p_encoded => Fnd_Api.g_false,
5479: p_count => x_msg_count,
5480: p_data => x_msg_data
5481: );
5482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5478: p_encoded => Fnd_Api.g_false,
5479: p_count => x_msg_count,
5480: p_data => x_msg_data
5481: );
5482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5483: ROLLBACK TO Validate_Before_Production;
5484: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5485: Fnd_Msg_Pub.count_and_get (
5486: p_encoded => Fnd_Api.g_false,
5480: p_data => x_msg_data
5481: );
5482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5483: ROLLBACK TO Validate_Before_Production;
5484: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5485: Fnd_Msg_Pub.count_and_get (
5486: p_encoded => Fnd_Api.g_false,
5487: p_count => x_msg_count,
5488: p_data => x_msg_data
5482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5483: ROLLBACK TO Validate_Before_Production;
5484: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5485: Fnd_Msg_Pub.count_and_get (
5486: p_encoded => Fnd_Api.g_false,
5487: p_count => x_msg_count,
5488: p_data => x_msg_data
5489: );
5490: WHEN OTHERS THEN
5488: p_data => x_msg_data
5489: );
5490: WHEN OTHERS THEN
5491: ROLLBACK TO Validate_Before_Production;
5492: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5493: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5494: THEN
5495: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5496: END IF;
5494: THEN
5495: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5496: END IF;
5497: Fnd_Msg_Pub.count_and_get (
5498: p_encoded => Fnd_Api.g_false,
5499: p_count => x_msg_count,
5500: p_data => x_msg_data
5501: );
5502: END Validate_Before_Production;
6063: -- To push visit along with all its tasks to Production for create jobs
6064: --------------------------------------------------------------------
6065: PROCEDURE Push_to_Production
6066: ( p_api_version IN NUMBER,
6067: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
6068: p_commit IN VARCHAR2 := Fnd_Api.g_false,
6069: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
6070: p_module_type IN VARCHAR2 := Null,
6071: p_visit_id IN NUMBER,
6064: --------------------------------------------------------------------
6065: PROCEDURE Push_to_Production
6066: ( p_api_version IN NUMBER,
6067: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
6068: p_commit IN VARCHAR2 := Fnd_Api.g_false,
6069: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
6070: p_module_type IN VARCHAR2 := Null,
6071: p_visit_id IN NUMBER,
6072: p_release_flag IN VARCHAR2 := 'N', -- By shbhanda 05/21/04 for TC changes
6065: PROCEDURE Push_to_Production
6066: ( p_api_version IN NUMBER,
6067: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
6068: p_commit IN VARCHAR2 := Fnd_Api.g_false,
6069: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
6070: p_module_type IN VARCHAR2 := Null,
6071: p_visit_id IN NUMBER,
6072: p_release_flag IN VARCHAR2 := 'N', -- By shbhanda 05/21/04 for TC changes
6073: p_orig_visit_id IN NUMBER := NULL, -- By yazhou 08/06/04 for TC changes
6347: 'At the start of PL SQL procedure. Visit Id = ' || p_visit_id);
6348: END IF;
6349:
6350: -- Initialize message list if p_init_msg_list is set to TRUE.
6351: IF Fnd_Api.to_boolean(p_init_msg_list)
6352: THEN
6353: Fnd_Msg_Pub.initialize;
6354: END IF;
6355:
6353: Fnd_Msg_Pub.initialize;
6354: END IF;
6355:
6356: -- Initialize API return status to success
6357: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6358:
6359: -- Standard call to check for call compatibility.
6360: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
6361: p_api_version,
6356: -- Initialize API return status to success
6357: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6358:
6359: -- Standard call to check for call compatibility.
6360: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
6361: p_api_version,
6362: l_api_name,G_PKG_NAME)
6363: THEN
6364: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6360: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
6361: p_api_version,
6362: l_api_name,G_PKG_NAME)
6363: THEN
6364: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6365: END IF;
6366:
6367: IF (l_log_statement >= l_log_current_level) THEN
6368: fnd_log.string(l_log_statement,
6372:
6373: -- Calculate Task Start/End time
6374: AHL_VWP_TIMES_PVT.CALCULATE_TASK_TIMES(
6375: p_api_version => 1.0,
6376: p_init_msg_list => Fnd_Api.G_FALSE,
6377: p_commit => Fnd_Api.G_FALSE,
6378: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
6379: x_return_status => l_return_status,
6380: x_msg_count => l_msg_count,
6373: -- Calculate Task Start/End time
6374: AHL_VWP_TIMES_PVT.CALCULATE_TASK_TIMES(
6375: p_api_version => 1.0,
6376: p_init_msg_list => Fnd_Api.G_FALSE,
6377: p_commit => Fnd_Api.G_FALSE,
6378: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
6379: x_return_status => l_return_status,
6380: x_msg_count => l_msg_count,
6381: x_msg_data => l_msg_data,
6374: AHL_VWP_TIMES_PVT.CALCULATE_TASK_TIMES(
6375: p_api_version => 1.0,
6376: p_init_msg_list => Fnd_Api.G_FALSE,
6377: p_commit => Fnd_Api.G_FALSE,
6378: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
6379: x_return_status => l_return_status,
6380: x_msg_count => l_msg_count,
6381: x_msg_data => l_msg_data,
6382: p_visit_id => p_visit_id);
6386: L_DEBUG_KEY,
6387: 'After calling AHL_VWP_TIMES_PVT.Calculate_Task_Times. Return Status = ' || l_return_status);
6388: END IF;
6389:
6390: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) THEN
6391: IF (l_log_statement >= l_log_current_level) THEN
6392: fnd_log.string(l_log_statement,
6393: L_DEBUG_KEY,
6394: 'Errors from AHL_VWP_TIMES_PVT.Calculate_Task_Times. Message count: ' ||
6415: END IF;
6416: FOR l_get_independent_tasks IN get_independent_tasks(p_visit_id) LOOP
6417: AHL_VWP_TIMES_PVT.adjust_task_times(
6418: p_api_version => 1.0,
6419: p_init_msg_list => Fnd_Api.G_FALSE,
6420: p_commit => Fnd_Api.G_FALSE,
6421: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
6422: x_return_status => l_return_status,
6423: x_msg_count => l_msg_count,
6416: FOR l_get_independent_tasks IN get_independent_tasks(p_visit_id) LOOP
6417: AHL_VWP_TIMES_PVT.adjust_task_times(
6418: p_api_version => 1.0,
6419: p_init_msg_list => Fnd_Api.G_FALSE,
6420: p_commit => Fnd_Api.G_FALSE,
6421: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
6422: x_return_status => l_return_status,
6423: x_msg_count => l_msg_count,
6424: x_msg_data => l_msg_data,
6417: AHL_VWP_TIMES_PVT.adjust_task_times(
6418: p_api_version => 1.0,
6419: p_init_msg_list => Fnd_Api.G_FALSE,
6420: p_commit => Fnd_Api.G_FALSE,
6421: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
6422: x_return_status => l_return_status,
6423: x_msg_count => l_msg_count,
6424: x_msg_data => l_msg_data,
6425: p_task_id => l_get_independent_tasks.visit_task_id,
6422: x_return_status => l_return_status,
6423: x_msg_count => l_msg_count,
6424: x_msg_data => l_msg_data,
6425: p_task_id => l_get_independent_tasks.visit_task_id,
6426: p_reset_sysdate_flag => FND_API.G_TRUE);
6427: END LOOP;
6428:
6429: IF (l_log_statement >= l_log_current_level) THEN
6430: fnd_log.string(l_log_statement,
6431: L_DEBUG_KEY,
6432: 'After calling AHL_VWP_TIMES_PVT.adjust_task_times. Return Status = ' || l_return_status);
6433: END IF;
6434:
6435: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) THEN
6436: IF (l_log_statement >= l_log_current_level) THEN
6437: fnd_log.string(l_log_statement,
6438: L_DEBUG_KEY,
6439: 'Errors from AHL_VWP_TIMES_PVT.adjust_task_times. Message count: ' ||
6450: IF l_visit_end_time > get_vst_status_and_date_rec.close_date_time THEN
6451: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRD_VST_TSK_STDT_ADJU');
6452: Fnd_Message.Set_Token('VISIT_END_DATE', l_visit_end_time);
6453: Fnd_Msg_Pub.ADD;
6454: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6455: END IF;
6456: END IF;
6457:
6458: /*rnahata - B6447196 - start*/
6485: L_DEBUG_KEY,
6486: 'After calling INTEGRATE_TO_PROJECTS. l_return_status '||l_return_status);
6487: END IF;
6488:
6489: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6490: -- Check Error Message stack.
6491: x_msg_count := FND_MSG_PUB.count_msg;
6492: RAISE FND_API.G_EXC_ERROR;
6493: END IF;
6488:
6489: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6490: -- Check Error Message stack.
6491: x_msg_count := FND_MSG_PUB.count_msg;
6492: RAISE FND_API.G_EXC_ERROR;
6493: END IF;
6494:
6495: -- Post 11.5.10
6496: -- RROY
6624: fnd_log.string(l_log_statement,
6625: L_DEBUG_KEY,
6626: 'Errors from VALIDATE_MR_ROUTE_DATE. Message count: ' || l_msg_count);
6627: END IF;
6628: RAISE FND_API.G_EXC_ERROR;
6629: END IF;
6630: -- End changes by rnahata for Bug 6448678
6631:
6632: -- transit check visit Change
6653:
6654: IF (p_visit_id IS NOT NULL) THEN
6655: AHL_LTP_REQST_MATRL_PUB.Process_Planned_Materials (
6656: p_api_version => 1.0,
6657: p_init_msg_list => FND_API.G_FALSE,
6658: p_commit => FND_API.G_FALSE,
6659: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6660: p_visit_id => p_visit_id,
6661: p_operation_flag => 'U',
6654: IF (p_visit_id IS NOT NULL) THEN
6655: AHL_LTP_REQST_MATRL_PUB.Process_Planned_Materials (
6656: p_api_version => 1.0,
6657: p_init_msg_list => FND_API.G_FALSE,
6658: p_commit => FND_API.G_FALSE,
6659: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6660: p_visit_id => p_visit_id,
6661: p_operation_flag => 'U',
6662: x_planned_order_flag => l_planned_order_flag,
6655: AHL_LTP_REQST_MATRL_PUB.Process_Planned_Materials (
6656: p_api_version => 1.0,
6657: p_init_msg_list => FND_API.G_FALSE,
6658: p_commit => FND_API.G_FALSE,
6659: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6660: p_visit_id => p_visit_id,
6661: p_operation_flag => 'U',
6662: x_planned_order_flag => l_planned_order_flag,
6663: x_return_status => l_return_status,
6669: L_DEBUG_KEY,
6670: 'After Calling AHL_LTP_REQST_MATRL_PUB.Process_Planned_Materials. Return Status = ' || l_return_status );
6671: END IF;
6672:
6673: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6674: x_msg_count := l_msg_count;
6675: x_return_status := l_return_status;
6676: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
6677: RAISE Fnd_Api.g_exc_error;
6672:
6673: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6674: x_msg_count := l_msg_count;
6675: x_return_status := l_return_status;
6676: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
6677: RAISE Fnd_Api.g_exc_error;
6678: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
6679: RAISE Fnd_Api.g_exc_unexpected_error;
6680: END IF;
6673: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6674: x_msg_count := l_msg_count;
6675: x_return_status := l_return_status;
6676: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
6677: RAISE Fnd_Api.g_exc_error;
6678: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
6679: RAISE Fnd_Api.g_exc_unexpected_error;
6680: END IF;
6681: END IF;
6674: x_msg_count := l_msg_count;
6675: x_return_status := l_return_status;
6676: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
6677: RAISE Fnd_Api.g_exc_error;
6678: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
6679: RAISE Fnd_Api.g_exc_unexpected_error;
6680: END IF;
6681: END IF;
6682: END IF;
6675: x_return_status := l_return_status;
6676: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
6677: RAISE Fnd_Api.g_exc_error;
6678: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
6679: RAISE Fnd_Api.g_exc_unexpected_error;
6680: END IF;
6681: END IF;
6682: END IF;
6683:
6753: L_DEBUG_KEY,
6754: 'After calling AHL_PRD_WORKORDER_PVT.reschedule_visit_jobs. Return Status = ' || l_return_status);
6755: END IF;
6756:
6757: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) THEN
6758: IF (l_log_statement >= l_log_current_level) THEN
6759: fnd_log.string(l_log_statement,
6760: L_DEBUG_KEY,
6761: 'Errors from AHL_PRD_WORKORDER_PVT.reschedule_visit_jobs. Message count: ' ||
6760: L_DEBUG_KEY,
6761: 'Errors from AHL_PRD_WORKORDER_PVT.reschedule_visit_jobs. Message count: ' ||
6762: l_msg_count || ', message data: ' || l_msg_data);
6763: END IF;
6764: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6765: RAISE FND_API.G_EXC_ERROR;
6766: ELSE
6767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6768: END IF;
6761: 'Errors from AHL_PRD_WORKORDER_PVT.reschedule_visit_jobs. Message count: ' ||
6762: l_msg_count || ', message data: ' || l_msg_data);
6763: END IF;
6764: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6765: RAISE FND_API.G_EXC_ERROR;
6766: ELSE
6767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6768: END IF;
6769: END IF;
6763: END IF;
6764: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6765: RAISE FND_API.G_EXC_ERROR;
6766: ELSE
6767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6768: END IF;
6769: END IF;
6770:
6771: END IF; --reschedule visit jobs
7167: CLOSE get_wo_dtls_for_mrtasks_cur;
7168: l_prd_workorder_tbl(idx).JOB_DESCRIPTION := get_wo_dtls_for_mrtasks_rec.workorder_description;
7169: END IF;
7170:
7171: IF c_task_rec.mr_route_id IS NOT NULL AND c_task_rec.mr_route_id <> FND_API.g_miss_num THEN
7172: OPEN c_route (c_task_rec.mr_route_id);
7173: FETCH c_route INTO l_route_id;
7174: CLOSE c_route;
7175: l_prd_workorder_tbl(idx).ROUTE_ID := l_route_id ;
7177: l_prd_workorder_tbl(idx).ROUTE_ID := Null;
7178: END IF;
7179:
7180: IF c_task_rec.department_id IS NOT NULL
7181: AND c_task_rec.department_id <> FND_API.g_miss_num THEN
7182: l_prd_workorder_tbl(idx).DEPARTMENT_ID := c_task_rec.department_id ;
7183: ELSE
7184: l_prd_workorder_tbl(idx).DEPARTMENT_ID := c_visit_rec.department_id ;
7185: END IF;
7241:
7242: IF l_max_schedule_start_date > c_visit_rec.close_date_time THEN -- Validation Error
7243: Fnd_Message.SET_NAME('AHL','AHL_VWP_NON_PS_PLAN_ED_DATE');
7244: Fnd_Msg_Pub.ADD;
7245: RAISE Fnd_Api.G_EXC_ERROR;
7246: END IF;
7247:
7248: END IF;
7249: --BUG 13373947 :: PRAKKUM :: 10/02/2012 :: END
7301:
7302: AHL_PRD_WORKORDER_PVT.Process_Jobs
7303: ( p_api_version => p_api_version,
7304: p_init_msg_list => p_init_msg_list,
7305: p_commit => FND_API.G_FALSE,
7306: p_validation_level => p_validation_level,
7307: p_default => FND_API.G_TRUE,
7308: p_module_type => p_module_type,
7309: x_return_status => l_return_status,
7303: ( p_api_version => p_api_version,
7304: p_init_msg_list => p_init_msg_list,
7305: p_commit => FND_API.G_FALSE,
7306: p_validation_level => p_validation_level,
7307: p_default => FND_API.G_TRUE,
7308: p_module_type => p_module_type,
7309: x_return_status => l_return_status,
7310: x_msg_count => x_msg_count,
7311: x_msg_data => x_msg_data,
7319: L_DEBUG_KEY,
7320: 'After calling AHL_PRD_WORKORDER_PVT.Process_Jobs. Return Status = ' || l_return_status);
7321: END IF;
7322:
7323: IF (l_return_status <> Fnd_Api.G_RET_STS_SUCCESS) THEN
7324: IF (l_log_statement >= l_log_current_level) THEN
7325: fnd_log.string(l_log_statement,
7326: L_DEBUG_KEY,
7327: 'Errors from AHL_PRD_WORKORDER_PVT.Process_Jobs. Message count: ' ||
7326: L_DEBUG_KEY,
7327: 'Errors from AHL_PRD_WORKORDER_PVT.Process_Jobs. Message count: ' ||
7328: l_msg_count || ', message data: ' || l_msg_data);
7329: END IF;
7330: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7331: RAISE FND_API.G_EXC_ERROR;
7332: ELSE
7333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7334: END IF;
7327: 'Errors from AHL_PRD_WORKORDER_PVT.Process_Jobs. Message count: ' ||
7328: l_msg_count || ', message data: ' || l_msg_data);
7329: END IF;
7330: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7331: RAISE FND_API.G_EXC_ERROR;
7332: ELSE
7333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7334: END IF;
7335: END IF;
7329: END IF;
7330: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7331: RAISE FND_API.G_EXC_ERROR;
7332: ELSE
7333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7334: END IF;
7335: END IF;
7336:
7337: -- Begin changes by rnahata for Bug 5758813
7357: x_return_status => l_return_status,
7358: x_msg_count => l_msg_count,
7359: x_msg_data => l_msg_data);
7360:
7361: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7362: x_msg_count := FND_MSG_PUB.count_msg;
7363: IF (l_log_statement >= l_log_current_level) THEN
7364: fnd_log.string(l_log_statement,
7365: L_DEBUG_KEY,
7364: fnd_log.string(l_log_statement,
7365: L_DEBUG_KEY,
7366: 'Errors from Update_Project_Task_Times. Message count: ' || x_msg_count);
7367: END IF;
7368: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7369: RAISE FND_API.G_EXC_ERROR;
7370: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7372: END IF;
7365: L_DEBUG_KEY,
7366: 'Errors from Update_Project_Task_Times. Message count: ' || x_msg_count);
7367: END IF;
7368: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7369: RAISE FND_API.G_EXC_ERROR;
7370: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7372: END IF;
7373: ELSE
7366: 'Errors from Update_Project_Task_Times. Message count: ' || x_msg_count);
7367: END IF;
7368: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7369: RAISE FND_API.G_EXC_ERROR;
7370: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7372: END IF;
7373: ELSE
7374: IF (l_log_statement >= l_log_current_level) THEN
7367: END IF;
7368: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7369: RAISE FND_API.G_EXC_ERROR;
7370: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7371: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7372: END IF;
7373: ELSE
7374: IF (l_log_statement >= l_log_current_level) THEN
7375: fnd_log.string(l_log_statement,
7413: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling AHL_RSV_RESERVATIONS_PVT.TRANSFER_RESERVATION - l_return_status : '||l_return_status);
7414: END IF;
7415:
7416: -- handle the exceptions, if any
7417: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7418: IF (l_log_statement >= l_log_current_level) THEN
7419: fnd_log.string(l_log_statement,
7420: L_DEBUG_KEY,
7421: ':Errors from AHL_RSV_RESERVATIONS_PVT.TRANSFER_RESERVATION API : ' || x_msg_count );
7419: fnd_log.string(l_log_statement,
7420: L_DEBUG_KEY,
7421: ':Errors from AHL_RSV_RESERVATIONS_PVT.TRANSFER_RESERVATION API : ' || x_msg_count );
7422: END IF;
7423: RAISE Fnd_Api.g_exc_error;
7424: END IF;
7425: --------------------------------- R12 changes For Serial Number Reservations End----------------------------------
7426:
7427: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063 :: Cancel stage and duplicate tasks and change stage WOs
7445: END IF;
7446:
7447: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
7448: (p_api_version => 1.0,
7449: p_init_msg_list => FND_API.G_FALSE,
7450: p_commit => FND_API.G_FALSE,
7451: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7452: p_default => FND_API.G_FALSE,
7453: p_module_type => NULL,
7446:
7447: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
7448: (p_api_version => 1.0,
7449: p_init_msg_list => FND_API.G_FALSE,
7450: p_commit => FND_API.G_FALSE,
7451: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7452: p_default => FND_API.G_FALSE,
7453: p_module_type => NULL,
7454: x_return_status => l_return_status,
7447: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
7448: (p_api_version => 1.0,
7449: p_init_msg_list => FND_API.G_FALSE,
7450: p_commit => FND_API.G_FALSE,
7451: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7452: p_default => FND_API.G_FALSE,
7453: p_module_type => NULL,
7454: x_return_status => l_return_status,
7455: x_msg_count => l_msg_count,
7448: (p_api_version => 1.0,
7449: p_init_msg_list => FND_API.G_FALSE,
7450: p_commit => FND_API.G_FALSE,
7451: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7452: p_default => FND_API.G_FALSE,
7453: p_module_type => NULL,
7454: x_return_status => l_return_status,
7455: x_msg_count => l_msg_count,
7456: x_msg_data => l_msg_data,
7461: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7462: fnd_log.string(fnd_log.level_statement,L_DEBUG_KEY,'After calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs - l_return_status : '||l_return_status);
7463: END IF;
7464:
7465: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7466: x_msg_count := l_msg_count;
7467: x_return_status := l_return_status;
7468: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
7469: RAISE Fnd_Api.g_exc_error;
7464:
7465: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7466: x_msg_count := l_msg_count;
7467: x_return_status := l_return_status;
7468: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
7469: RAISE Fnd_Api.g_exc_error;
7470: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
7471: RAISE Fnd_Api.g_exc_unexpected_error;
7472: END IF;
7465: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7466: x_msg_count := l_msg_count;
7467: x_return_status := l_return_status;
7468: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
7469: RAISE Fnd_Api.g_exc_error;
7470: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
7471: RAISE Fnd_Api.g_exc_unexpected_error;
7472: END IF;
7473: END IF;
7466: x_msg_count := l_msg_count;
7467: x_return_status := l_return_status;
7468: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
7469: RAISE Fnd_Api.g_exc_error;
7470: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
7471: RAISE Fnd_Api.g_exc_unexpected_error;
7472: END IF;
7473: END IF;
7474: END LOOP;
7467: x_return_status := l_return_status;
7468: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
7469: RAISE Fnd_Api.g_exc_error;
7470: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
7471: RAISE Fnd_Api.g_exc_unexpected_error;
7472: END IF;
7473: END IF;
7474: END LOOP;
7475:
7604: CLOSE c_get_vst_def_stage_task;
7605:
7606: AHL_LTP_REQST_MATRL_PVT.Delete_Default_Stage_Materials (
7607: p_api_version => 1.0 ,
7608: p_init_msg_list => FND_API.G_TRUE,
7609: p_commit => FND_API.G_FALSE,
7610: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7611: p_module_type => 'VST',
7612: p_visit_task_id => l_def_stage_task_id,
7605:
7606: AHL_LTP_REQST_MATRL_PVT.Delete_Default_Stage_Materials (
7607: p_api_version => 1.0 ,
7608: p_init_msg_list => FND_API.G_TRUE,
7609: p_commit => FND_API.G_FALSE,
7610: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7611: p_module_type => 'VST',
7612: p_visit_task_id => l_def_stage_task_id,
7613: x_return_status => l_return_status,
7606: AHL_LTP_REQST_MATRL_PVT.Delete_Default_Stage_Materials (
7607: p_api_version => 1.0 ,
7608: p_init_msg_list => FND_API.G_TRUE,
7609: p_commit => FND_API.G_FALSE,
7610: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
7611: p_module_type => 'VST',
7612: p_visit_task_id => l_def_stage_task_id,
7613: x_return_status => l_return_status,
7614: x_msg_count => l_msg_count,
7620: L_DEBUG_KEY,
7621: 'After calling AHL_LTP_REQST_MATRL_PVT.Delete_Default_Stage_Materials. and return status is:'||l_return_status);
7622: END IF;
7623: -- Check Error Message stack.
7624: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7625: x_msg_count := l_msg_count;
7626: x_return_status := l_return_status;
7627: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
7628: RAISE Fnd_Api.g_exc_error;
7623: -- Check Error Message stack.
7624: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7625: x_msg_count := l_msg_count;
7626: x_return_status := l_return_status;
7627: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
7628: RAISE Fnd_Api.g_exc_error;
7629: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
7630: RAISE Fnd_Api.g_exc_unexpected_error;
7631: END IF;
7624: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7625: x_msg_count := l_msg_count;
7626: x_return_status := l_return_status;
7627: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
7628: RAISE Fnd_Api.g_exc_error;
7629: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
7630: RAISE Fnd_Api.g_exc_unexpected_error;
7631: END IF;
7632: END IF;
7625: x_msg_count := l_msg_count;
7626: x_return_status := l_return_status;
7627: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
7628: RAISE Fnd_Api.g_exc_error;
7629: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
7630: RAISE Fnd_Api.g_exc_unexpected_error;
7631: END IF;
7632: END IF;
7633: END IF;
7626: x_return_status := l_return_status;
7627: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
7628: RAISE Fnd_Api.g_exc_error;
7629: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
7630: RAISE Fnd_Api.g_exc_unexpected_error;
7631: END IF;
7632: END IF;
7633: END IF;
7634: END IF;
7638: ---------------------------End of Body-------------------------------------
7639: -- END of API body.
7640: -- Standard check of p_commit.
7641:
7642: IF Fnd_Api.To_Boolean (p_commit) THEN
7643: COMMIT WORK;
7644: END IF;
7645:
7646: Fnd_Msg_Pub.count_and_get(
7643: COMMIT WORK;
7644: END IF;
7645:
7646: Fnd_Msg_Pub.count_and_get(
7647: p_encoded => Fnd_Api.g_false,
7648: p_count => x_msg_count,
7649: p_data => x_msg_data
7650: );
7651:
7655: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
7656: END IF;
7657:
7658: EXCEPTION
7659: WHEN Fnd_Api.g_exc_error THEN
7660: ROLLBACK TO Push_to_Production;
7661: x_return_status := Fnd_Api.g_ret_sts_error;
7662: Fnd_Msg_Pub.count_and_get (
7663: p_encoded => Fnd_Api.g_false,
7657:
7658: EXCEPTION
7659: WHEN Fnd_Api.g_exc_error THEN
7660: ROLLBACK TO Push_to_Production;
7661: x_return_status := Fnd_Api.g_ret_sts_error;
7662: Fnd_Msg_Pub.count_and_get (
7663: p_encoded => Fnd_Api.g_false,
7664: p_count => x_msg_count,
7665: p_data => x_msg_data
7659: WHEN Fnd_Api.g_exc_error THEN
7660: ROLLBACK TO Push_to_Production;
7661: x_return_status := Fnd_Api.g_ret_sts_error;
7662: Fnd_Msg_Pub.count_and_get (
7663: p_encoded => Fnd_Api.g_false,
7664: p_count => x_msg_count,
7665: p_data => x_msg_data
7666: );
7667: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7663: p_encoded => Fnd_Api.g_false,
7664: p_count => x_msg_count,
7665: p_data => x_msg_data
7666: );
7667: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7668: ROLLBACK TO Push_to_Production;
7669: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7670: Fnd_Msg_Pub.count_and_get (
7671: p_encoded => Fnd_Api.g_false,
7665: p_data => x_msg_data
7666: );
7667: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7668: ROLLBACK TO Push_to_Production;
7669: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7670: Fnd_Msg_Pub.count_and_get (
7671: p_encoded => Fnd_Api.g_false,
7672: p_count => x_msg_count,
7673: p_data => x_msg_data
7667: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7668: ROLLBACK TO Push_to_Production;
7669: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7670: Fnd_Msg_Pub.count_and_get (
7671: p_encoded => Fnd_Api.g_false,
7672: p_count => x_msg_count,
7673: p_data => x_msg_data
7674: );
7675: WHEN OTHERS THEN
7673: p_data => x_msg_data
7674: );
7675: WHEN OTHERS THEN
7676: ROLLBACK TO Push_to_Production;
7677: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7678: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7679: THEN
7680: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7681: END IF;
7679: THEN
7680: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7681: END IF;
7682: Fnd_Msg_Pub.count_and_get (
7683: p_encoded => Fnd_Api.g_false,
7684: p_count => x_msg_count,
7685: p_data => x_msg_data
7686: );
7687: END Push_to_Production;
7698: -- Parameters :
7699: --
7700: -- Standard IN Parameters :
7701: -- p_api_version IN NUMBER Required
7702: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
7703: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
7704: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
7705: --
7706: -- Standard OUT Parameters :
7699: --
7700: -- Standard IN Parameters :
7701: -- p_api_version IN NUMBER Required
7702: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
7703: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
7704: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
7705: --
7706: -- Standard OUT Parameters :
7707: -- x_return_status OUT VARCHAR2 Required
7700: -- Standard IN Parameters :
7701: -- p_api_version IN NUMBER Required
7702: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
7703: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
7704: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
7705: --
7706: -- Standard OUT Parameters :
7707: -- x_return_status OUT VARCHAR2 Required
7708: -- x_msg_count OUT NUMBER Required
7715: -- 09/09/2003 SSURAPAN Initial Creation
7716: -------------------------------------------------------------------
7717: PROCEDURE Release_Visit (
7718: p_api_version IN NUMBER,
7719: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
7720: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
7721: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
7722: p_module_type IN VARCHAR2 := NULL,
7723: p_visit_id IN NUMBER,
7716: -------------------------------------------------------------------
7717: PROCEDURE Release_Visit (
7718: p_api_version IN NUMBER,
7719: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
7720: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
7721: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
7722: p_module_type IN VARCHAR2 := NULL,
7723: p_visit_id IN NUMBER,
7724: p_release_flag IN VARCHAR2 := 'N', -- By shbhanda 05/21/04 fro TC changes
7717: PROCEDURE Release_Visit (
7718: p_api_version IN NUMBER,
7719: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
7720: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
7721: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
7722: p_module_type IN VARCHAR2 := NULL,
7723: p_visit_id IN NUMBER,
7724: p_release_flag IN VARCHAR2 := 'N', -- By shbhanda 05/21/04 fro TC changes
7725: p_orig_visit_id IN NUMBER := NULL, -- By yazhou 08/06/04 for TC changes
7817:
7818:
7819:
7820: -- Initialize message list if p_init_msg_list is set to TRUE
7821: IF FND_API.To_Boolean(p_init_msg_list) THEN
7822: FND_MSG_PUB.Initialize;
7823: END IF;
7824:
7825: -- Initialize message list if p_init_msg_list is set to TRUE
7822: FND_MSG_PUB.Initialize;
7823: END IF;
7824:
7825: -- Initialize message list if p_init_msg_list is set to TRUE
7826: IF FND_API.To_Boolean(p_init_msg_list) THEN
7827: FND_MSG_PUB.Initialize;
7828: END IF;
7829: -- Initialize API return status to success
7830: x_return_status := FND_API.G_RET_STS_SUCCESS;
7826: IF FND_API.To_Boolean(p_init_msg_list) THEN
7827: FND_MSG_PUB.Initialize;
7828: END IF;
7829: -- Initialize API return status to success
7830: x_return_status := FND_API.G_RET_STS_SUCCESS;
7831:
7832: -- Standard call to check for call compatibility.
7833: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
7834: p_api_version,
7829: -- Initialize API return status to success
7830: x_return_status := FND_API.G_RET_STS_SUCCESS;
7831:
7832: -- Standard call to check for call compatibility.
7833: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
7834: p_api_version,
7835: l_api_name,G_PKG_NAME) THEN
7836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7837: END IF;
7832: -- Standard call to check for call compatibility.
7833: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
7834: p_api_version,
7835: l_api_name,G_PKG_NAME) THEN
7836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7837: END IF;
7838:
7839: --
7840:
7842: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Visit ID : '||p_visit_id);
7843: END IF;
7844:
7845: -- Check for Required Parameters
7846: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN
7847: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_CST_INPUT_MISS');
7848: FND_MSG_PUB.ADD;
7849: IF (l_log_unexpected >= l_log_current_level)THEN
7850: fnd_log.string
7853: 'ahl.plsql.AHL_VWP_CST_WO_PVT.Release_Visit',
7854: 'Visit id is mandatory but found null in input '
7855: );
7856: END IF;
7857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7858: END IF;
7859:
7860: -- SKPATHAK :: Bug 9971127 :: 13-AUG-2010
7861: -- Added this cursor to validate if any of the children UEs for a given visit is in EXCEPTION status
7866: CLOSE c_validate_ue_status;
7867: Fnd_Message.SET_NAME('AHL','AHL_VWP_UE_EXP_STATUS');
7868: Fnd_Message.Set_Token('MR_TITLE',l_mr_title);
7869: Fnd_Msg_Pub.ADD;
7870: RAISE Fnd_Api.G_EXC_ERROR;
7871: END IF;
7872: CLOSE c_validate_ue_status;
7873:
7874: --TCHIMIRA::P2P CP ER 9151144::09-DEC-2009::BEGIN
7879: FETCH c_conc_req_phase INTO l_dummy_val;
7880: IF(c_conc_req_phase%FOUND) THEN
7881: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_CP_P2P_IN_PROGS');
7882: FND_MSG_PUB.ADD;
7883: RAISE FND_API.G_EXC_ERROR;
7884: END IF;
7885: CLOSE c_conc_req_phase;
7886: --salogan::Modified the cursor fetch to handle both request id from P2P and Cost Estimation CP ER 9299910::01-JUN-2009::END
7887: END IF;
7915:
7916: END LOOP;
7917:
7918: IF(l_invalid_stage=TRUE) THEN
7919: RAISE FND_API.G_EXC_ERROR;
7920: END IF;
7921: END IF;
7922:
7923: --CHANGES by jrotich bug #13028686 END
7949: -- RROY
7950: IF l_error_tbl_type.COUNT > 0 THEN
7951: l_return_status := l_validate_error;
7952: x_return_status := l_validate_error;
7953: ELSIF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7954: -- Check Error Message stack.
7955: x_msg_count := FND_MSG_PUB.count_msg;
7956:
7957: IF (l_log_statement >= l_log_current_level)THEN
7958: fnd_log.string ( l_log_statement, L_DEBUG_KEY,'Errors from Validate Before Production - '||x_msg_count);
7959: END IF;
7960: -- TCHIMIRA :: Bug 8594339 :: 19-NOV-2009
7961: CLOSE c_visit;
7962: RAISE Fnd_Api.g_exc_error;
7963: ELSE
7964: IF (l_log_statement >= l_log_current_level)THEN
7965: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'Before Calling aggregate_material_requirements');
7966: END IF;
7983: IF (l_log_statement >= l_log_current_level)THEN
7984: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'After Calling aggregate_material_requirements - l_return_status = '||l_return_status);
7985: END IF;
7986:
7987: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7988: x_msg_count := FND_MSG_PUB.count_msg;
7989: IF (l_log_statement >= l_log_current_level)THEN
7990: fnd_log.string( l_log_statement,L_DEBUG_KEY,'Errors from aggregate_material_requirements: ' || x_msg_count);
7991: END IF;
7990: fnd_log.string( l_log_statement,L_DEBUG_KEY,'Errors from aggregate_material_requirements: ' || x_msg_count);
7991: END IF;
7992: -- TCHIMIRA :: Bug 8594339 :: 19-NOV-2009
7993: CLOSE c_visit;
7994: RAISE Fnd_Api.g_exc_error;
7995: END IF;
7996:
7997: --salogan added the following code for supplier warranty starts
7998: Get_Entl_rec_for_Delete(
8023: l_return_status);
8024: END IF;
8025:
8026: l_msg_count := Fnd_Msg_Pub.count_msg;
8027: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
8028: x_msg_count := l_msg_count;
8029: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
8030: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
8031: END IF;
8025:
8026: l_msg_count := Fnd_Msg_Pub.count_msg;
8027: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
8028: x_msg_count := l_msg_count;
8029: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
8030: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
8031: END IF;
8032: -- salogan added for supplier warranty ends
8033:
8026: l_msg_count := Fnd_Msg_Pub.count_msg;
8027: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
8028: x_msg_count := l_msg_count;
8029: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
8030: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
8031: END IF;
8032: -- salogan added for supplier warranty ends
8033:
8034: IF (l_log_statement >= l_log_current_level)THEN
8052: IF (l_log_statement >= l_log_current_level)THEN
8053: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'After calling Push_to_Production - l_return_status = '||l_return_status);
8054: END IF;
8055:
8056: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8057: -- Check Error Message stack.
8058: x_msg_count := FND_MSG_PUB.count_msg;
8059: IF (l_log_statement >= l_log_current_level)THEN
8060: fnd_log.string( l_log_statement,L_DEBUG_KEY, 'Errors from Push to Production: ' || x_msg_count );
8060: fnd_log.string( l_log_statement,L_DEBUG_KEY, 'Errors from Push to Production: ' || x_msg_count );
8061: END IF;
8062: -- TCHIMIRA :: Bug 8594339 :: 19-NOV-2009
8063: CLOSE c_visit;
8064: RAISE Fnd_Api.g_exc_error;
8065: END IF;
8066:
8067: IF (l_log_statement >= l_log_current_level)THEN
8068: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'Before calling AHL_LTP_SIMUL_PLAN_PVT.delete_simul_visits');
8084: IF (l_log_statement >= l_log_current_level)THEN
8085: fnd_log.string(l_log_statement,L_DEBUG_KEY, 'After calling AHL_LTP_SIMUL_PLAN_PVT.delete_simul_visits - l_return_status : '||l_return_status);
8086: END IF;
8087:
8088: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8089: -- Check Error Message stack.
8090: x_msg_count := FND_MSG_PUB.count_msg;
8091: IF (l_log_statement >= l_log_current_level)THEN
8092: fnd_log.string( l_log_statement,L_DEBUG_KEY,'Errors from delete_simul_visits: '||x_msg_count);
8092: fnd_log.string( l_log_statement,L_DEBUG_KEY,'Errors from delete_simul_visits: '||x_msg_count);
8093: END IF;
8094: -- TCHIMIRA :: Bug 8594339 :: 19-NOV-2009
8095: CLOSE c_visit;
8096: RAISE Fnd_Api.g_exc_error;
8097: END IF;*/
8098: END IF;
8099: -- Post 11.5.10
8100: -- RROY
8101: -- TCHIMIRA :: Bug 8594339 :: 19-NOV-2009
8102: CLOSE c_visit;
8103:
8104: -- Standard check of p_commit
8105: IF FND_API.TO_BOOLEAN(p_commit) THEN
8106: COMMIT WORK;
8107: END IF;
8108:
8109: IF (l_log_procedure >= l_log_current_level)THEN
8110: fnd_log.string ( l_log_procedure,L_DEBUG_KEY ||'.end','At the end of PLSQL procedure');
8111: END IF;
8112:
8113: EXCEPTION
8114: WHEN FND_API.G_EXC_ERROR THEN
8115: x_return_status := FND_API.G_RET_STS_ERROR;
8116: ROLLBACK TO Release_Visit_Pvt;
8117: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
8118: p_data => x_msg_data,
8111: END IF;
8112:
8113: EXCEPTION
8114: WHEN FND_API.G_EXC_ERROR THEN
8115: x_return_status := FND_API.G_RET_STS_ERROR;
8116: ROLLBACK TO Release_Visit_Pvt;
8117: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
8118: p_data => x_msg_data,
8119: p_encoded => fnd_api.g_false);
8115: x_return_status := FND_API.G_RET_STS_ERROR;
8116: ROLLBACK TO Release_Visit_Pvt;
8117: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
8118: p_data => x_msg_data,
8119: p_encoded => fnd_api.g_false);
8120:
8121:
8122: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8118: p_data => x_msg_data,
8119: p_encoded => fnd_api.g_false);
8120:
8121:
8122: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8124: ROLLBACK TO Release_Visit_Pvt;
8125: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
8126: p_data => x_msg_data,
8119: p_encoded => fnd_api.g_false);
8120:
8121:
8122: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8124: ROLLBACK TO Release_Visit_Pvt;
8125: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
8126: p_data => x_msg_data,
8127: p_encoded => fnd_api.g_false);
8123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8124: ROLLBACK TO Release_Visit_Pvt;
8125: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
8126: p_data => x_msg_data,
8127: p_encoded => fnd_api.g_false);
8128:
8129:
8130: WHEN OTHERS THEN
8131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8127: p_encoded => fnd_api.g_false);
8128:
8129:
8130: WHEN OTHERS THEN
8131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8132: ROLLBACK TO Release_Visit_Pvt;
8133: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8134: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
8135: p_procedure_name => 'Release_Visit',
8136: p_error_text => SUBSTR(SQLERRM,1,500));
8137: END IF;
8138: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
8139: p_data => x_msg_data,
8140: p_encoded => fnd_api.g_false);
8141:
8142: END Release_Visit;
8143:
8144: -------------------------------------------------------------------
8148: -- Parameters :
8149: --
8150: -- Standard IN Parameters :
8151: -- p_api_version IN NUMBER Required
8152: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
8153: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
8154: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
8155: --
8156: -- Standard OUT Parameters :
8149: --
8150: -- Standard IN Parameters :
8151: -- p_api_version IN NUMBER Required
8152: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
8153: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
8154: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
8155: --
8156: -- Standard OUT Parameters :
8157: -- x_return_status OUT VARCHAR2 Required
8150: -- Standard IN Parameters :
8151: -- p_api_version IN NUMBER Required
8152: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
8153: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
8154: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
8155: --
8156: -- Standard OUT Parameters :
8157: -- x_return_status OUT VARCHAR2 Required
8158: -- x_msg_count OUT NUMBER Required
8167: -- 30 November, 2007 RNAHATA Initial Version - 1.0
8168: -------------------------------------------------------------------
8169: PROCEDURE Release_Tasks(
8170: p_api_version IN NUMBER,
8171: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
8172: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
8173: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
8174: p_module_type IN VARCHAR2 := Null,
8175: p_visit_id IN NUMBER,
8168: -------------------------------------------------------------------
8169: PROCEDURE Release_Tasks(
8170: p_api_version IN NUMBER,
8171: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
8172: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
8173: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
8174: p_module_type IN VARCHAR2 := Null,
8175: p_visit_id IN NUMBER,
8176: p_tasks_tbl IN Task_Tbl_Type,
8169: PROCEDURE Release_Tasks(
8170: p_api_version IN NUMBER,
8171: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
8172: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
8173: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
8174: p_module_type IN VARCHAR2 := Null,
8175: p_visit_id IN NUMBER,
8176: p_tasks_tbl IN Task_Tbl_Type,
8177: p_release_flag IN VARCHAR2 := 'N',
8223: -- Standard start of API savepoint
8224: SAVEPOINT Release_Tasks_Pvt;
8225:
8226: -- Initialize message list if p_init_msg_list is set to TRUE
8227: IF FND_API.To_Boolean(p_init_msg_list) THEN
8228: FND_MSG_PUB.Initialize;
8229: END IF;
8230:
8231: -- Initialize API return status to success
8228: FND_MSG_PUB.Initialize;
8229: END IF;
8230:
8231: -- Initialize API return status to success
8232: x_return_status := FND_API.G_RET_STS_SUCCESS;
8233:
8234: -- Standard call to check for call compatibility.
8235: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
8236: p_api_version,
8231: -- Initialize API return status to success
8232: x_return_status := FND_API.G_RET_STS_SUCCESS;
8233:
8234: -- Standard call to check for call compatibility.
8235: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
8236: p_api_version,
8237: l_api_name,G_PKG_NAME)
8238: THEN
8239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8235: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
8236: p_api_version,
8237: l_api_name,G_PKG_NAME)
8238: THEN
8239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8240: END IF;
8241:
8242: --Check for required parameters
8243: IF (p_visit_id IS NOT NULL) THEN
8252: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_INVALID_VST');
8253: FND_MESSAGE.SET_TOKEN('VISIT_ID', p_visit_id);
8254: FND_MSG_PUB.ADD;
8255: END IF;
8256: RAISE FND_API.G_EXC_ERROR;
8257: END IF;
8258:
8259: --Check if the visit is in planning or partially released status
8260: OPEN c_visit_info(p_visit_id);
8264: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_VST_STATUS_INVALID');
8265: FND_MSG_PUB.ADD;
8266: END IF;
8267: CLOSE c_visit_info;
8268: RAISE FND_API.G_EXC_ERROR;
8269: END IF;
8270: CLOSE c_visit_info;
8271: --If visit_id is null
8272: ELSE
8273: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8274: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_VISIT_NULL');
8275: FND_MSG_PUB.ADD;
8276: END IF;
8277: RAISE FND_API.G_EXC_ERROR;
8278: END IF;
8279:
8280: --No tasks selected
8281: IF (p_tasks_tbl.COUNT = 0) THEN
8282: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8283: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_NO_TASK_SEL');
8284: FND_MSG_PUB.ADD;
8285: END IF;
8286: RAISE FND_API.G_EXC_ERROR;
8287: END IF;
8288:
8289: IF (l_log_statement >= l_log_current_level) THEN
8290: fnd_log.string(l_log_statement,
8311: 'After calling VALIDATE_BEFORE_PRODUCTION, Return Status = ' ||
8312: l_return_status);
8313: END IF;
8314:
8315: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS OR l_error_tbl_type.COUNT > 0) THEN
8316: -- Check Error Message stack.
8317: x_msg_count := FND_MSG_PUB.count_msg;
8318: IF (l_log_statement >= l_log_current_level) THEN
8319: fnd_log.string(l_log_statement,
8319: fnd_log.string(l_log_statement,
8320: L_DEBUG_KEY,
8321: 'Errors from VALIDATE_BEFORE_PRODUCTION. Message count: ' || x_msg_count);
8322: END IF;
8323: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8324: RAISE FND_API.G_EXC_ERROR;
8325: ELSE
8326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8327: END IF;
8320: L_DEBUG_KEY,
8321: 'Errors from VALIDATE_BEFORE_PRODUCTION. Message count: ' || x_msg_count);
8322: END IF;
8323: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8324: RAISE FND_API.G_EXC_ERROR;
8325: ELSE
8326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8327: END IF;
8328: END IF;
8322: END IF;
8323: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8324: RAISE FND_API.G_EXC_ERROR;
8325: ELSE
8326: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8327: END IF;
8328: END IF;
8329:
8330: IF (l_log_statement >= l_log_current_level) THEN
8348: 'After calling VALIDATE_TASKS_BEF_PRODUCTION. Records in l_tasks_tbl: ' ||
8349: l_tasks_tbl.COUNT|| ', Return Status = ' || l_return_status);
8350: END IF;
8351:
8352: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8353: -- Check Error Message stack.
8354: x_msg_count := FND_MSG_PUB.count_msg;
8355:
8356: IF (l_log_statement >= l_log_current_level) THEN
8358: L_DEBUG_KEY,
8359: 'Errors from VALIDATE_TASKS_BEF_PRODUCTION. Message count: ' || x_msg_count);
8360: END IF;
8361:
8362: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8363: RAISE FND_API.G_EXC_ERROR;
8364: ELSE
8365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8366: END IF;
8359: 'Errors from VALIDATE_TASKS_BEF_PRODUCTION. Message count: ' || x_msg_count);
8360: END IF;
8361:
8362: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8363: RAISE FND_API.G_EXC_ERROR;
8364: ELSE
8365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8366: END IF;
8367: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
8361:
8362: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8363: RAISE FND_API.G_EXC_ERROR;
8364: ELSE
8365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8366: END IF;
8367: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
8368:
8369: -- SKPATHAK :: ER:12730539 :: 01-AUG-2011 :: START :: Validate Return to Supply Flags of only the released tasks
8363: RAISE FND_API.G_EXC_ERROR;
8364: ELSE
8365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8366: END IF;
8367: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
8368:
8369: -- SKPATHAK :: ER:12730539 :: 01-AUG-2011 :: START :: Validate Return to Supply Flags of only the released tasks
8370: -- SKPATHAK:: Moved this API call from after AHL_PRD_WORKORDER_PVT.Process_Jobs call to before AHL_PRD_WORKORDER_PVT.Process_Jobs call
8371: FOR i IN l_tasks_tbl.FIRST..l_tasks_tbl.LAST LOOP
8381: IF (p_visit_id IS NOT NULL) THEN
8382: AHL_VWP_RULES_PVT.Validate_Return_To_Supply
8383: (
8384: p_api_version => 1.0,
8385: p_init_msg_list => FND_API.G_FALSE,
8386: p_commit => FND_API.G_FALSE,
8387: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8388: p_module_type => null,
8389: p_visit_id => null,
8382: AHL_VWP_RULES_PVT.Validate_Return_To_Supply
8383: (
8384: p_api_version => 1.0,
8385: p_init_msg_list => FND_API.G_FALSE,
8386: p_commit => FND_API.G_FALSE,
8387: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8388: p_module_type => null,
8389: p_visit_id => null,
8390: p_tasks_tbl => l_val_task_tbl,
8383: (
8384: p_api_version => 1.0,
8385: p_init_msg_list => FND_API.G_FALSE,
8386: p_commit => FND_API.G_FALSE,
8387: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
8388: p_module_type => null,
8389: p_visit_id => null,
8390: p_tasks_tbl => l_val_task_tbl,
8391: x_return_status => l_return_status,
8398: L_DEBUG_KEY,
8399: 'After Calling AHL_VWP_RULES_PVT.Validate_Return_To_Supply. Return Status = ' || l_return_status );
8400: END IF;
8401:
8402: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
8403: x_msg_count := l_msg_count;
8404: x_return_status := l_return_status;
8405: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
8406: RAISE Fnd_Api.g_exc_error;
8401:
8402: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
8403: x_msg_count := l_msg_count;
8404: x_return_status := l_return_status;
8405: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
8406: RAISE Fnd_Api.g_exc_error;
8407: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
8408: RAISE Fnd_Api.g_exc_unexpected_error;
8409: END IF;
8402: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
8403: x_msg_count := l_msg_count;
8404: x_return_status := l_return_status;
8405: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
8406: RAISE Fnd_Api.g_exc_error;
8407: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
8408: RAISE Fnd_Api.g_exc_unexpected_error;
8409: END IF;
8410: END IF;
8403: x_msg_count := l_msg_count;
8404: x_return_status := l_return_status;
8405: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
8406: RAISE Fnd_Api.g_exc_error;
8407: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
8408: RAISE Fnd_Api.g_exc_unexpected_error;
8409: END IF;
8410: END IF;
8411: END IF;
8404: x_return_status := l_return_status;
8405: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
8406: RAISE Fnd_Api.g_exc_error;
8407: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
8408: RAISE Fnd_Api.g_exc_unexpected_error;
8409: END IF;
8410: END IF;
8411: END IF;
8412: -- SKPATHAK :: ER:12730539 :: 01-AUG-2011 :: END
8439: 'After calling AGGREGATE_TASK_MATERIAL_REQRS for Task Id: ' ||
8440: l_tasks_tbl(i).visit_task_id || '. Return Status = '|| l_return_status);
8441: END IF;
8442:
8443: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8444: x_msg_count := FND_MSG_PUB.count_msg;
8445: IF (l_log_statement >= l_log_current_level) THEN
8446: fnd_log.string(l_log_statement,
8447: L_DEBUG_KEY,
8446: fnd_log.string(l_log_statement,
8447: L_DEBUG_KEY,
8448: 'Errors from AGGREGATE_TASK_MATERIAL_REQRS. Message count: ' || x_msg_count);
8449: END IF;
8450: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8451: RAISE FND_API.G_EXC_ERROR;
8452: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8454: END IF;
8447: L_DEBUG_KEY,
8448: 'Errors from AGGREGATE_TASK_MATERIAL_REQRS. Message count: ' || x_msg_count);
8449: END IF;
8450: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8451: RAISE FND_API.G_EXC_ERROR;
8452: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8454: END IF;
8455: END IF;
8448: 'Errors from AGGREGATE_TASK_MATERIAL_REQRS. Message count: ' || x_msg_count);
8449: END IF;
8450: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8451: RAISE FND_API.G_EXC_ERROR;
8452: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8454: END IF;
8455: END IF;
8456: END LOOP;
8449: END IF;
8450: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8451: RAISE FND_API.G_EXC_ERROR;
8452: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8454: END IF;
8455: END IF;
8456: END LOOP;
8457:
8474: p_init_msg_list => p_init_msg_list,
8475: p_commit => 'F',
8476: p_validation_level => p_validation_level,
8477: p_task_id => l_tasks_tbl(i).visit_task_id,
8478: p_reset_sysdate_flag => FND_API.G_TRUE,
8479: x_return_status => l_return_status,
8480: x_msg_count => l_msg_count,
8481: x_msg_data => l_msg_data
8482: );
8488: 'After calling ADJUST_TASK_TIMES for task Id ' ||
8489: l_tasks_tbl(i).visit_task_id ||'. Return Status = '|| l_return_status);
8490: END IF;
8491:
8492: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8493: x_msg_count := FND_MSG_PUB.count_msg;
8494: IF (l_log_statement >= l_log_current_level) THEN
8495: fnd_log.string(l_log_statement,
8496: L_DEBUG_KEY,
8495: fnd_log.string(l_log_statement,
8496: L_DEBUG_KEY,
8497: 'Errors from ADJUST_TASK_TIMES. Message count: ' || x_msg_count);
8498: END IF;
8499: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8500: RAISE FND_API.G_EXC_ERROR;
8501: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8503: END IF;
8496: L_DEBUG_KEY,
8497: 'Errors from ADJUST_TASK_TIMES. Message count: ' || x_msg_count);
8498: END IF;
8499: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8500: RAISE FND_API.G_EXC_ERROR;
8501: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8503: END IF;
8504: END IF;
8497: 'Errors from ADJUST_TASK_TIMES. Message count: ' || x_msg_count);
8498: END IF;
8499: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8500: RAISE FND_API.G_EXC_ERROR;
8501: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8503: END IF;
8504: END IF;
8505: END LOOP;
8498: END IF;
8499: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8500: RAISE FND_API.G_EXC_ERROR;
8501: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8503: END IF;
8504: END IF;
8505: END LOOP;
8506: END IF; --partially released
8542: IF (l_log_statement >= l_log_current_level) THEN
8543: fnd_log.string(l_log_statement,L_DEBUG_KEY,
8544: 'Errors from VALIDATE_MR_ROUTE_DATE. Message count: ' || l_msg_count);
8545: END IF;
8546: RAISE FND_API.G_EXC_ERROR;
8547: END IF;
8548:
8549: IF (l_log_statement >= l_log_current_level) THEN
8550: fnd_log.string(l_log_statement,
8571: L_DEBUG_KEY,
8572: 'After calling PUSH_TASKS_TO_PRODUCTION. Return Status = '|| l_return_status);
8573: END IF;
8574:
8575: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8576: x_msg_count := FND_MSG_PUB.count_msg;
8577: IF (l_log_statement >= l_log_current_level) THEN
8578: fnd_log.string(l_log_statement,
8579: L_DEBUG_KEY,
8578: fnd_log.string(l_log_statement,
8579: L_DEBUG_KEY,
8580: 'Errors from PUSH_TASKS_TO_PRODUCTION. Message count: ' || x_msg_count);
8581: END IF;
8582: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8583: RAISE FND_API.G_EXC_ERROR;
8584: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8586: END IF;
8579: L_DEBUG_KEY,
8580: 'Errors from PUSH_TASKS_TO_PRODUCTION. Message count: ' || x_msg_count);
8581: END IF;
8582: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8583: RAISE FND_API.G_EXC_ERROR;
8584: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8586: END IF;
8587: END IF;
8580: 'Errors from PUSH_TASKS_TO_PRODUCTION. Message count: ' || x_msg_count);
8581: END IF;
8582: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8583: RAISE FND_API.G_EXC_ERROR;
8584: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8586: END IF;
8587: END IF;
8588:
8581: END IF;
8582: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8583: RAISE FND_API.G_EXC_ERROR;
8584: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8586: END IF;
8587: END IF;
8588:
8589: IF (l_log_statement >= l_log_current_level) THEN
8610: L_DEBUG_KEY,
8611: 'After calling DELETE_SIMUL_VISITS for visit id ' ||p_visit_id||'. Return Status = '|| l_return_status);
8612: END IF;
8613:
8614: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
8615: x_msg_count := FND_MSG_PUB.count_msg;
8616: IF (l_log_statement >= l_log_current_level) THEN
8617: fnd_log.string(l_log_statement,
8618: L_DEBUG_KEY,
8617: fnd_log.string(l_log_statement,
8618: L_DEBUG_KEY,
8619: 'Errors from DELETE_SIMUL_TASKS. Message count: ' || x_msg_count);
8620: END IF;
8621: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8622: RAISE FND_API.G_EXC_ERROR;
8623: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8625: END IF;
8618: L_DEBUG_KEY,
8619: 'Errors from DELETE_SIMUL_TASKS. Message count: ' || x_msg_count);
8620: END IF;
8621: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8622: RAISE FND_API.G_EXC_ERROR;
8623: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8625: END IF;
8626: END IF;*/
8619: 'Errors from DELETE_SIMUL_TASKS. Message count: ' || x_msg_count);
8620: END IF;
8621: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8622: RAISE FND_API.G_EXC_ERROR;
8623: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8625: END IF;
8626: END IF;*/
8627:
8620: END IF;
8621: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8622: RAISE FND_API.G_EXC_ERROR;
8623: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8625: END IF;
8626: END IF;*/
8627:
8628: -- Standard check of p_commit
8625: END IF;
8626: END IF;*/
8627:
8628: -- Standard check of p_commit
8629: IF FND_API.TO_BOOLEAN(p_commit) THEN
8630: COMMIT WORK;
8631: END IF;
8632:
8633: Fnd_Msg_Pub.count_and_get(
8630: COMMIT WORK;
8631: END IF;
8632:
8633: Fnd_Msg_Pub.count_and_get(
8634: p_encoded => Fnd_Api.g_false,
8635: p_count => x_msg_count,
8636: p_data => x_msg_data
8637: );
8638:
8642: 'At the end of PLSQL procedure. Return Status = ' || x_return_status);
8643: END IF;
8644:
8645: EXCEPTION
8646: WHEN FND_API.G_EXC_ERROR THEN
8647: x_return_status := FND_API.G_RET_STS_ERROR;
8648: ROLLBACK TO Release_Tasks_Pvt;
8649: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
8650: p_data => x_msg_data,
8643: END IF;
8644:
8645: EXCEPTION
8646: WHEN FND_API.G_EXC_ERROR THEN
8647: x_return_status := FND_API.G_RET_STS_ERROR;
8648: ROLLBACK TO Release_Tasks_Pvt;
8649: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
8650: p_data => x_msg_data,
8651: p_encoded => fnd_api.g_false);
8647: x_return_status := FND_API.G_RET_STS_ERROR;
8648: ROLLBACK TO Release_Tasks_Pvt;
8649: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
8650: p_data => x_msg_data,
8651: p_encoded => fnd_api.g_false);
8652:
8653: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8654: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8655: ROLLBACK TO Release_Tasks_Pvt;
8649: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
8650: p_data => x_msg_data,
8651: p_encoded => fnd_api.g_false);
8652:
8653: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8654: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8655: ROLLBACK TO Release_Tasks_Pvt;
8656: Fnd_Msg_Pub.count_and_get (
8657: p_encoded => Fnd_Api.g_false,
8650: p_data => x_msg_data,
8651: p_encoded => fnd_api.g_false);
8652:
8653: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8654: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8655: ROLLBACK TO Release_Tasks_Pvt;
8656: Fnd_Msg_Pub.count_and_get (
8657: p_encoded => Fnd_Api.g_false,
8658: p_count => x_msg_count,
8653: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8654: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8655: ROLLBACK TO Release_Tasks_Pvt;
8656: Fnd_Msg_Pub.count_and_get (
8657: p_encoded => Fnd_Api.g_false,
8658: p_count => x_msg_count,
8659: p_data => x_msg_data);
8660:
8661: WHEN OTHERS THEN
8658: p_count => x_msg_count,
8659: p_data => x_msg_data);
8660:
8661: WHEN OTHERS THEN
8662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8663: ROLLBACK TO Release_Tasks_Pvt;
8664: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
8665: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
8666: p_procedure_name => 'Release_Tasks',
8667: p_error_text => SUBSTR(SQLERRM,1,500));
8668: END IF;
8669: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
8670: p_data => x_msg_data,
8671: p_encoded => fnd_api.g_false);
8672:
8673: END Release_Tasks;
8674:
8675: ------------------------------------------------------------------
8834: -- Standard start of API savepoint
8835: SAVEPOINT Validate_tasks_bef_prodn_pvt;
8836:
8837: -- Initialize API return status to success
8838: x_return_status := FND_API.G_RET_STS_SUCCESS;
8839:
8840: --chk if the visit is released/partially released.
8841: OPEN c_fet_master_wo (p_visit_id);
8842: FETCH c_fet_master_wo INTO c_mst_wo_visit_rec;
8865: CLOSE c_task_dtls;
8866: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_INVALID_TSK_ID');
8867: Fnd_Message.SET_TOKEN('TASK_ID', p_tasks_tbl(i).visit_task_id);
8868: FND_MSG_PUB.ADD;
8869: RAISE FND_API.G_EXC_ERROR;
8870: END IF;
8871: CLOSE c_task_dtls;
8872:
8873:
8886: END IF;
8887: FND_MESSAGE.SET_NAME('AHL', 'AHL_VWP_NO_STAGE_TYPE');
8888: FND_MESSAGE.SET_TOKEN('STAGE_NAME',l_task_stage_details.stage_name);
8889: FND_MSG_PUB.ADD;
8890: RAISE FND_API.G_EXC_ERROR;
8891: END IF;
8892: --CHANGES by jrotich bug #13028686 begin end;
8893:
8894:
8905: c_tsk_dtls_rec.visit_task_number);
8906: END IF;
8907: FND_MESSAGE.SET_NAME(G_PM_PRODUCT_CODE,'AHL_VWP_PET_EXCD_SCT');
8908: FND_MSG_PUB.ADD;
8909: RAISE FND_API.G_EXC_ERROR;
8910: END IF;
8911:
8912: parent_task_found_flag := FALSE;
8913: /*when the summary task is selected then all child tasks/child mr's for the summary tasks/MR will be pushed to prodn.
8982: END IF;
8983: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_SEL_SUM_TSK');
8984: Fnd_Message.SET_TOKEN('TASK_NUMBER', c_tsk_dtls_rec.visit_task_number);
8985: FND_MSG_PUB.ADD;
8986: RAISE FND_API.G_EXC_ERROR;
8987: END IF;
8988:
8989: lp_originating_task_id := c_summary_tsk_rec.originating_task_id;
8990:
9040: IF l_is_all_tasks_rel = 'N' AND p_tasks_tbl(i).unit_effectivity_id IS NOT NULL THEN
9041: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_CHILD_TASK_SEL');
9042: Fnd_Message.SET_TOKEN('TASK_NUMBER', c_par_rel_sum_tsk_rec.visit_task_number);
9043: FND_MSG_PUB.ADD;
9044: RAISE FND_API.G_EXC_ERROR;
9045: ELSE
9046: l_is_all_tasks_rel := 'N';
9047: END IF;
9048: END LOOP;
9113: CLOSE get_parent_task_dependencies;
9114: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_SEL_TECH_DEP');
9115: Fnd_Message.SET_TOKEN('TASK_NUMBER', x_tasks_tbl(i).visit_task_number);
9116: FND_MSG_PUB.ADD;
9117: RAISE FND_API.G_EXC_ERROR;
9118: END IF; --parent task not selected
9119: END IF;
9120: END LOOP; --loop through the parent dependent records
9121: CLOSE get_parent_task_dependencies;
9151: CLOSE get_child_task_dependencies;
9152: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_SEL_TECH_DEP');
9153: Fnd_Message.SET_TOKEN('TASK_NUMBER', x_tasks_tbl(i).visit_task_number);
9154: FND_MSG_PUB.ADD;
9155: RAISE FND_API.G_EXC_ERROR;
9156: END IF; --curr task not selected
9157: END IF;
9158: END LOOP; --loop through the child dependent records
9159: CLOSE get_child_task_dependencies;
9166: 'At the end of PL SQL procedure. x_tasks_tbl.COUNT = ' || x_tasks_tbl.COUNT);
9167: END IF;
9168:
9169: EXCEPTION
9170: WHEN FND_API.G_EXC_ERROR THEN
9171: x_return_status := FND_API.G_RET_STS_ERROR;
9172: ROLLBACK TO Validate_tasks_bef_prodn_pvt;
9173: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
9174: p_data => x_msg_data,
9167: END IF;
9168:
9169: EXCEPTION
9170: WHEN FND_API.G_EXC_ERROR THEN
9171: x_return_status := FND_API.G_RET_STS_ERROR;
9172: ROLLBACK TO Validate_tasks_bef_prodn_pvt;
9173: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
9174: p_data => x_msg_data,
9175: p_encoded => fnd_api.g_false);
9171: x_return_status := FND_API.G_RET_STS_ERROR;
9172: ROLLBACK TO Validate_tasks_bef_prodn_pvt;
9173: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
9174: p_data => x_msg_data,
9175: p_encoded => fnd_api.g_false);
9176:
9177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9178: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
9179: ROLLBACK TO Validate_tasks_bef_prodn_pvt;
9173: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
9174: p_data => x_msg_data,
9175: p_encoded => fnd_api.g_false);
9176:
9177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9178: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
9179: ROLLBACK TO Validate_tasks_bef_prodn_pvt;
9180: Fnd_Msg_Pub.count_and_get (
9181: p_encoded => Fnd_Api.g_false,
9174: p_data => x_msg_data,
9175: p_encoded => fnd_api.g_false);
9176:
9177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9178: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
9179: ROLLBACK TO Validate_tasks_bef_prodn_pvt;
9180: Fnd_Msg_Pub.count_and_get (
9181: p_encoded => Fnd_Api.g_false,
9182: p_count => x_msg_count,
9177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9178: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
9179: ROLLBACK TO Validate_tasks_bef_prodn_pvt;
9180: Fnd_Msg_Pub.count_and_get (
9181: p_encoded => Fnd_Api.g_false,
9182: p_count => x_msg_count,
9183: p_data => x_msg_data);
9184:
9185: WHEN OTHERS THEN
9182: p_count => x_msg_count,
9183: p_data => x_msg_data);
9184:
9185: WHEN OTHERS THEN
9186: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9187: ROLLBACK TO Validate_tasks_bef_prodn_pvt;
9188: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9189: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
9190: p_procedure_name => 'Validate_tasks_bef_production',
9191: p_error_text => SUBSTR(SQLERRM,1,500));
9192: END IF;
9193: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
9194: p_data => x_msg_data,
9195: p_encoded => fnd_api.g_false);
9196:
9197: END Validate_tasks_bef_production;
9198:
9199: -------------------------------------------------------------------
9203: -- Parameters :
9204: --
9205: -- Standard IN Parameters :
9206: -- p_api_version IN NUMBER Required
9207: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
9208: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
9209: -- p_module_type IN VARCHAR2 Default Null
9210: --
9211: -- Standard OUT Parameters :
9204: --
9205: -- Standard IN Parameters :
9206: -- p_api_version IN NUMBER Required
9207: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
9208: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
9209: -- p_module_type IN VARCHAR2 Default Null
9210: --
9211: -- Standard OUT Parameters :
9212: -- x_return_status OUT VARCHAR2 Required
9224: -------------------------------------------------------------------
9225:
9226: PROCEDURE Push_tasks_to_production(
9227: p_api_version IN NUMBER,
9228: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
9229: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
9230: p_module_type IN VARCHAR2 := Null,
9231: p_visit_id IN NUMBER,
9232: p_tasks_tbl IN Task_Tbl_Type,
9225:
9226: PROCEDURE Push_tasks_to_production(
9227: p_api_version IN NUMBER,
9228: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
9229: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
9230: p_module_type IN VARCHAR2 := Null,
9231: p_visit_id IN NUMBER,
9232: p_tasks_tbl IN Task_Tbl_Type,
9233: p_release_flag IN VARCHAR2 ,
9470: -- Standard start of API savepoint
9471: SAVEPOINT Push_tasks_to_prodn_pvt;
9472:
9473: -- Initialize message list if p_init_msg_list is set to TRUE
9474: IF FND_API.To_Boolean(p_init_msg_list) THEN
9475: FND_MSG_PUB.Initialize;
9476: END IF;
9477:
9478: -- Initialize API return status to success
9475: FND_MSG_PUB.Initialize;
9476: END IF;
9477:
9478: -- Initialize API return status to success
9479: x_return_status := FND_API.G_RET_STS_SUCCESS;
9480:
9481: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
9482: p_api_version,
9483: l_api_name,G_PKG_NAME)
9477:
9478: -- Initialize API return status to success
9479: x_return_status := FND_API.G_RET_STS_SUCCESS;
9480:
9481: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
9482: p_api_version,
9483: l_api_name,G_PKG_NAME)
9484: THEN
9485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9481: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
9482: p_api_version,
9483: l_api_name,G_PKG_NAME)
9484: THEN
9485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9486: END IF;
9487:
9488: IF (l_log_statement >= l_log_current_level) THEN
9489: fnd_log.string(l_log_statement,
9508: L_DEBUG_KEY,
9509: 'After calling Integrate_to_Projects. l_return_status = ' || l_return_status);
9510: END IF;
9511:
9512: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9513: x_msg_count := FND_MSG_PUB.count_msg;
9514: IF (l_log_statement >= l_log_current_level) THEN
9515: fnd_log.string(l_log_statement,
9516: L_DEBUG_KEY,
9515: fnd_log.string(l_log_statement,
9516: L_DEBUG_KEY,
9517: 'Errors from Integrate_to_Projects. Message count: ' || x_msg_count);
9518: END IF;
9519: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9520: RAISE FND_API.G_EXC_ERROR;
9521: ELSE
9522: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9523: END IF;
9516: L_DEBUG_KEY,
9517: 'Errors from Integrate_to_Projects. Message count: ' || x_msg_count);
9518: END IF;
9519: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9520: RAISE FND_API.G_EXC_ERROR;
9521: ELSE
9522: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9523: END IF;
9524: END IF;
9518: END IF;
9519: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9520: RAISE FND_API.G_EXC_ERROR;
9521: ELSE
9522: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9523: END IF;
9524: END IF;
9525:
9526: -- SKPATHAK :: ER:12730539 :: 01-AUG-2011 :: START
9533:
9534: IF (p_visit_id IS NOT NULL) THEN
9535: AHL_LTP_REQST_MATRL_PUB.Process_Planned_Materials (
9536: p_api_version => 1.0,
9537: p_init_msg_list => FND_API.G_FALSE,
9538: p_commit => FND_API.G_FALSE,
9539: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9540: p_visit_id => p_visit_id,
9541: p_operation_flag => 'U',
9534: IF (p_visit_id IS NOT NULL) THEN
9535: AHL_LTP_REQST_MATRL_PUB.Process_Planned_Materials (
9536: p_api_version => 1.0,
9537: p_init_msg_list => FND_API.G_FALSE,
9538: p_commit => FND_API.G_FALSE,
9539: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9540: p_visit_id => p_visit_id,
9541: p_operation_flag => 'U',
9542: x_planned_order_flag => l_planned_order_flag,
9535: AHL_LTP_REQST_MATRL_PUB.Process_Planned_Materials (
9536: p_api_version => 1.0,
9537: p_init_msg_list => FND_API.G_FALSE,
9538: p_commit => FND_API.G_FALSE,
9539: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9540: p_visit_id => p_visit_id,
9541: p_operation_flag => 'U',
9542: x_planned_order_flag => l_planned_order_flag,
9543: x_return_status => l_return_status,
9549: L_DEBUG_KEY,
9550: 'After Calling AHL_LTP_REQST_MATRL_PUB.Process_Planned_Materials. Return Status = ' || l_return_status );
9551: END IF;
9552:
9553: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9554: x_msg_count := l_msg_count;
9555: x_return_status := l_return_status;
9556: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
9557: RAISE Fnd_Api.g_exc_error;
9552:
9553: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9554: x_msg_count := l_msg_count;
9555: x_return_status := l_return_status;
9556: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
9557: RAISE Fnd_Api.g_exc_error;
9558: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
9559: RAISE Fnd_Api.g_exc_unexpected_error;
9560: END IF;
9553: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9554: x_msg_count := l_msg_count;
9555: x_return_status := l_return_status;
9556: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
9557: RAISE Fnd_Api.g_exc_error;
9558: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
9559: RAISE Fnd_Api.g_exc_unexpected_error;
9560: END IF;
9561: END IF;
9554: x_msg_count := l_msg_count;
9555: x_return_status := l_return_status;
9556: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
9557: RAISE Fnd_Api.g_exc_error;
9558: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
9559: RAISE Fnd_Api.g_exc_unexpected_error;
9560: END IF;
9561: END IF;
9562: END IF;
9555: x_return_status := l_return_status;
9556: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
9557: RAISE Fnd_Api.g_exc_error;
9558: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
9559: RAISE Fnd_Api.g_exc_unexpected_error;
9560: END IF;
9561: END IF;
9562: END IF;
9563: -- SKPATHAK :: ER:12730539 :: 01-AUG-2011 :: END
9792: CLOSE get_wo_dtls_for_mrtasks_cur;
9793: l_prd_workorder_tbl(idx).JOB_DESCRIPTION := get_wo_dtls_for_mrtasks_rec.workorder_description;
9794: END IF;
9795:
9796: IF c_visit_tsk_dtl_rec.mr_route_id IS NOT NULL AND c_visit_tsk_dtl_rec.mr_route_id <> FND_API.g_miss_num THEN
9797: OPEN c_route (c_visit_tsk_dtl_rec.mr_route_id);
9798: FETCH c_route INTO l_prd_workorder_tbl(idx).ROUTE_ID;
9799: CLOSE c_route;
9800: ELSE
9800: ELSE
9801: l_prd_workorder_tbl(idx).ROUTE_ID := Null;
9802: END IF;
9803:
9804: IF c_visit_tsk_dtl_rec.department_id IS NOT NULL AND c_visit_tsk_dtl_rec.department_id <> FND_API.g_miss_num THEN
9805: l_prd_workorder_tbl(idx).DEPARTMENT_ID := c_visit_tsk_dtl_rec.department_id ;
9806: ELSE
9807: l_prd_workorder_tbl(idx).DEPARTMENT_ID := c_visit_dtl_rec.department_id ;
9808: END IF;
9975:
9976: IF l_max_schedule_start_date > c_visit_dtl_rec.close_date_time THEN -- Validation Error
9977: Fnd_Message.SET_NAME('AHL','AHL_VWP_NON_PS_PLAN_ED_DATE');
9978: Fnd_Msg_Pub.ADD;
9979: RAISE Fnd_Api.G_EXC_ERROR;
9980: END IF;
9981:
9982: END IF;
9983: --BUG 13373947 :: PRAKKUM :: 10/02/2012 :: END
9993: (p_api_version => l_api_version ,
9994: p_init_msg_list => p_init_msg_list,
9995: p_commit => 'F',
9996: p_validation_level => p_validation_level,
9997: p_default => FND_API.G_TRUE,
9998: p_module_type => p_module_type,
9999: x_return_status => l_return_status,
10000: x_msg_count => l_msg_count,
10001: x_msg_data => l_msg_data,
10009: 'After calling PROCESS_JOBS for visit_id ' ||
10010: p_visit_id||', l_return_status: '|| l_return_status);
10011: END IF;
10012:
10013: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10014: x_msg_count := FND_MSG_PUB.count_msg;
10015: IF (l_log_statement >= l_log_current_level) THEN
10016: fnd_log.string(l_log_statement,
10017: L_DEBUG_KEY,
10016: fnd_log.string(l_log_statement,
10017: L_DEBUG_KEY,
10018: 'Errors from PROCESS_JOBS. Message count: ' || x_msg_count);
10019: END IF;
10020: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10021: RAISE FND_API.G_EXC_ERROR;
10022: ELSE
10023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10024: END IF;
10017: L_DEBUG_KEY,
10018: 'Errors from PROCESS_JOBS. Message count: ' || x_msg_count);
10019: END IF;
10020: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10021: RAISE FND_API.G_EXC_ERROR;
10022: ELSE
10023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10024: END IF;
10025: END IF; -- Return Status is not Success
10019: END IF;
10020: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10021: RAISE FND_API.G_EXC_ERROR;
10022: ELSE
10023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10024: END IF;
10025: END IF; -- Return Status is not Success
10026:
10027: IF (l_log_statement >= l_log_current_level) THEN
10047: x_return_status => l_return_status,
10048: x_msg_count => l_msg_count,
10049: x_msg_data => l_msg_data);
10050:
10051: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
10052: x_msg_count := FND_MSG_PUB.count_msg;
10053: IF (l_log_statement >= l_log_current_level) THEN
10054: fnd_log.string(l_log_statement,
10055: L_DEBUG_KEY,
10054: fnd_log.string(l_log_statement,
10055: L_DEBUG_KEY,
10056: 'Errors from Update_Project_Task_Times. Message count: ' || x_msg_count);
10057: END IF;
10058: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10059: RAISE FND_API.G_EXC_ERROR;
10060: ELSE
10061: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10062: END IF;
10055: L_DEBUG_KEY,
10056: 'Errors from Update_Project_Task_Times. Message count: ' || x_msg_count);
10057: END IF;
10058: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10059: RAISE FND_API.G_EXC_ERROR;
10060: ELSE
10061: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10062: END IF;
10063: ELSE
10057: END IF;
10058: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10059: RAISE FND_API.G_EXC_ERROR;
10060: ELSE
10061: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10062: END IF;
10063: ELSE
10064: IF (l_log_statement >= l_log_current_level) THEN
10065: fnd_log.string(l_log_statement,
10084: LAST_UPDATE_LOGIN = Fnd_Global.LOGIN_ID
10085: WHERE visit_task_id = p_tasks_tbl(i).visit_task_id;
10086: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
10087: (p_api_version => 1.0,
10088: p_init_msg_list => FND_API.G_TRUE,
10089: p_commit => FND_API.G_FALSE,
10090: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10091: p_default => FND_API.G_FALSE,
10092: p_module_type => NULL,
10085: WHERE visit_task_id = p_tasks_tbl(i).visit_task_id;
10086: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
10087: (p_api_version => 1.0,
10088: p_init_msg_list => FND_API.G_TRUE,
10089: p_commit => FND_API.G_FALSE,
10090: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10091: p_default => FND_API.G_FALSE,
10092: p_module_type => NULL,
10093: x_return_status => l_return_status,
10086: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
10087: (p_api_version => 1.0,
10088: p_init_msg_list => FND_API.G_TRUE,
10089: p_commit => FND_API.G_FALSE,
10090: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10091: p_default => FND_API.G_FALSE,
10092: p_module_type => NULL,
10093: x_return_status => l_return_status,
10094: x_msg_count => l_msg_count,
10087: (p_api_version => 1.0,
10088: p_init_msg_list => FND_API.G_TRUE,
10089: p_commit => FND_API.G_FALSE,
10090: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
10091: p_default => FND_API.G_FALSE,
10092: p_module_type => NULL,
10093: x_return_status => l_return_status,
10094: x_msg_count => l_msg_count,
10095: x_msg_data => l_msg_data,
10235: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
10236: END IF;
10237:
10238: EXCEPTION
10239: WHEN FND_API.G_EXC_ERROR THEN
10240: x_return_status := FND_API.G_RET_STS_ERROR;
10241: ROLLBACK TO Push_tasks_to_prodn_pvt;
10242: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
10243: p_data => x_msg_data,
10236: END IF;
10237:
10238: EXCEPTION
10239: WHEN FND_API.G_EXC_ERROR THEN
10240: x_return_status := FND_API.G_RET_STS_ERROR;
10241: ROLLBACK TO Push_tasks_to_prodn_pvt;
10242: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
10243: p_data => x_msg_data,
10244: p_encoded => fnd_api.g_false);
10240: x_return_status := FND_API.G_RET_STS_ERROR;
10241: ROLLBACK TO Push_tasks_to_prodn_pvt;
10242: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
10243: p_data => x_msg_data,
10244: p_encoded => fnd_api.g_false);
10245:
10246: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10247: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
10248: ROLLBACK TO Push_tasks_to_prodn_pvt;
10242: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
10243: p_data => x_msg_data,
10244: p_encoded => fnd_api.g_false);
10245:
10246: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10247: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
10248: ROLLBACK TO Push_tasks_to_prodn_pvt;
10249: Fnd_Msg_Pub.count_and_get (
10250: p_encoded => Fnd_Api.g_false,
10243: p_data => x_msg_data,
10244: p_encoded => fnd_api.g_false);
10245:
10246: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10247: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
10248: ROLLBACK TO Push_tasks_to_prodn_pvt;
10249: Fnd_Msg_Pub.count_and_get (
10250: p_encoded => Fnd_Api.g_false,
10251: p_count => x_msg_count,
10246: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10247: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
10248: ROLLBACK TO Push_tasks_to_prodn_pvt;
10249: Fnd_Msg_Pub.count_and_get (
10250: p_encoded => Fnd_Api.g_false,
10251: p_count => x_msg_count,
10252: p_data => x_msg_data);
10253:
10254: WHEN OTHERS THEN
10251: p_count => x_msg_count,
10252: p_data => x_msg_data);
10253:
10254: WHEN OTHERS THEN
10255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10256: ROLLBACK TO Push_tasks_to_prodn_pvt;
10257: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10258: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
10259: p_procedure_name => 'Push_tasks_to_production',
10260: p_error_text => SUBSTR(SQLERRM,1,500));
10261: END IF;
10262: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
10263: p_data => x_msg_data,
10264: p_encoded => fnd_api.g_false);
10265:
10266: END Push_tasks_to_production;
10267:
10268: -------------------------------------------------------------------
10304:
10305: IF item_instance_id IS NOT NULL THEN
10306: -- If the Visit header has an instance id, check for the corresponding Unit
10307: l_quarantined := ahl_util_uc_pkg.is_unit_quarantined(null,item_instance_id);
10308: IF l_quarantined = FND_API.G_TRUE THEN
10309: l_unit_name := ahl_util_uc_pkg.get_unit_name(item_instance_id);
10310: Fnd_Message.SET_NAME('AHL','AHL_VWP_VLD_HDR_UNIT_QRNT');
10311: -- The Unit for this Visit (UNIT_NAME-1) is quarantined.
10312: Fnd_Message.Set_Token('UNIT_NAME',l_unit_name);
10322: LOOP
10323: FETCH c_get_tasknumbers INTO l_task_number,l_instance_id;
10324: EXIT WHEN c_get_tasknumbers%NOTFOUND;
10325: l_quarantined := ahl_util_uc_pkg.is_unit_quarantined(null,l_instance_id);
10326: IF l_quarantined = FND_API.G_TRUE THEN
10327: Fnd_Message.SET_NAME('AHL','AHL_VWP_VLD_TSK_UNIT_QRNT');
10328: -- The Unit for the Task (UNIT_NAME-1) is quarantined.
10329: Fnd_Message.Set_Token('TASK_NUMBER',l_task_number);
10330: Fnd_Msg_Pub.ADD;
10354: -- Parameters :
10355: --
10356: -- Standard IN Parameters :
10357: -- p_api_version IN NUMBER Required
10358: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
10359: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
10360: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
10361: --
10362: -- Standard OUT Parameters :
10355: --
10356: -- Standard IN Parameters :
10357: -- p_api_version IN NUMBER Required
10358: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
10359: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
10360: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
10361: --
10362: -- Standard OUT Parameters :
10363: -- x_return_status OUT VARCHAR2 Required ='V' if validation fails
10356: -- Standard IN Parameters :
10357: -- p_api_version IN NUMBER Required
10358: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
10359: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
10360: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
10361: --
10362: -- Standard OUT Parameters :
10363: -- x_return_status OUT VARCHAR2 Required ='V' if validation fails
10364: -- x_msg_count OUT NUMBER Required
10374: -- 07/21/2005 YAZHOU Initial Creation
10375: -------------------------------------------------------------------
10376: PROCEDURE Release_MR (
10377: p_api_version IN NUMBER,
10378: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
10379: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
10380: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
10381: p_module_type IN VARCHAR2 := NULL,
10382: p_visit_id IN NUMBER,
10375: -------------------------------------------------------------------
10376: PROCEDURE Release_MR (
10377: p_api_version IN NUMBER,
10378: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
10379: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
10380: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
10381: p_module_type IN VARCHAR2 := NULL,
10382: p_visit_id IN NUMBER,
10383: p_unit_effectivity_id IN NUMBER,
10376: PROCEDURE Release_MR (
10377: p_api_version IN NUMBER,
10378: p_init_msg_list IN VARCHAR2 := Fnd_Api.G_FALSE,
10379: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
10380: p_validation_level IN NUMBER := Fnd_Api.G_VALID_LEVEL_FULL,
10381: p_module_type IN VARCHAR2 := NULL,
10382: p_visit_id IN NUMBER,
10383: p_unit_effectivity_id IN NUMBER,
10384: p_release_flag IN VARCHAR2 := 'N',
10508: -- Standard start of API savepoint
10509: SAVEPOINT Release_MR;
10510:
10511: -- Initialize message list if p_init_msg_list is set to TRUE
10512: IF FND_API.To_Boolean( p_init_msg_list) THEN
10513: FND_MSG_PUB.Initialize;
10514: END IF;
10515:
10516: -- Initialize API return status to success
10513: FND_MSG_PUB.Initialize;
10514: END IF;
10515:
10516: -- Initialize API return status to success
10517: x_return_status := FND_API.G_RET_STS_SUCCESS;
10518:
10519: -- Standard call to check for call compatibility.
10520: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
10521: p_api_version,
10516: -- Initialize API return status to success
10517: x_return_status := FND_API.G_RET_STS_SUCCESS;
10518:
10519: -- Standard call to check for call compatibility.
10520: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
10521: p_api_version,
10522: l_api_name,G_PKG_NAME)THEN
10523: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10524: END IF;
10519: -- Standard call to check for call compatibility.
10520: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
10521: p_api_version,
10522: l_api_name,G_PKG_NAME)THEN
10523: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10524: END IF;
10525:
10526: IF (l_log_statement >= l_log_current_level) THEN
10527: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Request for Release_MR Visit ID : ' || p_visit_id);
10529: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Request for Release_MR Release Flag : ' || p_release_flag);
10530: END IF;
10531:
10532: -- Check for Required Parameters
10533: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN
10534: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_CST_INPUT_MISS');
10535: FND_MSG_PUB.ADD;
10536: IF (l_log_unexpected >= l_log_current_level)THEN
10537: fnd_log.string(l_log_unexpected,L_DEBUG_KEY,'Visit id is mandatory but found null in input');
10535: FND_MSG_PUB.ADD;
10536: IF (l_log_unexpected >= l_log_current_level)THEN
10537: fnd_log.string(l_log_unexpected,L_DEBUG_KEY,'Visit id is mandatory but found null in input');
10538: END IF;
10539: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10540: END IF;
10541:
10542: IF(p_unit_effectivity_id IS NULL OR p_unit_effectivity_id = FND_API.G_MISS_NUM) THEN
10543: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_UE_INPUT_MISS');
10538: END IF;
10539: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10540: END IF;
10541:
10542: IF(p_unit_effectivity_id IS NULL OR p_unit_effectivity_id = FND_API.G_MISS_NUM) THEN
10543: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_UE_INPUT_MISS');
10544: FND_MSG_PUB.ADD;
10545: IF (l_log_unexpected >= l_log_current_level)THEN
10546: fnd_log.string(l_log_unexpected,L_DEBUG_KEY,'Unit Effectivity id is mandatory but found null in input ');
10544: FND_MSG_PUB.ADD;
10545: IF (l_log_unexpected >= l_log_current_level)THEN
10546: fnd_log.string(l_log_unexpected,L_DEBUG_KEY,'Unit Effectivity id is mandatory but found null in input ');
10547: END IF;
10548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10549: END IF;
10550:
10551: --CHANGES by jrotich bug #13028686 begin
10552: IF (l_log_statement >= l_log_current_level)THEN
10569:
10570: END LOOP;
10571:
10572: IF(l_invalid_stage=TRUE) THEN
10573: RAISE FND_API.G_EXC_ERROR;
10574: END IF;
10575:
10576: --CHANGES by jrotich bug #13028686 END
10577:
10595: IF (l_log_statement >= l_log_current_level)THEN
10596: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After Calling Validate Before Production - l_return_status : '|| l_return_status);
10597: END IF;
10598:
10599: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10600: -- Check Error Message stack.
10601: x_msg_count := FND_MSG_PUB.count_msg;
10602: IF (l_log_statement >= l_log_current_level)THEN
10603: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from Validate Before Production' || x_msg_count);
10601: x_msg_count := FND_MSG_PUB.count_msg;
10602: IF (l_log_statement >= l_log_current_level)THEN
10603: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from Validate Before Production' || x_msg_count);
10604: END IF;
10605: RAISE Fnd_Api.g_exc_error;
10606: END IF;
10607:
10608: IF l_error_tbl_type.COUNT > 0 THEN
10609: x_return_status := l_validate_error;
10625: FOR l_get_independent_tasks IN get_independent_tasks(c_visit_rec.visit_id,p_unit_effectivity_id)
10626: LOOP
10627: AHL_VWP_TIMES_PVT.adjust_task_times(
10628: p_api_version => 1.0,
10629: p_init_msg_list => Fnd_Api.G_FALSE,
10630: p_commit => Fnd_Api.G_FALSE,
10631: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
10632: x_return_status => l_return_status,
10633: x_msg_count => l_msg_count,
10626: LOOP
10627: AHL_VWP_TIMES_PVT.adjust_task_times(
10628: p_api_version => 1.0,
10629: p_init_msg_list => Fnd_Api.G_FALSE,
10630: p_commit => Fnd_Api.G_FALSE,
10631: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
10632: x_return_status => l_return_status,
10633: x_msg_count => l_msg_count,
10634: x_msg_data => l_msg_data,
10627: AHL_VWP_TIMES_PVT.adjust_task_times(
10628: p_api_version => 1.0,
10629: p_init_msg_list => Fnd_Api.G_FALSE,
10630: p_commit => Fnd_Api.G_FALSE,
10631: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
10632: x_return_status => l_return_status,
10633: x_msg_count => l_msg_count,
10634: x_msg_data => l_msg_data,
10635: p_task_id => l_get_independent_tasks.visit_task_id,
10632: x_return_status => l_return_status,
10633: x_msg_count => l_msg_count,
10634: x_msg_data => l_msg_data,
10635: p_task_id => l_get_independent_tasks.visit_task_id,
10636: p_reset_sysdate_flag => FND_API.G_TRUE);
10637: END LOOP;
10638: END IF;
10639: -- SKPATHAK :: Bug 8343599 :: 14-APR-2009 :: End
10640: l_visit_end_time := AHL_VWP_TIMES_PVT.get_visit_end_time(c_visit_rec.visit_id);
10646: END IF;
10647: END IF;
10648: END IF;
10649:
10650: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
10651: /* Check visit end date instead
10652: --The MR end date
10653: OPEN get_summary_task_times_csr(p_visit_id, p_unit_effectivity_id);
10654: FETCH get_summary_task_times_csr into l_MR_end_time;
10669: FND_MSG_PUB.ADD;
10670: END IF;
10671: END IF;
10672:
10673: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10674: -- Per MEL/CDL requirement, if tasks are sucessfully created but fail to be pushed
10675: -- to production, then they will stay in 'PLANNING' status.
10676: IF p_module_type <>'PROD' THEN
10677: -- Check Error Message stack.
10678: x_msg_count := FND_MSG_PUB.count_msg;
10679: IF (l_log_statement >= l_log_current_level)THEN
10680: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from Validate Before Production'|| x_msg_count);
10681: END IF;
10682: RAISE Fnd_Api.g_exc_error;
10683: END IF;
10684: ELSE
10685: IF (l_log_statement >= l_log_current_level)THEN
10686: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Before Calling Push_MR_to_Production for UE Id: ' ||p_unit_effectivity_id);
10704: IF (l_log_statement >= l_log_current_level)THEN
10705: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After Calling Push_MR_to_Production - l_return_status : ' ||l_return_status);
10706: END IF;
10707:
10708: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10709: -- Check Error Message stack.
10710: x_msg_count := FND_MSG_PUB.count_msg;
10711: IF (l_log_statement >= l_log_current_level)THEN
10712: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from Push to Production: ' || x_msg_count);
10710: x_msg_count := FND_MSG_PUB.count_msg;
10711: IF (l_log_statement >= l_log_current_level)THEN
10712: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from Push to Production: ' || x_msg_count);
10713: END IF;
10714: RAISE Fnd_Api.g_exc_error;
10715: END IF;
10716:
10717: /*Return root root workorder ID for the given UE*/
10718: OPEN get_wo(p_visit_id, p_unit_effectivity_id);
10720: CLOSE get_wo;
10721: END IF;
10722:
10723: -- Standard check of p_commit
10724: IF FND_API.TO_BOOLEAN(p_commit) THEN
10725: COMMIT WORK;
10726: END IF;
10727:
10728: Fnd_Msg_Pub.count_and_get(
10725: COMMIT WORK;
10726: END IF;
10727:
10728: Fnd_Msg_Pub.count_and_get(
10729: p_encoded => Fnd_Api.g_false,
10730: p_count => x_msg_count,
10731: p_data => x_msg_data);
10732:
10733: IF (l_log_procedure >= l_log_current_level)THEN
10734: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.end','At the end of PLSQL procedure');
10735: END IF;
10736:
10737: EXCEPTION
10738: WHEN FND_API.G_EXC_ERROR THEN
10739: x_return_status := FND_API.G_RET_STS_ERROR;
10740: ROLLBACK TO Release_MR;
10741: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
10742: p_data => x_msg_data,
10735: END IF;
10736:
10737: EXCEPTION
10738: WHEN FND_API.G_EXC_ERROR THEN
10739: x_return_status := FND_API.G_RET_STS_ERROR;
10740: ROLLBACK TO Release_MR;
10741: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
10742: p_data => x_msg_data,
10743: p_encoded => fnd_api.g_false);
10739: x_return_status := FND_API.G_RET_STS_ERROR;
10740: ROLLBACK TO Release_MR;
10741: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
10742: p_data => x_msg_data,
10743: p_encoded => fnd_api.g_false);
10744:
10745:
10746: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10742: p_data => x_msg_data,
10743: p_encoded => fnd_api.g_false);
10744:
10745:
10746: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10748: ROLLBACK TO Release_MR;
10749: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
10750: p_data => x_msg_data,
10743: p_encoded => fnd_api.g_false);
10744:
10745:
10746: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10748: ROLLBACK TO Release_MR;
10749: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
10750: p_data => x_msg_data,
10751: p_encoded => fnd_api.g_false);
10747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10748: ROLLBACK TO Release_MR;
10749: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
10750: p_data => x_msg_data,
10751: p_encoded => fnd_api.g_false);
10752:
10753:
10754: WHEN OTHERS THEN
10755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10751: p_encoded => fnd_api.g_false);
10752:
10753:
10754: WHEN OTHERS THEN
10755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10756: ROLLBACK TO Release_MR;
10757: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
10758: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
10759: p_procedure_name => 'Release_MR',
10760: p_error_text => SUBSTR(SQLERRM,1,500));
10761: END IF;
10762: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
10763: p_data => x_msg_data,
10764: p_encoded => fnd_api.g_false);
10765:
10766: END Release_MR;
10767:
10768: --------------------------------------------------------------------
11104: -- To push MR along with all its tasks to Production
11105: --------------------------------------------------------------------
11106: PROCEDURE Push_MR_to_Production
11107: ( p_api_version IN NUMBER,
11108: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
11109: p_commit IN VARCHAR2 := Fnd_Api.g_false,
11110: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
11111: p_module_type IN VARCHAR2 := Null,
11112: p_visit_id IN NUMBER,
11105: --------------------------------------------------------------------
11106: PROCEDURE Push_MR_to_Production
11107: ( p_api_version IN NUMBER,
11108: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
11109: p_commit IN VARCHAR2 := Fnd_Api.g_false,
11110: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
11111: p_module_type IN VARCHAR2 := Null,
11112: p_visit_id IN NUMBER,
11113: p_unit_effectivity_id IN NUMBER,
11106: PROCEDURE Push_MR_to_Production
11107: ( p_api_version IN NUMBER,
11108: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
11109: p_commit IN VARCHAR2 := Fnd_Api.g_false,
11110: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
11111: p_module_type IN VARCHAR2 := Null,
11112: p_visit_id IN NUMBER,
11113: p_unit_effectivity_id IN NUMBER,
11114: p_release_flag IN VARCHAR2 := 'N',
11295: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.begin','At the begin of the procedure');
11296: END IF;
11297:
11298: -- Initialize message list if p_init_msg_list is set to TRUE.
11299: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
11300: Fnd_Msg_Pub.initialize;
11301: END IF;
11302:
11303: -- Initialize API return status to success
11300: Fnd_Msg_Pub.initialize;
11301: END IF;
11302:
11303: -- Initialize API return status to success
11304: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
11305:
11306: -- Standard call to check for call compatibility.
11307: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
11308: p_api_version,
11303: -- Initialize API return status to success
11304: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
11305:
11306: -- Standard call to check for call compatibility.
11307: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
11308: p_api_version,
11309: l_api_name,G_PKG_NAME) THEN
11310: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
11311: END IF;
11306: -- Standard call to check for call compatibility.
11307: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
11308: p_api_version,
11309: l_api_name,G_PKG_NAME) THEN
11310: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
11311: END IF;
11312:
11313: IF (l_log_statement >= l_log_current_level) THEN
11314: fnd_log.string(l_log_statement,L_DEBUG_KEY,'p_unit_effectivity_id : '||p_unit_effectivity_id||'Visit Id : ' || p_visit_id);
11353: fnd_log.string(l_log_statement,
11354: L_DEBUG_KEY,
11355: 'Errors from VALIDATE_MR_ROUTE_DATE. Message count: ' || l_msg_count);
11356: END IF;
11357: RAISE FND_API.G_EXC_ERROR;
11358: END IF;
11359: -- SKPATHAK :: Bug 9445455 :: 08-MAR-2010 :: END
11360: */
11361:
11379: IF (l_log_statement >= l_log_current_level) THEN
11380: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling Add_MR_to_Projects - l_return_status : '||l_return_status);
11381: END IF;
11382:
11383: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11384: -- Check Error Message stack.
11385: x_msg_count := FND_MSG_PUB.count_msg;
11386: RAISE Fnd_Api.g_exc_error;
11387: END IF;
11382:
11383: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11384: -- Check Error Message stack.
11385: x_msg_count := FND_MSG_PUB.count_msg;
11386: RAISE Fnd_Api.g_exc_error;
11387: END IF;
11388:
11389: OPEN c_visit (p_visit_id);
11390: FETCH c_visit INTO c_visit_rec;
11507: l_prd_workorder_tbl(idx).JOB_DESCRIPTION := l_get_wo_dtls_rec.workorder_description;
11508: END IF;
11509: -- SATHAPLI::Bug 5758813, 04-Jun-2008, fix end
11510:
11511: IF c_task_rec.mr_route_id IS NOT NULL AND c_task_rec.mr_route_id <> FND_API.g_miss_num THEN
11512: OPEN c_route (c_task_rec.mr_route_id);
11513: FETCH c_route INTO l_route_id;
11514: CLOSE c_route;
11515: l_prd_workorder_tbl(idx).ROUTE_ID := l_route_id ;
11517: l_prd_workorder_tbl(idx).ROUTE_ID := Null;
11518: END IF;
11519:
11520: IF c_task_rec.department_id IS NOT NULL
11521: AND c_task_rec.department_id <> FND_API.g_miss_num THEN
11522: l_prd_workorder_tbl(idx).DEPARTMENT_ID := c_task_rec.department_id ;
11523: ELSE
11524: l_prd_workorder_tbl(idx).DEPARTMENT_ID := c_visit_rec.department_id ;
11525: END IF;
11579: AHL_PRD_WORKORDER_PVT.Process_Jobs
11580: (
11581: p_api_version => p_api_version,
11582: p_init_msg_list => p_init_msg_list,
11583: p_commit => FND_API.G_FALSE,
11584: p_validation_level => p_validation_level,
11585: p_default => FND_API.G_TRUE,
11586: p_module_type => p_module_type,
11587: x_return_status => l_return_status,
11581: p_api_version => p_api_version,
11582: p_init_msg_list => p_init_msg_list,
11583: p_commit => FND_API.G_FALSE,
11584: p_validation_level => p_validation_level,
11585: p_default => FND_API.G_TRUE,
11586: p_module_type => p_module_type,
11587: x_return_status => l_return_status,
11588: x_msg_count => x_msg_count,
11589: x_msg_data => x_msg_data,
11594: IF (l_log_statement >= l_log_current_level) THEN
11595: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling AHL_PRD_WORKORDER_PVT.Process_Jobs - l_return_status : '||l_return_status);
11596: END IF;
11597:
11598: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11599: IF (l_log_statement >= l_log_current_level) THEN
11600: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from process_jobs API : ' || x_msg_count );
11601: END IF;
11602: RAISE Fnd_Api.g_exc_error;
11598: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11599: IF (l_log_statement >= l_log_current_level) THEN
11600: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Errors from process_jobs API : ' || x_msg_count );
11601: END IF;
11602: RAISE Fnd_Api.g_exc_error;
11603: END IF;
11604:
11605: -- SATHAPLI::Bug 5758813, 04-Jun-2008, fix start
11606: -- Update the project tasks' (corresponding to the visit tasks) start and end date with those of the workorders' created above.
11619: IF (l_log_statement >= l_log_current_level) THEN
11620: fnd_log.string(l_log_statement, l_debug_key, 'After calling Update_Project_Task_Times. x_return_status => '||x_return_status);
11621: END IF;
11622:
11623: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
11624: RAISE FND_API.G_EXC_ERROR;
11625: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
11626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11627: END IF;
11620: fnd_log.string(l_log_statement, l_debug_key, 'After calling Update_Project_Task_Times. x_return_status => '||x_return_status);
11621: END IF;
11622:
11623: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
11624: RAISE FND_API.G_EXC_ERROR;
11625: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
11626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11627: END IF;
11628: -- SATHAPLI::Bug 5758813, 04-Jun-2008, fix end
11621: END IF;
11622:
11623: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
11624: RAISE FND_API.G_EXC_ERROR;
11625: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
11626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11627: END IF;
11628: -- SATHAPLI::Bug 5758813, 04-Jun-2008, fix end
11629: END IF; -- To find if the visit has any tasks
11622:
11623: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
11624: RAISE FND_API.G_EXC_ERROR;
11625: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
11626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11627: END IF;
11628: -- SATHAPLI::Bug 5758813, 04-Jun-2008, fix end
11629: END IF; -- To find if the visit has any tasks
11630:
11723: END IF; -- IF Component Visit
11724:
11725: ---------------------------End of Body-------------------------------------
11726: -- Standard check of p_commit.
11727: IF Fnd_Api.To_Boolean (p_commit) THEN
11728: COMMIT WORK;
11729: END IF;
11730:
11731: Fnd_Msg_Pub.count_and_get(
11728: COMMIT WORK;
11729: END IF;
11730:
11731: Fnd_Msg_Pub.count_and_get(
11732: p_encoded => Fnd_Api.g_false,
11733: p_count => x_msg_count,
11734: p_data => x_msg_data
11735: );
11736:
11738: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.end','At the end of plsql procedure');
11739: END IF;
11740:
11741: EXCEPTION
11742: WHEN Fnd_Api.g_exc_error THEN
11743: ROLLBACK TO Push_MR_to_Production;
11744: x_return_status := Fnd_Api.g_ret_sts_error;
11745: Fnd_Msg_Pub.count_and_get (
11746: p_encoded => Fnd_Api.g_false,
11740:
11741: EXCEPTION
11742: WHEN Fnd_Api.g_exc_error THEN
11743: ROLLBACK TO Push_MR_to_Production;
11744: x_return_status := Fnd_Api.g_ret_sts_error;
11745: Fnd_Msg_Pub.count_and_get (
11746: p_encoded => Fnd_Api.g_false,
11747: p_count => x_msg_count,
11748: p_data => x_msg_data
11742: WHEN Fnd_Api.g_exc_error THEN
11743: ROLLBACK TO Push_MR_to_Production;
11744: x_return_status := Fnd_Api.g_ret_sts_error;
11745: Fnd_Msg_Pub.count_and_get (
11746: p_encoded => Fnd_Api.g_false,
11747: p_count => x_msg_count,
11748: p_data => x_msg_data
11749: );
11750: WHEN Fnd_Api.g_exc_unexpected_error THEN
11746: p_encoded => Fnd_Api.g_false,
11747: p_count => x_msg_count,
11748: p_data => x_msg_data
11749: );
11750: WHEN Fnd_Api.g_exc_unexpected_error THEN
11751: ROLLBACK TO Push_MR_to_Production;
11752: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
11753: Fnd_Msg_Pub.count_and_get (
11754: p_encoded => Fnd_Api.g_false,
11748: p_data => x_msg_data
11749: );
11750: WHEN Fnd_Api.g_exc_unexpected_error THEN
11751: ROLLBACK TO Push_MR_to_Production;
11752: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
11753: Fnd_Msg_Pub.count_and_get (
11754: p_encoded => Fnd_Api.g_false,
11755: p_count => x_msg_count,
11756: p_data => x_msg_data
11750: WHEN Fnd_Api.g_exc_unexpected_error THEN
11751: ROLLBACK TO Push_MR_to_Production;
11752: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
11753: Fnd_Msg_Pub.count_and_get (
11754: p_encoded => Fnd_Api.g_false,
11755: p_count => x_msg_count,
11756: p_data => x_msg_data
11757: );
11758: WHEN OTHERS THEN
11756: p_data => x_msg_data
11757: );
11758: WHEN OTHERS THEN
11759: ROLLBACK TO Push_MR_to_Production;
11760: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
11761: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
11762: THEN
11763: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
11764: END IF;
11762: THEN
11763: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
11764: END IF;
11765: Fnd_Msg_Pub.count_and_get (
11766: p_encoded => Fnd_Api.g_false,
11767: p_count => x_msg_count,
11768: p_data => x_msg_data
11769: );
11770: END Push_MR_to_Production;
11778: -- when SR tasks are created in prodution
11779: --------------------------------------------------------------------
11780: PROCEDURE Add_MR_to_Project(
11781: p_api_version IN NUMBER,
11782: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
11783: p_commit IN VARCHAR2 := Fnd_Api.g_false,
11784: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
11785: p_module_type IN VARCHAR2 := Null,
11786: p_visit_id IN NUMBER,
11779: --------------------------------------------------------------------
11780: PROCEDURE Add_MR_to_Project(
11781: p_api_version IN NUMBER,
11782: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
11783: p_commit IN VARCHAR2 := Fnd_Api.g_false,
11784: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
11785: p_module_type IN VARCHAR2 := Null,
11786: p_visit_id IN NUMBER,
11787: p_unit_effectivity_id IN NUMBER,
11780: PROCEDURE Add_MR_to_Project(
11781: p_api_version IN NUMBER,
11782: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
11783: p_commit IN VARCHAR2 := Fnd_Api.g_false,
11784: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
11785: p_module_type IN VARCHAR2 := Null,
11786: p_visit_id IN NUMBER,
11787: p_unit_effectivity_id IN NUMBER,
11788: x_return_status OUT NOCOPY VARCHAR2,
11900: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.begin','At the start of plsql procedure');
11901: END IF;
11902:
11903: -- Initialize message list if p_init_msg_list is set to TRUE.
11904: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
11905: Fnd_Msg_Pub.initialize;
11906: END IF;
11907:
11908: -- Initialize API return status to success
11905: Fnd_Msg_Pub.initialize;
11906: END IF;
11907:
11908: -- Initialize API return status to success
11909: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
11910:
11911: -- Standard call to check for call compatibility.
11912: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
11913: p_api_version,
11908: -- Initialize API return status to success
11909: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
11910:
11911: -- Standard call to check for call compatibility.
11912: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
11913: p_api_version,
11914: l_api_name,G_PKG_NAME) THEN
11915: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
11916: END IF;
11911: -- Standard call to check for call compatibility.
11912: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
11913: p_api_version,
11914: l_api_name,G_PKG_NAME) THEN
11915: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
11916: END IF;
11917:
11918: IF (l_log_statement >= l_log_current_level) THEN
11919: fnd_log.string(l_log_statement,L_DEBUG_KEY,'Unit Effectivity ID = ' || p_unit_effectivity_id);
11930: AHL_VWP_RULES_PVT.Check_Proj_Responsibility
11931: (x_check_project => l_chk_project,
11932: x_return_status => l_return_status);
11933:
11934: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
11935: x_return_status := l_return_status;
11936: RAISE G_EXC_ERROR;
11937: END IF;
11938:
12047: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
12048: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'Another Error: '||l_msg_data);
12049: END IF;
12050: END IF;
12051: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
12052: END IF;
12053:
12054: -- Then add the non-summary (Route or Unassociated) task under the rollup task
12055: l_task_reference := l_task_num_prefix || c_task_rec.visit_task_number;
12125: IF (l_log_statement >= l_log_current_level) THEN
12126: fnd_log.string(l_log_statement,L_DEBUG_KEY,': Another Error ='||l_msg_data);
12127: END IF;
12128: END IF;
12129: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
12130: ELSE
12131: UPDATE AHL_VISIT_TASKS_B SET PROJECT_TASK_ID = l_task_id,
12132: OBJECT_VERSION_NUMBER = c_task_rec.object_version_number + 1,
12133: --TCHIMIRA::BUG 9222622 ::15-DEC-2009::UPDATE WHO COLUMNS
12212: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
12213: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'Another Error: '||l_msg_data);
12214: END IF;
12215: END IF;
12216: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
12217: ELSE
12218: UPDATE AHL_VISIT_TASKS_B SET PROJECT_TASK_ID = l_task_id,
12219: OBJECT_VERSION_NUMBER = c_task_rec.object_version_number + 1
12220: WHERE VISIT_TASK_ID = c_task_rec.visit_task_id;
12236:
12237: ---------------------------End of Body-------------------------------------
12238: -- Standard check of p_commit.
12239:
12240: IF Fnd_Api.To_Boolean ( p_commit ) THEN
12241: COMMIT WORK;
12242: END IF;
12243:
12244: Fnd_Msg_Pub.count_and_get(
12241: COMMIT WORK;
12242: END IF;
12243:
12244: Fnd_Msg_Pub.count_and_get(
12245: p_encoded => Fnd_Api.g_false,
12246: p_count => x_msg_count,
12247: p_data => x_msg_data
12248: );
12249:
12251: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.end','At the end of plsql procedure');
12252: END IF;
12253:
12254: EXCEPTION
12255: WHEN Fnd_Api.g_exc_error THEN
12256: ROLLBACK TO Add_MR_to_Project;
12257: x_return_status := Fnd_Api.g_ret_sts_error;
12258: Fnd_Msg_Pub.count_and_get (
12259: p_encoded => Fnd_Api.g_false,
12253:
12254: EXCEPTION
12255: WHEN Fnd_Api.g_exc_error THEN
12256: ROLLBACK TO Add_MR_to_Project;
12257: x_return_status := Fnd_Api.g_ret_sts_error;
12258: Fnd_Msg_Pub.count_and_get (
12259: p_encoded => Fnd_Api.g_false,
12260: p_count => x_msg_count,
12261: p_data => x_msg_data
12255: WHEN Fnd_Api.g_exc_error THEN
12256: ROLLBACK TO Add_MR_to_Project;
12257: x_return_status := Fnd_Api.g_ret_sts_error;
12258: Fnd_Msg_Pub.count_and_get (
12259: p_encoded => Fnd_Api.g_false,
12260: p_count => x_msg_count,
12261: p_data => x_msg_data
12262: );
12263: WHEN Fnd_Api.g_exc_unexpected_error THEN
12259: p_encoded => Fnd_Api.g_false,
12260: p_count => x_msg_count,
12261: p_data => x_msg_data
12262: );
12263: WHEN Fnd_Api.g_exc_unexpected_error THEN
12264: ROLLBACK TO Add_MR_to_Project;
12265: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
12266: Fnd_Msg_Pub.count_and_get (
12267: p_encoded => Fnd_Api.g_false,
12261: p_data => x_msg_data
12262: );
12263: WHEN Fnd_Api.g_exc_unexpected_error THEN
12264: ROLLBACK TO Add_MR_to_Project;
12265: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
12266: Fnd_Msg_Pub.count_and_get (
12267: p_encoded => Fnd_Api.g_false,
12268: p_count => x_msg_count,
12269: p_data => x_msg_data
12263: WHEN Fnd_Api.g_exc_unexpected_error THEN
12264: ROLLBACK TO Add_MR_to_Project;
12265: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
12266: Fnd_Msg_Pub.count_and_get (
12267: p_encoded => Fnd_Api.g_false,
12268: p_count => x_msg_count,
12269: p_data => x_msg_data
12270: );
12271: WHEN OTHERS THEN
12269: p_data => x_msg_data
12270: );
12271: WHEN OTHERS THEN
12272: ROLLBACK TO Add_MR_to_Project;
12273: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
12274: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
12275: THEN
12276: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
12277: END IF;
12275: THEN
12276: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
12277: END IF;
12278: Fnd_Msg_Pub.count_and_get (
12279: p_encoded => Fnd_Api.g_false,
12280: p_count => x_msg_count,
12281: p_data => x_msg_data
12282: );
12283: END Add_MR_to_Project;
12322: -- Standard start of API savepoint
12323: SAVEPOINT AGGREGATE_MATERIAL_REQRS;
12324:
12325: -- Initialize return status to success before any code logic/validation
12326: x_return_status:= FND_API.G_RET_STS_SUCCESS;
12327:
12328: -- Standard call to check for call compatibility
12329: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
12330: THEN
12325: -- Initialize return status to success before any code logic/validation
12326: x_return_status:= FND_API.G_RET_STS_SUCCESS;
12327:
12328: -- Standard call to check for call compatibility
12329: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
12330: THEN
12331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12332: END IF;
12333:
12327:
12328: -- Standard call to check for call compatibility
12329: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
12330: THEN
12331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12332: END IF;
12333:
12334: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
12335: IF FND_API.TO_BOOLEAN(p_init_msg_list)
12330: THEN
12331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12332: END IF;
12333:
12334: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
12335: IF FND_API.TO_BOOLEAN(p_init_msg_list)
12336: THEN
12337: FND_MSG_PUB.INITIALIZE;
12338: END IF;
12331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12332: END IF;
12333:
12334: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
12335: IF FND_API.TO_BOOLEAN(p_init_msg_list)
12336: THEN
12337: FND_MSG_PUB.INITIALIZE;
12338: END IF;
12339:
12372: 'After calling AGGREGATE_TASK_MATERIAL_REQRS for Visit Task Id: ' ||
12373: l_visit_task_id || '. Return Status = '|| l_return_status);
12374: END IF;
12375:
12376: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12377: x_msg_count := FND_MSG_PUB.count_msg;
12378: IF (l_log_statement >= l_log_current_level) THEN
12379: fnd_log.string(l_log_statement,
12380: L_DEBUG_KEY,
12379: fnd_log.string(l_log_statement,
12380: L_DEBUG_KEY,
12381: 'Errors from AGGREGATE_TASK_MATERIAL_REQRS. Message count: ' || x_msg_count);
12382: END IF;
12383: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
12384: RAISE FND_API.G_EXC_ERROR;
12385: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12387: END IF;
12380: L_DEBUG_KEY,
12381: 'Errors from AGGREGATE_TASK_MATERIAL_REQRS. Message count: ' || x_msg_count);
12382: END IF;
12383: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
12384: RAISE FND_API.G_EXC_ERROR;
12385: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12387: END IF;
12388: END IF;
12381: 'Errors from AGGREGATE_TASK_MATERIAL_REQRS. Message count: ' || x_msg_count);
12382: END IF;
12383: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
12384: RAISE FND_API.G_EXC_ERROR;
12385: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12387: END IF;
12388: END IF;
12389:
12382: END IF;
12383: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
12384: RAISE FND_API.G_EXC_ERROR;
12385: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12387: END IF;
12388: END IF;
12389:
12390: END LOOP;
12465: l_previous_item NUMBER := NULL;
12466:
12467: BEGIN
12468: -- Initialize return status to success before any code logic/validation
12469: x_return_status:= FND_API.G_RET_STS_SUCCESS;
12470:
12471: IF (l_log_procedure >= l_log_current_level) THEN
12472: fnd_log.string(l_log_procedure,
12473: L_DEBUG_KEY ||'.begin',
12474: 'At the start of PL SQL procedure. Visit Task Id = ' || p_task_id);
12475: END IF;
12476:
12477: -- Standard call to check for call compatibility
12478: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
12479: THEN
12480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12481: END IF;
12482:
12476:
12477: -- Standard call to check for call compatibility
12478: IF NOT FND_API.COMPATIBLE_API_CALL (l_api_version, p_api_version, l_api_name, G_PKG_NAME)
12479: THEN
12480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12481: END IF;
12482:
12483: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
12484: IF FND_API.TO_BOOLEAN(p_init_msg_list)
12479: THEN
12480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12481: END IF;
12482:
12483: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
12484: IF FND_API.TO_BOOLEAN(p_init_msg_list)
12485: THEN
12486: FND_MSG_PUB.INITIALIZE;
12487: END IF;
12480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12481: END IF;
12482:
12483: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
12484: IF FND_API.TO_BOOLEAN(p_init_msg_list)
12485: THEN
12486: FND_MSG_PUB.INITIALIZE;
12487: END IF;
12488:
12546: 'After calling AHL_RSV_RESERVATIONS_PVT.TRNSFR_RSRV_FOR_MATRL_REQR. Return Status = '||
12547: x_return_status);
12548: END IF;
12549:
12550: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12551: x_msg_count := FND_MSG_PUB.count_msg;
12552: IF (l_log_statement >= l_log_current_level) THEN
12553: fnd_log.string(l_log_statement,
12554: L_DEBUG_KEY,
12553: fnd_log.string(l_log_statement,
12554: L_DEBUG_KEY,
12555: 'Errors from AHL_RSV_RESERVATIONS_PVT.TRNSFR_RSRV_FOR_MATRL_REQR. Message count: ' || x_msg_count);
12556: END IF;
12557: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
12558: RAISE FND_API.G_EXC_ERROR;
12559: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12561: END IF;
12554: L_DEBUG_KEY,
12555: 'Errors from AHL_RSV_RESERVATIONS_PVT.TRNSFR_RSRV_FOR_MATRL_REQR. Message count: ' || x_msg_count);
12556: END IF;
12557: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
12558: RAISE FND_API.G_EXC_ERROR;
12559: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12561: END IF;
12562: END IF;
12555: 'Errors from AHL_RSV_RESERVATIONS_PVT.TRNSFR_RSRV_FOR_MATRL_REQR. Message count: ' || x_msg_count);
12556: END IF;
12557: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
12558: RAISE FND_API.G_EXC_ERROR;
12559: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12561: END IF;
12562: END IF;
12563: END IF;
12556: END IF;
12557: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
12558: RAISE FND_API.G_EXC_ERROR;
12559: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12561: END IF;
12562: END IF;
12563: END IF;
12564: END IF;
12616: -- Function : Update the project task start/end dates
12617: -- with the workorder schedule start/end dates
12618: -- Parameters :
12619: -- Standard IN Parameters :
12620: -- p_commit IN VARCHAR2 Fnd_Api.G_FALSE
12621: --
12622: -- Update_Project_Task_Times Parameters
12623: -- p_prd_workorder_tbl IN AHL_PRD_WORKORDER_PVT.PRD_WORKORDER_TBL Required
12624: --
12631: -- 04 January, 2007 Bug#5758813 SOWSUBRA Initial Version - 1.0
12632: -------------------------------------------------------------------
12633: PROCEDURE Update_Project_Task_Times
12634: ( p_prd_workorder_tbl IN AHL_PRD_WORKORDER_PVT.PRD_WORKORDER_TBL,
12635: p_commit IN VARCHAR2 := Fnd_Api.G_FALSE,
12636: x_return_status OUT NOCOPY VARCHAR2,
12637: x_msg_count OUT NOCOPY NUMBER,
12638: x_msg_data OUT NOCOPY VARCHAR2
12639: )
12726: BEGIN
12727: -- Initialize return status to success before any code logic/validation
12728: SAVEPOINT Update_Project_Task_Times;
12729:
12730: x_return_status:= FND_API.G_RET_STS_SUCCESS;
12731:
12732: IF (l_log_procedure >= l_log_current_level) THEN
12733: fnd_log.string(l_log_procedure,
12734: L_DEBUG_KEY ||'.begin',
12931: 'After calling PA_PROJECT_PUB.update_project. Return Status = ' || l_return_status);
12932: END IF;
12933: x_return_status := l_return_status;
12934:
12935: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
12936: IF (l_log_statement >= l_log_current_level) THEN
12937: fnd_log.string(l_log_statement,
12938: L_DEBUG_KEY,
12939: 'Errors from PA_PROJECT_PUB.update_project. Message count: ' ||
12938: L_DEBUG_KEY,
12939: 'Errors from PA_PROJECT_PUB.update_project. Message count: ' ||
12940: l_msg_count || ', message data: ' || l_msg_data);
12941: END IF;
12942: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
12943: RAISE FND_API.G_EXC_ERROR;
12944: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12945: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12946: END IF;
12939: 'Errors from PA_PROJECT_PUB.update_project. Message count: ' ||
12940: l_msg_count || ', message data: ' || l_msg_data);
12941: END IF;
12942: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
12943: RAISE FND_API.G_EXC_ERROR;
12944: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12945: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12946: END IF;
12947: END IF; -- Return Status is not success
12940: l_msg_count || ', message data: ' || l_msg_data);
12941: END IF;
12942: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
12943: RAISE FND_API.G_EXC_ERROR;
12944: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12945: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12946: END IF;
12947: END IF; -- Return Status is not success
12948: END IF; -- l_task_in_tbl.count > 0
12941: END IF;
12942: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
12943: RAISE FND_API.G_EXC_ERROR;
12944: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12945: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12946: END IF;
12947: END IF; -- Return Status is not success
12948: END IF; -- l_task_in_tbl.count > 0
12949:
12953: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
12954: END IF;
12955:
12956: EXCEPTION
12957: WHEN FND_API.G_EXC_ERROR THEN
12958: x_return_status := FND_API.G_RET_STS_ERROR;
12959: ROLLBACK TO Update_Project_Task_Times;
12960: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
12961: p_data => x_msg_data,
12954: END IF;
12955:
12956: EXCEPTION
12957: WHEN FND_API.G_EXC_ERROR THEN
12958: x_return_status := FND_API.G_RET_STS_ERROR;
12959: ROLLBACK TO Update_Project_Task_Times;
12960: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
12961: p_data => x_msg_data,
12962: p_encoded => fnd_api.g_false);
12958: x_return_status := FND_API.G_RET_STS_ERROR;
12959: ROLLBACK TO Update_Project_Task_Times;
12960: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
12961: p_data => x_msg_data,
12962: p_encoded => fnd_api.g_false);
12963:
12964: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12965: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12966: ROLLBACK TO Update_Project_Task_Times;
12960: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
12961: p_data => x_msg_data,
12962: p_encoded => fnd_api.g_false);
12963:
12964: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12965: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12966: ROLLBACK TO Update_Project_Task_Times;
12967: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
12968: p_data => x_msg_data,
12961: p_data => x_msg_data,
12962: p_encoded => fnd_api.g_false);
12963:
12964: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12965: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12966: ROLLBACK TO Update_Project_Task_Times;
12967: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
12968: p_data => x_msg_data,
12969: p_encoded => fnd_api.g_false);
12965: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12966: ROLLBACK TO Update_Project_Task_Times;
12967: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
12968: p_data => x_msg_data,
12969: p_encoded => fnd_api.g_false);
12970:
12971: WHEN OTHERS THEN
12972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12973: ROLLBACK TO Update_Project_Task_Times;
12968: p_data => x_msg_data,
12969: p_encoded => fnd_api.g_false);
12970:
12971: WHEN OTHERS THEN
12972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12973: ROLLBACK TO Update_Project_Task_Times;
12974: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
12975: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
12976: p_procedure_name => 'Update_Project',
12977: p_error_text => SUBSTR(SQLERRM,1,500));
12978: END IF;
12979: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
12980: p_data => x_msg_data,
12981: p_encoded => fnd_api.g_false);
12982:
12983: END Update_Project_Task_Times;
12984: -- PRAKKUM :: PIE:FP :: 13-OCT-2010 :: END :: Modified this procedure
12985:
12994: --
12995: --------------------------------------------------------------------
12996: PROCEDURE Create_Job_Tasks(
12997: p_api_version IN NUMBER :=1.0,
12998: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
12999: p_commit IN VARCHAR2 := Fnd_Api.g_false,
13000: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
13001: p_module_type IN VARCHAR2 := Null,
13002: p_x_task_Tbl IN OUT NOCOPY Task_Tbl_Type,
12995: --------------------------------------------------------------------
12996: PROCEDURE Create_Job_Tasks(
12997: p_api_version IN NUMBER :=1.0,
12998: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
12999: p_commit IN VARCHAR2 := Fnd_Api.g_false,
13000: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
13001: p_module_type IN VARCHAR2 := Null,
13002: p_x_task_Tbl IN OUT NOCOPY Task_Tbl_Type,
13003: x_return_status OUT NOCOPY VARCHAR2,
12996: PROCEDURE Create_Job_Tasks(
12997: p_api_version IN NUMBER :=1.0,
12998: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
12999: p_commit IN VARCHAR2 := Fnd_Api.g_false,
13000: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
13001: p_module_type IN VARCHAR2 := Null,
13002: p_x_task_Tbl IN OUT NOCOPY Task_Tbl_Type,
13003: x_return_status OUT NOCOPY VARCHAR2,
13004: x_msg_count OUT NOCOPY NUMBER,
13115: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.begin','At the start of the PLSQL procedure');
13116: END IF;
13117:
13118: -- Initialize message list if p_init_msg_list is set to TRUE.
13119: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
13120: Fnd_Msg_Pub.initialize;
13121: END IF;
13122:
13123: -- Initialize API return status to success
13120: Fnd_Msg_Pub.initialize;
13121: END IF;
13122:
13123: -- Initialize API return status to success
13124: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
13125:
13126: -- Standard call to check for call compatibility.
13127: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
13128: p_api_version,
13123: -- Initialize API return status to success
13124: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
13125:
13126: -- Standard call to check for call compatibility.
13127: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
13128: p_api_version,
13129: l_api_name,G_PKG_NAME) THEN
13130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13131: END IF;
13126: -- Standard call to check for call compatibility.
13127: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
13128: p_api_version,
13129: l_api_name,G_PKG_NAME) THEN
13130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13131: END IF;
13132:
13133: --------------------------- Start of Body -------------------------------------
13134: IF (l_log_statement >= l_log_current_level) THEN
13164:
13165: -- Call create Visit Task API
13166: AHL_VWP_TASKS_PVT.Create_Task (
13167: p_api_version => p_api_version,
13168: p_init_msg_list => Fnd_Api.g_false,
13169: p_validation_level => p_validation_level,
13170: p_module_type => 'SR', --p_module_type,
13171: p_x_task_rec => p_x_task_Tbl(i),
13172: x_return_status => x_return_status,
13181: END LOOP;
13182: END IF;
13183:
13184: IF x_return_status <> 'S' THEN
13185: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
13186: END IF;
13187:
13188: IF (p_x_task_Tbl.COUNT > 0) THEN
13189: i := p_x_task_Tbl.FIRST;
13201: WHILE i IS NOT NULL
13202: LOOP
13203: AHL_VWP_TIMES_PVT.adjust_task_times(
13204: p_api_version => 1.0,
13205: p_init_msg_list => Fnd_Api.G_FALSE,
13206: p_commit => Fnd_Api.G_FALSE,
13207: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
13208: x_return_status => l_return_status,
13209: x_msg_count => l_msg_count,
13202: LOOP
13203: AHL_VWP_TIMES_PVT.adjust_task_times(
13204: p_api_version => 1.0,
13205: p_init_msg_list => Fnd_Api.G_FALSE,
13206: p_commit => Fnd_Api.G_FALSE,
13207: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
13208: x_return_status => l_return_status,
13209: x_msg_count => l_msg_count,
13210: x_msg_data => l_msg_data,
13203: AHL_VWP_TIMES_PVT.adjust_task_times(
13204: p_api_version => 1.0,
13205: p_init_msg_list => Fnd_Api.G_FALSE,
13206: p_commit => Fnd_Api.G_FALSE,
13207: p_validation_level => Fnd_Api.G_VALID_LEVEL_FULL,
13208: x_return_status => l_return_status,
13209: x_msg_count => l_msg_count,
13210: x_msg_data => l_msg_data,
13211: p_task_id => p_x_task_Tbl(i).visit_task_id,
13208: x_return_status => l_return_status,
13209: x_msg_count => l_msg_count,
13210: x_msg_data => l_msg_data,
13211: p_task_id => p_x_task_Tbl(i).visit_task_id,
13212: p_reset_sysdate_flag => FND_API.G_TRUE);
13213:
13214: i:= p_x_task_Tbl.NEXT(i);
13215: END LOOP;
13216: END IF;
13349: l_prd_workorder_tbl(idx).VISIT_TASK_NUMBER := c_task_rec.visit_task_number ;
13350: l_prd_workorder_tbl(idx).PROJECT_TASK_ID := c_task_rec.project_task_id ;
13351: l_prd_workorder_tbl(idx).JOB_DESCRIPTION := c_task_rec.visit_task_name ;
13352:
13353: IF c_task_rec.department_id IS NOT NULL AND c_task_rec.department_id <> FND_API.g_miss_num THEN
13354: l_prd_workorder_tbl(idx).DEPARTMENT_ID := c_task_rec.department_id ;
13355: ELSE
13356: l_prd_workorder_tbl(idx).DEPARTMENT_ID := c_visit_rec.department_id ;
13357: END IF;
13355: ELSE
13356: l_prd_workorder_tbl(idx).DEPARTMENT_ID := c_visit_rec.department_id ;
13357: END IF;
13358:
13359: IF c_task_rec.mr_route_id IS NOT NULL AND c_task_rec.mr_route_id <> FND_API.g_miss_num THEN
13360: OPEN c_route (c_task_rec.mr_route_id);
13361: FETCH c_route INTO l_route_id;
13362: CLOSE c_route;
13363: l_prd_workorder_tbl(idx).ROUTE_ID := l_route_id ;
13401: /* Begin Changes by Shkalyan */
13402: AHL_PRD_WORKORDER_PVT.Process_Jobs
13403: (p_api_version => p_api_version,
13404: p_init_msg_list => p_init_msg_list,
13405: p_commit => Fnd_Api.g_false,
13406: p_validation_level => p_validation_level,
13407: p_default => FND_API.G_TRUE,
13408: p_module_type => p_module_type,
13409: x_return_status => x_return_status,
13403: (p_api_version => p_api_version,
13404: p_init_msg_list => p_init_msg_list,
13405: p_commit => Fnd_Api.g_false,
13406: p_validation_level => p_validation_level,
13407: p_default => FND_API.G_TRUE,
13408: p_module_type => p_module_type,
13409: x_return_status => x_return_status,
13410: x_msg_count => x_msg_count,
13411: x_msg_data => x_msg_data,
13416: IF (l_log_statement >= l_log_current_level) THEN
13417: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling AHL_PRD_WORKORDER_PVT.Process_Jobs - x_return_status = '||x_return_status);
13418: END IF;
13419:
13420: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13421: RAISE Fnd_Api.G_EXC_ERROR;
13422: END IF;
13423: END IF; -- To find if the visit has any tasks
13424:
13417: fnd_log.string(l_log_statement,L_DEBUG_KEY,'After calling AHL_PRD_WORKORDER_PVT.Process_Jobs - x_return_status = '||x_return_status);
13418: END IF;
13419:
13420: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13421: RAISE Fnd_Api.G_EXC_ERROR;
13422: END IF;
13423: END IF; -- To find if the visit has any tasks
13424:
13425: IF (p_x_task_Tbl.COUNT > 0) THEN
13480: ---------------------------End of Body-------------------------------------
13481: -- END of API body.
13482: -- Standard check of p_commit.
13483:
13484: IF Fnd_Api.To_Boolean (p_commit) THEN
13485: COMMIT WORK;
13486: END IF;
13487:
13488: Fnd_Msg_Pub.count_and_get(
13485: COMMIT WORK;
13486: END IF;
13487:
13488: Fnd_Msg_Pub.count_and_get(
13489: p_encoded => Fnd_Api.g_false,
13490: p_count => x_msg_count,
13491: p_data => x_msg_data);
13492:
13493: IF (l_log_procedure >= l_log_current_level) THEN
13494: fnd_log.string(l_log_procedure,L_DEBUG_KEY||'.end','At the end of the PLSQL procedure');
13495: END IF;
13496:
13497: EXCEPTION
13498: WHEN Fnd_Api.g_exc_error THEN
13499: ROLLBACK TO Create_Job_Tasks;
13500: x_return_status := Fnd_Api.g_ret_sts_error;
13501: Fnd_Msg_Pub.count_and_get (
13502: p_encoded => Fnd_Api.g_false,
13496:
13497: EXCEPTION
13498: WHEN Fnd_Api.g_exc_error THEN
13499: ROLLBACK TO Create_Job_Tasks;
13500: x_return_status := Fnd_Api.g_ret_sts_error;
13501: Fnd_Msg_Pub.count_and_get (
13502: p_encoded => Fnd_Api.g_false,
13503: p_count => x_msg_count,
13504: p_data => x_msg_data
13498: WHEN Fnd_Api.g_exc_error THEN
13499: ROLLBACK TO Create_Job_Tasks;
13500: x_return_status := Fnd_Api.g_ret_sts_error;
13501: Fnd_Msg_Pub.count_and_get (
13502: p_encoded => Fnd_Api.g_false,
13503: p_count => x_msg_count,
13504: p_data => x_msg_data
13505: );
13506: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13502: p_encoded => Fnd_Api.g_false,
13503: p_count => x_msg_count,
13504: p_data => x_msg_data
13505: );
13506: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13507: ROLLBACK TO Create_Job_Tasks;
13508: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
13509: Fnd_Msg_Pub.count_and_get (
13510: p_encoded => Fnd_Api.g_false,
13504: p_data => x_msg_data
13505: );
13506: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13507: ROLLBACK TO Create_Job_Tasks;
13508: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
13509: Fnd_Msg_Pub.count_and_get (
13510: p_encoded => Fnd_Api.g_false,
13511: p_count => x_msg_count,
13512: p_data => x_msg_data
13506: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13507: ROLLBACK TO Create_Job_Tasks;
13508: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
13509: Fnd_Msg_Pub.count_and_get (
13510: p_encoded => Fnd_Api.g_false,
13511: p_count => x_msg_count,
13512: p_data => x_msg_data
13513: );
13514: WHEN OTHERS THEN
13512: p_data => x_msg_data
13513: );
13514: WHEN OTHERS THEN
13515: ROLLBACK TO Create_Job_Tasks;
13516: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
13517: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
13518: THEN
13519: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
13520: END IF;
13518: THEN
13519: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
13520: END IF;
13521: Fnd_Msg_Pub.count_and_get (
13522: p_encoded => Fnd_Api.g_false,
13523: p_count => x_msg_count,
13524: p_data => x_msg_data
13525: );
13526: END Create_Job_Tasks;
13661: IF (l_return_status = 'S') THEN
13662: x_task_id := l_task_id; -- Assign the OUT paramater
13663: END IF;
13664: ELSIF l_project_tsk_flag = 'N' AND l_proj_ref_flag = 'Y' THEN
13665: x_return_status := Fnd_Api.g_ret_sts_error;
13666: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
13667: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_NUM_NOT_UNIQ');
13668: Fnd_Msg_Pub.ADD;
13669: END IF;
13667: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_NUM_NOT_UNIQ');
13668: Fnd_Msg_Pub.ADD;
13669: END IF;
13670: ELSIF l_project_tsk_flag = 'Y' AND l_proj_ref_flag = 'N' THEN
13671: x_return_status := Fnd_Api.g_ret_sts_error;
13672: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
13673: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_REF_NOT_UNIQ');
13674: Fnd_Msg_Pub.ADD;
13675: END IF;
13673: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TSK_REF_NOT_UNIQ');
13674: Fnd_Msg_Pub.ADD;
13675: END IF;
13676: ELSE
13677: x_return_status := Fnd_Api.g_ret_sts_error;
13678: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
13679: Fnd_Message.set_name ('AHL', 'AHL_VWP_PROJ_TASK_NOT_UNIQUE');
13680: Fnd_Msg_Pub.ADD;
13681: END IF;
13774: Fnd_Message.SET_NAME('AHL', 'AHL_VWP_TASK_ID_INVALID');
13775: Fnd_Message.SET_TOKEN('VISIT_TASK_ID', p_task_id);
13776: Fnd_Msg_Pub.ADD;
13777: CLOSE validate_vst_tsk_id_csr;
13778: RAISE Fnd_Api.G_EXC_ERROR;
13779: END IF;
13780: CLOSE validate_vst_tsk_id_csr;
13781:
13782: OPEN get_prj_tsk_details_csr(p_task_id);
13836: ', Returned Task Reference: ' || l_out_pm_task_reference);
13837: END IF;
13838: x_return_status := l_return_status ;
13839:
13840: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
13841: IF (l_log_statement >= l_log_current_level) THEN
13842: fnd_log.string(l_log_statement,
13843: L_DEBUG_KEY,
13844: 'Errors from PA_PROJECT_PUB.update_project. Message count: ' ||
13843: L_DEBUG_KEY,
13844: 'Errors from PA_PROJECT_PUB.update_project. Message count: ' ||
13845: l_msg_count || ', message data: ' || l_msg_data);
13846: END IF;
13847: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
13848: RAISE FND_API.G_EXC_ERROR;
13849: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13850: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13851: END IF;
13844: 'Errors from PA_PROJECT_PUB.update_project. Message count: ' ||
13845: l_msg_count || ', message data: ' || l_msg_data);
13846: END IF;
13847: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
13848: RAISE FND_API.G_EXC_ERROR;
13849: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13850: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13851: END IF;
13852: END IF; -- Return Status is not success
13845: l_msg_count || ', message data: ' || l_msg_data);
13846: END IF;
13847: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
13848: RAISE FND_API.G_EXC_ERROR;
13849: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13850: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13851: END IF;
13852: END IF; -- Return Status is not success
13853: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
13846: END IF;
13847: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
13848: RAISE FND_API.G_EXC_ERROR;
13849: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13850: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13851: END IF;
13852: END IF; -- Return Status is not success
13853: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
13854: fnd_log.string(fnd_log.level_procedure,L_DEBUG_KEY||'.end','At the end of plsql procedure');
13856:
13857:
13858:
13859: EXCEPTION
13860: WHEN FND_API.G_EXC_ERROR THEN
13861: x_return_status := FND_API.G_RET_STS_ERROR;
13862: ROLLBACK TO Update_Project_Task;
13863: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
13864: p_data => x_msg_data,
13857:
13858:
13859: EXCEPTION
13860: WHEN FND_API.G_EXC_ERROR THEN
13861: x_return_status := FND_API.G_RET_STS_ERROR;
13862: ROLLBACK TO Update_Project_Task;
13863: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
13864: p_data => x_msg_data,
13865: p_encoded => fnd_api.g_false);
13861: x_return_status := FND_API.G_RET_STS_ERROR;
13862: ROLLBACK TO Update_Project_Task;
13863: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
13864: p_data => x_msg_data,
13865: p_encoded => fnd_api.g_false);
13866:
13867: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13868: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13869: ROLLBACK TO Update_Project_Task;
13863: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
13864: p_data => x_msg_data,
13865: p_encoded => fnd_api.g_false);
13866:
13867: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13868: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13869: ROLLBACK TO Update_Project_Task;
13870: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
13871: p_data => x_msg_data,
13864: p_data => x_msg_data,
13865: p_encoded => fnd_api.g_false);
13866:
13867: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13868: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13869: ROLLBACK TO Update_Project_Task;
13870: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
13871: p_data => x_msg_data,
13872: p_encoded => fnd_api.g_false);
13868: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13869: ROLLBACK TO Update_Project_Task;
13870: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
13871: p_data => x_msg_data,
13872: p_encoded => fnd_api.g_false);
13873:
13874: WHEN OTHERS THEN
13875: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13876: ROLLBACK TO Update_Project_Task;
13871: p_data => x_msg_data,
13872: p_encoded => fnd_api.g_false);
13873:
13874: WHEN OTHERS THEN
13875: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13876: ROLLBACK TO Update_Project_Task;
13877: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
13878: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
13879: p_procedure_name => 'Update_Project',
13880: p_error_text => SUBSTR(SQLERRM,1,500));
13881: END IF;
13882: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
13883: p_data => x_msg_data,
13884: p_encoded => fnd_api.g_false);
13885:
13886: END Update_Project_Task;
13887:
13888:
13893: -- the project tasks. It is a helper function that will be
13894: -- used by other APIs in this package.
13895: -- Parameters :
13896: -- Standard IN Parameters :
13897: -- p_commit IN VARCHAR2 Fnd_Api.G_FALSE
13898: --
13899: -- Update_Project_Task_Times Parameters :
13900: -- p_visit_id IN NUMBER Required
13901: --
14198: -- Parameters :
14199: --
14200: -- Standard IN Parameters :
14201: -- p_api_version IN NUMBER Required
14202: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
14203: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
14204: --
14205: -- Standard OUT Parameters :
14206: -- x_return_status OUT VARCHAR2 Required
14199: --
14200: -- Standard IN Parameters :
14201: -- p_api_version IN NUMBER Required
14202: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
14203: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
14204: --
14205: -- Standard OUT Parameters :
14206: -- x_return_status OUT VARCHAR2 Required
14207: -- x_msg_count OUT NUMBER Required
14213: -- P_caller can be either JAVA or FORMS depending on whether this API i called from JAVA layer orthrough forms
14214: --------------------------------------------------------------------------------------------------------------------
14215: PROCEDURE plan_visit (
14216: p_api_version IN NUMBER := 1.0,
14217: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
14218: p_commit IN VARCHAR2 := FND_API.G_FALSE,
14219: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
14220: p_caller IN VARCHAR2 := NULL,
14221: p_visit_id IN NUMBER,
14214: --------------------------------------------------------------------------------------------------------------------
14215: PROCEDURE plan_visit (
14216: p_api_version IN NUMBER := 1.0,
14217: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
14218: p_commit IN VARCHAR2 := FND_API.G_FALSE,
14219: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
14220: p_caller IN VARCHAR2 := NULL,
14221: p_visit_id IN NUMBER,
14222: x_return_status OUT NOCOPY VARCHAR2,
14215: PROCEDURE plan_visit (
14216: p_api_version IN NUMBER := 1.0,
14217: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
14218: p_commit IN VARCHAR2 := FND_API.G_FALSE,
14219: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
14220: p_caller IN VARCHAR2 := NULL,
14221: p_visit_id IN NUMBER,
14222: x_return_status OUT NOCOPY VARCHAR2,
14223: x_msg_count OUT NOCOPY NUMBER,
14260: SAVEPOINT plan_visit_pvt;
14261:
14262: -- Initialize message list if p_init_msg_list is set to TRUE
14263:
14264: IF FND_API.To_Boolean( p_init_msg_list) THEN
14265: FND_MSG_PUB.Initialize;
14266: END IF;
14267:
14268: -- Initialize API return status to success
14265: FND_MSG_PUB.Initialize;
14266: END IF;
14267:
14268: -- Initialize API return status to success
14269: x_return_status := FND_API.G_RET_STS_SUCCESS;
14270:
14271: -- Standard call to check for call compatibility.
14272: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
14273: p_api_version,
14268: -- Initialize API return status to success
14269: x_return_status := FND_API.G_RET_STS_SUCCESS;
14270:
14271: -- Standard call to check for call compatibility.
14272: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
14273: p_api_version,
14274: l_api_name,G_PKG_NAME)
14275: THEN
14276: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
14272: IF NOT Fnd_Api.COMPATIBLE_API_CALL(l_api_version,
14273: p_api_version,
14274: l_api_name,G_PKG_NAME)
14275: THEN
14276: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
14277: END IF;
14278:
14279: -- make sure that visit id is present in the input
14280: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN
14276: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
14277: END IF;
14278:
14279: -- make sure that visit id is present in the input
14280: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN
14281: FND_MESSAGE.Set_Name(G_PM_PRODUCT_CODE,'AHL_VWP_CST_INPUT_MISS');
14282: FND_MSG_PUB.ADD;
14283:
14284: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)THEN
14288: 'ahl.plsql.AHL_VWP_PROJ_PROD_PVT.plan_visit',
14289: 'Visit id is mandatory but found null in input '
14290: );
14291: END IF;
14292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14293: END IF;
14294:
14295: OPEN get_visit_status(p_visit_id);
14296: FETCH get_visit_status INTO l_status_code, l_visit_number;
14307: 'ahl.plsql.AHL_VWP_PROJ_PROD_PVT.plan_visit',
14308: 'Input Visit id is INVALID '
14309: );
14310: END IF;
14311: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14312: END IF;
14313:
14314: -- We need to call release_visit only if all the visit tasks already do NOT have corresponding WOs
14315: -- If they already have WOs, just updating the visit status is sufficient
14340: END IF;
14341:
14342: AHL_VWP_PROJ_PROD_PVT.RELEASE_VISIT (
14343: p_api_version => l_api_version,
14344: p_init_msg_list => Fnd_Api.g_false,
14345: p_commit => Fnd_Api.g_false,
14346: p_validation_level => p_validation_level,
14347: p_module_type => 'CST',
14348: p_visit_id => p_visit_id,
14341:
14342: AHL_VWP_PROJ_PROD_PVT.RELEASE_VISIT (
14343: p_api_version => l_api_version,
14344: p_init_msg_list => Fnd_Api.g_false,
14345: p_commit => Fnd_Api.g_false,
14346: p_validation_level => p_validation_level,
14347: p_module_type => 'CST',
14348: p_visit_id => p_visit_id,
14349: p_release_flag => l_release_flag,
14364:
14365: IF l_return_status = 'V' THEN
14366: x_return_status := l_return_status;
14367: -- Check Error Message stack.
14368: ELSIF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
14369: x_msg_count := l_msg_count;
14370: x_return_status := l_return_status;
14371: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
14372: RAISE Fnd_Api.g_exc_error;
14367: -- Check Error Message stack.
14368: ELSIF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
14369: x_msg_count := l_msg_count;
14370: x_return_status := l_return_status;
14371: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
14372: RAISE Fnd_Api.g_exc_error;
14373: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
14374: RAISE Fnd_Api.g_exc_unexpected_error;
14375: END IF;
14368: ELSIF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
14369: x_msg_count := l_msg_count;
14370: x_return_status := l_return_status;
14371: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
14372: RAISE Fnd_Api.g_exc_error;
14373: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
14374: RAISE Fnd_Api.g_exc_unexpected_error;
14375: END IF;
14376: ELSE
14369: x_msg_count := l_msg_count;
14370: x_return_status := l_return_status;
14371: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
14372: RAISE Fnd_Api.g_exc_error;
14373: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
14374: RAISE Fnd_Api.g_exc_unexpected_error;
14375: END IF;
14376: ELSE
14377: IF l_status_code = 'DRAFT' THEN
14370: x_return_status := l_return_status;
14371: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
14372: RAISE Fnd_Api.g_exc_error;
14373: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
14374: RAISE Fnd_Api.g_exc_unexpected_error;
14375: END IF;
14376: ELSE
14377: IF l_status_code = 'DRAFT' THEN
14378: UPDATE AHL_VISITS_B
14399: IF (l_log_statement >= l_log_current_level) THEN
14400: fnd_log.string(l_log_statement,'ahl.plsql.'||g_pkg_name||'.'||l_api_name||': End API','After calling AHL_VWP_VISITS_STAGES_PVT.VALIDATE_STAGE_DATES - l_return_status : '||l_return_status);
14401: END IF;
14402:
14403: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
14404: x_msg_count := l_msg_count;
14405: x_return_status := l_return_status;
14406: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
14407: RAISE Fnd_Api.g_exc_error;
14402:
14403: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
14404: x_msg_count := l_msg_count;
14405: x_return_status := l_return_status;
14406: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
14407: RAISE Fnd_Api.g_exc_error;
14408: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
14409: RAISE Fnd_Api.g_exc_unexpected_error;
14410: END IF;
14403: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
14404: x_msg_count := l_msg_count;
14405: x_return_status := l_return_status;
14406: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
14407: RAISE Fnd_Api.g_exc_error;
14408: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
14409: RAISE Fnd_Api.g_exc_unexpected_error;
14410: END IF;
14411: END IF;
14404: x_msg_count := l_msg_count;
14405: x_return_status := l_return_status;
14406: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
14407: RAISE Fnd_Api.g_exc_error;
14408: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
14409: RAISE Fnd_Api.g_exc_unexpected_error;
14410: END IF;
14411: END IF;
14412: -- PRAKKUM :: 13-FEB-2011 :: Bug 13711800 :: END
14405: x_return_status := l_return_status;
14406: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
14407: RAISE Fnd_Api.g_exc_error;
14408: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
14409: RAISE Fnd_Api.g_exc_unexpected_error;
14410: END IF;
14411: END IF;
14412: -- PRAKKUM :: 13-FEB-2011 :: Bug 13711800 :: END
14413:
14410: END IF;
14411: END IF;
14412: -- PRAKKUM :: 13-FEB-2011 :: Bug 13711800 :: END
14413:
14414: IF Fnd_Api.To_Boolean (p_commit) THEN
14415: COMMIT WORK;
14416: END IF;
14417:
14418: Fnd_Msg_Pub.count_and_get(
14415: COMMIT WORK;
14416: END IF;
14417:
14418: Fnd_Msg_Pub.count_and_get(
14419: p_encoded => Fnd_Api.g_false,
14420: p_count => x_msg_count,
14421: p_data => x_msg_data
14422: );
14423:
14431: END IF;
14432:
14433: EXCEPTION
14434:
14435: WHEN FND_API.G_EXC_ERROR THEN
14436:
14437: x_return_status := FND_API.G_RET_STS_ERROR;
14438: ROLLBACK TO plan_visit_pvt;
14439: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
14433: EXCEPTION
14434:
14435: WHEN FND_API.G_EXC_ERROR THEN
14436:
14437: x_return_status := FND_API.G_RET_STS_ERROR;
14438: ROLLBACK TO plan_visit_pvt;
14439: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
14440: p_data => x_msg_data,
14441: p_encoded => fnd_api.g_false);
14437: x_return_status := FND_API.G_RET_STS_ERROR;
14438: ROLLBACK TO plan_visit_pvt;
14439: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
14440: p_data => x_msg_data,
14441: p_encoded => fnd_api.g_false);
14442:
14443: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14445: ROLLBACK TO plan_visit_pvt;
14439: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
14440: p_data => x_msg_data,
14441: p_encoded => fnd_api.g_false);
14442:
14443: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14445: ROLLBACK TO plan_visit_pvt;
14446: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
14447: p_data => x_msg_data,
14440: p_data => x_msg_data,
14441: p_encoded => fnd_api.g_false);
14442:
14443: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14445: ROLLBACK TO plan_visit_pvt;
14446: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
14447: p_data => x_msg_data,
14448: p_encoded => fnd_api.g_false);
14444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14445: ROLLBACK TO plan_visit_pvt;
14446: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
14447: p_data => x_msg_data,
14448: p_encoded => fnd_api.g_false);
14449:
14450: WHEN OTHERS THEN
14451: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14452: ROLLBACK TO plan_visit_pvt;
14447: p_data => x_msg_data,
14448: p_encoded => fnd_api.g_false);
14449:
14450: WHEN OTHERS THEN
14451: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14452: ROLLBACK TO plan_visit_pvt;
14453:
14454: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
14455: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
14458: END IF;
14459:
14460: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
14461: p_data => x_msg_data,
14462: p_encoded => fnd_api.g_false);
14463: END Plan_visit;
14464:
14465: -------------------------------------------------------------------
14466: -- Procedure name : Push_stages_to_production
14469: -- Parameters :
14470: --
14471: -- Standard IN Parameters :
14472: -- p_api_version IN NUMBER Required
14473: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
14474: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
14475: -- p_module_type IN VARCHAR2 Default Null
14476: --
14477: -- Standard OUT Parameters :
14470: --
14471: -- Standard IN Parameters :
14472: -- p_api_version IN NUMBER Required
14473: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_FALSE
14474: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
14475: -- p_module_type IN VARCHAR2 Default Null
14476: --
14477: -- Standard OUT Parameters :
14478: -- x_return_status OUT VARCHAR2 Required
14488: -------------------------------------------------------------------
14489:
14490: PROCEDURE Push_stages_to_production(
14491: p_api_version IN NUMBER,
14492: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
14493: p_commit IN VARCHAR2 := FND_API.G_FALSE,
14494: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
14495: p_module_type IN VARCHAR2 := Null,
14496: p_visit_id IN NUMBER,
14489:
14490: PROCEDURE Push_stages_to_production(
14491: p_api_version IN NUMBER,
14492: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
14493: p_commit IN VARCHAR2 := FND_API.G_FALSE,
14494: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
14495: p_module_type IN VARCHAR2 := Null,
14496: p_visit_id IN NUMBER,
14497: p_stages_tbl IN AHL_VWP_VISITS_STAGES_PVT.Visit_Stages_Tbl_Type,
14490: PROCEDURE Push_stages_to_production(
14491: p_api_version IN NUMBER,
14492: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
14493: p_commit IN VARCHAR2 := FND_API.G_FALSE,
14494: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
14495: p_module_type IN VARCHAR2 := Null,
14496: p_visit_id IN NUMBER,
14497: p_stages_tbl IN AHL_VWP_VISITS_STAGES_PVT.Visit_Stages_Tbl_Type,
14498: p_release_flag IN VARCHAR2 ,
14696: -- Standard start of API savepoint
14697: SAVEPOINT Push_stages_to_prodn_pvt;
14698:
14699: -- Initialize message list if p_init_msg_list is set to TRUE
14700: IF FND_API.To_Boolean(p_init_msg_list) THEN
14701: FND_MSG_PUB.Initialize;
14702: END IF;
14703:
14704: -- Initialize API return status to success
14701: FND_MSG_PUB.Initialize;
14702: END IF;
14703:
14704: -- Initialize API return status to success
14705: x_return_status := FND_API.G_RET_STS_SUCCESS;
14706:
14707: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
14708: p_api_version,
14709: l_api_name,G_PKG_NAME)
14703:
14704: -- Initialize API return status to success
14705: x_return_status := FND_API.G_RET_STS_SUCCESS;
14706:
14707: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
14708: p_api_version,
14709: l_api_name,G_PKG_NAME)
14710: THEN
14711: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14707: IF NOT FND_API.COMPATIBLE_API_CALL(l_api_version,
14708: p_api_version,
14709: l_api_name,G_PKG_NAME)
14710: THEN
14711: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14712: END IF;
14713:
14714: -- PRAKKUM :: VWPE: ER:12673125 :: 23-JUN-2011 :: Upgrade Changes
14715: OPEN c_is_old_visit(p_visit_id);
14718:
14719: IF l_is_old_visit_dets.IS_OLD_VISIT = 'Y' THEN
14720: Fnd_Message.SET_NAME('AHL','AHL_VWP_OVST_SP2P_INV');
14721: Fnd_Msg_Pub.ADD;
14722: RAISE Fnd_Api.G_EXC_ERROR;
14723: END IF;
14724:
14725: -- SKPATHAK :: VWPE: ER:12424063 :: 26-MAY-2011 :: STARTS
14726: -- Validate all the Tasks in the stages being P2Ped
14749: L_DEBUG_KEY,
14750: 'After calling Validate_tasks_bef_production l_return_status= '||l_return_status);
14751: END IF;
14752:
14753: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
14754: x_msg_count := FND_MSG_PUB.count_msg;
14755: IF (l_log_statement >= l_log_current_level) THEN
14756: fnd_log.string(l_log_statement,
14757: L_DEBUG_KEY,
14756: fnd_log.string(l_log_statement,
14757: L_DEBUG_KEY,
14758: 'Errors from PROCESS_JOBS. Message count: ' || x_msg_count);
14759: END IF;
14760: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14761: RAISE FND_API.G_EXC_ERROR;
14762: ELSE
14763: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14764: END IF;
14757: L_DEBUG_KEY,
14758: 'Errors from PROCESS_JOBS. Message count: ' || x_msg_count);
14759: END IF;
14760: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14761: RAISE FND_API.G_EXC_ERROR;
14762: ELSE
14763: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14764: END IF;
14765: END IF; -- Return Status is not Success
14759: END IF;
14760: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14761: RAISE FND_API.G_EXC_ERROR;
14762: ELSE
14763: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14764: END IF;
14765: END IF; -- Return Status is not Success
14766: -- SKPATHAK :: VWPE: ER:12424063 :: 26-MAY-2011 :: ENDS
14767:
14780: IF (p_visit_id IS NOT NULL) THEN
14781: AHL_VWP_RULES_PVT.Validate_Return_To_Supply
14782: (
14783: p_api_version => 1.0,
14784: p_init_msg_list => FND_API.G_FALSE,
14785: p_commit => FND_API.G_FALSE,
14786: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
14787: p_module_type => null,
14788: p_visit_id => null,
14781: AHL_VWP_RULES_PVT.Validate_Return_To_Supply
14782: (
14783: p_api_version => 1.0,
14784: p_init_msg_list => FND_API.G_FALSE,
14785: p_commit => FND_API.G_FALSE,
14786: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
14787: p_module_type => null,
14788: p_visit_id => null,
14789: p_tasks_tbl => l_val_task_tbl,
14782: (
14783: p_api_version => 1.0,
14784: p_init_msg_list => FND_API.G_FALSE,
14785: p_commit => FND_API.G_FALSE,
14786: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
14787: p_module_type => null,
14788: p_visit_id => null,
14789: p_tasks_tbl => l_val_task_tbl,
14790: x_return_status => l_return_status,
14797: L_DEBUG_KEY,
14798: 'After Calling AHL_VWP_RULES_PVT.Validate_Return_To_Supply. Return Status = ' || l_return_status );
14799: END IF;
14800:
14801: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
14802: x_msg_count := l_msg_count;
14803: x_return_status := l_return_status;
14804: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
14805: RAISE Fnd_Api.g_exc_error;
14800:
14801: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
14802: x_msg_count := l_msg_count;
14803: x_return_status := l_return_status;
14804: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
14805: RAISE Fnd_Api.g_exc_error;
14806: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
14807: RAISE Fnd_Api.g_exc_unexpected_error;
14808: END IF;
14801: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
14802: x_msg_count := l_msg_count;
14803: x_return_status := l_return_status;
14804: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
14805: RAISE Fnd_Api.g_exc_error;
14806: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
14807: RAISE Fnd_Api.g_exc_unexpected_error;
14808: END IF;
14809: END IF;
14802: x_msg_count := l_msg_count;
14803: x_return_status := l_return_status;
14804: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
14805: RAISE Fnd_Api.g_exc_error;
14806: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
14807: RAISE Fnd_Api.g_exc_unexpected_error;
14808: END IF;
14809: END IF;
14810: END IF;
14803: x_return_status := l_return_status;
14804: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
14805: RAISE Fnd_Api.g_exc_error;
14806: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
14807: RAISE Fnd_Api.g_exc_unexpected_error;
14808: END IF;
14809: END IF;
14810: END IF;
14811: -- SKPATHAK :: ER:12730539 :: 01-AUG-2011 :: END
14820:
14821: --update the project for the visit.
14822: AHL_VWP_PROJ_PROD_PVT.Integrate_to_Projects
14823: (p_api_version => l_api_version,
14824: p_init_msg_list => FND_API.G_FALSE,
14825: p_commit => FND_API.G_FALSE,
14826: p_validation_level => p_validation_level,
14827: p_module_type => p_module_type,
14828: p_visit_id => p_visit_id,
14821: --update the project for the visit.
14822: AHL_VWP_PROJ_PROD_PVT.Integrate_to_Projects
14823: (p_api_version => l_api_version,
14824: p_init_msg_list => FND_API.G_FALSE,
14825: p_commit => FND_API.G_FALSE,
14826: p_validation_level => p_validation_level,
14827: p_module_type => p_module_type,
14828: p_visit_id => p_visit_id,
14829: x_return_status => l_return_status,
14835: L_DEBUG_KEY,
14836: 'After calling Integrate_to_Projects. l_return_status = ' || l_return_status);
14837: END IF;
14838:
14839: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
14840: x_msg_count := FND_MSG_PUB.count_msg;
14841: IF (l_log_statement >= l_log_current_level) THEN
14842: fnd_log.string(l_log_statement,
14843: L_DEBUG_KEY,
14842: fnd_log.string(l_log_statement,
14843: L_DEBUG_KEY,
14844: 'Errors from Integrate_to_Projects. Message count: ' || x_msg_count);
14845: END IF;
14846: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14847: RAISE FND_API.G_EXC_ERROR;
14848: ELSE
14849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14850: END IF;
14843: L_DEBUG_KEY,
14844: 'Errors from Integrate_to_Projects. Message count: ' || x_msg_count);
14845: END IF;
14846: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14847: RAISE FND_API.G_EXC_ERROR;
14848: ELSE
14849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14850: END IF;
14851: END IF;
14845: END IF;
14846: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14847: RAISE FND_API.G_EXC_ERROR;
14848: ELSE
14849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14850: END IF;
14851: END IF;
14852:
14853: -- SKPATHAK :: ER:12730539 :: 01-AUG-2011 :: START
14860:
14861: IF (p_visit_id IS NOT NULL) THEN
14862: AHL_LTP_REQST_MATRL_PUB.Process_Planned_Materials (
14863: p_api_version => 1.0,
14864: p_init_msg_list => FND_API.G_FALSE,
14865: p_commit => FND_API.G_FALSE,
14866: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
14867: p_visit_id => p_visit_id,
14868: p_operation_flag => 'U',
14861: IF (p_visit_id IS NOT NULL) THEN
14862: AHL_LTP_REQST_MATRL_PUB.Process_Planned_Materials (
14863: p_api_version => 1.0,
14864: p_init_msg_list => FND_API.G_FALSE,
14865: p_commit => FND_API.G_FALSE,
14866: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
14867: p_visit_id => p_visit_id,
14868: p_operation_flag => 'U',
14869: x_planned_order_flag => l_planned_order_flag,
14862: AHL_LTP_REQST_MATRL_PUB.Process_Planned_Materials (
14863: p_api_version => 1.0,
14864: p_init_msg_list => FND_API.G_FALSE,
14865: p_commit => FND_API.G_FALSE,
14866: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
14867: p_visit_id => p_visit_id,
14868: p_operation_flag => 'U',
14869: x_planned_order_flag => l_planned_order_flag,
14870: x_return_status => l_return_status,
14876: L_DEBUG_KEY,
14877: 'After Calling AHL_LTP_REQST_MATRL_PUB.Process_Planned_Materials. Return Status = ' || l_return_status );
14878: END IF;
14879:
14880: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
14881: x_msg_count := l_msg_count;
14882: x_return_status := l_return_status;
14883: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
14884: RAISE Fnd_Api.g_exc_error;
14879:
14880: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
14881: x_msg_count := l_msg_count;
14882: x_return_status := l_return_status;
14883: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
14884: RAISE Fnd_Api.g_exc_error;
14885: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
14886: RAISE Fnd_Api.g_exc_unexpected_error;
14887: END IF;
14880: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
14881: x_msg_count := l_msg_count;
14882: x_return_status := l_return_status;
14883: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
14884: RAISE Fnd_Api.g_exc_error;
14885: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
14886: RAISE Fnd_Api.g_exc_unexpected_error;
14887: END IF;
14888: END IF;
14881: x_msg_count := l_msg_count;
14882: x_return_status := l_return_status;
14883: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
14884: RAISE Fnd_Api.g_exc_error;
14885: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
14886: RAISE Fnd_Api.g_exc_unexpected_error;
14887: END IF;
14888: END IF;
14889: END IF;
14882: x_return_status := l_return_status;
14883: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
14884: RAISE Fnd_Api.g_exc_error;
14885: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
14886: RAISE Fnd_Api.g_exc_unexpected_error;
14887: END IF;
14888: END IF;
14889: END IF;
14890: -- SKPATHAK :: ER:12730539 :: 01-AUG-2011 :: END
14937: 'Error: a stage can only be P2Ped if the Visit Mater WO already exists');
14938: END IF;
14939: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_WO_CANOT_P2P');
14940: Fnd_Msg_Pub.ADD;
14941: RAISE Fnd_Api.G_EXC_ERROR;
14942: END IF; --visit master workorder exists or not
14943: /**Visit Master Workorder Ends**/
14944:
14945: FOR i in p_stages_tbl.FIRST..p_stages_tbl.LAST LOOP --for stages
15026: 'Error: Stage cannot be P2Ped since WO does not exist for the task_id: '||l_task_rec.visit_task_id);
15027: END IF;
15028: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_WO_CANOT_P2P');
15029: Fnd_Msg_Pub.ADD;
15030: RAISE Fnd_Api.G_EXC_ERROR;
15031: END IF; --work order exists or not for this task
15032:
15033: IF (l_log_statement >= l_log_current_level) THEN
15034: fnd_log.string(l_log_statement,
15110:
15111: IF l_max_schedule_start_date > l_visit_dtl_rec.close_date_time THEN -- Validation Error
15112: Fnd_Message.SET_NAME('AHL','AHL_VWP_NON_PS_PLAN_ED_DATE');
15113: Fnd_Msg_Pub.ADD;
15114: RAISE Fnd_Api.G_EXC_ERROR;
15115: END IF;
15116: END IF;
15117: --BUG 13373947 :: PRAKKUM :: 10/02/2012 :: END
15118:
15125:
15126: -- Call Production API to create work orders
15127: AHL_PRD_WORKORDER_PVT.Process_Jobs
15128: (p_api_version => l_api_version ,
15129: p_init_msg_list => FND_API.G_FALSE,
15130: p_commit => FND_API.G_FALSE,
15131: p_validation_level => p_validation_level,
15132: p_default => FND_API.G_TRUE,
15133: p_module_type => p_module_type,
15126: -- Call Production API to create work orders
15127: AHL_PRD_WORKORDER_PVT.Process_Jobs
15128: (p_api_version => l_api_version ,
15129: p_init_msg_list => FND_API.G_FALSE,
15130: p_commit => FND_API.G_FALSE,
15131: p_validation_level => p_validation_level,
15132: p_default => FND_API.G_TRUE,
15133: p_module_type => p_module_type,
15134: x_return_status => l_return_status,
15128: (p_api_version => l_api_version ,
15129: p_init_msg_list => FND_API.G_FALSE,
15130: p_commit => FND_API.G_FALSE,
15131: p_validation_level => p_validation_level,
15132: p_default => FND_API.G_TRUE,
15133: p_module_type => p_module_type,
15134: x_return_status => l_return_status,
15135: x_msg_count => l_msg_count,
15136: x_msg_data => l_msg_data,
15144: 'After calling PROCESS_JOBS for visit_id ' ||
15145: p_visit_id||', l_return_status: '|| l_return_status);
15146: END IF;
15147:
15148: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
15149: x_msg_count := FND_MSG_PUB.count_msg;
15150: IF (l_log_statement >= l_log_current_level) THEN
15151: fnd_log.string(l_log_statement,
15152: L_DEBUG_KEY,
15151: fnd_log.string(l_log_statement,
15152: L_DEBUG_KEY,
15153: 'Errors from PROCESS_JOBS. Message count: ' || x_msg_count);
15154: END IF;
15155: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
15156: RAISE FND_API.G_EXC_ERROR;
15157: ELSE
15158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15159: END IF;
15152: L_DEBUG_KEY,
15153: 'Errors from PROCESS_JOBS. Message count: ' || x_msg_count);
15154: END IF;
15155: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
15156: RAISE FND_API.G_EXC_ERROR;
15157: ELSE
15158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15159: END IF;
15160: END IF; -- Return Status is not Success
15154: END IF;
15155: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
15156: RAISE FND_API.G_EXC_ERROR;
15157: ELSE
15158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15159: END IF;
15160: END IF; -- Return Status is not Success
15161:
15162: IF (l_log_statement >= l_log_current_level) THEN
15194: x_return_status => l_return_status,
15195: x_msg_count => l_msg_count,
15196: x_msg_data => l_msg_data);
15197:
15198: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
15199: x_msg_count := FND_MSG_PUB.count_msg;
15200: IF (l_log_statement >= l_log_current_level) THEN
15201: fnd_log.string(l_log_statement,
15202: L_DEBUG_KEY,
15201: fnd_log.string(l_log_statement,
15202: L_DEBUG_KEY,
15203: 'Errors from Update_Project_Task_Times. Message count: ' || x_msg_count);
15204: END IF;
15205: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
15206: RAISE FND_API.G_EXC_ERROR;
15207: ELSE
15208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15209: END IF;
15202: L_DEBUG_KEY,
15203: 'Errors from Update_Project_Task_Times. Message count: ' || x_msg_count);
15204: END IF;
15205: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
15206: RAISE FND_API.G_EXC_ERROR;
15207: ELSE
15208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15209: END IF;
15210: ELSE
15204: END IF;
15205: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
15206: RAISE FND_API.G_EXC_ERROR;
15207: ELSE
15208: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15209: END IF;
15210: ELSE
15211: IF (l_log_statement >= l_log_current_level) THEN
15212: fnd_log.string(l_log_statement,
15230: END IF;
15231:
15232: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
15233: (p_api_version => 1.0,
15234: p_init_msg_list => FND_API.G_FALSE,
15235: p_commit => FND_API.G_FALSE,
15236: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
15237: p_default => FND_API.G_FALSE,
15238: p_module_type => NULL,
15231:
15232: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
15233: (p_api_version => 1.0,
15234: p_init_msg_list => FND_API.G_FALSE,
15235: p_commit => FND_API.G_FALSE,
15236: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
15237: p_default => FND_API.G_FALSE,
15238: p_module_type => NULL,
15239: x_return_status => l_return_status,
15232: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
15233: (p_api_version => 1.0,
15234: p_init_msg_list => FND_API.G_FALSE,
15235: p_commit => FND_API.G_FALSE,
15236: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
15237: p_default => FND_API.G_FALSE,
15238: p_module_type => NULL,
15239: x_return_status => l_return_status,
15240: x_msg_count => l_msg_count,
15233: (p_api_version => 1.0,
15234: p_init_msg_list => FND_API.G_FALSE,
15235: p_commit => FND_API.G_FALSE,
15236: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
15237: p_default => FND_API.G_FALSE,
15238: p_module_type => NULL,
15239: x_return_status => l_return_status,
15240: x_msg_count => l_msg_count,
15241: x_msg_data => l_msg_data,
15247: fnd_log.string(fnd_log.level_statement,L_DEBUG_KEY,'After calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs - l_return_status : '||l_return_status);
15248: END IF;
15249:
15250: IF l_return_status <> 'S' THEN
15251: RAISE Fnd_Api.G_EXC_ERROR;
15252: END IF;
15253:
15254: UPDATE ahl_visit_tasks_b
15255: SET status_code = 'CANCELLED',
15351: ---------------------------End of Body-------------------------------------
15352: -- END of API body.
15353: -- Standard check of p_commit.
15354:
15355: IF Fnd_Api.To_Boolean (p_commit) THEN
15356: COMMIT WORK;
15357: END IF;
15358:
15359: Fnd_Msg_Pub.count_and_get(
15356: COMMIT WORK;
15357: END IF;
15358:
15359: Fnd_Msg_Pub.count_and_get(
15360: p_encoded => Fnd_Api.g_false,
15361: p_count => x_msg_count,
15362: p_data => x_msg_data
15363: );
15364:
15369: 'At the end of PL SQL procedure. Return Status = ' || x_return_status);
15370: END IF;
15371:
15372: EXCEPTION
15373: WHEN FND_API.G_EXC_ERROR THEN
15374: x_return_status := FND_API.G_RET_STS_ERROR;
15375: ROLLBACK TO Push_stages_to_prodn_pvt;
15376: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
15377: p_data => x_msg_data,
15370: END IF;
15371:
15372: EXCEPTION
15373: WHEN FND_API.G_EXC_ERROR THEN
15374: x_return_status := FND_API.G_RET_STS_ERROR;
15375: ROLLBACK TO Push_stages_to_prodn_pvt;
15376: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
15377: p_data => x_msg_data,
15378: p_encoded => fnd_api.g_false);
15374: x_return_status := FND_API.G_RET_STS_ERROR;
15375: ROLLBACK TO Push_stages_to_prodn_pvt;
15376: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
15377: p_data => x_msg_data,
15378: p_encoded => fnd_api.g_false);
15379:
15380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15381: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
15382: ROLLBACK TO Push_stages_to_prodn_pvt;
15376: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
15377: p_data => x_msg_data,
15378: p_encoded => fnd_api.g_false);
15379:
15380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15381: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
15382: ROLLBACK TO Push_stages_to_prodn_pvt;
15383: Fnd_Msg_Pub.count_and_get (
15384: p_encoded => Fnd_Api.g_false,
15377: p_data => x_msg_data,
15378: p_encoded => fnd_api.g_false);
15379:
15380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15381: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
15382: ROLLBACK TO Push_stages_to_prodn_pvt;
15383: Fnd_Msg_Pub.count_and_get (
15384: p_encoded => Fnd_Api.g_false,
15385: p_count => x_msg_count,
15380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15381: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
15382: ROLLBACK TO Push_stages_to_prodn_pvt;
15383: Fnd_Msg_Pub.count_and_get (
15384: p_encoded => Fnd_Api.g_false,
15385: p_count => x_msg_count,
15386: p_data => x_msg_data);
15387:
15388: WHEN OTHERS THEN
15385: p_count => x_msg_count,
15386: p_data => x_msg_data);
15387:
15388: WHEN OTHERS THEN
15389: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15390: ROLLBACK TO Push_stages_to_prodn_pvt;
15391: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
15392: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
15393: p_procedure_name => 'Push_stages_to_production',
15394: p_error_text => SUBSTR(SQLERRM,1,500));
15395: END IF;
15396: FND_MSG_PUB.count_and_get(p_count => x_msg_count,
15397: p_data => x_msg_data,
15398: p_encoded => fnd_api.g_false);
15399:
15400: END Push_stages_to_production;
15401:
15402: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063 :: ENDS