1 PACKAGE BODY AR_CC_ERROR_MAPPINGS_PKG AS
2 /* $Header: ARCCMAPB.pls 120.0 2005/03/22 22:36:19 jypandey noship $ */
3
4 PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AR_ENABLE_DEBUG_OUTPUT'), 'N');
5 PROCEDURE Check_Unique(p_rowid IN ROWID,p_cc_error_code IN VARCHAR2,p_cc_trx_category IN VARCHAR2,p_receipt_method_id IN NUMBER) IS
6 dummy NUMBER;
7 BEGIN
8 IF PG_DEBUG in ('Y', 'C') THEN
9 arp_standard.debug('AR_CC_ERROR_MAPPINGS_PKG.Check_Unique(+)');
10 END IF;
11 IF (p_cc_error_code IS NOT NULL) THEN
12 SELECT 1
13 INTO dummy
14 FROM dual D
15 WHERE NOT EXISTS ( SELECT 1
16 FROM ar_cc_error_mappings E
17 WHERE E.cc_error_code = p_cc_error_code
18 AND E.cc_trx_category = p_cc_trx_category
19 AND E.receipt_method_id = p_receipt_method_id
20 AND ( E.rowid <> p_rowid OR p_rowid IS NULL ));
21 END IF;
22 IF PG_DEBUG in ('Y', 'C') THEN
23 arp_standard.debug('AR_CC_ERROR_MAPPINGS_PKG.Check_Unique(-)');
24 END IF;
25 EXCEPTION
26 WHEN NO_DATA_FOUND THEN
27 FND_MESSAGE.SET_NAME('AR', 'AR_CC_ERROR_CODE_UNIQUE');
28 APP_EXCEPTION.RAISE_EXCEPTION;
29 WHEN OTHERS THEN
30 IF PG_DEBUG in ('Y', 'C') THEN
31 arp_standard.debug('EXCEPTION: AR_CC_ERROR_MAPPINGS_PKG.Check_Unique');
32 END IF;
33 raise;
34 END Check_Unique;
35
36 PROCEDURE Insert_Row(x_rowid OUT NOCOPY ROWID,
37 p_cc_error_code IN VARCHAR2,
38 p_cc_error_text IN VARCHAR2,
39 p_receipt_method_id IN NUMBER,
40 p_cc_trx_category IN VARCHAR2,
41 p_cc_action_code IN VARCHAR2,
42 p_no_days IN NUMBER,
43 p_subsequent_action_code IN VARCHAR2,
44 p_error_notes IN VARCHAR2,
45 p_last_update_date IN DATE,
46 p_last_updated_by IN NUMBER,
47 p_last_update_login IN NUMBER,
48 p_creation_date IN DATE,
49 p_created_by IN NUMBER,
50 x_object_version_number OUT NOCOPY NUMBER) IS
51 BEGIN
52 IF PG_DEBUG in ('Y', 'C') THEN
53 arp_util.debug( 'AR_CC_ERROR_MAPPINGS_PKG.Insert_Row()+' );
54 END IF;
55 x_object_version_number := 1;
56 INSERT INTO ar_cc_error_mappings(
57 CC_ERROR_CODE,
58 CC_ERROR_TEXT,
59 RECEIPT_METHOD_ID,
60 CC_TRX_CATEGORY,
61 CC_ACTION_CODE,
62 NO_DAYS,
63 SUBSEQUENT_ACTION_CODE,
64 ERROR_NOTES,
65 LAST_UPDATE_DATE,
66 LAST_UPDATED_BY,
67 LAST_UPDATE_LOGIN,
68 CREATION_DATE,
69 CREATED_BY,
70 OBJECT_VERSION_NUMBER)
71 VALUES(
72 p_cc_error_code,
73 p_cc_error_text,
74 p_receipt_method_id,
75 p_cc_trx_category,
76 p_cc_action_code,
77 p_no_days,
78 p_subsequent_action_code,
79 p_error_notes,
80 p_last_update_date,
81 p_last_updated_by,
82 p_last_update_login,
83 p_creation_date,
84 p_created_by,
85 x_object_version_number) RETURNING ROWID INTO x_rowid;
86 IF PG_DEBUG in ('Y', 'C') THEN
87 arp_util.debug( 'AR_CC_ERROR_MAPPINGS_PKG.Insert_Row()-' );
88 END IF;
89 EXCEPTION
90 WHEN OTHERS THEN
91 IF PG_DEBUG in ('Y', 'C') THEN
92 arp_util.debug( 'EXCEPTION AR_CC_ERROR_MAPPINGS_PKG.Insert_Row()' );
93 END IF;
94 raise;
95 END Insert_Row;
96
97 PROCEDURE Update_Row(p_rowid IN ROWID,
98 p_cc_error_code IN VARCHAR2,
99 p_cc_error_text IN VARCHAR2,
100 p_receipt_method_id IN NUMBER,
101 p_cc_trx_category IN VARCHAR2,
102 p_cc_action_code IN VARCHAR2,
103 p_no_days IN NUMBER,
104 p_subsequent_action_code IN VARCHAR2,
105 p_error_notes IN VARCHAR2,
106 p_last_update_date IN DATE,
107 p_last_updated_by IN NUMBER,
108 p_last_update_login IN NUMBER,
109 x_object_version_number OUT NOCOPY NUMBER) IS
110 BEGIN
111 IF PG_DEBUG in ('Y', 'C') THEN
112 arp_util.debug( 'AR_CC_ERROR_MAPPINGS_PKG.Update_Row()+' );
113 END IF;
114 UPDATE ar_cc_error_mappings
115 SET cc_error_code = p_cc_error_code,
116 cc_error_text=p_cc_error_text,
117 receipt_method_id=p_receipt_method_id,
118 cc_trx_category=p_cc_trx_category,
119 cc_action_code=p_cc_action_code,
120 no_days=p_no_days,
121 subsequent_action_code=p_subsequent_action_code,
122 error_notes=p_error_notes,
123 last_update_date=p_last_update_date,
124 last_updated_by=p_last_updated_by,
125 last_update_login=p_last_update_login,
126 object_version_number=object_version_number+1
127 WHERE rowid = p_rowid
128 RETURNING object_version_number INTO x_object_version_number;
129 IF PG_DEBUG in ('Y', 'C') THEN
130 arp_util.debug( 'AR_CC_ERROR_MAPPINGS_PKG.Update_Row()-' );
131 END IF;
132 EXCEPTION
133 WHEN OTHERS THEN
134 IF PG_DEBUG in ('Y', 'C') THEN
135 arp_util.debug( 'EXCEPTION: AR_CC_ERROR_MAPPINGS_PKG.Update_Row()' );
136 END IF;
137 raise;
138 END Update_Row;
139
140 PROCEDURE Delete_Row(p_rowid IN ROWID) IS
141 BEGIN
142 IF PG_DEBUG in ('Y', 'C') THEN
143 arp_util.debug( 'EXCEPTION: AR_CC_ERROR_MAPPINGS_PKG.Delete_Row()+' );
144 END IF;
145 Delete ar_cc_error_mappings
146 WHERE rowid = p_rowid;
147 IF PG_DEBUG in ('Y', 'C') THEN
148 arp_util.debug( 'EXCEPTION: AR_CC_ERROR_MAPPINGS_PKG.Delete_Row()-' );
149 END IF;
150 EXCEPTION
151 WHEN OTHERS THEN
152 IF PG_DEBUG in ('Y', 'C') THEN
153 arp_util.debug( 'EXCEPTION: AR_CC_ERROR_MAPPINGS_PKG.Delete_Row()' );
154 END IF;
155 raise;
156 END Delete_row;
157
158 PROCEDURE Lock_Row(p_rowid IN ROWID,
159 p_object_version_number IN NUMBER) IS
160 l_object_version_number ar_cc_error_mappings.object_version_number%TYPE;
161 BEGIN
162 IF PG_DEBUG in ('Y', 'C') THEN
163 arp_util.debug( 'EXCEPTION: AR_CC_ERROR_MAPPINGS_PKG.Lock_Row()+' );
164 END IF;
165 SELECT object_version_number
166 INTO l_object_version_number
167 FROM ar_cc_error_mappings
168 WHERE rowid = p_rowid
169 AND object_version_number = p_object_version_number
170 FOR UPDATE OF object_version_number NOWAIT;
171 IF PG_DEBUG in ('Y', 'C') THEN
172 arp_util.debug( 'EXCEPTION: AR_CC_ERROR_MAPPINGS_PKG.Lock_Row()-' );
173 END IF;
174 EXCEPTION
175 WHEN OTHERS THEN
176 IF PG_DEBUG in ('Y', 'C') THEN
177 arp_util.debug( 'EXCEPTION: AR_CC_ERROR_MAPPINGS_PKG.Lock_Row()' );
178 END IF;
179 raise;
180 END Lock_Row;
181
182 END AR_CC_ERROR_MAPPINGS_PKG;