[Home] [Help]
1: package body ad_invoker as
2: /* $Header: adinvspb.pls 120.0 2005/05/25 11:49:07 appldev noship $ */
3:
4: --
5: -- Global private SQL cursors
97:
98: procedure get_rewrite_pkgs
99: (is_incremental in varchar2)
100: --
101: -- Loads the AD_INVOKER_TASKS table with the list of packages,
102: -- procedures, and functions in the first APPS schema that need to
103: -- be re-written for Invoker's Rights
104: --
105: -- is_incremental can be either
117: invoker_flag varchar2(10);
118: begin
119: ad_apps_private.error_buf := null;
120: --
121: -- Insert rows into ad_invoker_tasks for all packages, procedures, and
122: -- functions that do not contain the 'AUTHID' keyword
123: --
124: -- Only look in the first APPS schema.
125: --
132: found_authid, invoker_flag);
133:
134: if found_authid = 'FALSE' then
135:
136: insert into ad_invoker_tasks (
137: phase, owner, name, type, other_schema,
138: worker, done_flag, authid_flag, invoker_flag, boundary_flag)
139: values (
140: 1, c1.owner, c1.object_name, c1.object_type, c1.owner,
154: found_authid, invoker_flag);
155:
156: if found_authid = 'FALSE' then
157:
158: insert into ad_invoker_tasks (
159: phase, owner, name, type, other_schema,
160: worker, done_flag, authid_flag, invoker_flag, boundary_flag)
161: values (
162: 1, c1.owner, c1.object_name, c1.object_type, c1.owner,
184:
185: procedure add_phase_boundary
186: (num_workers in integer)
187: --
188: -- Loads the AD_INVOKER_TASKS table with a phase boundary,
189: -- which consists of one row per worker with the boundary_flag set
190: --
191: is
192: num_workers_local pls_integer;
201:
202: -- Actual length: 225
203:
204: statement :=
205: 'insert into ad_invoker_tasks ('||
206: 'phase, owner, name, type, other_schema,'||
207: 'worker, done_flag, authid_flag, invoker_flag, boundary_flag)'||
208: 'values ('||
209: '2, ''Boundary'', ''Boundary'', ''Boundary'', to_char(:wrk_num),'||
227:
228: procedure get_grant_pkgs
229: (is_incremental in varchar2)
230: --
231: -- Loads the AD_INVOKER_TASKS table with the list of packages,
232: -- procedures, functions and Java objects in the first APPS schema
233: -- in a cross product with all of the other APPS schemas.
234: -- Will have to verify the grants/synonyms for each combination of
235: -- first and (2-N)th APPS schemas
268: if is_incremental = 'FALSE' then
269:
270: for c1 in GRANTS_NOT_INCR loop
271:
272: insert into ad_invoker_tasks (
273: phase, owner, name, type, other_schema,
274: worker, done_flag, authid_flag, invoker_flag, boundary_flag)
275: values (
276: 3, c1.owner, c1.object_name, c1.object_type, c1.oracle_username,
282: elsif is_incremental = 'TRUE' then
283:
284: for c1 in GRANTS_INCR loop
285:
286: insert into ad_invoker_tasks (
287: phase, owner, name, type, other_schema,
288: worker, done_flag, authid_flag, invoker_flag, boundary_flag)
289: values (
290: 3, c1.owner, c1.object_name, c1.object_type, c1.oracle_username,
585: --
586: is
587: cursor WORKER_GRANTS is
588: select rowid, owner, name, type
589: from ad_invoker_tasks
590: where phase = 3
591: and type not like 'JAVA%'
592: and worker = calculate_grant_types.worker_num;
593: found_authid varchar2(10);
599: found_authid, invoker_flag);
600:
601: if found_authid = 'FALSE' then
602:
603: update ad_invoker_tasks
604: set authid_flag = 'N',
605: invoker_flag = null
606: where rowid = c1.rowid;
607:
606: where rowid = c1.rowid;
607:
608: else
609:
610: update ad_invoker_tasks
611: set authid_flag = 'Y',
612: invoker_flag = calculate_grant_types.invoker_flag
613: where rowid = c1.rowid;
614:
636: --
637: is
638: cursor cs1 (phase_num in number) is
639: select rowid
640: from ad_invoker_tasks
641: where phase = phase_num;
642: counter pls_integer;
643: num_workers_local pls_integer;
644: begin
654: if mod(counter, num_workers_local + 1) = 0 then
655: counter := 1;
656: end if;
657:
658: update ad_invoker_tasks
659: set worker = counter
660: where rowid = the_rec.rowid;
661:
662: counter := counter + 1;
678: if mod(counter, num_workers_local + 1) = 0 then
679: counter := 1;
680: end if;
681:
682: update ad_invoker_tasks
683: set worker = counter
684: where rowid = the_rec.rowid;
685:
686: counter := counter + 1;
705: --
706: is
707: cursor ANY_INV_ROWS is
708: select count(*)
709: from ad_invoker_tasks
710: where phase in (1, 3);
711: cursor APPS_SCHEMAS is
712: select oracle_username
713: from fnd_oracle_userid
761:
762: procedure update_done
763: (what_row in rowid)
764: --
765: -- Sets AD_INVOKER_TASKS.DONE_FLAG to 'Y' for this particular row.
766: -- Commits the changes using an autonomous transaction
767: --
768: is
769: PRAGMA AUTONOMOUS_TRANSACTION;
768: is
769: PRAGMA AUTONOMOUS_TRANSACTION;
770: begin
771:
772: update ad_invoker_tasks
773: set done_flag = 'Y'
774: where rowid = what_row;
775:
776: commit;
800: other_schema varchar2(30);
801: is_done varchar2(2);
802: cursor c1 (worker_number in number) is
803: select rowid the_row_id
804: from ad_invoker_tasks
805: where phase = 1
806: and worker = worker_number;
807: cursor c2 (c_row_id in rowid) is
808: select owner, name, type, other_schema, done_flag
805: where phase = 1
806: and worker = worker_number;
807: cursor c2 (c_row_id in rowid) is
808: select owner, name, type, other_schema, done_flag
809: from ad_invoker_tasks
810: where rowid = c_row_id;
811: begin
812: --
813: -- clear error buffer
1500: is
1501: cursor c1 (worker_number in number) is
1502: select rowid, owner, name, type, other_schema,
1503: authid_flag, invoker_flag, done_flag
1504: from ad_invoker_tasks
1505: where phase = 3
1506: and worker = worker_number;
1507: begin
1508: --
3170: raise;
3171: end classify_plsql_array;
3172:
3173:
3174: end ad_invoker;