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