APPS.JTF_TERR_TYPE_QUAL_PKG dependencies on JTF_TERR_TYPE_QUAL

Line 1: PACKAGE BODY JTF_TERR_TYPE_QUAL_PKG as

1: PACKAGE BODY JTF_TERR_TYPE_QUAL_PKG as
2: /* $Header: jtfvttqb.pls 120.1 2005/06/24 00:26:24 jradhakr ship $ */
3:
4: -----------------------------------------------------------------------
5: -- HISTORY

Line 35: CURSOR C IS SELECT rowid FROM JTF_TERR_TYPE_QUAL

31: x_IN_USE_FLAG IN VARCHAR2,
32: x_QUALIFIER_MODE IN VARCHAR2,
33: x_ORG_ID IN NUMBER
34: ) IS
35: CURSOR C IS SELECT rowid FROM JTF_TERR_TYPE_QUAL
36: WHERE TERR_TYPE_QUAL_ID = x_TERR_TYPE_QUAL_ID;
37: CURSOR C2 IS SELECT JTF_TERR_TYPE_QUAL_s.nextval FROM sys.dual;
38: BEGIN
39: If (x_TERR_TYPE_QUAL_ID IS NULL) then

Line 37: CURSOR C2 IS SELECT JTF_TERR_TYPE_QUAL_s.nextval FROM sys.dual;

33: x_ORG_ID IN NUMBER
34: ) IS
35: CURSOR C IS SELECT rowid FROM JTF_TERR_TYPE_QUAL
36: WHERE TERR_TYPE_QUAL_ID = x_TERR_TYPE_QUAL_ID;
37: CURSOR C2 IS SELECT JTF_TERR_TYPE_QUAL_s.nextval FROM sys.dual;
38: BEGIN
39: If (x_TERR_TYPE_QUAL_ID IS NULL) then
40: OPEN C2;
41: FETCH C2 INTO x_TERR_TYPE_QUAL_ID;

Line 44: INSERT INTO JTF_TERR_TYPE_QUAL(

40: OPEN C2;
41: FETCH C2 INTO x_TERR_TYPE_QUAL_ID;
42: CLOSE C2;
43: End If;
44: INSERT INTO JTF_TERR_TYPE_QUAL(
45: TERR_TYPE_QUAL_ID,
46: LAST_UPDATED_BY,
47: LAST_UPDATE_DATE,
48: CREATED_BY,

Line 85: DELETE FROM JTF_TERR_TYPE_QUAL

81:
82: PROCEDURE Delete_Row( x_TERR_TYPE_QUAL_ID IN NUMBER
83: ) IS
84: BEGIN
85: DELETE FROM JTF_TERR_TYPE_QUAL
86: WHERE TERR_TYPE_QUAL_ID = x_TERR_TYPE_QUAL_ID;
87: If (SQL%NOTFOUND) then
88: RAISE NO_DATA_FOUND;
89: End If;

Line 111: Update JTF_TERR_TYPE_QUAL

107: x_QUALIFIER_MODE IN VARCHAR2,
108: x_ORG_ID IN NUMBER
109: ) IS
110: BEGIN
111: Update JTF_TERR_TYPE_QUAL
112: SET
113: TERR_TYPE_QUAL_ID = decode( x_TERR_TYPE_QUAL_ID, FND_API.G_MISS_NUM,TERR_TYPE_QUAL_ID,x_TERR_TYPE_QUAL_ID),
114: LAST_UPDATED_BY = decode( x_LAST_UPDATED_BY, FND_API.G_MISS_NUM,LAST_UPDATED_BY,x_LAST_UPDATED_BY),
115: LAST_UPDATE_DATE = decode( x_LAST_UPDATE_DATE, FND_API.G_MISS_DATE,LAST_UPDATE_DATE,x_LAST_UPDATE_DATE),

Line 153: FROM JTF_TERR_TYPE_QUAL

149: x_ORG_ID IN NUMBER
150: ) IS
151: CURSOR C IS
152: SELECT *
153: FROM JTF_TERR_TYPE_QUAL
154: WHERE TERR_TYPE_QUAL_ID = x_TERR_TYPE_QUAL_ID
155: FOR UPDATE of TERR_TYPE_QUAL_ID NOWAIT;
156: Recinfo C%ROWTYPE;
157: BEGIN

Line 214: END JTF_TERR_TYPE_QUAL_PKG;

210: APP_EXCEPTION.RAISE_EXCEPTION;
211: End If;
212: END Lock_Row;
213:
214: END JTF_TERR_TYPE_QUAL_PKG;