[Home] [Help]
69: sequence_num NUMBER;
70: CURSOR TAB_COL IS
71: SELECT COLUMN_NAME,
72: DECODE(DATA_TYPE, 'VARCHAR2', 2, 'NUMBER', 1, 'DATE', 3) TYPE ,
73: (DECODE( NULLABLE, 'N', '* ')) || (SELECT Meaning FROM bsc_lookups WHERE lookup_type = 'BSC_PMA_WEBADI_HINTS' and lookup_code = DATA_TYPE) HINT,
74: DECODE( NULLABLE, 'N', 'Y', 'N') NOT_NULL_FLAG,
75: DATA_LENGTH
76: FROM ALL_TAB_COLUMNS
77: WHERE OWNER=g_bsc_schema AND TABLE_NAME = TAB_NAME
101: l_stmt :='INSERT INTO BNE_INTERFACE_COLS_TL ( APPLICATION_ID, INTERFACE_CODE, SEQUENCE_NUM, LANGUAGE,
102: SOURCE_LANG, USER_HINT, PROMPT_LEFT, USER_HELP_TEXT, PROMPT_ABOVE, CREATED_BY, CREATION_DATE,
103: LAST_UPDATED_BY, LAST_UPDATE_LOGIN, LAST_UPDATE_DATE )
104: VALUES ( 271, '''|| TAB_NAME ||'_INTF'', 1, USERENV(''LANG''), USERENV(''LANG''), null,
105: (select Meaning from bsc_lookups where lookup_type =''BSC_PMA_WEBADI_HINTS''
106: and lookup_Code = ''INTERFACE_TAB''), null, null, 1355,
107: sysdate, 1355, 0, sysdate)';
108:
109: EXECUTE IMMEDIATE L_STMT;
446: DEFAULT_STRING, DEFAULT_DESC, PROMPT_LEFT, PROMPT_ABOVE, USER_TIP, ACCESS_KEY,
447: LAST_UPDATE_DATE, LAST_UPDATED_BY, CREATION_DATE, CREATED_BY, LAST_UPDATE_LOGIN ) VALUES (
448: 271,'''|| TAB_NAME ||'_DUP'',USERENV(''LANG''),USERENV(''LANG''),''Duplicate Parameter Query'' ,null,''Update Columns'',
449: BSC_WEB_ADI_LOADER_PKG.get_lookup_value(''BSC_PMA_WEBADI_UPL_DUP'',''DUPLICATE_REC''),
450: null,null,null,sysdate, 2, sysdate, 2, 0)'; --BSC_LOOKUPS
451: EXECUTE IMMEDIATE L_STMT;
452: end if;
453:
454: l_stmt := 'INSERT INTO BNE_PARAM_DEFNS_TL(APPLICATION_ID, PARAM_DEFN_CODE, LANGUAGE, SOURCE_LANG, USER_NAME,
624: -- Duplicate Profile TL
625: l_stmt := 'INSERT INTO BNE_DUPLICATE_PROFILES_TL(APPLICATION_ID, DUP_PROFILE_CODE, LANGUAGE, SOURCE_LANG, USER_NAME,
626: LAST_UPDATE_DATE, LAST_UPDATED_BY, CREATION_DATE, CREATED_BY, LAST_UPDATE_LOGIN ) VALUES (
627: 271,'''|| TAB_NAME ||'_REP'',USERENV(''LANG''),USERENV(''LANG''),
628: BSC_WEB_ADI_LOADER_PKG.get_lookup_value(''BSC_PMA_WEBADI_UPL_REP'',''REPLACE_DUP''),sysdate, 2, sysdate, 2, 0)'; --BSC_LOOKUPS
629: EXECUTE IMMEDIATE L_STMT;
630:
631: -- Associating Duplicate Profile with Interface list
632: l_stmt := 'INSERT INTO BNE_DUP_INTERFACE_PROFILES(INTERFACE_APP_ID, INTERFACE_CODE, DUP_PROFILE_APP_ID,
879: return l_bsc_schema;
880: end;
881:
882: /*---------------------------------------------------------------------------
883: API to get the BSC Lookups
884: ----------------------------------------------------------------------------*/
885: FUNCTION get_lookup_value(type VARCHAR2, code VARCHAR2) return varchar2 is
886: lookup_value VARCHAR2(80);
887: BEGIN
886: lookup_value VARCHAR2(80);
887: BEGIN
888: SELECT meaning
889: INTO lookup_value
890: FROM bsc_lookups
891: WHERE APPLICATION_ID=271 and lookup_type = type AND lookup_code = code ;
892:
893: RETURN lookup_value;
894: END;