DBA Data[Home] [Help]

APPS.PER_BUDGET_VERSION_RULES_PKG dependencies on HR_UTILITY

Line 27: hr_utility.set_location('Entering:'||l_proc, 5);

23: l_proc VARCHAR2(72) := g_package||'Delete_Row';
24: --
25: BEGIN
26: --
27: hr_utility.set_location('Entering:'||l_proc, 5);
28: --
29: SELECT pbv.budget_id
30: INTO l_budget_id
31: FROM per_budget_versions pbv

Line 49: hr_utility.set_message(800,'PER_52876_BUD_VER_DELETE_FAIL');

45: FETCH C_Elements into l_ele_rowid;
46: IF C_Elements%FOUND THEN
47: CLOSE C_Elements;
48: --raise error as child record has been found
49: hr_utility.set_message(800,'PER_52876_BUD_VER_DELETE_FAIL');
50: hr_utility.raise_error;
51: END IF;
52: END IF;
53: CLOSE C_Elements;

Line 50: hr_utility.raise_error;

46: IF C_Elements%FOUND THEN
47: CLOSE C_Elements;
48: --raise error as child record has been found
49: hr_utility.set_message(800,'PER_52876_BUD_VER_DELETE_FAIL');
50: hr_utility.raise_error;
51: END IF;
52: END IF;
53: CLOSE C_Elements;
54:

Line 59: hr_utility.set_location(' Leaving:'||l_proc, 10);

55: --now delete the version
56: DELETE FROM per_budget_versions
57: WHERE Rowid = X_Rowid;
58: --
59: hr_utility.set_location(' Leaving:'||l_proc, 10);
60: --
61: END Delete_Row;
62: --
63: -- ----------------------------------------------------------------------------

Line 75: hr_utility.set_location('Entering:'||l_proc, 5);

71: l_proc VARCHAR2(72) := g_package||'Vers_Exists';
72: --
73: Begin
74: --
75: hr_utility.set_location('Entering:'||l_proc, 5);
76: --
77: SELECT null
78: INTO l_result
79: FROM per_budget_versions pbv

Line 87: hr_utility.set_location(' Leaving:'||l_proc, 10);

83: If (SQL%FOUND) then
84: Return TRUE;
85: End if;
86: --
87: hr_utility.set_location(' Leaving:'||l_proc, 10);
88: --
89: Exception
90: when no_data_found then
91: Return FALSE;

Line 139: hr_utility.set_location('Entering:'||l_proc, 5);

135: --
136:
137: Begin
138: --
139: hr_utility.set_location('Entering:'||l_proc, 5);
140: --
141: Begin
142: OPEN Before;
143: FETCH Before into l_date_to,l_date_from;

Line 173: hr_utility.set_location(' Leaving:'||l_proc, 10);

169: CLOSE After;
170: End if;
171: --
172: --
173: hr_utility.set_location(' Leaving:'||l_proc, 10);
174: --
175: exception
176: when no_data_found then
177: CLOSE After;

Line 224: hr_utility.set_location('Entering:'||l_proc, 5);

220: l_proc VARCHAR2(72) := g_package||'Overlap_Exists';
221: --
222: Begin
223: --
224: hr_utility.set_location('Entering:'||l_proc, 5);
225: --
226: --
227: Begin
228: OPEN Before;

Line 254: hr_utility.set_location(' Leaving:'||l_proc, 10);

250: CLOSE After;
251: End if;
252:
253: --
254: hr_utility.set_location(' Leaving:'||l_proc, 10);
255: --
256: Exception
257: when no_data_found then
258: CLOSE After;

Line 305: hr_utility.set_location('Entering:'||l_proc, 5);

301: l_proc VARCHAR2(72) := g_package||'Update_Versions';
302: --
303: Begin
304: --
305: hr_utility.set_location('Entering:'||l_proc, 5);
306: --
307: --
308: OPEN C;
309: FETCH C into l_date_from,l_date_to;

Line 340: hr_utility.set_location(' Leaving:'||l_proc, 10);

336: End if;
337: end if;
338:
339: --
340: hr_utility.set_location(' Leaving:'||l_proc, 10);
341: --
342: Exception
343: when no_data_found then
344: CLOSE C;

Line 360: hr_utility.set_location('Entering:'||l_proc, 5);

356: --
357: l_proc VARCHAR2(72) := g_package||'Chk_Prev_Rec';
358: Begin
359: --
360: hr_utility.set_location('Entering:'||l_proc, 5);
361: --
362: --
363: -- First check if there are any other versions apart from the present one.
364: --

