[Home] [Help]
PACKAGE BODY: APPS.FINANCIALS_PURGES_PKG_1
Source
1 PACKAGE BODY FINANCIALS_PURGES_PKG_1 as
2 /* $Header: apifip1b.pls 120.3.12020000.2 2012/07/06 09:48:28 kpasikan ship $ */
3
4
5 PROCEDURE Update_Row(X_Rowid VARCHAR2,
6 X_Purge_Name VARCHAR2,
7 X_Last_Update_Date DATE,
8 X_Last_Updated_By NUMBER,
9 X_Last_Update_Login NUMBER,
10 X_Category VARCHAR2,
11 X_Status VARCHAR2,
12 X_Activity_Date DATE DEFAULT NULL,
13 X_Approx_Rows NUMBER DEFAULT NULL, -- Bug 14237038 (11i-9268290)
14 X_Ap_Checks NUMBER DEFAULT NULL,
15 X_Ap_Invoice_Payments NUMBER DEFAULT NULL,
16 X_Ap_Payment_Schedules NUMBER DEFAULT NULL,
17 X_Ap_Recurring_Payments NUMBER DEFAULT NULL,
18 X_Ap_Trial_Balance NUMBER DEFAULT NULL,
19 X_Ap_Holds NUMBER DEFAULT NULL,
20 X_Ap_Invoice_Distributions NUMBER DEFAULT NULL,
21 X_Ap_Batches NUMBER DEFAULT NULL,
22 X_Ap_Invoices NUMBER DEFAULT NULL,
23 X_Po_Requisition_Headers NUMBER DEFAULT NULL,
24 X_Po_Requisition_Lines NUMBER DEFAULT NULL,
25 X_Po_Req_Distributions NUMBER DEFAULT NULL,
26 X_Po_Approvals NUMBER DEFAULT NULL,
27 X_Po_Headers NUMBER DEFAULT NULL,
28 X_Po_Lines NUMBER DEFAULT NULL,
29 X_Po_Line_Locations NUMBER DEFAULT NULL,
30 X_Po_Distributions NUMBER DEFAULT NULL,
31 X_Po_Releases NUMBER DEFAULT NULL,
32 X_Po_Item_History NUMBER DEFAULT NULL,
33 X_Po_Acceptances NUMBER DEFAULT NULL,
34 X_Po_Notes NUMBER DEFAULT NULL,
35 X_Po_Note_References NUMBER DEFAULT NULL,
36 X_Po_Receipts NUMBER DEFAULT NULL,
37 X_Po_Deliveries NUMBER DEFAULT NULL,
38 X_Po_Quality_Inspections NUMBER DEFAULT NULL,
39 X_Po_Vendors NUMBER DEFAULT NULL,
40 X_Po_Vendor_Sites NUMBER DEFAULT NULL,
41 X_Po_Vendor_Contacts NUMBER DEFAULT NULL,
42 X_Po_Headers_Archive NUMBER DEFAULT NULL,
43 X_Po_Lines_Archive NUMBER DEFAULT NULL,
44 X_Po_Line_Locations_Archive NUMBER DEFAULT NULL,
45 X_Po_Vendor_List_Headers NUMBER DEFAULT NULL,
46 X_Po_Vendor_List_Entries NUMBER DEFAULT NULL,
47 X_Po_Notifications NUMBER DEFAULT NULL,
48 X_Po_Accrual_Reconcile_Temp NUMBER DEFAULT NULL,
49 X_Po_Blanket_Items NUMBER DEFAULT NULL,
50 X_Po_Receipt_Headers NUMBER DEFAULT NULL,
51 X_Organization_Id NUMBER DEFAULT NULL,
52 X_Po_Approved_Supplier_List NUMBER DEFAULT NULL,
53 X_Po_Asl_Attributes NUMBER DEFAULT NULL,
54 X_Po_Asl_Documents NUMBER DEFAULT NULL,
55 X_Chv_Authorizations NUMBER DEFAULT NULL,
56 X_Chv_Cum_Adjustments NUMBER DEFAULT NULL,
57 X_Chv_Cum_Periods NUMBER DEFAULT NULL,
58 X_Chv_Cum_Period_Items NUMBER DEFAULT NULL,
59 X_Chv_Horizontal_Schedules NUMBER DEFAULT NULL,
60 X_Chv_Item_Orders NUMBER DEFAULT NULL,
61 X_Chv_Schedule_Headers NUMBER DEFAULT NULL,
62 X_Chv_Schedule_Items NUMBER DEFAULT NULL,
63 X_Mrp_Sr_Source_Org NUMBER DEFAULT NULL,
64 X_Mrp_Item_Sourcing NUMBER DEFAULT NULL,
65 X_Action VARCHAR2 DEFAULT NULL,
66 X_calling_sequence IN VARCHAR2
67 ) IS
68
69 current_calling_sequence VARCHAR2(2000);
70 debug_info VARCHAR2(100);
71
72 BEGIN
73 -- Update the calling sequence
74 --
75 current_calling_sequence := 'FINANCIALS_PURGES_PKG.UPDATE_ROW<-' ||
76 X_calling_sequence;
77
78 debug_info := 'Update FINANCIALS_PURGES';
79 UPDATE FINANCIALS_PURGES
80 SET
81 purge_name = X_Purge_Name,
82 last_update_date = X_Last_Update_Date,
83 last_updated_by = X_Last_Updated_By,
84 last_update_login = X_Last_Update_Login,
85 category = X_Category,
86 status = X_Status,
87 activity_date = X_Activity_Date,
88 approx_rows = X_Approx_Rows, -- Bug 14237038 (11i-9268290)
89 ap_checks = X_Ap_Checks,
90 ap_invoice_payments = X_Ap_Invoice_Payments,
91 ap_payment_schedules = X_Ap_Payment_Schedules,
92 ap_recurring_payments = X_Ap_Recurring_Payments,
93 ap_trial_balance = X_Ap_Trial_Balance,
94 ap_holds = X_Ap_Holds,
95 ap_invoice_distributions = X_Ap_Invoice_Distributions,
96 ap_batches = X_Ap_Batches,
97 ap_invoices = X_Ap_Invoices,
98 po_requisition_headers = X_Po_Requisition_Headers,
99 po_requisition_lines = X_Po_Requisition_Lines,
100 po_req_distributions = X_Po_Req_Distributions,
101 po_approvals = X_Po_Approvals,
102 po_headers = X_Po_Headers,
103 po_lines = X_Po_Lines,
104 po_line_locations = X_Po_Line_Locations,
105 po_distributions = X_Po_Distributions,
106 po_releases = X_Po_Releases,
107 po_item_history = X_Po_Item_History,
108 po_acceptances = X_Po_Acceptances,
109 po_notes = X_Po_Notes,
110 po_note_references = X_Po_Note_References,
111 po_receipts = X_Po_Receipts,
112 po_deliveries = X_Po_Deliveries,
113 po_quality_inspections = X_Po_Quality_Inspections,
114 po_vendors = X_Po_Vendors,
115 po_vendor_sites = X_Po_Vendor_Sites,
116 po_vendor_contacts = X_Po_Vendor_Contacts,
117 po_headers_archive = X_Po_Headers_Archive,
118 po_lines_archive = X_Po_Lines_Archive,
119 po_line_locations_archive = X_Po_Line_Locations_Archive,
120 po_vendor_list_headers = X_Po_Vendor_List_Headers,
121 po_vendor_list_entries = X_Po_Vendor_List_Entries,
122 po_notifications = X_Po_Notifications,
123 po_accrual_reconcile_temp = X_Po_Accrual_Reconcile_Temp,
124 po_blanket_items = X_Po_Blanket_Items,
125 po_receipt_headers = X_Po_Receipt_Headers,
126 Organization_Id = X_Organization_Id,
127 Po_Approved_Supplier_List = X_Po_Approved_Supplier_List,
128 Po_Asl_Attributes = X_Po_Asl_Attributes,
129 Po_Asl_Documents = X_Po_Asl_Documents,
130 Chv_Authorizations = X_Chv_Authorizations,
131 Chv_Cum_Adjustments = X_Chv_Cum_Adjustments,
132 Chv_Cum_Periods = X_Chv_Cum_Periods,
133 Chv_Cum_Period_Items = X_Chv_Cum_Period_Items,
134 Chv_Horizontal_Schedules = X_Chv_Horizontal_Schedules,
135 Chv_Item_Orders = X_Chv_Item_Orders,
136 Chv_Schedule_Headers = X_Chv_Schedule_Headers,
137 Chv_Schedule_Items = X_Chv_Schedule_Items,
138 Mrp_Sr_Source_Org = X_Mrp_Sr_Source_Org,
139 Mrp_Item_Sourcing = X_Mrp_Item_Sourcing,
140 action = X_Action
141 WHERE rowid = X_Rowid;
142
143 if (SQL%NOTFOUND) then
144 Raise NO_DATA_FOUND;
145 end if;
146
147 EXCEPTION
148 WHEN OTHERS THEN
149 IF (SQLCODE <> -20001) THEN
150 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
151 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
152 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
153 FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
154 ', PURGE_NAME = ' || X_Purge_name);
155 FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
156 END IF;
157 APP_EXCEPTION.RAISE_EXCEPTION;
158
159 END Update_Row;
160
161 END FINANCIALS_PURGES_PKG_1;