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