PACKAGE BODY: APPS.AMS_IBA_SEGMENTS_PUB

Source

1 PACKAGE BODY AMS_IBA_SEGMENTS_PUB AS
2 /* $Header: ibavsegb.pls 115.1 2000/03/07 13:53:07 pkm ship      $ */
3 
4 g_pkg_name  CONSTANT VARCHAR2(30):='AMS_IBA_SEGMENTS_PUB';
5 ---------------------------------------------------------------------
6 -- function
7 --   Get_Mkt_Segments_W
8 --
9 -- HISTORY
10 --    01/16/00  ryedator  Create.
11 ---------------------------------------------------------------------
12 
13 PROCEDURE Get_Mkt_Segments_W ( p_party_id  ams_party_market_segments.party_id%TYPE := NULL ,
14                             p_target_segment_id  ams_party_market_segments.market_segment_id%TYPE := NULL,
15 				x_PartyMktSegTabTyp OUT AMS_MKT_SEGMENTS_PVT.PartyMktSegTabTyp) IS
16 --  RETURN  AMS_MKT_SEGMENTS_PVT.PartyMktSegTabTyp IS
17 
18 --  x_PartyMktSegTabTyp AMS_MKT_SEGMENTS_PVT.PartyMktSegTabTyp;
19 
20 
21 BEGIN
22 
23      x_PartyMktSegTabTyp := AMS_MKT_SEGMENTS_PUB.Get_Mkt_Segments( p_party_id => p_party_id,
24 	                                                               p_target_segment_id => p_target_segment_id);
25 
26 --	 RETURN ( x_PartyMktSegTabTyp);
27 END ;
28 
29 END AMS_IBA_SEGMENTS_PUB;