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 204: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

900: ,p_task_version_id_tbl => l_task_version_id_tbl
901: ,p_budget_version_id_tbl => l_budget_version_id_tbl
902: ,p_struct_version_id_tbl => l_struct_version_id_tbl
903: -- change project_assignment_id to this assignment_id
904: ,p_project_assignment_id => PA_ASSIGNMENTS_PUB.g_assignment_id_tbl(1).assignment_id
905: -- ,p_resource_list_member_id => l_assignment_rec.resource_list_member_id
906: -- change the named role to this assignment name
907: ,p_named_role => p_assignment_rec.assignment_name
908: ,p_project_role_id => p_assignment_rec.project_role_id

Line 918: ,p_assignment_id_tbl => PA_ASSIGNMENTS_PUB.g_assignment_id_tbl

914:
915: PA_SCHEDULE_PVT.Create_OPN_ASG_Schedule
916: ( p_project_id => l_assignment_rec.project_id
917: ,p_calendar_id => l_assignment_rec.calendar_id
918: ,p_assignment_id_tbl => PA_ASSIGNMENTS_PUB.g_assignment_id_tbl
919: ,p_assignment_source_id => l_source_assignment_id
920: ,p_start_date => l_assignment_rec.start_date
921: ,p_end_date => l_assignment_rec.end_date
922: ,p_assignment_status_code => l_assignment_rec.status_code

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

943: PA_DEBUG.WRITE('PA_OPEN_ASSIGNMENT_PVT.Create_Open_Assignment', 'About to call .Calc_Init_Transfer_Price', 3);
944: 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);
945: END IF;
946:
947: FOR i IN PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.FIRST .. PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.LAST LOOP
948:
949: PA_ASSIGNMENTS_PVT.Calc_Init_Transfer_Price
950: (p_assignment_id => PA_ASSIGNMENTS_PUB.g_assignment_id_tbl(i).assignment_id,
951: p_start_date => l_assignment_rec.start_date,

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

946:
947: FOR i IN PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.FIRST .. PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.LAST LOOP
948:
949: PA_ASSIGNMENTS_PVT.Calc_Init_Transfer_Price
950: (p_assignment_id => PA_ASSIGNMENTS_PUB.g_assignment_id_tbl(i).assignment_id,
951: p_start_date => l_assignment_rec.start_date,
952: p_debug_mode => p_debug_mode,
953: x_return_status => l_return_status,
954: x_msg_data => l_msg_data,

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

992:
993:
994: IF FND_MSG_PUB.Count_Msg = 0 THEN
995:
996: FOR i IN PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.FIRST .. PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.LAST LOOP
997: /*Added for bug 2636577*/
998:
999: PA_ADVERTISEMENTS_PUB.g_start_adv_action_set_flag := l_start_adv_action_set_flag;
1000:

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

1002:
1003: IF P_DEBUG_MODE = 'Y' THEN
1004: pa_debug.write(x_module => 'pa.plsql.PA_OPEN_ASSIGNMENT_PVT.Create_Open_Assignment'
1005: ,x_msg => 'before Apply_Action_Set, action_set_id='||l_adv_action_set_id||
1006: ' obj_id='||PA_ASSIGNMENTS_PUB.g_assignment_id_tbl(i).assignment_id||
1007: ' commit='||p_commit||
1008: ' val='||p_validate_only
1009: ,x_log_level => li_message_level);
1010: END IF;

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

1011:
1012: PA_ACTION_SETS_PUB.Apply_Action_Set(
1013: p_action_set_id => l_adv_action_set_id
1014: ,p_object_type => 'OPEN_ASSIGNMENT'
1015: ,p_object_id => PA_ASSIGNMENTS_PUB.g_assignment_id_tbl(i).assignment_id
1016: ,p_perform_action_set_flag => 'Y'
1017: ,p_commit => p_commit
1018: ,p_validate_only => p_validate_only
1019: ,p_init_msg_list => FND_API.G_FALSE

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

1074: THEN
1075:
1076: FOR i IN 1..l_competencies_tbl.COUNT LOOP
1077: /*
1078: dbms_output.put_line('PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.COUNT='||PA_ASSIGNMENTS_PUB.g_assignment_id_tbl.COUNT);
1079: dbms_output.put_line('l_assignment_rec.project_id='||l_assignment_rec.project_id);
1080: dbms_output.put_line('l_competencies_tbl(1).competence_id='||l_competencies_tbl(1).competence_id);
1081: dbms_output.put_line('l_competencies_tbl(1).rating_level_id='||l_competencies_tbl(1).rating_level_id);
1082: dbms_output.put_line('l_competencies_tbl(1).mandatory='||l_competencies_tbl(1).mandatory);

Line 1086: ,p_object_id => PA_ASSIGNMENTS_PUB.g_assignment_id_tbl

1082: dbms_output.put_line('l_competencies_tbl(1).mandatory='||l_competencies_tbl(1).mandatory);
1083: */
1084: PA_COMPETENCE_PVT.Add_Competence_Element
1085: ( p_object_name => 'OPEN_ASSIGNMENT'
1086: ,p_object_id => PA_ASSIGNMENTS_PUB.g_assignment_id_tbl
1087: ,p_project_id => l_assignment_rec.project_id
1088: ,p_competence_id => l_competencies_tbl(i).competence_id
1089: ,p_rating_level_id => l_competencies_tbl(i).rating_level_id
1090: ,p_mandatory_flag => l_competencies_tbl(i).mandatory

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

1105: PA_DEBUG.Reset_Err_Stack;
1106:
1107: -- If g_error_exists is TRUE then set the x_return_status to 'E'
1108:
1109: IF PA_ASSIGNMENTS_PUB.g_error_exists = FND_API.G_TRUE THEN
1110:
1111: x_return_status := FND_API.G_RET_STS_ERROR;
1112:
1113: END IF;

Line 1135: ( p_assignment_rec IN PA_ASSIGNMENTS_PUB.Assignment_Rec_Type

1131: END Create_Open_Assignment;
1132:
1133:
1134: PROCEDURE Update_Open_Assignment
1135: ( p_assignment_rec IN PA_ASSIGNMENTS_PUB.Assignment_Rec_Type
1136: ,p_location_city IN pa_locations.city%TYPE := FND_API.G_MISS_CHAR
1137: ,p_location_region IN pa_locations.region%TYPE := FND_API.G_MISS_CHAR
1138: ,p_location_country_code IN pa_locations.country_code%TYPE := FND_API.G_MISS_CHAR
1139: ,p_commit IN VARCHAR2 := FND_API.G_FALSE

Line 1145: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;

1141: ,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
1142: )
1143: IS
1144:
1145: l_assignment_rec PA_ASSIGNMENTS_PUB.Assignment_Rec_Type;
1146: l_old_status_code pa_project_assignments.status_code%TYPE;
1147: l_old_start_date pa_project_assignments.start_date%TYPE;
1148: l_old_end_date pa_project_assignments.end_date%TYPE;
1149: l_return_status VARCHAR2(1);

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

1674: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1675: ,p_msg_name => 'PA_ASGN_ID_REQUIRED_FOR_ASG'
1676: ,p_token1 => 'ASGNTYPE'
1677: ,p_value1 => l_req_text);
1678: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1679: END IF;
1680:
1681:
1682: --the following validation not required for updating an assignment.

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

1687: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1688: ,p_msg_name => 'PA_ASGN_NAME_REQUIRED_FOR_ASG'
1689: ,p_token1 => 'ASGNTYPE'
1690: ,p_value1 => l_req_text);
1691: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1692: END IF;
1693:
1694:
1695: --Status code updates and start/end date updates for TEMPLATE REQUIREMENTS ONLY are allowed through this

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

1712: IF ('Y' <> PA_PROJECT_STUS_UTILS.Allow_Status_Change( o_status_code => l_old_status_code
1713: ,n_status_code => l_assignment_rec.status_code))THEN
1714: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1715: ,p_msg_name => 'PA_ASGN_INV_NEXT_STATUS_CODE');
1716: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1717: END IF;
1718:
1719: END IF;
1720:

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

1721: --start date <= end_date validation
1722: IF l_assignment_rec.start_date > l_assignment_rec.end_date THEN
1723: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1724: ,p_msg_name => 'PA_INVALID_START_DATE');
1725: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1726: END IF;
1727:
1728: END IF; --project id is null
1729: --

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

1732: IF l_assignment_rec.work_type_id IS NULL THEN
1733: --dbms_output.put_line('WORK TYPE INVALID');
1734: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1735: ,p_msg_name => 'PA_WORK_TYPE_REQUIRED_FOR_ASGN' );
1736: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1737:
1738: END IF;
1739:
1740:

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

