[Home] [Help]
517: end InsertSequence;
518:
519: --
520: -- InsertView (PRIVATE))
521: -- Add a new view into FND_VIEWS. This is only called after checking
522: -- there is no such view key exists in UploadView().
523: --
524: procedure InsertView (
525: x_application_id in number,
532: x_last_updated_by in number,
533: x_last_update_login in number
534: ) is
535: begin
536: insert into FND_VIEWS (
537: APPLICATION_ID,
538: VIEW_ID,
539: VIEW_NAME,
540: TEXT,
545: CREATION_DATE,
546: CREATED_BY)
547: values (
548: x_application_id,
549: FND_VIEWS_S.NEXTVAL,
550: x_view_name,
551: x_text,
552: x_description,
553: x_last_updated_by,
1050: x_view_name in varchar2) return number
1051: is
1052: len number;
1053: begin
1054: for r in (select text from fnd_views
1055: where application_id = x_application_id
1056: and view_name = x_view_name) loop
1057: len := length(r.text);
1058:
1072: begin
1073: begin
1074: select text
1075: into vtext
1076: from fnd_views
1077: where application_id = x_application_id
1078: and view_name = x_view_name;
1079: len := 200;
1080: return(len);
1467: end RemoveSequence;
1468:
1469: --
1470: -- RemoveView (PUBLIC)
1471: -- Remove view from FND_VIEWS and FND_VIEW_COLUMNS table.
1472: --
1473: procedure RemoveView(
1474: x_application_short_name in varchar2,
1475: x_view_name in varchar2) is
1490: end;
1491:
1492: begin
1493: select view_id into vw_id
1494: from fnd_views
1495: where application_id = appl_id
1496: and view_name = upper(x_view_name);
1497: exception
1498: when no_data_found then
1496: and view_name = upper(x_view_name);
1497: exception
1498: when no_data_found then
1499: RAISE_APPLICATION_ERROR(
1500: -20001, 'Sql no data found in fnd_views for view name '
1501: || x_view_name , TRUE);
1502: return;
1503: end;
1504:
1506: delete from fnd_view_columns
1507: where application_id = appl_id
1508: and view_id = vw_id;
1509:
1510: delete from fnd_views
1511: where application_id = appl_id
1512: and view_id = vw_id;
1513:
1514: end RemoveView;
3505: -- Validate Application
3506: if (P_NZDT_MODE ='Y')
3507: then
3508: begin
3509: AD_ZD_SEED.PREPARE ('FND_VIEWS');
3510: AD_ZD_SEED.PREPARE ('FND_VIEW_COLUMNS');
3511: end;
3512: end if;
3513: begin
3533: begin
3534:
3535: select VIEW_ID
3536: into vw_id
3537: from fnd_views
3538: where application_id = appl_id
3539: and VIEW_NAME = x_view_name;
3540:
3541: select LAST_UPDATED_BY, LAST_UPDATE_DATE
3539: and VIEW_NAME = x_view_name;
3540:
3541: select LAST_UPDATED_BY, LAST_UPDATE_DATE
3542: into db_luby, db_ludate
3543: from FND_VIEWS
3544: where APPLICATION_ID = appl_id
3545: and VIEW_NAME = x_view_name;
3546:
3547: if (upload_test(f_luby, f_ludate, db_luby,
3546:
3547: if (upload_test(f_luby, f_ludate, db_luby,
3548: db_ludate, X_CUSTOM_MODE)) then
3549:
3550: update FND_VIEWS set
3551: TEXT = x_text,
3552: DESCRIPTION = x_description,
3553: LAST_UPDATED_BY = f_luby,
3554: LAST_UPDATE_DATE = f_ludate,
3585: else -- phase_mode = 'END'
3586:
3587: select VIEW_ID
3588: into vw_id
3589: from fnd_views
3590: where application_id = appl_id
3591: and VIEW_NAME = x_view_name;
3592:
3593: -- Bug2631776 get the latest value for the last update for the db entity
3729: into appl_id
3730: from FND_APPLICATION A
3731: where A.APPLICATION_SHORT_NAME = x_application_short_name;
3732:
3733: select V.VIEW_ID into vw_id from FND_VIEWS V
3734: where V.APPLICATION_ID = appl_id
3735: and V.VIEW_NAME = x_view_name;
3736:
3737: -- Translate owner to file_last_updated_by