[Home] [Help]
PACKAGE BODY: APPS.PO_COPYDOC_S6
Source
1 PACKAGE BODY po_copydoc_s6 AS
2 /* $Header: POXCPO6B.pls 120.1 2005/06/03 05:07:18 appldev $*/
3
4
5 PROCEDURE validate_ussgl_trx_code(
6 x_ussgl_transaction_code IN OUT NOCOPY VARCHAR2,
7 x_sob_id IN financials_system_parameters.set_of_books_id%TYPE,
8 x_online_report_id IN po_online_report_text.online_report_id%TYPE,
9 x_sequence IN OUT NOCOPY po_online_report_text.sequence%TYPE,
10 x_line_num IN po_online_report_text.line_num%TYPE,
11 x_shipment_num IN po_online_report_text.shipment_num%TYPE,
12 x_distribution_num IN po_online_report_text.distribution_num%TYPE,
13 x_return_code OUT NOCOPY NUMBER
14 ) IS
15
16 x_progress VARCHAR2(4);
17 x_valid_flag VARCHAR2(2);
18
19 BEGIN
20 /* R12 SLA : Will always return true. This function should not be used */
21 x_progress := '001';
22 x_return_code := 0;
23 RETURN;
24
25 END validate_ussgl_trx_code;
26
27 /*************************************************************************
28 PROCEDURE insert_rfq_vendors()
29 used in blanket to RFQ copy - dreddy 1388111
30 **************************************************************************/
31
32 PROCEDURE insert_rfq_vendors(x_po_header_id IN NUMBER,
33 x_po_vendor_id IN NUMBER,
34 x_po_vendor_site_id IN NUMBER,
35 x_po_vendor_contact_Id IN NUMBER
36 ) IS
37
38 BEGIN
39 INSERT INTO PO_RFQ_VENDORS(
40 po_header_id,
41 sequence_num,
42 last_update_date,
43 last_updated_by,
44 last_update_login,
45 creation_date,
46 created_by,
47 vendor_id,
48 vendor_site_id,
49 vendor_contact_id,
50 print_flag,
51 print_count,
52 printed_date,
53 attribute_category,
54 attribute1,
55 attribute2,
56 attribute3,
57 attribute4,
58 attribute5,
59 attribute6,
60 attribute7,
61 attribute8,
62 attribute9,
63 attribute10,
64 attribute11,
65 attribute12,
66 attribute13,
67 attribute14,
68 attribute15
69 ) VALUES ( x_po_header_id,
70 1,
71 sysdate,
72 fnd_global.user_id,
73 fnd_global.login_id,
74 sysdate,
75 fnd_global.user_id,
76 x_po_vendor_id,
77 x_po_vendor_site_id,
78 x_po_vendor_contact_Id,
79 'Y',
80 null,
81 null,
82 null,
83 null,
84 null,
85 null,
86 null,
87 null,
88 null,
89 null,
90 null,
91 null,
92 null,
93 null,
94 null,
95 null,
96 null,
97 null);
98 EXCEPTION
99 WHEN OTHERS THEN
100 null;
101 END insert_rfq_vendors;
102
103 END po_copydoc_s6;
104