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;
126: -- Procedure Clear_Dependent_Attr
127:
128: PROCEDURE Clear_Dependent_Attr
129: ( p_attr_id IN NUMBER := FND_API.G_MISS_NUM
130: , p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
131: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type := QP_Limits_PUB.G_MISS_LIMITS_REC
132: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
133: )
134: IS
127:
128: PROCEDURE Clear_Dependent_Attr
129: ( p_attr_id IN NUMBER := FND_API.G_MISS_NUM
130: , p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
131: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type := QP_Limits_PUB.G_MISS_LIMITS_REC
132: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
133: )
134: IS
135: l_index NUMBER := 0;
128: PROCEDURE Clear_Dependent_Attr
129: ( p_attr_id IN NUMBER := FND_API.G_MISS_NUM
130: , p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
131: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type := QP_Limits_PUB.G_MISS_LIMITS_REC
132: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
133: )
134: IS
135: l_index NUMBER := 0;
136: l_src_attr_tbl QP_GLOBALS.NUMBER_Tbl_Type;
540:
541: -- Procedure Apply_Attribute_Changes
542:
543: PROCEDURE Apply_Attribute_Changes
544: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
545: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
546: QP_Limits_PUB.G_MISS_LIMITS_REC
547: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
548: )
541: -- Procedure Apply_Attribute_Changes
542:
543: PROCEDURE Apply_Attribute_Changes
544: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
545: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
546: QP_Limits_PUB.G_MISS_LIMITS_REC
547: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
548: )
549: IS
542:
543: PROCEDURE Apply_Attribute_Changes
544: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
545: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
546: QP_Limits_PUB.G_MISS_LIMITS_REC
547: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
548: )
549: IS
550: BEGIN
543: PROCEDURE Apply_Attribute_Changes
544: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
545: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
546: QP_Limits_PUB.G_MISS_LIMITS_REC
547: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
548: )
549: IS
550: BEGIN
551:
772:
773: -- Function Complete_Record
774:
775: FUNCTION Complete_Record
776: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
777: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
778: ) RETURN QP_Limits_PUB.Limits_Rec_Type
779: IS
780: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type := p_LIMITS_rec;
773: -- Function Complete_Record
774:
775: FUNCTION Complete_Record
776: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
777: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
778: ) RETURN QP_Limits_PUB.Limits_Rec_Type
779: IS
780: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type := p_LIMITS_rec;
781: BEGIN
774:
775: FUNCTION Complete_Record
776: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
777: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
778: ) RETURN QP_Limits_PUB.Limits_Rec_Type
779: IS
780: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type := p_LIMITS_rec;
781: BEGIN
782:
776: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
777: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
778: ) RETURN QP_Limits_PUB.Limits_Rec_Type
779: IS
780: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type := p_LIMITS_rec;
781: BEGIN
782:
783: IF l_LIMITS_rec.amount = FND_API.G_MISS_NUM THEN
784: l_LIMITS_rec.amount := p_old_LIMITS_rec.amount;
958:
959: -- Function Convert_Miss_To_Null
960:
961: FUNCTION Convert_Miss_To_Null
962: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
963: ) RETURN QP_Limits_PUB.Limits_Rec_Type
964: IS
965: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type := p_LIMITS_rec;
966: BEGIN
959: -- Function Convert_Miss_To_Null
960:
961: FUNCTION Convert_Miss_To_Null
962: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
963: ) RETURN QP_Limits_PUB.Limits_Rec_Type
964: IS
965: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type := p_LIMITS_rec;
966: BEGIN
967:
961: FUNCTION Convert_Miss_To_Null
962: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
963: ) RETURN QP_Limits_PUB.Limits_Rec_Type
964: IS
965: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type := p_LIMITS_rec;
966: BEGIN
967:
968: IF l_LIMITS_rec.amount = FND_API.G_MISS_NUM THEN
969: l_LIMITS_rec.amount := NULL;
1143:
1144: -- Procedure Update_Row
1145:
1146: PROCEDURE Update_Row
1147: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1148: )
1149:
1150: IS
1151: l_check_active_flag VARCHAR2(1);
1149:
1150: IS
1151: l_check_active_flag VARCHAR2(1);
1152: l_active_flag VARCHAR2(1);
1153: l_LIMITS_rec1 QP_Limits_PUB.Limits_Rec_Type;
1154: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1155: x_retcode NUMBER;
1156: x_errbuf VARCHAR2(250);
1157: BEGIN
1150: IS
1151: l_check_active_flag VARCHAR2(1);
1152: l_active_flag VARCHAR2(1);
1153: l_LIMITS_rec1 QP_Limits_PUB.Limits_Rec_Type;
1154: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1155: x_retcode NUMBER;
1156: x_errbuf VARCHAR2(250);
1157: BEGIN
1158:
1284:
1285: -- Procedure Insert_Row
1286:
1287: PROCEDURE Insert_Row
1288: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1289: )
1290:
1291: IS
1292: l_check_active_flag VARCHAR2(1);
1290:
1291: IS
1292: l_check_active_flag VARCHAR2(1);
1293: l_active_flag VARCHAR2(1);
1294: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1295:
1296: --dbms_output.put_line('Begin Insert Row');
1297: BEGIN
1298: l_LIMITS_rec := p_LIMITS_rec;
1445: ( p_limit_id IN NUMBER
1446: )
1447:
1448: IS
1449: l_limits_rec QP_Limits_PUB.Limits_Rec_Type;
1450: BEGIN
1451:
1452: l_limits_rec := Query_Row(p_limit_id);
1453:
1480: -- Function Query_Row
1481:
1482: FUNCTION Query_Row
1483: ( p_limit_id IN NUMBER
1484: ) RETURN QP_Limits_PUB.Limits_Rec_Type
1485: IS
1486: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1487: BEGIN
1488:
1482: FUNCTION Query_Row
1483: ( p_limit_id IN NUMBER
1484: ) RETURN QP_Limits_PUB.Limits_Rec_Type
1485: IS
1486: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1487: BEGIN
1488:
1489: SELECT AMOUNT
1490: , ATTRIBUTE1
1601: --
1602:
1603: PROCEDURE Lock_Row
1604: ( x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1605: , p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1606: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
1607: )
1608: IS
1609: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1602:
1603: PROCEDURE Lock_Row
1604: ( x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1605: , p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1606: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
1607: )
1608: IS
1609: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1610: BEGIN
1605: , p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1606: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
1607: )
1608: IS
1609: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1610: BEGIN
1611:
1612: SELECT AMOUNT
1613: , ATTRIBUTE1
1858:
1859: -- Function Get_Values
1860:
1861: FUNCTION Get_Values
1862: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1863: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
1864: QP_Limits_PUB.G_MISS_LIMITS_REC
1865: ) RETURN QP_Limits_PUB.Limits_Val_Rec_Type
1866: IS
1859: -- Function Get_Values
1860:
1861: FUNCTION Get_Values
1862: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1863: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
1864: QP_Limits_PUB.G_MISS_LIMITS_REC
1865: ) RETURN QP_Limits_PUB.Limits_Val_Rec_Type
1866: IS
1867: l_LIMITS_val_rec QP_Limits_PUB.Limits_Val_Rec_Type;
1860:
1861: FUNCTION Get_Values
1862: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1863: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
1864: QP_Limits_PUB.G_MISS_LIMITS_REC
1865: ) RETURN QP_Limits_PUB.Limits_Val_Rec_Type
1866: IS
1867: l_LIMITS_val_rec QP_Limits_PUB.Limits_Val_Rec_Type;
1868: BEGIN
1861: FUNCTION Get_Values
1862: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1863: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
1864: QP_Limits_PUB.G_MISS_LIMITS_REC
1865: ) RETURN QP_Limits_PUB.Limits_Val_Rec_Type
1866: IS
1867: l_LIMITS_val_rec QP_Limits_PUB.Limits_Val_Rec_Type;
1868: BEGIN
1869:
1863: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
1864: QP_Limits_PUB.G_MISS_LIMITS_REC
1865: ) RETURN QP_Limits_PUB.Limits_Val_Rec_Type
1866: IS
1867: l_LIMITS_val_rec QP_Limits_PUB.Limits_Val_Rec_Type;
1868: BEGIN
1869:
1870: IF p_LIMITS_rec.limit_exceed_action_code IS NOT NULL AND
1871: p_LIMITS_rec.limit_exceed_action_code <> FND_API.G_MISS_CHAR AND
1935:
1936: -- Function Get_Ids
1937:
1938: FUNCTION Get_Ids
1939: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1940: , p_LIMITS_val_rec IN QP_Limits_PUB.Limits_Val_Rec_Type
1941: ) RETURN QP_Limits_PUB.Limits_Rec_Type
1942: IS
1943: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1936: -- Function Get_Ids
1937:
1938: FUNCTION Get_Ids
1939: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1940: , p_LIMITS_val_rec IN QP_Limits_PUB.Limits_Val_Rec_Type
1941: ) RETURN QP_Limits_PUB.Limits_Rec_Type
1942: IS
1943: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1944: BEGIN
1937:
1938: FUNCTION Get_Ids
1939: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1940: , p_LIMITS_val_rec IN QP_Limits_PUB.Limits_Val_Rec_Type
1941: ) RETURN QP_Limits_PUB.Limits_Rec_Type
1942: IS
1943: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1944: BEGIN
1945:
1939: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
1940: , p_LIMITS_val_rec IN QP_Limits_PUB.Limits_Val_Rec_Type
1941: ) RETURN QP_Limits_PUB.Limits_Rec_Type
1942: IS
1943: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type;
1944: BEGIN
1945:
1946: -- initialize return_status.
1947:
2136:
2137: END Get_Ids;
2138:
2139: Procedure Pre_Write_Process
2140: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
2141: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
2142: QP_Limits_PUB.G_MISS_LIMITS_REC
2143: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
2144: ) IS
2137: END Get_Ids;
2138:
2139: Procedure Pre_Write_Process
2140: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
2141: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
2142: QP_Limits_PUB.G_MISS_LIMITS_REC
2143: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
2144: ) IS
2145:
2138:
2139: Procedure Pre_Write_Process
2140: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
2141: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
2142: QP_Limits_PUB.G_MISS_LIMITS_REC
2143: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
2144: ) IS
2145:
2146: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type := p_LIMITS_rec;
2139: Procedure Pre_Write_Process
2140: ( p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
2141: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type :=
2142: QP_Limits_PUB.G_MISS_LIMITS_REC
2143: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
2144: ) IS
2145:
2146: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type := p_LIMITS_rec;
2147: l_return_status varchar2(30);
2142: QP_Limits_PUB.G_MISS_LIMITS_REC
2143: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
2144: ) IS
2145:
2146: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type := p_LIMITS_rec;
2147: l_return_status varchar2(30);
2148:
2149: BEGIN
2150: