65: -- To Check_Visit_Task_Req_Items
66: PROCEDURE Check_Visit_Task_Req_Items (
67: p_task_rec IN AHL_VWP_RULES_PVT.Task_Rec_Type,
68: --Added by rnahata for Issue 105
69: p_validation_mode IN VARCHAR2 := Jtf_Plsql_Api.g_create,
70: x_return_status OUT NOCOPY VARCHAR2
71: );
72:
73: -- To Check_Visit_Task_UK_Items
72:
73: -- To Check_Visit_Task_UK_Items
74: PROCEDURE Check_Visit_Task_UK_Items (
75: p_task_rec IN AHL_VWP_RULES_PVT.Task_Rec_Type,
76: p_validation_mode IN VARCHAR2 := Jtf_Plsql_Api.g_create,
77: x_return_status OUT NOCOPY VARCHAR2
78: );
79:
80: -- To Check_Task_Items
79:
80: -- To Check_Task_Items
81: PROCEDURE Check_Task_Items (
82: p_Task_rec IN AHL_VWP_RULES_PVT.task_rec_type,
83: p_validation_mode IN VARCHAR2 := Jtf_Plsql_Api.g_create,
84: x_return_status OUT NOCOPY VARCHAR2
85: );
86:
87: -- To Validate_Visit_Task
4140: END IF;
4141:
4142: -- post 11.5.10 changes by Senthil end
4143:
4144: IF p_validation_level >= Jtf_Plsql_Api.g_valid_level_item THEN
4145: Check_Task_Items (
4146: p_task_rec => p_x_task_rec,
4147: p_validation_mode => Jtf_Plsql_Api.g_update,
4148: x_return_status => l_return_status
4143:
4144: IF p_validation_level >= Jtf_Plsql_Api.g_valid_level_item THEN
4145: Check_Task_Items (
4146: p_task_rec => p_x_task_rec,
4147: p_validation_mode => Jtf_Plsql_Api.g_update,
4148: x_return_status => l_return_status
4149: );
4150: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4151: RAISE Fnd_Api.g_exc_unexpected_error;
4704: (
4705: p_x_task_rec => l_Task_rec
4706: );
4707:
4708: IF p_validation_level >= Jtf_Plsql_Api.g_valid_level_item THEN
4709: Check_Task_Items (
4710: p_task_rec => p_x_task_rec,
4711: p_validation_mode => Jtf_Plsql_Api.g_update,
4712: x_return_status => l_return_status
4707:
4708: IF p_validation_level >= Jtf_Plsql_Api.g_valid_level_item THEN
4709: Check_Task_Items (
4710: p_task_rec => p_x_task_rec,
4711: p_validation_mode => Jtf_Plsql_Api.g_update,
4712: x_return_status => l_return_status
4713: );
4714: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
4715: RAISE Fnd_Api.g_exc_unexpected_error;
7138: L_DEBUG_KEY,
7139: ':Check items1');
7140: END IF;
7141:
7142: IF p_validation_level >= Jtf_Plsql_Api.g_valid_level_item THEN
7143: Check_Task_Items (
7144: p_task_rec => p_task_rec,
7145: p_validation_mode => Jtf_Plsql_Api.g_create,
7146: x_return_status => l_return_status
7141:
7142: IF p_validation_level >= Jtf_Plsql_Api.g_valid_level_item THEN
7143: Check_Task_Items (
7144: p_task_rec => p_task_rec,
7145: p_validation_mode => Jtf_Plsql_Api.g_create,
7146: x_return_status => l_return_status
7147: );
7148: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
7149: RAISE Fnd_Api.g_exc_unexpected_error;
7207: --
7208: ---------------------------------------------------------------------
7209: PROCEDURE Check_Task_Items (
7210: p_task_rec IN AHL_VWP_RULES_PVT.Task_Rec_Type,
7211: p_validation_mode IN VARCHAR2 := Jtf_Plsql_Api.g_create,
7212:
7213: x_return_status OUT NOCOPY VARCHAR2
7214: )
7215: IS
7313: ---------------------------------------------------------------------
7314: PROCEDURE Check_Visit_Task_Req_Items (
7315: p_task_rec IN AHL_VWP_RULES_PVT.Task_Rec_Type,
7316: -- Added by rnahata for Issue 105 - validation mode parameter
7317: p_validation_mode IN VARCHAR2 := Jtf_Plsql_Api.g_create,
7318: x_return_status OUT NOCOPY VARCHAR2
7319: )
7320: IS
7321: L_API_NAME CONSTANT VARCHAR2(30) := 'Check_Visit_Task_Req_Items';
7374: x_return_status := Fnd_Api.g_ret_sts_error;
7375: END IF;
7376: END IF;
7377:
7378: IF ( p_validation_mode = Jtf_Plsql_Api.g_create ) THEN
7379: -- Begin changes by rnahata for Issue 105
7380: -- Check if the serial number is present only for serialised instances.
7381: OPEN c_check_inst_nonserial (p_task_rec.instance_id);
7382: FETCH c_check_inst_nonserial INTO l_serial_ctrl;
7422: --
7423: ---------------------------------------------------------------------
7424: PROCEDURE Check_Visit_Task_UK_Items (
7425: p_task_rec IN AHL_VWP_RULES_PVT.Task_Rec_Type,
7426: p_validation_mode IN VARCHAR2 := Jtf_Plsql_Api.g_create,
7427: x_return_status OUT NOCOPY VARCHAR2
7428: )
7429: IS
7430: l_valid_flag VARCHAR2(1);
7441: --
7442: -- For Task, when ID is passed in, we need to
7443: -- check if this ID is unique.
7444:
7445: IF p_validation_mode = Jtf_Plsql_Api.g_create
7446: AND p_task_rec.Visit_Task_ID IS NOT NULL
7447: THEN
7448:
7449: IF (l_log_statement >= l_log_current_level) THEN