1: PACKAGE BODY GMIVDX AS
2: /* $Header: GMIVDXB.pls 120.6 2011/11/04 17:04:42 asatpute ship $
3: +==========================================================================+
4: | Copyright (c) 1998 Oracle Corporation |
5: | Redwood Shores, CA, USA |
1: PACKAGE BODY GMIVDX AS
2: /* $Header: GMIVDXB.pls 120.6 2011/11/04 17:04:42 asatpute ship $
3: +==========================================================================+
4: | Copyright (c) 1998 Oracle Corporation |
5: | Redwood Shores, CA, USA |
6: | All rights reserved. |
5: | Redwood Shores, CA, USA |
6: | All rights reserved. |
7: +==========================================================================+
8: | FILE NAME |
9: | GMIVDXB.pls |
10: | |
11: | PACKAGE NAME |
12: | GMIVDX |
13: | TYPE |
8: | FILE NAME |
9: | GMIVDXB.pls |
10: | |
11: | PACKAGE NAME |
12: | GMIVDX |
13: | TYPE |
14: | Private |
15: | |
16: | DESCRIPTION |
31:
32: PROCEDURE log_msg(p_msg_text IN VARCHAR2);
33:
34: /* Global variables */
35: G_PKG_NAME CONSTANT VARCHAR2(30):='GMIVDX';
36: G_tmp BOOLEAN := FND_MSG_PUB.Check_Msg_Level(0) ; -- temp call to initialize the
37: -- msg level threshhold gobal
38: -- variable.
39: G_debug_level NUMBER(2) := FND_MSG_PUB.G_Msg_Level_Threshold; -- Use this variable everywhere
72: )
73: IS
74: l_api_name CONSTANT VARCHAR2(30) := 'Create_transfer_pvt' ;
75: l_api_version CONSTANT NUMBER := 1.0 ;
76: l_hdr_rec GMIVDX.hdr_type;
77: l_line_rec_tbl GMIVDX.line_type_tbl;
78: l_lot_rec_tbl GMIVDX.lot_type_tbl;
79:
80: BEGIN
73: IS
74: l_api_name CONSTANT VARCHAR2(30) := 'Create_transfer_pvt' ;
75: l_api_version CONSTANT NUMBER := 1.0 ;
76: l_hdr_rec GMIVDX.hdr_type;
77: l_line_rec_tbl GMIVDX.line_type_tbl;
78: l_lot_rec_tbl GMIVDX.lot_type_tbl;
79:
80: BEGIN
81:
74: l_api_name CONSTANT VARCHAR2(30) := 'Create_transfer_pvt' ;
75: l_api_version CONSTANT NUMBER := 1.0 ;
76: l_hdr_rec GMIVDX.hdr_type;
77: l_line_rec_tbl GMIVDX.line_type_tbl;
78: l_lot_rec_tbl GMIVDX.lot_type_tbl;
79:
80: BEGIN
81:
82: IF FND_API.to_boolean(p_init_msg_list) THEN
1958: FND_MSG_PUB.Add;
1959:
1960: END log_msg ;
1961:
1962: END GMIVDX;