[Home] [Help]
PACKAGE BODY: APPS.IBE_MSITE_PRTY_ACCSS_PKG
Source
1 PACKAGE BODY Ibe_Msite_Prty_Accss_Pkg AS
2 /* $Header: IBETMPRB.pls 115.2 2002/12/13 14:06:57 schak ship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(30):= 'IBE_MSITE_PRTY_ACCSS_PKG';
5 G_FILE_NAME CONSTANT VARCHAR2(12):= 'IBETMPRB.pls';
6
7 -- HISTORY
8 -- 12/13/02 SCHAK Modified for NOCOPY (Bug # 2691704) Changes.
9 -- *********************************************************************************
10
11 PROCEDURE insert_row
12 (
13 p_msite_prty_accss_id IN NUMBER,
14 p_object_version_number IN NUMBER,
15 p_msite_id IN NUMBER,
16 p_party_id IN NUMBER,
17 p_start_date_active IN DATE,
18 p_end_date_active IN DATE,
19 p_creation_date IN DATE,
20 p_created_by IN NUMBER,
21 p_last_update_date IN DATE,
22 p_last_updated_by IN NUMBER,
23 p_last_update_login IN NUMBER,
24 x_rowid OUT NOCOPY VARCHAR2,
25 x_msite_prty_accss_id OUT NOCOPY NUMBER
26 )
27 IS
28 CURSOR c IS SELECT rowid FROM ibe_msite_prty_accss
29 WHERE msite_prty_accss_id = x_msite_prty_accss_id;
30 CURSOR c2 IS SELECT ibe_msite_prty_accss_s1.nextval FROM dual;
31
32 BEGIN
33
34 -- Primary key validation check
35 x_msite_prty_accss_id := p_msite_prty_accss_id;
36 IF ((x_msite_prty_accss_id IS NULL) OR
37 (x_msite_prty_accss_id = FND_API.G_MISS_NUM))
38 THEN
39 OPEN c2;
40 FETCH c2 INTO x_msite_prty_accss_id;
41 CLOSE c2;
42 END IF;
43
44 -- insert base
45 INSERT INTO ibe_msite_prty_accss
46 (
47 msite_prty_accss_id,
48 object_version_number,
49 msite_id,
50 party_id,
51 start_date_active,
52 end_date_active,
53 creation_date,
54 created_by,
55 last_update_date,
56 last_updated_by,
57 last_update_login
58 )
59 VALUES
60 (
61 x_msite_prty_accss_id,
62 p_object_version_number,
63 p_msite_id,
64 p_party_id,
65 p_start_date_active,
66 decode(p_end_date_active, FND_API.G_MISS_DATE, NULL, p_end_date_active),
67 decode(p_creation_date, FND_API.G_MISS_DATE, sysdate, NULL, sysdate,
68 p_creation_date),
69 decode(p_created_by, FND_API.G_MISS_NUM, FND_GLOBAL.user_id,
70 NULL, FND_GLOBAL.user_id, p_created_by),
71 decode(p_last_update_date, FND_API.G_MISS_DATE, sysdate, NULL, sysdate,
72 p_last_update_date),
73 decode(p_last_updated_by, FND_API.G_MISS_NUM, FND_GLOBAL.user_id,
74 NULL, FND_GLOBAL.user_id, p_last_updated_by),
75 decode(p_last_update_login, FND_API.G_MISS_NUM, FND_GLOBAL.login_id,
76 NULL, FND_GLOBAL.login_id, p_last_update_login)
77 );
78
79 OPEN c;
80 FETCH c INTO x_rowid;
81 IF (c%NOTFOUND)
82 THEN
83 CLOSE c;
84 RAISE NO_DATA_FOUND;
85 END IF;
86 CLOSE c;
87
88 END insert_row;
89
90 PROCEDURE update_row
91 (
92 p_msite_prty_accss_id IN NUMBER,
93 p_object_version_number IN NUMBER := FND_API.G_MISS_NUM,
94 p_start_date_active IN DATE,
95 p_end_date_active IN DATE,
96 p_last_update_date IN DATE,
97 p_last_updated_by IN NUMBER,
98 p_last_update_login IN NUMBER
99 )
100 IS
101 BEGIN
102
103 -- update base
104 UPDATE ibe_msite_prty_accss SET
105 object_version_number = object_version_number + 1,
106 start_date_active = decode(p_start_date_active, FND_API.G_MISS_DATE,
107 start_date_active, p_start_date_active),
108 end_date_active = decode(p_end_date_active, FND_API.G_MISS_DATE,
109 end_date_active, p_end_date_active),
110 last_update_date = decode(p_last_update_date, FND_API.G_MISS_DATE, sysdate,
111 NULL, sysdate, p_last_update_date),
112 last_updated_by = decode(p_last_updated_by, FND_API.G_MISS_NUM,
113 FND_GLOBAL.user_id, NULL, FND_GLOBAL.user_id,
114 p_last_updated_by),
115 last_update_login = decode(p_last_update_login, FND_API.G_MISS_NUM,
116 FND_GLOBAL.login_id, NULL, FND_GLOBAL.login_id,
117 p_last_update_login)
118 WHERE msite_prty_accss_id = p_msite_prty_accss_id
119 AND object_version_number = decode(p_object_version_number,
120 FND_API.G_MISS_NUM,
121 object_version_number,
122 p_object_version_number);
123 IF (sql%NOTFOUND) THEN
124 RAISE NO_DATA_FOUND;
125 END IF;
126
127 END update_row;
128
129 -- ****************************************************************************
130 -- delete row
131 -- ****************************************************************************
132 PROCEDURE delete_row
133 (
134 p_msite_prty_accss_id IN NUMBER
135 )
136 IS
137 BEGIN
138
139 DELETE FROM ibe_msite_prty_accss
140 WHERE msite_prty_accss_id = p_msite_prty_accss_id;
141
142 IF (sql%NOTFOUND) THEN
143 RAISE NO_DATA_FOUND;
144 END IF;
145
146 END delete_row;
147
148 END Ibe_Msite_Prty_Accss_Pkg;