40:
41: -- Standard Start of API savepoint
42: SAVEPOINT Delete_Visit_Type;
43:
44: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
45: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
46: END IF;
47:
48: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
41: -- Standard Start of API savepoint
42: SAVEPOINT Delete_Visit_Type;
43:
44: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
45: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
46: END IF;
47:
48: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
49: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Type id of the record to be deleted '|| p_visit_type_id);
44: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
45: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
46: END IF;
47:
48: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
49: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Type id of the record to be deleted '|| p_visit_type_id);
50: END IF;
51:
52: -- Initialize API return status to success
45: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
46: END IF;
47:
48: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
49: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Type id of the record to be deleted '|| p_visit_type_id);
50: END IF;
51:
52: -- Initialize API return status to success
53: -- Initialize message list if p_init_msg_list is set to TRUE.
117: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
118: COMMIT;
119: END IF;
120:
121: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
122: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
123: END IF;
124:
125: EXCEPTION
118: COMMIT;
119: END IF;
120:
121: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
122: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
123: END IF;
124:
125: EXCEPTION
126:
230:
231: -- Standard Start of API savepoint
232: SAVEPOINT Complete_Visit_Type;
233:
234: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
235: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
236: END IF;
237:
238: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
231: -- Standard Start of API savepoint
232: SAVEPOINT Complete_Visit_Type;
233:
234: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
235: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
236: END IF;
237:
238: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
239: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Type id of the record to be Completed '|| p_visit_type_id);
234: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
235: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
236: END IF;
237:
238: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
239: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Type id of the record to be Completed '|| p_visit_type_id);
240: END IF;
241:
242: -- Initialize API return status to success
235: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
236: END IF;
237:
238: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
239: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Type id of the record to be Completed '|| p_visit_type_id);
240: END IF;
241:
242: -- Initialize API return status to success
243: -- Initialize message list if p_init_msg_list is set to TRUE.
316: x_msg_count => l_msg_count,
317: x_msg_data => l_msg_data
318: );
319:
320: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
321: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Return Status after calling Delete_Visit_Type = '|| l_return_status);
322: END IF;
323:
324: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
317: x_msg_data => l_msg_data
318: );
319:
320: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
321: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Return Status after calling Delete_Visit_Type = '|| l_return_status);
322: END IF;
323:
324: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
325: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
359: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
360: COMMIT;
361: END IF;
362:
363: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
364: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
365: END IF;
366:
367: EXCEPTION
360: COMMIT;
361: END IF;
362:
363: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
364: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
365: END IF;
366:
367: EXCEPTION
368:
464:
465: -- Standard Start of API savepoint
466: SAVEPOINT Create_Rev_Visit_Type;
467:
468: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
469: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
470: END IF;
471:
472: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
465: -- Standard Start of API savepoint
466: SAVEPOINT Create_Rev_Visit_Type;
467:
468: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
469: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
470: END IF;
471:
472: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
473: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Type id of the record whose revision is created '|| p_par_visit_type_id);
468: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
469: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
470: END IF;
471:
472: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
473: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Type id of the record whose revision is created '|| p_par_visit_type_id);
474: END IF;
475:
476: -- Initialize message list if p_init_msg_list is set to TRUE.
469: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
470: END IF;
471:
472: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
473: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit Type id of the record whose revision is created '|| p_par_visit_type_id);
474: END IF;
475:
476: -- Initialize message list if p_init_msg_list is set to TRUE.
477: IF FND_API.to_boolean(p_init_msg_list) THEN
863: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
864: COMMIT;
865: END IF;
866:
867: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
868: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
869: END IF;
870:
871: EXCEPTION
864: COMMIT;
865: END IF;
866:
867: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
868: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.end','At the end of PLSQL procedure');
869: END IF;
870:
871: EXCEPTION
872:
947: AND VST_TYP.VISIT_TYPE_ID = C_VISIT_TYPE_ID) QRSLT;
948:
949: BEGIN
950:
951: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
952: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
953: END IF;
954:
955: OPEN GET_MAX_UPDATE_DATE(P_VISIT_TYPE_ID);
948:
949: BEGIN
950:
951: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
952: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
953: END IF;
954:
955: OPEN GET_MAX_UPDATE_DATE(P_VISIT_TYPE_ID);
956: FETCH GET_MAX_UPDATE_DATE INTO L_MAX_UPDATE_DATE;
955: OPEN GET_MAX_UPDATE_DATE(P_VISIT_TYPE_ID);
956: FETCH GET_MAX_UPDATE_DATE INTO L_MAX_UPDATE_DATE;
957: CLOSE GET_MAX_UPDATE_DATE;
958:
959: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
960: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the end of PLSQL procedure');
961: END IF;
962:
963: RETURN L_MAX_UPDATE_DATE;
956: FETCH GET_MAX_UPDATE_DATE INTO L_MAX_UPDATE_DATE;
957: CLOSE GET_MAX_UPDATE_DATE;
958:
959: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
960: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the end of PLSQL procedure');
961: END IF;
962:
963: RETURN L_MAX_UPDATE_DATE;
964: