The following lines contain the word 'select', 'insert', 'update' or 'delete':
cur_select INTEGER;
X_sql := 'Select award_number '
||' from gms_awards where '
||' award_id = :Award_Id ';
cur_select := DBMS_SQL.OPEN_CURSOR;
DBMS_SQL.PARSE(cur_select,X_sql,dbms_sql.native);
DBMS_SQL.BIND_VARIABLE(cur_select,':Award_Id', P_Award_Id);
DBMS_SQL.DEFINE_COLUMN(cur_select, 1 , X_Award_Number, 15);
X_Rows_Processed := DBMS_SQL.EXECUTE(cur_select);
If DBMS_SQL.FETCH_ROWS(cur_select) > 0 then
DBMS_SQL.COLUMN_VALUE(cur_select,1 , X_Award_Number);
'update gl_bc_packets '||
'set status_code = ''T'''||
' where packet_id = :GMS_PACKET_ID '||'; '||
update gl_bc_packets gl
set gl.status_code = 'R'
where gl.packet_id = x_packet_id;
update gl_bc_packets gl
set gl.status_code = 'T'
where gl.packet_id = x_packet_id;
update gms_bc_packets
set status_code = 'T' ,
result_code = 'F89' , fc_error_message = x_gms_e_stage
where packet_id = x_packet_id;
delete gms_bc_packet_arrival_order
where packet_id = x_packet_id;
UPDATE gl_bc_packets SET
result_code = DECODE (NVL (SUBSTR (result_code, 1, 1), 'P'),'P', 'F71',result_code)
WHERE packet_id = x_packet_id;
SELECT 'Y'
FROM dual
WHERE EXISTS ( SELECT 1
FROM gl_bc_packets gl_pkt
WHERE gl_pkt.packet_id = x_packet_id
AND gl_pkt.template_id is NULL
AND exists (select 1
from gms_bc_packets gms_pkt
where gms_pkt.packet_id = x_packet_id
AND gms_pkt.document_type IN ('AP','PO','REQ')
AND gms_pkt.source_event_id = gl_pkt.event_id )
) ;
UPDATE gl_bc_packets gl
SET gl.result_code = DECODE ( NVL (SUBSTR (result_code, 1, 1), 'P'),
'P', 'F71',result_code
)
WHERE gl.packet_id = x_packet_id;
UPDATE gms_bc_packets gms
SET gms.status_code = 'T',
gms.result_code = DECODE (NVL (SUBSTR (result_code, 1, 1), 'P'),
'P', 'F68',result_code)
,fc_error_message = gms_e_stage
WHERE gms.packet_id = x_packet_id;