[Home] [Help]
PACKAGE BODY: APPS.AS_ISSUE_GROUP_IDFR_PKG
Source
1 PACKAGE BODY AS_ISSUE_GROUP_IDFR_PKG AS
2 /* $Header: asxifgdb.pls 115.4 2002/11/06 00:41:19 appldev ship $ */
3 -- Start of Comments
4 -- Package name : AS_ISSUE_GROUP_IDFR_PKG
5 G_PKG_NAME CONSTANT VARCHAR2(30) := 'AS_ISSUE_GROUP_IDFR_PKG';
6 G_FILE_NAME CONSTANT VARCHAR2(12) := 'asxtifib.pls';
7 PROCEDURE insert_row( p_row_id IN OUT VARCHAR2,
8 p_issue_group_idfr_id IN OUT NUMBER,
9 p_issue_group_id IN NUMBER,
10 p_scheme IN VARCHAR2,
11 p_value IN VARCHAR2,
12 p_search_code IN VARCHAR2,
13 p_last_update_date IN DATE,
14 p_last_updated_by IN NUMBER,
15 p_creation_date IN DATE,
16 p_created_by IN NUMBER,
17 p_last_update_login IN NUMBER,
18 p_attribute_category IN VARCHAR2,
19 p_attribute1 IN VARCHAR2,
20 p_attribute2 IN VARCHAR2,
21 p_attribute3 IN VARCHAR2,
22 p_attribute4 IN VARCHAR2,
23 p_attribute5 IN VARCHAR2,
24 p_attribute6 IN VARCHAR2,
25 p_attribute7 IN VARCHAR2,
26 p_attribute8 IN VARCHAR2,
27 p_attribute9 IN VARCHAR2,
28 p_attribute10 IN VARCHAR2,
29 p_attribute11 IN VARCHAR2,
30 p_attribute12 IN VARCHAR2,
31 p_attribute13 IN VARCHAR2,
32 p_attribute14 IN VARCHAR2,
33 p_attribute15 IN VARCHAR2 ) IS
34 CURSOR C1 IS SELECT AS_ISSUE_GROUP_IDFR_S.nextval FROM sys.dual;
35 CURSOR C2 IS SELECT ROWID FROM as_issue_group_idfr
36 WHERE issue_group_idfr_id = p_issue_group_idfr_id;
37 BEGIN
38 IF (p_issue_group_id IS NULL) OR (p_issue_group_id = FND_API.G_MISS_NUM) THEN
39 OPEN C1;
40 FETCH C1 INTO p_issue_group_idfr_id;
41 CLOSE C1;
42 END IF;
43 INSERT INTO AS_ISSUE_GROUP_IDFR ( issue_group_idfr_id ,
44 issue_group_id,
45 scheme,
46 value,
47 search_code,
48 last_update_date,
49 last_updated_by ,
50 creation_date,
51 created_by,
52 last_update_login,
53 attribute_category ,
54 attribute1 ,
55 attribute2 ,
56 attribute3 ,
57 attribute4,
58 attribute5,
59 attribute6 ,
60 attribute7,
61 attribute8 ,
62 attribute9,
63 attribute10,
64 attribute11,
65 attribute12,
66 attribute13,
67 attribute14 ,
68 attribute15 ) VALUES
69 (DECODE(p_issue_group_idfr_id , FND_API.G_MISS_NUM, NULL, p_issue_group_idfr_id),
70 DECODE(p_issue_group_id, FND_API.G_MISS_NUM, NULL, p_issue_group_id),
71 DECODE(p_scheme , FND_API.G_MISS_CHAR, NULL, p_scheme ),
72 DECODE(p_value, FND_API.G_MISS_CHAR, NULL, p_value),
73 DECODE(p_search_code , FND_API.G_MISS_CHAR, NULL, p_search_code ),
74 DECODE(p_last_update_date, FND_API.G_MISS_DATE, TO_DATE(NULL), p_last_update_date),
75 DECODE(p_last_updated_by, FND_API.G_MISS_NUM, NULL, p_last_updated_by),
76 DECODE(p_creation_date, FND_API.G_MISS_DATE, TO_DATE(NULL), p_creation_date),
77 DECODE(p_created_by, FND_API.G_MISS_NUM, NULL, p_created_by),
78 DECODE(p_last_update_login, FND_API.G_MISS_NUM, NULL, p_last_update_login),
79 DECODE(p_attribute_category, FND_API.G_MISS_CHAR, NULL, p_attribute_category),
80 DECODE(p_attribute1, FND_API.G_MISS_CHAR, NULL, p_attribute1),
81 DECODE(p_attribute2, FND_API.G_MISS_CHAR, NULL, p_attribute2),
82 DECODE(p_attribute3, FND_API.G_MISS_CHAR, NULL, p_attribute3),
83 DECODE(p_attribute4, FND_API.G_MISS_CHAR, NULL, p_attribute4),
84 DECODE(p_attribute5, FND_API.G_MISS_CHAR, NULL, p_attribute5),
85 DECODE(p_attribute6, FND_API.G_MISS_CHAR, NULL, p_attribute6),
86 DECODE(p_attribute7, FND_API.G_MISS_CHAR, NULL, p_attribute7),
87 DECODE(p_attribute8, FND_API.G_MISS_CHAR, NULL, p_attribute8),
88 DECODE(p_attribute9, FND_API.G_MISS_CHAR, NULL, p_attribute9),
89 DECODE(p_attribute10, FND_API.G_MISS_CHAR, NULL, p_attribute10),
90 DECODE(p_attribute11, FND_API.G_MISS_CHAR, NULL, p_attribute11),
91 DECODE(p_attribute12, FND_API.G_MISS_CHAR, NULL, p_attribute12),
92 DECODE(p_attribute13, FND_API.G_MISS_CHAR, NULL, p_attribute13),
93 DECODE(p_attribute14, FND_API.G_MISS_CHAR, NULL, p_attribute14),
94 DECODE(p_attribute15, FND_API.G_MISS_CHAR, NULL, p_attribute15));
95
96 OPEN c2;
97 FETCH c2 INTO p_row_id;
98 IF (c2%NOTFOUND) THEN
99 CLOSE c2;
100 RAISE no_data_found;
101 END IF;
102 CLOSE c2;
103 END INSERT_ROW;
104 PROCEDURE update_row ( p_issue_group_idfr_id IN NUMBER,
105 p_issue_group_id IN number,
106 p_scheme IN VARCHAR2,
107 p_value IN VARCHAR2,
108 p_search_code IN VARCHAR2,
109 p_last_update_date IN DATE,
110 p_last_updated_by IN NUMBER,
111 p_creation_date IN DATE,
112 p_created_by IN NUMBER,
113 p_last_update_login IN NUMBER,
114 p_attribute_category IN VARCHAR2,
115 p_attribute1 IN VARCHAR2,
116 p_attribute2 IN VARCHAR2,
117 p_attribute3 IN VARCHAR2,
118 p_attribute4 IN VARCHAR2,
119 p_attribute5 IN VARCHAR2,
120 p_attribute6 IN VARCHAR2,
121 p_attribute7 IN VARCHAR2,
122 p_attribute8 IN VARCHAR2,
123 p_attribute9 IN VARCHAR2,
124 p_attribute10 IN VARCHAR2,
125 p_attribute11 IN VARCHAR2,
126 p_attribute12 IN VARCHAR2,
127 p_attribute13 IN VARCHAR2,
128 p_attribute14 IN VARCHAR2,
129 p_attribute15 IN VARCHAR2) IS
130 BEGIN
131 UPDATE AS_ISSUE_GROUP_IDFR SET
132 ISSUE_GROUP_ID = DECODE(p_issue_group_id, FND_API.G_MISS_NUM, issue_group_id, p_issue_group_id),
133 SCHEME = DECODE(p_scheme , FND_API.G_MISS_CHAR, scheme, p_scheme ),
134 VALUE = DECODE(p_value, FND_API.G_MISS_CHAR, value, p_value),
135 SEARCH_CODE = DECODE(p_search_code , FND_API.G_MISS_CHAR, search_code, p_search_code ),
136 ATTRIBUTE1 = DECODE(P_ATTRIBUTE1, FND_API.G_MISS_CHAR, ATTRIBUTE1, P_ATTRIBUTE1),
137 ATTRIBUTE2 = DECODE(P_ATTRIBUTE2, FND_API.G_MISS_CHAR, ATTRIBUTE2, P_ATTRIBUTE2),
138 ATTRIBUTE3 = DECODE(P_ATTRIBUTE3, FND_API.G_MISS_CHAR, ATTRIBUTE3, P_ATTRIBUTE3),
139 ATTRIBUTE4 = DECODE(P_ATTRIBUTE4, FND_API.G_MISS_CHAR, ATTRIBUTE4, P_ATTRIBUTE4),
140 ATTRIBUTE5 = DECODE(P_ATTRIBUTE5, FND_API.G_MISS_CHAR, ATTRIBUTE5, P_ATTRIBUTE5),
141 ATTRIBUTE6 = DECODE(P_ATTRIBUTE6, FND_API.G_MISS_CHAR, ATTRIBUTE6, P_ATTRIBUTE6),
142 ATTRIBUTE7 = DECODE(P_ATTRIBUTE7, FND_API.G_MISS_CHAR, ATTRIBUTE7, P_ATTRIBUTE7),
143 ATTRIBUTE8 = DECODE(P_ATTRIBUTE8, FND_API.G_MISS_CHAR, ATTRIBUTE8, P_ATTRIBUTE8),
144 ATTRIBUTE9 = DECODE(P_ATTRIBUTE9, FND_API.G_MISS_CHAR, ATTRIBUTE9, P_ATTRIBUTE9),
145 ATTRIBUTE10 = DECODE(P_ATTRIBUTE10, FND_API.G_MISS_CHAR, ATTRIBUTE10, P_ATTRIBUTE10),
146 ATTRIBUTE11 = DECODE(P_ATTRIBUTE11, FND_API.G_MISS_CHAR, ATTRIBUTE11, P_ATTRIBUTE11),
147 ATTRIBUTE12 = DECODE(P_ATTRIBUTE12, FND_API.G_MISS_CHAR, ATTRIBUTE12, P_ATTRIBUTE12),
148 ATTRIBUTE13 = DECODE(P_ATTRIBUTE13, FND_API.G_MISS_CHAR, ATTRIBUTE13, P_ATTRIBUTE13),
149 ATTRIBUTE14 = DECODE(P_ATTRIBUTE14, FND_API.G_MISS_CHAR, ATTRIBUTE14, P_ATTRIBUTE14),
150 ATTRIBUTE15 = DECODE(P_ATTRIBUTE15, FND_API.G_MISS_CHAR, ATTRIBUTE15, P_ATTRIBUTE15),
151 ATTRIBUTE_CATEGORY = DECODE(P_ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, ATTRIBUTE_CATEGORY, P_ATTRIBUTE_CATEGORY),
152 LAST_UPDATE_DATE = DECODE(P_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, LAST_UPDATE_DATE, P_LAST_UPDATE_DATE),
153 LAST_UPDATED_BY = DECODE(P_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, P_LAST_UPDATED_BY),
154 CREATION_DATE = DECODE(P_CREATION_DATE, FND_API.G_MISS_DATE, CREATION_DATE, P_CREATION_DATE),
155 CREATED_BY = DECODE(P_CREATED_BY, FND_API.G_MISS_NUM, CREATED_BY, P_CREATED_BY),
156 LAST_UPDATE_LOGIN = DECODE(P_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, LAST_UPDATE_LOGIN, P_LAST_UPDATE_LOGIN)
157
158 WHERE ISSUE_GROUP_IDFR_ID = P_ISSUE_GROUP_IDFR_ID ;
159 IF (SQL%NOTFOUND) THEN
160 RAISE NO_DATA_FOUND;
161 END IF;
162 END UPDATE_ROW;
163
164 PROCEDURE delete_row (p_issue_group_idfr_id IN NUMBER ) IS
165 BEGIN
166 DELETE FROM AS_ISSUE_GROUP_IDFR
167 WHERE ISSUE_GROUP_IDFR_ID = P_ISSUE_GROUP_IDFR_ID;
168 IF (SQL%NOTFOUND) THEN
169 RAISE NO_DATA_FOUND;
170 END IF;
171 END DELETE_ROW;
172 END AS_ISSUE_GROUP_IDFR_PKG;