1: PACKAGE BODY GMI_ALLOCATION_RULES_PVT AS
2: /* $Header: GMIVALRB.pls 120.0 2005/05/25 15:42:07 appldev noship $ */
3:
4: /* Global variables */
5: G_PKG_NAME CONSTANT VARCHAR2(30):='GMI_ALLOCATION_RULES_PVT';
1: PACKAGE BODY GMI_ALLOCATION_RULES_PVT AS
2: /* $Header: GMIVALRB.pls 120.0 2005/05/25 15:42:07 appldev noship $ */
3:
4: /* Global variables */
5: G_PKG_NAME CONSTANT VARCHAR2(30):='GMI_ALLOCATION_RULES_PVT';
6:
7:
8: /* +=========================================================================+
9: | PROCEDURE NAME |
123: IF (op_alot_prm_c2%NOTFOUND)
124: THEN
125: /* No rules defined on the database so set them from profile values */
126: /* =================================================================*/
127: GMI_ALLOCATION_RULES_PVT.GET_DEFAULT_PARMS
128: (x_op_alot_prm => l_op_alot_prm);
129: x_op_alot_prm := l_op_alot_prm;
130: GMI_reservation_Util.PrintLn('no rules in op_alot_prm, use default ');
131: ELSE
200: WHEN OTHERS THEN
201: RAISE;
202: END Get_default_parms;
203:
204: END GMI_ALLOCATION_RULES_PVT;