Line 373: hr_utility.set_message('801','HR_6105_BUD_OVERLAP');

369: If Overlap_Exists(X_Budget_Id,X_Rowid,X_Date_From,X_Date_To) then
370: --
371: -- prevent the operation
372: --
373: hr_utility.set_message('801','HR_6105_BUD_OVERLAP');
374: hr_utility.raise_error;
375: End if;
376: --
377: -- now update the other version if neccessary.

Line 374: hr_utility.raise_error;

370: --
371: -- prevent the operation
372: --
373: hr_utility.set_message('801','HR_6105_BUD_OVERLAP');
374: hr_utility.raise_error;
375: End if;
376: --
377: -- now update the other version if neccessary.
378: --

Line 394: hr_utility.set_location(' Leaving:'||l_proc, 10);

390: End If;
391: --
392: End if;
393: --
394: hr_utility.set_location(' Leaving:'||l_proc, 10);
395: --
396: --
397: END Chk_Prev_Rec;
398: --

Line 406: hr_utility.set_location('Entering:'||l_proc, 5);

402: PROCEDURE Get_Id(X_Budget_Version_Id IN OUT NOCOPY NUMBER) IS
403: l_proc VARCHAR2(72) := g_package||'Get_Id';
404: BEGIN
405: --
406: hr_utility.set_location('Entering:'||l_proc, 5);
407: --
408: SELECT per_budget_versions_s.nextval
409: INTO X_Budget_Version_Id
410: FROM dual;

Line 413: hr_utility.set_location(' Leaving:'||l_proc, 10);

409: INTO X_Budget_Version_Id
410: FROM dual;
411:
412: --
413: hr_utility.set_location(' Leaving:'||l_proc, 10);
414: --
415: End Get_Id;
416:
417: -- ----------------------------------------------------------------------------

Line 424: hr_utility.set_location('Entering:'||l_proc, 5);

420: PROCEDURE Chk_Version_Number(X_Version_Number IN VARCHAR2) IS
421: l_proc VARCHAR2(72) := g_package||'Chk_Version_Number';
422: BEGIN
423: --
424: hr_utility.set_location('Entering:'||l_proc, 5);
425: --
426: IF X_Version_Number <> '1' THEN
427: hr_utility.set_message(800,'PER_52875_INV_VERSION_NUM');
428: hr_utility.raise_error;

Line 427: hr_utility.set_message(800,'PER_52875_INV_VERSION_NUM');

423: --
424: hr_utility.set_location('Entering:'||l_proc, 5);
425: --
426: IF X_Version_Number <> '1' THEN
427: hr_utility.set_message(800,'PER_52875_INV_VERSION_NUM');
428: hr_utility.raise_error;
429: END IF;
430: --
431: hr_utility.set_location(' Leaving:'||l_proc, 10);

Line 428: hr_utility.raise_error;

424: hr_utility.set_location('Entering:'||l_proc, 5);
425: --
426: IF X_Version_Number <> '1' THEN
427: hr_utility.set_message(800,'PER_52875_INV_VERSION_NUM');
428: hr_utility.raise_error;
429: END IF;
430: --
431: hr_utility.set_location(' Leaving:'||l_proc, 10);
432: --

Line 431: hr_utility.set_location(' Leaving:'||l_proc, 10);

427: hr_utility.set_message(800,'PER_52875_INV_VERSION_NUM');
428: hr_utility.raise_error;
429: END IF;
430: --
431: hr_utility.set_location(' Leaving:'||l_proc, 10);
432: --
433: End Chk_Version_Number;
434:
435: -- ----------------------------------------------------------------------------

Line 452: hr_utility.set_location('Entering:'||l_proc, 5);

448: l_proc VARCHAR2(72) := g_package||'Chk_Budget_Version_Id';
449:
450: BEGIN
451: --
452: hr_utility.set_location('Entering:'||l_proc, 5);
453: --
454: OPEN c_bdv;
455: FETCH c_bdv INTO l_result;
456: IF c_bdv%FOUND THEN

Line 458: hr_utility.set_message(801,'HR_6107_BUD_VER_EXISTS');

454: OPEN c_bdv;
455: FETCH c_bdv INTO l_result;
456: IF c_bdv%FOUND THEN
457: CLOSE c_bdv;
458: hr_utility.set_message(801,'HR_6107_BUD_VER_EXISTS');
459: hr_utility.raise_error;
460: END IF;
461: CLOSE c_bdv;
462: --

