eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.PA_OPEN_ASSIGNMENT_PVT dependencies on PA_ASSIGNMENTS_PUB

Line 7: ( p_assignment_rec IN PA_ASSIGNMENTS_PUB.Assignment_Rec_Type

3: --
4: P_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
5: li_message_level NUMBER := 1;
6: PROCEDURE Create_Open_Assignment
7: ( p_assignment_rec IN PA_ASSIGNMENTS_PUB.Assignment_Rec_Type
8: ,p_asgn_creation_mode IN VARCHAR2
9: ,p_location_city IN pa_locations.city%TYPE := FND_API.G_MISS_CHAR
10: ,p_location_region IN pa_locations.region%TYPE := FND_API.G_MISS_CHAR
11: ,p_location_country_code IN pa_locations.country_code%TYPE := FND_API.G_MISS_CHAR

Line 26: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;

22: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
23: )
24: IS
25:
26: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
27: l_assignment_id pa_project_assignments.assignment_id%TYPE;
28: l_def_assignment_name pa_project_assignments.assignment_name%TYPE;
29: l_def_min_resource_job_level pa_project_assignments.min_resource_job_level%TYPE;
30: l_def_max_resource_job_level pa_project_assignments.max_resource_job_level%TYPE;

Line 201: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;

197: IF l_assignment_rec.status_code IS NULL THEN
198:
199: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
200: ,p_msg_name => 'PA_START_STATUS_NOT_DEFINED');
201: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
202:
203: END IF;
204:
205: END IF; --asgn creation mode is copy.

Line 221: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;

217: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
218: ,p_msg_name => 'PA_PROJ_ID_REQUIRED_FOR_ASGN'
219: ,p_token1 => 'ASGNTYPE'
220: ,p_value1 => l_req_text);
221: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
222: END IF;
223:
224: --
225: -- Check that mandatory assignment name exists

Line 231: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;

227: IF p_assignment_rec.assignment_name IS NULL OR
228: p_assignment_rec.assignment_name = FND_API.G_MISS_CHAR THEN
229: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
230: ,p_msg_name => 'PA_NAME_REQUIRED_FOR_ASGN');
231: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
232: END IF;
233:
234: --
235: -- Check valid starting status

Line 242: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;

238: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
239: ,p_msg_name => 'PA_INVALID_ASGN_STARTING_STUS'
240: ,p_token1 => 'ASGNTYPE'
241: ,p_value1 => l_req_text);
242: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
243: END IF;
244:
245: --
246: -- Check that mandatory project role exists

Line 254: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;

250: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
251: ,p_msg_name => 'PA_PROJ_ROLE_REQUIRED_FOR_ASGN'
252: ,p_token1 => 'ASGNTYPE'
253: ,p_value1 => l_req_text);
254: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
255: END IF;
256:
257: --if the new requirement is being copied from a requirement or a template
258: --requirement then get the competencies from the source requirement

Line 275: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;

271:
272: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
273: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
274: ,p_msg_name => l_error_message_code );
275: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
276: END IF;
277:
278: ELSE
279:

Line 298: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;

294: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
295:
296: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
297: ,p_msg_name => l_error_message_code );
298: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
299: END IF;
300:
301: IF l_schedulable_flag <> 'Y' THEN
302:

Line 305: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;

301: IF l_schedulable_flag <> 'Y' THEN
302:
303: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
304: ,p_msg_name => 'PA_ROLE_NOT_SCHEDULABLE' );
305: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
306: return;
307: END IF;
308:
309: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN

Line 413: -- PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;

409: END IF;
410:
411: --dbms_output.put_line('after assignment default:'|| l_return_status);
412: --IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
413: -- PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
414: --ELSE
415:
416: END IF;
417:

Line 536: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;

532: OR l_assignment_rec.work_type_id = 0 THEN
533: --dbms_output.put_line('WORK TYPE INVALID');
534: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
535: ,p_msg_name => 'PA_WORK_TYPE_REQUIRED_FOR_ASGN' );
536: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
537:
538: ELSIF l_assignment_rec.project_id IS NOT NULL AND l_assignment_rec.project_id <> FND_API.G_MISS_NUM THEN
539: --
540: --check for indirect project, only non-billable work types if this is NOT

Line 551: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;

547: ,X_ERROR_MESSAGE_CODE => l_error_message_code);
548: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
549: PA_ASSIGNMENT_UTILS.Add_Message( p_app_short_name => 'PA'
550: ,p_msg_name => l_error_message_code );
551: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
552: END IF;
553:
554: END IF;
555:

Line 603: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;

