[Home] [Help]
PACKAGE BODY: APPS.PO_MGD_EURO_REPORT_GEN
Source
1 PACKAGE BODY PO_MGD_EURO_REPORT_GEN AS
2 /* $Header: POXREURB.pls 115.12 2002/11/23 02:07:42 sbull ship $ */
3
4 /*+=======================================================================+
5 --| Copyright (c) 1999 Oracle Corporation |
6 --| Redwood Shores, CA, USA |
7 --| All rights reserved. |
8 --+=======================================================================+
9 --| FILENAME |
10 --| POXREURB.pls |
11 --| |
12 --| DESCRIPTION |
13 --| Use this package to generate output report for Euro conversion |
14 --| |
15 --| PROCEDURE LIST |
16 --| Initialize |
17 --| Log |
18 --| Add_Item |
19 --| Generate_Report |
20 --| |
21 --| HISTORY |
22 --| 10/21/99 tsimmond Created |
23 --| 01/24/2000 tsimmond Updated |
24 --| 02/13/2001 tsimmond Updated |
25 --| 11/28/2001 tsimmond updated, added dbrv and set verify off |
26 --| 03/25/2002 tsimmond updated, code removed for patch 'H' remove |
27 --+======================================================================*/
28 --===================
29 -- COMMENT : PL/SQL Table definition. This table will be used to record
30 -- log information.
31 --===================
32 TYPE EURO_REPORT_REC IS RECORD
33 ( action VARCHAR2(15)
34 , object_ref VARCHAR2(30)
35 , copy_object_ref VARCHAR2(30)
36 , reason VARCHAR2(40)
37 );
38
39
40 TYPE EURO_REPORT_TABLE IS TABLE OF EURO_REPORT_REC
41 INDEX BY BINARY_INTEGER;
42
43
44 --===================
45 -- CONSTANTS
46 --===================
47 G_PKG_NAME CONSTANT VARCHAR2(30) := 'PO_MGD_EURO_REPORT_GEN';
48
49
50 --===================
51 -- PUBLIC VARIABLES
52 --===================
53 g_program_type VARCHAR2(30);
54 g_rec_no NUMBER:=0;
55
56 -- BUG 2040015
57 g_mode VARCHAR2(15);
58 g_log_level NUMBER := 5 ;
59 g_log_mode VARCHAR2(240) :=
60 NVL(FND_PROFILE.VALUE('PO_SET_DEBUG_CONCURRENT_ON'),'N') ;
61
62 g_vendor_table PO_MGD_EURO_REPORT_GEN.EURO_REPORT_TABLE;
63 g_ven_site_table PO_MGD_EURO_REPORT_GEN.EURO_REPORT_TABLE;
64 g_ven_bank_table PO_MGD_EURO_REPORT_GEN.EURO_REPORT_TABLE;
65 g_po_table PO_MGD_EURO_REPORT_GEN.EURO_REPORT_TABLE;
66
67 --===================
68 -- PRIVATE PROCEDURES AND FUNCTIONS
69 --===================
70
71 --===================
72 -- PROCEDURE : Initialize PUBLIC
73 -- PARAMETERS:
74 -- COMMENT : This is the procedure to initialize pls/sql tables
75 -- for recording action information of vendor conversion.
76 --===================
77 PROCEDURE Initialize
78 IS
79 BEGIN
80
81 NULL;
82
83 END Initialize;
84
85 --========================================================================
86 -- PROCEDURE : Log PUBLIC
87 -- PARAMETERS: p_level IN priority of the message -
88 -- from highest to lowest:
89 -- G_LOG_ERROR
90 -- G_LOG_EXCEPTION
91 -- G_LOG_EVENT
92 -- G_LOG_PROCEDURE
93 -- G_LOG_STATEMENT
94 -- p_msg IN message to be print on the log file
95 -- COMMENT : Add an entry to the log
96 --=======================================================================--
97 PROCEDURE Log
98 ( p_priority IN NUMBER
99 , p_msg IN VARCHAR2
100 )
101 IS
102 BEGIN
103
104 NULL;
105
106 END Log;
107
108
109 --===================
110 -- PROCEDURE : Add_Item PUBLIC
111 -- PARAMETERS: p_object_type converted object
112 -- p_action_code convert,ignore,copy
113 -- p_object_ref name of the converted object
114 -- p_copy_object_ref name of the new object after convertion
115 -- p_reason_code why object wasn't converted
116 -- COMMENT : This is the procedure to record action information.
117 --====================
118 PROCEDURE Add_Item
119 ( p_object_type IN VARCHAR2
120 , p_action_code IN VARCHAR2
121 , p_object_ref IN VARCHAR2
122 , p_copy_object_ref IN VARCHAR2 DEFAULT NULL
123 , p_reason_code IN VARCHAR2 DEFAULT NULL
124 )
125 IS
126 BEGIN
127
128 NULL;
129
130 END Add_Item;
131
132
133 --====================
134 -- PROCEDURE : Generate_Report PUBLIC
135 -- PARAMETERS: p_vendor_id Supplier ID
136 -- p_vendor_site_code Supplier Site ID
137 -- p_site_conversion_ncu supplier site initial currency
138 -- p_convert_standard_flag Y/N convert Standard POs?
139 -- p_convert_blanket_flag Y/N convert Blanket POs?
140 -- p_convert_planned_flag Y/N convert Planned POs?
141 -- p_convert_contract_flag Y/N convert Contract POs?
142 -- p_po_conversion_ncu PO initial currency
143 -- p_conv_partial Indicates if partially transacted
144 -- PO need to be converted
145 -- p_upd_db_flag Y/N update db with supplier conversion?
146 --
147 -- COMMENT : This is the procedure to print action information.
148 --====================
149 PROCEDURE Generate_Report
150 ( p_vendor_id IN NUMBER
151 , p_vendor_site_id IN NUMBER DEFAULT NULL
152 , p_vsite_conversion_ncu IN VARCHAR2 DEFAULT NULL
153 , p_convert_standard_flag IN VARCHAR2 DEFAULT 'N'
154 , p_convert_blanket_flag IN VARCHAR2 DEFAULT 'N'
155 , p_convert_planned_flag IN VARCHAR2 DEFAULT 'N'
156 , p_convert_contract_flag IN VARCHAR2 DEFAULT 'N'
157 , p_po_conversion_ncu IN VARCHAR2 DEFAULT NULL
158 , p_conv_partial IN VARCHAR2 DEFAULT 'N'
159 , p_upd_db_flag IN VARCHAR2 DEFAULT 'N'
160 )
161 IS
162 BEGIN
163
164 NULL;
165
166 END Generate_Report;
167
168
169 END PO_MGD_EURO_REPORT_GEN;