Line 459: hr_utility.raise_error;

455: FETCH c_bdv INTO l_result;
456: IF c_bdv%FOUND THEN
457: CLOSE c_bdv;
458: hr_utility.set_message(801,'HR_6107_BUD_VER_EXISTS');
459: hr_utility.raise_error;
460: END IF;
461: CLOSE c_bdv;
462: --
463: hr_utility.set_location(' Leaving:'||l_proc, 10);

Line 463: hr_utility.set_location(' Leaving:'||l_proc, 10);

459: hr_utility.raise_error;
460: END IF;
461: CLOSE c_bdv;
462: --
463: hr_utility.set_location(' Leaving:'||l_proc, 10);
464: --
465: End Chk_Budget_Version_Id;
466:
467: -- ----------------------------------------------------------------------------

Line 496: hr_utility.set_location('Entering:'||l_proc, 5);

492: l_proc VARCHAR2(72) := g_package||'Chk_df';
493:
494: BEGIN
495: --
496: hr_utility.set_location('Entering:'||l_proc, 5);
497: --
498: hr_dflex_utility.ins_or_upd_descflex_attribs
499: (p_appl_short_name => 'PER'
500: ,p_descflex_name => 'PER_BUDGET_VERSIONS'

Line 543: hr_utility.set_location(' Leaving:'||l_proc, 10);

539: ,p_attribute19_value => x_attribute19
540: ,p_attribute20_name => 'ATTRIBUTE20'
541: ,p_attribute20_value => x_attribute20);
542: --
543: hr_utility.set_location(' Leaving:'||l_proc, 10);
544: --
545: END Chk_df;
546:
547: -- ----------------------------------------------------------------------------

Line 558: hr_utility.set_location('Entering:'||l_proc, 5);

554: l_result VARCHAR2(255);
555: l_proc VARCHAR2(72) := g_package||'Chk_Unique';
556: Begin
557: --
558: hr_utility.set_location('Entering:'||l_proc, 5);
559: --
560: SELECT NULL
561: INTO l_result
562: FROM per_budget_versions bver

Line 569: hr_utility.set_message(801,'HR_6107_BUD_VER_EXISTS');

565: AND X_Budget_Id = bver.Budget_Id
566: AND (bver.Rowid <> X_Rowid or X_Rowid is null);
567:
568: IF (SQL%FOUND) then
569: hr_utility.set_message(801,'HR_6107_BUD_VER_EXISTS');
570: hr_utility.raise_error;
571: end if;
572:
573: --

Line 570: hr_utility.raise_error;

566: AND (bver.Rowid <> X_Rowid or X_Rowid is null);
567:
568: IF (SQL%FOUND) then
569: hr_utility.set_message(801,'HR_6107_BUD_VER_EXISTS');
570: hr_utility.raise_error;
571: end if;
572:
573: --
574: hr_utility.set_location(' Leaving:'||l_proc, 10);

Line 574: hr_utility.set_location(' Leaving:'||l_proc, 10);

570: hr_utility.raise_error;
571: end if;
572:
573: --
574: hr_utility.set_location(' Leaving:'||l_proc, 10);
575: --
576: EXCEPTION
577: when NO_DATA_FOUND then
578: null;

Line 606: hr_utility.set_location('Entering:'||l_proc, 5);

602: l_proc VARCHAR2(72) := g_package||'Default_Date_From';
603: --
604: Begin
605: --
606: hr_utility.set_location('Entering:'||l_proc, 5);
607: --
608: OPEN C;
609: FETCH C INTO l_date_from,l_date_to;
610: IF (C%NOTFOUND) then

Line 623: hr_utility.set_location(' Leaving:'||l_proc, 10);

619: END IF;
620: CLOSE C;
621: --
622: --
623: hr_utility.set_location(' Leaving:'||l_proc, 10);
624: --
625: End Default_Date_From;
626: --
627: -- ----------------------------------------------------------------------------

Line 673: hr_utility.set_location('Entering:'||l_proc, 5);

669: l_proc VARCHAR2(72) := g_package||'Insert_Row';
670:
671: BEGIN
672: --
673: hr_utility.set_location('Entering:'||l_proc, 5);
674:
675: -- validate mandatory business_group
676: hr_api.validate_bus_grp_id(X_Business_Group_Id);
677:

