APPS.JTF_TYPE_QTYPE_USGS_PKG dependencies on JTF_TYPE_QTYPE_USGS

Line 1: PACKAGE BODY JTF_TYPE_QTYPE_USGS_PKG as

1: PACKAGE BODY JTF_TYPE_QTYPE_USGS_PKG as
2: /* $Header: jtfvtqub.pls 115.3 2000/02/29 18:25:50 pkm ship $ */
3:
4: -- 01/20/00 VNEDUNGA Changing update/lock-row procedurs to
5: -- use TYPE_QTYPE_USG_ID instead of row_id

Line 21: CURSOR C IS SELECT rowid FROM JTF_TYPE_QTYPE_USGS

17: x_TERR_TYPE_ID IN NUMBER,
18: x_QUAL_TYPE_USG_ID IN NUMBER,
19: x_ORG_ID IN NUMBER
20: ) IS
21: CURSOR C IS SELECT rowid FROM JTF_TYPE_QTYPE_USGS
22: WHERE TYPE_QTYPE_USG_ID = x_TYPE_QTYPE_USG_ID;
23: CURSOR C2 IS SELECT JTF_TYPE_QTYPE_USGS_s.nextval FROM sys.dual;
24: BEGIN
25: If (x_TYPE_QTYPE_USG_ID IS NULL) then

Line 23: CURSOR C2 IS SELECT JTF_TYPE_QTYPE_USGS_s.nextval FROM sys.dual;

19: x_ORG_ID IN NUMBER
20: ) IS
21: CURSOR C IS SELECT rowid FROM JTF_TYPE_QTYPE_USGS
22: WHERE TYPE_QTYPE_USG_ID = x_TYPE_QTYPE_USG_ID;
23: CURSOR C2 IS SELECT JTF_TYPE_QTYPE_USGS_s.nextval FROM sys.dual;
24: BEGIN
25: If (x_TYPE_QTYPE_USG_ID IS NULL) then
26: OPEN C2;
27: FETCH C2 INTO x_TYPE_QTYPE_USG_ID;

Line 30: INSERT INTO JTF_TYPE_QTYPE_USGS(

26: OPEN C2;
27: FETCH C2 INTO x_TYPE_QTYPE_USG_ID;
28: CLOSE C2;
29: End If;
30: INSERT INTO JTF_TYPE_QTYPE_USGS(
31: TYPE_QTYPE_USG_ID,
32: LAST_UPDATED_BY,
33: LAST_UPDATE_DATE,
34: CREATED_BY,

Line 63: DELETE FROM JTF_TYPE_QTYPE_USGS

59:
60: PROCEDURE Delete_Row( x_TYPE_QTYPE_USG_ID IN NUMBER
61: ) IS
62: BEGIN
63: DELETE FROM JTF_TYPE_QTYPE_USGS
64: WHERE TYPE_QTYPE_USG_ID = x_TYPE_QTYPE_USG_ID;
65: If (SQL%NOTFOUND) then
66: RAISE NO_DATA_FOUND;
67: End If;

Line 85: Update JTF_TYPE_QTYPE_USGS

81: x_QUAL_TYPE_USG_ID IN NUMBER,
82: x_ORG_ID IN NUMBER
83: ) IS
84: BEGIN
85: Update JTF_TYPE_QTYPE_USGS
86: SET
87: TYPE_QTYPE_USG_ID = decode( x_TYPE_QTYPE_USG_ID, FND_API.G_MISS_NUM,TYPE_QTYPE_USG_ID,x_TYPE_QTYPE_USG_ID),
88: LAST_UPDATED_BY = decode( x_LAST_UPDATED_BY, FND_API.G_MISS_NUM,LAST_UPDATED_BY,x_LAST_UPDATED_BY),
89: LAST_UPDATE_DATE = decode( x_LAST_UPDATE_DATE, FND_API.G_MISS_DATE,LAST_UPDATE_DATE,x_LAST_UPDATE_DATE),

Line 119: FROM JTF_TYPE_QTYPE_USGS

115: x_ORG_ID IN NUMBER
116: ) IS
117: CURSOR C IS
118: SELECT *
119: FROM JTF_TYPE_QTYPE_USGS
120: WHERE TYPE_QTYPE_USG_ID = x_TYPE_QTYPE_USG_ID
121: FOR UPDATE of TYPE_QTYPE_USG_ID NOWAIT;
122: Recinfo C%ROWTYPE;
123: BEGIN

Line 168: END JTF_TYPE_QTYPE_USGS_PKG;

164: APP_EXCEPTION.RAISE_EXCEPTION;
165: End If;
166: END Lock_Row;
167:
168: END JTF_TYPE_QTYPE_USGS_PKG;