1 PACKAGE INV_GMI_RSV_BRANCH AUTHID CURRENT_USER AS
2 -- $Header: INVGGMIS.pls 120.1 2005/06/11 13:34:43 appldev $
3 --+=========================================================================+
4 --| Copyright (c) 2000 Oracle Corporation |
5 --| TVP, Reading, England |
6 --| All rights reserved |
7 --+=========================================================================+
8 --| FILENAME |
9 --| INVGGMIS.pls |
10 --| |
11 --| DESCRIPTION |
12 --| This package contains Global procedures relating to Branching |
13 --| Logic that will allow the code to call PROCESS Inventory ( GMI) |
14 --| Instead Of DISCRETE Inventory (INV). |
15 --| |
16 --| HISTORY |
17 --| 14-FEB-2000 H.Verdding Created |
18 --| |
19 --+=========================================================================+
20 -- API Name : INV_GMI_RSV_BRANCH
21 -- Type : Global
22 -- Function : This package contains Global procedures used to Branch code
23 -- From Within Discrete Inventory (INV) to Process Inventory
24 --- (GMI).
25 -- Pre-reqs : N/A
26 -- Parameters: Per function
27 --
28 -- Current Vers : 1.0
29 --
30 --
31
32 -- This is a global cursor defination used
33 -- for checking existance of OPM Inventory Organization
34
35 Cursor Cur_get_aprocess_org
36 ( p_organization_id IN NUMBER)
37 IS
38 SELECT p.organization_id,
39 w.whse_code,
40 s.co_code,
41 s.orgn_code
42 FROM mtl_parameters p,
43 ic_whse_mst w,
44 sy_orgn_mst s
45 WHERE
46 w.mtl_organization_id = p.organization_id
47 AND p.ORGANIZATION_ID = p_organization_id
48 AND s.orgn_code = w.orgn_code
49 AND s.orgn_code = p.process_orgn_code
50 AND p.process_enabled_flag ='Y'
51 AND s.delete_mark = 0
52 AND w.delete_mark = 0
53 ;
54
55 -- Record type Definition Of A process_org
56
57 TYPE process_org_rec is RECORD
58 (
59 organization_id MTL_PARAMETERS.ORGANIZATION_ID%TYPE
60 , whse_code IC_WHSE_MST.WHSE_CODE%TYPE
61 , co_code SY_ORGN_MST.PARENT_ORGN_CODE%TYPE
62 , orgn_code SY_ORGN_MST.ORGN_CODE%TYPE
63 );
64
65
66
67 -- We Need A Table Of process_org RECORDS
68
69 TYPE process_org_rec_tbl is TABLE of process_org_rec
70 INDEX BY BINARY_INTEGER;
71
72 -- Record type Definition Of A discrete_org
73
74 TYPE discrete_org_rec is RECORD
75 (
76 organization_id MTL_PARAMETERS.ORGANIZATION_ID%TYPE
77 );
78
79
80
81 -- We Need A Table Of process_org RECORDS
82
83 TYPE discrete_org_rec_tbl is TABLE of discrete_org_rec
84 INDEX BY BINARY_INTEGER;
85
86 -- Define Global Variable To Hold Process Installed
87
88 G_PROCESS_INV_INSTALLED VARCHAR2(1) DEFAULT 'N';
89 G_PROCESS_ORGN VARCHAR2(1) DEFAULT 'N'; /* INVCONV */
90
91
92 FUNCTION PROCESS_BRANCH
93 (
94 P_ORGANIZATION_ID IN NUMBER
95 )
96 RETURN BOOLEAN;
97
98
99 FUNCTION IS_ORG_PROCESS_ORG
100 (
101 P_ORGANIZATION_ID IN NUMBER
102 )
103 RETURN BOOLEAN;
104
105 FUNCTION SEARCH_PROCESS_ORG_CACHE
106 (
107 P_ORGANIZATION_ID IN NUMBER
108 )
109 RETURN BOOLEAN;
110
111 FUNCTION SEARCH_DISCRETE_ORG_CACHE
112 (
113 P_ORGANIZATION_ID IN NUMBER
114 )
115 RETURN BOOLEAN;
116
117 PROCEDURE ADD_DISCRETE_ORG_TO_CACHE
118 (
119 P_ORGANIZATION_ID IN NUMBER
120 );
121
122 PROCEDURE SET_INSTALLED
123 (
124 P_APP_SHORT_NAME IN VARCHAR2
125 );
126
127 PROCEDURE GET_PROCESS_ORG
128 (
129 P_ORGANIZATION_ID IN NUMBER
130 ,X_OPM_WHSE_CODE OUT NOCOPY /* file.sql.39 change */ VARCHAR2
131 ,X_OPM_CO_CODE OUT NOCOPY /* file.sql.39 change */ VARCHAR2
132 ,X_OPM_ORGN_CODE OUT NOCOPY /* file.sql.39 change */ VARCHAR2
133 ,X_RETURN_STATUS OUT NOCOPY /* file.sql.39 change */ VARCHAR2
134 );
135
136
137 FUNCTION SEARCH_PROCESS_ORG_DB
138 (
139 P_ORGANIZATION_ID IN NUMBER
140 )
141 RETURN BOOLEAN;
142
143 PROCEDURE ADD_PROCESS_ORG_TO_CACHE
144 (
145 P_PROCESS_ORG_REC IN INV_GMI_RSV_BRANCH.process_org_rec
146 );
147 END INV_GMI_RSV_BRANCH;