Line 694: hr_utility.set_message(800,'HR_52873_OTA_BUD_EXISTS');

690: -- If the parent record is OTA_BUDGET type, and no budget version exists
691: -- for the budget_id then continue, else raise error.
692: IF per_budgets_pkg.Chk_OTA_Budget_Type(X_Budget_id,NULL,NULL) THEN
693: IF vers_exists(X_Budget_id,NULL) THEN
694: hr_utility.set_message(800,'HR_52873_OTA_BUD_EXISTS');
695: hr_utility.raise_error;
696: ELSE
697: -- call chk routine to validate value TP
698: chk_version_number(x_version_number);

Line 695: hr_utility.raise_error;

691: -- for the budget_id then continue, else raise error.
692: IF per_budgets_pkg.Chk_OTA_Budget_Type(X_Budget_id,NULL,NULL) THEN
693: IF vers_exists(X_Budget_id,NULL) THEN
694: hr_utility.set_message(800,'HR_52873_OTA_BUD_EXISTS');
695: hr_utility.raise_error;
696: ELSE
697: -- call chk routine to validate value TP
698: chk_version_number(x_version_number);
699: END IF;

Line 701: hr_utility.set_message(800,'PER_52874_NOT_OTA_VERSION');

697: -- call chk routine to validate value TP
698: chk_version_number(x_version_number);
699: END IF;
700: ELSE
701: hr_utility.set_message(800,'PER_52874_NOT_OTA_VERSION');
702: hr_utility.raise_error;
703: END IF;
704:
705: -- validate mandatory date_from is not null

Line 702: hr_utility.raise_error;

698: chk_version_number(x_version_number);
699: END IF;
700: ELSE
701: hr_utility.set_message(800,'PER_52874_NOT_OTA_VERSION');
702: hr_utility.raise_error;
703: END IF;
704:
705: -- validate mandatory date_from is not null
706: hr_api.mandatory_arg_error

Line 813: hr_utility.set_location(' Leaving:'||l_proc, 10);

809: END IF;
810: CLOSE C1;
811: --
812: --
813: hr_utility.set_location(' Leaving:'||l_proc, 10);
814: --
815: END Insert_Row;
816: --
817: --

Line 863: hr_utility.set_location('Entering:'||l_proc, 5);

859: Recinfo C%ROWTYPE;
860: l_proc VARCHAR2(72) := g_package||'Lock_Row';
861: BEGIN
862: --
863: hr_utility.set_location('Entering:'||l_proc, 5);
864: --
865:
866: OPEN C;
867: FETCH C INTO Recinfo;

Line 870: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');

866: OPEN C;
867: FETCH C INTO Recinfo;
868: if (C%NOTFOUND) then
869: CLOSE C;
870: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
871: hr_utility.set_message_token('PROCEDURE','Lock_Row');
872: hr_utility.set_message_token('STEP','1');
873: hr_utility.raise_error;
874: end if;

Line 871: hr_utility.set_message_token('PROCEDURE','Lock_Row');

867: FETCH C INTO Recinfo;
868: if (C%NOTFOUND) then
869: CLOSE C;
870: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
871: hr_utility.set_message_token('PROCEDURE','Lock_Row');
872: hr_utility.set_message_token('STEP','1');
873: hr_utility.raise_error;
874: end if;
875: CLOSE C;

Line 872: hr_utility.set_message_token('STEP','1');

868: if (C%NOTFOUND) then
869: CLOSE C;
870: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
871: hr_utility.set_message_token('PROCEDURE','Lock_Row');
872: hr_utility.set_message_token('STEP','1');
873: hr_utility.raise_error;
874: end if;
875: CLOSE C;
876: --

Line 873: hr_utility.raise_error;

869: CLOSE C;
870: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
871: hr_utility.set_message_token('PROCEDURE','Lock_Row');
872: hr_utility.set_message_token('STEP','1');
873: hr_utility.raise_error;
874: end if;
875: CLOSE C;
876: --
877: Recinfo.Budget_version_id := rtrim(Recinfo.Budget_version_id);

Line 1013: hr_utility.set_location(' Leaving:'||l_proc, 10);

1009: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
1010: APP_EXCEPTION.RAISE_EXCEPTION;
1011: end if;
1012: --
1013: hr_utility.set_location(' Leaving:'||l_proc, 10);
1014: --
1015: END Lock_Row;
1016:
1017: -- ----------------------------------------------------------------------------

