APPS.JTF_QUAL_USGS_PKG dependencies on JTF_QUAL_USGS

Line 1: PACKAGE BODY JTF_QUAL_USGS_PKG AS

1: PACKAGE BODY JTF_QUAL_USGS_PKG AS
2: /* $Header: jtfvqlub.pls 120.0 2005/06/02 18:22:14 appldev ship $ */
3:
4: PROCEDURE Insert_Row(
5: x_Rowid IN OUT NOCOPY VARCHAR2,

Line 52: CURSOR C IS SELECT rowid FROM JTF_QUAL_USGS

48: x_DISPLAY_LENGTH IN NUMBER,
49: x_JSP_LOV_SQL IN VARCHAR2,
50: x_use_in_lookup_flag IN VARCHAR2
51: ) IS
52: CURSOR C IS SELECT rowid FROM JTF_QUAL_USGS
53: WHERE QUAL_USG_ID = x_QUAL_USG_ID;
54: CURSOR C2 IS SELECT JTF_QUAL_USGS_s.nextval FROM sys.dual;
55: BEGIN
56: If (x_QUAL_USG_ID IS NULL) then

Line 54: CURSOR C2 IS SELECT JTF_QUAL_USGS_s.nextval FROM sys.dual;

50: x_use_in_lookup_flag IN VARCHAR2
51: ) IS
52: CURSOR C IS SELECT rowid FROM JTF_QUAL_USGS
53: WHERE QUAL_USG_ID = x_QUAL_USG_ID;
54: CURSOR C2 IS SELECT JTF_QUAL_USGS_s.nextval FROM sys.dual;
55: BEGIN
56: If (x_QUAL_USG_ID IS NULL) then
57: OPEN C2;
58: FETCH C2 INTO x_QUAL_USG_ID;

Line 61: INSERT INTO JTF_QUAL_USGS(

57: OPEN C2;
58: FETCH C2 INTO x_QUAL_USG_ID;
59: CLOSE C2;
60: End If;
61: INSERT INTO JTF_QUAL_USGS(
62: QUAL_USG_ID,
63: LAST_UPDATE_DATE,
64: LAST_UPDATED_BY,
65: CREATION_DATE,

Line 167: DELETE FROM JTF_QUAL_USGS

163:
164: PROCEDURE Delete_Row( x_QUAL_USG_ID IN NUMBER
165: ) IS
166: BEGIN
167: DELETE FROM JTF_QUAL_USGS
168: WHERE QUAL_USG_ID = x_QUAL_USG_ID;
169: If (SQL%NOTFOUND) then
170: RAISE NO_DATA_FOUND;
171: End If;

Line 225: Update JTF_QUAL_USGS

221: x_JSP_LOV_SQL IN VARCHAR2,
222: x_use_in_lookup_flag IN VARCHAR2
223: ) IS
224: BEGIN
225: Update JTF_QUAL_USGS
226: SET
227: QUAL_USG_ID = decode( x_QUAL_USG_ID, FND_API.G_MISS_NUM,QUAL_USG_ID,x_QUAL_USG_ID),
228: LAST_UPDATE_DATE = decode( x_LAST_UPDATE_DATE, FND_API.G_MISS_DATE,LAST_UPDATE_DATE,x_LAST_UPDATE_DATE),
229: LAST_UPDATED_BY = decode( x_LAST_UPDATED_BY, FND_API.G_MISS_NUM,LAST_UPDATED_BY,x_LAST_UPDATED_BY),

Line 332: FROM JTF_QUAL_USGS

328: x_use_in_lookup_flag IN VARCHAR2
329: ) IS
330: CURSOR C IS
331: SELECT *
332: FROM JTF_QUAL_USGS
333: WHERE QUAL_USG_ID = x_QUAL_USG_ID
334: FOR UPDATE of QUAL_USG_ID NOWAIT;
335: Recinfo C%ROWTYPE;
336: BEGIN

Line 488: END JTF_QUAL_USGS_PKG;

484: APP_EXCEPTION.RAISE_EXCEPTION;
485: End If;
486: END Lock_Row;
487:
488: END JTF_QUAL_USGS_PKG;