[Home] [Help]
PACKAGE BODY: APPS.CS_PARTY_ROLE_GROUP_MAPS_PKG
Source
1 package body CS_PARTY_ROLE_GROUP_MAPS_PKG as
2 /* $Header: csptyrgb.pls 120.0 2005/08/18 19:24 aneemuch noship $ */
3 procedure INSERT_ROW (
4 PX_PARTY_ROLE_GROUP_MAPPING_ID in out NOCOPY NUMBER,
5 PX_PARTY_ROLE_GROUP_CODE in out NOCOPY VARCHAR2,
6 PX_PARTY_ROLE_CODE in out NOCOPY VARCHAR2,
7 P_SEEDED_FLAG in VARCHAR2,
8 P_START_DATE_ACTIVE in DATE,
9 P_END_DATE_ACTIVE in DATE,
10 P_CREATION_DATE in DATE,
11 P_CREATED_BY in NUMBER,
12 P_LAST_UPDATE_DATE in DATE,
13 P_LAST_UPDATED_BY in NUMBER,
14 P_LAST_UPDATE_LOGIN in NUMBER,
15 X_OBJECT_VERSION_NUMBER out NOCOPY NUMBER
16 ) is
17 l_object_Version_number number := 1;
18 begin
19 insert into CS_PARTY_ROLE_GROUP_MAPS (
20 PARTY_ROLE_GROUP_MAPPING_ID,
21 PARTY_ROLE_GROUP_CODE,
22 PARTY_ROLE_CODE,
23 SEEDED_FLAG,
24 START_DATE_ACTIVE,
25 END_DATE_ACTIVE,
26 CREATED_BY,
27 CREATION_DATE,
28 LAST_UPDATED_BY,
29 LAST_UPDATE_DATE,
30 LAST_UPDATE_LOGIN,
31 OBJECT_VERSION_NUMBER
32 ) values (
33 PX_PARTY_ROLE_GROUP_MAPPING_ID,
34 PX_PARTY_ROLE_GROUP_CODE,
35 PX_PARTY_ROLE_CODE,
36 P_SEEDED_FLAG,
37 P_START_DATE_ACTIVE,
38 P_END_DATE_ACTIVE,
39 P_CREATED_BY,
40 P_CREATION_DATE,
41 P_LAST_UPDATED_BY,
42 P_LAST_UPDATE_DATE,
43 P_LAST_UPDATE_LOGIN,
44 L_OBJECT_VERSION_NUMBER);
45
46 x_object_version_number := l_object_version_number;
47
48 end INSERT_ROW;
49
50
51 procedure UPDATE_ROW (
52 P_PARTY_ROLE_GROUP_MAPPING_ID in NUMBER,
53 P_PARTY_ROLE_GROUP_CODE in VARCHAR2,
54 P_PARTY_ROLE_CODE in VARCHAR2,
55 P_SEEDED_FLAG in VARCHAR2,
56 P_START_DATE_ACTIVE in DATE,
57 P_END_DATE_ACTIVE in DATE,
58 P_LAST_UPDATE_DATE in DATE,
59 P_LAST_UPDATED_BY in NUMBER,
60 P_LAST_UPDATE_LOGIN in NUMBER,
61 X_OBJECT_VERSION_NUMBER out NOCOPY NUMBER
62 ) is
63 begin
64 update CS_PARTY_ROLE_GROUP_MAPS set
65 SEEDED_FLAG = P_SEEDED_FLAG,
66 OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1,
67 START_DATE_ACTIVE = P_START_DATE_ACTIVE,
68 END_DATE_ACTIVE = P_END_DATE_ACTIVE,
69 PARTY_ROLE_GROUP_CODE = P_PARTY_ROLE_GROUP_CODE,
70 LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
71 LAST_UPDATED_BY = P_LAST_UPDATED_BY,
72 LAST_UPDATE_LOGIN = P_LAST_UPDATE_LOGIN
73 where PARTY_ROLE_GROUP_CODE = P_PARTY_ROLE_GROUP_CODE
74 and PARTY_ROLE_CODE = P_PARTY_ROLE_CODE
75 and PARTY_ROLE_GROUP_MAPPING_ID = P_PARTY_ROLE_GROUP_MAPPING_ID
76 RETURNING OBJECT_VERSION_NUMBER INTO X_OBJECT_VERSION_NUMBER;
77
78 if (sql%notfound) then
79 raise no_data_found;
80 end if;
81 end UPDATE_ROW;
82
83 procedure DELETE_ROW (
84 P_PARTY_ROLE_GROUP_CODE in VARCHAR2,
85 P_PARTY_ROLE_CODE in VARCHAR2
86 ) is
87 begin
88 delete from CS_PARTY_ROLE_GROUP_MAPS
89 where PARTY_ROLE_GROUP_CODE = P_PARTY_ROLE_GROUP_CODE
90 and PARTY_ROLE_CODE = P_PARTY_ROLE_CODE;
91
92 if (sql%notfound) then
93 raise no_data_found;
94 end if;
95 end DELETE_ROW;
96
97 PROCEDURE LOAD_ROW (
98 P_PARTY_ROLE_GROUP_MAPPING_ID IN NUMBER,
99 P_PARTY_ROLE_GROUP_CODE IN VARCHAR2,
100 P_PARTY_ROLE_CODE IN VARCHAR2,
101 P_SEEDED_FLAG IN VARCHAR2,
102 P_START_DATE_ACTIVE IN VARCHAR2,
103 P_END_DATE_ACTIVE IN VARCHAR2,
104 P_OWNER IN VARCHAR2,
105 P_CREATION_DATE IN VARCHAR2,
106 P_CREATED_BY IN NUMBER,
107 P_LAST_UPDATE_DATE IN VARCHAR2,
108 P_LAST_UPDATED_BY IN NUMBER,
109 P_LAST_UPDATE_LOGIN IN NUMBER,
110 P_OBJECT_VERSION_NUMBER IN NUMBER
111 )
112
113 IS
114 -- Out local variables for the update / insert row procedures.
115 lx_object_version_number NUMBER := 0;
116 l_user_id NUMBER := 0;
117
118 -- needed to be passed as the parameter value for the insert's in/out
119 -- parameter.
120 l_PARTY_ROLE_CODE VARCHAR2(30);
121 l_PARTY_ROLE_GROUP_CODE VARCHAR2(30);
122 l_PARTY_ROLE_GROUP_MAPPING_ID NUMBER;
123
124 BEGIN
125
126 if ( p_owner = 'SEED' ) then
127 l_user_id := 1;
128 end if;
129
130 l_PARTY_ROLE_CODE := p_PARTY_ROLE_CODE;
131 l_PARTY_ROLE_GROUP_CODE := p_PARTY_ROLE_GROUP_CODE;
132 l_PARTY_ROLE_GROUP_MAPPING_ID := p_PARTY_ROLE_GROUP_MAPPING_ID;
133
134 UPDATE_ROW (
135 P_PARTY_ROLE_GROUP_MAPPING_ID =>l_PARTY_ROLE_GROUP_MAPPING_ID,
136 P_PARTY_ROLE_GROUP_CODE =>l_PARTY_ROLE_GROUP_CODE,
137 P_PARTY_ROLE_CODE =>l_PARTY_ROLE_CODE,
138 P_SEEDED_FLAG =>p_seeded_flag,
139 P_START_DATE_ACTIVE =>to_date(p_start_date_active,'DD-MM-YYYY'),
140 P_END_DATE_ACTIVE =>to_date(p_end_date_active,'DD-MM-YYYY'),
141 P_LAST_UPDATE_DATE =>nvl(to_date(p_last_update_date,
142 'DD-MM-YYYY'),sysdate),
143 P_LAST_UPDATED_BY =>l_user_id,
144 P_LAST_UPDATE_LOGIN =>0,
145 X_OBJECT_VERSION_NUMBER =>lx_object_version_number
146 );
147
148 EXCEPTION
149 WHEN NO_DATA_FOUND THEN
150 INSERT_ROW (
151 PX_PARTY_ROLE_GROUP_MAPPING_ID =>l_PARTY_ROLE_GROUP_MAPPING_ID,
152 PX_PARTY_ROLE_GROUP_CODE =>l_PARTY_ROLE_GROUP_CODE,
153 PX_PARTY_ROLE_CODE =>l_PARTY_ROLE_CODE,
154 P_SEEDED_FLAG =>p_seeded_flag,
155 P_START_DATE_ACTIVE =>to_date(p_start_date_active,'DD-MM-YYYY'),
156 P_END_DATE_ACTIVE =>to_date(p_end_date_active,'DD-MM-YYYY'),
157 P_CREATION_DATE =>nvl(to_date( p_creation_date,
158 'DD-MM-YYYY'),sysdate),
159 P_CREATED_BY =>l_user_id,
160 P_LAST_UPDATE_DATE =>nvl(to_date( p_last_update_date,
161 'DD-MM-YYYY'),sysdate),
162 P_LAST_UPDATED_BY =>l_user_id,
163 P_LAST_UPDATE_LOGIN =>0,
164 X_OBJECT_VERSION_NUMBER =>lx_object_version_number
165 );
166
167 END LOAD_ROW;
168
169 end CS_PARTY_ROLE_GROUP_MAPS_PKG;