[Home] [Help]
PACKAGE: APPS.PO_MGD_EURO_REPORT_GEN
Source
1 PACKAGE PO_MGD_EURO_REPORT_GEN AUTHID CURRENT_USER AS
2 /* $Header: POXREURS.pls 115.8 2002/11/23 02:06:05 sbull ship $ */
3
4 /*+=======================================================================+
5 --| Copyright (c) 1999 Oracle Corporation |
6 --| Redwood Shores, CA, USA |
7 --| All rights reserved. |
8 --+=======================================================================+
9 --| FILENAME |
10 --| POXREURS.pls |
11 --| |
12 --| DESCRIPTION |
13 --| Use this package to generate output report for Euro conversion |
14 --| |
15 --| HISTORY |
16 --| 10/21/1999 tsimmond Created |
17 --| 03/14/2000 tsimmond Updated |
18 --| 10/31/2001 vto 2040015: Modified log message levels |
19 --| substr FND_MESSAGES to prevent errors |
20 --| when the message is too long for print |
21 --| 11/28/2001 tsimmond updated, added dbrv and set verify off |
22 --+======================================================================*/
23
24
25
26
27 --===================
28 -- CONSTANTS
29 --===================
30 G_OBJECT_TYPE_VENDOR CONSTANT VARCHAR2(60):=SUBSTRB(FND_MESSAGE.get_string
31 ('PO','PO_EUR_REPORT_OBJECT_VENDOR'),1,60);
32 G_OBJECT_TYPE_VSITE CONSTANT VARCHAR2(60):=SUBSTRB(FND_MESSAGE.get_string
33 ('PO','PO_EUR_REPORT_OBJECT_SITE'),1,60);
34 G_OBJECT_TYPE_VBANK CONSTANT VARCHAR2(60):=SUBSTRB(FND_MESSAGE.get_string
35 ('PO','PO_EUR_REPORT_OBJECT_BANK'),1,60);
36 G_OBJECT_TYPE_PO CONSTANT VARCHAR2(60):=SUBSTRB(FND_MESSAGE.get_string
37 ('PO','PO_EUR_REPORT_OBJECT_PO'),1,60);
38 --
39 G_ACTION_CONV CONSTANT VARCHAR2(15):=SUBSTRB(FND_MESSAGE.get_string
40 ('PO','PO_EUR_REPORT_ACTION_CONV'),1,15);
41 G_ACTION_IGNORE CONSTANT VARCHAR2(15):=SUBSTRB(FND_MESSAGE.get_string
42 ('PO','PO_EUR_REPORT_ACTION_IGNORE'),1,15);
43 G_ACTION_COPY CONSTANT VARCHAR2(15):=SUBSTRB(FND_MESSAGE.get_string
44 ('PO','PO_EUR_REPORT_ACTION_COPY'),1,15);
45 --2040015
46 --Changed length to 40 since this is the max length for the output. NLS value might be too long to
47 --fit so truncating it.
48
49 G_REASON_EURO CONSTANT VARCHAR2(40):=SUBSTRB(FND_MESSAGE.get_string
50 ('PO','PO_EUR_REPORT_REASON_EURO'),1,40);
51 G_REASON_PARTIAL CONSTANT VARCHAR2(40):=SUBSTRB(FND_MESSAGE.get_string
52 ('PO','PO_EUR_REPORT_REASON_PARTIAL'),1,40);
53 G_REASON_MANUAL CONSTANT VARCHAR2(40):=SUBSTRB(FND_MESSAGE.get_string
54 ('PO','PO_EUR_REPORT_REASON_MANUAL'),1,40);
55 G_REASON_CONTRACT CONSTANT VARCHAR2(40):=SUBSTRB(FND_MESSAGE.get_string
56 ('PO','PO_EUR_REPORT_REASON_CONTR'),1,40);
57 G_REASON_IN_PLACE CONSTANT VARCHAR2(40):=SUBSTRB(FND_MESSAGE.get_string
58 ('PO','PO_EUR_REPORT_REASON_IN_PLACE'),1,40);
59 G_REASON_SHORT CONSTANT VARCHAR2(40):=SUBSTRB(FND_MESSAGE.get_string
60 ('PO','PO_EUR_REPORT_REASON_SHORT'),1,40);
61 G_REASON_NOTHING CONSTANT VARCHAR2(40):=SUBSTRB(FND_MESSAGE.get_string
62 ('PO','PO_EUR_REPORT_REASON_NOTHING'),1,40);
63 G_REASON_DIF_CUR CONSTANT VARCHAR2(40):=SUBSTRB(FND_MESSAGE.get_string
64 ('PO','PO_EUR_REPORT_REASON_DIF_CUR'),1,40);
65 G_REASON_EMU CONSTANT VARCHAR2(40):=SUBSTRB(FND_MESSAGE.get_string
66 ('PO','PO_EUR_REPORT_REASON_EMU'),1,40);
67 G_REASON_DR_SHIP CONSTANT VARCHAR2(40):=SUBSTRB(FND_MESSAGE.get_string
68 ('PO','PO_EUR_REPORT_REASON_DR_SHIP'),1,40);
69 G_REASON_ENC_ON CONSTANT VARCHAR2(40):=SUBSTRB(FND_MESSAGE.get_string
70 ('PO','PO_EUR_REPORT_REASON_ENC_ON'),1,40);
71 G_REASON_PROJECT CONSTANT VARCHAR2(40):=SUBSTRB(FND_MESSAGE.get_string
72 ('PO','PO_EUR_REPORT_REASON_PROJECT'),1,40);
73 G_REASON_RATE CONSTANT VARCHAR2(40):=SUBSTRB(FND_MESSAGE.get_string
74 ('PO','PO_EUR_REPORT_REASON_RATE'),1,40);
75 G_REASON_MAN_NUM CONSTANT VARCHAR2(40):=SUBSTRB(FND_MESSAGE.get_string
76 ('PO','PO_EUR_REPORT_REASON_MAN_NUM'),1,40);
77 --
78 G_RPT_PAGE_COL CONSTANT INTEGER :=130;
79 G_FORMAT_SPACE CONSTANT INTEGER :=2;
80 --
81 G_LOG_ERROR CONSTANT NUMBER := 1;
82 G_LOG_EXCEPTION CONSTANT NUMBER := 2;
83 G_LOG_EVENT CONSTANT NUMBER := 3;
84 G_LOG_PROCEDURE CONSTANT NUMBER := 4;
85 G_LOG_STATEMENT CONSTANT NUMBER := 5;
86
87
88 --===================
89 -- PROCEDURE : Initialize PUBLIC
90 -- PARAMETERS:
91 -- COMMENT : This is the procedure to initialize pls/sql tables
92 -- for recording action information of vendor conversion.
93 --===================
94 PROCEDURE Initialize;
95
96
97 --========================================================================
98 -- PROCEDURE : Log PUBLIC
99 -- PARAMETERS: p_level IN priority of the message -
100 -- from highest to lowest:
101 -- G_LOG_ERROR
102 -- G_LOG_EXCEPTION
103 -- G_LOG_EVENT
104 -- G_LOG_PROCEDURE
105 -- G_LOG_STATEMENT
106 -- p_msg IN message to be print on the log file
107 -- COMMENT : Add an entry to the log
108 --=======================================================================--
109 PROCEDURE Log
110 ( p_priority IN NUMBER
111 , p_msg IN VARCHAR2
112 );
113
114
115 --===================
116 -- PROCEDURE : Add_Item PUBLIC
117 -- PARAMETERS: p_object_type converted object
118 -- p_action_code convert,ignore,copy
119 -- p_object_ref name of the converted object
120 -- p_copy_object_ref name of the new object after convertion
121 -- p_reason_code why object wasn't converted
122 -- COMMENT : This is the procedure to record action information.
123 --====================
124 PROCEDURE Add_Item
125 ( p_object_type IN VARCHAR2
126 , p_action_code IN VARCHAR2
127 , p_object_ref IN VARCHAR2
128 , p_copy_object_ref IN VARCHAR2 DEFAULT NULL
129 , p_reason_code IN VARCHAR2 DEFAULT NULL
130 );
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
162
163 END PO_MGD_EURO_REPORT_GEN;