[Home] [Help]
PACKAGE BODY: APPS.JL_BR_AP_COLLECTION_DOC2_PKG
Source
1 PACKAGE BODY JL_BR_AP_COLLECTION_DOC2_PKG as
2 /* $Header: jlbrpe2b.pls 120.2.12010000.2 2009/11/19 16:03:05 gmeni ship $ */
3
4 PROCEDURE Update_Row(X_Rowid VARCHAR2,
5
6 X_BANK_COLLECTION_ID NUMBER,
7 X_LAST_UPDATED_BY NUMBER,
8 X_LAST_UPDATE_DATE DATE,
9 X_CREATED_BY NUMBER,
10 X_CREATION_DATE DATE,
11 X_LAST_UPDATE_LOGIN NUMBER,
12 X_INVOICE_ID NUMBER DEFAULT NULL,
13 X_PAYMENT_NUM NUMBER DEFAULT NULL,
14 X_HOLD_FLAG VARCHAR2 DEFAULT NULL,
15 X_ISSUE_DATE DATE DEFAULT NULL,
16 X_DOCUMENT_NUMBER VARCHAR2 DEFAULT NULL,
17 X_DRAWER_GUARANTOR VARCHAR2 DEFAULT NULL,
18 X_INSTRUCTION_1 VARCHAR2 DEFAULT NULL,
19 X_INSTRUCTION_2 VARCHAR2 DEFAULT NULL,
20 X_CURRENCY_CODE VARCHAR2,
21 X_DUE_DATE DATE DEFAULT NULL,
22 X_AMOUNT NUMBER DEFAULT NULL,
23 X_DISCOUNT_DATE DATE DEFAULT NULL,
24 X_DISCOUNT_AMOUNT NUMBER DEFAULT NULL,
25 X_ARREARS_DATE DATE DEFAULT NULL,
26 X_ARREARS_CODE VARCHAR2 DEFAULT NULL,
27 X_ARREARS_INTEREST NUMBER DEFAULT NULL,
28 X_ABATE_AMOUNT NUMBER DEFAULT NULL,
29 X_PAID_AMOUNT NUMBER DEFAULT NULL,
30 X_PAYMENT_LOCATION VARCHAR2 DEFAULT NULL,
31 X_DOCUMENT_TYPE VARCHAR2 DEFAULT NULL,
32 X_ACCEPTANCE VARCHAR2 DEFAULT NULL,
33 X_PROCESSING_DATE DATE DEFAULT NULL,
34 X_BANK_USE VARCHAR2 DEFAULT NULL,
35 X_PORTFOLIO VARCHAR2 DEFAULT NULL,
36 X_PENALTY_FEE_AMOUNT NUMBER DEFAULT NULL,
37 X_PENALTY_FEE_DATE DATE DEFAULT NULL,
38 X_OTHER_ACCRETIONS NUMBER DEFAULT NULL,
39 X_OUR_NUMBER VARCHAR2 DEFAULT NULL,
40 X_TRANSFEROR_CODE VARCHAR2 DEFAULT NULL,
41 X_VENDOR_SITE_ID NUMBER,
42 X_FILE_CONTROL VARCHAR2 DEFAULT NULL,
43 X_STATUS_LOOKUP_CODE VARCHAR2 DEFAULT NULL,
44 X_ATTRIBUTE_CATEGORY VARCHAR2 DEFAULT NULL,
45 X_ATTRIBUTE1 VARCHAR2 DEFAULT NULL,
46 X_ATTRIBUTE2 VARCHAR2 DEFAULT NULL,
47 X_ATTRIBUTE3 VARCHAR2 DEFAULT NULL,
48 X_ATTRIBUTE4 VARCHAR2 DEFAULT NULL,
49 X_ATTRIBUTE5 VARCHAR2 DEFAULT NULL,
50 X_ATTRIBUTE6 VARCHAR2 DEFAULT NULL,
51 X_ATTRIBUTE7 VARCHAR2 DEFAULT NULL,
52 X_ATTRIBUTE8 VARCHAR2 DEFAULT NULL,
53 X_ATTRIBUTE9 VARCHAR2 DEFAULT NULL,
54 X_ATTRIBUTE10 VARCHAR2 DEFAULT NULL,
55 X_ATTRIBUTE11 VARCHAR2 DEFAULT NULL,
56 X_ATTRIBUTE12 VARCHAR2 DEFAULT NULL,
57 X_ATTRIBUTE13 VARCHAR2 DEFAULT NULL,
58 X_ATTRIBUTE14 VARCHAR2 DEFAULT NULL,
59 X_ATTRIBUTE15 VARCHAR2 DEFAULT NULL,
60 X_ATTRIBUTE16 VARCHAR2 DEFAULT NULL,
61 X_ATTRIBUTE17 VARCHAR2 DEFAULT NULL,
62 X_ATTRIBUTE18 VARCHAR2 DEFAULT NULL,
63 X_ATTRIBUTE19 VARCHAR2 DEFAULT NULL,
64 X_ATTRIBUTE20 VARCHAR2 DEFAULT NULL,
65 X_ATTRIBUTE21 VARCHAR2 DEFAULT NULL,
66 X_ATTRIBUTE22 VARCHAR2 DEFAULT NULL,
67 X_ATTRIBUTE23 VARCHAR2 DEFAULT NULL,
68 X_ATTRIBUTE24 VARCHAR2 DEFAULT NULL,
69 X_ATTRIBUTE25 VARCHAR2 DEFAULT NULL,
70 X_ATTRIBUTE26 VARCHAR2 DEFAULT NULL,
71 X_ATTRIBUTE27 VARCHAR2 DEFAULT NULL,
72 X_ATTRIBUTE28 VARCHAR2 DEFAULT NULL,
73 X_ATTRIBUTE29 VARCHAR2 DEFAULT NULL,
74 X_ATTRIBUTE30 VARCHAR2 DEFAULT NULL,
75 X_ENTRY_SEQUENTIAL_NUMBER NUMBER DEFAULT NULL,
76 X_SET_OF_BOOKS_ID NUMBER,
77 X_VENDOR_ID NUMBER,
78 X_BANK_BRANCH_ID NUMBER,
79 X_BANK_PARTY_ID NUMBER,
80 X_BRANCH_PARTY_ID NUMBER,
81 X_calling_sequence VARCHAR2,
82 X_BARCODE VARCHAR2 DEFAULT NULL,
83 X_ELECTRONIC_FORMAT_FLAG VARCHAR2 DEFAULT NULL
84 ) IS
85 current_calling_sequence VARCHAR2(2000);
86 debug_info VARCHAR2(100);
87 BEGIN
88 -- Update the calling sequence
89 --
90 current_calling_sequence := 'JL_BR_AP_COLLECTION_DOCS_PKG.UPDATE_ROW<-' ||
91 X_calling_sequence;
92 debug_info := 'Update JL_BR_AP_COLLECTION_DOCS';
93 UPDATE JL_BR_AP_COLLECTION_DOCS
94 SET
95 BANK_COLLECTION_ID = X_BANK_COLLECTION_ID,
96 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
97 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
98 CREATED_BY = X_CREATED_BY,
99 CREATION_DATE = X_CREATION_DATE,
100 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
101 INVOICE_ID = X_INVOICE_ID,
102 PAYMENT_NUM = X_PAYMENT_NUM,
103 HOLD_FLAG = X_HOLD_FLAG,
104 ISSUE_DATE = X_ISSUE_DATE,
105 DOCUMENT_NUMBER = X_DOCUMENT_NUMBER,
106 DRAWER_GUARANTOR = X_DRAWER_GUARANTOR,
107 INSTRUCTION_1 = X_INSTRUCTION_1,
108 INSTRUCTION_2 = X_INSTRUCTION_2,
109 CURRENCY_CODE = X_CURRENCY_CODE,
110 DUE_DATE = X_DUE_DATE,
111 AMOUNT = X_AMOUNT,
112 DISCOUNT_DATE = X_DISCOUNT_DATE,
113 DISCOUNT_AMOUNT = X_DISCOUNT_AMOUNT,
114 ARREARS_DATE = X_ARREARS_DATE,
115 ARREARS_CODE = X_ARREARS_CODE,
116 ARREARS_INTEREST = X_ARREARS_INTEREST,
117 ABATE_AMOUNT = X_ABATE_AMOUNT,
118 PAID_AMOUNT = X_PAID_AMOUNT,
119 PAYMENT_LOCATION = X_PAYMENT_LOCATION,
120 DOCUMENT_TYPE = X_DOCUMENT_TYPE,
121 ACCEPTANCE = X_ACCEPTANCE,
122 PROCESSING_DATE = X_PROCESSING_DATE,
123 BANK_USE = X_BANK_USE,
124 PORTFOLIO = X_PORTFOLIO,
125 PENALTY_FEE_AMOUNT = X_PENALTY_FEE_AMOUNT,
126 PENALTY_FEE_DATE = X_PENALTY_FEE_DATE,
127 OTHER_ACCRETIONS = X_OTHER_ACCRETIONS,
128 OUR_NUMBER = X_OUR_NUMBER,
129 TRANSFEROR_CODE = X_TRANSFEROR_CODE,
130 VENDOR_SITE_ID = X_VENDOR_SITE_ID,
131 FILE_CONTROL = X_FILE_CONTROL,
132 STATUS_LOOKUP_CODE = X_STATUS_LOOKUP_CODE,
133 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
134 ATTRIBUTE1 = X_ATTRIBUTE1,
135 ATTRIBUTE2 = X_ATTRIBUTE2,
136 ATTRIBUTE3 = X_ATTRIBUTE3,
137 ATTRIBUTE4 = X_ATTRIBUTE4,
138 ATTRIBUTE5 = X_ATTRIBUTE5,
139 ATTRIBUTE6 = X_ATTRIBUTE6,
140 ATTRIBUTE7 = X_ATTRIBUTE7,
141 ATTRIBUTE8 = X_ATTRIBUTE8,
142 ATTRIBUTE9 = X_ATTRIBUTE9,
143 ATTRIBUTE10 = X_ATTRIBUTE10,
144 ATTRIBUTE11 = X_ATTRIBUTE11,
145 ATTRIBUTE12 = X_ATTRIBUTE12,
146 ATTRIBUTE13 = X_ATTRIBUTE13,
147 ATTRIBUTE14 = X_ATTRIBUTE14,
148 ATTRIBUTE15 = X_ATTRIBUTE15,
149 ATTRIBUTE16 = X_ATTRIBUTE16,
150 ATTRIBUTE17 = X_ATTRIBUTE17,
151 ATTRIBUTE18 = X_ATTRIBUTE18,
152 ATTRIBUTE19 = X_ATTRIBUTE19,
153 ATTRIBUTE20 = X_ATTRIBUTE20,
154 ATTRIBUTE21 = X_ATTRIBUTE21,
155 ATTRIBUTE22 = X_ATTRIBUTE22,
156 ATTRIBUTE23 = X_ATTRIBUTE23,
157 ATTRIBUTE24 = X_ATTRIBUTE24,
158 ATTRIBUTE25 = X_ATTRIBUTE25,
159 ATTRIBUTE26 = X_ATTRIBUTE26,
160 ATTRIBUTE27 = X_ATTRIBUTE27,
161 ATTRIBUTE28 = X_ATTRIBUTE28,
162 ATTRIBUTE29 = X_ATTRIBUTE29,
163 ATTRIBUTE30 = X_ATTRIBUTE30,
164 ENTRY_SEQUENTIAL_NUMBER = X_ENTRY_SEQUENTIAL_NUMBER,
165 SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID,
166 VENDOR_ID = X_VENDOR_ID,
167 BANK_BRANCH_ID = X_BANK_BRANCH_ID,
168 BANK_PARTY_ID = X_BANK_PARTY_ID,
169 BRANCH_PARTY_ID = X_BRANCH_PARTY_ID,
170 BARCODE = X_BARCODE,
171 ELECTRONIC_FORMAT_FLAG = X_ELECTRONIC_FORMAT_FLAG
172 WHERE rowid = X_Rowid;
173
174 if (SQL%NOTFOUND) then
175 Raise NO_DATA_FOUND;
176 end if;
177
178 EXCEPTION
179 WHEN OTHERS THEN
180 IF (SQLCODE <> -20001) THEN
181 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
182 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
183 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
184 FND_MESSAGE.SET_TOKEN('PARAMETERS','bank_collection_id = ' ||
185 X_bank_collection_id);
186 FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
187 END IF;
188 APP_EXCEPTION.RAISE_EXCEPTION;
189
190 END Update_Row;
191
192 PROCEDURE Delete_Row(X_Rowid VARCHAR2,
193 X_calling_sequence IN VARCHAR2
194 ) IS
195 current_calling_sequence VARCHAR2(2000);
196 debug_info VARCHAR2(100);
197 BEGIN
198 -- Update the calling sequence
199 --
200 current_calling_sequence := 'JL_BR_AP_COLLECTION_DOCS_PKG.DELETE_ROW<-' ||
201 X_calling_sequence;
202 debug_info := 'Delete from JL_BR_AP_COLLECTION_DOCS';
203 DELETE FROM JL_BR_AP_COLLECTION_DOCS
204 WHERE rowid = X_Rowid;
205
206 if (SQL%NOTFOUND) then
207 Raise NO_DATA_FOUND;
208 end if;
209
210 EXCEPTION
211 WHEN OTHERS THEN
212 IF (SQLCODE <> -20001) THEN
213 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
214 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
215 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
216 FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
217 FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
218 END IF;
219 APP_EXCEPTION.RAISE_EXCEPTION;
220
221 END Delete_Row;
222
223 END JL_BR_AP_COLLECTION_DOC2_PKG;