APPS.PA_PROJECT_CONTACTS_PKG dependencies on PA_PROJECT_CONTACTS

Line 1: PACKAGE BODY PA_PROJECT_CONTACTS_PKG as

1: PACKAGE BODY PA_PROJECT_CONTACTS_PKG as
2: /* $Header: PAXPRCOB.pls 120.1 2005/08/19 17:17:12 mwasowic noship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
5:

Line 18: CURSOR C IS SELECT rowid FROM pa_project_contacts

14: X_Created_By NUMBER,
15: X_Last_Update_Login NUMBER,
16: X_Record_Version_Number NUMBER
17: ) IS
18: CURSOR C IS SELECT rowid FROM pa_project_contacts
19: WHERE project_id = X_Project_Id
20: AND customer_id = X_Customer_Id
21: AND contact_id = X_Contact_Id;
22:

Line 26: INSERT INTO pa_project_contacts(

22:
23: BEGIN
24:
25:
26: INSERT INTO pa_project_contacts(
27:
28: project_id,
29: customer_id,
30: bill_ship_customer_id,

Line 74: FROM pa_project_contacts

70: X_Record_Version_Number NUMBER
71: ) IS
72: CURSOR C IS
73: SELECT *
74: FROM pa_project_contacts
75: WHERE rowid = X_Rowid
76: FOR UPDATE of Project_Id NOWAIT;
77: Recinfo C%ROWTYPE;
78:

Line 126: FROM pa_project_contacts

122:
123: ) IS
124: CURSOR C IS
125: SELECT *
126: FROM pa_project_contacts
127: WHERE rowid = X_Rowid;
128: Recinfo C%ROWTYPE;
129: BEGIN
130: OPEN C;

Line 143: UPDATE pa_project_contacts

139: then
140: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
141: APP_EXCEPTION.Raise_Exception;
142: end if;
143: UPDATE pa_project_contacts
144: SET
145: project_id = X_Project_Id,
146: customer_id = X_Customer_Id,
147: bill_ship_customer_id = X_Bill_Ship_Customer_Id,

Line 164: FROM pa_project_contacts

160: PROCEDURE Delete_Row(X_Rowid VARCHAR2,
161: x_record_version_number number) IS
162: CURSOR C IS
163: SELECT *
164: FROM pa_project_contacts
165: WHERE rowid = X_Rowid;
166: Recinfo C%ROWTYPE;
167:
168: BEGIN

Line 182: DELETE FROM pa_project_contacts

178: then
179: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
180: APP_EXCEPTION.Raise_Exception;
181: end if;
182: DELETE FROM pa_project_contacts
183: WHERE rowid = X_Rowid;
184:
185: if (SQL%NOTFOUND) then
186: Raise NO_DATA_FOUND;

Line 191: END PA_PROJECT_CONTACTS_PKG;

187: end if;
188: END Delete_Row;
189:
190:
191: END PA_PROJECT_CONTACTS_PKG;