[Home] [Help]
382: null, null,
383: null, null,
384: sysdate, 5, sysdate, 5,
385: 'N'
386: from dual
387: where not exists (select 'Already exists'
388: from ad_appl_tops t
389: where t.name = 'GLOBAL'
390: and t.appl_top_type = 'G'
422: sysdate, sysdate,
423: 'G', 'Created from Current View Snapshots',
424: 'N',
425: sysdate, 5, 5, sysdate
426: from dual
427: where not exists (select 'Already exists'
428: from ad_snapshots
429: where appl_top_id = p_global_appl_top_id
430: and snapshot_type = 'G'
1623: /* Debugging code. Helps in validating the built SQL, as well as in
1624: sizing the vars appropriately.
1625:
1626: if G_DEBUG then
1627: put_line('@@INDIVIDUAL VC2 VARS:');
1628: put_line('l_ins_stmt1 (len='||to_char(length(l_ins_stmt1))||'): ');
1629: put_line(l_ins_stmt1);
1630: put_line('l_ins_stmt1_contd (len='||
1631: to_char(length(l_ins_stmt1_contd))||'): ');
2313: if l_curr_vw_snapshot_id = -1 then
2314:
2315: -- create new CV through pressed.
2316:
2317: select ad_snapshots_s.nextval into l_curr_vw_snapshot_id from dual;
2318:
2319: insert into ad_snapshots
2320: (
2321: snapshot_id,
2331: 'CURRENT_VIEW', 'Current View',
2332: sysdate, sysdate,
2333: 'C', 'N',
2334: sysdate, sysdate, 5, 5
2335: from dual;
2336:
2337:
2338: -- select
2339: -- nvl(at1.server_type_admin_flag, 'N'), nvl(at1.server_type_forms_flag, 'N'),
2467: end if;
2468:
2469: p_return_code := G_INSTANTIATED_SNAPSHOT; -- Instantiated Snapshot
2470:
2471: select ad_snapshots_s.nextval into l_curr_vw_snapshot_id from dual;
2472:
2473: insert into ad_snapshots
2474: (
2475: snapshot_id,
2485: 'CURRENT_VIEW', 'Current View',
2486: sysdate, sysdate,
2487: 'C', 'N',
2488: sysdate, sysdate, 5, 5
2489: from dual;
2490:
2491: else
2492:
2493: update ad_snapshots