APPS.JTF_TERR_TYPE_USGS_PKG dependencies on JTF_TERR_TYPE_USGS

Line 1: PACKAGE BODY JTF_TERR_TYPE_USGS_PKG as

1: PACKAGE BODY JTF_TERR_TYPE_USGS_PKG as
2: /* $Header: jtfvttub.pls 120.1 2005/06/24 00:26:29 jradhakr ship $ */
3:
4: -- 01/20/99 VNEDUNGA Changing Update/Lock_row to use terr_type_usg_id
5: -- insted of row_id

Line 21: CURSOR C IS SELECT rowid FROM JTF_TERR_TYPE_USGS

17: x_SOURCE_ID IN NUMBER,
18: x_TERR_TYPE_ID IN NUMBER,
19: x_ORG_ID IN NUMBER
20: ) IS
21: CURSOR C IS SELECT rowid FROM JTF_TERR_TYPE_USGS
22: WHERE TERR_TYPE_USG_ID = x_TERR_TYPE_USG_ID;
23:
24: CURSOR C2 IS SELECT JTF_TERR_TYPE_USGS_s.nextval FROM sys.dual;
25: BEGIN

Line 24: CURSOR C2 IS SELECT JTF_TERR_TYPE_USGS_s.nextval FROM sys.dual;

20: ) IS
21: CURSOR C IS SELECT rowid FROM JTF_TERR_TYPE_USGS
22: WHERE TERR_TYPE_USG_ID = x_TERR_TYPE_USG_ID;
23:
24: CURSOR C2 IS SELECT JTF_TERR_TYPE_USGS_s.nextval FROM sys.dual;
25: BEGIN
26: If (x_TERR_TYPE_USG_ID IS NULL) then
27: OPEN C2;
28: FETCH C2 INTO x_TERR_TYPE_USG_ID;

Line 31: INSERT INTO JTF_TERR_TYPE_USGS(

27: OPEN C2;
28: FETCH C2 INTO x_TERR_TYPE_USG_ID;
29: CLOSE C2;
30: End If;
31: INSERT INTO JTF_TERR_TYPE_USGS(
32: TERR_TYPE_USG_ID,
33: LAST_UPDATED_BY,
34: LAST_UPDATE_DATE,
35: CREATED_BY,

Line 64: DELETE FROM JTF_TERR_TYPE_USGS

60:
61: PROCEDURE Delete_Row( x_TERR_TYPE_USG_ID IN NUMBER
62: ) IS
63: BEGIN
64: DELETE FROM JTF_TERR_TYPE_USGS
65: WHERE TERR_TYPE_USG_ID = x_TERR_TYPE_USG_ID;
66: If (SQL%NOTFOUND) then
67: RAISE NO_DATA_FOUND;
68: End If;

Line 86: Update JTF_TERR_TYPE_USGS

82: x_SOURCE_ID IN NUMBER,
83: x_ORG_ID IN NUMBER
84: ) IS
85: BEGIN
86: Update JTF_TERR_TYPE_USGS
87: SET
88: TERR_TYPE_USG_ID = decode( x_TERR_TYPE_USG_ID, FND_API.G_MISS_NUM,TERR_TYPE_USG_ID,x_TERR_TYPE_USG_ID),
89: LAST_UPDATED_BY = decode( x_LAST_UPDATED_BY, FND_API.G_MISS_NUM,LAST_UPDATED_BY,x_LAST_UPDATED_BY),
90: LAST_UPDATE_DATE = decode( x_LAST_UPDATE_DATE, FND_API.G_MISS_DATE,LAST_UPDATE_DATE,x_LAST_UPDATE_DATE),

Line 120: FROM JTF_TERR_TYPE_USGS

116: x_ORG_ID IN NUMBER
117: ) IS
118: CURSOR C IS
119: SELECT *
120: FROM JTF_TERR_TYPE_USGS
121: WHERE TERR_TYPE_USG_ID = x_TERR_TYPE_USG_ID
122: FOR UPDATE of TERR_TYPE_USG_ID NOWAIT;
123: Recinfo C%ROWTYPE;
124: BEGIN

Line 169: END JTF_TERR_TYPE_USGS_PKG;

165: APP_EXCEPTION.RAISE_EXCEPTION;
166: End If;
167: END Lock_Row;
168:
169: END JTF_TERR_TYPE_USGS_PKG;