APPS.GMS_AWARDS_CONTACTS_PKG dependencies on GMS_AWARDS_CONTACTS

Line 1: package body GMS_AWARDS_CONTACTS_PKG as

1: package body GMS_AWARDS_CONTACTS_PKG as
2: -- $Header: gmsawctb.pls 115.5 2002/11/25 23:23:20 jmuthuku ship $
3:
4: procedure INSERT_ROW (
5: X_ROWID in out NOCOPY VARCHAR2,

Line 13: cursor C is select ROWID from GMS_AWARDS_CONTACTS

9: X_CUSTOMER_ID in NUMBER,
10: X_PRIMARY_FLAG in VARCHAR2 default 'N',
11: X_USAGE_CODE in VARCHAR2
12: ) is
13: cursor C is select ROWID from GMS_AWARDS_CONTACTS
14: where AWARD_ID = X_AWARD_ID
15: and CONTACT_ID = X_CONTACT_ID;
16: X_LAST_UPDATE_DATE DATE;
17: X_LAST_UPDATED_BY NUMBER;

Line 37: insert into GMS_AWARDS_CONTACTS (

33: else
34: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
35: app_exception.raise_exception;
36: end if;
37: insert into GMS_AWARDS_CONTACTS (
38: AWARD_ID,
39: CONTACT_ID,
40: CREATION_DATE,
41: CREATED_BY,

Line 77: from GMS_AWARDS_CONTACTS

73: X_USAGE_CODE in VARCHAR2,
74: X_ROWID in VARCHAR2
75: ) is
76: cursor c1 is select award_id, usage_code, primary_flag, contact_id, customer_id
77: from GMS_AWARDS_CONTACTS
78: where ROWID = X_ROWID
79: for update of AWARD_ID nowait;
80: tlinfo c1%rowtype;
81: begin

Line 137: update GMS_AWARDS_CONTACTS set

133: else
134: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
135: app_exception.raise_exception;
136: end if;
137: update GMS_AWARDS_CONTACTS set
138: CONTACT_ID = X_CONTACT_ID,
139: PRIMARY_FLAG = X_PRIMARY_FLAG,
140: USAGE_CODE = X_USAGE_CODE,
141: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,

Line 157: delete from GMS_AWARDS_CONTACTS

153: X_CUSTOMER_ID in NUMBER,
154: X_ROWID in VARCHAR2
155: ) is
156: begin
157: delete from GMS_AWARDS_CONTACTS
158: where ROWID = X_ROWID;
159:
160: if (sql%notfound) then
161: raise no_data_found;

Line 164: end GMS_AWARDS_CONTACTS_PKG;

160: if (sql%notfound) then
161: raise no_data_found;
162: end if;
163: end DELETE_ROW;
164: end GMS_AWARDS_CONTACTS_PKG;