The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT DECODE( X_Object_Name
, 'HEADER' , Contract_Num_Mode
, 'CHGREQ' , ChgReq_Num_Mode )
, DECODE( X_Object_Name
, 'HEADER' , Manual_Contract_Num_Type
, 'CHGREQ' , Manual_ChgReq_Num_Type )
INTO X_Num_Mode
, X_Manual_Num_Type
FROM oke_number_options
WHERE K_Type_Code = X_K_Type_Code
AND Buy_Or_Sell = X_Buy_Or_Sell;
SELECT Contract_Num_Mode Num_Mode
, Next_Contract_Num Next_Num
, Contract_Num_Width Width
FROM oke_number_options
WHERE K_Type_Code = X_K_Type_Code
AND Buy_Or_Sell = X_Buy_Or_Sell
FOR UPDATE OF Next_Contract_Num;
UPDATE oke_number_options
SET Next_Contract_Num = Next_Contract_Num +
Contract_Num_Increment
, Last_Update_Date = sysdate
, Last_Updated_By = FND_GLOBAL.User_ID
WHERE K_Type_Code = X_K_Type_Code
AND Buy_Or_Sell = X_Buy_Or_Sell;
SELECT ChgReq_Num_Mode Num_Mode
, ChgReq_Num_Increment Incr
, ChgReq_Num_Width Width
FROM oke_number_options O
, oke_k_headers EH
, okc_k_headers_b CH
WHERE O.K_Type_Code = EH.K_Type_Code
AND O.Buy_Or_Sell = CH.Buy_Or_Sell
AND CH.ID = EH.K_Header_ID
AND EH.K_Header_ID = X_K_Header_ID;
SELECT Chg_Request_Num
FROM oke_chg_requests cr
WHERE K_Header_ID = X_K_Header_ID
AND ltrim(Chg_Request_Num,'0') = (
SELECT TO_CHAR(MAX(TO_NUMBER(Chg_Request_Num)))
FROM oke_chg_requests
WHERE K_Header_ID = cr.K_Header_ID
AND OKE_NUMBER_SEQUENCES_PKG.Value_Is_Numeric
(Chg_Request_Num) = 'Y'
)
FOR UPDATE OF Chg_Request_Num;
SELECT ONO.Line_Num_Start_Number
, ONO.Line_Num_Increment
, ONO.Line_Num_Width
FROM oke_number_options ONO
, oke_k_headers EH
, okc_k_headers_b CH
WHERE EH.k_header_id = X_K_Header_ID
AND CH.id = EH.k_header_id
AND ONO.k_type_code = EH.k_type_code
AND ONO.buy_or_sell = CH.buy_or_sell;
SELECT ONO.SubLine_Num_Start_Number
, ONO.SubLine_Num_Increment
, ONO.SubLine_Num_Width
FROM oke_number_options ONO
, oke_k_headers EH
, okc_k_headers_b CH
WHERE EH.k_header_id = X_K_Header_ID
AND CH.id = EH.k_header_id
AND ONO.k_type_code = EH.k_type_code
AND ONO.buy_or_sell = CH.buy_or_sell;
SELECT Line_Number
FROM okc_k_lines_b d
WHERE ID = X_Parent_Line_ID;
SELECT Line_Number
FROM okc_k_lines_b d
WHERE Dnz_Chr_ID = X_K_Header_ID
AND NVL(CLe_ID,-1) = NVL(X_Parent_Line_ID,-1)
AND ltrim(Line_Number,'0') = (
SELECT TO_CHAR(MAX(TO_NUMBER(Line_Number)))
FROM okc_k_lines_b
WHERE Dnz_Chr_ID = d.Dnz_Chr_ID
AND NVL(CLe_ID,-1) = NVL(X_Parent_Line_ID,-1)
AND OKE_NUMBER_SEQUENCES_PKG.Value_Is_Numeric
(Line_Number) = 'Y'
)
FOR UPDATE OF Line_Number;
SELECT ONO.Delv_Num_Start_Number
, ONO.Delv_Num_Increment
, ONO.Delv_Num_Width
FROM oke_number_options ONO
, oke_k_headers EH
, okc_k_headers_b CH
WHERE EH.k_header_id = X_K_Header_ID
AND CH.id = EH.k_header_id
AND ONO.k_type_code = EH.k_type_code
AND ONO.buy_or_sell = CH.buy_or_sell;
SELECT Deliverable_Num
FROM oke_k_deliverables_b d
WHERE K_Header_ID = X_K_Header_ID
AND K_Line_ID = X_K_Line_ID
AND ltrim(Deliverable_Num,'0') = (
SELECT to_char(max(to_number(Deliverable_Num)))
FROM oke_k_deliverables_b
WHERE K_Header_ID = d.K_Header_ID
AND K_Line_ID = d.K_Line_ID
AND OKE_NUMBER_SEQUENCES_PKG.Value_Is_Numeric
(Deliverable_Num) = 'Y'
)
FOR UPDATE OF Deliverable_Num;