Line 1056: hr_utility.set_location('Entering:'||l_proc, 5);

1052: ,X_Attribute20 VARCHAR2) IS
1053: l_proc VARCHAR2(72) := g_package||'Update_Row';
1054: BEGIN
1055: --
1056: hr_utility.set_location('Entering:'||l_proc, 5);
1057: --
1058: -- validate mandatory business_group
1059: hr_api.validate_bus_grp_id(X_Business_Group_Id);
1060:

Line 1097: hr_utility.set_message(800,'PER_52873_OTA_BUD_EXISTS');

1093: -- If the parent record is OTA_BUDGET type, and no budget version exists
1094: -- for the budget_id then continue, else raise error.
1095: IF per_budgets_pkg.Chk_OTA_Budget_Type(X_Budget_id,NULL,NULL) THEN
1096: IF vers_exists(X_Budget_id,X_Rowid) THEN
1097: hr_utility.set_message(800,'PER_52873_OTA_BUD_EXISTS');
1098: hr_utility.raise_error;
1099: ELSE
1100: -- call chk routine to validate value TP
1101: chk_version_number(x_version_number);

Line 1098: hr_utility.raise_error;

1094: -- for the budget_id then continue, else raise error.
1095: IF per_budgets_pkg.Chk_OTA_Budget_Type(X_Budget_id,NULL,NULL) THEN
1096: IF vers_exists(X_Budget_id,X_Rowid) THEN
1097: hr_utility.set_message(800,'PER_52873_OTA_BUD_EXISTS');
1098: hr_utility.raise_error;
1099: ELSE
1100: -- call chk routine to validate value TP
1101: chk_version_number(x_version_number);
1102: END IF;

Line 1104: hr_utility.set_message(800,'PER_52874_NOT_OTA_VERSION');

1100: -- call chk routine to validate value TP
1101: chk_version_number(x_version_number);
1102: END IF;
1103: ELSE
1104: hr_utility.set_message(800,'PER_52874_NOT_OTA_VERSION');
1105: hr_utility.raise_error;
1106: END IF;
1107:
1108: -- validate per_budget_versions df

Line 1105: hr_utility.raise_error;

1101: chk_version_number(x_version_number);
1102: END IF;
1103: ELSE
1104: hr_utility.set_message(800,'PER_52874_NOT_OTA_VERSION');
1105: hr_utility.raise_error;
1106: END IF;
1107:
1108: -- validate per_budget_versions df
1109: Chk_df(X_Attribute_Category,

Line 1170: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');

1166: ,attribute20 = X_Attribute20
1167: WHERE rowid = X_rowid;
1168:
1169: if (SQL%NOTFOUND) then
1170: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
1171: hr_utility.set_message_token('PROCEDURE','Update_Row');
1172: hr_utility.set_message_token('STEP','1');
1173: hr_utility.raise_error;
1174: end if;

Line 1171: hr_utility.set_message_token('PROCEDURE','Update_Row');

1167: WHERE rowid = X_rowid;
1168:
1169: if (SQL%NOTFOUND) then
1170: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
1171: hr_utility.set_message_token('PROCEDURE','Update_Row');
1172: hr_utility.set_message_token('STEP','1');
1173: hr_utility.raise_error;
1174: end if;
1175: --

Line 1172: hr_utility.set_message_token('STEP','1');

1168:
1169: if (SQL%NOTFOUND) then
1170: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
1171: hr_utility.set_message_token('PROCEDURE','Update_Row');
1172: hr_utility.set_message_token('STEP','1');
1173: hr_utility.raise_error;
1174: end if;
1175: --
1176: hr_utility.set_location(' Leaving:'||l_proc, 10);

Line 1173: hr_utility.raise_error;

1169: if (SQL%NOTFOUND) then
1170: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
1171: hr_utility.set_message_token('PROCEDURE','Update_Row');
1172: hr_utility.set_message_token('STEP','1');
1173: hr_utility.raise_error;
1174: end if;
1175: --
1176: hr_utility.set_location(' Leaving:'||l_proc, 10);
1177: --

Line 1176: hr_utility.set_location(' Leaving:'||l_proc, 10);

1172: hr_utility.set_message_token('STEP','1');
1173: hr_utility.raise_error;
1174: end if;
1175: --
1176: hr_utility.set_location(' Leaving:'||l_proc, 10);
1177: --
1178: END Update_Row;
1179:
1180: end PER_BUDGET_VERSION_RULES_PKG;