1: PACKAGE BODY INV_MGD_POSITIONS_CP AS
2: -- $Header: INVCPOSB.pls 120.1 2005/06/21 06:25:50 appldev ship $
3: --+=======================================================================+
4: --| Copyright (c) 2000 Oracle Corporation |
5: --| Redwood Shores, CA, USA |
68: IF G_DEBUG = 'Y' THEN
69: INV_MGD_POS_UTIL.Log_Initialize;
70: INV_MGD_POS_UTIL.Log
71: ( INV_MGD_POS_UTIL.G_LOG_PROCEDURE
72: , '> INV_MGD_POSITIONS_CP.Build'
73: );
74: END IF;
75:
76: INV_MGD_POSITIONS_PROC.Build
101:
102: IF G_DEBUG = 'Y' THEN
103: INV_MGD_POS_UTIL.Log
104: ( INV_MGD_POS_UTIL.G_LOG_PROCEDURE
105: , '< INV_MGD_POSITIONS_CP.Build'
106: );
107: END IF;
108:
109: EXCEPTION
110:
111: WHEN OTHERS THEN
112: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
113: THEN
114: FND_MSG_PUB.Add_Exc_Msg( 'INV_MGD_POSITIONS_CP'
115: , 'Build'
116: );
117: END IF;
118: x_retcode := 2;
155: IF G_DEBUG = 'Y' THEN
156: INV_MGD_POS_UTIL.Log_Initialize;
157: INV_MGD_POS_UTIL.Log
158: ( INV_MGD_POS_UTIL.G_LOG_PROCEDURE
159: , '> INV_MGD_POSITIONS_CP.Purge'
160: );
161: END IF;
162:
163: INV_MGD_POSITIONS_PROC.Purge
183:
184: IF G_DEBUG = 'Y' THEN
185: INV_MGD_POS_UTIL.Log
186: ( INV_MGD_POS_UTIL.G_LOG_PROCEDURE
187: , '< INV_MGD_POSITIONS_CP.Purge'
188: );
189: END IF;
190:
191: EXCEPTION
192:
193: WHEN OTHERS THEN
194: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
195: THEN
196: FND_MSG_PUB.Add_Exc_Msg( 'INV_MGD_POSITIONS_CP'
197: , 'Purge'
198: );
199: END IF;
200: x_retcode := 2;
206:
207: END Purge;
208:
209:
210: END INV_MGD_POSITIONS_CP;