[Home] [Help]
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
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
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');
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:
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,
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
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:
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,
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
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:
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
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
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:
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
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:
178: END IF;
179: raise;
180: END Lock_Row;
181:
182: END AR_CC_ERROR_MAPPINGS_PKG;