The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT ID_NUMBER, SOURCE_SYSTEM_DISPLAY_CODE, INSTRUMENT_TYPE_CODE, PAYMENT_DATE, AMOUNT
BULK COLLECT INTO l_id_number, l_source_system_display_code,l_instrument_type_code, l_payment_date,l_amount
FROM FTP_PAYMENT_SCHEDULE_T ;
INSERT INTO FTP_PAYMENT_SCHEDULE
(ID_NUMBER, SOURCE_SYSTEM_CODE, INSTRUMENT_TYPE_CODE, PAYMENT_DATE, AMOUNT,
CREATED_BY_OBJECT_ID,CREATED_BY_REQUEST_ID,LAST_UPDATED_BY_OBJECT_ID,LAST_UPDATED_BY_REQUEST_ID)
VALUES (l_id_number(i), l_source_system_code,l_instrument_type_code(i), l_payment_date(i),l_amount(i),
1,1,1,1);
UPDATE FTP_PAYMENT_SCHEDULE_T SET STATUS ='INSERT'
WHERE
ID_NUMBER = l_id_number(i) AND
SOURCE_SYSTEM_DISPLAY_CODE = l_source_system_display_code(i) AND
INSTRUMENT_TYPE_CODE = l_instrument_type_code(i) AND
PAYMENT_DATE = l_payment_date(i) ;
UPDATE FTP_PAYMENT_SCHEDULE_T SET STATUS ='Error Inserting the Data : Unique Constraint Violated'
WHERE
ID_NUMBER = l_id_number(i) AND
SOURCE_SYSTEM_DISPLAY_CODE = l_source_system_display_code(i) AND
INSTRUMENT_TYPE_CODE = l_instrument_type_code(i) AND
PAYMENT_DATE = l_payment_date(i);
UPDATE FTP_PAYMENT_SCHEDULE_T SET STATUS ='INVALID SYSTEM DISPLAY CODE ERROR'
WHERE
ID_NUMBER = l_id_number(i) AND
SOURCE_SYSTEM_DISPLAY_CODE = l_source_system_display_code(i) AND
INSTRUMENT_TYPE_CODE = l_instrument_type_code(i) AND
PAYMENT_DATE = l_payment_date(i);
UPDATE FTP_PAYMENT_SCHEDULE_T SET STATUS ='INVALID INSTRUMENT TYPE CODE ERROR'
WHERE
ID_NUMBER = l_id_number(i) AND
SOURCE_SYSTEM_DISPLAY_CODE = l_source_system_display_code(i) AND
INSTRUMENT_TYPE_CODE = l_instrument_type_code(i) AND
PAYMENT_DATE = l_payment_date(i);
UPDATE FTP_PAYMENT_SCHEDULE_T SET STATUS ='FTP TRANSFER DATA ERROR : OTHERS'
WHERE
ID_NUMBER = l_id_number(i) AND
SOURCE_SYSTEM_DISPLAY_CODE = l_source_system_display_code(i) AND
INSTRUMENT_TYPE_CODE = l_instrument_type_code(i) AND
PAYMENT_DATE = l_payment_date(i);
p_msg_text => 'Error Inserting : OTHERS '
);
p_msg_text => 'Successfully inserted rows: '||l_id_number.COUNT
);
DeleteData ;
PROCEDURE DeleteData
IS
l_block CONSTANT VARCHAR2(80) := 'FTP_PAYMENT_SCHEDULE_migrate.DeleteData';
DELETE FROM FTP_PAYMENT_SCHEDULE_T WHERE STATUS IN ('INSERT','UPDATE');
p_msg_text => 'Successfully deleted rows: '||SQL%ROWCOUNT
);
p_module => l_block ||'Delete Data',
p_msg_text => 'Error Deleteing Data'
);
END DeleteData;
SELECT source_system_code
INTO x_source_system_code
FROM fem_source_systems_b
WHERE source_system_display_code = p_source_system_code
AND enabled_flag = 'Y'
AND personal_flag = 'N';
SELECT LOOKUP_CODE
INTO x_inst_type_code
FROM FTP_LOOKUPS
WHERE LOOKUP_TYPE = 'FTP_INST_TYPES_CODE' AND
LOOKUP_CODE = trim(l_inst_type_code);