APPS.WSH_INV_INTEGRATION_GRP dependencies on WSH_INV_INTEGRATION_GRP

Line 1: PACKAGE BODY WSH_INV_INTEGRATION_GRP AS

1: PACKAGE BODY WSH_INV_INTEGRATION_GRP AS
2: /* $Header: WSHINVIB.pls 120.0 2005/05/26 17:06:48 appldev noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_INV_INTEGRATION_GRP ';
5: --

Line 4: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_INV_INTEGRATION_GRP ';

1: PACKAGE BODY WSH_INV_INTEGRATION_GRP AS
2: /* $Header: WSHINVIB.pls 120.0 2005/05/26 17:06:48 appldev noship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_INV_INTEGRATION_GRP ';
5: --
6:
7: PROCEDURE Find_Printer (
8: p_subinventory IN VARCHAR2 ,

Line 59: for i in 1..WSH_INV_INTEGRATION_GRP.G_ORGSUBTAB.count loop

55: x_error_message := NULL ;
56: --
57: --
58:
59: for i in 1..WSH_INV_INTEGRATION_GRP.G_ORGSUBTAB.count loop
60: if WSH_INV_INTEGRATION_GRP.G_ORGSUBTAB(i) = p_organization_id || '~' || p_subinventory THEN
61: --
62: return ;
63: end if ;

Line 60: if WSH_INV_INTEGRATION_GRP.G_ORGSUBTAB(i) = p_organization_id || '~' || p_subinventory THEN

56: --
57: --
58:
59: for i in 1..WSH_INV_INTEGRATION_GRP.G_ORGSUBTAB.count loop
60: if WSH_INV_INTEGRATION_GRP.G_ORGSUBTAB(i) = p_organization_id || '~' || p_subinventory THEN
61: --
62: return ;
63: end if ;
64: --

Line 70: WSH_INV_INTEGRATION_GRP.G_ORGSUBTAB(WSH_INV_INTEGRATION_GRP.G_ORGSUBTAB.count + 1 ):= p_organization_id || '~' || p_subinventory ;

66: end loop ;
67:
68: -- Insert the orgsub combination in the global table:
69:
70: WSH_INV_INTEGRATION_GRP.G_ORGSUBTAB(WSH_INV_INTEGRATION_GRP.G_ORGSUBTAB.count + 1 ):= p_organization_id || '~' || p_subinventory ;
71:
72: l_org_found := 0 ;
73:
74: for i in 1..WSH_INV_INTEGRATION_GRP.G_ORGTAB.count loop

Line 74: for i in 1..WSH_INV_INTEGRATION_GRP.G_ORGTAB.count loop

70: WSH_INV_INTEGRATION_GRP.G_ORGSUBTAB(WSH_INV_INTEGRATION_GRP.G_ORGSUBTAB.count + 1 ):= p_organization_id || '~' || p_subinventory ;
71:
72: l_org_found := 0 ;
73:
74: for i in 1..WSH_INV_INTEGRATION_GRP.G_ORGTAB.count loop
75: if WSH_INV_INTEGRATION_GRP.G_ORGTAB(i) = p_organization_id THEN
76: --
77: l_org_found := 1 ;
78: exit ; -- we don't return here , because we although this org has been encountered before

Line 75: if WSH_INV_INTEGRATION_GRP.G_ORGTAB(i) = p_organization_id THEN

71:
72: l_org_found := 0 ;
73:
74: for i in 1..WSH_INV_INTEGRATION_GRP.G_ORGTAB.count loop
75: if WSH_INV_INTEGRATION_GRP.G_ORGTAB(i) = p_organization_id THEN
76: --
77: l_org_found := 1 ;
78: exit ; -- we don't return here , because we although this org has been encountered before
79: -- we want to know if a printer has been setup for this OrgSub combo.

Line 96: WSH_INV_INTEGRATION_GRP.G_ORGTAB(WSH_INV_INTEGRATION_GRP.G_ORGTAB.count + 1 ):= p_organization_id;

92:
93: -- printer not set for the ( sub , org ) combination ,there search for just the org
94: -- First insert the org in the global table
95:
96: WSH_INV_INTEGRATION_GRP.G_ORGTAB(WSH_INV_INTEGRATION_GRP.G_ORGTAB.count + 1 ):= p_organization_id;
97:
98: -- Next , see if printer setup has been done for this org
99:
100: OPEN c_org_printer ( p_organization_id ) ;

Line 107: for i in 1..WSH_INV_INTEGRATION_GRP.G_PRINTERTAB.count loop

103: --
104: --
105: end if ;
106:
107: for i in 1..WSH_INV_INTEGRATION_GRP.G_PRINTERTAB.count loop
108: if WSH_INV_INTEGRATION_GRP.G_PRINTERTAB(i) = l_printer_name THEN
109: --
110: --
111: return ;

Line 108: if WSH_INV_INTEGRATION_GRP.G_PRINTERTAB(i) = l_printer_name THEN

104: --
105: end if ;
106:
107: for i in 1..WSH_INV_INTEGRATION_GRP.G_PRINTERTAB.count loop
108: if WSH_INV_INTEGRATION_GRP.G_PRINTERTAB(i) = l_printer_name THEN
109: --
110: --
111: return ;
112: end if ;

Line 119: WSH_INV_INTEGRATION_GRP.G_PRINTERTAB(WSH_INV_INTEGRATION_GRP.G_PRINTERTAB.count + 1 ) := l_printer_name ;

115: --
116: -- bug 3980388 - Not to add printer '-1' to the table because Find_Printer return '-1' printer when
117: -- printing report by user level.
118: IF l_printer_name <> '-1' THEN
119: WSH_INV_INTEGRATION_GRP.G_PRINTERTAB(WSH_INV_INTEGRATION_GRP.G_PRINTERTAB.count + 1 ) := l_printer_name ;
120: END IF;
121: -- end bug 3980388
122:
123: exception

Line 125: x_error_message := 'Exception occurred in WSH_INV_INTEGRATION_GRP.Find_Printer';

121: -- end bug 3980388
122:
123: exception
124: when others then
125: x_error_message := 'Exception occurred in WSH_INV_INTEGRATION_GRP.Find_Printer';
126: x_api_status := FND_API.G_RET_STS_UNEXP_ERROR;
127: --
128:
129: END Find_Printer ;

Line 429: END WSH_INV_INTEGRATION_GRP ;

425: END Complete_Inv_Interface;
426:
427:
428:
429: END WSH_INV_INTEGRATION_GRP ;