[Home] [Help]
793:
794: BEGIN
795: SELECT 1
796: INTO VN_INTERFACE_EXISTS
797: FROM BNE_INTERFACES_B BIB, BNE_INTERFACES_TL BIT
798: WHERE BIB.APPLICATION_ID = BIT.APPLICATION_ID
799: AND BIB.INTERFACE_CODE = BIT.INTERFACE_CODE
800: AND BIB.APPLICATION_ID = P_APPLICATION_ID
801: AND BIT.LANGUAGE = P_LANGUAGE
819: VALUES
820: (P_APPLICATION_ID, P_INTERFACE_CODE, 1, P_APPLICATION_ID, P_INTEGRATOR_CODE,
821: P_INTERFACE_TABLE_NAME, 1, P_USER_ID, SYSDATE, P_USER_ID, SYSDATE);
822:
823: -- Insert into BNE_INTERFACES_TL table
824:
825: INSERT INTO BNE_INTERFACES_TL
826: (APPLICATION_ID, INTERFACE_CODE, LANGUAGE, SOURCE_LANG, USER_NAME,
827: CREATED_BY, CREATION_DATE, LAST_UPDATED_BY, LAST_UPDATE_DATE)
821: P_INTERFACE_TABLE_NAME, 1, P_USER_ID, SYSDATE, P_USER_ID, SYSDATE);
822:
823: -- Insert into BNE_INTERFACES_TL table
824:
825: INSERT INTO BNE_INTERFACES_TL
826: (APPLICATION_ID, INTERFACE_CODE, LANGUAGE, SOURCE_LANG, USER_NAME,
827: CREATED_BY, CREATION_DATE, LAST_UPDATED_BY, LAST_UPDATE_DATE)
828: VALUES
829: (P_APPLICATION_ID, P_INTERFACE_CODE, P_LANGUAGE, P_SOURCE_LANG, P_INTERFACE_USER_NAME,
1048:
1049: BEGIN
1050: SELECT 1
1051: INTO VN_INTERFACE_EXISTS
1052: FROM BNE_INTERFACES_B BIB, BNE_INTERFACES_TL BIT
1053: WHERE BIB.APPLICATION_ID = BIT.APPLICATION_ID
1054: AND BIB.INTERFACE_CODE = BIT.INTERFACE_CODE
1055: AND BIB.INTEGRATOR_APP_ID = P_APPLICATION_ID
1056: AND BIB.INTEGRATOR_CODE = P_INTEGRATOR_CODE
1125: SYSDATE,
1126: P_USER_ID,
1127: SYSDATE);
1128:
1129: -- Create the interface in the BNE_INTERFACES_TL table
1130:
1131: INSERT INTO BNE_INTERFACES_TL
1132: (APPLICATION_ID,
1133: INTERFACE_CODE,
1127: SYSDATE);
1128:
1129: -- Create the interface in the BNE_INTERFACES_TL table
1130:
1131: INSERT INTO BNE_INTERFACES_TL
1132: (APPLICATION_ID,
1133: INTERFACE_CODE,
1134: LANGUAGE,
1135: SOURCE_LANG,
1325: BEGIN
1326: SELECT 1
1327: INTO VN_INTERFACE_EXISTS
1328: FROM BNE_INTERFACES_B BI,
1329: BNE_INTERFACES_TL BITL,
1330: BNE_CONTENTS_B BC,
1331: BNE_CONTENTS_TL BCTL
1332: WHERE BI.APPLICATION_ID = P_APPLICATION_ID
1333: AND BI.APPLICATION_ID = BC.APPLICATION_ID
1369: VALUES
1370: (P_APPLICATION_ID, P_INTERFACE_CODE, 1, P_APPLICATION_ID, P_INTEGRATOR_CODE,
1371: P_INTERFACE_CODE, 4, P_USER_ID, SYSDATE, P_USER_ID, SYSDATE);
1372:
1373: -- Insert into BNE_INTERFACES_TL
1374:
1375: INSERT INTO BNE_INTERFACES_TL
1376: (APPLICATION_ID, INTERFACE_CODE, LANGUAGE, SOURCE_LANG, USER_NAME,
1377: CREATED_BY, CREATION_DATE, LAST_UPDATED_BY, LAST_UPDATE_DATE)
1371: P_INTERFACE_CODE, 4, P_USER_ID, SYSDATE, P_USER_ID, SYSDATE);
1372:
1373: -- Insert into BNE_INTERFACES_TL
1374:
1375: INSERT INTO BNE_INTERFACES_TL
1376: (APPLICATION_ID, INTERFACE_CODE, LANGUAGE, SOURCE_LANG, USER_NAME,
1377: CREATED_BY, CREATION_DATE, LAST_UPDATED_BY, LAST_UPDATE_DATE)
1378: VALUES
1379: (P_APPLICATION_ID, P_INTERFACE_CODE, P_LANGUAGE, P_SOURCE_LANG, VV_DESCRIPTION,
4499: DELETE FROM BNE_INTERFACES_B
4500: WHERE APPLICATION_ID = P_APPLICATION_ID
4501: AND INTERFACE_CODE = P_INTERFACE_CODE;
4502:
4503: DELETE FROM BNE_INTERFACES_TL
4504: WHERE APPLICATION_ID = P_APPLICATION_ID
4505: AND INTERFACE_CODE = P_INTERFACE_CODE;
4506:
4507: -- Duplicate key information ...