118: BEGIN
119: module := 'CREATE_PACKAGE';
120: module_log_write(module, g_module_enter);
121:
122: -- Get APPLSYS information. Needed for ad_ddl
123: IF NOT fnd_installation.get_app_info('FND', status, industry, appl) THEN
124: raise gcs_ccy_applsys_not_found;
125: END IF;
126:
261:
262: curr_pos := 1;
263: body_len := LENGTH(body_block);
264: WHILE curr_pos <= body_len LOOP
265: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
266: line_num);
267: curr_pos := curr_pos + g_line_size;
268: line_num := line_num + 1;
269: END LOOP;
294:
295: curr_pos := 1;
296: body_len := LENGTH(body_block);
297: WHILE curr_pos <= body_len LOOP
298: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
299: line_num);
300: curr_pos := curr_pos + g_line_size;
301: line_num := line_num + 1;
302: END LOOP;
337:
338: curr_pos := 1;
339: body_len := LENGTH(body_block);
340: WHILE curr_pos <= body_len LOOP
341: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
342: line_num);
343: curr_pos := curr_pos + g_line_size;
344: line_num := line_num + 1;
345: END LOOP;
370:
371: curr_pos := 1;
372: body_len := LENGTH(body_block);
373: WHILE curr_pos <= body_len LOOP
374: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
375: line_num);
376: curr_pos := curr_pos + g_line_size;
377: line_num := line_num + 1;
378: END LOOP;
415:
416: curr_pos := 1;
417: body_len := LENGTH(body_block);
418: WHILE curr_pos <= body_len LOOP
419: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
420: line_num);
421: curr_pos := curr_pos + g_line_size;
422: line_num := line_num + 1;
423: END LOOP;
457:
458: curr_pos := 1;
459: body_len := LENGTH(body_block);
460: WHILE curr_pos <= body_len LOOP
461: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
462: line_num);
463: curr_pos := curr_pos + g_line_size;
464: line_num := line_num + 1;
465: END LOOP;
486:
487: curr_pos := 1;
488: body_len := LENGTH(body_block);
489: WHILE curr_pos <= body_len LOOP
490: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
491: line_num);
492: curr_pos := curr_pos + g_line_size;
493: line_num := line_num + 1;
494: END LOOP;
520:
521: curr_pos := 1;
522: body_len := LENGTH(body_block);
523: WHILE curr_pos <= body_len LOOP
524: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
525: line_num);
526: curr_pos := curr_pos + g_line_size;
527: line_num := line_num + 1;
528: END LOOP;
556:
557: curr_pos := 1;
558: body_len := LENGTH(body_block);
559: WHILE curr_pos <= body_len LOOP
560: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
561: line_num);
562: curr_pos := curr_pos + g_line_size;
563: line_num := line_num + 1;
564: END LOOP;
591:
592: curr_pos := 1;
593: body_len := LENGTH(body_block);
594: WHILE curr_pos <= body_len LOOP
595: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
596: line_num);
597: curr_pos := curr_pos + g_line_size;
598: line_num := line_num + 1;
599: END LOOP;
675:
676: curr_pos := 1;
677: body_len := LENGTH(body_block);
678: WHILE curr_pos <= body_len LOOP
679: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
680: line_num);
681: curr_pos := curr_pos + g_line_size;
682: line_num := line_num + 1;
683: END LOOP;
731:
732: curr_pos := 1;
733: body_len := LENGTH(body_block);
734: WHILE curr_pos <= body_len LOOP
735: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
736: line_num);
737: curr_pos := curr_pos + g_line_size;
738: line_num := line_num + 1;
739: END LOOP;
754:
755: curr_pos := 1;
756: body_len := LENGTH(body_block);
757: WHILE curr_pos <= body_len LOOP
758: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
759: line_num);
760: curr_pos := curr_pos + g_line_size;
761: line_num := line_num + 1;
762: END LOOP;
787:
788: curr_pos := 1;
789: body_len := LENGTH(body_block);
790: WHILE curr_pos <= body_len LOOP
791: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
792: line_num);
793: curr_pos := curr_pos + g_line_size;
794: line_num := line_num + 1;
795: END LOOP;
818:
819: curr_pos := 1;
820: body_len := LENGTH(body_block);
821: WHILE curr_pos <= body_len LOOP
822: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
823: line_num);
824: curr_pos := curr_pos + g_line_size;
825: line_num := line_num + 1;
826: END LOOP;
874:
875: curr_pos := 1;
876: body_len := LENGTH(body_block);
877: WHILE curr_pos <= body_len LOOP
878: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
879: line_num);
880: curr_pos := curr_pos + g_line_size;
881: line_num := line_num + 1;
882: END LOOP;
897:
898: curr_pos := 1;
899: body_len := LENGTH(body_block);
900: WHILE curr_pos <= body_len LOOP
901: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
902: line_num);
903: curr_pos := curr_pos + g_line_size;
904: line_num := line_num + 1;
905: END LOOP;
930:
931: curr_pos := 1;
932: body_len := LENGTH(body_block);
933: WHILE curr_pos <= body_len LOOP
934: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
935: line_num);
936: curr_pos := curr_pos + g_line_size;
937: line_num := line_num + 1;
938: END LOOP;
962:
963: curr_pos := 1;
964: body_len := LENGTH(body_block);
965: WHILE curr_pos <= body_len LOOP
966: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
967: line_num);
968: curr_pos := curr_pos + g_line_size;
969: line_num := line_num + 1;
970: END LOOP;
1018:
1019: curr_pos := 1;
1020: body_len := LENGTH(body_block);
1021: WHILE curr_pos <= body_len LOOP
1022: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
1023: line_num);
1024: curr_pos := curr_pos + g_line_size;
1025: line_num := line_num + 1;
1026: END LOOP;
1059:
1060: curr_pos := 1;
1061: body_len := LENGTH(body_block);
1062: WHILE curr_pos <= body_len LOOP
1063: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
1064: line_num);
1065: curr_pos := curr_pos + g_line_size;
1066: line_num := line_num + 1;
1067: END LOOP;
1090:
1091: curr_pos := 1;
1092: body_len := LENGTH(body_block);
1093: WHILE curr_pos <= body_len LOOP
1094: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
1095: line_num);
1096: curr_pos := curr_pos + g_line_size;
1097: line_num := line_num + 1;
1098: END LOOP;
1146:
1147: curr_pos := 1;
1148: body_len := LENGTH(body_block);
1149: WHILE curr_pos <= body_len LOOP
1150: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
1151: line_num);
1152: curr_pos := curr_pos + g_line_size;
1153: line_num := line_num + 1;
1154: END LOOP;
1187:
1188: curr_pos := 1;
1189: body_len := LENGTH(body_block);
1190: WHILE curr_pos <= body_len LOOP
1191: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
1192: line_num);
1193: curr_pos := curr_pos + g_line_size;
1194: line_num := line_num + 1;
1195: END LOOP;
1296:
1297: curr_pos := 1;
1298: body_len := LENGTH(body_block);
1299: WHILE curr_pos <= body_len LOOP
1300: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
1301: line_num);
1302: curr_pos := curr_pos + g_line_size;
1303: line_num := line_num + 1;
1304: END LOOP;
1356:
1357: curr_pos := 1;
1358: body_len := LENGTH(body_block);
1359: WHILE curr_pos <= body_len LOOP
1360: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
1361: line_num);
1362: curr_pos := curr_pos + g_line_size;
1363: line_num := line_num + 1;
1364: END LOOP;
1381:
1382: curr_pos := 1;
1383: body_len := LENGTH(body_block);
1384: WHILE curr_pos <= body_len LOOP
1385: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
1386: line_num);
1387: curr_pos := curr_pos + g_line_size;
1388: line_num := line_num + 1;
1389: END LOOP;
1414:
1415: curr_pos := 1;
1416: body_len := LENGTH(body_block);
1417: WHILE curr_pos <= body_len LOOP
1418: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
1419: line_num);
1420: curr_pos := curr_pos + g_line_size;
1421: line_num := line_num + 1;
1422: END LOOP;
1436:
1437: curr_pos := 1;
1438: body_len := LENGTH(body_block);
1439: WHILE curr_pos <= body_len LOOP
1440: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
1441: line_num);
1442: curr_pos := curr_pos + g_line_size;
1443: line_num := line_num + 1;
1444: END LOOP;
1466:
1467: curr_pos := 1;
1468: body_len := LENGTH(body_block);
1469: WHILE curr_pos <= body_len LOOP
1470: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
1471: line_num);
1472: curr_pos := curr_pos + g_line_size;
1473: line_num := line_num + 1;
1474: END LOOP;
1525:
1526: curr_pos := 1;
1527: body_len := LENGTH(body_block);
1528: WHILE curr_pos <= body_len LOOP
1529: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
1530: line_num);
1531: curr_pos := curr_pos + g_line_size;
1532: line_num := line_num + 1;
1533: END LOOP;
1550:
1551: curr_pos := 1;
1552: body_len := LENGTH(body_block);
1553: WHILE curr_pos <= body_len LOOP
1554: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
1555: line_num);
1556: curr_pos := curr_pos + g_line_size;
1557: line_num := line_num + 1;
1558: END LOOP;
1583:
1584: curr_pos := 1;
1585: body_len := LENGTH(body_block);
1586: WHILE curr_pos <= body_len LOOP
1587: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
1588: line_num);
1589: curr_pos := curr_pos + g_line_size;
1590: line_num := line_num + 1;
1591: END LOOP;
1605:
1606: curr_pos := 1;
1607: body_len := LENGTH(body_block);
1608: WHILE curr_pos <= body_len LOOP
1609: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
1610: line_num);
1611: curr_pos := curr_pos + g_line_size;
1612: line_num := line_num + 1;
1613: END LOOP;
1637:
1638: curr_pos := 1;
1639: body_len := LENGTH(body_block);
1640: WHILE curr_pos <= body_len LOOP
1641: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
1642: line_num);
1643: curr_pos := curr_pos + g_line_size;
1644: line_num := line_num + 1;
1645: END LOOP;
1697:
1698: curr_pos := 1;
1699: body_len := LENGTH(body_block);
1700: WHILE curr_pos <= body_len LOOP
1701: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
1702: line_num);
1703: curr_pos := curr_pos + g_line_size;
1704: line_num := line_num + 1;
1705: END LOOP;
1740:
1741: curr_pos := 1;
1742: body_len := LENGTH(body_block);
1743: WHILE curr_pos <= body_len LOOP
1744: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
1745: line_num);
1746: curr_pos := curr_pos + g_line_size;
1747: line_num := line_num + 1;
1748: END LOOP;
1762:
1763: curr_pos := 1;
1764: body_len := LENGTH(body_block);
1765: WHILE curr_pos <= body_len LOOP
1766: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
1767: line_num);
1768: curr_pos := curr_pos + g_line_size;
1769: line_num := line_num + 1;
1770: END LOOP;
1793:
1794: curr_pos := 1;
1795: body_len := LENGTH(body_block);
1796: WHILE curr_pos <= body_len LOOP
1797: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
1798: line_num);
1799: curr_pos := curr_pos + g_line_size;
1800: line_num := line_num + 1;
1801: END LOOP;
1852:
1853: curr_pos := 1;
1854: body_len := LENGTH(body_block);
1855: WHILE curr_pos <= body_len LOOP
1856: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
1857: line_num);
1858: curr_pos := curr_pos + g_line_size;
1859: line_num := line_num + 1;
1860: END LOOP;
1895:
1896: curr_pos := 1;
1897: body_len := LENGTH(body_block);
1898: WHILE curr_pos <= body_len LOOP
1899: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
1900: line_num);
1901: curr_pos := curr_pos + g_line_size;
1902: line_num := line_num + 1;
1903: END LOOP;
1917:
1918: curr_pos := 1;
1919: body_len := LENGTH(body_block);
1920: WHILE curr_pos <= body_len LOOP
1921: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
1922: line_num);
1923: curr_pos := curr_pos + g_line_size;
1924: line_num := line_num + 1;
1925: END LOOP;
1959:
1960: curr_pos := 1;
1961: body_len := LENGTH(body_block);
1962: WHILE curr_pos <= body_len LOOP
1963: ad_ddl.build_statement(SUBSTR(body_block, curr_pos, g_line_size),
1964: line_num);
1965: curr_pos := curr_pos + g_line_size;
1966: line_num := line_num + 1;
1967: END LOOP;
1965: curr_pos := curr_pos + g_line_size;
1966: line_num := line_num + 1;
1967: END LOOP;
1968:
1969: ad_ddl.create_plsql_object(appl, 'APPS', 'GCS_TRANS_RE_DYNAMIC_PKG', 1, line_num - 1, 'FALSE', err);
1970:
1971: IF err = 'TRUE' THEN
1972: raise GCS_CCY_DYN_PKG_BUILD_ERR;
1973: END IF;