1760:
1761: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1762: PA_UTILS.Add_Message ( p_app_short_name => 'PA'
1763: ,p_msg_name => l_error_message_code );
1764: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
1765: END IF;
1766: END IF;
1767:
1768: /*

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

1780: END IF;
1781: */
1782:
1783: --dbms_output.put_line('validate only = '||p_validate_only);
1784: --dbms_output.put_line('error exists = '||PA_ASSIGNMENTS_PUB.g_error_exists);
1785:
1786: IF p_validate_only = FND_API.G_FALSE AND PA_ASSIGNMENTS_PUB.g_error_exists = FND_API.G_FALSE
1787: THEN
1788:

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

1782:
1783: --dbms_output.put_line('validate only = '||p_validate_only);
1784: --dbms_output.put_line('error exists = '||PA_ASSIGNMENTS_PUB.g_error_exists);
1785:
1786: IF p_validate_only = FND_API.G_FALSE AND PA_ASSIGNMENTS_PUB.g_error_exists = FND_API.G_FALSE
1787: THEN
1788:
1789: --Log Message
1790: IF (P_DEBUG_MODE = 'Y') THEN

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

1878: PA_DEBUG.Reset_Err_Stack;
1879:
1880: -- If g_error_exists is TRUE then set the x_return_status to 'E'
1881:
1882: IF PA_ASSIGNMENTS_PUB.g_error_exists = FND_API.G_TRUE THEN
1883:
1884: x_return_status := FND_API.G_RET_STS_ERROR;
1885:
1886: END IF;

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

