[Home] [Help]
The following lines contain the word 'select', 'insert', 'update' or 'delete':
| Dummy constants for use in update and lock operations |
+--------------------------------------------------------*/
--
AR_TEXT_DUMMY CONSTANT VARCHAR2(10) := '~~!@#$*&^';
| Package global variable to hold the parsed update cursor. |
| This allows the cursors to be reused without being reparsed. |
+---------------------------------------------------------------*/
--
pg_cursor1 integer := '';
pg_program_update_date date;
pg_last_updated_by number;
pg_last_update_date date;
pg_last_update_login number;
| insert_p |
| |
| DESCRIPTION |
| This function inserts a row into AR_BATCHES table |
| |
| SCOPE - PUBLIC |
| |
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED - NONE |
| |
| ARGUMENTS : IN: |
| p_bat_rec - Batches Record structure |
| OUT: |
| p_bat_id - Batch Id of inserted AR_BATCHES row |
| |
| RETURNS : NONE |
| |
| NOTES - Overloaded procedure |
| |
| MODIFICATION HISTORY - Created by Ganesh Vaidee - 04/25/95 |
| |
+===========================================================================*/
PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
PROCEDURE insert_p( p_bat_rec IN ar_batches%ROWTYPE,
p_row_id OUT NOCOPY VARCHAR2,
p_bat_id OUT NOCOPY ar_batches.batch_id%TYPE ) IS
l_bat_id ar_batches.batch_id%TYPE;
arp_standard.debug( 'arp_cr_batches_pkg.insert_p()+' );
ARP_CR_BATCHES_PKG.insert_p( p_bat_rec, l_bat_id );
SELECT rowid
INTO l_row_id
FROM ar_batches
WHERE batch_id = l_bat_id;
arp_standard.debug( 'arp_cr_batches_pkg.insert_p()-' );
arp_standard.debug( 'EXCEPTION: arp_cr_batches_pkg.insert_p' );
END insert_p;
| insert_p |
| |
| DESCRIPTION |
| This function inserts a row into AR_BATCHES table |
| |
| SCOPE - PUBLIC |
| |
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED - NONE |
| |
| ARGUMENTS : IN: |
| p_bat_rec - Batches Record structure |
| OUT: |
| p_bat_id - Batch Id of inserted AR_BATCHES row |
| |
| RETURNS : NONE |
| |
| NOTES - Overloaded procedure |
| |
| MODIFICATION HISTORY - Created by Ganesh Vaidee - 04/25/95 |
| |
| 20-MAR-2000 J Rautiainen Added BR project related columns |
| WITH_RECOURSE_FLAG, AUTO_PRINT_PROGRAM_ID and|
| AUTO_TRANS_PROGRAM_ID into table handlers. |
| |
| 31-OCT-2000 Y Rakotonirainy Bug 1243304 : Added column |
| purged_children_flag |
| into the table handlers. |
| |
+===========================================================================*/
PROCEDURE insert_p( p_bat_rec IN ar_batches%ROWTYPE,
p_bat_id OUT NOCOPY ar_batches.batch_id%TYPE ) IS
l_bat_id ar_batches.batch_id%TYPE;
arp_standard.debug( '>>>>>>>> arp_cr_batches_pkg.insert_p' );
SELECT ar_batches_s.nextval
INTO l_bat_id
FROM dual;
INSERT INTO ar_batches (
batch_id,
batch_applied_status,
batch_date,
batch_source_id,
created_by,
creation_date,
currency_code,
last_updated_by,
last_update_date,
name,
set_of_books_id,
type,
closed_date,
comments,
control_amount,
control_count,
deposit_date,
exchange_date,
exchange_rate,
exchange_rate_type,
gl_date,
last_update_login,
lockbox_batch_name,
lockbox_id,
media_reference,
operation_request_id,
receipt_class_id,
receipt_method_id,
remit_method_code,
remit_bank_acct_use_id,
remittance_bank_branch_id,
status,
transmission_request_id,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
request_id ,
program_application_id,
program_id,
program_update_date,
transmission_id,
bank_deposit_number,
with_recourse_flag,
auto_print_program_id,
auto_trans_program_id,
purged_children_flag
,org_id
)
VALUES ( l_bat_id,
p_bat_rec.batch_applied_status,
p_bat_rec.batch_date,
p_bat_rec.batch_source_id,
arp_global.created_by,
arp_global.creation_date,
p_bat_rec.currency_code,
arp_global.last_updated_by,
arp_global.last_update_date,
p_bat_rec.name,
arp_global.set_of_books_id,
p_bat_rec.type,
p_bat_rec.closed_date,
p_bat_rec.comments,
p_bat_rec.control_amount,
p_bat_rec.control_count,
p_bat_rec.deposit_date,
p_bat_rec.exchange_date,
p_bat_rec.exchange_rate,
p_bat_rec.exchange_rate_type,
p_bat_rec.gl_date,
arp_global.last_update_login,
p_bat_rec.lockbox_batch_name,
p_bat_rec.lockbox_id,
p_bat_rec.media_reference,
p_bat_rec.operation_request_id,
p_bat_rec.receipt_class_id,
p_bat_rec.receipt_method_id,
p_bat_rec.remit_method_code,
p_bat_rec.remit_bank_acct_use_id,
p_bat_rec.remittance_bank_branch_id,
p_bat_rec.status,
p_bat_rec.transmission_request_id,
p_bat_rec.attribute_category,
p_bat_rec.attribute1,
p_bat_rec.attribute2,
p_bat_rec.attribute3,
p_bat_rec.attribute4,
p_bat_rec.attribute5,
p_bat_rec.attribute6,
p_bat_rec.attribute7,
p_bat_rec.attribute8,
p_bat_rec.attribute9,
p_bat_rec.attribute10,
p_bat_rec.attribute11,
p_bat_rec.attribute12,
p_bat_rec.attribute13,
p_bat_rec.attribute14,
p_bat_rec.attribute15,
arp_global.request_id,
arp_global.program_application_id,
arp_global.program_id,
arp_global.program_update_date,
p_bat_rec.transmission_id,
p_bat_rec.bank_deposit_number,
p_bat_rec.with_recourse_flag,
p_bat_rec.auto_print_program_id,
p_bat_rec.auto_trans_program_id,
p_bat_rec.purged_children_flag
,arp_standard.sysparm.org_id /* SSA changes anuj */
);
arp_standard.debug( '<<<<<<<< arp_cr_batches_pkg.insert_p' );
arp_standard.debug( 'EXCEPTION: arp_cr_batches_pkg.insert_p' );
PROCEDURE construct_bat_update_stmt( update_text OUT NOCOPY varchar2) IS
--
BEGIN
arp_standard.debug('arp_cr_batches_pkg.construct_bat_update_stmt()+');
update_text :=
'update ar_batches
SET batch_applied_status =
decode(:batch_applied_status,
:ar_text_dummy, batch_applied_status,
:batch_applied_status),
batch_date =
decode(:batch_date,
:ar_date_dummy, batch_date,
:batch_date),
batch_source_id =
decode(:batch_source_id,
:ar_number_dummy, batch_source_id,
:batch_source_id),
currency_code =
decode(:currency_code,
:ar_text_dummy, currency_code,
:currency_code),
last_updated_by = :pg_last_updated_by,
last_update_date = :pg_last_update_date,
name =
decode(:name,
:ar_text_dummy, name,
:name),
set_of_books_id = :pg_set_of_books_id,
type =
decode(:type,
:ar_text_dummy, type,
:type),
closed_date =
decode(:closed_date,
:ar_date_dummy, closed_date,
:closed_date),
comments =
decode(:comments,
:ar_text_dummy, comments,
:comments),
control_amount =
decode(:control_amount,
:ar_number_dummy, control_amount,
:control_amount),
control_count =
decode(:control_count,
:ar_number_dummy, control_count,
:control_count),
deposit_date =
decode(:deposit_date,
:ar_date_dummy, deposit_date,
:deposit_date),
exchange_date =
decode(:exchange_date,
:ar_date_dummy, exchange_date,
:exchange_date),
exchange_rate =
decode(:exchange_rate,
:ar_number_dummy, exchange_rate,
:exchange_rate),
exchange_rate_type =
decode(:exchange_rate_type,
:ar_text_dummy, exchange_rate_type,
:exchange_rate_type),
gl_date =
decode(:gl_date,
:ar_date_dummy, gl_date,
:gl_date),
last_update_login = :pg_last_update_login,
lockbox_batch_name =
decode(:lockbox_batch_name,
:ar_text_dummy, lockbox_batch_name,
:lockbox_batch_name),
lockbox_id =
decode(:lockbox_id,
:ar_number_dummy, lockbox_id,
:lockbox_id),
media_reference =
decode(:media_reference,
:ar_text_dummy, media_reference,
:media_reference),
operation_request_id =
decode(:operation_request_id,
:ar_number_dummy, operation_request_id,
:operation_request_id),
receipt_class_id =
decode(:receipt_class_id,
:ar_number_dummy, receipt_class_id,
:receipt_class_id),
receipt_method_id =
decode(:receipt_method_id,
:ar_number_dummy, receipt_method_id,
:receipt_method_id),
remit_method_code =
decode(:remit_method_code,
:ar_text_dummy, remit_method_code,
:remit_method_code),
remit_bank_acct_use_id =
decode(:remit_bank_acct_use_id,
:ar_number_dummy, remit_bank_acct_use_id,
:remit_bank_acct_use_id),
remittance_bank_branch_id =
decode(:remittance_bank_branch_id,
:ar_number_dummy, remittance_bank_branch_id,
:remittance_bank_branch_id),
status =
decode(:status,
:ar_text_dummy, status,
:status),
transmission_request_id =
decode(:transmission_request_id,
:ar_number_dummy, transmission_request_id,
:transmission_request_id),
attribute_category =
decode(:attribute_category,
:ar_text_dummy, attribute_category,
:attribute_category),
attribute1 =
decode(:attribute1,
:ar_text_dummy, attribute1,
:attribute1),
attribute2 =
decode(:attribute2,
:ar_text_dummy, attribute2,
:attribute2),
attribute3 =
decode(:attribute3,
:ar_text_dummy, attribute3,
:attribute3),
attribute4 =
decode(:attribute4,
:ar_text_dummy, attribute4,
:attribute4),
attribute5 =
decode(:attribute5,
:ar_text_dummy, attribute5,
:attribute5),
attribute6 =
decode(:attribute6,
:ar_text_dummy, attribute6,
:attribute6),
attribute7 =
decode(:attribute7,
:ar_text_dummy, attribute7,
:attribute7),
attribute8 =
decode(:attribute8,
:ar_text_dummy, attribute8,
:attribute8),
attribute9 =
decode(:attribute9,
:ar_text_dummy, attribute9,
:attribute9),
attribute10 =
decode(:attribute10,
:ar_text_dummy, attribute10,
:attribute10),
attribute11 =
decode(:attribute11,
:ar_text_dummy, attribute11,
:attribute11),
attribute12 =
decode(:attribute12,
:ar_text_dummy, attribute12,
:attribute12),
attribute13 =
decode(:attribute13,
:ar_text_dummy, attribute13,
:attribute13),
attribute14 =
decode(:attribute14,
:ar_text_dummy, attribute14,
:attribute14),
attribute15 =
decode(:attribute15,
:ar_text_dummy, attribute15,
:attribute15),
request_id =
NVL( :pg_request_id,
request_id),
program_application_id =
NVL( :pg_program_application_id,
program_application_id),
program_id =
NVL( :pg_program_id,
program_id),
program_update_date =
NVL( :pg_program_update_date,
program_update_date),
transmission_id =
decode(:transmission_id,
:ar_number_dummy, transmission_id,
:transmission_id),
bank_deposit_number =
decode(:bank_deposit_number,
:ar_text_dummy, bank_deposit_number,
:bank_deposit_number),
with_recourse_flag =
decode(:with_recourse_flag,
:ar_flag_dummy, with_recourse_flag,
:with_recourse_flag),
auto_print_program_id =
decode(:auto_print_program_id,
:ar_number_dummy, auto_print_program_id,
:auto_print_program_id),
auto_trans_program_id =
decode(:auto_trans_program_id,
:ar_number_dummy, auto_trans_program_id,
:auto_trans_program_id),
purged_children_flag =
decode(:purged_children_flag,
:ar_flag_dummy, purged_children_flag,
:purged_children_flag) ';
arp_standard.debug('arp_cr_batches_pkg.construct_bat_update_stmt()-');
arp_standard.debug('EXCEPTION: arp_cr_batches_pkg .construct_bat_update_stmt()');
PROCEDURE bind_bat_variables(p_update_cursor IN integer,
p_bat_rec IN ar_batches%rowtype)
IS
--
BEGIN
--
arp_standard.debug('arp_cr_batches_pkg.bind_bat_variables()+');
dbms_sql.bind_variable(p_update_cursor, ':ar_text_dummy',
AR_TEXT_DUMMY);
dbms_sql.bind_variable(p_update_cursor, ':ar_flag_dummy',
AR_FLAG_DUMMY);
dbms_sql.bind_variable(p_update_cursor, ':ar_number_dummy',
AR_NUMBER_DUMMY);
dbms_sql.bind_variable(p_update_cursor, ':ar_date_dummy',
AR_DATE_DUMMY);
dbms_sql.bind_variable(p_update_cursor, ':pg_request_id',
pg_request_id);
dbms_sql.bind_variable(p_update_cursor, ':pg_program_application_id',
pg_program_application_id);
dbms_sql.bind_variable(p_update_cursor, ':pg_program_id',
pg_program_id);
dbms_sql.bind_variable(p_update_cursor, ':pg_program_update_date',
pg_program_update_date);
dbms_sql.bind_variable(p_update_cursor, ':pg_last_updated_by',
pg_last_updated_by);
dbms_sql.bind_variable(p_update_cursor, ':pg_last_update_date',
pg_last_update_date);
dbms_sql.bind_variable(p_update_cursor, ':pg_last_update_login',
pg_last_update_login);
dbms_sql.bind_variable(p_update_cursor, ':pg_set_of_books_id',
arp_global.set_of_books_id);
dbms_sql.bind_variable(p_update_cursor, ':batch_applied_status',
p_bat_rec.batch_applied_status);
dbms_sql.bind_variable(p_update_cursor, ':batch_date',
p_bat_rec.batch_date);
dbms_sql.bind_variable(p_update_cursor, ':batch_source_id',
p_bat_rec.batch_source_id);
dbms_sql.bind_variable(p_update_cursor, ':currency_code',
p_bat_rec.currency_code);
dbms_sql.bind_variable(p_update_cursor, ':name',
p_bat_rec.name);
dbms_sql.bind_variable(p_update_cursor, ':type',
p_bat_rec.type);
dbms_sql.bind_variable(p_update_cursor, ':closed_date',
p_bat_rec.closed_date);
dbms_sql.bind_variable(p_update_cursor, ':comments',
p_bat_rec.comments);
dbms_sql.bind_variable(p_update_cursor, ':control_amount',
p_bat_rec.control_amount);
dbms_sql.bind_variable(p_update_cursor, ':control_count',
p_bat_rec.control_count);
dbms_sql.bind_variable(p_update_cursor, ':deposit_date',
p_bat_rec.deposit_date);
dbms_sql.bind_variable(p_update_cursor, ':exchange_date',
p_bat_rec.exchange_date);
dbms_sql.bind_variable(p_update_cursor, ':exchange_rate',
p_bat_rec.exchange_rate);
dbms_sql.bind_variable(p_update_cursor, ':exchange_rate_type',
p_bat_rec.exchange_rate_type);
dbms_sql.bind_variable(p_update_cursor, ':gl_date',
p_bat_rec.gl_date);
dbms_sql.bind_variable(p_update_cursor, ':lockbox_batch_name',
p_bat_rec.lockbox_batch_name);
dbms_sql.bind_variable(p_update_cursor, ':lockbox_id',
p_bat_rec.lockbox_id);
dbms_sql.bind_variable(p_update_cursor, ':media_reference',
p_bat_rec.media_reference);
dbms_sql.bind_variable(p_update_cursor, ':operation_request_id',
p_bat_rec.operation_request_id);
dbms_sql.bind_variable(p_update_cursor, ':receipt_class_id',
p_bat_rec.receipt_class_id);
dbms_sql.bind_variable(p_update_cursor, ':receipt_method_id',
p_bat_rec.receipt_method_id);
dbms_sql.bind_variable(p_update_cursor, ':remit_method_code',
p_bat_rec.remit_method_code);
dbms_sql.bind_variable(p_update_cursor, ':remit_bank_acct_use_id',
p_bat_rec.remit_bank_acct_use_id);
dbms_sql.bind_variable(p_update_cursor, ':remittance_bank_branch_id',
p_bat_rec.remittance_bank_branch_id);
dbms_sql.bind_variable(p_update_cursor, ':status',
p_bat_rec.status);
dbms_sql.bind_variable(p_update_cursor, ':transmission_request_id',
p_bat_rec.transmission_request_id);
dbms_sql.bind_variable(p_update_cursor, ':attribute_category',
p_bat_rec.attribute_category);
dbms_sql.bind_variable(p_update_cursor, ':attribute1',
p_bat_rec.attribute1);
dbms_sql.bind_variable(p_update_cursor, ':attribute2',
p_bat_rec.attribute2);
dbms_sql.bind_variable(p_update_cursor, ':attribute3',
p_bat_rec.attribute3);
dbms_sql.bind_variable(p_update_cursor, ':attribute4',
p_bat_rec.attribute4);
dbms_sql.bind_variable(p_update_cursor, ':attribute5',
p_bat_rec.attribute5);
dbms_sql.bind_variable(p_update_cursor, ':attribute6',
p_bat_rec.attribute6);
dbms_sql.bind_variable(p_update_cursor, ':attribute7',
p_bat_rec.attribute7);
dbms_sql.bind_variable(p_update_cursor, ':attribute8',
p_bat_rec.attribute8);
dbms_sql.bind_variable(p_update_cursor, ':attribute9',
p_bat_rec.attribute9);
dbms_sql.bind_variable(p_update_cursor, ':attribute10',
p_bat_rec.attribute10);
dbms_sql.bind_variable(p_update_cursor, ':attribute11',
p_bat_rec.attribute11);
dbms_sql.bind_variable(p_update_cursor, ':attribute12',
p_bat_rec.attribute12);
dbms_sql.bind_variable(p_update_cursor, ':attribute13',
p_bat_rec.attribute13);
dbms_sql.bind_variable(p_update_cursor, ':attribute14',
p_bat_rec.attribute14);
dbms_sql.bind_variable(p_update_cursor, ':attribute15',
p_bat_rec.attribute15);
dbms_sql.bind_variable(p_update_cursor, ':transmission_id',
p_bat_rec.transmission_id);
dbms_sql.bind_variable(p_update_cursor, ':bank_deposit_number',
p_bat_rec.bank_deposit_number);
dbms_sql.bind_variable(p_update_cursor, ':with_recourse_flag',
p_bat_rec.with_recourse_flag);
dbms_sql.bind_variable(p_update_cursor, ':auto_print_program_id',
p_bat_rec.auto_print_program_id);
dbms_sql.bind_variable(p_update_cursor, ':auto_trans_program_id',
p_bat_rec.auto_trans_program_id);
dbms_sql.bind_variable(p_update_cursor, ':purged_children_flag',
p_bat_rec.purged_children_flag);
PROCEDURE generic_update(p_update_cursor IN OUT NOCOPY integer,
p_where_clause IN varchar2,
p_where1 IN number,
p_bat_rec IN ar_batches%ROWTYPE)
IS
--
l_count number;
l_update_statement varchar2(20000);
arp_standard.debug('arp_cr_batches_pkg.generic_update()+');
| If this update statement has not already been parsed, |
| construct the statement and parse it. |
| Otherwise, use the already parsed statement and rebind its |
| variables. |
+--------------------------------------------------------------*/
--
if (p_update_cursor is null)
then
--
p_update_cursor := dbms_sql.open_cursor;
| Construct the update statement |
+---------------------------------*/
--
arp_cr_batches_pkg.construct_bat_update_stmt(l_update_statement);
l_update_statement := l_update_statement || p_where_clause;
l_update_statement := l_update_statement ||
' RETURNING batch_id INTO :ar_batch_key_value ';
arp_standard.debug('after l_update_statement');
dbms_sql.parse(p_update_cursor,
l_update_statement,
dbms_sql.v7);
arp_cr_batches_pkg.bind_bat_variables(p_update_cursor, p_bat_rec);
dbms_sql.bind_variable(p_update_cursor, ':where_1',
p_where1);
dbms_sql.bind_array(p_update_cursor,':ar_batch_key_value',
ar_batch_array);
l_count := dbms_sql.execute(p_update_cursor);
arp_standard.debug( to_char(l_count) || ' rows updated');
dbms_sql.variable_value( p_update_cursor, ':ar_batch_key_value',
ar_batch_array);
| Raise the NO_DATA_FOUND exception if no rows were updated |
+------------------------------------------------------------*/
--
if (l_count = 0)
then raise NO_DATA_FOUND;
| call mrc engine to update AR_MC_BATCHES |
+---------------------------------------------*/
-- arp_standard.debug('before calling maintain_mrc ');
arp_standard.debug('arp_cr_batches_pkg.generic_update()-');
arp_standard.debug('EXCEPTION: arp_cr_batches_pkg.generic_update()
');
arp_standard.debug(l_update_statement);
PROCEDURE update_p( p_bat_rec IN ar_batches%ROWTYPE,
p_batch_id IN
ar_batches.batch_id%TYPE) IS
--
BEGIN
--
arp_standard.debug('arp_cr_batches_pkg.update_p()+ ');
arp_cr_batches_pkg.generic_update( pg_cursor1,
' WHERE batch_id = :where_1',
p_batch_id,
p_bat_rec);
arp_standard.debug('arp_cr_batches_pkg.update_p()- ' ||
to_char(sysdate, 'HH:MI:SS'));
arp_standard.debug('EXCEPTION: arp_cr_batches_pkg.update_p()');
| update_p |
| |
| DESCRIPTION |
| This function updates a row into AR_BATCHES table |
| |
| SCOPE - PUBLIC |
| |
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED - NONE |
| |
| ARGUMENTS : IN: |
| p_adj_rec - Batches Record structure |
| |
| RETURNS : NONE |
| |
| NOTES - Overloaded procedure |
| |
| MODIFICATION HISTORY - Created by Ganesh Vaidee - 04/25/95 |
| |
+===========================================================================*/
PROCEDURE update_p( p_bat_rec IN ar_batches%ROWTYPE ) IS
BEGIN
arp_standard.debug( ' arp_cr_batches_pkg.update_p()+ ' );
update_p( p_bat_rec, p_bat_rec.batch_id );
arp_standard.debug( 'arp_cr_batches_pkg.update_p()- ' );
arp_standard.debug( 'EXCEPTION: arp_cr_batches_pkg.update_p' );
| delete_p |
| |
| DESCRIPTION |
| This function deletes a row into AR_BATCHES table |
| |
| SCOPE - PUBLIC |
| |
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED - NONE |
| |
| ARGUMENTS : IN: |
| p_bat_id - Batch id to delete a row from AR_BATCHES |
| |
| RETURNS : NONE |
| |
| NOTES |
| |
| MODIFICATION HISTORY - Created by Ganesh Vaidee - 04/25/95 |
| |
+===========================================================================*/
PROCEDURE delete_p(
p_bat_id IN ar_batches.batch_id%TYPE ) IS
BEGIN
arp_standard.debug( '>>>>>>>> arp_cr_batches_pkg.delete_p' );
DELETE FROM ar_batches
WHERE batch_id = p_bat_id;
arp_standard.debug( '<<<<<<<< arp_cr_batches_pkg.delete_p' );
arp_standard.debug( 'EXCEPTION: arp_cr_batches_pkg.delete_p' );
SELECT *
FROM ar_batches
WHERE rowid = p_row_id
FOR UPDATE of BATCH_ID NOWAIT;
FND_MESSAGE.Set_Name( 'FND', 'FORM_RECORD_DELETED' );
SELECT batch_id
INTO l_bat_id
FROM ar_batches
WHERE batch_id = p_bat_id
FOR UPDATE OF STATUS NOWAIT;
SELECT *
INTO p_batch_rec
FROM ar_batches
WHERE batch_id = p_batch_id;
SELECT *
INTO p_batch_rec
FROM ar_batches
WHERE batch_id = p_batch_rec.batch_id
FOR UPDATE OF STATUS;
SELECT *
INTO p_batch_rec
FROM ar_batches
WHERE batch_id = p_batch_rec.batch_id
FOR UPDATE OF STATUS NOWAIT;
pg_program_update_date := arp_global.program_update_date;
pg_last_updated_by := arp_global.last_updated_by;
pg_last_update_date := arp_global.last_update_date;
pg_last_update_login := arp_global.last_update_login;