DBA Data[Home] [Help]

APPS.HZ_PARTIES_PKG dependencies on HZ_PARTIES

Line 1: PACKAGE BODY HZ_PARTIES_PKG AS

1: PACKAGE BODY HZ_PARTIES_PKG AS
2: /*$Header: ARHPTYTB.pls 120.6 2006/05/05 09:20:42 pkasturi ship $ */
3:
4: FUNCTION do_copy_duns_number(
5: p_duns_number_c IN VARCHAR2

Line 9: l_str HZ_PARTIES.DUNS_NUMBER_C%TYPE;

5: p_duns_number_c IN VARCHAR2
6: ) RETURN NUMBER IS
7:
8: l_char VARCHAR2(1);
9: l_str HZ_PARTIES.DUNS_NUMBER_C%TYPE;
10:
11: BEGIN
12:
13: -- if duns_number is null and duns_number_c is not null then get the

Line 124: l_duns_number_c HZ_PARTIES.duns_number_c%type := X_DUNS_NUMBER_C;

120: ) IS
121:
122: l_duns_number NUMBER;
123: l_success VARCHAR2(1) := 'N';
124: l_duns_number_c HZ_PARTIES.duns_number_c%type := X_DUNS_NUMBER_C;
125: BEGIN
126:
127: IF x_duns_number_c IS NOT NULL AND
128: x_duns_number_c <> FND_API.G_MISS_CHAR