1942:
1943: -- Initialize the return status to success
1944: x_return_status := FND_API.G_RET_STS_SUCCESS;
1945:
1946: IF p_validate_only = FND_API.G_FALSE AND PA_ASSIGNMENTS_PUB.g_error_exists <> FND_API.G_TRUE THEN
1947:
1948: IF p_calling_module <> 'TEMPLATE_REQUIREMENT' THEN
1949:
1950: --Log Message

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

2066:
2067: END IF; --competency tbl is not null
2068:
2069: IF (l_msg_count_sum > 0 ) THEN
2070: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
2071: ELSE
2072:
2073: --Log Message
2074: IF (P_DEBUG_MODE = 'Y') THEN

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

2092:
2093: ELSE
2094: PA_UTILS.Add_Message( p_app_short_name => 'PA'
2095: ,p_msg_name => l_error_message_code);
2096: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
2097: END IF; --success getting the competencies
2098:
2099: ELSE
2100:

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

2099: ELSE
2100:
2101: PA_UTILS.Add_Message( p_app_short_name => 'PA'
2102: ,p_msg_name => 'PA_FAILED_TO_DEL_ASGN_SCHEDULE');
2103: PA_ASSIGNMENTS_PUB.g_error_exists := FND_API.G_TRUE;
2104:
2105: END IF; --success deleting the schedule
2106:
2107: END IF; --validate only is false and no errors exist

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

2108:
2109:
2110: -- If g_error_exists is TRUE then set the x_return_status to 'E'
2111:
2112: IF PA_ASSIGNMENTS_PUB.g_error_exists = FND_API.G_TRUE THEN
2113:
2114: x_return_status := FND_API.G_RET_STS_ERROR;
2115:
2116: END IF;