APPS.JTF_TERR_TYPES_PKG dependencies on JTF_TERR_TYPES

Line 1: PACKAGE BODY JTF_TERR_TYPES_PKG as

1: PACKAGE BODY JTF_TERR_TYPES_PKG as
2: /* $Header: jtfvtrtb.pls 120.1 2005/06/24 00:26:19 jradhakr ship $ */
3:
4: -- 01/20/00 VNEDUNGA Changing the update/lock_row procedure to use
5: -- terr_type_id instead of row_id

Line 40: CURSOR C IS SELECT rowid FROM JTF_TERR_TYPES

36: x_ATTRIBUTE14 IN VARCHAR2,
37: x_ATTRIBUTE15 IN VARCHAR2,
38: x_ORG_ID IN NUMBER
39: ) IS
40: CURSOR C IS SELECT rowid FROM JTF_TERR_TYPES
41: WHERE TERR_TYPE_ID = x_TERR_TYPE_ID;
42: CURSOR C2 IS SELECT JTF_TERR_TYPES_s.nextval FROM sys.dual;
43: BEGIN
44: If (x_TERR_TYPE_ID IS NULL) then

Line 42: CURSOR C2 IS SELECT JTF_TERR_TYPES_s.nextval FROM sys.dual;

38: x_ORG_ID IN NUMBER
39: ) IS
40: CURSOR C IS SELECT rowid FROM JTF_TERR_TYPES
41: WHERE TERR_TYPE_ID = x_TERR_TYPE_ID;
42: CURSOR C2 IS SELECT JTF_TERR_TYPES_s.nextval FROM sys.dual;
43: BEGIN
44: If (x_TERR_TYPE_ID IS NULL) then
45: OPEN C2;
46: FETCH C2 INTO x_TERR_TYPE_ID;

Line 49: INSERT INTO JTF_TERR_TYPES(

45: OPEN C2;
46: FETCH C2 INTO x_TERR_TYPE_ID;
47: CLOSE C2;
48: End If;
49: INSERT INTO JTF_TERR_TYPES(
50: TERR_TYPE_ID,
51: LAST_UPDATED_BY,
52: LAST_UPDATE_DATE,
53: CREATED_BY,

Line 122: DELETE FROM JTF_TERR_TYPES

118:
119: PROCEDURE Delete_Row( x_TERR_TYPE_ID IN NUMBER
120: ) IS
121: BEGIN
122: DELETE FROM JTF_TERR_TYPES
123: WHERE TERR_TYPE_ID = x_TERR_TYPE_ID;
124: If (SQL%NOTFOUND) then
125: RAISE NO_DATA_FOUND;
126: End If;

Line 164: Update JTF_TERR_TYPES

160: x_ATTRIBUTE15 IN VARCHAR2,
161: x_ORG_ID IN NUMBER
162: ) IS
163: BEGIN
164: Update JTF_TERR_TYPES
165: SET
166: TERR_TYPE_ID = decode( x_TERR_TYPE_ID, FND_API.G_MISS_NUM,TERR_TYPE_ID,x_TERR_TYPE_ID),
167: LAST_UPDATED_BY = decode( x_LAST_UPDATED_BY, FND_API.G_MISS_NUM,LAST_UPDATED_BY,x_LAST_UPDATED_BY),
168: LAST_UPDATE_DATE = decode( x_LAST_UPDATE_DATE, FND_API.G_MISS_DATE,LAST_UPDATE_DATE,x_LAST_UPDATE_DATE),

Line 238: FROM JTF_TERR_TYPES

234: x_ORG_ID IN NUMBER
235: ) IS
236: CURSOR C IS
237: SELECT *
238: FROM JTF_TERR_TYPES
239: WHERE TERR_TYPE_ID = x_TERR_TYPE_ID
240: FOR UPDATE of TERR_TYPE_ID NOWAIT;
241: Recinfo C%ROWTYPE;
242: BEGIN

Line 347: END JTF_TERR_TYPES_PKG;

343: APP_EXCEPTION.RAISE_EXCEPTION;
344: End If;
345: END Lock_Row;
346:
347: END JTF_TERR_TYPES_PKG;