Line 142: INSERT INTO HZ_PARTIES (

138: END IF;
139:
140: WHILE l_success = 'N' LOOP
141: BEGIN
142: INSERT INTO HZ_PARTIES (
143: PARTY_ID,
144: PARTY_NUMBER,
145: PARTY_NAME,
146: PARTY_TYPE,

Line 239: DECODE( X_PARTY_ID, FND_API.G_MISS_NUM, HZ_PARTIES_S.NEXTVAL, NULL, HZ_PARTIES_S.NEXTVAL, X_PARTY_ID ),

235: CREATED_BY_MODULE,
236: APPLICATION_ID
237: )
238: VALUES (
239: DECODE( X_PARTY_ID, FND_API.G_MISS_NUM, HZ_PARTIES_S.NEXTVAL, NULL, HZ_PARTIES_S.NEXTVAL, X_PARTY_ID ),
240: DECODE( X_PARTY_NUMBER, FND_API.G_MISS_CHAR, TO_CHAR( HZ_PARTY_NUMBER_S.NEXTVAL ), NULL, TO_CHAR( HZ_PARTY_NUMBER_S.NEXTVAL ), X_PARTY_NUMBER ),
241: DECODE( X_PARTY_NAME, FND_API.G_MISS_CHAR, NULL, X_PARTY_NAME ),
242: DECODE( X_PARTY_TYPE, FND_API.G_MISS_CHAR, NULL, X_PARTY_TYPE ),
243: DECODE( X_VALIDATED_FLAG, FND_API.G_MISS_CHAR, 'N', NULL, 'N', X_VALIDATED_FLAG ),

Line 278: DECODE( X_ORIG_SYSTEM_REFERENCE, FND_API.G_MISS_CHAR, TO_CHAR(NVL(X_PARTY_ID,HZ_PARTIES_S.CURRVAL)), NULL, TO_CHAR(NVL(X_PARTY_ID,HZ_PARTIES_S.CURRVAL)), X_ORIG_SYSTEM_REFERENCE ),

274: DECODE( X_ATTRIBUTE21, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE21 ),
275: DECODE( X_ATTRIBUTE22, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE22 ),
276: DECODE( X_ATTRIBUTE23, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE23 ),
277: DECODE( X_ATTRIBUTE24, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE24 ),
278: DECODE( X_ORIG_SYSTEM_REFERENCE, FND_API.G_MISS_CHAR, TO_CHAR(NVL(X_PARTY_ID,HZ_PARTIES_S.CURRVAL)), NULL, TO_CHAR(NVL(X_PARTY_ID,HZ_PARTIES_S.CURRVAL)), X_ORIG_SYSTEM_REFERENCE ),
279: DECODE( X_SIC_CODE, FND_API.G_MISS_CHAR, NULL, X_SIC_CODE ),
280: DECODE( X_HQ_BRANCH_IND, FND_API.G_MISS_CHAR, NULL, X_HQ_BRANCH_IND ),
281: DECODE( X_CUSTOMER_KEY, FND_API.G_MISS_CHAR, NULL, X_CUSTOMER_KEY ),
282: DECODE( X_TAX_REFERENCE, FND_API.G_MISS_CHAR, NULL, X_TAX_REFERENCE ),

Line 350: IF INSTRB( SQLERRM, 'HZ_PARTIES_U1' ) <> 0 OR

346: l_success := 'Y';
347:
348: EXCEPTION
349: WHEN DUP_VAL_ON_INDEX THEN
350: IF INSTRB( SQLERRM, 'HZ_PARTIES_U1' ) <> 0 OR
351: INSTRB( SQLERRM, 'HZ_PARTIES_PK' ) <> 0
352: THEN
353: DECLARE
354: l_count NUMBER;

Line 351: INSTRB( SQLERRM, 'HZ_PARTIES_PK' ) <> 0

347:
348: EXCEPTION
349: WHEN DUP_VAL_ON_INDEX THEN
350: IF INSTRB( SQLERRM, 'HZ_PARTIES_U1' ) <> 0 OR
351: INSTRB( SQLERRM, 'HZ_PARTIES_PK' ) <> 0
352: THEN
353: DECLARE
354: l_count NUMBER;
355: l_dummy VARCHAR2(1);

Line 359: SELECT HZ_PARTIES_S.NEXTVAL

355: l_dummy VARCHAR2(1);
356: BEGIN
357: l_count := 1;
358: WHILE l_count > 0 LOOP
359: SELECT HZ_PARTIES_S.NEXTVAL
360: INTO X_PARTY_ID FROM dual;
361: BEGIN
362: SELECT 'Y' INTO l_dummy
363: FROM HZ_PARTIES

Line 363: FROM HZ_PARTIES

359: SELECT HZ_PARTIES_S.NEXTVAL
360: INTO X_PARTY_ID FROM dual;
361: BEGIN
362: SELECT 'Y' INTO l_dummy
363: FROM HZ_PARTIES
364: WHERE PARTY_ID = X_PARTY_ID;
365: l_count := 1;
366: EXCEPTION
367: WHEN NO_DATA_FOUND THEN

Line 372: ELSIF INSTRB( SQLERRM, 'HZ_PARTIES_U2' ) <> 0 THEN

368: l_count := 0;
369: END;
370: END LOOP;
371: END;
372: ELSIF INSTRB( SQLERRM, 'HZ_PARTIES_U2' ) <> 0 THEN
373: DECLARE
374: l_count NUMBER;
375: l_dummy VARCHAR2(1);
376: BEGIN

Line 383: FROM HZ_PARTIES

379: SELECT TO_CHAR( HZ_PARTY_NUMBER_S.NEXTVAL )
380: INTO X_PARTY_NUMBER FROM dual;
381: BEGIN
382: SELECT 'Y' INTO l_dummy
383: FROM HZ_PARTIES
384: WHERE PARTY_NUMBER = X_PARTY_NUMBER;
385: l_count := 1;
386: EXCEPTION
387: WHEN NO_DATA_FOUND THEN

Line 491: l_duns_number_c HZ_PARTIES.duns_number_c%type := X_DUNS_NUMBER_C;

487: ) IS
488:
489: l_duns_number NUMBER;
490:
491: l_duns_number_c HZ_PARTIES.duns_number_c%type := X_DUNS_NUMBER_C;
492: BEGIN
493:
494: IF x_duns_number_c IS NOT NULL AND
495: x_duns_number_c <> FND_API.G_MISS_CHAR

Line 507: UPDATE HZ_PARTIES SET

503: THEN
504: l_duns_number_c:=lpad(x_duns_number_c,9,'0');
505: END IF;
506:
507: UPDATE HZ_PARTIES SET
508: PARTY_ID = DECODE( X_PARTY_ID, NULL, PARTY_ID, FND_API.G_MISS_NUM, NULL, X_PARTY_ID ),
509: PARTY_NUMBER = DECODE( X_PARTY_NUMBER, NULL, PARTY_NUMBER, FND_API.G_MISS_CHAR, NULL, X_PARTY_NUMBER ),
510: PARTY_NAME = DECODE( X_PARTY_NAME, NULL, PARTY_NAME, FND_API.G_MISS_CHAR, NULL, X_PARTY_NAME ),
511: PARTY_TYPE = DECODE( X_PARTY_TYPE, NULL, PARTY_TYPE, FND_API.G_MISS_CHAR, NULL, X_PARTY_TYPE ),

Line 710: SELECT * FROM HZ_PARTIES

706: X_APPLICATION_ID IN NUMBER
707: ) IS
708:
709: CURSOR C IS
710: SELECT * FROM HZ_PARTIES
711: WHERE ROWID = x_Rowid
712: FOR UPDATE NOWAIT;
713: Recinfo C%ROWTYPE;
714:

Line 1271: FROM HZ_PARTIES

1267: X_KNOWN_AS5,
1268: X_DUNS_NUMBER_C,
1269: X_CREATED_BY_MODULE,
1270: X_APPLICATION_ID
1271: FROM HZ_PARTIES
1272: WHERE PARTY_ID = X_PARTY_ID;
1273:
1274: EXCEPTION
1275: WHEN NO_DATA_FOUND THEN

Line 1290: DELETE FROM HZ_PARTIES

1286: ) IS
1287:
1288: BEGIN
1289:
1290: DELETE FROM HZ_PARTIES
1291: WHERE PARTY_ID = X_PARTY_ID;
1292:
1293: IF ( SQL%NOTFOUND ) THEN
1294: RAISE NO_DATA_FOUND;

Line 1299: END HZ_PARTIES_PKG;

1295: END IF;
1296:
1297: END Delete_Row;
1298:
1299: END HZ_PARTIES_PKG;