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