[Home] [Help]
PACKAGE BODY: APPS.ARP_CROL_PKG
Source
1 PACKAGE BODY arp_crol_pkg as
2 /* $Header: AROCROLB.pls 120.1 2005/08/11 00:59:39 hyu noship $ */
3 --
4 --
5 --
6 -- PROCEDURE
7 -- check_unique
8 --
9 -- DESCRIPTION
10 -- Generates error if contact role is not unique
11 -- SCOPE -
12 --
13 -- EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
14 --
15 -- ARGUMENTS : IN:
16 -- - p_contact_role_id
17 -- - p_contact_id
18 -- - p_usage_code
19 -- OUT:
20 -- None
21 --
22 -- RETURNS : NONE
23 --
24 -- NOTES
25 --
26 -- MODIFICATION HISTORY - Created by Kevin Hudson
27 --
28 --
29 PROCEDURE check_unique( p_contact_role_id in number,
30 p_contact_id in number,
31 p_usage_code in varchar2) is
32 begin
33 NULL;
34 end check_unique;
35 --
36 --
37 --
38 -- FUNCTION
39 --
40 --
41 -- DESCRIPTION
42 -- Checks to see if a contact role exists
43 -- SCOPE -
44 --
45 -- EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
46 --
47 -- ARGUMENTS : IN: p_contact_id
48 -- p_usage_code
49 --
50 -- OUT:
51 --
52 --
53 -- RETURNS : Boolean - TRUE if contact role exists
54 -- FALSE if contact role does not exists
55 --
56 -- NOTES
57 --
58 -- MODIFICATION HISTORY - Created by Kevin Hudson
59 --
60 --
61 FUNCTION contact_role_exists(p_contact_id in number ,p_usage_code in varchar2 ) return Boolean is
62 begin
63 RETURN TRUE;
64 end contact_role_exists;
65 --
66 -- PROCEDURE
67 -- check_primary
68 --
69 -- DESCRIPTION
70 -- A contact may only have one primary role
71 -- SCOPE -
72 --
73 -- EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
74 --
75 -- ARGUMENTS : IN:
76 -- p_contact_role_id
77 -- p_contact_id
78 -- OUT:
79 -- None
80 --
81 -- RETURNS : NONE
82 --
83 -- NOTES
84 --
85 -- MODIFICATION HISTORY - Created by Kevin Hudson
86 --
87 --
88 PROCEDURE check_primary (p_contact_role_id in number,
89 p_contact_id in number ) is
90 --
91 begin
92 NULL;
93 end check_primary;
94 --
95 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
96 X_Contact_Role_Id IN OUT NOCOPY NUMBER,
97 X_Last_Update_Date DATE,
98 X_Last_Updated_By NUMBER,
99 X_Creation_Date DATE,
100 X_Created_By NUMBER,
101 X_Usage_Code VARCHAR2,
102 X_Contact_Id NUMBER,
103 X_Last_Update_Login NUMBER,
104 X_Primary_Flag VARCHAR2,
105 X_Attribute_Category VARCHAR2,
106 X_Attribute1 VARCHAR2,
107 X_Attribute2 VARCHAR2,
108 X_Attribute3 VARCHAR2,
109 X_Attribute4 VARCHAR2,
110 X_Attribute5 VARCHAR2,
111 X_Attribute6 VARCHAR2,
112 X_Attribute7 VARCHAR2,
113 X_Attribute8 VARCHAR2,
114 X_Attribute9 VARCHAR2,
115 X_Attribute10 VARCHAR2,
116 X_Attribute11 VARCHAR2,
117 X_Attribute12 VARCHAR2,
118 X_Attribute13 VARCHAR2,
119 X_Attribute14 VARCHAR2,
120 X_Attribute15 VARCHAR2
121 ) IS
122 BEGIN
123 NULL;
124 END Insert_Row;
125 --
126 --
127
128 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
129 X_Contact_Role_Id NUMBER,
130 X_Usage_Code VARCHAR2,
131 X_Contact_Id NUMBER,
132 X_Primary_Flag VARCHAR2,
133 X_Attribute_Category VARCHAR2,
134 X_Attribute1 VARCHAR2,
135 X_Attribute2 VARCHAR2,
136 X_Attribute3 VARCHAR2,
137 X_Attribute4 VARCHAR2,
138 X_Attribute5 VARCHAR2,
139 X_Attribute6 VARCHAR2,
140 X_Attribute7 VARCHAR2,
141 X_Attribute8 VARCHAR2,
142 X_Attribute9 VARCHAR2,
143 X_Attribute10 VARCHAR2,
144 X_Attribute11 VARCHAR2,
145 X_Attribute12 VARCHAR2,
146 X_Attribute13 VARCHAR2,
147 X_Attribute14 VARCHAR2,
148 X_Attribute15 VARCHAR2
149 ) IS
150 BEGIN
151 NULL;
152 END Lock_Row;
153
154
155
156 PROCEDURE Update_Row(X_Rowid VARCHAR2,
157 X_Contact_Role_Id NUMBER,
158 X_Last_Update_Date DATE,
159 X_Last_Updated_By NUMBER,
160 X_Usage_Code VARCHAR2,
161 X_Contact_Id NUMBER,
162 X_Last_Update_Login NUMBER,
163 X_Primary_Flag VARCHAR2,
164 X_Attribute_Category VARCHAR2,
165 X_Attribute1 VARCHAR2,
166 X_Attribute2 VARCHAR2,
167 X_Attribute3 VARCHAR2,
168 X_Attribute4 VARCHAR2,
169 X_Attribute5 VARCHAR2,
170 X_Attribute6 VARCHAR2,
171 X_Attribute7 VARCHAR2,
172 X_Attribute8 VARCHAR2,
173 X_Attribute9 VARCHAR2,
174 X_Attribute10 VARCHAR2,
175 X_Attribute11 VARCHAR2,
176 X_Attribute12 VARCHAR2,
177 X_Attribute13 VARCHAR2,
178 X_Attribute14 VARCHAR2,
179 X_Attribute15 VARCHAR2
180
181 ) IS
182 BEGIN
183 NULL;
184 END Update_Row;
185 --
186 --
187 PROCEDURE delete_row(x_contact_id in number ,x_usage_code in varchar2) is
188 BEGIN
189 NULL;
190 END delete_row;
191 --
192 --
193 --
194 PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
195 BEGIN
196 NULL;
197 END Delete_Row;
198
199
200 END arp_crol_pkg;