599:
600: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
601: PA_ASSIGNMENT_UTILS.Add_Message ( p_app_short_name => 'PA'
602: ,p_msg_name => l_error_message_code );
603: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
604: END IF;
605:
606: END IF;
607:

Line 898: ,p_project_assignment_id => PA_ASSIGNMENTS_PUB.g_assignment_id_tbl(1).assignment_id

894: ,p_task_version_id_tbl => l_task_version_id_tbl
895: ,p_budget_version_id_tbl => l_budget_version_id_tbl
896: ,p_struct_version_id_tbl => l_struct_version_id_tbl
897: -- change project_assignment_id to this assignment_id
898: ,p_project_assignment_id => PA_ASSIGNMENTS_PUB.g_assignment_id_tbl(1).assignment_id
899: -- ,p_resource_list_member_id => l_assignment_rec.resource_list_member_id
900: -- change the named role to this assignment name
901: ,p_named_role => p_assignment_rec.assignment_name
902: ,p_project_role_id => p_assignment_rec.project_role_id

Line 912: ,p_assignment_id_tbl => PA_ASSIGNMENTS_PUB.g_assignment_id_tbl

908:
909: PA_SCHEDULE_PVT.Create_OPN_ASG_Schedule
910: ( p_project_id => l_assignment_rec.project_id
911: ,p_calendar_id => l_assignment_rec.calendar_id
912: ,p_assignment_id_tbl => PA_ASSIGNMENTS_PUB.g_assignment_id_tbl
913: ,p_assignment_source_id => l_source_assignment_id
914: ,p_start_date => l_assignment_rec.start_date
915: ,p_end_date => l_assignment_rec.end_date
916: ,p_assignment_status_code => l_assignment_rec.status_code

Line 941: FOR i IN PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.FIRST .. PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.LAST LOOP

937: PA_DEBUG.WRITE('PA_OPEN_ASSIGNMENT_PVT.Create_Open_Assignment', 'About to call .Calc_Init_Transfer_Price', 3);
938: PA_DEBUG.WRITE('PA_OPEN_ASSIGNMENT_PVT.Create_Open_Assignment', 'Assignment_id is :'||l_assignment_id||' and start date:'||l_assignment_rec.start_date, 3);
939: END IF;
940:
941: FOR i IN PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.FIRST .. PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.LAST LOOP
942:
943: PA_ASSIGNMENTS_PVT.Calc_Init_Transfer_Price
944: (p_assignment_id => PA_ASSIGNMENTS_PUB.g_assignment_id_tbl(i).assignment_id,
945: p_start_date => l_assignment_rec.start_date,

Line 944: (p_assignment_id => PA_ASSIGNMENTS_PUB.g_assignment_id_tbl(i).assignment_id,

940:
941: FOR i IN PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.FIRST .. PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.LAST LOOP
942:
943: PA_ASSIGNMENTS_PVT.Calc_Init_Transfer_Price
944: (p_assignment_id => PA_ASSIGNMENTS_PUB.g_assignment_id_tbl(i).assignment_id,
945: p_start_date => l_assignment_rec.start_date,
946: p_debug_mode => p_debug_mode,
947: x_return_status => l_return_status,
948: x_msg_data => l_msg_data,

Line 990: FOR i IN PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.FIRST .. PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.LAST LOOP

986:
987:
988: IF FND_MSG_PUB.Count_Msg = 0 THEN
989:
990: FOR i IN PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.FIRST .. PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.LAST LOOP
991: /*Added for bug 2636577*/
992:
993: PA_ADVERTISEMENTS_PUB.g_start_adv_action_set_flag := l_start_adv_action_set_flag;
994:

Line 1000: ' obj_id='||PA_ASSIGNMENTS_PUB.g_assignment_id_tbl(i).assignment_id||

996:
997: IF P_DEBUG_MODE = 'Y' THEN
998: pa_debug.write(x_module => 'pa.plsql.PA_OPEN_ASSIGNMENT_PVT.Create_Open_Assignment'
999: ,x_msg => 'before Apply_Action_Set, action_set_id='||l_adv_action_set_id||
1000: ' obj_id='||PA_ASSIGNMENTS_PUB.g_assignment_id_tbl(i).assignment_id||
1001: ' commit='||p_commit||
1002: ' val='||p_validate_only
1003: ,x_log_level => li_message_level);
1004: END IF;

Line 1009: ,p_object_id => PA_ASSIGNMENTS_PUB.g_assignment_id_tbl(i).assignment_id

1005:
1006: PA_ACTION_SETS_PUB.Apply_Action_Set(
1007: p_action_set_id => l_adv_action_set_id
1008: ,p_object_type => 'OPEN_ASSIGNMENT'
1009: ,p_object_id => PA_ASSIGNMENTS_PUB.g_assignment_id_tbl(i).assignment_id
1010: ,p_perform_action_set_flag => 'Y'
1011: ,p_commit => p_commit
1012: ,p_validate_only => p_validate_only
1013: ,p_init_msg_list => FND_API.G_FALSE

Line 1072: dbms_output.put_line('PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.COUNT='||PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.COUNT);

1068: THEN
1069:
1070: FOR i IN 1..l_competencies_tbl.COUNT LOOP
1071: /*
1072: dbms_output.put_line('PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.COUNT='||PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.COUNT);
1073: dbms_output.put_line('l_assignment_rec.project_id='||l_assignment_rec.project_id);
1074: dbms_output.put_line('l_competencies_tbl(1).competence_id='||l_competencies_tbl(1).competence_id);
1075: dbms_output.put_line('l_competencies_tbl(1).rating_level_id='||l_competencies_tbl(1).rating_level_id);
1076: dbms_output.put_line('l_competencies_tbl(1).mandatory='||l_competencies_tbl(1).mandatory);

Line 1080: ,p_object_id => PA_ASSIGNMENTS_PUB.g_assignment_id_tbl

1076: dbms_output.put_line('l_competencies_tbl(1).mandatory='||l_competencies_tbl(1).mandatory);
1077: */
1078: PA_COMPETENCE_PVT.Add_Competence_Element
1079: ( p_object_name => 'OPEN_ASSIGNMENT'
1080: ,p_object_id => PA_ASSIGNMENTS_PUB.g_assignment_id_tbl
1081: ,p_project_id => l_assignment_rec.project_id
1082: ,p_competence_id => l_competencies_tbl(i).competence_id
1083: ,p_rating_level_id => l_competencies_tbl(i).rating_level_id
1084: ,p_mandatory_flag => l_competencies_tbl(i).mandatory

Line 1103: IF PA_ASSIGNMENTS_PUB.g_error_exists = FND_API.G_TRUE THEN

1099: PA_DEBUG.Reset_Err_Stack;
1100:
1101: -- If g_error_exists is TRUE then set the x_return_status to 'E'
1102:
1103: IF PA_ASSIGNMENTS_PUB.g_error_exists = FND_API.G_TRUE THEN
1104:
1105: x_return_status := FND_API.G_RET_STS_ERROR;
1106:
1107: END IF;

Line 1129: ( p_assignment_rec IN PA_ASSIGNMENTS_PUB.Assignment_Rec_Type

1125: END Create_Open_Assignment;
1126:
1127:
1128: PROCEDURE Update_Open_Assignment
1129: ( p_assignment_rec IN PA_ASSIGNMENTS_PUB.Assignment_Rec_Type
1130: ,p_location_city IN pa_locations.city%TYPE := FND_API.G_MISS_CHAR
1131: ,p_location_region IN pa_locations.region%TYPE := FND_API.G_MISS_CHAR
1132: ,p_location_country_code IN pa_locations.country_code%TYPE := FND_API.G_MISS_CHAR
1133: ,p_commit IN VARCHAR2 := FND_API.G_FALSE

Line 1139: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;

1135: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1136: )
1137: IS
1138:
1139: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
1140: l_old_status_code pa_project_assignments.status_code%TYPE;
1141: l_old_start_date pa_project_assignments.start_date%TYPE;
1142: l_old_end_date pa_project_assignments.end_date%TYPE;
1143: l_return_status VARCHAR2(1);

Line 1672: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;

1668: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1669: ,p_msg_name => 'PA_ASGN_ID_REQUIRED_FOR_ASG'
1670: ,p_token1 => 'ASGNTYPE'
1671: ,p_value1 => l_req_text);
1672: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1673: END IF;
1674:
1675:
1676: --the following validation not required for updating an assignment.

Line 1685: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;

1681: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1682: ,p_msg_name => 'PA_ASGN_NAME_REQUIRED_FOR_ASG'
1683: ,p_token1 => 'ASGNTYPE'
1684: ,p_value1 => l_req_text);
1685: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1686: END IF;
1687:
1688:
1689: --Status code updates and start/end date updates for TEMPLATE REQUIREMENTS ONLY are allowed through this

Line 1710: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;

1706: IF ('Y' <> PA_PROJECT_STUS_UTILS.Allow_Status_Change( o_status_code => l_old_status_code
1707: ,n_status_code => l_assignment_rec.status_code))THEN
1708: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1709: ,p_msg_name => 'PA_ASGN_INV_NEXT_STATUS_CODE');
1710: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1711: END IF;
1712:
1713: END IF;
1714:

Line 1719: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;

1715: --start date <= end_date validation
1716: IF l_assignment_rec.start_date > l_assignment_rec.end_date THEN
1717: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1718: ,p_msg_name => 'PA_INVALID_START_DATE');
1719: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1720: END IF;
1721:
1722: END IF; --project id is null
1723: --

Line 1730: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;

1726: IF l_assignment_rec.work_type_id IS NULL THEN
1727: --dbms_output.put_line('WORK TYPE INVALID');
1728: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1729: ,p_msg_name => 'PA_WORK_TYPE_REQUIRED_FOR_ASGN' );
1730: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1731:
1732: END IF;
1733:
1734:

Line 1758: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;

1754:
1755: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1756: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
1757: ,p_msg_name => l_error_message_code );
1758: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1759: END IF;
1760: END IF;
1761:
1762: /*

Line 1778: --dbms_output.put_line('error exists = '||PA_ASSIGNMENTS_PUB.g_error_exists);

1774: END IF;
1775: */
1776:
1777: --dbms_output.put_line('validate only = '||p_validate_only);
1778: --dbms_output.put_line('error exists = '||PA_ASSIGNMENTS_PUB.g_error_exists);
1779:
1780: IF p_validate_only = FND_API.G_FALSE AND PA_ASSIGNMENTS_PUB.g_error_exists = FND_API.G_FALSE
1781: THEN
1782:

Line 1780: IF p_validate_only = FND_API.G_FALSE AND PA_ASSIGNMENTS_PUB.g_error_exists = FND_API.G_FALSE

1776:
1777: --dbms_output.put_line('validate only = '||p_validate_only);
1778: --dbms_output.put_line('error exists = '||PA_ASSIGNMENTS_PUB.g_error_exists);
1779:
1780: IF p_validate_only = FND_API.G_FALSE AND PA_ASSIGNMENTS_PUB.g_error_exists = FND_API.G_FALSE
1781: THEN
1782:
1783: --Log Message
1784: IF (P_DEBUG_MODE = 'Y') THEN

Line 1876: IF PA_ASSIGNMENTS_PUB.g_error_exists = FND_API.G_TRUE THEN

1872: PA_DEBUG.Reset_Err_Stack;
1873:
1874: -- If g_error_exists is TRUE then set the x_return_status to 'E'
1875:
1876: IF PA_ASSIGNMENTS_PUB.g_error_exists = FND_API.G_TRUE THEN
1877:
1878: x_return_status := FND_API.G_RET_STS_ERROR;
1879:
1880: END IF;

Line 1940: IF p_validate_only = FND_API.G_FALSE AND PA_ASSIGNMENTS_PUB.g_error_exists <> FND_API.G_TRUE THEN

1936:
1937: -- Initialize the return status to success
1938: x_return_status := FND_API.G_RET_STS_SUCCESS;
1939:
1940: IF p_validate_only = FND_API.G_FALSE AND PA_ASSIGNMENTS_PUB.g_error_exists <> FND_API.G_TRUE THEN
1941:
1942: IF p_calling_module <> 'TEMPLATE_REQUIREMENT' THEN
1943:
1944: --Log Message

Line 2064: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;

2060:
2061: END IF; --competency tbl is not null
2062:
2063: IF (l_msg_count_sum > 0 ) THEN
2064: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
2065: ELSE
2066:
2067: --Log Message
2068: IF (P_DEBUG_MODE = 'Y') THEN

Line 2090: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;

2086:
2087: ELSE
2088: PA_UTILS.Add_Message( p_app_short_name => 'PA'
2089: ,p_msg_name => l_error_message_code);
2090: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
2091: END IF; --success getting the competencies
2092:
2093: ELSE
2094:

Line 2097: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;

2093: ELSE
2094:
2095: PA_UTILS.Add_Message( p_app_short_name => 'PA'
2096: ,p_msg_name => 'PA_FAILED_TO_DEL_ASGN_SCHEDULE');
2097: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
2098:
2099: END IF; --success deleting the schedule
2100:
2101: END IF; --validate only is false and no errors exist

Line 2106: IF PA_ASSIGNMENTS_PUB.g_error_exists = FND_API.G_TRUE THEN

2102:
2103:
2104: -- If g_error_exists is TRUE then set the x_return_status to 'E'
2105:
2106: IF PA_ASSIGNMENTS_PUB.g_error_exists = FND_API.G_TRUE THEN
2107:
2108: x_return_status := FND_API.G_RET_STS_ERROR;
2109:
2110: END IF;