[Home] [Help]
PACKAGE BODY: APPS.JG_GLOBE_UTIL_PKG
Source
1 PACKAGE BODY jg_globe_util_pkg AS
2 /* $Header: jggutilb.pls 120.4 2010/11/02 10:10:47 mbarrett noship $ */
3
4 l_line VARCHAR2 (1999);
5 pg_debug_level NUMBER;
6
7 -- A procedure to process Globe events from ICX
8 -- A procedure to process Globe events from ICX
9 FUNCTION process_icx_line_globe_event (
10 p_org_id IN NUMBER,
11 p_item_id IN NUMBER,
12 p_deliver_to_org_id IN NUMBER
13 )
14 RETURN VARCHAR2
15 IS
16 -- Bug 10226487 Start
17 l_txn_reason_code VARCHAR2 (80);
18 -- Bug 10226487 End
19 BEGIN
20 DEBUG ('Entered process_icx_line_globe_event');
21 DEBUG (p_org_id);
22 DEBUG (p_item_id);
23 DEBUG (p_deliver_to_org_id);
24 DEBUG (l_txn_reason_code);
25
26 IF jg_zz_shared_pkg.get_product (p_org_id, NULL) = 'JL'
27 THEN
28 DEBUG ('Calling JL hook');
29
30 SELECT jl_globe_util_pkg.populate_icx_trx_reason_code
31 (p_org_id,
32 p_item_id,
33 p_deliver_to_org_id
34 )
35 INTO l_txn_reason_code
36 FROM DUAL;
37
38 DEBUG ('Returned from JL hook' || l_txn_reason_code);
39 ELSE
40 NULL;
41 END IF;
42
43 -- Bug 10226487 Start
44 RETURN l_txn_reason_code;
45 -- Bug 10226487 End
46 EXCEPTION
47 WHEN OTHERS
48 THEN
49 DEBUG ('Error Code' || SQLCODE);
50 DEBUG ('Error Message' || SQLERRM);
51 -- Bug 10226487 Start
52 RETURN NULL;
53 -- Bug 10226487 End
54 END process_icx_line_globe_event;
55
56 -- A procedure to process Globe events from PO
57 PROCEDURE process_po_globe_event (
58 p_document_type IN VARCHAR2,
59 p_level_type IN VARCHAR2,
60 p_level_id IN NUMBER
61 )
62 IS
63 l_country_code VARCHAR2 (10);
64 l_org_id NUMBER;
65 l_transaction_reason_code VARCHAR2 (30);
66 BEGIN
67 SELECT org_id
68 INTO l_org_id
69 FROM po_lines_all
70 WHERE po_line_id = p_level_id;
71
72 DEBUG (p_document_type);
73 DEBUG (p_level_type);
74 DEBUG (p_level_id);
75 DEBUG (l_org_id);
76
77 IF jg_zz_shared_pkg.get_product (l_org_id, NULL) = 'JL'
78 THEN
79 IF p_document_type IN ('STANDARD', 'BLANKET')
80 AND p_level_type = 'LINE'
81 THEN
82 SELECT transaction_reason_code
83 INTO l_transaction_reason_code
84 FROM po_lines_all
85 WHERE po_line_id = p_level_id;
86
87 DEBUG ('Transaction Reason Code' || l_transaction_reason_code);
88
89 -- If RFQ is created from Requistion, this defaulting is not needed,
90 -- and the PO will get transaction reason that got defaulted in RFQ.
91 IF l_transaction_reason_code IS NULL
92 THEN
93 DEBUG ('Calling JL hook');
94 jl_globe_util_pkg.populate_po_trx_reason_code (p_level_id,
95 l_org_id
96 );
97 DEBUG ('Returned from JL hook');
98 END IF;
99 END IF;
100 ELSE
101 NULL;
102 END IF;
103 EXCEPTION
104 WHEN OTHERS
105 THEN
106 DEBUG (SQLCODE);
107 DEBUG (SQLERRM);
108 END process_po_globe_event;
109
110 /* ---------------------------------------------------------------------*
111 |Public Procedure |
112 | debug Write the text message in log file |
113 | if the debug is set "Yes". |
114 | Description This procedure will generate the standard debug |
115 | information in to the log file.User can open the |
116 | log file <user name.log> at specified location. |
117 | |
118 | Requires |
119 | p_line The line of debug messages that will be writen |
120 | in the log file. |
121 | Exception Raised |
122 | |
123 | Known Bugs |
124 | |
125 | Notes |
126 | |
127 | History |
128 | |
129 *-----------------------------------------------------------------------*/
130 PROCEDURE DEBUG (p_line IN VARCHAR2)
131 IS
132 p_module_name VARCHAR2 (50);
133 g_log_statement_level NUMBER;
134 g_current_runtime_level NUMBER;
135 g_level_event CONSTANT NUMBER := fnd_log.level_event;
136 g_level_exception CONSTANT NUMBER := fnd_log.level_exception;
137 g_level_unexpected CONSTANT NUMBER := fnd_log.level_unexpected;
138 BEGIN
139 p_module_name := 'JG: Globe Util';
140 g_log_statement_level := fnd_log.level_statement;
141 pg_debug_level := fnd_log.level_procedure;
142 g_current_runtime_level := fnd_log.g_current_runtime_level;
143
144 IF (g_log_statement_level >= g_current_runtime_level)
145 THEN
146 IF LENGTHB (p_line) > 1999
147 THEN
148 l_line := SUBSTRB (p_line, 1, 1999);
149 ELSE
150 l_line := p_line;
151 END IF;
152
153 fnd_log.STRING (log_level => g_log_statement_level,
154 module => p_module_name,
155 MESSAGE => l_line
156 );
157 END IF;
158 EXCEPTION
159 WHEN OTHERS
160 THEN
161 IF (g_level_unexpected >= g_current_runtime_level)
162 THEN
163 fnd_log.STRING
164 (log_level => fnd_log.level_unexpected,
165 module => p_module_name,
166 MESSAGE => 'Unexpected Error When Logging Debug Messages.'
167 );
168 END IF;
169 END DEBUG;
170 END;
171