DBA Data[Home] [Help]

APPS.PA_RBS_PUB dependencies on PA_UTILS

Line 99: Pa_Utils.Add_Message(

95: AND language = userenv('LANG');
96: EXCEPTION
97: WHEN OTHERS THEN
98: Pa_Debug.G_Stage := 'No Rbs Element id was provided. Add error message to stack.';
99: Pa_Utils.Add_Message(
100: P_App_Short_Name => 'PA',
101: P_Msg_Name => 'PA_RBS_HEADER_NAME_INVALID');
102:
103: Raise l_ERROR;

Line 115: Pa_Utils.Add_Message(

111: where rbs_header_id = P_Header_Rec.Rbs_Header_Id ;
112: EXCEPTION
113: WHEN OTHERS THEN
114: Pa_Debug.G_Stage := 'No Rbs Element id was provided. Add error message to stack.';
115: Pa_Utils.Add_Message(
116: P_App_Short_Name => 'PA',
117: P_Msg_Name => 'PA_RBS_HEADER_ID_INVALID');
118:
119: Raise l_ERROR;

Line 862: Pa_Utils.Add_Message(

858: Pa_Debug.G_Stage := 'Check if we have a rbs reference element id to work with.';
859: If l_Elements_Tbl(i).Rbs_Ref_Element_Id is Null Then
860:
861: Pa_Debug.G_Stage := 'No Rbs Element id was provided. Add error message to stack.';
862: Pa_Utils.Add_Message(
863: P_App_Short_Name => 'PA',
864: P_Msg_Name => 'PA_RBS_REF_ELEMENT_ID_REQ');
865:
866: Raise l_ERROR;

Line 875: Pa_Utils.Add_Message(

871: If l_Elements_Tbl(i).Parent_Ref_Element_Id Is Null And
872: l_Elements_Tbl(i).Rbs_Level not in (1,2) Then
873:
874: Pa_Debug.G_Stage := 'No parent reference element id was provided. Add error message to stack.';
875: Pa_Utils.Add_Message(
876: P_App_Short_Name => 'PA',
877: P_Msg_Name => 'PA_RBS_REF_PARENT_ID_REQ');
878:
879: Raise l_ERROR;

Line 887: Pa_Utils.Add_Message(

883: Pa_Debug.G_Stage := 'Check if we have a rbs level to work with.';
884: If l_Elements_Tbl(i).Rbs_Level is Null Then
885:
886: Pa_Debug.G_Stage := 'Rbs level is null. Add error message to stack.';
887: Pa_Utils.Add_Message(
888: P_App_Short_Name => 'PA',
889: P_Msg_Name => 'PA_RBS_RBS_LEVEL_REQ');
890:
891: Raise l_ERROR;

Line 900: Pa_Utils.Add_Message(

896: If l_Elements_Tbl(i).Process_Type is Null or
897: l_Elements_Tbl(i).Process_Type <> 'A' Then
898:
899: Pa_Debug.G_Stage := 'Process Type is null or not A. Add error message to stack.';
900: Pa_Utils.Add_Message(
901: P_App_Short_Name => 'PA',
902: P_Msg_Name => 'PA_RBS_PRC_TYPE_INVALID');
903:
904: Raise l_ERROR;

Line 967: Pa_Utils.Add_Message(

963:
964: If l_Root_Count = 0 Then
965:
966: Pa_Debug.G_Stage := 'No root element/node provided. Add error message to stack.';
967: Pa_Utils.Add_Message(
968: P_App_Short_Name => 'PA',
969: P_Msg_Name => 'PA_RBS_NO_ROOT_ELEMENT');
970:
971: Raise l_ERROR;

Line 979: Pa_Utils.Add_Message(

975: -- Check to see if provide more than a single root element. This is not allowed.
976: If l_Root_Count > 1 Then
977:
978: Pa_Debug.G_Stage := 'Multiple root elements/nodes provided. Add error message to stack.';
979: Pa_Utils.Add_Message(
980: P_App_Short_Name => 'PA',
981: P_Msg_Name => 'PA_RBS_MULTI_ROOT_ELEMENTS');
982:
983: Raise l_ERROR;

Line 1016: Pa_Utils.Add_Message(P_App_Short_Name => 'PA',

1012: P_Resource_Source_Code => Element_Rec.Resource_Source_Code,
1013: X_Resource_Source_Id => l_Resource_Source_Id);
1014:
1015: IF l_Resource_Source_Id IS NULL THEN
1016: Pa_Utils.Add_Message(P_App_Short_Name => 'PA',
1017: P_Msg_Name => 'PA_RBS_NO_RESOURCE_SOURCE_ID');
1018:
1019: Raise l_ERROR;
1020: END IF;

Line 1322: Pa_Utils.Add_Message(

1318: If rbs_header_cursor%NotFound Then
1319:
1320: Pa_Debug.G_Stage := 'Rbs header Id is invalid.';
1321: Close rbs_header_cursor;
1322: Pa_Utils.Add_Message(
1323: P_App_Short_Name => 'PA',
1324: P_Msg_Name => 'PA_INVALID_RBS_HEADER_ID');
1325:
1326: Raise l_ERROR;

Line 1343: Pa_Utils.Add_Message(

1339:
1340: -- One of the header attributes has changed which means, the header record needs to be updated.
1341:
1342: IF l_header_rec.record_version_number <> l_old_header_rec.record_version_number THEN
1343: Pa_Utils.Add_Message(
1344: P_App_Short_Name => 'PA',
1345: P_Msg_Name => 'PA_RBS_HDR_INCORRECT');
1346:
1347: Raise l_ERROR;

Line 1402: Pa_Utils.Add_Message(

1398: If rbs_version_cursor%NotFound Then
1399:
1400: Pa_Debug.G_Stage := 'Rbs header Id is invalid.';
1401: Close rbs_version_cursor;
1402: Pa_Utils.Add_Message(
1403: P_App_Short_Name => 'PA',
1404: P_Msg_Name => 'PA_INVALID_RBS_VERSION_ID');
1405:
1406: Raise l_ERROR;

Line 1428: Pa_Utils.Add_Message(

1424:
1425: IF nvl(l_version_rec.record_version_number,-1) <> l_old_version_rec.record_version_number
1426: THEN
1427: Pa_Debug.G_Stage := 'Incorred Record Version number passed in';
1428: Pa_Utils.Add_Message(
1429: P_App_Short_Name => 'PA',
1430: P_Msg_Name => 'PA_RBS_VERSION_INCORRECT');
1431:
1432: Raise l_ERROR;

Line 1437: Pa_Utils.Add_Message(

1433: END IF;
1434:
1435: IF l_old_version_rec.status_code ='FROZEN' THEN
1436: Pa_Debug.G_Stage := 'Version is frozen.Cannot update any field.';
1437: Pa_Utils.Add_Message(
1438: P_App_Short_Name => 'PA',
1439: P_Msg_Name => 'PA_RBS_VERSION_FROZEN');
1440:
1441: Raise l_ERROR;

Line 1491: Pa_Utils.Add_Message(

1487: Pa_Debug.G_Stage := 'Check if missing rbs level id.';
1488: If l_Elements_Tbl(i).Rbs_Level is Null Then
1489:
1490: Pa_Debug.G_Stage := 'The rbs level cannot be null. Add error message to stack.';
1491: Pa_Utils.Add_Message(
1492: P_App_Short_Name => 'PA',
1493: P_Msg_Name => 'PA_RBS_RBS_LEVEL_REQ');
1494:
1495: Raise l_ERROR;

Line 1504: Pa_Utils.Add_Message(

1500: If l_Elements_Tbl(i).Process_Type is Null or
1501: l_Elements_Tbl(i).Process_Type Not In ('A','D','U') Then
1502:
1503: Pa_Debug.G_Stage := 'Process Type is null or invalid. Add error message to stack.';
1504: Pa_Utils.Add_Message(
1505: P_App_Short_Name => 'PA',
1506: P_Msg_Name => 'PA_RBS_PRC_TYPE_INVALID');
1507:
1508: Raise l_ERROR;

Line 1517: Pa_Utils.Add_Message(

1513: If l_Elements_Tbl(i).Rbs_Ref_Element_Id is Null And
1514: l_Elements_Tbl(i).Process_Type = 'A' Then
1515:
1516: Pa_Debug.G_Stage := 'Missing reference rbs element id. Add error message to stack.';
1517: Pa_Utils.Add_Message(
1518: P_App_Short_Name => 'PA',
1519: P_Msg_Name => 'PA_RBS_REF_ELEMENT_ID_REQ');
1520:
1521: Raise l_ERROR;

Line 1530: Pa_Utils.Add_Message(

1526: If l_Elements_Tbl(i).Rbs_Element_Id is Null And
1527: l_Elements_Tbl(i).Process_Type in ('U','D') Then
1528:
1529: Pa_Debug.G_Stage := 'Missing rbs element id. Add error message to stack.';
1530: Pa_Utils.Add_Message(
1531: P_App_Short_Name => 'PA',
1532: P_Msg_Name => 'PA_RBS_ELEMENT_ID_REQ');
1533:
1534: Raise l_ERROR;

Line 1545: Pa_Utils.Add_Message(

1541: l_Elements_Tbl(i).Process_Type = 'A' And
1542: l_Elements_Tbl(i).Rbs_Level <> 1 Then
1543:
1544: Pa_Debug.G_Stage := 'Missing parent element id. Add error message to stack.';
1545: Pa_Utils.Add_Message(
1546: P_App_Short_Name => 'PA',
1547: P_Msg_Name => 'PA_RBS_REF_PARENT_ID_REQ');
1548:
1549: Raise l_ERROR;

Line 1559: Pa_Utils.Add_Message(

1555: l_Elements_Tbl(i).Process_Type in ('U','D') And
1556: l_Elements_Tbl(i).Rbs_Level <> 1 Then
1557:
1558: Pa_Debug.G_Stage := 'Missing parent element id. Add error message to stack.';
1559: Pa_Utils.Add_Message(
1560: P_App_Short_Name => 'PA',
1561: P_Msg_Name => 'PA_RBS_PARENT_ID_REQ');
1562:
1563: Raise l_ERROR;

Line 1574: Pa_Utils.Add_Message(

1570: IF (l_Elements_Tbl(i).Rbs_Version_Id is null OR
1571: l_Elements_Tbl(i).Rbs_Version_Id = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM)
1572: THEN
1573: Pa_Debug.G_Stage := 'Version Identifier Invalid.';
1574: Pa_Utils.Add_Message(
1575: P_App_Short_Name => 'PA',
1576: P_Msg_Name => 'PA_RBS_VERSION_IS_MISSING');
1577:
1578: Raise l_ERROR;

Line 1589: Pa_Utils.Add_Message(

1585:
1586: IF l_status_code = 'FROZEN' THEN
1587:
1588: Pa_Debug.G_Stage := 'Version Identifier Invalid.';
1589: Pa_Utils.Add_Message(
1590: P_App_Short_Name => 'PA',
1591: P_Msg_Name => 'PA_RBS_VERSION_FROZEN');
1592:
1593: Raise l_ERROR;

Line 1598: Pa_Utils.Add_Message(

1594: END IF;
1595: EXCEPTION
1596: WHEN NO_DATA_FOUND THEN
1597: Pa_Debug.G_Stage := 'Version Identifier Invalid.';
1598: Pa_Utils.Add_Message(
1599: P_App_Short_Name => 'PA',
1600: P_Msg_Name => 'PA_INVALID_RBS_VERSION_ID');
1601:
1602: Raise l_ERROR;

Line 1627: Pa_Utils.Add_Message(

1623: EXCEPTION
1624: WHEN NO_DATA_FOUND Then
1625: l_validate := 'N';
1626: Pa_Debug.G_Stage := 'Element Identifier not sync with Version Identifier.';
1627: Pa_Utils.Add_Message(
1628: P_App_Short_Name => 'PA',
1629: P_Msg_Name => 'PA_RBS_ELE_NSYNC_VER');
1630:
1631: Raise l_ERROR;

Line 1656: Pa_Utils.Add_Message(

1652: EXCEPTION
1653: WHEN NO_DATA_FOUND Then
1654: l_validate := 'N';
1655: Pa_Debug.G_Stage := 'Parent Element Identifier not sync with Element id of the given Version Identifier.';
1656: Pa_Utils.Add_Message(
1657: P_App_Short_Name => 'PA',
1658: P_Msg_Name => 'PA_PAR_ELE_ID_INVALID');
1659:
1660: Raise l_ERROR;

Line 1685: Pa_Utils.Add_Message(

1681:
1682: EXCEPTION
1683: WHEN NO_DATA_FOUND Then
1684: Pa_Debug.G_Stage := 'Parent Element Identifier passed is not the correct parent_element_id.';
1685: Pa_Utils.Add_Message(
1686: P_App_Short_Name => 'PA',
1687: P_Msg_Name => 'PA_PAR_ELE_NSYNC_ELE');
1688:
1689: Raise l_ERROR;

Line 1752: Pa_Utils.Add_Message(

1748:
1749: If l_Root_Count = 0 Then
1750:
1751: Pa_Debug.G_Stage := 'No root element/node provided. Add error message to stack.';
1752: Pa_Utils.Add_Message(
1753: P_App_Short_Name => 'PA',
1754: P_Msg_Name => 'PA_RBS_NO_ROOT_ELEMENT');
1755:
1756: Raise l_ERROR;

Line 1764: Pa_Utils.Add_Message(

1760: -- Check to see if provide more than a single root element. This is not allowed.
1761: If l_Root_Count > 1 Then
1762:
1763: Pa_Debug.G_Stage := 'Multiple root elements/nodes provided. Add error message to stack.';
1764: Pa_Utils.Add_Message(
1765: P_App_Short_Name => 'PA',
1766: P_Msg_Name => 'PA_RBS_MULTI_ROOT_ELEMENTS');
1767:
1768: Raise l_ERROR;

Line 1828: Pa_Utils.Add_Message(P_App_Short_Name => 'PA',

1824: P_Resource_Source_Code => Element_Rec.Resource_Source_Code,
1825: X_Resource_Source_Id => l_Resource_Source_Id);
1826:
1827: IF l_Resource_Source_Id IS NULL THEN
1828: Pa_Utils.Add_Message(P_App_Short_Name => 'PA',
1829: P_Msg_Name => 'PA_RBS_NO_RESOURCE_SOURCE_ID');
1830:
1831: Raise l_ERROR;
1832: END IF;

Line 2661: Pa_Utils.Add_Message

2657: CLOSE C_GetVersionId2;
2658: Else
2659: Pa_Debug.G_Stage := 'Raise Error: Not able to derive rbs_version_id';
2660: X_Error_Msg_Data:='PA_RBS_VERSION_ID_NOT_PASSED_AMG';
2661: Pa_Utils.Add_Message
2662: (P_App_Short_Name => 'PA',
2663: P_Msg_Name => 'PA_RBS_VERSION_ID_NOT_PASSED_AMG');
2664: Raise l_error;
2665: End If;

Line 2829: Pa_Utils.Add_Message

2825: CLOSE C_GetVersionId2;
2826: Else
2827: Pa_Debug.G_Stage := 'Raise Error:Not able to derive rbs_version_id';
2828: X_Error_Msg_Data := 'PA_RBS_VERSION_ID_NOT_PASSED_AMG';
2829: Pa_Utils.Add_Message
2830: (P_App_Short_Name => 'PA',
2831: P_Msg_Name => 'PA_RBS_VERSION_ID_NOT_PASSED_AMG');
2832: Raise l_error;
2833: End If;

Line 3021: Pa_Utils.Add_Message --For bug 4061935.

3017:
3018: ELSE
3019: Pa_Debug.G_Stage := 'Raise Error: Not able to derive rbs_version_id';
3020: X_Error_Msg_Data := 'PA_INVALID_HEADER_ID';
3021: Pa_Utils.Add_Message --For bug 4061935.
3022: (P_App_Short_Name => 'PA',
3023: P_Msg_Name => 'PA_INVALID_HEADER_ID');
3024: Raise l_error;
3025: -- End If;

Line 3065: Pa_Utils.Add_Message

3061:
3062: IF l_Rbs_Version_Id IS NULL THEN
3063: Pa_Debug.G_Stage := 'Raise Error: RBS version does not exist.';
3064: X_Error_Msg_Data := 'PA_AMG_VERSION_ID_NOT_PASSED';
3065: Pa_Utils.Add_Message
3066: (P_App_Short_Name => 'PA',
3067: P_Msg_Name => 'PA_AMG_VERSION_ID_NOT_PASSED');
3068: Raise l_error;
3069: END IF;

Line 3182: Pa_Debug.G_Stage := 'Calling Pa_Utils.Add_Message() procedure.';

3178: l_Msg_Token_Value := l_Prefix_Value || ': ' || l_Outline || ': ' ;
3179:
3180: End If;
3181:
3182: Pa_Debug.G_Stage := 'Calling Pa_Utils.Add_Message() procedure.';
3183: Pa_Utils.Add_Message
3184: (P_App_Short_Name => 'PA',
3185: P_Msg_Name => P_Error_Msg_Data,
3186: P_Token1 => 'MSG_TOKEN',

Line 3183: Pa_Utils.Add_Message

3179:
3180: End If;
3181:
3182: Pa_Debug.G_Stage := 'Calling Pa_Utils.Add_Message() procedure.';
3183: Pa_Utils.Add_Message
3184: (P_App_Short_Name => 'PA',
3185: P_Msg_Name => P_Error_Msg_Data,
3186: P_Token1 => 'MSG_TOKEN',
3187: P_Value1 => l_Msg_Token_value);