APPS.HZ_PRIMARY_TRANSFORM_PKG dependencies on HZ_PRIMARY_TRANS

Line 1: PACKAGE BODY HZ_PRIMARY_TRANSFORM_PKG AS

1: PACKAGE BODY HZ_PRIMARY_TRANSFORM_PKG AS
2: /*$Header: ARHDQPTB.pls 120.4 2005/10/30 04:19:19 appldev noship $ */
3:
4:
5: PROCEDURE Insert_Row(

Line 18: CURSOR C2 IS SELECT HZ_PRIMARY_TRANS_s.nextval FROM sys.dual;

14: p_LAST_UPDATED_BY NUMBER,
15: p_OBJECT_VERSION_NUMBER NUMBER)
16: IS
17:
18: CURSOR C2 IS SELECT HZ_PRIMARY_TRANS_s.nextval FROM sys.dual;
19: l_success VARCHAR2(1) := 'N';
20: BEGIN
21: WHILE l_success = 'N' LOOP
22: BEGIN

Line 28: INSERT INTO HZ_PRIMARY_TRANS(

24: OPEN C2;
25: FETCH C2 INTO px_PRIMARY_TRANSFORM_ID;
26: CLOSE C2;
27: END IF;
28: INSERT INTO HZ_PRIMARY_TRANS(
29: PRIMARY_TRANSFORM_ID,
30: PRIMARY_ATTRIBUTE_ID,
31: FUNCTION_ID,
32: ACTIVE_FLAG,

Line 55: IF INSTRB( SQLERRM, 'HZ_PRIMARY_TRANS_U1' ) <> 0 THEN

51: );
52:
53: l_success := 'Y';
54: EXCEPTION WHEN DUP_VAL_ON_INDEX THEN
55: IF INSTRB( SQLERRM, 'HZ_PRIMARY_TRANS_U1' ) <> 0 THEN
56: DECLARE
57: l_count NUMBER;
58: l_dummy VARCHAR2(1);
59: BEGIN

Line 62: SELECT HZ_PRIMARY_TRANS_s.nextval

58: l_dummy VARCHAR2(1);
59: BEGIN
60: l_count := 1;
61: WHILE l_count > 0 LOOP
62: SELECT HZ_PRIMARY_TRANS_s.nextval
63: into px_PRIMARY_TRANSFORM_ID FROM sys.dual;
64: BEGIN
65: SELECT 'Y' INTO l_dummy
66: FROM HZ_PRIMARY_TRANS

Line 66: FROM HZ_PRIMARY_TRANS

62: SELECT HZ_PRIMARY_TRANS_s.nextval
63: into px_PRIMARY_TRANSFORM_ID FROM sys.dual;
64: BEGIN
65: SELECT 'Y' INTO l_dummy
66: FROM HZ_PRIMARY_TRANS
67: WHERE PRIMARY_TRANSFORM_ID = px_PRIMARY_TRANSFORM_ID ;
68: l_count := 1;
69: EXCEPTION WHEN NO_DATA_FOUND THEN
70: l_count := 0;

Line 97: UPDATE hz_primary_trans

93: BEGIN
94:
95: l_object_version_number := NVL(p_object_version_number, 1) + 1;
96:
97: UPDATE hz_primary_trans
98: SET
99: PRIMARY_ATTRIBUTE_ID= decode(p_PRIMARY_ATTRIBUTE_ID, FND_API.G_MISS_NUM, PRIMARY_ATTRIBUTE_ID,
100: p_PRIMARY_ATTRIBUTE_ID),
101: FUNCTION_ID = decode(p_FUNCTION_ID, FND_API.G_MISS_NUM, FUNCTION_ID , p_FUNCTION_ID),

Line 123: DELETE FROM HZ_PRIMARY_TRANS

119: END Update_Row;
120:
121: PROCEDURE Delete_Row(p_PRIMARY_TRANSFORM_ID NUMBER) IS
122: BEGIN
123: DELETE FROM HZ_PRIMARY_TRANS
124: WHERE primary_transform_id = p_primary_transform_id;
125:
126: If (SQL%NOTFOUND) then
127: RAISE NO_DATA_FOUND;

Line 138: FROM hz_primary_trans

134: ) IS
135: CURSOR C IS
136:
137: SELECT OBJECT_VERSION_NUMBER
138: FROM hz_primary_trans
139: WHERE PRIMARY_TRANSFORM_ID = p_PRIMARY_TRANSFORM_ID
140: FOR UPDATE OF PRIMARY_TRANSFORM_ID NOWAIT;
141: Recinfo C%ROWTYPE;
142: BEGIN

Line 164: END HZ_PRIMARY_TRANSFORM_PKG;

160: APP_EXCEPTION.RAISE_EXCEPTION;
161: End If;
162: END Lock_Row;
163:
164: END HZ_PRIMARY_TRANSFORM_PKG;