[Home] [Help]
2: /* $Header: GMIPMSCB.pls 120.0 2005/05/25 16:12:20 appldev noship $ */
3:
4:
5: --- For GTIN support
6: g_gtin_cross_ref_type VARCHAR2(25) := fnd_profile.value('INV:GTIN_CROSS_REFERENCE_TYPE');
7: g_gtin_code_length NUMBER := 14;
8:
9:
10: -- PL/SQL package to support Java MSCA for GMI
9:
10: -- PL/SQL package to support Java MSCA for GMI
11: PROCEDURE print_debug( p_message IN VARCHAR2)
12: IS
13: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
14: BEGIN
15: inv_log_util.TRACE(p_message, 'Mobile GMI', 9);
16: -- dbms_output.put_line(p_message);
17: END print_debug;
129: OPEN x_loct_cursor FOR
130: SELECT location, loct_desc, whse_code
131: FROM ic_loct_mst
132: WHERE whse_code LIKE p_whse_code
133: AND location <> FND_PROFILE.VALUE('IC$DEFAULT_LOCT')
134: AND location LIKE p_loct
135: AND delete_mark = 0
136: UNION
137: SELECT l.location, null, l.whse_code
249: OPEN x_reason_cursor FOR
250: SELECT reason_code, reason_desc1, reason_type
251: FROM sy_reas_cds
252: WHERE delete_mark = 0
253: AND ((NVL(FND_PROFILE.VALUE('GMA_REASON_CODE_SECURITY'), 'N') = 'N'
254: OR reason_code IN (SELECT reason_code FROM gma_reason_code_security
255: WHERE (doc_type = p_doc_type or doc_type IS NULL)
256: AND (responsibility_id = FND_GLOBAL.RESP_id OR responsibility_id IS NULL)) ) )
257: AND reason_code LIKE UPPER(p_reason)
449: OPEN x_loct_cursor FOR
450: SELECT location, loct_desc, whse_code
451: FROM ic_loct_mst
452: WHERE whse_code LIKE p_whse_code
453: AND location <> FND_PROFILE.VALUE('IC$DEFAULT_LOCT')
454: AND location LIKE p_loct
455: AND ( (location <> p_from_loct AND whse_code = p_from_whse)
456: OR (whse_code <> p_from_whse) )
457: AND delete_mark = 0