DBA Data[Home] [Help]

APPS.HZ_CUST_ACCOUNTS_PKG dependencies on HZ_CUST_ACCOUNTS

Line 1: PACKAGE BODY HZ_CUST_ACCOUNTS_PKG AS

1: PACKAGE BODY HZ_CUST_ACCOUNTS_PKG AS
2: /*$Header: ARHCACTB.pls 120.6 2007/12/13 11:10:34 rgokavar ship $ */
3:
4: PROCEDURE Insert_Row (
5: X_CUST_ACCOUNT_ID IN OUT NOCOPY NUMBER,

Line 119: INSERT INTO HZ_CUST_ACCOUNTS (

115: END IF;
116:
117: WHILE l_success = 'N' LOOP
118: BEGIN
119: INSERT INTO HZ_CUST_ACCOUNTS (
120: CUST_ACCOUNT_ID,
121: ACCOUNT_NUMBER,
122: PARTY_ID,
123: LAST_UPDATE_DATE,

Line 221: DECODE( X_CUST_ACCOUNT_ID, FND_API.G_MISS_NUM, HZ_CUST_ACCOUNTS_S.NEXTVAL, NULL, HZ_CUST_ACCOUNTS_S.NEXTVAL, X_CUST_ACCOUNT_ID ),

217: CREATED_BY_MODULE,
218: APPLICATION_ID
219: )
220: VALUES (
221: DECODE( X_CUST_ACCOUNT_ID, FND_API.G_MISS_NUM, HZ_CUST_ACCOUNTS_S.NEXTVAL, NULL, HZ_CUST_ACCOUNTS_S.NEXTVAL, X_CUST_ACCOUNT_ID ),
222: DECODE( X_ACCOUNT_NUMBER, FND_API.G_MISS_CHAR, TO_CHAR( HZ_ACCOUNT_NUM_S.NEXTVAL ), NULL, TO_CHAR( HZ_ACCOUNT_NUM_S.NEXTVAL ), X_ACCOUNT_NUMBER ),
223: DECODE( X_PARTY_ID, FND_API.G_MISS_NUM, NULL, X_PARTY_ID ),
224: HZ_UTILITY_V2PUB.LAST_UPDATE_DATE,
225: HZ_UTILITY_V2PUB.LAST_UPDATED_BY,

Line 275: DECODE( X_ORIG_SYSTEM_REFERENCE, FND_API.G_MISS_CHAR, TO_CHAR(NVL(X_CUST_ACCOUNT_ID,HZ_CUST_ACCOUNTS_S.CURRVAL)), NULL, TO_CHAR(NVL(X_CUST_ACCOUNT_ID,HZ_CUST_ACCOUNTS_S.CURRVAL)), X_ORIG_SYSTEM_REFERENCE ),

271: DECODE( X_GLOBAL_ATTRIBUTE17, FND_API.G_MISS_CHAR, NULL, X_GLOBAL_ATTRIBUTE17 ),
272: DECODE( X_GLOBAL_ATTRIBUTE18, FND_API.G_MISS_CHAR, NULL, X_GLOBAL_ATTRIBUTE18 ),
273: DECODE( X_GLOBAL_ATTRIBUTE19, FND_API.G_MISS_CHAR, NULL, X_GLOBAL_ATTRIBUTE19 ),
274: DECODE( X_GLOBAL_ATTRIBUTE20, FND_API.G_MISS_CHAR, NULL, X_GLOBAL_ATTRIBUTE20 ),
275: DECODE( X_ORIG_SYSTEM_REFERENCE, FND_API.G_MISS_CHAR, TO_CHAR(NVL(X_CUST_ACCOUNT_ID,HZ_CUST_ACCOUNTS_S.CURRVAL)), NULL, TO_CHAR(NVL(X_CUST_ACCOUNT_ID,HZ_CUST_ACCOUNTS_S.CURRVAL)), X_ORIG_SYSTEM_REFERENCE ),
276: DECODE( X_STATUS, FND_API.G_MISS_CHAR, 'A', NULL, 'A', X_STATUS ),
277: DECODE( X_CUSTOMER_TYPE, FND_API.G_MISS_CHAR, NULL, X_CUSTOMER_TYPE ),
278: DECODE( X_CUSTOMER_CLASS_CODE, FND_API.G_MISS_CHAR, NULL, X_CUSTOMER_CLASS_CODE ),
279: DECODE( X_SALES_CHANNEL_CODE, FND_API.G_MISS_CHAR, NULL, X_SALES_CHANNEL_CODE ),

Line 332: IF INSTRB( SQLERRM, 'HZ_CUST_ACCOUNTS_U1' ) <> 0 OR

328: l_success := 'Y';
329:
330: EXCEPTION
331: WHEN DUP_VAL_ON_INDEX THEN
332: IF INSTRB( SQLERRM, 'HZ_CUST_ACCOUNTS_U1' ) <> 0 OR
333: INSTRB( SQLERRM, 'HZ_CUST_ACCOUNTS_PK' ) <> 0
334: THEN
335: DECLARE
336: l_count NUMBER;

Line 333: INSTRB( SQLERRM, 'HZ_CUST_ACCOUNTS_PK' ) <> 0

329:
330: EXCEPTION
331: WHEN DUP_VAL_ON_INDEX THEN
332: IF INSTRB( SQLERRM, 'HZ_CUST_ACCOUNTS_U1' ) <> 0 OR
333: INSTRB( SQLERRM, 'HZ_CUST_ACCOUNTS_PK' ) <> 0
334: THEN
335: DECLARE
336: l_count NUMBER;
337: l_dummy VARCHAR2(1);

Line 341: SELECT HZ_CUST_ACCOUNTS_S.NEXTVAL

337: l_dummy VARCHAR2(1);
338: BEGIN
339: l_count := 1;
340: WHILE l_count > 0 LOOP
341: SELECT HZ_CUST_ACCOUNTS_S.NEXTVAL
342: INTO X_CUST_ACCOUNT_ID FROM dual;
343: BEGIN
344: SELECT 'Y' INTO l_dummy
345: FROM HZ_CUST_ACCOUNTS

Line 345: FROM HZ_CUST_ACCOUNTS

341: SELECT HZ_CUST_ACCOUNTS_S.NEXTVAL
342: INTO X_CUST_ACCOUNT_ID FROM dual;
343: BEGIN
344: SELECT 'Y' INTO l_dummy
345: FROM HZ_CUST_ACCOUNTS
346: WHERE CUST_ACCOUNT_ID = X_CUST_ACCOUNT_ID;
347: l_count := 1;
348: EXCEPTION
349: WHEN NO_DATA_FOUND THEN

Line 354: ELSIF INSTRB( SQLERRM, 'HZ_CUST_ACCOUNTS_U2' ) <> 0 THEN

350: l_count := 0;
351: END;
352: END LOOP;
353: END;
354: ELSIF INSTRB( SQLERRM, 'HZ_CUST_ACCOUNTS_U2' ) <> 0 THEN
355: DECLARE
356: l_count NUMBER;
357: l_dummy VARCHAR2(1);
358: l_profile VARCHAR2(1);

Line 379: FROM HZ_CUST_ACCOUNTS

375: SELECT TO_CHAR( HZ_ACCOUNT_NUM_S.NEXTVAL )
376: INTO X_ACCOUNT_NUMBER FROM dual;
377: BEGIN
378: SELECT 'Y' INTO l_dummy
379: FROM HZ_CUST_ACCOUNTS
380: WHERE ACCOUNT_NUMBER = X_ACCOUNT_NUMBER;
381: l_count := 1;
382: EXCEPTION
383: WHEN NO_DATA_FOUND THEN

Line 505: UPDATE HZ_CUST_ACCOUNTS SET

501: ) IS
502:
503: BEGIN
504:
505: UPDATE HZ_CUST_ACCOUNTS SET
506: CUST_ACCOUNT_ID = DECODE( X_CUST_ACCOUNT_ID, NULL, CUST_ACCOUNT_ID, FND_API.G_MISS_NUM, NULL, X_CUST_ACCOUNT_ID ),
507: PARTY_ID = DECODE( X_PARTY_ID, NULL, PARTY_ID, FND_API.G_MISS_NUM, NULL, X_PARTY_ID ),
508: LAST_UPDATE_DATE = HZ_UTILITY_V2PUB.LAST_UPDATE_DATE,
509: ACCOUNT_NUMBER = DECODE( X_ACCOUNT_NUMBER, NULL, ACCOUNT_NUMBER, FND_API.G_MISS_CHAR, NULL, X_ACCOUNT_NUMBER ),

Line 730: SELECT * FROM HZ_CUST_ACCOUNTS

726: X_APPLICATION_ID IN NUMBER
727: ) IS
728:
729: CURSOR C IS
730: SELECT * FROM HZ_CUST_ACCOUNTS
731: WHERE ROWID = x_Rowid
732: FOR UPDATE NOWAIT;
733: Recinfo C%ROWTYPE;
734:

Line 1357: FROM HZ_CUST_ACCOUNTS

1353: X_LAST_BATCH_ID,
1354: X_SELLING_PARTY_ID,
1355: X_CREATED_BY_MODULE,
1356: X_APPLICATION_ID
1357: FROM HZ_CUST_ACCOUNTS
1358: WHERE CUST_ACCOUNT_ID = X_CUST_ACCOUNT_ID;
1359:
1360: EXCEPTION
1361: WHEN NO_DATA_FOUND THEN

Line 1376: DELETE FROM HZ_CUST_ACCOUNTS

1372: ) IS
1373:
1374: BEGIN
1375:
1376: DELETE FROM HZ_CUST_ACCOUNTS
1377: WHERE CUST_ACCOUNT_ID = X_CUST_ACCOUNT_ID;
1378:
1379: IF ( SQL%NOTFOUND ) THEN
1380: RAISE NO_DATA_FOUND;

Line 1385: END HZ_CUST_ACCOUNTS_PKG;

1381: END IF;
1382:
1383: END Delete_Row;
1384:
1385: END HZ_CUST_ACCOUNTS_PKG;