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