The following lines contain the word 'select', 'insert', 'update' or 'delete':
X_Last_Update_Date OUT NOCOPY /* file.sql.39 change */ DATE,
X_Object_Version_Number OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
)
IS
CURSOR C_Get_Header_Info (l_qte_hdr NUMBER) IS
SELECT Quote_Number, Last_Update_Date, Quote_Expiration_Date, Quote_Status_Id,
Pricing_Status_Indicator, Price_Updated_Date, Credit_Update_Date, Object_Version_Number, Org_Id
FROM ASO_QUOTE_HEADERS_ALL
WHERE Quote_Header_Id = l_qte_hdr;
SELECT 'Y'
FROM ASO_QUOTE_STATUSES_B
WHERE Quote_Status_Id = l_status
AND Status_Code = 'ORDER SUBMITTED';
SELECT 'Y'
FROM ASO_QUOTE_ACCESSES
WHERE Quote_Number = l_qte_num
AND Resource_Id = l_resource;
SELECT Quote_Line_Id
FROM ASO_QUOTE_LINES_ALL
WHERE Quote_Header_Id = l_hdr_id;
aso_debug_pub.add('Calc_Proj_Comm: p_qte_header_rec.last_update_date: '||p_qte_header_rec.last_update_date,1,'N');
(C_Header_Info.last_update_date IS NULL OR
C_Header_Info.last_update_date = FND_API.G_MISS_DATE) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
IF (p_qte_header_rec.last_update_date IS NOT NULL AND
p_qte_header_rec.last_update_date <> FND_API.G_MISS_DATE) AND
(C_Header_Info.last_update_date <> p_qte_header_rec.last_update_date) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
aso_debug_pub.add('Calc_Proj_Comm: C_Header_Info.Credit_Update_Date: '||C_Header_Info.Credit_Update_Date,1,'N');
aso_debug_pub.add('Calc_Proj_Comm: C_Header_Info.Price_Updated_Date: '||C_Header_Info.Price_Updated_Date,1,'N');
IF C_Header_Info.Credit_Update_Date IS NULL OR
(C_Header_Info.Price_Updated_Date IS NOT NULL AND
C_Header_Info.Credit_Update_Date < C_Header_Info.Price_Updated_Date) THEN
IF aso_debug_pub.g_debug_flag = 'Y' THEN
aso_debug_pub.add('Calc_Proj_Comm: Before Allocate_Sales_Credits ',1,'N');
X_Last_Update_Date := lx_qte_header_rec.Last_Update_Date;
X_Last_Update_Date := C_Header_Info.Last_Update_Date;
DELETE FROM CN_PROJ_COMPENSATION_GTT;
aso_debug_pub.add('Calc_Proj_Comm: Before Insert into table ',1,'N');
INSERT INTO CN_PROJ_COMPENSATION_GTT (
LINE_NUMBER,
RESOURCE_ID,
PROJECTION_IDENTIFIER,
CALC_DATE,
SALES_CREDIT_AMOUNT,
CURRENCY_CODE)
SELECT A.Quote_Line_Id,
B.Resource_Id,
A.Inventory_Item_Id,
SYSDATE,
(DECODE(A.Line_Category_Code,'RETURN',-1,1) * A.Quantity * A.Line_Quote_Price) * (SUM(B.Percent)/100) Sales_Credit_Amount,
NVL(A.Currency_Code, C.Currency_Code)
FROM ASO_QUOTE_LINES_ALL A, ASO_SALES_CREDITS B, ASO_QUOTE_HEADERS_ALL C
WHERE A.Quote_Header_Id = P_Qte_Header_Rec.Quote_Header_Id
AND A.Quote_Header_Id = B.Quote_Header_Id
AND A.Quote_Header_Id = C.Quote_Header_Id
AND B.Resource_Id = P_Resource_Id
AND (B.Quote_Line_Id IS NULL OR B.Quote_Line_Id = A.Quote_Line_Id)
GROUP BY A.Quote_Line_Id, B.Resource_Id, A.Inventory_Item_Id,
A.Quantity, A.Line_Quote_Price, NVL(A.Currency_Code, C.Currency_Code), A.Line_Category_Code;
INSERT INTO CN_PROJ_COMPENSATION_GTT (
LINE_NUMBER,
RESOURCE_ID,
PROJECTION_IDENTIFIER,
CALC_DATE,
SALES_CREDIT_AMOUNT,
CURRENCY_CODE)
SELECT A.Quote_Line_Id,
P_Resource_Id,
A.Inventory_Item_Id,
SYSDATE,
0,
NVL(A.Currency_Code, B.Currency_Code)
FROM ASO_QUOTE_LINES_ALL A, ASO_QUOTE_HEADERS_ALL B
WHERE A.Quote_Header_Id = P_Qte_Header_Rec.Quote_Header_Id
AND A.Quote_Header_Id = B.Quote_Header_Id
AND A.Quote_Line_Id NOT IN
(SELECT C.Line_Number
FROM CN_PROJ_COMPENSATION_GTT C);