PACKAGE BODY: APPS.QP_BUILD_FORMULA_RULES_TMP

Source

1 PACKAGE BODY QP_BUILD_FORMULA_RULES_TMP AS
2 /* $Header: QPXVBSFB.pls 115.0 25-JUN-03 11:11:11 appldev ship $ */
3  
4 --  
5 --  Copyright (c) 1996 Oracle Corporation, Redwood Shores, CA, USA
6 --  All rights reserved.
7 --  
8 --  FILENAME
9 --  
10 --      QP_BUILD_FORMULA_RULES_TMP
11 --  
12 --  DESCRIPTION
13 --  
14 --      Body of package QP_BUILD_FORMULA_RULES_TMP
15 --  
16 --  NOTES
17 --  
18 --  HISTORY
19 --  
20 --  25-JUN-03 Created
21 --  
22  
23 --  Global constant holding the package name
24  
25  
26 PROCEDURE Get_Formula_Values
27 (    p_Formula                      IN VARCHAR2
28 ,    p_Operand_Tbl                  IN QP_FORMULA_RULES_PVT.t_Operand_Tbl_Type
29 ,    p_procedure_type               IN VARCHAR2
30 ,    x_formula_value                OUT NUMBER
31 ,    x_return_status                OUT VARCHAR2
32 )
33 IS
34  
35 BEGIN
36   BEGIN
37     NULL;
38  
39     IF p_Formula = 
40   ''
41      || '1'
42      THEN
43       IF p_procedure_type != 'S' THEN
44  
45         x_formula_value := TO_NUMBER(TO_CHAR(p_Operand_Tbl(1)));
46         x_return_status := 'S';
47       ELSE
48         x_return_status := 'T';
49       END IF;
50       RETURN;
51     END IF;
52  
53     IF p_Formula = 
54   ''
55      || '1*2'
56      THEN
57       IF p_procedure_type != 'S' THEN
58  
59         x_formula_value := TO_NUMBER(TO_CHAR(p_Operand_Tbl(1)))*TO_NUMBER(TO_CHAR(p_Operand_Tbl(2)));
60         x_return_status := 'S';
61       ELSE
62         x_return_status := 'T';
63       END IF;
64       RETURN;
65     END IF;
66  
67     x_return_status := 'F';
68  
69   EXCEPTION
70     WHEN OTHERS THEN
71       x_return_status := 'E';
72   END;
73 END Get_Formula_Values;
74  
75 END QP_BUILD_FORMULA_RULES_TMP;