The following lines contain the word 'select', 'insert', 'update' or 'delete':
HZ_MGD_MASS_UPDATE_REP_GEN.log
( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_PROCEDURE
, p_msg => '>> Get_entity_name ' );
HZ_MGD_MASS_UPDATE_REP_GEN.Log
( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_STATEMENT
, p_msg => 'entity= '||p_entity
|| ' entity_id= '||TO_CHAR(p_entity_id));
SELECT
SUBSTRB(party_name,1,40)
INTO
x_party_name
FROM hz_parties
WHERE party_id=p_entity_id;
HZ_MGD_MASS_UPDATE_REP_GEN.Log
( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_STATEMENT
, p_msg => 'party_name= '||x_party_name
);
SELECT
SUBSTRB(hp.party_name,1,30)
, hca.account_number
INTO
l_cust_name
, l_cust_num
FROM
hz_parties hp
, hz_cust_accounts hca
WHERE hca.party_id=hp.party_id
AND hca.cust_account_id=p_entity_id;
HZ_MGD_MASS_UPDATE_REP_GEN.Log
( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_STATEMENT
, p_msg => 'customer_name= '||x_cust_name
);
SELECT
location
INTO
x_site_name
FROM
hz_cust_site_uses
WHERE site_use_id=p_entity_id;
SELECT
SUBSTRB(hp.party_name,1,30)
, hca.account_number
INTO
l_cust_name
, l_cust_num
FROM
hz_parties hp
, hz_cust_accounts hca
WHERE hca.party_id=hp.party_id
AND hca.cust_account_id=p_cust_account_id;
HZ_MGD_MASS_UPDATE_REP_GEN.Log
( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_STATEMENT
, p_msg => 'site_name= '||x_site_name
);
HZ_MGD_MASS_UPDATE_REP_GEN.log
( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_PROCEDURE
, p_msg => '<< Get_entity_name ' );
CURSOR SELECT_USAGE_CURR_CSR IS
SELECT user_code
FROM HZ_CREDIT_USAGE_RULES
WHERE credit_usage_rule_set_id = p_rule_set_id
AND usage_type = 'CURRENCY'
AND NVL (include_all_flag, 'N') = 'N'
AND NVL(exclude_flag,'N') = 'N' ;
SELECT cu.credit_usage_id
, substrb(cur.user_code,1,5) curr
, cpa.currency_code prof_curr
FROM hz_customer_profiles cp
, hz_cust_profile_amts cpa
, hz_credit_usages cu
, hz_credit_usage_rules cur
WHERE cp.party_id = p_entity_id
AND cp.site_use_id IS NULL
AND cp.cust_account_id =-1
AND cp.cust_account_profile_id = cpa.cust_account_profile_id
AND cpa.cust_acct_profile_amt_id = cu.cust_acct_profile_amt_id
AND cpa.cust_acct_profile_amt_id <> l_cust_acct_profile_amt_id
AND cu.credit_usage_rule_set_id = cur.credit_usage_rule_set_id
AND NVL(TRUNC(cpa.expiration_date) , TRUNC(SYSDATE) )
<= TRUNC(SYSDATE)
AND NVL (cur.include_all_flag, 'N') = 'N'
AND cur.usage_type = 'CURRENCY'
AND cur.user_code IN (
SELECT cr2.user_code from
hz_credit_usage_rules cr2
WHERE cr2.credit_usage_rule_set_id = p_rule_set_id
AND cr2.usage_type = 'CURRENCY' and
NVL (cr2.include_all_flag, 'N') = 'N'
AND NVL(cr2.exclude_flag,'N') = 'N'
)
AND NVL(cur.exclude_flag,'N') = 'N';
SELECT cpa.currency_code profile_curr
, cu.credit_usage_id
FROM hz_customer_profiles cp
, hz_cust_profile_amts cpa
, hz_credit_usages cu
, hz_credit_usage_rules cur
WHERE cp.party_id = p_entity_id
AND cp.cust_account_id =-1
AND cp.site_use_id IS NULL
AND cp.cust_account_profile_id = cpa.cust_account_profile_id
AND cpa.cust_acct_profile_amt_id = cu.cust_acct_profile_amt_id
AND cpa.cust_acct_profile_amt_id <> l_cust_acct_profile_amt_id
AND cu.credit_usage_rule_set_id = cur.credit_usage_rule_set_id
AND NVL(TRUNC(cpa.expiration_date), TRUNC(SYSDATE)
) <= TRUNC(SYSDATE)
AND NVL (cur.include_all_flag, 'N') = 'Y'
AND NOT EXISTS ( SELECT 'EXCLUDE'
FROM hz_credit_usage_rules cur2
WHERE cu.credit_usage_rule_set_id
= cur2.credit_usage_rule_set_id
AND NVL(cur2.exclude_flag,'N') = 'Y'
AND cur2.usage_type = 'CURRENCY'
AND cur2.user_code = p_curr_code
);
SELECT cu.credit_usage_id
, substrb(cur.user_code,1,5) curr
, cpa.currency_code prof_curr
FROM hz_customer_profiles cp
, hz_cust_profile_amts cpa
, hz_credit_usages cu
, hz_credit_usage_rules cur
WHERE cp.party_id = p_entity_id
AND cp.cust_account_id =-1
AND cp.site_use_id IS NULL
AND cp.cust_account_profile_id = cpa.cust_account_profile_id
AND cpa.cust_acct_profile_amt_id = cu.cust_acct_profile_amt_id
AND cpa.cust_acct_profile_amt_id <> l_cust_acct_profile_amt_id
AND cu.credit_usage_rule_set_id = cur.credit_usage_rule_set_id
AND NVL(TRUNC(cpa.expiration_date) , TRUNC(SYSDATE) )
<= TRUNC(SYSDATE)
AND NVL (cur.include_all_flag, 'N') = 'N'
AND cur.usage_type = 'CURRENCY'
AND cur.user_code NOT IN (
SELECT cr2.user_code from
hz_credit_usage_rules cr2
WHERE cr2.credit_usage_rule_set_id = p_rule_set_id
AND cr2.usage_type = 'CURRENCY' and
NVL (cr2.include_all_flag, 'N') = 'N'
AND NVL(cr2.exclude_flag,'N') = 'Y'
)
AND NVL(cur.exclude_flag,'N') = 'N' ;
SELECT cpa.currency_code profile_curr
, cu.credit_usage_id
FROM hz_customer_profiles cp
, hz_cust_profile_amts cpa
, hz_credit_usages cu
, hz_credit_usage_rules cur
WHERE cp.party_id = p_entity_id
AND cp.cust_account_id =-1
AND cp.site_use_id IS NULL
AND cp.cust_account_profile_id = cpa.cust_account_profile_id
AND cpa.cust_acct_profile_amt_id = cu.cust_acct_profile_amt_id
AND cpa.cust_acct_profile_amt_id <> l_cust_acct_profile_amt_id
AND cu.credit_usage_rule_set_id = cur.credit_usage_rule_set_id
AND NVL(TRUNC(cpa.expiration_date), TRUNC(SYSDATE)
) <= TRUNC(SYSDATE)
AND NVL (cur.include_all_flag, 'N') = 'Y' ;
SELECT cu.credit_usage_id
, substrb(cur.user_code,1,5) curr
, cpa.currency_code prof_curr
FROM hz_customer_profiles cp
, hz_cust_profile_amts cpa
, hz_credit_usages cu
, hz_credit_usage_rules cur
WHERE cp.cust_account_id = p_cust_account_id
AND cp.site_use_id = p_entity_id
AND cp.cust_account_profile_id = cpa.cust_account_profile_id
AND cpa.cust_acct_profile_amt_id = cu.cust_acct_profile_amt_id
AND cu.credit_usage_rule_set_id = cur.credit_usage_rule_set_id
AND cpa.cust_acct_profile_amt_id <> l_cust_acct_profile_amt_id
AND NVL(TRUNC(cpa.expiration_date) , TRUNC(SYSDATE) )
<= TRUNC(SYSDATE)
AND NVL (cur.include_all_flag, 'N') = 'N'
AND cur.usage_type = 'CURRENCY'
AND cur.user_code IN (
SELECT cr2.user_code from
hz_credit_usage_rules cr2
WHERE cr2.credit_usage_rule_set_id = p_rule_set_id
AND cr2.usage_type = 'CURRENCY' and
NVL (cr2.include_all_flag, 'N') = 'N'
AND NVL(cr2.exclude_flag,'N') = 'N'
)
AND NVL(cur.exclude_flag,'N') = 'N' ;
SELECT cpa.currency_code profile_curr
, cu.credit_usage_id
FROM hz_customer_profiles cp
, hz_cust_profile_amts cpa
, hz_credit_usages cu
, hz_credit_usage_rules cur
WHERE cp.cust_account_id = p_cust_account_id
AND cp.site_use_id = p_entity_id
AND cp.cust_account_profile_id = cpa.cust_account_profile_id
AND cpa.cust_acct_profile_amt_id = cu.cust_acct_profile_amt_id
AND cpa.cust_acct_profile_amt_id <> l_cust_acct_profile_amt_id
AND cu.credit_usage_rule_set_id = cur.credit_usage_rule_set_id
AND NVL(TRUNC(cpa.expiration_date), TRUNC(SYSDATE)
) <= TRUNC(SYSDATE)
AND NVL (cur.include_all_flag, 'N') = 'Y'
AND NOT EXISTS ( SELECT 'EXCLUDE'
FROM hz_credit_usage_rules cur2
WHERE cu.credit_usage_rule_set_id
= cur2.credit_usage_rule_set_id
AND NVL(cur2.exclude_flag,'N') = 'Y'
AND cur2.usage_type = 'CURRENCY'
AND cur2.user_code = p_curr_code );
SELECT cu.credit_usage_id
, substrb(cur.user_code,1,5) curr
, cpa.currency_code prof_curr
FROM hz_customer_profiles cp
, hz_cust_profile_amts cpa
, hz_credit_usages cu
, hz_credit_usage_rules cur
WHERE cp.cust_account_id = p_cust_account_id
AND cp.site_use_id = p_entity_id
AND cp.cust_account_profile_id = cpa.cust_account_profile_id
AND cpa.cust_acct_profile_amt_id = cu.cust_acct_profile_amt_id
AND cpa.cust_acct_profile_amt_id <> l_cust_acct_profile_amt_id
AND cu.credit_usage_rule_set_id = cur.credit_usage_rule_set_id
AND NVL(TRUNC(cpa.expiration_date) , TRUNC(SYSDATE) )
<= TRUNC(SYSDATE)
AND NVL (cur.include_all_flag, 'N') = 'N'
AND cur.usage_type = 'CURRENCY'
AND cur.user_code NOT IN (
SELECT cr2.user_code from
hz_credit_usage_rules cr2
WHERE cr2.credit_usage_rule_set_id = p_rule_set_id
AND cr2.usage_type = 'CURRENCY' and
NVL (cr2.include_all_flag, 'N') = 'N'
AND NVL(cr2.exclude_flag,'N') = 'Y'
)
AND NVL(cur.exclude_flag,'N') = 'N' ;
SELECT cpa.currency_code profile_curr
, cu.credit_usage_id
FROM hz_customer_profiles cp
, hz_cust_profile_amts cpa
, hz_credit_usages cu
, hz_credit_usage_rules cur
WHERE cp.cust_account_id = p_cust_account_id
AND cp.site_use_id = p_entity_id
AND cp.cust_account_profile_id = cpa.cust_account_profile_id
AND cpa.cust_acct_profile_amt_id = cu.cust_acct_profile_amt_id
AND cpa.cust_acct_profile_amt_id <> l_cust_acct_profile_amt_id
AND cu.credit_usage_rule_set_id = cur.credit_usage_rule_set_id
AND NVL(TRUNC(cpa.expiration_date), TRUNC(SYSDATE)
) <= TRUNC(SYSDATE)
AND NVL (cur.include_all_flag, 'N') = 'Y' ;
SELECT cu.credit_usage_id
, substrb(cur.user_code,1,5) curr
, cpa.currency_code prof_curr
FROM hz_customer_profiles cp
, hz_cust_profile_amts cpa
, hz_credit_usages cu
, hz_credit_usage_rules cur
WHERE cp.cust_account_id = p_entity_id
AND cp.site_use_id IS NULL
AND cp.cust_account_profile_id = cpa.cust_account_profile_id
AND cpa.cust_acct_profile_amt_id = cu.cust_acct_profile_amt_id
AND cpa.cust_acct_profile_amt_id <> l_cust_acct_profile_amt_id
AND cu.credit_usage_rule_set_id = cur.credit_usage_rule_set_id
AND NVL(TRUNC(cpa.expiration_date) , TRUNC(SYSDATE) )
<= TRUNC(SYSDATE)
AND NVL (cur.include_all_flag, 'N') = 'N'
AND cur.usage_type = 'CURRENCY'
AND cur.user_code IN (
SELECT cr2.user_code from
hz_credit_usage_rules cr2
WHERE cr2.credit_usage_rule_set_id = p_rule_set_id
AND cr2.usage_type = 'CURRENCY' and
NVL (cr2.include_all_flag, 'N') = 'N'
AND NVL(cr2.exclude_flag,'N') = 'N'
)
AND NVL(cur.exclude_flag,'N') = 'N' ;
SELECT cpa.currency_code profile_curr
, cu.credit_usage_id
FROM hz_customer_profiles cp
, hz_cust_profile_amts cpa
, hz_credit_usages cu
, hz_credit_usage_rules cur
WHERE cp.cust_account_id = p_entity_id
AND cp.site_use_id IS NULL
AND cp.cust_account_profile_id = cpa.cust_account_profile_id
AND cpa.cust_acct_profile_amt_id = cu.cust_acct_profile_amt_id
AND cpa.cust_acct_profile_amt_id <> l_cust_acct_profile_amt_id
AND cu.credit_usage_rule_set_id = cur.credit_usage_rule_set_id
AND NVL(TRUNC(cpa.expiration_date), TRUNC(SYSDATE)
) <= TRUNC(SYSDATE)
AND NVL (cur.include_all_flag, 'N') = 'Y'
AND NOT EXISTS ( SELECT 'EXCLUDE'
FROM hz_credit_usage_rules cur2
WHERE cu.credit_usage_rule_set_id
= cur2.credit_usage_rule_set_id
AND NVL(cur2.exclude_flag,'N') = 'Y'
AND cur2.usage_type = 'CURRENCY'
AND cur2.user_code = p_curr_code
);
SELECT cu.credit_usage_id
, substrb(cur.user_code,1,5) curr
, cpa.currency_code prof_curr
FROM hz_customer_profiles cp
, hz_cust_profile_amts cpa
, hz_credit_usages cu
, hz_credit_usage_rules cur
WHERE cp.cust_account_id = p_entity_id
AND cp.site_use_id IS NULL
AND cp.cust_account_profile_id = cpa.cust_account_profile_id
AND cpa.cust_acct_profile_amt_id = cu.cust_acct_profile_amt_id
AND cpa.cust_acct_profile_amt_id <> l_cust_acct_profile_amt_id
AND cu.credit_usage_rule_set_id = cur.credit_usage_rule_set_id
AND NVL(TRUNC(cpa.expiration_date) , TRUNC(SYSDATE) )
<= TRUNC(SYSDATE)
AND NVL (cur.include_all_flag, 'N') = 'N'
AND cur.usage_type = 'CURRENCY'
AND cur.user_code NOT IN (
SELECT cr2.user_code from
hz_credit_usage_rules cr2
WHERE cr2.credit_usage_rule_set_id = p_rule_set_id
AND cr2.usage_type = 'CURRENCY' and
NVL (cr2.include_all_flag, 'N') = 'N'
AND NVL(cr2.exclude_flag,'N') = 'Y'
)
AND NVL(cur.exclude_flag,'N') = 'N' ;
SELECT cpa.currency_code profile_curr
, cu.credit_usage_id
FROM hz_customer_profiles cp
, hz_cust_profile_amts cpa
, hz_credit_usages cu
, hz_credit_usage_rules cur
WHERE cp.cust_account_id = p_entity_id
AND cp.site_use_id IS NULL
AND cp.cust_account_profile_id = cpa.cust_account_profile_id
AND cpa.cust_acct_profile_amt_id = cu.cust_acct_profile_amt_id
AND cpa.cust_acct_profile_amt_id <> l_cust_acct_profile_amt_id
AND cu.credit_usage_rule_set_id = cur.credit_usage_rule_set_id
AND NVL(TRUNC(cpa.expiration_date), TRUNC(SYSDATE)
) <= TRUNC(SYSDATE)
AND NVL (cur.include_all_flag, 'N') = 'Y' ;
OPEN SELECT_USAGE_CURR_CSR ;
FETCH SELECT_USAGE_CURR_CSR
INTO l_usage_curr ;
IF SELECT_USAGE_CURR_CSR%NOTFOUND
THEN
l_usage_curr := NULL ;
CLOSE SELECT_USAGE_CURR_CSR ;
OPEN SELECT_USAGE_CURR_CSR ;
FETCH SELECT_USAGE_CURR_CSR
INTO l_usage_curr ;
IF SELECT_USAGE_CURR_CSR%NOTFOUND
THEN
l_usage_curr := NULL ;
CLOSE SELECT_USAGE_CURR_CSR ;
OPEN SELECT_USAGE_CURR_CSR ;
FETCH SELECT_USAGE_CURR_CSR
INTO l_usage_curr ;
IF SELECT_USAGE_CURR_CSR%NOTFOUND
THEN
l_usage_curr := NULL ;
CLOSE SELECT_USAGE_CURR_CSR ;
PROCEDURE: delete_credit_usages
COMMENTS: This procedure will accept the
cust_acct_profile_amt_id as input and
remove records from the multi currency credit checking
usages table HZ_CREDIT_USAGES for this ID
-----------------------------------------------------------------*/
PROCEDURE delete_credit_usages
( p_cust_acct_profile_amt_id IN NUMBER
, X_return_status OUT NOCOPY VARCHAR2
, X_msg_count OUT NOCOPY NUMBER
, X_msg_data OUT NOCOPY VARCHAR2
) IS
BEGIN
-- Delete the Rule set assigned for a given
-- profile amt id
HZ_MGD_MASS_UPDATE_REP_GEN.log
( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_PROCEDURE
, p_msg => '>> delete_credit_usages' );
DELETE FROM
HZ_CREDIT_USAGES
WHERE CUST_ACCT_PROFILE_AMT_ID
= p_cust_acct_profile_amt_id ;
HZ_MGD_MASS_UPDATE_REP_GEN.log
( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_PROCEDURE
, p_msg => '<< delete_credit_usages' );
END delete_credit_usages ;
SELECT
credit_usage_rule_set_id
FROM HZ_CREDIT_USAGES
WHERE profile_class_amount_id = p_profile_class_amt_id;
HZ_MGD_MASS_UPDATE_REP_GEN.log
( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_PROCEDURE
, p_msg => '>> cascade_credit_usage_rules' );
SELECT credit_usage_rule_id
INTO l_id
FROM hz_credit_usage_rules
WHERE credit_usage_rule_set_id
= rule_set_csr_rec.credit_usage_rule_set_id
AND user_code IS NULL;
SELECT
cust_account_id
, DECODE(site_use_id,NULL,'CUSTOMER','SITE') entity_type
, DECODE(site_use_id,NULL,cust_account_id,site_use_id) entity_id
, cust_account_profile_id
INTO
l_cust_account_id
, l_entity
, l_entity_id
, l_cust_account_profile_id
FROM
hz_cust_profile_amts
WHERE cust_acct_profile_amt_id =
p_cust_acct_profile_amt_id ;
SELECT party_id
INTO
l_entity_id
FROM hz_customer_profiles
WHERE cust_account_profile_id=l_cust_account_profile_id;
HZ_MGD_MASS_UPDATE_REP_GEN.log
( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_STATEMENT
, p_msg => ' Check_Duplicate_all returns '||l_duplicate);
HZ_MGD_MASS_UPDATE_REP_GEN.Add_Exp_Item
( p_party => l_party_name
, p_customer => NULL
, p_site => NULL
);
HZ_MGD_MASS_UPDATE_REP_GEN.Add_Exp_Item
( p_party => NULL
, p_customer => l_cust_name
, p_site => NULL
);
HZ_MGD_MASS_UPDATE_REP_GEN.Add_Exp_Item
( p_party => NULL
, p_customer => l_cust_name
, p_site => l_site_name
);
Delete_credit_usages
( p_cust_acct_profile_amt_id => p_cust_acct_profile_amt_id
, X_return_status => X_return_status
, X_msg_count => X_msg_count
, X_msg_data => X_msg_data
);
INSERT INTO HZ_CREDIT_USAGES
( CREDIT_USAGE_ID
, CREDIT_PROFILE_AMT_ID
, CUST_ACCT_PROFILE_AMT_ID
, PROFILE_CLASS_AMOUNT_ID
, CREDIT_USAGE_RULE_SET_ID
, CREATION_DATE
, CREATED_BY
, LAST_UPDATE_DATE
, LAST_UPDATED_BY
, LAST_UPDATE_LOGIN
, PROGRAM_APPLICATION_ID
, PROGRAM_ID
, PROGRAM_UPDATE_DATE
, REQUEST_ID
, ATTRIBUTE_CATEGORY
, ATTRIBUTE1
, ATTRIBUTE2
, ATTRIBUTE3
, ATTRIBUTE4
, ATTRIBUTE5
, ATTRIBUTE6
, ATTRIBUTE7
, ATTRIBUTE8
, ATTRIBUTE9
, ATTRIBUTE10
, ATTRIBUTE11
, ATTRIBUTE12
, ATTRIBUTE13
, ATTRIBUTE14
, ATTRIBUTE15
) SELECT
HZ_CREDIT_USAGES_S.NEXTVAL
, NULL
, p_cust_acct_profile_amt_id
, NULL
, cu.CREDIT_USAGE_RULE_SET_ID
, SYSDATE
, G_user_id
, SYSDATE
, G_user_id
, G_login_id
, G_program_application_id
, G_program_id
, SYSDATE
, G_request_id
, cu.ATTRIBUTE_CATEGORY
, cu.ATTRIBUTE1
, cu.ATTRIBUTE2
, cu.ATTRIBUTE3
, cu.ATTRIBUTE4
, cu.ATTRIBUTE5
, cu.ATTRIBUTE6
, cu.ATTRIBUTE7
, cu.ATTRIBUTE8
, cu.ATTRIBUTE9
, cu.ATTRIBUTE10
, cu.ATTRIBUTE11
, cu.ATTRIBUTE12
, cu.ATTRIBUTE13
, cu.ATTRIBUTE14
, cu.ATTRIBUTE15
FROM
HZ_CREDIT_USAGES cu
WHERE cu.PROFILE_CLASS_AMOUNT_ID = p_profile_class_amt_id ;
HZ_MGD_MASS_UPDATE_REP_GEN.log
( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_PROCEDURE
, p_msg => '<< cascade_credit_usage_rules' );
PROCEDURE Mass_Update_Usage_Rules
( p_profile_class_id IN NUMBER
, p_currency_code IN VARCHAR2
, p_profile_class_amount_id IN NUMBER
, x_errbuf OUT NOCOPY VARCHAR2
, x_retcode OUT NOCOPY VARCHAR2
)
IS
l_return_status VARCHAR2(1);
SELECT cpa.cust_acct_profile_amt_id
, cp.cust_account_profile_id
, NVL(cp.site_use_id, cp.cust_account_id) entity_id
, cp.cust_account_id
, DECODE(cp.site_use_id,NULL,'CUSTOMER','SITE') entity_type
FROM hz_cust_profile_amts cpa
, hz_customer_profiles cp
WHERE cp.cust_account_profile_id = cpa.cust_account_profile_id
AND cp.profile_class_id = p_profile_class_id
AND cpa.currency_code = NVL(p_currency_code,currency_code) ;
HZ_MGD_MASS_UPDATE_REP_GEN.log
( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_PROCEDURE
, p_msg => '>> Mass_Update_Usage_Rules' );
HZ_MGD_MASS_UPDATE_REP_GEN.log
( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_STATEMENT
, p_msg => ' Starting loop for customer profiles for
p_profile_class_id='||TO_CHAR(p_profile_class_id)
||'p_currency_code='||p_currency_code
);
HZ_MGD_MASS_UPDATE_REP_GEN.log
( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_STATEMENT
, p_msg => ' HZ_CREDIT_USAGES_CASCADE_PKG.Cascade_credit_usage_rules for
p_cust_acct_profile_amt_id='||TO_CHAR(cust_prof_csr_rec.cust_acct_profile_amt_id)
||' p_profile_class_amt_id='||TO_CHAR(p_profile_class_amount_id)
);
SELECT
COUNT(*)
INTO
l_count
FROM HZ_CREDIT_USAGES
WHERE profile_class_amount_id = p_profile_class_amount_id;
Delete_credit_usages
( p_cust_acct_profile_amt_id => cust_prof_csr_rec.cust_acct_profile_amt_id
, X_return_status => l_return_status
, X_msg_count => l_msg_count
, X_msg_data => l_msg_data
);
HZ_MGD_MASS_UPDATE_REP_GEN.G_PROF_NUMBER:=l_cust_count;
HZ_MGD_MASS_UPDATE_REP_GEN.log
( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_STATEMENT
, p_msg => ' End loop for customer profiles ');
HZ_MGD_MASS_UPDATE_REP_GEN.log
( p_priority => HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_PROCEDURE
, p_msg => '<< Mass_Update_Usage_Rules' );
HZ_MGD_MASS_UPDATE_REP_GEN.Log( HZ_MGD_MASS_UPDATE_REP_GEN.G_LOG_EXCEPTION,'SQLERRM '|| SQLERRM) ;
FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, 'Mass_Update_Usage_Rules');
END Mass_Update_Usage_Rules;