The following lines contain the word 'select', 'insert', 'update' or 'delete':
| Validate_Adj_Insert |
| |
| DESCRIPTION |
| This is the routine that validates the inputs during creation|
| of adjustments |
| |
| SCOPE - PRIVATE |
| |
| EXTERNAL PROCEDURES/FUNCTIONS ACCESSED |
| arp_util.disable_debug |
| arp_util.enable_debug |
| fnd_api.compatible_api_call |
| fnd_api.g_exc_unexpected_error |
| fnd_api.g_ret_sts_error |
| fnd_api.g_ret_sts_error |
| fnd_api.g_ret_sts_success |
| fnd_api.to_boolean |
| fnd_msg_pub.check_msg_level |
| fnd_msg_pub.count_and_get |
| fnd_msg_pub.initialize |
| ar_adjvalidate_pub.Validate_Type |
| ar_adjvalidate_pub.Validate_Payschd |
| ar_adjvalidate_pub.Validate_amount |
| ar_adjvalidate_pub.Validate_Rcvtrxccid |
| ar_adjvalidate_pub.Validate_dates |
| ar_adjvalidate_pub.Validate_Reason_code |
| ar_adjvalidate_pub.Validate_doc_seq |
| ar_adjvalidate_pub.Validate_Associated_Receipt |
| ar_adjvalidate_pub.Validate_Ussgl_code |
| ar_adjvalidate_pub.Validate_Desc_Flexfield |
| ar_adjvalidate_pub.Validate_Created_From |
| |
| ARGUMENTS : IN: |
| OUT: |
| IN/ OUT: |
| p_Validation_status |
| p_adj_rec |
| p_ps_rec |
| |
| RETURNS : NONE |
| |
| NOTES |
| |
| MODIFICATION HISTORY |
| Vivek Halder 30-JUN-97 Created |
| |
+===========================================================================*/
PROCEDURE Validate_Adj_Insert (
p_adj_rec IN OUT NOCOPY ar_adjustments%rowtype,
p_validation_status IN OUT NOCOPY varchar2
) IS
l_return_status varchar2(1);
arp_util.debug('Validate_Adj_Insert()+' , G_MSG_HIGH);
arp_util.debug('Validate_Adj_Insert()-' , G_MSG_HIGH);
arp_util.debug('EXCEPTION: Validate_Adj_Insert() ', G_MSG_UERROR);
FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,'Validate_Adj_Insert');
END Validate_Adj_Insert;
SELECT *
INTO l_ps_rec
FROM ar_payment_schedules
WHERE payment_schedule_id = p_old_adj_rec.payment_schedule_id;
SELECT *
INTO l_ps_rec
FROM ar_payment_schedules
WHERE payment_schedule_id = p_old_adj_rec.payment_schedule_id;
SELECT *
INTO l_ps_rec
FROM ar_payment_schedules
WHERE payment_schedule_id = p_old_adj_rec.payment_schedule_id;
select hsecs
into G_START_TIME
from v$timer;
arp_util.debug('Insert_Adjustment()+ ', G_MSG_HIGH);
ar_adjustapi_pub.Validate_Adj_Insert(
l_inp_adj_rec,
l_return_status
);
| Call the entity Handler for insert |
+-----------------------------------------------*/
BEGIN
arp_process_adjustment.insert_adjustment (
'DUMMY',
'1',
l_inp_adj_rec,
o_adjustment_number,
o_adjustment_id
) ;
'Error in Insert Entity handler. Rolling back ' ||
'and setting status to ERROR', G_MSG_ERROR);
select TO_CHAR( (hsecs - G_START_TIME) / 100)
into l_hsec
from v$timer;
| ar_process_adjustment.update_adjustment |
| ar_adjvalidate_pub.within_approval_limit |
| |
| ARGUMENTS : IN: |
| p_api_name |
| p_api_version |
| p_init_msg_list |
| p_commit_flag |
| p_validation_level |
| p_adj_rec |
| p_old_adjust_id |
| OUT: |
| p_return_status |
| p_msg_count |
| p_msg_data |
| |
| IN/ OUT: |
| |
| |
| RETURNS : NONE |
| |
| NOTES |
| |
| MODIFICATION HISTORY |
| Vivek Halder 30-JAN-97 Created |
| |
+===========================================================================*/
PROCEDURE Modify_Adjustment (
p_api_name IN varchar2,
p_api_version IN number,
p_init_msg_list IN varchar2 := FND_API.G_FALSE,
p_commit_flag IN varchar2 := FND_API.G_FALSE,
p_validation_level IN number := FND_API.G_VALID_LEVEL_FULL,
p_msg_count OUT NOCOPY number,
p_msg_data OUT NOCOPY varchar2,
p_return_status OUT NOCOPY varchar2 ,
p_adj_rec IN ar_adjustments%rowtype,
p_old_adjust_id IN ar_adjustments.adjustment_id%type
) IS
l_api_name CONSTANT VARCHAR2(20) := 'AR_ADJUSTAPI_PUB';
select hsecs
into G_START_TIME
from v$timer;
arp_process_adjustment.update_adjustment (
'DUMMY',
'1',
l_inp_adj_rec,
NULL,
p_old_adjust_id
) ;
'Error in Insert Entity handler. Rolling back '||
'and setting status to ERROR', G_MSG_ERROR);
select TO_CHAR( (hsecs - G_START_TIME) / 100)
into l_hsec
from v$timer;
select hsecs
into G_START_TIME
from v$timer;
'Error in Insert Entity handler. Rolling back '||
'and setting status to ERROR', G_MSG_ERROR);
select TO_CHAR( (hsecs - G_START_TIME) / 100)
into l_hsec
from v$timer;
| ar_process_adjustment.update_approve_adjustment |
| |
| ARGUMENTS : IN: |
| p_api_name |
| p_api_version |
| p_init_msg_list |
| p_commit_flag |
| p_validation_level |
| p_adj_rec |
| p_old_adjust_id |
| OUT: |
| p_return_status |
| p_msg_count |
| p_msg_data |
| |
| IN/ OUT: |
| |
| |
| RETURNS : NONE |
| |
| NOTES |
| |
| MODIFICATION HISTORY |
| Vivek Halder 30-JAN-97 Created |
| |
+===========================================================================*/
PROCEDURE Approve_Adjustment (
p_api_name IN varchar2,
p_api_version IN number,
p_init_msg_list IN varchar2 := FND_API.G_FALSE,
p_commit_flag IN varchar2 := FND_API.G_FALSE,
p_validation_level IN number := FND_API.G_VALID_LEVEL_FULL,
p_msg_count OUT NOCOPY number,
p_msg_data OUT NOCOPY varchar2,
p_return_status OUT NOCOPY varchar2 ,
p_adj_rec IN ar_adjustments%rowtype,
p_old_adjust_id IN ar_adjustments.adjustment_id%type
) IS
l_api_name CONSTANT VARCHAR2(20) := 'AR_ADJUSTAPI_PUB';
select hsecs
into G_START_TIME
from v$timer;
arp_process_adjustment.update_approve_adj (
'DUMMY',
'1',
l_inp_adj_rec,
NULL,
l_inp_adj_rec.status,
p_old_adjust_id
) ;
'Error in Insert Entity handler. Rolling back ' ||
'and setting status to ERROR', G_MSG_ERROR);
select TO_CHAR( (hsecs - G_START_TIME) / 100)
into l_hsec
from v$timer;