declare
     l_database_id number := :P21_DATABASE_ID;
     l_application_id number := :P21_APPLICATION_ID;
begin
 
    -- Create New Customer
         insert into DATABASES (
            SERVER_ID,
            global_database_name,
            database_name,
            dbms_release,
            dbms_desc,
            db_environment,
            tns_port,
            create_date,
            internal_db_id,
            inactive_flag,
            update_date,
            update_userid)
          values (
            :P21_SERVER_ID,
            :P21_GLOBAL_DATABASE_NAME,
            :P21_DATABASE_NAME,
            :P21_DBMS_RELEASE,
            :P21_DBMS_DESC,
            :P21_DB_ENVIRONMENT,
            :P21_TNS_PORT,
            :P21_CREATE_DATE,
            :P21_INTERNAL_DB_ID,
            :P21_INACTIVE_FLAG,
            :P21_UPDATE_DATE,
            :P21_UPDATE_USERID)
          returning database_id into l_database_id;
 
          :P21_DATABASE_ID := l_database_id;
          
          insert into APPLICATION (
            APPLICATION_NAME,
            VENDOR_NAME,
            VENDOR_INFO,
            BCBEAR_URL,
            CURRENT_VERSION,
            CRITICAL_FLAG,
            INACTIVE_FLAG,
            UPDATE_DATE,
            UPDATE_USERID)
          values(
            :P21_APPLICATION_NAME,
            :P21_VENDOR_NAME,
            :P21_VENDOR_INFO,
            :P21_BCBEAR_URL,
            :P21_CURRENT_VERSION,
            :P21_CRITICAL_FLAG,
            :P21_APPLICATION_INACTIVE_FLAG,
            :P21_UPDATE_DATE1,
            :P21_UPDATE_USERID1)
    returning application_id into l_application_id;
 
          
          :P21_APPLICATION_ID := l_application_id;
 
        insert into APPLICATION_DATABASE_INT(
          application_id,
          database_id,
          update_date,
          update_userid)
        values(
          l_database_id,
          l_application_id,
          systimestamp, 
          upper(:APP_USER));
 
end;