1 PACKAGE BODY jtf_ih_result_reasons_seed_pub AS
2 /* $Header: JTFIHRRB.pls 115.2 2001/11/09 19:00:26 pkm ship $ */
3
4 PROCEDURE insert_row(
5 x_rowid IN OUT VARCHAR2
6 , x_result_id NUMBER
7 , x_reason_id NUMBER
8 , x_object_version_number NUMBER
9 , x_created_by NUMBER
10 , x_creation_date DATE
11 , x_last_updated_by NUMBER
12 , x_last_update_date DATE
13 , x_last_update_login NUMBER
14 ) IS
15 CURSOR l_insert IS
16 SELECT ROWID
17 FROM jtf_ih_result_reasons
18 WHERE result_id = x_result_id;
19 BEGIN
20 INSERT INTO jtf_ih_result_reasons (
21 result_id
22 , reason_id
23 , object_version_number
24 , created_by
25 , creation_date
26 , last_updated_by
27 , last_update_date
28 , last_update_login
29 ) VALUES (
30 x_result_id
31 , DECODE(x_reason_id,FND_API.G_MISS_NUM,NULL,x_reason_id)
32 , DECODE(x_object_version_number,FND_API.G_MISS_NUM,NULL,x_object_version_number)
33 , DECODE(x_created_by,FND_API.G_MISS_NUM,NULL,x_created_by)
34 , DECODE(x_creation_date,FND_API.G_MISS_DATE,NULL,x_creation_date)
35 , DECODE(x_last_updated_by,FND_API.G_MISS_NUM,NULL,x_last_updated_by)
36 , DECODE(x_last_update_date,FND_API.G_MISS_DATE,NULL,x_last_update_date)
37 , DECODE(x_last_update_login,FND_API.G_MISS_NUM,NULL,x_last_update_login)
38 );
39
40 OPEN l_insert;
41 FETCH l_insert INTO x_rowid;
42 IF (l_insert%NOTFOUND) THEN
43 CLOSE l_insert;
44 RAISE NO_DATA_FOUND;
45 END IF;
46 END insert_row;
47
48 PROCEDURE delete_row(
49 x_result_id NUMBER
50 ) IS
51 BEGIN
52 DELETE FROM jtf_ih_result_reasons
53 WHERE result_id = x_result_id;
54 IF (SQL%NOTFOUND) THEN
55 RAISE NO_DATA_FOUND;
56 END IF;
57 END delete_row;
58
59 PROCEDURE update_row(
60 x_rowid VARCHAR2
61 , x_result_id NUMBER
62 , x_reason_id NUMBER
63 , x_object_version_number NUMBER
64 , x_created_by NUMBER
65 , x_creation_date DATE
66 , x_last_updated_by NUMBER
67 , x_last_update_date DATE
68 , x_last_update_login NUMBER
69 ) IS
70 BEGIN
71 UPDATE jtf_ih_result_reasons
72 SET
73 result_id=DECODE(x_result_id,FND_API.G_MISS_NUM,NULL,x_result_id)
74 , reason_id=DECODE(x_reason_id,FND_API.G_MISS_NUM,NULL,x_reason_id)
75 , object_version_number=DECODE(x_object_version_number,FND_API.G_MISS_NUM,NULL,x_object_version_number)
76 , created_by=DECODE(x_created_by,FND_API.G_MISS_NUM,NULL,x_created_by)
77 , creation_date=DECODE(x_creation_date,FND_API.G_MISS_DATE,NULL,x_creation_date)
78 , last_updated_by=DECODE(x_last_updated_by,FND_API.G_MISS_NUM,NULL,x_last_updated_by)
79 , last_update_date=DECODE(x_last_update_date,FND_API.G_MISS_DATE,NULL,x_last_update_date)
80 , last_update_login=DECODE(x_last_update_login,FND_API.G_MISS_NUM,NULL,x_last_update_login)
81 WHERE ROWID = x_rowid;
82 IF (SQL%NOTFOUND) THEN
83 RAISE NO_DATA_FOUND;
84 END IF;
85 END update_row;
86
87 PROCEDURE lock_row(
88 x_rowid VARCHAR2
89 , x_result_id NUMBER
90 , x_reason_id NUMBER
91 , x_object_version_number NUMBER
92 , x_created_by NUMBER
93 , x_creation_date DATE
94 , x_last_updated_by NUMBER
95 , x_last_update_date DATE
96 , x_last_update_login NUMBER
97 ) IS
98 CURSOR l_lock IS
99 SELECT *
100 FROM jtf_ih_result_reasons
101 WHERE rowid = x_rowid
102 FOR UPDATE OF result_id NOWAIT;
103 l_table_rec l_lock%ROWTYPE;
104 BEGIN
105 OPEN l_lock;
106 FETCH l_lock INTO l_table_rec;
107 IF (l_lock%NOTFOUND) THEN
108 CLOSE l_lock;
109 FND_MESSAGE.SET_NAME('FND','FORM_RECORD_DELETED');
110 APP_EXCEPTION.RAISE_EXCEPTION;
111 END IF;
112 CLOSE l_lock;
113 IF (
114 ((l_table_rec.result_id = x_result_id)
115 OR ((l_table_rec.result_id IS NULL)
116 AND ( x_result_id IS NULL)))
117 AND ((l_table_rec.reason_id = x_reason_id)
118 OR ((l_table_rec.reason_id IS NULL)
119 AND ( x_reason_id IS NULL)))
120 AND ((l_table_rec.object_version_number = x_object_version_number)
121 OR ((l_table_rec.object_version_number IS NULL)
122 AND ( x_object_version_number IS NULL)))
123 AND ((l_table_rec.created_by = x_created_by)
124 OR ((l_table_rec.created_by IS NULL)
125 AND ( x_created_by IS NULL)))
126 AND ((l_table_rec.creation_date = x_creation_date)
127 OR ((l_table_rec.creation_date IS NULL)
128 AND ( x_creation_date IS NULL)))
129 AND ((l_table_rec.last_updated_by = x_last_updated_by)
130 OR ((l_table_rec.last_updated_by IS NULL)
131 AND ( x_last_updated_by IS NULL)))
132 AND ((l_table_rec.last_update_date = x_last_update_date)
133 OR ((l_table_rec.last_update_date IS NULL)
134 AND ( x_last_update_date IS NULL)))
135 AND ((l_table_rec.last_update_login = x_last_update_login)
136 OR ((l_table_rec.last_update_login IS NULL)
137 AND ( x_last_update_login IS NULL)))
138 ) THEN
139 RETURN;
140 ELSE
141 FND_MESSAGE.SET_NAME('FND','FORM_RECORD_DELETED');
142 APP_EXCEPTION.RAISE_EXCEPTION;
143 END IF;
144 END lock_row;
145 END jtf_ih_result_reasons_seed_pub;