The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE INSERT_ROW (
X_ROWID in out NOCOPY VARCHAR2,
X_LOCATION_SEGMENT_ID in NUMBER,
X_LOCATION_VALUE_ACCOUNT_ID in NUMBER,
X_LOCATION_STRUCTURE_ID in NUMBER,
X_LOCATION_SEGMENT_QUALIFIER in VARCHAR2,
X_LOCATION_SEGMENT_VALUE in VARCHAR2,
X_LOCATION_SEGMENT_DESCRIPTION in VARCHAR2,
X_LOCATION_SEGMENT_USER_VALUE in VARCHAR2,
X_PARENT_SEGMENT_ID in NUMBER,
X_TAX_ACCOUNT_CCID in NUMBER,
X_INTERIM_TAX_CCID in NUMBER,
X_ADJ_CCID in NUMBER,
X_EDISC_CCID in NUMBER,
X_UNEDISC_CCID in NUMBER,
X_FINCHRG_CCID in NUMBER,
X_ADJ_NON_REC_TAX_CCID in NUMBER,
X_EDISC_NON_REC_TAX_CCID in NUMBER,
X_UNEDISC_NON_REC_TAX_CCID in NUMBER,
X_FINCHRG_NON_REC_TAX_CCID in NUMBER,
X_ATTRIBUTE_CATEGORY in VARCHAR2,
X_ATTRIBUTE1 in VARCHAR2,
X_ATTRIBUTE2 in VARCHAR2,
X_ATTRIBUTE3 in VARCHAR2,
X_ATTRIBUTE4 in VARCHAR2,
X_ATTRIBUTE5 in VARCHAR2,
X_ATTRIBUTE6 in VARCHAR2,
X_ATTRIBUTE7 in VARCHAR2,
X_ATTRIBUTE8 in VARCHAR2,
X_ATTRIBUTE9 in VARCHAR2,
X_ATTRIBUTE10 in VARCHAR2,
X_ATTRIBUTE11 in VARCHAR2,
X_ATTRIBUTE12 in VARCHAR2,
X_ATTRIBUTE13 in VARCHAR2,
X_ATTRIBUTE14 in VARCHAR2,
X_ATTRIBUTE15 in VARCHAR2,
X_CREATION_DATE in DATE,
X_CREATED_BY in NUMBER,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER,
X_REQUEST_ID in NUMBER,
X_PROGRAM_APPLICATION_ID in NUMBER,
X_PROGRAM_ID in NUMBER,
X_PROGRAM_UPDATE_DATE in DATE,
X_ORG_ID in NUMBER
) is
cursor C is select ROWID from AR_LOCATION_VALUES_OLD
where LOCATION_SEGMENT_ID = X_LOCATION_SEGMENT_ID;
| This cursor selects from multi-org table AR_VAT_TAX_ALL using C_ORG_ID |
+-------------------------------------------------------------------------*/
CURSOR ar_location_tax_account_c (c_org_id in number) IS
select
tax_account_id,
INTERIM_TAX_CCID,
ADJ_CCID,
EDISC_CCID,
UNEDISC_CCID,
FINCHRG_CCID,
ADJ_NON_REC_TAX_CCID,
EDISC_NON_REC_TAX_CCID,
UNEDISC_NON_REC_TAX_CCID,
FINCHRG_NON_REC_TAX_CCID
from ar_vat_tax_all vat
where tax_type='LOCATION'
and org_id = c_org_id
and trunc(sysdate) between start_date and nvl(end_date, trunc(sysdate));
select ar_location_accounts_s.nextval + arp_standard.sequence_offset
from dual;
| Used to select distinct ORG_ID from AR_SYSTEM_PARAMETERS_ALL |
| to create one record per ORG_ID for a new location_id in |
| AR_LOCATION_ACCOUNTS_ALL |
| RETURNS |
| Returns distinct ORG_ID from AR_SYSTEM_PARAMETERS_ALL |
+-------------------------------------------------------------------------*/
CURSOR organization_id_c is
select nvl(org_id, -99), location_structure_id
from ar_system_parameters_all
where nvl(org_id, -99) not in (-3113, -3114)
and set_of_books_id <> -1;
last_updated_by_tab num_tab;
last_update_date_tab date_tab;
program_update_date_tab date_tab;
last_update_login_tab num_tab;
arp_util_tax.debug(' AR_LOCVS_PKG.insert_row(+) ');
arp_util_tax.debug(' Before inserting into AR_LOCATION_VALUES_OLD ');
insert into AR_LOCATION_VALUES_OLD (
LOCATION_SEGMENT_ID,
LOCATION_STRUCTURE_ID,
LOCATION_SEGMENT_QUALIFIER,
LOCATION_SEGMENT_VALUE,
LOCATION_SEGMENT_DESCRIPTION,
LOCATION_SEGMENT_USER_VALUE,
PARENT_SEGMENT_ID,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
REQUEST_ID,
PROGRAM_APPLICATION_ID,
PROGRAM_ID,
PROGRAM_UPDATE_DATE,
ORG_ID
) values (
X_LOCATION_SEGMENT_ID,
X_LOCATION_STRUCTURE_ID,
X_LOCATION_SEGMENT_QUALIFIER,
X_LOCATION_SEGMENT_VALUE,
X_LOCATION_SEGMENT_DESCRIPTION,
X_LOCATION_SEGMENT_USER_VALUE,
X_PARENT_SEGMENT_ID,
X_ATTRIBUTE_CATEGORY,
X_ATTRIBUTE1,
X_ATTRIBUTE2,
X_ATTRIBUTE3,
X_ATTRIBUTE4,
X_ATTRIBUTE5,
X_ATTRIBUTE6,
X_ATTRIBUTE7,
X_ATTRIBUTE8,
X_ATTRIBUTE9,
X_ATTRIBUTE10,
X_ATTRIBUTE11,
X_ATTRIBUTE12,
X_ATTRIBUTE13,
X_ATTRIBUTE14,
X_ATTRIBUTE15,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN,
X_REQUEST_ID,
X_PROGRAM_APPLICATION_ID,
X_PROGRAM_ID,
X_PROGRAM_UPDATE_DATE,
X_ORG_ID
);
arp_util_tax.debug(' After inserting into AR_LOCATION_VALUES_OLD ');
select NVL (TO_NUMBER (DECODE (SUBSTRB (USERENV ('CLIENT_INFO'),1,1), ' ',NULL,
SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)
into X_ORG_ID
from dual;
Insert in AR_LOCATION_ACCOUNTS only if the TAX_ACCOUNT_CCID is not null
we could have the segment qualifier without TAX_ACCOUNT in which case no
records should be inserted in to this table though we will have to insert
into AR_LOCATION_VALUES_OLD
+-----------------------------------------------------------------------------------*/
if X_TAX_ACCOUNT_CCID is not null then
IF PG_DEBUG = 'Y' THEN
arp_util_tax.debug(' Before inserting into AR_LOCATION_ACCOUNTS ');
insert into AR_LOCATION_ACCOUNTS_ALL (
LOCATION_VALUE_ACCOUNT_ID,
LOCATION_SEGMENT_ID,
TAX_ACCOUNT_CCID,
INTERIM_TAX_CCID,
ADJ_CCID,
EDISC_CCID,
UNEDISC_CCID,
FINCHRG_CCID,
ADJ_NON_REC_TAX_CCID,
EDISC_NON_REC_TAX_CCID,
UNEDISC_NON_REC_TAX_CCID,
FINCHRG_NON_REC_TAX_CCID,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
REQUEST_ID,
PROGRAM_APPLICATION_ID,
PROGRAM_ID,
PROGRAM_UPDATE_DATE,
ORG_ID
)values
(
X_LOCATION_VALUE_ACCOUNT_ID,
X_LOCATION_SEGMENT_ID,
X_TAX_ACCOUNT_CCID,
X_INTERIM_TAX_CCID,
X_ADJ_CCID,
X_EDISC_CCID,
X_UNEDISC_CCID,
X_FINCHRG_CCID,
X_ADJ_NON_REC_TAX_CCID,
X_EDISC_NON_REC_TAX_CCID,
X_UNEDISC_NON_REC_TAX_CCID,
X_FINCHRG_NON_REC_TAX_CCID,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN,
X_REQUEST_ID,
X_PROGRAM_APPLICATION_ID,
X_PROGRAM_ID,
X_PROGRAM_UPDATE_DATE,
X_ORG_ID);
arp_util_tax.debug(' After inserting into AR_LOCATION_ACCOUNTS ');
org_id_tab.delete;
loc_structure_id_tab.delete;
location_account_id_tab.delete;
location_segment_id_tab.delete;
tax_account_ccid_tab.delete;
interim_tax_ccid_tab.delete;
adj_ccid_tab.delete;
edisc_ccid_tab.delete;
unedisc_ccid_tab.delete;
finchrg_ccid_tab.delete;
adj_non_rec_tax_ccid_tab.delete;
edisc_non_rec_tax_ccid_tab.delete;
unedisc_non_rec_tax_ccid_tab.delete;
finchrg_non_rec_tax_ccid_tab.delete;
created_by_tab.delete;
creation_date_tab.delete;
last_updated_by_tab.delete;
last_update_date_tab.delete;
request_id_tab.delete;
program_application_id_tab.delete;
program_id_tab.delete;
program_update_date_tab.delete;
last_update_login_tab.delete;
organization_id_tab.delete;
| We insert new records in AR_LOCATION_ACCOUNTS_ALL table |
| One record is created for each ORG_ID |
| so that Accounting information in this table is Organization |
| independent and so that location structure can be shared across |
| Organizations. |
+-------------------------------------------------------------------------*/
-- Insert records into ar_location_accounts_all
for I in 1..org_id_tab.last loop
location_tax_account := NULL;
last_updated_by_tab(i) := arp_standard.profile.user_id;
last_update_date_tab(i) := sysdate;
program_update_date_tab(i) := sysdate;
last_update_login_tab(i) := arp_standard.PROFILE.last_update_login;
arp_util_tax.debug('Before inserting into AR_LOCATION_ACCOUNTS ('||to_char(organization_id_tab(i))||')' );
insert into ar_location_accounts_all
( location_value_account_id,
location_segment_id,
tax_account_ccid,
interim_tax_ccid,
adj_ccid,
edisc_ccid,
unedisc_ccid,
finchrg_ccid,
adj_non_rec_tax_ccid,
edisc_non_rec_tax_ccid,
unedisc_non_rec_tax_ccid,
finchrg_non_rec_tax_ccid,
created_by,
creation_date,
last_updated_by,
last_update_date,
request_id,
program_application_id,
program_id,
program_update_date,
last_update_login,
org_id)
VALUES
( location_account_id_tab(i),
location_segment_id_tab(i),
tax_account_ccid_tab(i),
interim_tax_ccid_tab(i),
adj_ccid_tab(i),
edisc_ccid_tab(i),
unedisc_ccid_tab(i),
finchrg_ccid_tab(i),
adj_non_rec_tax_ccid_tab(i),
edisc_non_rec_tax_ccid_tab(i),
unedisc_non_rec_tax_ccid_tab(i),
finchrg_non_rec_tax_ccid_tab(i),
created_by_tab(i),
creation_date_tab(i),
last_updated_by_tab(i),
last_update_date_tab(i),
request_id_tab(i),
program_application_id_tab(i),
program_id_tab(i),
program_update_date_tab(i),
last_update_login_tab(i),
organization_id_tab(i) );
arp_util_tax.debug('After inserting into AR_LOCATION_ACCOUNTS ');
arp_util_tax.debug(' AR_LOCVS_PKG.insert_row(-) ');
end INSERT_ROW;
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER,
X_REQUEST_ID in NUMBER,
X_PROGRAM_APPLICATION_ID in NUMBER,
X_PROGRAM_ID in NUMBER,
X_PROGRAM_UPDATE_DATE in DATE
) is
cursor c is select
LOCATION_SEGMENT_ID,
LOCATION_STRUCTURE_ID,
LOCATION_SEGMENT_QUALIFIER,
LOCATION_SEGMENT_VALUE,
LOCATION_SEGMENT_DESCRIPTION,
LOCATION_SEGMENT_USER_VALUE,
PARENT_SEGMENT_ID,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
REQUEST_ID,
PROGRAM_APPLICATION_ID,
PROGRAM_ID,
PROGRAM_UPDATE_DATE
FROM AR_LOCATION_VALUES_OLD
WHERE LOCATION_SEGMENT_ID = X_LOCATION_SEGMENT_ID
-- MOAC
-- LOCATION_SEGMENT_ID is a unique key. No need for client info.
-- AND NVL(ORG_ID,NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
-- NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)) =
-- NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',
-- NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)
FOR UPDATE OF LOCATION_SEGMENT_ID NOWAIT;
cursor c1 is select
LOCATION_VALUE_ACCOUNT_ID,
LOCATION_SEGMENT_ID,
TAX_ACCOUNT_CCID,
INTERIM_TAX_CCID,
ADJ_CCID,
EDISC_CCID,
UNEDISC_CCID,
FINCHRG_CCID,
ADJ_NON_REC_TAX_CCID,
EDISC_NON_REC_TAX_CCID,
UNEDISC_NON_REC_TAX_CCID,
FINCHRG_NON_REC_TAX_CCID,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
REQUEST_ID,
PROGRAM_APPLICATION_ID,
PROGRAM_ID,
PROGRAM_UPDATE_DATE
FROM AR_LOCATION_ACCOUNTS
WHERE LOCATION_VALUE_ACCOUNT_ID = X_LOCATION_VALUE_ACCOUNT_ID
FOR UPDATE OF LOCATION_VALUE_ACCOUNT_ID NOWAIT;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
AND ((acctinfo.LAST_UPDATE_DATE = X_LAST_UPDATE_DATE )
OR ((acctinfo.LAST_UPDATE_DATE is null) AND (X_LAST_UPDATE_DATE is null)))
AND ((acctinfo.LAST_UPDATED_BY = X_LAST_UPDATED_BY )
OR ((acctinfo.LAST_UPDATED_BY is null) AND (X_LAST_UPDATED_BY is null)))
AND ((acctinfo.LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN )
OR ((acctinfo.LAST_UPDATE_LOGIN is null) AND (X_LAST_UPDATE_LOGIN is null)))
AND ((acctinfo.REQUEST_ID = X_REQUEST_ID )
OR ((acctinfo.REQUEST_ID is null) AND (X_REQUEST_ID is null)))
AND ((acctinfo.PROGRAM_APPLICATION_ID = X_PROGRAM_APPLICATION_ID )
OR ((acctinfo.PROGRAM_APPLICATION_ID is null) AND (X_PROGRAM_APPLICATION_ID is null)))
AND ((acctinfo.PROGRAM_ID = X_PROGRAM_ID )
OR ((acctinfo.PROGRAM_ID is null) AND (X_PROGRAM_ID is null)))
AND ((acctinfo.PROGRAM_UPDATE_DATE = X_PROGRAM_UPDATE_DATE )
OR ((acctinfo.PROGRAM_UPDATE_DATE is null) AND (X_PROGRAM_UPDATE_DATE is null)))
) then
null;
procedure UPDATE_ROW (
X_LOCATION_SEGMENT_ID in NUMBER,
X_LOCATION_VALUE_ACCOUNT_ID in NUMBER,
X_LOCATION_STRUCTURE_ID in NUMBER,
X_LOCATION_SEGMENT_QUALIFIER in VARCHAR2,
X_LOCATION_SEGMENT_VALUE in VARCHAR2,
X_LOCATION_SEGMENT_DESCRIPTION in VARCHAR2,
X_LOCATION_SEGMENT_USER_VALUE in VARCHAR2,
X_PARENT_SEGMENT_ID in NUMBER,
X_TAX_ACCOUNT_CCID in NUMBER,
X_INTERIM_TAX_CCID in NUMBER,
X_ADJ_CCID in NUMBER,
X_EDISC_CCID in NUMBER,
X_UNEDISC_CCID in NUMBER,
X_FINCHRG_CCID in NUMBER,
X_ADJ_NON_REC_TAX_CCID in NUMBER,
X_EDISC_NON_REC_TAX_CCID in NUMBER,
X_UNEDISC_NON_REC_TAX_CCID in NUMBER,
X_FINCHRG_NON_REC_TAX_CCID in NUMBER,
X_ATTRIBUTE_CATEGORY in VARCHAR2,
X_ATTRIBUTE1 in VARCHAR2,
X_ATTRIBUTE2 in VARCHAR2,
X_ATTRIBUTE3 in VARCHAR2,
X_ATTRIBUTE4 in VARCHAR2,
X_ATTRIBUTE5 in VARCHAR2,
X_ATTRIBUTE6 in VARCHAR2,
X_ATTRIBUTE7 in VARCHAR2,
X_ATTRIBUTE8 in VARCHAR2,
X_ATTRIBUTE9 in VARCHAR2,
X_ATTRIBUTE10 in VARCHAR2,
X_ATTRIBUTE11 in VARCHAR2,
X_ATTRIBUTE12 in VARCHAR2,
X_ATTRIBUTE13 in VARCHAR2,
X_ATTRIBUTE14 in VARCHAR2,
X_ATTRIBUTE15 in VARCHAR2,
X_CREATION_DATE in DATE,
X_CREATED_BY in NUMBER,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER,
X_REQUEST_ID in NUMBER,
X_PROGRAM_APPLICATION_ID in NUMBER,
X_PROGRAM_ID in NUMBER,
X_PROGRAM_UPDATE_DATE in DATE
) is
PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
arp_util_tax.debug(' AR_LOCVS_PKG.update_row(+) ');
update AR_LOCATION_VALUES set
LOCATION_SEGMENT_ID = X_LOCATION_SEGMENT_ID,
LOCATION_STRUCTURE_ID = X_LOCATION_STRUCTURE_ID,
LOCATION_SEGMENT_QUALIFIER = X_LOCATION_SEGMENT_QUALIFIER,
LOCATION_SEGMENT_VALUE = X_LOCATION_SEGMENT_VALUE,
LOCATION_SEGMENT_DESCRIPTION = X_LOCATION_SEGMENT_DESCRIPTION,
LOCATION_SEGMENT_USER_VALUE = X_LOCATION_SEGMENT_USER_VALUE ,
PARENT_SEGMENT_ID = X_PARENT_SEGMENT_ID,
ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
ATTRIBUTE1 = X_ATTRIBUTE1,
ATTRIBUTE2 = X_ATTRIBUTE2,
ATTRIBUTE3 = X_ATTRIBUTE3,
ATTRIBUTE4 = X_ATTRIBUTE4,
ATTRIBUTE5 = X_ATTRIBUTE5,
ATTRIBUTE6 = X_ATTRIBUTE6,
ATTRIBUTE7 = X_ATTRIBUTE7,
ATTRIBUTE8 = X_ATTRIBUTE8,
ATTRIBUTE9 = X_ATTRIBUTE9,
ATTRIBUTE10 = X_ATTRIBUTE10,
ATTRIBUTE11 = X_ATTRIBUTE11,
ATTRIBUTE12 = X_ATTRIBUTE12,
ATTRIBUTE13 = X_ATTRIBUTE13,
ATTRIBUTE14 = X_ATTRIBUTE14,
ATTRIBUTE15 = X_ATTRIBUTE15,
-- Should not be updating creation date, created by
-- CREATION_DATE = X_CREATION_DATE,
-- CREATED_BY = X_CREATED_BY,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
REQUEST_ID = X_REQUEST_ID,
PROGRAM_APPLICATION_ID = X_PROGRAM_APPLICATION_ID,
PROGRAM_ID = X_PROGRAM_ID,
PROGRAM_UPDATE_DATE = X_PROGRAM_UPDATE_DATE
where LOCATION_SEGMENT_ID = X_LOCATION_SEGMENT_ID;
UPDATE AR_LOCATION_ACCOUNTS_ALL set
LOCATION_VALUE_ACCOUNT_ID = X_LOCATION_VALUE_ACCOUNT_ID,
LOCATION_SEGMENT_ID = X_LOCATION_SEGMENT_ID,
TAX_ACCOUNT_CCID = X_TAX_ACCOUNT_CCID,
INTERIM_TAX_CCID = X_INTERIM_TAX_CCID,
ADJ_CCID = X_ADJ_CCID,
EDISC_CCID = X_EDISC_CCID,
UNEDISC_CCID = X_UNEDISC_CCID,
FINCHRG_CCID = X_FINCHRG_CCID,
ADJ_NON_REC_TAX_CCID = X_ADJ_NON_REC_TAX_CCID,
EDISC_NON_REC_TAX_CCID = X_EDISC_NON_REC_TAX_CCID,
UNEDISC_NON_REC_TAX_CCID = X_UNEDISC_NON_REC_TAX_CCID,
FINCHRG_NON_REC_TAX_CCID = X_FINCHRG_NON_REC_TAX_CCID,
-- Should not be updating creation date, created by
-- CREATION_DATE = X_CREATION_DATE,
-- CREATED_BY = X_CREATED_BY,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
REQUEST_ID = X_REQUEST_ID,
PROGRAM_APPLICATION_ID = X_PROGRAM_APPLICATION_ID,
PROGRAM_ID = X_PROGRAM_ID,
PROGRAM_UPDATE_DATE = X_PROGRAM_UPDATE_DATE
WHERE LOCATION_VALUE_ACCOUNT_ID = X_LOCATION_VALUE_ACCOUNT_ID;
arp_util_tax.debug(' AR_LOCVS_PKG.update_row(-) ');
end UPDATE_ROW;
procedure DELETE_ROW (
X_LOCATION_SEGMENT_ID in NUMBER,
X_LOCATION_VALUE_ACCOUNT_ID in NUMBER
) is
PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
arp_util_tax.debug(' AR_LOCVS_PKG.delete_row(+) ');
DELETE FROM AR_LOCATION_ACCOUNTS_ALL
WHERE LOCATION_SEGMENT_ID = X_LOCATION_SEGMENT_ID
AND LOCATION_VALUE_ACCOUNT_ID = X_LOCATION_VALUE_ACCOUNT_ID;
DELETE FROM AR_LOCATION_VALUES_OLD
WHERE LOCATION_SEGMENT_ID = X_LOCATION_SEGMENT_ID;
arp_util_tax.debug(' AR_LOCVS_PKG.delete_row(-) ');
end DELETE_ROW;