The following lines contain the word 'select', 'insert', 'update' or 'delete':
/* SELECT l_ledger_id
INTO l_ledger_id
FROM ja_cn_system_parameters_all
WHERE legal_entity_id = p_legal_entity_id;
SELECT Chart_Of_Accounts_Id
INTO l_Chart_Of_Accounts_Id
FROM Gl_Sets_Of_Books
WHERE Set_Of_Books_Id = l_Ledger_Id;
SELECT Chart_Of_Accounts_Id
FROM Gl_Access_Sets
WHERE Access_Set_Id = p_Access_Set_Id;
SELECT Flv.Meaning
FROM Fnd_Lookup_Values Flv
WHERE Flv.LANGUAGE = Userenv('LANG')
AND Flv.Lookup_Type = 'JA_CN_DUPOBJECTS_TOKENS'
AND Flv.View_Application_Id = 0
AND Flv.Security_Group_Id = 0
AND Flv.Lookup_Code = p_Lookup_Code;
SELECT Flv.Lookup_Code
FROM Fnd_Lookup_Values Flv
WHERE Flv.LANGUAGE = Userenv('LANG')
AND Flv.Lookup_Type = p_Lookup_Type
AND Flv.Meaning = p_Lookup_Meaning
AND Flv.View_Application_Id = p_View_Application_Id
AND Flv.Security_Group_Id = p_Security_Group_Id;
SELECT Id_Flex_Num,
Concatenated_Segment_Delimiter
FROM Fnd_Id_Flex_Structures
WHERE Application_Id = '101'
AND Id_Flex_Code = 'GL#'
AND Id_Flex_Num =
(SELECT Chart_Of_Accounts_Id
FROM Gl_Sets_Of_Books
WHERE Set_Of_Books_Id = p_Set_Of_Bks_Id);
SELECT Application_Column_Name
FROM Fnd_Id_Flex_Segments
WHERE Application_Id = 101
AND Id_Flex_Code = 'GL#'
AND Id_Flex_Num = l_Id_Flex_Num
AND Enabled_Flag = 'Y'
AND Display_Flag = 'Y'
ORDER BY Segment_Num;
SELECT Attribute_Value
INTO l_Account_Segment_Flag
FROM Fnd_Segment_Attribute_Values
WHERE Application_Id = 101
AND Id_Flex_Code = 'GL#'
AND Id_Flex_Num = l_Id_Flex_Num
AND Application_Column_Name =
l_Coa_Segment.Application_Column_Name
AND Segment_Attribute_Type = 'GL_ACCOUNT';
SELECT Substr(p_Acc_Flex,
Instr(p_Acc_Flex, l_Delimiter, 1, l_Seq_Account - 1) + 1,
(Instr(p_Acc_Flex, l_Delimiter, 1, l_Seq_Account) -
Instr(p_Acc_Flex, l_Delimiter, 1, l_Seq_Account - 1) - 1))
INTO l_Account_Segment
FROM Dual;
/* SELECT COUNT(account_segment_value)
INTO l_cash_acct_count
FROM ja_cn_cash_accounts_all
WHERE set_of_books_id = p_set_of_bks_id
AND account_segment_value = l_account_segment;*/
SELECT Start_Date
INTO l_Start_Date
FROM Gl_Period_Statuses
WHERE ledger_id=p_ledger_id--Set_Of_Books_Id = l_Sob_Id,--updated by lyb
AND Application_Id = 101
AND Period_Name = p_Start_Period_Name;
SELECT End_Date
INTO l_End_Date
FROM Gl_Period_Statuses
WHERE ledger_id=p_ledger_id--Set_Of_Books_Id = l_Sob_Id--updated by lyb
AND Application_Id = 101
AND Period_Name = p_End_Period_Name;
SELECT COUNT(*)
INTO l_All_Period_Number
FROM Gl_Period_Statuses
WHERE ledger_id=p_ledger_id--Set_Of_Books_Id = l_Sob_Id--updated by lyb
AND Application_Id = 101
AND ((Start_Date BETWEEN l_Start_Date AND l_End_Date) AND
(End_Date BETWEEN l_Start_Date AND l_End_Date));
SELECT COUNT(*)
INTO l_Closed_Period_Number
FROM Gl_Period_Statuses
WHERE ledger_id=p_ledger_id--Set_Of_Books_Id = l_Sob_Id,--updated by lyb
AND Application_Id = 101
AND ((Start_Date BETWEEN l_Start_Date AND l_End_Date) AND
(End_Date BETWEEN l_Start_Date AND l_End_Date))
AND (Closing_Status = 'C' OR Closing_Status = 'P');
l_Sql := 'SELECT nvl(jcask.concatenated_segments, '''')
FROM ' || l_Acc_Stru_Tablename ||
' jcask
,ja_cn_system_parameters_all jcsp
WHERE jcask.account_structure_id = jcsp.account_structure_id
AND jcsp.legal_entity_id = :1';
l_Insertsql Dbms_Sql.Varchar2s;
SELECT Ledger_Category_Code,
Nvl(Bal_Seg_Value_Option_Code, 'A'),
Bal_Seg_Value_Set_Id
INTO l_Ledger_Category,
l_Bsv_Option,
l_Bsv_Vset_Id
FROM Gl_Ledgers
WHERE Ledger_Id = p_Ledger_Id;
INSERT INTO Ja_Cn_Ledger_Le_Bsv_Gt
(Ledger_Id,
Ledger_Category_Code,
Chart_Of_Accounts_Id,
Bal_Seg_Value_Option_Code,
Bal_Seg_Value_Set_Id,
Bal_Seg_Value,
Legal_Entity_Id,
Start_Date,
End_Date)
-- XLE uptake: Changed to get the LE name from the new XLE tables
SELECT Lg.Ledger_Id,
Lg.Ledger_Category_Code,
Lg.Chart_Of_Accounts_Id,
Lg.Bal_Seg_Value_Option_Code,
Lg.Bal_Seg_Value_Set_Id,
Bsv.Segment_Value,
Bsv.Legal_Entity_Id,
Bsv.Start_Date,
Bsv.End_Date
FROM Gl_Ledgers Lg,
Gl_Ledger_Relationships Rs,
Gl_Ledger_Norm_Seg_Vals Bsv,
Gl_Ledgers Lgr_c
WHERE ((Rs.Relationship_Type_Code = 'NONE' AND
Rs.Target_Ledger_Id = p_Ledger_Id) OR
(Rs.Target_Ledger_Category_Code = 'ALC' AND
Rs.Relationship_Type_Code IN ('SUBLEDGER', 'JOURNAL') AND
Rs.Source_Ledger_Id = p_Ledger_Id))
AND Rs.Application_Id = 101
AND Lg.Ledger_Id = Rs.Target_Ledger_Id
AND Bsv.Ledger_Id = p_Ledger_Id
AND Rs.Target_Ledger_Id = Lgr_c.Ledger_Id
AND Nvl(Lgr_c.Complete_Flag, 'Y') = 'Y'
AND Bsv.Segment_Type_Code = 'B'
-- We should exclude segment values with status code = 'D' since they
-- will be deleted by the flatten program when config is confirmed
-- AND bsv.status_code IS NULL
AND Nvl(Bsv.Status_Code, 'I') <> 'D'
AND Bsv.Legal_Entity_Id = p_Legal_Entity_Id;
SELECT Nvl(Fvt.Application_Table_Name, 'FND_FLEX_VALUES'),
Nvl(Fvt.Value_Column_Name, 'FLEX_VALUE'),
Fvs.Validation_Type
INTO l_Fv_Table,
l_Fv_Col,
l_Fv_Type
FROM Fnd_Flex_Value_Sets Fvs,
Fnd_Flex_Validation_Tables Fvt
WHERE Fvs.Flex_Value_Set_Id = l_Bsv_Vset_Id
AND Fvt.Flex_Value_Set_Id(+) = Fvs.Flex_Value_Set_Id;
l_Insertsql(l_Line_No) := 'INSERT INTO JA_CN_LEDGER_LE_BSV_GT';
l_Insertsql(l_Line_No) := '(LEDGER_ID, LEDGER_CATEGORY_CODE, ';
l_Insertsql(l_Line_No) := ' CHART_OF_ACCOUNTS_ID, BAL_SEG_VALUE_OPTION_CODE, BAL_SEG_VALUE_SET_ID, ';
l_Insertsql(l_Line_No) := ' BAL_SEG_VALUE, LEGAL_ENTITY_ID, ';
l_Insertsql(l_Line_No) := ' START_DATE, END_DATE) ';
l_Insertsql(l_Line_No) := 'SELECT lg.LEDGER_ID, lg.LEDGER_CATEGORY_CODE, ';
l_Insertsql(l_Line_No) := ' lg.CHART_OF_ACCOUNTS_ID, lg.BAL_SEG_VALUE_OPTION_CODE, ';
l_Insertsql(l_Line_No) := ' lg.BAL_SEG_VALUE_SET_ID, bsv.' ||
l_Fv_Col || ', ';
l_Insertsql(l_Line_No) := p_Legal_Entity_Id ||
', bsv.START_DATE_ACTIVE, bsv.END_DATE_ACTIVE ';
l_Insertsql(l_Line_No) := p_Legal_Entity_Id ||
', NULL, NULL ';
l_Insertsql(l_Line_No) := 'FROM GL_LEDGERS lg, ' || l_Fv_Table ||
' bsv ';
l_Insertsql(l_Line_No) := 'WHERE (lg.ledger_id = :lg_id1 ';
l_Insertsql(l_Line_No) := ' OR lg.ledger_id IN ( ';
l_Insertsql(l_Line_No) := ' SELECT ledger_id FROM GL_ALC_LEDGER_RSHIPS_V ';
l_Insertsql(l_Line_No) := ' WHERE application_id = 101 ';
l_Insertsql(l_Line_No) := ' AND source_ledger_id = :lg_id2)) ';
l_Insertsql(l_Line_No) := 'AND bsv.flex_value_set_id = lg.bal_seg_value_set_id ';
l_Insertsql(l_Line_No) := 'AND bsv.summary_flag = ''N'' ';
l_Insertsql,
1,
l_Line_No,
TRUE,
Dbms_Sql.Native);
SELECT NUM+1 INTO l_num
FROM FND_SEGMENT_ATTRIBUTE_VALUES FSAV,
(SELECT ROWNUM NUM, APPLICATION_COLUMN_NAME
FROM (SELECT APPLICATION_COLUMN_NAME, SEGMENT_NUM
FROM FND_ID_FLEX_SEGMENTS
WHERE ID_FLEX_NUM = p_coa_id
AND ID_FLEX_CODE = 'GL#'
AND APPLICATION_ID = 101
AND ENABLED_FLAG = 'Y'
ORDER BY SEGMENT_NUM)) FIFS
WHERE FSAV.APPLICATION_ID = 101
AND FSAV.ID_FLEX_NUM = p_coa_id
AND ID_FLEX_CODE = 'GL#'
AND FSAV.ATTRIBUTE_VALUE = 'Y'
AND FSAV.SEGMENT_ATTRIBUTE_TYPE = 'GL_BALANCING'
AND FSAV.APPLICATION_COLUMN_NAME = FIFS.APPLICATION_COLUMN_NAME;