APPS.HZ_CUSTOMER_PROFILES_PKG dependencies on HZ_CUSTOMER_PROFILES

Line 1: PACKAGE BODY HZ_CUSTOMER_PROFILES_PKG AS

1: PACKAGE BODY HZ_CUSTOMER_PROFILES_PKG AS
2: /*$Header: ARHCPFTB.pls 120.13.12010000.4 2008/11/04 09:41:01 avjha ship $ */
3:
4: PROCEDURE Insert_Row (
5: X_CUST_ACCOUNT_PROFILE_ID IN OUT NOCOPY NUMBER,

Line 130: INSERT INTO HZ_CUSTOMER_PROFILES (

126: WHERE PROFILE_CLASS_ID = X_PROFILE_CLASS_ID;
127:
128: WHILE l_success = 'N' LOOP
129: BEGIN
130: INSERT INTO HZ_CUSTOMER_PROFILES (
131: CUST_ACCOUNT_PROFILE_ID,
132: LAST_UPDATED_BY,
133: LAST_UPDATE_DATE,
134: LAST_UPDATE_LOGIN,

Line 250: DECODE( X_CUST_ACCOUNT_PROFILE_ID, FND_API.G_MISS_NUM, HZ_CUSTOMER_PROFILES_S.NEXTVAL, NULL, HZ_CUSTOMER_PROFILES_S.NEXTVAL, X_CUST_ACCOUNT_PROFILE_ID ),

246: MULTIPLE_INTEREST_RATES_FLAG,
247: CHARGE_BEGIN_DATE
248: )
249: VALUES (
250: DECODE( X_CUST_ACCOUNT_PROFILE_ID, FND_API.G_MISS_NUM, HZ_CUSTOMER_PROFILES_S.NEXTVAL, NULL, HZ_CUSTOMER_PROFILES_S.NEXTVAL, X_CUST_ACCOUNT_PROFILE_ID ),
251: HZ_UTILITY_V2PUB.LAST_UPDATED_BY,
252: HZ_UTILITY_V2PUB.LAST_UPDATE_DATE,
253: HZ_UTILITY_V2PUB.LAST_UPDATE_LOGIN,
254: HZ_UTILITY_V2PUB.CREATED_BY,

Line 378: IF INSTRB( SQLERRM, 'HZ_CUSTOMER_PROFILES_U1' ) <> 0 OR

374: l_success := 'Y';
375:
376: EXCEPTION
377: WHEN DUP_VAL_ON_INDEX THEN
378: IF INSTRB( SQLERRM, 'HZ_CUSTOMER_PROFILES_U1' ) <> 0 OR
379: INSTRB( SQLERRM, 'HZ_CUSTOMER_PROFILES_PK' ) <> 0
380: THEN
381: DECLARE
382: l_count NUMBER;

Line 379: INSTRB( SQLERRM, 'HZ_CUSTOMER_PROFILES_PK' ) <> 0

375:
376: EXCEPTION
377: WHEN DUP_VAL_ON_INDEX THEN
378: IF INSTRB( SQLERRM, 'HZ_CUSTOMER_PROFILES_U1' ) <> 0 OR
379: INSTRB( SQLERRM, 'HZ_CUSTOMER_PROFILES_PK' ) <> 0
380: THEN
381: DECLARE
382: l_count NUMBER;
383: l_dummy VARCHAR2(1);

Line 387: SELECT HZ_CUSTOMER_PROFILES_S.NEXTVAL

383: l_dummy VARCHAR2(1);
384: BEGIN
385: l_count := 1;
386: WHILE l_count > 0 LOOP
387: SELECT HZ_CUSTOMER_PROFILES_S.NEXTVAL
388: INTO X_CUST_ACCOUNT_PROFILE_ID FROM dual;
389: BEGIN
390: SELECT 'Y' INTO l_dummy
391: FROM HZ_CUSTOMER_PROFILES

Line 391: FROM HZ_CUSTOMER_PROFILES

387: SELECT HZ_CUSTOMER_PROFILES_S.NEXTVAL
388: INTO X_CUST_ACCOUNT_PROFILE_ID FROM dual;
389: BEGIN
390: SELECT 'Y' INTO l_dummy
391: FROM HZ_CUSTOMER_PROFILES
392: WHERE CUST_ACCOUNT_PROFILE_ID = X_CUST_ACCOUNT_PROFILE_ID;
393: l_count := 1;
394: EXCEPTION
395: WHEN NO_DATA_FOUND THEN

Line 536: UPDATE HZ_CUSTOMER_PROFILES SET

532: FROM HZ_CUST_PROFILE_CLASSES
533: WHERE PROFILE_CLASS_ID = X_PROFILE_CLASS_ID;
534: END IF;
535:
536: UPDATE HZ_CUSTOMER_PROFILES SET
537: CUST_ACCOUNT_PROFILE_ID = DECODE( X_CUST_ACCOUNT_PROFILE_ID, NULL, CUST_ACCOUNT_PROFILE_ID, FND_API.G_MISS_NUM, NULL, X_CUST_ACCOUNT_PROFILE_ID ),
538: LAST_UPDATED_BY = HZ_UTILITY_V2PUB.LAST_UPDATED_BY,
539: LAST_UPDATE_DATE = HZ_UTILITY_V2PUB.LAST_UPDATE_DATE,
540: LAST_UPDATE_LOGIN = HZ_UTILITY_V2PUB.LAST_UPDATE_LOGIN,

Line 798: SELECT * FROM HZ_CUSTOMER_PROFILES

794: X_CHARGE_BEGIN_DATE IN DATE
795: ) IS
796:
797: CURSOR C IS
798: SELECT * FROM HZ_CUSTOMER_PROFILES
799: WHERE ROWID = x_Rowid
800: FOR UPDATE NOWAIT;
801: Recinfo C%ROWTYPE;
802:

Line 1503: FROM HZ_CUSTOMER_PROFILES

1499: X_HOLD_CHARGED_INVOICES_FLAG,
1500: X_MESSAGE_TEXT_ID,
1501: X_MULTIPLE_INTEREST_RATES_FLAG,
1502: X_CHARGE_BEGIN_DATE
1503: FROM HZ_CUSTOMER_PROFILES
1504: WHERE CUST_ACCOUNT_PROFILE_ID = X_CUST_ACCOUNT_PROFILE_ID;
1505:
1506: EXCEPTION
1507: WHEN NO_DATA_FOUND THEN

Line 1522: DELETE FROM HZ_CUSTOMER_PROFILES

1518: ) IS
1519:
1520: BEGIN
1521:
1522: DELETE FROM HZ_CUSTOMER_PROFILES
1523: WHERE CUST_ACCOUNT_PROFILE_ID = X_CUST_ACCOUNT_PROFILE_ID;
1524:
1525: IF ( SQL%NOTFOUND ) THEN
1526: RAISE NO_DATA_FOUND;

Line 1531: END HZ_CUSTOMER_PROFILES_PKG;

1527: END IF;
1528:
1529: END Delete_Row;
1530:
1531: END HZ_CUSTOMER_PROFILES_PKG;