APPS.HZ_CREDIT_RATINGS_PKG dependencies on HZ_CREDIT_RATINGS

Line 1: PACKAGE BODY HZ_CREDIT_RATINGS_PKG as

1: PACKAGE BODY HZ_CREDIT_RATINGS_PKG as
2: /* $Header: ARHPCRTB.pls 120.11 2005/10/30 04:21:33 appldev ship $ */
3:
4: g_miss_content_source_type CONSTANT VARCHAR2(30) := 'USER_ENTERED';
5:

Line 115: INSERT INTO HZ_CREDIT_RATINGS (

111: BEGIN
112:
113: WHILE l_success = 'N' LOOP
114: BEGIN
115: INSERT INTO HZ_CREDIT_RATINGS (
116: credit_rating_id,
117: description,
118: party_id,
119: rating,

Line 229: FND_API.G_MISS_NUM, HZ_CREDIT_RATINGS_S.NEXTVAL,

225: actual_content_source
226: )
227: VALUES (
228: DECODE(x_credit_rating_id,
229: FND_API.G_MISS_NUM, HZ_CREDIT_RATINGS_S.NEXTVAL,
230: NULL, HZ_CREDIT_RATINGS_S.NEXTVAL,
231: x_credit_rating_id),
232: DECODE(x_description,
233: FND_API.G_MISS_CHAR, NULL,

Line 230: NULL, HZ_CREDIT_RATINGS_S.NEXTVAL,

226: )
227: VALUES (
228: DECODE(x_credit_rating_id,
229: FND_API.G_MISS_NUM, HZ_CREDIT_RATINGS_S.NEXTVAL,
230: NULL, HZ_CREDIT_RATINGS_S.NEXTVAL,
231: x_credit_rating_id),
232: DECODE(x_description,
233: FND_API.G_MISS_CHAR, NULL,
234: x_description),

Line 552: IF INSTR(SQLERRM, 'HZ_CREDIT_RATINGS_U1') <> 0 THEN

548: l_success := 'Y';
549:
550: EXCEPTION
551: WHEN DUP_VAL_ON_INDEX THEN
552: IF INSTR(SQLERRM, 'HZ_CREDIT_RATINGS_U1') <> 0 THEN
553: DECLARE
554: l_count NUMBER;
555: l_dummy VARCHAR2(1);
556: BEGIN

Line 559: SELECT HZ_CREDIT_RATINGS_S.NEXTVAL

555: l_dummy VARCHAR2(1);
556: BEGIN
557: l_count := 1;
558: WHILE l_count > 0 LOOP
559: SELECT HZ_CREDIT_RATINGS_S.NEXTVAL
560: INTO x_credit_rating_id FROM dual;
561: BEGIN
562: SELECT 'Y' INTO l_dummy
563: FROM HZ_CREDIT_RATINGS

Line 563: FROM HZ_CREDIT_RATINGS

559: SELECT HZ_CREDIT_RATINGS_S.NEXTVAL
560: INTO x_credit_rating_id FROM dual;
561: BEGIN
562: SELECT 'Y' INTO l_dummy
563: FROM HZ_CREDIT_RATINGS
564: WHERE credit_rating_id = x_credit_rating_id;
565: l_count := 1;
566: EXCEPTION
567: WHEN NO_DATA_FOUND THEN

Line 574: IF INSTR(SQLERRM,'HZ_CREDIT_RATINGS_U2') <> 0 THEN

570: END LOOP;
571: END;
572: END IF;
573: --Bug 3090928
574: IF INSTR(SQLERRM,'HZ_CREDIT_RATINGS_U2') <> 0 THEN
575: fnd_message.set_name('AR', 'HZ_API_DUP_CREDIT_RATING_REC');
576: fnd_msg_pub.add;
577: RAISE FND_API.G_EXC_ERROR;
578: END IF;

Line 688: UPDATE HZ_CREDIT_RATINGS

684: x_actual_content_source IN VARCHAR2
685: ) IS
686: BEGIN
687:
688: UPDATE HZ_CREDIT_RATINGS
689: SET
690: credit_rating_id =
691: DECODE(x_credit_rating_id,
692: NULL, credit_rating_id,

Line 1324: SELECT * FROM hz_credit_ratings

1320: x_actual_content_source IN VARCHAR2
1321: ) IS
1322:
1323: CURSOR c IS
1324: SELECT * FROM hz_credit_ratings
1325: WHERE rowid = x_rowid
1326: FOR UPDATE NOWAIT;
1327: Recinfo c%ROWTYPE;
1328:

Line 1974: FROM HZ_CREDIT_RATINGS

1970: x_fail_score_natnl_percentile,
1971: x_failure_score_override_code,
1972: x_global_failure_score,
1973: x_actual_content_source
1974: FROM HZ_CREDIT_RATINGS
1975: WHERE credit_rating_id = x_credit_rating_id;
1976:
1977: EXCEPTION
1978: WHEN NO_DATA_FOUND THEN

Line 1992: DELETE FROM HZ_CREDIT_RATINGS

1988: x_credit_rating_id IN NUMBER
1989: ) IS
1990: BEGIN
1991:
1992: DELETE FROM HZ_CREDIT_RATINGS
1993: WHERE credit_rating_id = x_credit_rating_id;
1994:
1995: IF ( SQL%NOTFOUND ) THEN
1996: RAISE NO_DATA_FOUND;

Line 2001: END HZ_CREDIT_RATINGS_PKG;

1997: END IF;
1998:
1999: END Delete_Row;
2000:
2001: END HZ_CREDIT_RATINGS_PKG;