DBA Data[Home] [Help]

PACKAGE BODY: APPS.PO_DISTRIBUTIONS_PKG1

Source


1 PACKAGE BODY PO_DISTRIBUTIONS_PKG1 as
2 /* $Header: POXP1PDB.pls 120.10.12000000.2 2007/10/17 11:53:41 ppadilam ship $ */
3 
4 
5        /**
6 	* For now, nonrecoverable and recoverable tax are not inserted and updated.
7 	* These values are set by the tax engine.
8 	**/
9 
10 
11   PROCEDURE Insert_Row(X_Rowid                   IN OUT NOCOPY VARCHAR2,
12                        X_Po_Distribution_Id             IN OUT NOCOPY NUMBER,
13                        X_Last_Update_Date               DATE,
14                        X_Last_Updated_By                NUMBER,
15                        X_Po_Header_Id                   NUMBER,
16                        X_Po_Line_Id                     NUMBER,
17                        X_Line_Location_Id               NUMBER,
18                        X_Set_Of_Books_Id                NUMBER,
19                        X_Code_Combination_Id            NUMBER,
20                        X_Quantity_Ordered               NUMBER,
21                        X_Last_Update_Login              NUMBER,
22                        X_Creation_Date                  DATE,
23                        X_Created_By                     NUMBER,
24                        X_Po_Release_Id                  NUMBER,
25                        X_Quantity_Delivered             NUMBER,
26                        X_Quantity_Billed                NUMBER,
27                        X_Quantity_Cancelled             NUMBER,
28                        X_Req_Header_Reference_Num       VARCHAR2,
29                        X_Req_Line_Reference_Num         VARCHAR2,
30                        X_Req_Distribution_Id            NUMBER,
31                        X_Deliver_To_Location_Id         NUMBER,
32                        X_Deliver_To_Person_Id           NUMBER,
33                        X_Rate_Date                      DATE,
34                        X_Rate                           NUMBER,
35                        X_Amount_Billed                  NUMBER,
36                        X_Accrued_Flag                   VARCHAR2,
37                        X_Encumbered_Flag                VARCHAR2,
38                        X_Encumbered_Amount              NUMBER,
39                        X_Unencumbered_Quantity          NUMBER,
40                        X_Unencumbered_Amount            NUMBER,
41                        X_Failed_Funds_Lookup_Code       VARCHAR2,
42                        X_Gl_Encumbered_Date             DATE,
43                        X_Gl_Encumbered_Period_Name      VARCHAR2,
44                        X_Gl_Cancelled_Date              DATE,
45                        X_Destination_Type_Code          VARCHAR2,
46                        X_Destination_Organization_Id    NUMBER,
47                        X_Destination_Subinventory       VARCHAR2,
48                        X_Attribute_Category             VARCHAR2,
49                        X_Attribute1                     VARCHAR2,
50                        X_Attribute2                     VARCHAR2,
51                        X_Attribute3                     VARCHAR2,
52                        X_Attribute4                     VARCHAR2,
53                        X_Attribute5                     VARCHAR2,
54                        X_Attribute6                     VARCHAR2,
55                        X_Attribute7                     VARCHAR2,
56                        X_Attribute8                     VARCHAR2,
57                        X_Attribute9                     VARCHAR2,
58                        X_Attribute10                    VARCHAR2,
59                        X_Attribute11                    VARCHAR2,
60                        X_Attribute12                    VARCHAR2,
61                        X_Attribute13                    VARCHAR2,
62                        X_Attribute14                    VARCHAR2,
63                        X_Attribute15                    VARCHAR2,
64                        X_Wip_Entity_Id                  NUMBER,
65                        X_Wip_Operation_Seq_Num          NUMBER,
66                        X_Wip_Resource_Seq_Num           NUMBER,
67                        X_Wip_Repetitive_Schedule_Id     NUMBER,
68                        X_Wip_Line_Id                    NUMBER,
69                        X_Bom_Resource_Id                NUMBER,
70                        X_Budget_Account_Id              NUMBER,
71                        X_Accrual_Account_Id             NUMBER,
72                        X_Variance_Account_Id            NUMBER,
73 
74                        --< Shared Proc FPJ Start >
75                        p_dest_charge_account_id           NUMBER,
76                        p_dest_variance_account_id         NUMBER,
77                        --< Shared Proc FPJ End >
78 
79                        X_Prevent_Encumbrance_Flag       VARCHAR2,
80                        X_Ussgl_Transaction_Code         VARCHAR2,
81                        X_Government_Context             VARCHAR2,
82                        X_Destination_Context            VARCHAR2,
83                        X_Distribution_Num               NUMBER,
84                        X_Source_Distribution_Id         NUMBER,
85                        X_Project_Id                     NUMBER,
86                        X_Task_Id                        NUMBER,
87                        X_Expenditure_Type               VARCHAR2,
88                        X_Project_Accounting_Context     VARCHAR2,
89                        X_Expenditure_Organization_Id    NUMBER,
90                        X_Gl_Closed_Date                 DATE,
91                        X_Accrue_On_Receipt_Flag         VARCHAR2,
92                        X_Expenditure_Item_Date          DATE,
93                        X_End_Item_Unit_Number           VARCHAR2 DEFAULT NULL,
94                        X_Recovery_Rate                  NUMBER,
95                        X_Recoverable_Tax                NUMBER,
96                        X_Nonrecoverable_Tax             NUMBER,
97                        X_Tax_Recovery_Override_Flag     VARCHAR2,
98                        -- OGM_0.0 Changes..
99                        X_award_id                       NUMBER DEFAULT NULL,
100                        --togeorge 09/28/2000
101                        --added  oke variables
102                        X_oke_contract_line_id         IN NUMBER default null,
103                        X_oke_contract_deliverable_id  IN NUMBER default null,
104                        X_amount_ordered               IN NUMBER default null,  -- <SERVICES FPJ>
105                        X_distribution_type            IN VARCHAR2 default null, -- <ENCUMBRNACE FPJ>
106                        X_amount_to_encumber           IN NUMBER default null,   -- <ENCUMBRNACE FPJ>
107                        p_org_id                       IN NUMBER DEFAULT NULL   -- <R12 MOAC>
108    ) IS
109      CURSOR C IS SELECT rowid FROM PO_DISTRIBUTIONS
110                  WHERE po_distribution_id = X_Po_Distribution_Id;
111 
112 
113 
114       CURSOR C2 IS SELECT po_distributions_s.nextval FROM sys.dual;
115 
116     l_tax_attribute_update_code PO_DISTRIBUTIONS_ALL.tax_attribute_update_code%type; --<eTax Integration R12>
117 
118     BEGIN
119       if (X_Po_Distribution_Id is NULL) then
120         OPEN C2;
121         FETCH C2 INTO X_Po_Distribution_Id;
122         CLOSE C2;
123       end if;
124 
125       -- Bug: 1788262 insert 0 instead of NULL as that causes problem while querying the PO.
126 
127       --<eTax Integration R12>
128       IF X_Distribution_Type IN ('STANDARD', 'PLANNED', 'BLANKET', 'SCHEDULED') THEN
129         l_tax_attribute_update_code := 'CREATE';
130       END IF;
131 
132    INSERT INTO PO_DISTRIBUTIONS(
133                po_distribution_id,
134                last_update_date,
135                last_updated_by,
136                po_header_id,
137                po_line_id,
138                line_location_id,
139                set_of_books_id,
140                code_combination_id,
141                quantity_ordered,
142                last_update_login,
143                creation_date,
144                created_by,
145                po_release_id,
146                quantity_delivered,
147                quantity_billed,
148                quantity_cancelled,
149                req_header_reference_num,
150                req_line_reference_num,
151                req_distribution_id,
152                deliver_to_location_id,
153                deliver_to_person_id,
154                rate_date,
155                rate,
156                amount_billed,
157                accrued_flag,
158                encumbered_flag,
159                encumbered_amount,
160                unencumbered_quantity,
161                unencumbered_amount,
162                failed_funds_lookup_code,
163                gl_encumbered_date,
164                gl_encumbered_period_name,
165                gl_cancelled_date,
166                destination_type_code,
167                destination_organization_id,
168                destination_subinventory,
169                attribute_category,
170                attribute1,
171                attribute2,
172                attribute3,
173                attribute4,
174                attribute5,
175                attribute6,
176                attribute7,
177                attribute8,
178                attribute9,
179                attribute10,
180                attribute11,
181                attribute12,
182                attribute13,
183                attribute14,
184                attribute15,
185                wip_entity_id,
186                wip_operation_seq_num,
187                wip_resource_seq_num,
188                wip_repetitive_schedule_id,
189                wip_line_id,
190                bom_resource_id,
191                budget_account_id,
192                accrual_account_id,
193                variance_account_id,
194 
195                --< Shared Proc FPJ Start >
196                dest_charge_account_id,
197                dest_variance_account_id,
198                --< Shared Proc FPJ End >
199 
200                prevent_encumbrance_flag,
201                government_context,
202                destination_context,
203                distribution_num,
204                source_distribution_id,
205                project_id,
206                task_id,
207                expenditure_type,
208                project_accounting_context,
209                expenditure_organization_id,
210                gl_closed_date,
211                accrue_on_receipt_flag,
212                expenditure_item_date,
213                end_item_unit_number,
214                recovery_rate,
215                tax_recovery_override_flag,
216                award_id,
217                --togeorge 09/28/2000
218                --added  oke variables
219                oke_contract_line_id,
220                oke_contract_deliverable_id,
221                amount_ordered,  -- <SERVICES FPJ>
222                distribution_type,  -- <ENCUMBRANCE FPJ>
223                amount_to_encumber,  -- <ENCUMBRANCE FPJ>
224                Org_Id,             -- <R12 MOAC>
225                tax_attribute_update_code  --<eTax Integration R12>
226              )
227       VALUES (
228                X_Po_Distribution_Id,
229                X_Last_Update_Date,
230                X_Last_Updated_By,
231                X_Po_Header_Id,
232                X_Po_Line_Id,
233                X_Line_Location_Id,
234                X_Set_Of_Books_Id,
235                X_Code_Combination_Id,
236                X_Quantity_ordered,                -- Bug 3202973
237                X_Last_Update_Login,
238                X_Creation_Date,
239                X_Created_By,
240                X_Po_Release_Id,
241                -- X_Quantity_Delivered,
242                -- X_Quantity_Billed,
243                -- X_Quantity_Cancelled,
244                nvl(X_Quantity_delivered,0),       -- Bug: 1788262
245                nvl(X_Quantity_billed,0),          -- Bug: 1788262
249                X_Req_Distribution_Id,
246                nvl(X_Quantity_cancelled,0),       -- Bug: 1788262
247                X_Req_Header_Reference_Num,
248                X_Req_Line_Reference_Num,
250                X_Deliver_To_Location_Id,
251                X_Deliver_To_Person_Id,
252                X_Rate_Date,
253                X_Rate,
254                X_Amount_Billed,
255                X_Accrued_Flag,
256                X_Encumbered_Flag,
257                X_Encumbered_Amount,
258                X_Unencumbered_Quantity,
259                X_Unencumbered_Amount,
260                X_Failed_Funds_Lookup_Code,
261                X_Gl_Encumbered_Date,
262                X_Gl_Encumbered_Period_Name,
263                X_Gl_Cancelled_Date,
264                X_Destination_Type_Code,
265                X_Destination_Organization_Id,
266                X_Destination_Subinventory,
267                X_Attribute_Category,
268                X_Attribute1,
269                X_Attribute2,
270                X_Attribute3,
271                X_Attribute4,
272                X_Attribute5,
273                X_Attribute6,
274                X_Attribute7,
275                X_Attribute8,
276                X_Attribute9,
277                X_Attribute10,
278                X_Attribute11,
279                X_Attribute12,
280                X_Attribute13,
281                X_Attribute14,
282                X_Attribute15,
283                X_Wip_Entity_Id,
284                X_Wip_Operation_Seq_Num,
285                X_Wip_Resource_Seq_Num,
286                X_Wip_Repetitive_Schedule_Id,
287                X_Wip_Line_Id,
288                X_Bom_Resource_Id,
289                X_Budget_Account_Id,
290                X_Accrual_Account_Id,
291                X_Variance_Account_Id,
292 
293                --< Shared Proc FPJ Start >
294                p_dest_charge_account_id,
295                p_dest_variance_account_id,
296                --< Shared Proc FPJ End >
297 
298                X_Prevent_Encumbrance_Flag,
299                X_Government_Context,
300                X_Destination_Context,
301                X_Distribution_Num,
302                X_Source_Distribution_Id,
303                X_Project_Id,
304                X_Task_Id,
305                X_Expenditure_Type,
306                X_Project_Accounting_Context,
307                X_Expenditure_Organization_Id,
308                X_Gl_Closed_Date,
309                X_Accrue_On_Receipt_Flag,
310                X_Expenditure_Item_Date,
311                X_End_Item_Unit_Number,
312                X_Recovery_Rate,
313                X_Tax_Recovery_Override_Flag,
314                X_Award_id,
315                --togeorge 09/28/2000
316                --added  oke variables
317                X_oke_contract_line_id,
318                X_oke_contract_deliverable_id,
319                X_amount_ordered,  -- <SERVICES FPJ>
320                X_distribution_type,  -- <ENCUMBRANCE FPJ>
321                X_amount_to_encumber,  -- <ENCUMBRANCE FPJ>
322                p_org_id,             -- <R12 MOAC>
323                l_tax_attribute_update_code --<eTax Integration R12>
324              );
325 
326     OPEN C;
327     FETCH C INTO X_Rowid;
328     if (C%NOTFOUND) then
329       CLOSE C;
330       Raise NO_DATA_FOUND;
331     end if;
332     CLOSE C;
333 
334 END Insert_Row;
335 
336   PROCEDURE Update_Row(X_Rowid                          VARCHAR2,
337                        X_Po_Distribution_Id             NUMBER,
338                        X_Last_Update_Date               DATE,
339                        X_Last_Updated_By                NUMBER,
340                        X_Po_Header_Id                   NUMBER,
341                        X_Po_Line_Id                     NUMBER,
342                        X_Line_Location_Id               NUMBER,
343                        X_Set_Of_Books_Id                NUMBER,
344                        X_Code_Combination_Id            NUMBER,
345                        X_Quantity_Ordered               NUMBER,
346                        X_Last_Update_Login              NUMBER,
347                        X_Po_Release_Id                  NUMBER,
348                        X_Quantity_Delivered             NUMBER,
349                        X_Quantity_Billed                NUMBER,
350                        X_Quantity_Cancelled             NUMBER,
351                        X_Req_Header_Reference_Num       VARCHAR2,
352                        X_Req_Line_Reference_Num         VARCHAR2,
353                        X_Req_Distribution_Id            NUMBER,
354                        X_Deliver_To_Location_Id         NUMBER,
355                        X_Deliver_To_Person_Id           NUMBER,
356                        X_Rate_Date                      DATE,
357                        X_Rate                           NUMBER,
358                        X_Amount_Billed                  NUMBER,
359                        X_Accrued_Flag                   VARCHAR2,
360                        X_Encumbered_Flag                VARCHAR2,
361                        X_Encumbered_Amount              NUMBER,
362                        X_Unencumbered_Quantity          NUMBER,
363                        X_Unencumbered_Amount            NUMBER,
364                        X_Failed_Funds_Lookup_Code       VARCHAR2,
365                        X_Gl_Encumbered_Date             DATE,
366                        X_Gl_Encumbered_Period_Name      VARCHAR2,
367                        X_Gl_Cancelled_Date              DATE,
368                        X_Destination_Type_Code          VARCHAR2,
369                        X_Destination_Organization_Id    NUMBER,
370                        X_Destination_Subinventory       VARCHAR2,
371                        X_Attribute_Category             VARCHAR2,
375                        X_Attribute4                     VARCHAR2,
372                        X_Attribute1                     VARCHAR2,
373                        X_Attribute2                     VARCHAR2,
374                        X_Attribute3                     VARCHAR2,
376                        X_Attribute5                     VARCHAR2,
377                        X_Attribute6                     VARCHAR2,
378                        X_Attribute7                     VARCHAR2,
379                        X_Attribute8                     VARCHAR2,
380                        X_Attribute9                     VARCHAR2,
381                        X_Attribute10                    VARCHAR2,
382                        X_Attribute11                    VARCHAR2,
383                        X_Attribute12                    VARCHAR2,
384                        X_Attribute13                    VARCHAR2,
385                        X_Attribute14                    VARCHAR2,
386                        X_Attribute15                    VARCHAR2,
387                        X_Wip_Entity_Id                  NUMBER,
388                        X_Wip_Operation_Seq_Num          NUMBER,
389                        X_Wip_Resource_Seq_Num           NUMBER,
390                        X_Wip_Repetitive_Schedule_Id     NUMBER,
391                        X_Wip_Line_Id                    NUMBER,
392                        X_Bom_Resource_Id                NUMBER,
393                        X_Budget_Account_Id              NUMBER,
394                        X_Accrual_Account_Id             NUMBER,
395                        X_Variance_Account_Id            NUMBER,
396 
397                        --< Shared Proc FPJ Start >
398                        p_dest_charge_account_id           NUMBER,
399                        p_dest_variance_account_id         NUMBER,
400                        --< Shared Proc FPJ End >
401 
402                        X_Prevent_Encumbrance_Flag       VARCHAR2,
403                        X_Ussgl_Transaction_Code         VARCHAR2,
404                        X_Government_Context             VARCHAR2,
405                        X_Destination_Context            VARCHAR2,
406                        X_Distribution_Num               NUMBER,
407                        X_Source_Distribution_Id         NUMBER,
408                        X_Project_Id                     NUMBER,
409                        X_Task_Id                        NUMBER,
410                        X_Expenditure_Type               VARCHAR2,
411                        X_Project_Accounting_Context     VARCHAR2,
412                        X_Expenditure_Organization_Id    NUMBER,
413                        X_Gl_Closed_Date                 DATE,
414                        X_Accrue_On_Receipt_Flag         VARCHAR2,
415                        X_Expenditure_Item_Date          DATE,
416 		       X_need_to_approve        IN OUT NOCOPY  NUMBER,
417                        X_End_Item_Unit_Number           VARCHAR2 DEFAULT NULL,
418                        X_Recovery_Rate                 	NUMBER,
419                        X_Recoverable_Tax               	NUMBER,
420                        X_Nonrecoverable_Tax            	NUMBER,
421                        X_Tax_Recovery_Override_Flag    	VARCHAR2,
422 		       -- OGM_0.0 changes..
423 		       X_award_id			NUMBER DEFAULT NULL,
424 		       --togeorge 09/28/2000
425 		       --added  oke variables
426 		       X_oke_contract_line_id         IN NUMBER default null,
427 		       X_oke_contract_deliverable_id  IN NUMBER default null,
428                        X_amount_ordered               IN NUMBER default null,  -- <SERVICES FPJ>
429                        X_distribution_type            IN VARCHAR2 default null, -- <ENCUMBRANCE FPJ>
430                        X_amount_to_encumber           IN NUMBER default null    -- <ENCUMBRANCE FPJ>
431 ) IS
432 
433     l_tax_attribute_update_code PO_DISTRIBUTIONS_ALL.tax_attribute_update_code%type; --<eTax integration R12>
434 
435  BEGIN
436 
437 
438     --  Check if shipment needs to be unapproved.
439     /* passed two extra parameters into this function
440        Distribution_Num         - bug 1046786
441        Destination_Subinventory - bug 1001768 */
442 
443     X_need_to_approve := po_dist_s.val_approval_status(
444                                         X_Po_Distribution_Id,
445                                         X_Distribution_Num ,
446                                         X_Deliver_To_Person_Id,
447                                         X_Quantity_Ordered,
448                                         X_amount_ordered, -- Bug 5409088
449                                         X_Rate,
450                                         X_Rate_Date,
451                                         X_Gl_Encumbered_Date,
452                                         X_Code_Combination_Id,
453 					X_Project_Id  ,       -- Bug # 6408034
454                                         --< Shared Proc FPJ Start >
455                                         p_dest_charge_account_id,
456                                         --< Shared Proc FPJ End >
457 
458                                         X_Recovery_Rate,
459                                         X_Destination_Subinventory);
460 
461     --<eTax Integration R12 Start>
462     IF X_Distribution_Type IN ('STANDARD', 'PLANNED', 'BLANKET', 'SCHEDULED') AND
463       PO_TAX_INTERFACE_PVT.any_tax_attributes_updated(
464         p_doc_type     => 'PO',
465         p_doc_level    => 'DISTRIBUTION',
466         p_doc_level_id => X_Po_Distribution_Id,
467         p_ccid         => X_Code_Combination_Id,
468         p_tax_rec_rate => X_Recovery_Rate,
469         p_project      => X_Project_Id,
470         p_task         => X_Task_Id,
471         p_award        => X_award_id,
472         p_exp_type     => X_Expenditure_Type,
473         p_exp_org      => X_Expenditure_Organization_Id,
474         p_exp_date     => X_Expenditure_Item_Date,
475         p_dist_quantity_ordered => X_Quantity_Ordered,
479     END IF;
476         p_dist_amount_ordered => X_amount_ordered
477       ) THEN
478           l_tax_attribute_update_code := 'UPDATE';
480     --<eTax Integration R12 End>
481 
482    UPDATE PO_DISTRIBUTIONS
483    SET
484      po_distribution_id                =     X_Po_Distribution_Id,
485      last_update_date                  =     X_Last_Update_Date,
486      last_updated_by                   =     X_Last_Updated_By,
487      po_header_id                      =     X_Po_Header_Id,
488      po_line_id                        =     X_Po_Line_Id,
489      line_location_id                  =     X_Line_Location_Id,
490      set_of_books_id                   =     X_Set_Of_Books_Id,
491      code_combination_id               =     X_Code_Combination_Id,
492      quantity_ordered                  =     X_Quantity_Ordered,
493      last_update_login                 =     X_Last_Update_Login,
494      po_release_id                     =     X_Po_Release_Id,
495      quantity_delivered                =     X_Quantity_Delivered,
496      quantity_billed                   =     X_Quantity_Billed,
497      quantity_cancelled                =     X_Quantity_Cancelled,
498      req_header_reference_num          =     X_Req_Header_Reference_Num,
499      req_line_reference_num            =     X_Req_Line_Reference_Num,
500      req_distribution_id               =     X_Req_Distribution_Id,
501      deliver_to_location_id            =     X_Deliver_To_Location_Id,
502      deliver_to_person_id              =     X_Deliver_To_Person_Id,
503      rate_date                         =     X_Rate_Date,
504      rate                              =     X_Rate,
505      amount_billed                     =     X_Amount_Billed,
506      accrued_flag                      =     X_Accrued_Flag,
507      encumbered_flag                   =     X_Encumbered_Flag,
508      encumbered_amount                 =     X_Encumbered_Amount,
509      unencumbered_quantity             =     X_Unencumbered_Quantity,
510      unencumbered_amount               =     X_Unencumbered_Amount,
511      failed_funds_lookup_code          =     X_Failed_Funds_Lookup_Code,
512      gl_encumbered_date                =     X_Gl_Encumbered_Date,
513      gl_encumbered_period_name         =     X_Gl_Encumbered_Period_Name,
514      gl_cancelled_date                 =     X_Gl_Cancelled_Date,
515      destination_type_code             =     X_Destination_Type_Code,
516      destination_organization_id       =     X_Destination_Organization_Id,
517      destination_subinventory          =     X_Destination_Subinventory,
518      attribute_category                =     X_Attribute_Category,
519      attribute1                        =     X_Attribute1,
520      attribute2                        =     X_Attribute2,
521      attribute3                        =     X_Attribute3,
522      attribute4                        =     X_Attribute4,
523      attribute5                        =     X_Attribute5,
524      attribute6                        =     X_Attribute6,
525      attribute7                        =     X_Attribute7,
526      attribute8                        =     X_Attribute8,
527      attribute9                        =     X_Attribute9,
528      attribute10                       =     X_Attribute10,
529      attribute11                       =     X_Attribute11,
530      attribute12                       =     X_Attribute12,
531      attribute13                       =     X_Attribute13,
532      attribute14                       =     X_Attribute14,
533      attribute15                       =     X_Attribute15,
534      wip_entity_id                     =     X_Wip_Entity_Id,
535      wip_operation_seq_num             =     X_Wip_Operation_Seq_Num,
536      wip_resource_seq_num              =     X_Wip_Resource_Seq_Num,
537      wip_repetitive_schedule_id        =     X_Wip_Repetitive_Schedule_Id,
538      wip_line_id                       =     X_Wip_Line_Id,
539      bom_resource_id                   =     X_Bom_Resource_Id,
540      budget_account_id                 =     X_Budget_Account_Id,
541      accrual_account_id                =     X_Accrual_Account_Id,
542      variance_account_id               =     X_Variance_Account_Id,
543 
544      --< Shared Proc FPJ Start >
545      dest_charge_account_id            =     p_dest_charge_account_id,
546      dest_variance_account_id          =     p_dest_variance_account_id,
547      --< Shared Proc FPJ End >
548 
549      prevent_encumbrance_flag          =     X_Prevent_Encumbrance_Flag,
550      government_context                =     X_Government_Context,
551      destination_context               =     X_Destination_Context,
552      distribution_num                  =     X_Distribution_Num,
553      source_distribution_id            =     X_Source_Distribution_Id,
554      project_id                        =     X_Project_Id,
555      task_id                           =     X_Task_Id,
556      expenditure_type                  =     X_Expenditure_Type,
557      project_accounting_context        =     X_Project_Accounting_Context,
558      expenditure_organization_id       =     X_Expenditure_Organization_Id,
559      gl_closed_date                    =     X_Gl_Closed_Date,
560      accrue_on_receipt_flag            =     X_Accrue_On_Receipt_Flag,
561      expenditure_item_date             =     X_Expenditure_Item_Date,
562      end_item_unit_number              =     X_End_Item_Unit_Number,
563      recovery_rate                     =     X_Recovery_Rate,
564      tax_recovery_override_flag	       =     X_Tax_Recovery_Override_Flag,
565      award_id			       =     X_award_id, -- OGM_0.0 changes...
566      --togeorge 09/28/2000
567      --added  oke variables
568      oke_contract_line_id  	       =     X_oke_contract_line_id,
569      oke_contract_deliverable_id       =     X_oke_contract_deliverable_id,
570      amount_ordered                    =     X_amount_ordered,   -- <SERVICES FPJ>
571      distribution_type                 =     X_distribution_type, -- <ENCUMBRANCE FPJ>
572      amount_to_encumber                =     X_amount_to_encumber,  -- <ENCUMBRANCE FPJ>
576 
573      tax_attribute_update_code         =     NVL(tax_attribute_update_code, --<eTax Integration R12>
574                                                  l_tax_attribute_update_code)
575    WHERE rowid = X_rowid;
577     if (SQL%NOTFOUND) then
578       Raise NO_DATA_FOUND;
579     end if;
580 
581 END Update_Row;
582 
583 END PO_DISTRIBUTIONS_PKG1;