1: PACKAGE BODY QLTINVCB as
2: /* $Header: qltinvcb.plb 115.2 2002/11/27 19:26:32 jezheng ship $ */
3: -- 5/20/96 - created
4: -- Paul Mishkin
5:
1: PACKAGE BODY QLTINVCB as
2: /* $Header: qltinvcb.plb 115.2 2002/11/27 19:26:32 jezheng ship $ */
3: -- 5/20/96 - created
4: -- Paul Mishkin
5:
6: FUNCTION NO_NEG_BALANCE(RESTRICT_FLAG NUMBER,
41: elsif (org_control = 2) then
42: locator_control := 2;
43: elsif (org_control = 3) then
44: locator_control := 3;
45: if (qltinvcb.no_neg_balance(restrict_flag,
46: neg_flag,action)) then
47: locator_control := 2;
48: end if;
49: elsif (org_control = 4) then
52: elsif (sub_control = 2) then
53: locator_control := 2;
54: elsif (sub_control = 3) then
55: locator_control := 3;
56: if (qltinvcb.no_neg_balance(restrict_flag,
57: neg_flag,action)) then
58: locator_control := 2;
59: end if;
60: elsif (sub_control = 5) then
63: elsif (item_control = 2) then
64: locator_control := 2;
65: elsif (item_control = 3) then
66: locator_control := 3;
67: if (qltinvcb.no_neg_balance(restrict_flag,
68: neg_flag,action)) then
69: locator_control := 2;
70: end if;
71: elsif (item_control IS NULL) then
77:
78: END CONTROL;
79:
80:
81: END QLTINVCB;
82: