5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'QP_Limits_Util';
7:
8: PROCEDURE Update_List_Header_And_Line
9: (p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type)
10: IS
11:
12: l_dummy NUMBER := 0;
13: l_dummy1 NUMBER := 0;
157: -- Procedure Clear_Dependent_Attr
158:
159: PROCEDURE Clear_Dependent_Attr
160: ( p_attr_id IN NUMBER := FND_API.G_MISS_NUM
161: , p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
162: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type := QP_Limits_PUB.G_MISS_LIMITS_REC
163: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
164: )
165: IS
158:
159: PROCEDURE Clear_Dependent_Attr
160: ( p_attr_id IN NUMBER := FND_API.G_MISS_NUM
161: , p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
162: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type := QP_Limits_PUB.G_MISS_LIMITS_REC
163: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
164: )
165: IS
166: l_index NUMBER := 0;
159: PROCEDURE Clear_Dependent_Attr
160: ( p_attr_id IN NUMBER := FND_API.G_MISS_NUM
161: , p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
162: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type := QP_Limits_PUB.G_MISS_LIMITS_REC
163: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
164: )
165: IS
166: l_index NUMBER := 0;
167: l_src_attr_tbl QP_GLOBALS.NUMBER_Tbl_Type;
571:
572: -- Procedure Apply_Attribute_Changes
573:
574: PROCEDURE Apply_Attribute_Changes
575: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
576: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
577: QP_Limits_PUB.G_MISS_LIMITS_REC
578: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
579: )
572: -- Procedure Apply_Attribute_Changes
573:
574: PROCEDURE Apply_Attribute_Changes
575: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
576: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
577: QP_Limits_PUB.G_MISS_LIMITS_REC
578: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
579: )
580: IS
573:
574: PROCEDURE Apply_Attribute_Changes
575: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
576: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
577: QP_Limits_PUB.G_MISS_LIMITS_REC
578: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
579: )
580: IS
581: BEGIN
574: PROCEDURE Apply_Attribute_Changes
575: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
576: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
577: QP_Limits_PUB.G_MISS_LIMITS_REC
578: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
579: )
580: IS
581: BEGIN
582:
803:
804: -- Function Complete_Record
805:
806: FUNCTION Complete_Record
807: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
808: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
809: ) RETURN QP_Limits_PUB.Limits_Rec_Type
810: IS
811: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type := p_LIMITS_rec;
804: -- Function Complete_Record
805:
806: FUNCTION Complete_Record
807: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
808: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
809: ) RETURN QP_Limits_PUB.Limits_Rec_Type
810: IS
811: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type := p_LIMITS_rec;
812: BEGIN
805:
806: FUNCTION Complete_Record
807: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
808: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
809: ) RETURN QP_Limits_PUB.Limits_Rec_Type
810: IS
811: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type := p_LIMITS_rec;
812: BEGIN
813:
807: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
808: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
809: ) RETURN QP_Limits_PUB.Limits_Rec_Type
810: IS
811: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type := p_LIMITS_rec;
812: BEGIN
813:
814: IF l_LIMITS_rec.amount = FND_API.G_MISS_NUM THEN
815: l_LIMITS_rec.amount := p_old_LIMITS_rec.amount;
989:
990: -- Function Convert_Miss_To_Null
991:
992: FUNCTION Convert_Miss_To_Null
993: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
994: ) RETURN QP_Limits_PUB.Limits_Rec_Type
995: IS
996: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type := p_LIMITS_rec;
997: BEGIN
990: -- Function Convert_Miss_To_Null
991:
992: FUNCTION Convert_Miss_To_Null
993: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
994: ) RETURN QP_Limits_PUB.Limits_Rec_Type
995: IS
996: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type := p_LIMITS_rec;
997: BEGIN
998:
992: FUNCTION Convert_Miss_To_Null
993: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
994: ) RETURN QP_Limits_PUB.Limits_Rec_Type
995: IS
996: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type := p_LIMITS_rec;
997: BEGIN
998:
999: IF l_LIMITS_rec.amount = FND_API.G_MISS_NUM THEN
1000: l_LIMITS_rec.amount := NULL;
1174:
1175: -- Procedure Update_Row
1176:
1177: PROCEDURE Update_Row
1178: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1179: )
1180:
1181: IS
1182: l_check_active_flag VARCHAR2(1);
1180:
1181: IS
1182: l_check_active_flag VARCHAR2(1);
1183: l_active_flag VARCHAR2(1);
1184: l_LIMITS_rec1 QP_Limits_PUB.Limits_Rec_Type;
1185: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1186: x_retcode NUMBER;
1187: x_errbuf VARCHAR2(250);
1188: BEGIN
1181: IS
1182: l_check_active_flag VARCHAR2(1);
1183: l_active_flag VARCHAR2(1);
1184: l_LIMITS_rec1 QP_Limits_PUB.Limits_Rec_Type;
1185: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1186: x_retcode NUMBER;
1187: x_errbuf VARCHAR2(250);
1188: BEGIN
1189:
1315:
1316: -- Procedure Insert_Row
1317:
1318: PROCEDURE Insert_Row
1319: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1320: )
1321:
1322: IS
1323: l_check_active_flag VARCHAR2(1);
1321:
1322: IS
1323: l_check_active_flag VARCHAR2(1);
1324: l_active_flag VARCHAR2(1);
1325: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1326:
1327: --dbms_output.put_line('Begin Insert Row');
1328: BEGIN
1329: l_LIMITS_rec := p_LIMITS_rec;
1476: ( p_limit_id IN NUMBER
1477: )
1478:
1479: IS
1480: l_limits_rec QP_Limits_PUB.Limits_Rec_Type;
1481: BEGIN
1482:
1483: l_limits_rec := Query_Row(p_limit_id);
1484:
1511: -- Function Query_Row
1512:
1513: FUNCTION Query_Row
1514: ( p_limit_id IN NUMBER
1515: ) RETURN QP_Limits_PUB.Limits_Rec_Type
1516: IS
1517: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1518: BEGIN
1519:
1513: FUNCTION Query_Row
1514: ( p_limit_id IN NUMBER
1515: ) RETURN QP_Limits_PUB.Limits_Rec_Type
1516: IS
1517: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1518: BEGIN
1519:
1520: SELECT AMOUNT
1521: , ATTRIBUTE1
1632: --
1633:
1634: PROCEDURE Lock_Row
1635: ( x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1636: , p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1637: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
1638: )
1639: IS
1640: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1633:
1634: PROCEDURE Lock_Row
1635: ( x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1636: , p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1637: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
1638: )
1639: IS
1640: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1641: BEGIN
1636: , p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1637: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
1638: )
1639: IS
1640: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1641: BEGIN
1642:
1643: SELECT AMOUNT
1644: , ATTRIBUTE1
1889:
1890: -- Function Get_Values
1891:
1892: FUNCTION Get_Values
1893: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1894: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
1895: QP_Limits_PUB.G_MISS_LIMITS_REC
1896: ) RETURN QP_Limits_PUB.Limits_Val_Rec_Type
1897: IS
1890: -- Function Get_Values
1891:
1892: FUNCTION Get_Values
1893: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1894: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
1895: QP_Limits_PUB.G_MISS_LIMITS_REC
1896: ) RETURN QP_Limits_PUB.Limits_Val_Rec_Type
1897: IS
1898: l_LIMITS_val_rec QP_Limits_PUB.Limits_Val_Rec_Type;
1891:
1892: FUNCTION Get_Values
1893: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1894: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
1895: QP_Limits_PUB.G_MISS_LIMITS_REC
1896: ) RETURN QP_Limits_PUB.Limits_Val_Rec_Type
1897: IS
1898: l_LIMITS_val_rec QP_Limits_PUB.Limits_Val_Rec_Type;
1899: BEGIN
1892: FUNCTION Get_Values
1893: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1894: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
1895: QP_Limits_PUB.G_MISS_LIMITS_REC
1896: ) RETURN QP_Limits_PUB.Limits_Val_Rec_Type
1897: IS
1898: l_LIMITS_val_rec QP_Limits_PUB.Limits_Val_Rec_Type;
1899: BEGIN
1900:
1894: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
1895: QP_Limits_PUB.G_MISS_LIMITS_REC
1896: ) RETURN QP_Limits_PUB.Limits_Val_Rec_Type
1897: IS
1898: l_LIMITS_val_rec QP_Limits_PUB.Limits_Val_Rec_Type;
1899: BEGIN
1900:
1901: IF p_LIMITS_rec.limit_exceed_action_code IS NOT NULL AND
1902: p_LIMITS_rec.limit_exceed_action_code <> FND_API.G_MISS_CHAR AND
1966:
1967: -- Function Get_Ids
1968:
1969: FUNCTION Get_Ids
1970: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1971: , p_LIMITS_val_rec IN QP_Limits_PUB.Limits_Val_Rec_Type
1972: ) RETURN QP_Limits_PUB.Limits_Rec_Type
1973: IS
1974: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1967: -- Function Get_Ids
1968:
1969: FUNCTION Get_Ids
1970: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1971: , p_LIMITS_val_rec IN QP_Limits_PUB.Limits_Val_Rec_Type
1972: ) RETURN QP_Limits_PUB.Limits_Rec_Type
1973: IS
1974: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1975: BEGIN
1968:
1969: FUNCTION Get_Ids
1970: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1971: , p_LIMITS_val_rec IN QP_Limits_PUB.Limits_Val_Rec_Type
1972: ) RETURN QP_Limits_PUB.Limits_Rec_Type
1973: IS
1974: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1975: BEGIN
1976:
1970: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1971: , p_LIMITS_val_rec IN QP_Limits_PUB.Limits_Val_Rec_Type
1972: ) RETURN QP_Limits_PUB.Limits_Rec_Type
1973: IS
1974: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1975: BEGIN
1976:
1977: -- initialize return_status.
1978:
2167:
2168: END Get_Ids;
2169:
2170: Procedure Pre_Write_Process
2171: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
2172: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
2173: QP_Limits_PUB.G_MISS_LIMITS_REC
2174: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
2175: ) IS
2168: END Get_Ids;
2169:
2170: Procedure Pre_Write_Process
2171: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
2172: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
2173: QP_Limits_PUB.G_MISS_LIMITS_REC
2174: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
2175: ) IS
2176:
2169:
2170: Procedure Pre_Write_Process
2171: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
2172: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
2173: QP_Limits_PUB.G_MISS_LIMITS_REC
2174: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
2175: ) IS
2176:
2177: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type := p_LIMITS_rec;
2170: Procedure Pre_Write_Process
2171: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
2172: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
2173: QP_Limits_PUB.G_MISS_LIMITS_REC
2174: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
2175: ) IS
2176:
2177: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type := p_LIMITS_rec;
2178: l_return_status varchar2(30);
2173: QP_Limits_PUB.G_MISS_LIMITS_REC
2174: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
2175: ) IS
2176:
2177: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type := p_LIMITS_rec;
2178: l_return_status varchar2(30);
2179:
2180: BEGIN
2181: