APPS.JTF_QUAL_TYPE_USGS_PKG dependencies on JTF_QUAL_TYPE_USGS

Line 1: PACKAGE BODY JTF_QUAL_TYPE_USGS_PKG AS

1: PACKAGE BODY JTF_QUAL_TYPE_USGS_PKG AS
2: /* $Header: jtfvqtub.pls 120.0 2005/06/02 18:22:15 appldev ship $ */
3:
4:
5: PROCEDURE Insert_Row(

Line 20: CURSOR C IS SELECT rowid FROM JTF_QUAL_TYPE_USGS

16: x_PACKAGE_NAME IN VARCHAR2,
17: x_PACKAGE_SPOOL_FILENAME IN VARCHAR2,
18: x_ORG_ID IN NUMBER
19: ) IS
20: CURSOR C IS SELECT rowid FROM JTF_QUAL_TYPE_USGS
21: WHERE QUAL_TYPE_USG_ID = x_QUAL_TYPE_USG_ID;
22: CURSOR C2 IS SELECT JTF_QUAL_TYPE_USGS_s.nextval FROM sys.dual;
23: BEGIN
24: If (x_QUAL_TYPE_USG_ID IS NULL) then

Line 22: CURSOR C2 IS SELECT JTF_QUAL_TYPE_USGS_s.nextval FROM sys.dual;

18: x_ORG_ID IN NUMBER
19: ) IS
20: CURSOR C IS SELECT rowid FROM JTF_QUAL_TYPE_USGS
21: WHERE QUAL_TYPE_USG_ID = x_QUAL_TYPE_USG_ID;
22: CURSOR C2 IS SELECT JTF_QUAL_TYPE_USGS_s.nextval FROM sys.dual;
23: BEGIN
24: If (x_QUAL_TYPE_USG_ID IS NULL) then
25: OPEN C2;
26: FETCH C2 INTO x_QUAL_TYPE_USG_ID;

Line 29: INSERT INTO JTF_QUAL_TYPE_USGS(

25: OPEN C2;
26: FETCH C2 INTO x_QUAL_TYPE_USG_ID;
27: CLOSE C2;
28: End If;
29: INSERT INTO JTF_QUAL_TYPE_USGS(
30: QUAL_TYPE_USG_ID,
31: LAST_UPDATE_DATE,
32: LAST_UPDATED_BY,
33: CREATION_DATE,

Line 68: DELETE FROM JTF_QUAL_TYPE_USGS

64:
65: PROCEDURE Delete_Row( x_QUAL_TYPE_USG_ID IN NUMBER
66: ) IS
67: BEGIN
68: DELETE FROM JTF_QUAL_TYPE_USGS
69: WHERE QUAL_TYPE_USG_ID = x_QUAL_TYPE_USG_ID;
70: If (SQL%NOTFOUND) then
71: RAISE NO_DATA_FOUND;
72: End If;

Line 93: Update JTF_QUAL_TYPE_USGS

89: x_PACKAGE_SPOOL_FILENAME IN VARCHAR2,
90: x_ORG_ID IN NUMBER
91: ) IS
92: BEGIN
93: Update JTF_QUAL_TYPE_USGS
94: SET
95: QUAL_TYPE_USG_ID = decode( x_QUAL_TYPE_USG_ID, FND_API.G_MISS_NUM,QUAL_TYPE_USG_ID,x_QUAL_TYPE_USG_ID),
96: LAST_UPDATE_DATE = decode( x_LAST_UPDATE_DATE, FND_API.G_MISS_DATE,LAST_UPDATE_DATE,x_LAST_UPDATE_DATE),
97: LAST_UPDATED_BY = decode( x_LAST_UPDATED_BY, FND_API.G_MISS_NUM,LAST_UPDATED_BY,x_LAST_UPDATED_BY),

Line 134: FROM JTF_QUAL_TYPE_USGS

130: x_ORG_ID IN NUMBER
131: ) IS
132: CURSOR C IS
133: SELECT *
134: FROM JTF_QUAL_TYPE_USGS
135: WHERE rowid = x_Rowid
136: FOR UPDATE of QUAL_TYPE_USG_ID NOWAIT;
137: Recinfo C%ROWTYPE;
138: BEGIN

Line 192: END JTF_QUAL_TYPE_USGS_PKG;

188: APP_EXCEPTION.RAISE_EXCEPTION;
189: End If;
190: END Lock_Row;
191:
192: END JTF_QUAL_TYPE_USGS_PKG;