DBA Data[Home] [Help]

APPS.FND_ADG_OBJECT dependencies on DBMS_LOB

Line 331: dbms_lob.append

327: procedure generate_support_objects(p_body_code in out nocopy clob)
328: as
329: begin
330:
331: dbms_lob.append
332: (p_body_code,
333: -- *** RPC START OF INLINE ***
334: q'[
335: G_IS_VALID_SYNONYM boolean := null;

Line 510: dbms_lob.append(p_body_code,'PRAGMA AUTONOMOUS_TRANSACTION;'||LF);

506: end if;
507:
508: if ( p_is_slave and l_use_autonomous_tx )
509: then
510: dbms_lob.append(p_body_code,'PRAGMA AUTONOMOUS_TRANSACTION;'||LF);
511: end if;
512:
513: if ( l_use_autonomous_tx and p_is_function )
514: then

Line 515: dbms_lob.append(p_body_code,

511: end if;
512:
513: if ( l_use_autonomous_tx and p_is_function )
514: then
515: dbms_lob.append(p_body_code,
516: 'l_rc '||
517: get_type_string(p_function_return_type,p_rpcDescriptor) ||
518: ';'||LF);
519: end if;

Line 521: dbms_lob.append(p_body_code,

517: get_type_string(p_function_return_type,p_rpcDescriptor) ||
518: ';'||LF);
519: end if;
520:
521: dbms_lob.append(p_body_code,
522: 'l_rpcDescriptor fnd_adg_manage.rpcDescriptor;'||LF);
523:
524: dbms_lob.append(p_body_code,'begin'||LF);
525:

Line 524: dbms_lob.append(p_body_code,'begin'||LF);

520:
521: dbms_lob.append(p_body_code,
522: 'l_rpcDescriptor fnd_adg_manage.rpcDescriptor;'||LF);
523:
524: dbms_lob.append(p_body_code,'begin'||LF);
525:
526: dbms_lob.append(p_body_code,
527: ' l_rpcDescriptor.owner := ''' ||
528: p_rpcDescriptor.owner || ''';' || LF);

Line 526: dbms_lob.append(p_body_code,

522: 'l_rpcDescriptor fnd_adg_manage.rpcDescriptor;'||LF);
523:
524: dbms_lob.append(p_body_code,'begin'||LF);
525:
526: dbms_lob.append(p_body_code,
527: ' l_rpcDescriptor.owner := ''' ||
528: p_rpcDescriptor.owner || ''';' || LF);
529:
530: dbms_lob.append(p_body_code,

Line 530: dbms_lob.append(p_body_code,

526: dbms_lob.append(p_body_code,
527: ' l_rpcDescriptor.owner := ''' ||
528: p_rpcDescriptor.owner || ''';' || LF);
529:
530: dbms_lob.append(p_body_code,
531: ' l_rpcDescriptor.package_name := ''' ||
532: p_rpcDescriptor.package_name || ''';' || LF);
533:
534: dbms_lob.append(p_body_code,

Line 534: dbms_lob.append(p_body_code,

530: dbms_lob.append(p_body_code,
531: ' l_rpcDescriptor.package_name := ''' ||
532: p_rpcDescriptor.package_name || ''';' || LF);
533:
534: dbms_lob.append(p_body_code,
535: ' l_rpcDescriptor.rpc_package_name := ''' ||
536: p_rpcDescriptor.rpc_package_name || ''';' || LF);
537:
538: dbms_lob.append(p_body_code,

Line 538: dbms_lob.append(p_body_code,

534: dbms_lob.append(p_body_code,
535: ' l_rpcDescriptor.rpc_package_name := ''' ||
536: p_rpcDescriptor.rpc_package_name || ''';' || LF);
537:
538: dbms_lob.append(p_body_code,
539: ' l_rpcDescriptor.rpc_synonym_name := ''' ||
540: p_rpcDescriptor.rpc_synonym_name || ''';' || LF);
541:
542: dbms_lob.append(p_body_code,

Line 542: dbms_lob.append(p_body_code,

538: dbms_lob.append(p_body_code,
539: ' l_rpcDescriptor.rpc_synonym_name := ''' ||
540: p_rpcDescriptor.rpc_synonym_name || ''';' || LF);
541:
542: dbms_lob.append(p_body_code,
543: ' l_rpcDescriptor.method_name := ''' ||
544: p_rpcDescriptor.method_name || ''';' || LF);
545:
546: if ( p_is_slave )

Line 548: dbms_lob.append(p_body_code,

544: p_rpcDescriptor.method_name || ''';' || LF);
545:
546: if ( p_is_slave )
547: then
548: dbms_lob.append(p_body_code,
549: ' validate_slave_rpc(l_rpcDescriptor); ' || LF);
550: else
551: if ( l_use_commit_wait )
552: then

Line 553: dbms_lob.append(p_body_code,

549: ' validate_slave_rpc(l_rpcDescriptor); ' || LF);
550: else
551: if ( l_use_commit_wait )
552: then
553: dbms_lob.append(p_body_code,
554: ' validate_rpc(l_rpcDescriptor,true); ' || LF);
555: else
556: dbms_lob.append(p_body_code,
557: ' validate_rpc(l_rpcDescriptor); ' || LF);

Line 556: dbms_lob.append(p_body_code,

552: then
553: dbms_lob.append(p_body_code,
554: ' validate_rpc(l_rpcDescriptor,true); ' || LF);
555: else
556: dbms_lob.append(p_body_code,
557: ' validate_rpc(l_rpcDescriptor); ' || LF);
558: end if;
559: end if;
560:

Line 565: dbms_lob.append(p_body_code,' l_rc := ');

561: if ( p_is_function )
562: then
563: if ( l_use_autonomous_tx )
564: then
565: dbms_lob.append(p_body_code,' l_rc := ');
566: else
567: dbms_lob.append(p_body_code,'return ');
568: end if;
569: end if;

Line 567: dbms_lob.append(p_body_code,'return ');

563: if ( l_use_autonomous_tx )
564: then
565: dbms_lob.append(p_body_code,' l_rc := ');
566: else
567: dbms_lob.append(p_body_code,'return ');
568: end if;
569: end if;
570:
571: if ( p_is_slave )

Line 573: dbms_lob.append(p_body_code,

569: end if;
570:
571: if ( p_is_slave )
572: then
573: dbms_lob.append(p_body_code,
574: p_rpcDescriptor.package_name || '.' ||
575: p_rpcDescriptor.method_name);
576: else
577: dbms_lob.append(p_body_code,

Line 577: dbms_lob.append(p_body_code,

573: dbms_lob.append(p_body_code,
574: p_rpcDescriptor.package_name || '.' ||
575: p_rpcDescriptor.method_name);
576: else
577: dbms_lob.append(p_body_code,
578: p_rpcDescriptor.rpc_synonym_name || '.' ||
579: C_SLAVE_PREFIX||p_rpcDescriptor.method_name);
580: end if;
581:

Line 584: dbms_lob.append(p_body_code,'('||LF);

580: end if;
581:
582: if ( p_arg_table.count > 0 )
583: then
584: dbms_lob.append(p_body_code,'('||LF);
585:
586: for i in 1..p_arg_table.count loop
587:
588: if ( i > 1 )

Line 590: dbms_lob.append(p_body_code,','||LF);

586: for i in 1..p_arg_table.count loop
587:
588: if ( i > 1 )
589: then
590: dbms_lob.append(p_body_code,','||LF);
591: end if;
592:
593: dbms_lob.append(p_body_code,p_arg_table(i));
594:

Line 593: dbms_lob.append(p_body_code,p_arg_table(i));

589: then
590: dbms_lob.append(p_body_code,','||LF);
591: end if;
592:
593: dbms_lob.append(p_body_code,p_arg_table(i));
594:
595: end loop;
596:
597: dbms_lob.append(p_body_code,')');

Line 597: dbms_lob.append(p_body_code,')');

593: dbms_lob.append(p_body_code,p_arg_table(i));
594:
595: end loop;
596:
597: dbms_lob.append(p_body_code,')');
598:
599: end if;
600:
601: dbms_lob.append(p_body_code,';'||LF);

Line 601: dbms_lob.append(p_body_code,';'||LF);

597: dbms_lob.append(p_body_code,')');
598:
599: end if;
600:
601: dbms_lob.append(p_body_code,';'||LF);
602:
603: if ( l_use_autonomous_tx )
604: then
605: if ( p_is_slave )

Line 609: dbms_lob.append(p_body_code,

605: if ( p_is_slave )
606: then
607: if ( l_use_commit_wait )
608: then
609: dbms_lob.append(p_body_code,
610: ' handle_commit_wait_on_slave(l_rpcDescriptor);'||LF);
611: end if;
612:
613: dbms_lob.append(p_body_code,' commit;'||LF);

Line 613: dbms_lob.append(p_body_code,' commit;'||LF);

609: dbms_lob.append(p_body_code,
610: ' handle_commit_wait_on_slave(l_rpcDescriptor);'||LF);
611: end if;
612:
613: dbms_lob.append(p_body_code,' commit;'||LF);
614:
615: if ( p_is_function )
616: then
617: dbms_lob.append(p_body_code,' return l_rc;'||LF);

Line 617: dbms_lob.append(p_body_code,' return l_rc;'||LF);

613: dbms_lob.append(p_body_code,' commit;'||LF);
614:
615: if ( p_is_function )
616: then
617: dbms_lob.append(p_body_code,' return l_rc;'||LF);
618: end if;
619:
620: dbms_lob.append(p_body_code,' exception when others then '||LF);
621: dbms_lob.append(p_body_code,' rollback;'||LF);

Line 620: dbms_lob.append(p_body_code,' exception when others then '||LF);

616: then
617: dbms_lob.append(p_body_code,' return l_rc;'||LF);
618: end if;
619:
620: dbms_lob.append(p_body_code,' exception when others then '||LF);
621: dbms_lob.append(p_body_code,' rollback;'||LF);
622: dbms_lob.append(p_body_code,' raise ;'||LF);
623:
624: else

Line 621: dbms_lob.append(p_body_code,' rollback;'||LF);

617: dbms_lob.append(p_body_code,' return l_rc;'||LF);
618: end if;
619:
620: dbms_lob.append(p_body_code,' exception when others then '||LF);
621: dbms_lob.append(p_body_code,' rollback;'||LF);
622: dbms_lob.append(p_body_code,' raise ;'||LF);
623:
624: else
625:

Line 622: dbms_lob.append(p_body_code,' raise ;'||LF);

618: end if;
619:
620: dbms_lob.append(p_body_code,' exception when others then '||LF);
621: dbms_lob.append(p_body_code,' rollback;'||LF);
622: dbms_lob.append(p_body_code,' raise ;'||LF);
623:
624: else
625:
626: if ( l_use_commit_wait )

Line 628: dbms_lob.append(p_body_code,

624: else
625:
626: if ( l_use_commit_wait )
627: then
628: dbms_lob.append(p_body_code,
629: ' wait_for_commit_from_slave(l_rpcDescriptor);'||LF);
630: end if;
631:
632: if ( p_is_function )

Line 634: dbms_lob.append(p_body_code,' return l_rc;'||LF);

630: end if;
631:
632: if ( p_is_function )
633: then
634: dbms_lob.append(p_body_code,' return l_rc;'||LF);
635: end if;
636:
637: end if;
638: end if;

Line 640: dbms_lob.append(p_body_code,'end;'||LF);

636:
637: end if;
638: end if;
639:
640: dbms_lob.append(p_body_code,'end;'||LF);
641:
642: end;
643:
644: /*==========================================================================*/

Line 852: dbms_lob.trim(p_spec_code,0);

848: l_remapMethodTokenTable remapMethodTokenArray ;
849:
850: begin
851:
852: dbms_lob.trim(p_spec_code,0);
853:
854: for f_rec in c1(p_rpcDescriptor.owner,p_rpcDescriptor.package_name) loop
855:
856: if ( f_rec.authid = 'DEFINER' )

Line 865: dbms_lob.append

861: end if;
862:
863: end loop;
864:
865: dbms_lob.append
866: (p_spec_code,
867: 'create or replace package ' || p_rpcDescriptor.rpc_package_name ||
868: l_authid || ' as ' || LF
869: );

Line 871: dbms_lob.append

867: 'create or replace package ' || p_rpcDescriptor.rpc_package_name ||
868: l_authid || ' as ' || LF
869: );
870:
871: dbms_lob.append
872: (p_spec_code, ' C_TIMESTAMP constant varchar2(30) := ''' ||
873: to_char(sysdate,'J SSSSS') || ''';' || LF
874: );
875:

Line 907: dbms_lob.append(p_spec_code,l_method_definition);

903: l_function_return_type,true,false);
904:
905: if ( l_method_definition is not null )
906: then
907: dbms_lob.append(p_spec_code,l_method_definition);
908: end if;
909:
910: generate_method_definition(p_rpcDescriptor,l_overload,
911: l_method_definition,

Line 917: dbms_lob.append(p_spec_code,l_method_definition);

913: l_function_return_type,true,true);
914:
915: if ( l_method_definition is not null )
916: then
917: dbms_lob.append(p_spec_code,l_method_definition);
918: end if;
919:
920: end loop;
921: end loop;

Line 925: dbms_lob.append

921: end loop;
922: end if;
923: end loop;
924:
925: dbms_lob.append
926: (p_spec_code, 'end ' || p_rpcDescriptor.rpc_package_name || ';' || LF );
927:
928: end;
929:

Line 972: dbms_lob.trim(p_body_code,0);

968: l_remapMethodTokenTable remapMethodTokenArray ;
969:
970: begin
971:
972: dbms_lob.trim(p_body_code,0);
973:
974: dbms_lob.append
975: (p_body_code,
976: 'create or replace package body ' || p_rpcDescriptor.rpc_package_name ||

Line 974: dbms_lob.append

970: begin
971:
972: dbms_lob.trim(p_body_code,0);
973:
974: dbms_lob.append
975: (p_body_code,
976: 'create or replace package body ' || p_rpcDescriptor.rpc_package_name ||
977: ' as ' || LF
978: );

Line 1013: dbms_lob.append(p_body_code,l_method_definition);

1009: l_function_return_type, false,false );
1010:
1011: if ( l_method_definition is not null )
1012: then
1013: dbms_lob.append(p_body_code,l_method_definition);
1014:
1015: generate_method_body(p_rpcDescriptor,p_body_code,l_arg_table,
1016: l_is_function,l_function_return_type,false);
1017: end if;

Line 1026: dbms_lob.append(p_body_code,l_method_definition);

1022: l_function_return_type, false,true );
1023:
1024: if ( l_method_definition is not null )
1025: then
1026: dbms_lob.append(p_body_code,l_method_definition);
1027:
1028: generate_method_body(p_rpcDescriptor,p_body_code,
1029: l_slave_arg_table,
1030: l_is_function,l_function_return_type,true);

Line 1037: dbms_lob.append

1033: end loop;
1034: end if;
1035: end loop;
1036:
1037: dbms_lob.append
1038: (p_body_code, ' begin null; end; ' || LF );
1039:
1040: end;
1041:

Line 1114: l_clob_len := dbms_lob.getlength(p_code);

1110: dependencies. However, varchar2a doesn't raise -24344 - it
1111: just sets invalid status! Ah well, just check dictionary.
1112: */
1113:
1114: l_clob_len := dbms_lob.getlength(p_code);
1115: l_no_chunks := trunc(l_clob_len/C_PARSE_PIECE_SIZE);
1116:
1117: /* We use dbms_lob.read as substr has limit of 32767/4 for
1118: utf8 so we lose chars!*/

Line 1117: /* We use dbms_lob.read as substr has limit of 32767/4 for

1113:
1114: l_clob_len := dbms_lob.getlength(p_code);
1115: l_no_chunks := trunc(l_clob_len/C_PARSE_PIECE_SIZE);
1116:
1117: /* We use dbms_lob.read as substr has limit of 32767/4 for
1118: utf8 so we lose chars!*/
1119:
1120: for i in 1..l_no_chunks loop
1121: l_amount := C_PARSE_PIECE_SIZE;

Line 1122: dbms_lob.read(p_code,l_amount,1+(C_PARSE_PIECE_SIZE*(i-1)),l_buffer);

1118: utf8 so we lose chars!*/
1119:
1120: for i in 1..l_no_chunks loop
1121: l_amount := C_PARSE_PIECE_SIZE;
1122: dbms_lob.read(p_code,l_amount,1+(C_PARSE_PIECE_SIZE*(i-1)),l_buffer);
1123: l_stmt(i) := l_buffer;
1124: end loop;
1125:
1126: if ( mod(l_clob_len,C_PARSE_PIECE_SIZE) > 0 )

Line 1130: dbms_lob.read(p_code,l_amount,1+(C_PARSE_PIECE_SIZE*l_no_chunks),l_buffer);

1126: if ( mod(l_clob_len,C_PARSE_PIECE_SIZE) > 0 )
1127: then
1128: l_amount := mod(l_clob_len,C_PARSE_PIECE_SIZE);
1129:
1130: dbms_lob.read(p_code,l_amount,1+(C_PARSE_PIECE_SIZE*l_no_chunks),l_buffer);
1131: l_stmt(l_no_chunks+1) := l_buffer;
1132: end if;
1133:
1134: /*

Line 1290: dbms_lob.createtemporary(p_adj_code,false);

1286:
1287: l_new_code_str := substr(l_code_str,1,l_start_code_rcs-1) ||
1288: l_src_rcs_id || substr(l_code_str,l_end_code_rcs+1);
1289:
1290: dbms_lob.createtemporary(p_adj_code,false);
1291:
1292: dbms_lob.write(p_adj_code,length(l_new_code_str),1,l_new_code_str);
1293: dbms_lob.trim(p_adj_code,length(l_new_code_str));
1294:

Line 1292: dbms_lob.write(p_adj_code,length(l_new_code_str),1,l_new_code_str);

1288: l_src_rcs_id || substr(l_code_str,l_end_code_rcs+1);
1289:
1290: dbms_lob.createtemporary(p_adj_code,false);
1291:
1292: dbms_lob.write(p_adj_code,length(l_new_code_str),1,l_new_code_str);
1293: dbms_lob.trim(p_adj_code,length(l_new_code_str));
1294:
1295: end;
1296:

Line 1293: dbms_lob.trim(p_adj_code,length(l_new_code_str));

1289:
1290: dbms_lob.createtemporary(p_adj_code,false);
1291:
1292: dbms_lob.write(p_adj_code,length(l_new_code_str),1,l_new_code_str);
1293: dbms_lob.trim(p_adj_code,length(l_new_code_str));
1294:
1295: end;
1296:
1297: /*==========================================================================*/

Line 1411: dbms_lob.getlength(a.spec_code) spec_len,

1407: p_compile_body boolean default true)
1408: as
1409: cursor c1 is select a.owner,a.package_name,a.rpc_package_name,a.synonym_only,
1410: a.spec_code,a.body_code,
1411: dbms_lob.getlength(a.spec_code) spec_len,
1412: dbms_lob.getlength(a.body_code) body_len
1413: from fnd_adg_package a
1414: where a.owner = p_owner
1415: and a.package_name = p_package_name

Line 1412: dbms_lob.getlength(a.body_code) body_len

1408: as
1409: cursor c1 is select a.owner,a.package_name,a.rpc_package_name,a.synonym_only,
1410: a.spec_code,a.body_code,
1411: dbms_lob.getlength(a.spec_code) spec_len,
1412: dbms_lob.getlength(a.body_code) body_len
1413: from fnd_adg_package a
1414: where a.owner = p_owner
1415: and a.package_name = p_package_name
1416: order by a.owner,a.package_name;

Line 1609: dbms_lob.createtemporary(l_compile_unit,false);

1605: from fnd_adg_package a
1606: where a.owner = user
1607: and a.package_name = C_COMPILE_DIRECTIVE_PACKAGE;
1608:
1609: dbms_lob.createtemporary(l_compile_unit,false);
1610:
1611: if ( p_enable )
1612: then
1613: set_compile_directive_rcs_id(user,l_spec_code,l_compile_unit);

Line 1622: dbms_lob.freetemporary(l_compile_unit);

1618: compile_package_unit(user,C_COMPILE_DIRECTIVE_PACKAGE,
1619: C_COMPILE_DIRECTIVE_PACKAGE,l_compile_unit,false);
1620: end if;
1621:
1622: dbms_lob.freetemporary(l_compile_unit);
1623:
1624: end;
1625:
1626: /*==========================================================================*/