The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT NULL INTO dummy
FROM fnd_descr_flex_contexts
WHERE application_id = p_application_id
AND descriptive_flexfield_name = p_descriptive_flexfield_name
AND descriptive_flex_context_code = p_descr_flex_context_code;
select NULL INTO dummy
from FND_DESCR_FLEX_COLUMN_USAGES
where APPLICATION_ID = p_application_id
and DESCRIPTIVE_FLEX_CONTEXT_CODE = p_context_code
and DESCRIPTIVE_FLEXFIELD_NAME = p_flexfield_name
and APPLICATION_COLUMN_NAME = p_application_column_name;
select NULL INTO dummy
from FND_DESCR_FLEX_COLUMN_USAGES
where APPLICATION_ID = p_application_id
and DESCRIPTIVE_FLEX_CONTEXT_CODE = p_context_code
and DESCRIPTIVE_FLEXFIELD_NAME = p_flexfield_name
and END_USER_COLUMN_NAME = p_segment_name;
PROCEDURE QP_UPDATE_UPGRADE( P_PRODUCT IN VARCHAR2
, P_NEW_PRODUCT IN VARCHAR2
, P_FLEXFIELD_NAME IN VARCHAR2
, P_NEW_FLEXFIELD_NAME IN VARCHAR2)
IS
P_FLEXFIELD FND_DFLEX.DFLEX_R;
--dbms_output.put_line('Trying to delete segments under old context');
FND_FLEX_DSC_API.DELETE_SEGMENT( P_NEW_PRODUCT
,P_NEW_FLEXFIELD_NAME
,OLD_GDE_CONTEXT_CODE -- Global Data Elements
,NEW_GDE_SEGMENTS.SEGMENT_NAME(I));
SELECT FLEX_VALUE_SET_NAME INTO
L_VALUE_SET
FROM FND_FLEX_VALUE_SETS
WHERE FLEX_VALUE_SET_ID = L_VALUE_SET_ID;
p_error_module => 'QP_Update_Upgrade');
SELECT FLEX_VALUE_SET_NAME INTO
L_VALUE_SET
FROM FND_FLEX_VALUE_SETS
WHERE FLEX_VALUE_SET_ID = L_VALUE_SET_ID;
p_error_type => 'ERROR IN UPDATE SEGMENT',
p_error_desc => ' Application Id : ' || p_application_id ||
' Old Flexfield Name : ' || P_FLEXFIELD_NAME ||
' New Flexfield Name : ' || P_NEW_FLEXFIELD_NAME ||
' Context Name : ' || p_context_name ||
' Application Column Name : ' || p_application_column_name ||
' Application Segment Name : ' || p_segment_name ,
p_error_module => 'QP_Update_Upgrade');
SELECT FLEX_VALUE_SET_NAME INTO
L_VALUE_SET
FROM FND_FLEX_VALUE_SETS
WHERE FLEX_VALUE_SET_ID = L_VALUE_SET_ID;
p_error_type => 'ERROR IN UPDATE SEGMENT',
p_error_desc => ' Application Id : ' || p_application_id ||
' Old Flexfield Name : ' || P_FLEXFIELD_NAME ||
' New Flexfield Name : ' || P_NEW_FLEXFIELD_NAME ||
' Context Name : ' || p_context_name ||
' Application Column Name : ' || p_application_column_name ||
' Application Segment Name : ' || p_segment_name ,
p_error_module => 'QP_Update_Upgrade');
p_error_module => 'QP_Update_Upgrade');
END QP_UPDATE_UPGRADE;
INSERT INTO QP_UPGRADE_ERRORS(ERROR_ID,UPG_SESSION_ID,ID1,ID2,ID3,ID4,ID5,ID6,ID7,ID8,ERROR_TYPE,
ERROR_DESC,ERROR_MODULE,CREATION_DATE,CREATED_BY,LAST_UPDATE_DATE,
LAST_UPDATED_BY,LAST_UPDATE_LOGIN) VALUES
(QP_UPGRADE_ERRORS_S.NEXTVAL,USERENV('SESSIONID'),
P_ID1,P_ID2,P_ID3,P_ID4,P_ID5,P_ID6,P_ID7,P_ID8,
P_ERROR_TYPE, SUBSTR(P_ERROR_DESC,1,240),P_ERROR_MODULE,SYSDATE,
FND_GLOBAL.USER_ID,SYSDATE,FND_GLOBAL.USER_ID,FND_GLOBAL.LOGIN_ID);