APPS.HZ_WORK_CLASS_PKG dependencies on HZ_WORK_CLASS

Line 1: PACKAGE BODY HZ_WORK_CLASS_PKG as

1: PACKAGE BODY HZ_WORK_CLASS_PKG as
2: /* $Header: ARHPWCTB.pls 120.8 2005/10/30 04:22:59 appldev ship $ */
3:
4:
5: PROCEDURE Insert_Row(

Line 22: INSERT INTO HZ_WORK_CLASS(

18: BEGIN
19:
20: WHILE l_success = 'N' LOOP
21: BEGIN
22: INSERT INTO HZ_WORK_CLASS(
23: WORK_CLASS_ID,
24: LEVEL_OF_EXPERIENCE,
25: WORK_CLASS_NAME,
26: CREATED_BY,

Line 41: DECODE( x_WORK_CLASS_ID, FND_API.G_MISS_NUM, HZ_WORK_CLASS_S.NEXTVAL, NULL, HZ_WORK_CLASS_S.NEXTVAL, X_WORK_CLASS_ID ),

37: OBJECT_VERSION_NUMBER,
38: CREATED_BY_MODULE,
39: APPLICATION_ID
40: ) VALUES (
41: DECODE( x_WORK_CLASS_ID, FND_API.G_MISS_NUM, HZ_WORK_CLASS_S.NEXTVAL, NULL, HZ_WORK_CLASS_S.NEXTVAL, X_WORK_CLASS_ID ),
42: decode( x_LEVEL_OF_EXPERIENCE, FND_API.G_MISS_CHAR, NULL,x_LEVEL_OF_EXPERIENCE),
43: decode( x_WORK_CLASS_NAME, FND_API.G_MISS_CHAR, NULL,x_WORK_CLASS_NAME),
44: HZ_UTILITY_V2PUB.CREATED_BY,
45: decode( x_EMPLOYMENT_HISTORY_ID, FND_API.G_MISS_NUM, NULL,x_EMPLOYMENT_HISTORY_ID),

Line 67: IF INSTRB( SQLERRM, 'HZ_WORK_CLASS_U1' ) <> 0 OR

63: l_success := 'Y';
64:
65: EXCEPTION
66: WHEN DUP_VAL_ON_INDEX THEN
67: IF INSTRB( SQLERRM, 'HZ_WORK_CLASS_U1' ) <> 0 OR
68: INSTRB( SQLERRM, 'HZ_WORK_CLASS_PK' ) <> 0
69: THEN
70: DECLARE
71: l_count NUMBER;

Line 68: INSTRB( SQLERRM, 'HZ_WORK_CLASS_PK' ) <> 0

64:
65: EXCEPTION
66: WHEN DUP_VAL_ON_INDEX THEN
67: IF INSTRB( SQLERRM, 'HZ_WORK_CLASS_U1' ) <> 0 OR
68: INSTRB( SQLERRM, 'HZ_WORK_CLASS_PK' ) <> 0
69: THEN
70: DECLARE
71: l_count NUMBER;
72: l_dummy VARCHAR2(1);

Line 76: SELECT HZ_WORK_CLASS_S.NEXTVAL

72: l_dummy VARCHAR2(1);
73: BEGIN
74: l_count := 1;
75: WHILE l_count > 0 LOOP
76: SELECT HZ_WORK_CLASS_S.NEXTVAL
77: INTO X_WORK_CLASS_ID FROM dual;
78: BEGIN
79: SELECT 'Y' INTO l_dummy
80: FROM HZ_WORK_CLASS

Line 80: FROM HZ_WORK_CLASS

76: SELECT HZ_WORK_CLASS_S.NEXTVAL
77: INTO X_WORK_CLASS_ID FROM dual;
78: BEGIN
79: SELECT 'Y' INTO l_dummy
80: FROM HZ_WORK_CLASS
81: WHERE WORK_CLASS_ID = X_WORK_CLASS_ID;
82: l_count := 1;
83: EXCEPTION
84: WHEN NO_DATA_FOUND THEN

Line 104: DELETE FROM HZ_WORK_CLASS

100:
101: PROCEDURE Delete_Row( x_WORK_CLASS_ID NUMBER
102: ) IS
103: BEGIN
104: DELETE FROM HZ_WORK_CLASS
105: WHERE WORK_CLASS_ID = x_WORK_CLASS_ID;
106: If (SQL%NOTFOUND) then
107: RAISE NO_DATA_FOUND;
108: End If;

Line 125: Update HZ_WORK_CLASS

121: x_CREATED_BY_MODULE IN VARCHAR2,
122: x_application_id IN NUMBER
123: ) IS
124: BEGIN
125: Update HZ_WORK_CLASS
126: SET
127:
128: WORK_CLASS_ID = decode( x_WORK_CLASS_ID, NULL, WORK_CLASS_ID, FND_API.G_MISS_NUM, NULL, x_WORK_CLASS_ID),
129: LEVEL_OF_EXPERIENCE = decode( x_LEVEL_OF_EXPERIENCE, NULL, LEVEL_OF_EXPERIENCE, FND_API.G_MISS_CHAR, NULL, x_LEVEL_OF_EXPERIENCE),

Line 175: FROM HZ_WORK_CLASS

171: x_STATUS VARCHAR2
172: ) IS
173: CURSOR C IS
174: SELECT *
175: FROM HZ_WORK_CLASS
176: WHERE rowid = x_Rowid
177: FOR UPDATE of WORK_CLASS_ID NOWAIT;
178: Recinfo C%ROWTYPE;
179: BEGIN

Line 266: FROM HZ_WORK_CLASS

262: x_employment_history_id,
263: x_status,
264: x_application_id,
265: x_created_by_module
266: FROM HZ_WORK_CLASS
267: WHERE work_class_id = x_work_class_id;
268:
269: EXCEPTION
270: WHEN NO_DATA_FOUND THEN

Line 280: END HZ_WORK_CLASS_PKG;

276: RAISE FND_API.G_EXC_ERROR;
277:
278: END Select_Row;
279:
280: END HZ_WORK_CLASS_PKG;