1208: l_sqlerrm varchar2(240);
1209:
1210: begin
1211:
1212: l_profile_check := FND_PROFILE.VALUE('PJI_SUM_CLEANALL');
1213:
1214: FND_MESSAGE.SET_NAME('PJI', 'PJI_SUM_CLEANALL_FAILED');
1215:
1216: if (upper(nvl(l_profile_check, 'N')) <> 'Y') then
1226: retcode := 1;
1227: return;
1228: end if;
1229:
1230: update FND_PROFILE_OPTION_VALUES
1231: set PROFILE_OPTION_VALUE = 'N'
1232: where APPLICATION_ID = 1292 and
1233: -- LEVEL_ID = 10001 and
1234: PROFILE_OPTION_ID in
1232: where APPLICATION_ID = 1292 and
1233: -- LEVEL_ID = 10001 and
1234: PROFILE_OPTION_ID in
1235: (select PROFILE_OPTION_ID
1236: from FND_PROFILE_OPTIONS
1237: where APPLICATION_ID = 1292 and
1238: PROFILE_OPTION_NAME = 'PJI_SUM_CLEANALL');
1239:
1240: commit;