The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row
===============================================================================*/
PROCEDURE Insert_Row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
X_return_status OUT NOCOPY VARCHAR2,
X_msg_count OUT NOCOPY NUMBER,
X_msg_data OUT NOCOPY VARCHAR2,
p_Rowid IN OUT NOCOPY VARCHAR2,
p_CC_Acct_Line_Id IN OUT NOCOPY IGC_CC_ACCT_LINES.CC_Acct_Line_Id%TYPE,
p_CC_Header_Id IGC_CC_ACCT_LINES.CC_Header_Id%TYPE,
p_Parent_Header_Id IGC_CC_ACCT_LINES.Parent_Header_Id%TYPE,
p_Parent_Acct_Line_Id IGC_CC_ACCT_LINES.Parent_Acct_Line_Id%TYPE,
p_CC_Charge_Code_Comb_Id IGC_CC_ACCT_LINES.CC_Charge_Code_Combination_Id%TYPE,
p_CC_Acct_Line_Num IGC_CC_ACCT_LINES.CC_Acct_Line_Num%TYPE,
p_CC_Budget_Code_Comb_Id IGC_CC_ACCT_LINES.CC_Budget_Code_Combination_Id%TYPE,
p_CC_Acct_Entered_Amt IGC_CC_ACCT_LINES.CC_Acct_Entered_Amt%TYPE,
p_CC_Acct_Func_Amt IGC_CC_ACCT_LINES.CC_Acct_Func_Amt%TYPE,
p_CC_Acct_Desc IGC_CC_ACCT_LINES.CC_Acct_Desc%TYPE,
p_CC_Acct_Billed_Amt IGC_CC_ACCT_LINES.CC_Acct_Billed_Amt%TYPE,
p_CC_Acct_Unbilled_Amt IGC_CC_ACCT_LINES.CC_Acct_Unbilled_Amt%TYPE,
p_CC_Acct_Taxable_Flag IGC_CC_ACCT_LINES.CC_Acct_Taxable_Flag%TYPE,
p_Tax_Id IGC_CC_ACCT_LINES.Tax_Id%TYPE,
p_CC_Acct_Encmbrnc_Amt IGC_CC_ACCT_LINES.CC_Acct_Encmbrnc_Amt%TYPE,
p_CC_Acct_Encmbrnc_Date IGC_CC_ACCT_LINES.CC_Acct_Encmbrnc_Date%TYPE,
p_CC_Acct_Encmbrnc_Status IGC_CC_ACCT_LINES.CC_Acct_Encmbrnc_Status%TYPE,
p_Project_Id IGC_CC_ACCT_LINES.Project_Id%TYPE,
p_Task_Id IGC_CC_ACCT_LINES.Task_Id%TYPE,
p_Expenditure_Type IGC_CC_ACCT_LINES.Expenditure_Type%TYPE,
p_Expenditure_Org_Id IGC_CC_ACCT_LINES.Expenditure_Org_Id%TYPE,
p_Expenditure_Item_Date IGC_CC_ACCT_LINES.Expenditure_Item_Date%TYPE,
p_Last_Update_Date IGC_CC_ACCT_LINES.Last_Update_Date%TYPE,
p_Last_Updated_By IGC_CC_ACCT_LINES.Last_Updated_By%TYPE,
p_Last_Update_Login IGC_CC_ACCT_LINES.Last_Update_Login%TYPE,
p_Creation_Date IGC_CC_ACCT_LINES.Creation_Date%TYPE,
p_Created_By IGC_CC_ACCT_LINES.Created_By%TYPE,
p_Attribute1 IGC_CC_ACCT_LINES.Attribute1%TYPE,
p_Attribute2 IGC_CC_ACCT_LINES.Attribute2%TYPE,
p_Attribute3 IGC_CC_ACCT_LINES.Attribute3%TYPE,
p_Attribute4 IGC_CC_ACCT_LINES.Attribute4%TYPE,
p_Attribute5 IGC_CC_ACCT_LINES.Attribute5%TYPE,
p_Attribute6 IGC_CC_ACCT_LINES.Attribute6%TYPE,
p_Attribute7 IGC_CC_ACCT_LINES.Attribute7%TYPE,
p_Attribute8 IGC_CC_ACCT_LINES.Attribute8%TYPE,
p_Attribute9 IGC_CC_ACCT_LINES.Attribute9%TYPE,
p_Attribute10 IGC_CC_ACCT_LINES.Attribute10%TYPE,
p_Attribute11 IGC_CC_ACCT_LINES.Attribute11%TYPE,
p_Attribute12 IGC_CC_ACCT_LINES.Attribute12%TYPE,
p_Attribute13 IGC_CC_ACCT_LINES.Attribute13%TYPE,
p_Attribute14 IGC_CC_ACCT_LINES.Attribute14%TYPE,
p_Attribute15 IGC_CC_ACCT_LINES.Attribute15%TYPE,
p_Context IGC_CC_ACCT_LINES.Context%TYPE,
p_cc_func_withheld_amt IGC_CC_ACCT_LINES.cc_func_withheld_amt%TYPE,
p_cc_ent_withheld_amt IGC_CC_ACCT_LINES.cc_ent_withheld_amt%TYPE,
G_FLAG IN OUT NOCOPY VARCHAR2,
P_Tax_Classif_Code IGC_CC_ACCT_LINES.Tax_Classif_Code%TYPE
) IS
l_api_name CONSTANT VARCHAR2(30) := 'Insert_Row';
SELECT Rowid
FROM IGC_CC_ACCT_LINES
WHERE CC_Acct_Line_Id = p_CC_Acct_Line_Id;
SELECT CC_Version_Num
FROM IGC_CC_HEADERS
WHERE CC_Header_Id = p_CC_Header_Id;
SELECT Application_Id
FROM FND_APPLICATION
WHERE Application_Short_Name = 'IGC';
SELECT SET_OF_BOOKS_ID,
ORG_ID,
CONVERSION_DATE
FROM IGC_CC_HEADERS,
IGC_CC_ACCT_LINES
WHERE IGC_CC_HEADERS.CC_HEADER_ID = IGC_CC_ACCT_LINES.CC_HEADER_ID
AND IGC_CC_ACCT_LINES.CC_ACCT_LINE_ID = p_CC_Acct_Line_Id;
l_full_path := g_path || 'Insert_Row';
SAVEPOINT Insert_Row_Pvt ;
g_debug_msg := ' IGCCACLB -- Begin Insert account line ID ....' || ' for Header ID .... ' || p_cc_header_id;
INSERT
INTO IGC_CC_ACCT_LINES
(CC_Acct_Line_Id,
CC_Header_Id,
Parent_Header_Id,
Parent_Acct_Line_Id,
CC_Charge_Code_Combination_Id,
CC_Acct_Line_Num,
CC_Budget_Code_Combination_Id,
CC_Acct_Entered_Amt,
CC_Acct_Func_Amt,
CC_Acct_Desc,
CC_Acct_Billed_Amt,
CC_Acct_Unbilled_Amt,
CC_Acct_Taxable_Flag,
Tax_Id,
CC_Acct_Encmbrnc_Amt,
CC_Acct_Encmbrnc_Date,
CC_Acct_Encmbrnc_Status,
Project_Id,
Task_Id,
Expenditure_Type,
Expenditure_Org_Id,
Expenditure_Item_Date,
Last_Update_Date,
Last_Updated_By,
Last_Update_Login,
Creation_Date,
Created_By,
Attribute1,
Attribute2,
Attribute3,
Attribute4,
Attribute5,
Attribute6,
Attribute7,
Attribute8,
Attribute9,
Attribute10,
Attribute11,
Attribute12,
Attribute13,
Attribute14,
Attribute15,
Context,
cc_func_withheld_amt,
cc_ent_withheld_amt,
Tax_Classif_Code
)
VALUES
( NVL(p_CC_Acct_Line_Id, igc_cc_acct_lines_s.NEXTVAL),
p_CC_Header_Id,
p_Parent_Header_Id,
p_Parent_Acct_Line_Id,
p_CC_Charge_Code_Comb_Id,
p_CC_Acct_Line_Num,
p_CC_Budget_Code_Comb_Id,
p_CC_Acct_Entered_Amt,
p_CC_Acct_Func_Amt,
p_CC_Acct_Desc,
p_CC_Acct_Billed_Amt,
p_CC_Acct_Unbilled_Amt,
p_CC_Acct_Taxable_Flag,
p_Tax_Id,
p_CC_Acct_Encmbrnc_Amt,
p_CC_Acct_Encmbrnc_Date,
p_CC_Acct_Encmbrnc_Status,
p_Project_Id,
p_Task_Id,
p_Expenditure_Type,
p_Expenditure_Org_Id,
p_Expenditure_Item_Date,
p_Last_Update_Date,
p_Last_Updated_By,
p_Last_Update_Login,
p_Creation_Date,
p_Created_By,
p_Attribute1,
p_Attribute2,
p_Attribute3,
p_Attribute4,
p_Attribute5,
p_Attribute6,
p_Attribute7,
p_Attribute8,
p_Attribute9,
p_Attribute10,
p_Attribute11,
p_Attribute12,
p_Attribute13,
p_Attribute14,
p_Attribute15,
p_Context,
p_cc_func_withheld_amt,
p_cc_ent_withheld_amt,
P_Tax_Classif_Code
)
RETURNING CC_Acct_Line_Id INTO p_CC_Acct_Line_Id;
IGC_CC_ACCT_LINE_HISTORY_PKG.Insert_Row(
l_api_version ,
FND_API.G_FALSE,
FND_API.G_FALSE,
p_validation_level,
l_return_status,
X_msg_count,
X_msg_data,
p_Rowid,
p_CC_Acct_Line_Id,
p_CC_Header_Id,
p_Parent_Header_Id,
p_Parent_Acct_Line_Id ,
p_CC_Acct_Line_Num,
l_Version_Num - 1 ,
'I',
p_CC_Charge_Code_Comb_Id,
p_CC_Budget_Code_Comb_Id,
p_CC_Acct_Entered_Amt ,
p_CC_Acct_Func_Amt,
p_CC_Acct_Desc ,
p_CC_Acct_Billed_Amt ,
p_CC_Acct_Unbilled_Amt,
p_CC_Acct_Taxable_Flag,
p_Tax_Id,
p_CC_Acct_Encmbrnc_Amt,
p_CC_Acct_Encmbrnc_Date,
p_CC_Acct_Encmbrnc_Status,
p_Project_Id,
p_Task_Id,
p_Expenditure_Type,
p_Expenditure_Org_Id,
p_Expenditure_Item_Date,
p_Last_Update_Date,
p_Last_Updated_By,
p_Last_Update_Login ,
p_Creation_Date ,
p_Created_By ,
p_Attribute1,
p_Attribute2,
p_Attribute3,
p_Attribute4,
p_Attribute5,
p_Attribute6,
p_Attribute7,
p_Attribute8,
p_Attribute9,
p_Attribute10,
p_Attribute11,
p_Attribute12,
p_Attribute13,
p_Attribute14,
p_Attribute15,
p_Context,
p_cc_func_withheld_amt,
p_cc_ent_withheld_amt,
G_FLAG,
P_Tax_Classif_Code);
g_debug_msg := ' IGCCACLB -- Failure returned from insert History row...';
g_debug_msg := ' IGCCACLB -- Successfully inserted History row...';
g_debug_msg := ' IGCCACLB -- Not inserting History row version num <= 0...';
g_debug_msg := ' IGCCACLB -- Failure obtaining acct line inserted rowid...';
g_debug_msg := ' IGCCACLB -- MRC Enabled so now inserting MRC info...';
g_debug_msg := ' IGCCACLB -- Committing Inserted account line...';
g_debug_msg := ' IGCCACLB -- Done inserting row for Account Line...' || p_CC_Acct_Line_Id ||
' for Header ID .... ' || p_cc_header_id;
ROLLBACK TO Insert_Row_Pvt;
ROLLBACK TO Insert_Row_Pvt ;
ROLLBACK TO Insert_Row_Pvt ;
END Insert_Row;
p_Last_Update_Date IGC_CC_ACCT_LINES.Last_Update_Date%TYPE,
p_Last_Updated_By IGC_CC_ACCT_LINES.Last_Updated_By%TYPE,
p_Last_Update_Login IGC_CC_ACCT_LINES.Last_Update_Login%TYPE,
p_Creation_Date IGC_CC_ACCT_LINES.Creation_Date%TYPE,
p_Created_By IGC_CC_ACCT_LINES.Created_By%TYPE,
p_Attribute1 IGC_CC_ACCT_LINES.Attribute1%TYPE,
p_Attribute2 IGC_CC_ACCT_LINES.Attribute2%TYPE,
p_Attribute3 IGC_CC_ACCT_LINES.Attribute3%TYPE,
p_Attribute4 IGC_CC_ACCT_LINES.Attribute4%TYPE,
p_Attribute5 IGC_CC_ACCT_LINES.Attribute5%TYPE,
p_Attribute6 IGC_CC_ACCT_LINES.Attribute6%TYPE,
p_Attribute7 IGC_CC_ACCT_LINES.Attribute7%TYPE,
p_Attribute8 IGC_CC_ACCT_LINES.Attribute8%TYPE,
p_Attribute9 IGC_CC_ACCT_LINES.Attribute9%TYPE,
p_Attribute10 IGC_CC_ACCT_LINES.Attribute10%TYPE,
p_Attribute11 IGC_CC_ACCT_LINES.Attribute11%TYPE,
p_Attribute12 IGC_CC_ACCT_LINES.Attribute12%TYPE,
p_Attribute13 IGC_CC_ACCT_LINES.Attribute13%TYPE,
p_Attribute14 IGC_CC_ACCT_LINES.Attribute14%TYPE,
p_Attribute15 IGC_CC_ACCT_LINES.Attribute15%TYPE,
p_Context IGC_CC_ACCT_LINES.Context%TYPE,
p_cc_func_withheld_amt IGC_CC_ACCT_LINES.cc_func_withheld_amt%TYPE,
p_cc_ent_withheld_amt IGC_CC_ACCT_LINES.cc_ent_withheld_amt%TYPE,
X_row_locked OUT NOCOPY VARCHAR2,
G_FLAG IN OUT NOCOPY VARCHAR2,
P_Tax_Classif_Code IGC_CC_ACCT_LINES.Tax_Classif_Code%TYPE
) IS
l_api_name CONSTANT VARCHAR2(30) := 'Lock_Row';
SELECT *
FROM IGC_CC_ACCT_LINES
WHERE Rowid = p_Rowid
FOR UPDATE of CC_Acct_Line_Id NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
PROCEDURE Update_Row
===============================================================================*/
PROCEDURE Update_Row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
X_return_status OUT NOCOPY VARCHAR2,
X_msg_count OUT NOCOPY NUMBER,
X_msg_data OUT NOCOPY VARCHAR2,
p_Rowid IN OUT NOCOPY VARCHAR2,
p_CC_Acct_Line_Id IN OUT NOCOPY IGC_CC_ACCT_LINES.CC_Acct_Line_Id%TYPE,
p_CC_Header_Id IGC_CC_ACCT_LINES.CC_Header_Id%TYPE,
p_Parent_Header_Id IGC_CC_ACCT_LINES.Parent_Header_Id%TYPE,
p_Parent_Acct_Line_Id IGC_CC_ACCT_LINES.Parent_Acct_Line_Id%TYPE,
p_CC_Charge_Code_Comb_Id IGC_CC_ACCT_LINES.CC_Charge_Code_Combination_Id%TYPE,
p_CC_Acct_Line_Num IGC_CC_ACCT_LINES.CC_Acct_Line_Num%TYPE,
p_CC_Budget_Code_Comb_Id IGC_CC_ACCT_LINES.CC_Budget_Code_Combination_Id%TYPE,
p_CC_Acct_Entered_Amt IGC_CC_ACCT_LINES.CC_Acct_Entered_Amt%TYPE,
p_CC_Acct_Func_Amt IGC_CC_ACCT_LINES.CC_Acct_Func_Amt%TYPE,
p_CC_Acct_Desc IGC_CC_ACCT_LINES.CC_Acct_Desc%TYPE,
p_CC_Acct_Billed_Amt IGC_CC_ACCT_LINES.CC_Acct_Billed_Amt%TYPE,
p_CC_Acct_Unbilled_Amt IGC_CC_ACCT_LINES.CC_Acct_Unbilled_Amt%TYPE,
p_CC_Acct_Taxable_Flag IGC_CC_ACCT_LINES.CC_Acct_Taxable_Flag%TYPE,
p_Tax_Id IGC_CC_ACCT_LINES.Tax_Id%TYPE,
p_CC_Acct_Encmbrnc_Amt IGC_CC_ACCT_LINES.CC_Acct_Encmbrnc_Amt%TYPE,
p_CC_Acct_Encmbrnc_Date IGC_CC_ACCT_LINES.CC_Acct_Encmbrnc_Date%TYPE,
p_CC_Acct_Encmbrnc_Status IGC_CC_ACCT_LINES.CC_Acct_Encmbrnc_Status%TYPE,
p_Project_Id IGC_CC_ACCT_LINES.Project_Id%TYPE,
p_Task_Id IGC_CC_ACCT_LINES.Task_Id%TYPE,
p_Expenditure_Type IGC_CC_ACCT_LINES.Expenditure_Type%TYPE,
p_Expenditure_Org_Id IGC_CC_ACCT_LINES.Expenditure_Org_Id%TYPE,
p_Expenditure_Item_Date IGC_CC_ACCT_LINES.Expenditure_Item_Date%TYPE,
p_Last_Update_Date IGC_CC_ACCT_LINES.Last_Update_Date%TYPE,
p_Last_Updated_By IGC_CC_ACCT_LINES.Last_Updated_By%TYPE,
p_Last_Update_Login IGC_CC_ACCT_LINES.Last_Update_Login%TYPE,
p_Creation_Date IGC_CC_ACCT_LINES.Creation_Date%TYPE,
p_Created_By IGC_CC_ACCT_LINES.Created_By%TYPE,
p_Attribute1 IGC_CC_ACCT_LINES.Attribute1%TYPE,
p_Attribute2 IGC_CC_ACCT_LINES.Attribute2%TYPE,
p_Attribute3 IGC_CC_ACCT_LINES.Attribute3%TYPE,
p_Attribute4 IGC_CC_ACCT_LINES.Attribute4%TYPE,
p_Attribute5 IGC_CC_ACCT_LINES.Attribute5%TYPE,
p_Attribute6 IGC_CC_ACCT_LINES.Attribute6%TYPE,
p_Attribute7 IGC_CC_ACCT_LINES.Attribute7%TYPE,
p_Attribute8 IGC_CC_ACCT_LINES.Attribute8%TYPE,
p_Attribute9 IGC_CC_ACCT_LINES.Attribute9%TYPE,
p_Attribute10 IGC_CC_ACCT_LINES.Attribute10%TYPE,
p_Attribute11 IGC_CC_ACCT_LINES.Attribute11%TYPE,
p_Attribute12 IGC_CC_ACCT_LINES.Attribute12%TYPE,
p_Attribute13 IGC_CC_ACCT_LINES.Attribute13%TYPE,
p_Attribute14 IGC_CC_ACCT_LINES.Attribute14%TYPE,
p_Attribute15 IGC_CC_ACCT_LINES.Attribute15%TYPE,
p_Context IGC_CC_ACCT_LINES.Context%TYPE,
p_cc_func_withheld_amt IGC_CC_ACCT_LINES.cc_func_withheld_amt%TYPE,
p_cc_ent_withheld_amt IGC_CC_ACCT_LINES.cc_ent_withheld_amt%TYPE,
G_FLAG IN OUT NOCOPY VARCHAR2,
P_Tax_Classif_Code IGC_CC_ACCT_LINES.Tax_Classif_Code%TYPE
) IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_Row';
SELECT Application_Id
FROM FND_APPLICATION
WHERE Application_Short_Name = 'IGC';
SELECT ICH.set_of_books_id,
ICH.org_id
FROM IGC_CC_HEADERS ICH,
IGC_CC_ACCT_LINES IAL
WHERE ICH.CC_HEADER_ID = IAL.CC_HEADER_ID
AND IAL.CC_ACCT_LINE_ID = p_CC_Acct_Line_Id;
l_full_path := g_path || 'Update_Row';
SAVEPOINT Update_Row_Pvt ;
g_debug_msg := ' IGCCACLB -- Starting Update Account for Header ID .... ' || p_cc_header_id;
UPDATE IGC_CC_ACCT_LINES
SET CC_Acct_Line_Id = NVL(p_CC_Acct_Line_Id, igc_cc_acct_lines_s.NEXTVAL),
CC_Header_Id = p_CC_Header_Id,
Parent_Header_Id = p_Parent_Header_id,
Parent_Acct_Line_Id = p_Parent_Acct_Line_Id,
CC_Charge_Code_Combination_Id = p_CC_Charge_Code_Comb_Id,
CC_Acct_Line_Num = p_CC_Acct_Line_Num,
CC_Budget_Code_Combination_Id = p_CC_Budget_Code_Comb_Id,
CC_Acct_Entered_Amt = p_CC_Acct_Entered_Amt,
CC_Acct_Func_Amt = p_CC_Acct_Func_Amt,
CC_Acct_Desc = p_CC_Acct_Desc,
CC_Acct_Billed_Amt = p_CC_Acct_Billed_Amt,
CC_Acct_Unbilled_Amt = p_CC_Acct_Unbilled_Amt,
CC_Acct_Taxable_Flag = p_CC_Acct_Taxable_Flag,
Tax_Id = p_Tax_Id,
CC_Acct_Encmbrnc_Amt = p_CC_Acct_Encmbrnc_Amt,
CC_Acct_Encmbrnc_Date = p_CC_Acct_Encmbrnc_Date,
CC_Acct_Encmbrnc_Status = p_CC_Acct_Encmbrnc_Status,
Project_Id = p_Project_Id,
Task_Id = p_Task_Id,
Expenditure_Type = p_Expenditure_Type,
Expenditure_Org_Id = p_Expenditure_Org_Id,
Expenditure_Item_Date = p_Expenditure_Item_Date,
Last_Update_Date = p_Last_Update_Date,
Last_Updated_By = p_Last_Updated_By,
Last_Update_Login = p_Last_Update_Login,
Creation_Date = p_Creation_Date,
Created_By = p_Created_By,
Attribute1 = p_Attribute1,
Attribute2 = p_Attribute2,
Attribute3 = p_Attribute3,
Attribute4 = p_Attribute4,
Attribute5 = p_Attribute5,
Attribute6 = p_Attribute6,
Attribute7 = p_Attribute7,
Attribute8 = p_Attribute8,
Attribute9 = p_Attribute9,
Attribute10 = p_Attribute10,
Attribute11 = p_Attribute11,
Attribute12 = p_Attribute12,
Attribute13 = p_Attribute13,
Attribute14 = p_Attribute14,
Attribute15 = p_Attribute15,
Context = p_Context ,
cc_func_withheld_amt = p_cc_func_withheld_amt,
cc_ent_withheld_amt = p_cc_ent_withheld_amt,
Tax_Classif_Code = P_Tax_Classif_Code
WHERE rowid = p_Rowid
RETURNING CC_Acct_Line_Id INTO p_CC_Acct_Line_Id ;
g_debug_msg := ' IGCCACLB -- Account Line not found to update.....';
g_debug_msg := ' IGCCACLB -- Failure obtaining account line info for update.....';
g_debug_msg := ' IGCCACLB -- MRC enabled for update account line.....';
g_debug_msg := ' IGCCACLB -- Failure returned from MRC update account line.....';
g_debug_msg := ' IGCCACLB -- Committing account line update.....';
g_debug_msg := ' IGCCACLB -- End of Update Account Line ID ...' || p_CC_Acct_Line_Id ||
' for Header ID .... ' || p_cc_header_id;
ROLLBACK TO Update_Row_Pvt ;
g_debug_msg := ' IGCCACLB -- Failure update execute error.....' || p_CC_Acct_Line_Id ||
' for Header ID .... ' || p_cc_header_id;
ROLLBACK TO Update_Row_Pvt ;
g_debug_msg := ' IGCCACLB -- Failure update Unexpected error.....' || p_CC_Acct_Line_Id ||
' for Header ID .... ' || p_cc_header_id;
ROLLBACK TO Update_Row_Pvt ;
g_debug_msg := ' IGCCACLB -- Failure update Others error.....' || p_CC_Acct_Line_Id ||
' for Header ID .... ' || p_cc_header_id;
END Update_Row;
PROCEDURE Delete_Row
===============================================================================*/
PROCEDURE Delete_Row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
X_return_status OUT NOCOPY VARCHAR2,
X_msg_count OUT NOCOPY NUMBER,
X_msg_data OUT NOCOPY VARCHAR2,
p_Rowid IN OUT NOCOPY VARCHAR2,
G_FLAG IN OUT NOCOPY VARCHAR2
) IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Row';
SELECT *
FROM IGC_CC_ACCT_LINES
WHERE Rowid = p_Rowid;
SELECT ICH.CC_Version_Num
FROM IGC_CC_HEADERS ICH,
IGC_CC_ACCT_LINES IAL
WHERE ICH.CC_Header_Id = IAL.CC_Header_Id
AND IAL.Rowid = p_Rowid;
SELECT Application_Id
FROM FND_APPLICATION
WHERE Application_Short_Name = 'IGC';
SELECT ICH.SET_OF_BOOKS_ID,
ICH.ORG_ID,
ICH.CONVERSION_DATE
FROM IGC_CC_HEADERS ICH,
IGC_CC_ACCT_LINES CAL
WHERE ICH.CC_HEADER_ID = CAL.CC_HEADER_ID
AND CAL.CC_ACCT_LINE_ID = Recinfo.cc_acct_line_id;
SELECT rowid
FROM igc_cc_det_pf CDP
WHERE CDP.cc_acct_line_id = Recinfo.cc_acct_line_id;
l_full_path := g_path || 'Delete_Row';
SAVEPOINT Delete_Row_Pvt ;
g_debug_msg := ' IGCCACLB -- Starting account line delete Rowid ...' || p_rowid;
g_debug_msg := ' IGCCACLB -- Failure delete obtain acct info.....';
g_debug_msg := ' IGCCACLB -- Failure delete getting version num.....';
g_debug_msg := ' IGCCACLB -- Inserting history record for Delete action account line.....';
IGC_CC_ACCT_LINE_HISTORY_PKG.Insert_Row(
l_api_version ,
FND_API.G_FALSE,
FND_API.G_FALSE,
p_validation_level,
l_return_status,
X_msg_count,
X_msg_data,
l_acct_row_id,
Recinfo.CC_Acct_Line_Id,
Recinfo.CC_Header_Id,
Recinfo.Parent_Header_Id,
Recinfo.Parent_Acct_Line_Id ,
Recinfo.CC_Acct_Line_Num,
l_Version_Num - 1 ,
l_action_flag,
Recinfo.CC_Charge_Code_Combination_Id,
Recinfo.CC_Budget_Code_Combination_Id,
Recinfo.CC_Acct_Entered_Amt ,
Recinfo.CC_Acct_Func_Amt,
Recinfo.CC_Acct_Desc ,
Recinfo.CC_Acct_Billed_Amt ,
Recinfo.CC_Acct_Unbilled_Amt,
Recinfo.CC_Acct_Taxable_Flag,
Recinfo.Tax_Id,
Recinfo.CC_Acct_Encmbrnc_Amt,
Recinfo.CC_Acct_Encmbrnc_Date,
Recinfo.CC_Acct_Encmbrnc_Status,
Recinfo.Project_Id,
Recinfo.Task_Id,
Recinfo.Expenditure_Type,
Recinfo.Expenditure_Org_Id,
Recinfo.Expenditure_Item_Date,
Recinfo.Last_Update_Date,
Recinfo.Last_Updated_By,
Recinfo.Last_Update_Login ,
Recinfo.Creation_Date ,
Recinfo.Created_By ,
Recinfo.Attribute1,
Recinfo.Attribute2,
Recinfo.Attribute3,
Recinfo.Attribute4,
Recinfo.Attribute5,
Recinfo.Attribute6,
Recinfo.Attribute7,
Recinfo.Attribute8,
Recinfo.Attribute9,
Recinfo.Attribute10,
Recinfo.Attribute11,
Recinfo.Attribute12,
Recinfo.Attribute13,
Recinfo.Attribute14,
Recinfo.Attribute15,
Recinfo.Context,
Recinfo.cc_func_withheld_amt,
Recinfo.cc_ent_withheld_amt,
G_FLAG,
Recinfo.Tax_Classif_code);
g_debug_msg := ' IGCCACLB -- Failure returned from history delete action.....';
g_debug_msg := ' IGCCACLB -- Failure obtaining application ID in delete operation...';
g_debug_msg := ' IGCCACLB -- Failure obtaining CC Info conversion date in delete...';
g_debug_msg := ' IGCCACLB -- Failure returned from MC.get_rsobs_Acct_Lines delete...';
IGC_CC_DET_PF_PKG.Delete_Row (l_api_version,
FND_API.G_FALSE,
FND_API.G_FALSE,
p_validation_level,
l_return_status,
X_msg_count,
X_msg_data,
l_pf_row_id,
l_global_flag);
g_debug_msg := ' IGCCACLB -- Failure returned from Delete Row DET PF...';
DELETE
FROM IGC_CC_ACCT_LINES
WHERE rowid = p_Rowid;
g_debug_msg := ' IGCCACLB -- Failure delete not found.....';
g_debug_msg := ' IGCCACLB -- Deleted account line.....';
g_debug_msg := ' IGCCACLB -- Committing account line delete.....';
g_debug_msg := ' IGCCACLB -- End of Delete Rowid ...' || p_rowid;
ROLLBACK TO Delete_Row_Pvt ;
g_debug_msg := ' IGCCACLB -- Failure Delete Execute Error Rowid ...' || p_rowid;
ROLLBACK TO Delete_Row_Pvt ;
g_debug_msg := ' IGCCACLB -- Failure Delete Unexpected Error Rowid ...' || p_rowid;
ROLLBACK TO Delete_Row_Pvt ;
g_debug_msg := ' IGCCACLB -- Failure Delete Others Error Rowid ...' || p_rowid;
END Delete_Row;