[Home] [Help]
PACKAGE BODY: APPS.MRP_GLOBALS
Source
1 PACKAGE BODY MRP_Globals AS
2 /* $Header: MRPSGLBB.pls 115.2 99/07/16 12:37:08 porting ship $ */
3
4 -- Global constant holding the package name
5
6 G_PKG_NAME CONSTANT VARCHAR2(30) := 'MRP_Globals';
7
8 -- Procedure Get_Entities_Tbl.
9 --
10 -- Used by generator to avoid overriding or duplicating existing
11 -- entity constants.
12 --
13 -- DO NOT REMOVE
14
15 PROCEDURE Get_Entities_Tbl
16 IS
17 I NUMBER:=0;
18 BEGIN
19
20 FND_API.g_entity_tbl.DELETE;
21
22 -- START GEN entities
23 I := I + 1;
24 FND_API.g_entity_tbl(I).name := 'ALL';
25 I := I + 1;
26 FND_API.g_entity_tbl(I).name := 'FLOW_SCHEDULE';
27 I := I + 1;
28 FND_API.g_entity_tbl(I).name := 'ASSIGNMENT_SET';
29 I := I + 1;
30 FND_API.g_entity_tbl(I).name := 'ASSIGNMENT';
31 I := I + 1;
32 FND_API.g_entity_tbl(I).name := 'SOURCING_RULE';
33 I := I + 1;
34 FND_API.g_entity_tbl(I).name := 'RECEIVING_ORG';
35 I := I + 1;
36 FND_API.g_entity_tbl(I).name := 'SHIPPING_ORG';
37 -- END GEN entities
38
39 END Get_Entities_Tbl;
40
41 -- Initialize control record.
42
43 FUNCTION Init_Control_Rec
44 ( p_operation IN VARCHAR2
45 , p_control_rec IN Control_Rec_Type
46 )RETURN Control_Rec_Type
47 IS
48 l_control_rec Control_Rec_Type;
49 BEGIN
50
51 IF p_control_rec.controlled_operation THEN
52
53 RETURN p_control_rec;
54
55 ELSIF p_operation = G_OPR_NONE OR p_operation IS NULL THEN
56
57 l_control_rec.default_attributes:= FALSE;
58 l_control_rec.change_attributes := FALSE;
59 l_control_rec.validate_entity := FALSE;
60 l_control_rec.write_to_DB := FALSE;
61 l_control_rec.process := p_control_rec.process;
62 l_control_rec.process_entity := p_control_rec.process_entity;
63 l_control_rec.request_category := p_control_rec.request_category;
64 l_control_rec.request_name := p_control_rec.request_name;
65 l_control_rec.clear_api_cache := p_control_rec.clear_api_cache;
66 l_control_rec.clear_api_requests:= p_control_rec.clear_api_requests;
67
68 ELSIF p_operation = G_OPR_CREATE THEN
69
70 l_control_rec.default_attributes:= TRUE;
71 l_control_rec.change_attributes := FALSE;
72 l_control_rec.validate_entity := TRUE;
73 l_control_rec.write_to_DB := TRUE;
74 l_control_rec.process := TRUE;
75 l_control_rec.process_entity := G_ENTITY_ALL;
76 l_control_rec.clear_api_cache := TRUE;
77 l_control_rec.clear_api_requests:= TRUE;
78
79 ELSIF p_operation = G_OPR_UPDATE THEN
80
81 l_control_rec.default_attributes:= FALSE;
82 l_control_rec.change_attributes := TRUE;
83 l_control_rec.validate_entity := TRUE;
84 l_control_rec.write_to_DB := TRUE;
85 l_control_rec.process := TRUE;
86 l_control_rec.process_entity := G_ENTITY_ALL;
87 l_control_rec.clear_api_cache := TRUE;
88 l_control_rec.clear_api_requests:= TRUE;
89
90 ELSIF p_operation = G_OPR_DELETE THEN
91
92 l_control_rec.default_attributes:= FALSE;
93 l_control_rec.change_attributes := FALSE;
94 l_control_rec.validate_entity := TRUE;
95 l_control_rec.write_to_DB := TRUE;
96 l_control_rec.process := TRUE;
97 l_control_rec.process_entity := G_ENTITY_ALL;
98 l_control_rec.clear_api_cache := TRUE;
99 l_control_rec.clear_api_requests:= TRUE;
100
101 ELSE
102
103 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
104 THEN
105 FND_MSG_PUB.Add_Exc_Msg
106 ( G_PKG_NAME
107 , 'Init_Control_Rec'
108 , 'Invalid operation'
109 );
110 END IF;
111
112 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
113
114 END IF;
115
116 RETURN l_control_rec;
117
118 END Init_Control_Rec;
119
120 -- Function Equal
121 -- Number comparison.
122
123 FUNCTION Equal
124 ( p_attribute1 IN NUMBER
125 , p_attribute2 IN NUMBER
126 )RETURN BOOLEAN
127 IS
128 BEGIN
129
130 RETURN ( p_attribute1 IS NULL AND p_attribute2 IS NULL ) OR
131 ( p_attribute1 IS NOT NULL AND
132 p_attribute2 IS NOT NULL AND
133 p_attribute1 = p_attribute2 );
134
135 END Equal;
136
137 -- Varchar2 comparison.
138
139 FUNCTION Equal
140 ( p_attribute1 IN VARCHAR2
141 , p_attribute2 IN VARCHAR2
142 )RETURN BOOLEAN
143 IS
144 BEGIN
145
146 RETURN ( p_attribute1 IS NULL AND p_attribute2 IS NULL ) OR
147 ( p_attribute1 IS NOT NULL AND
148 p_attribute2 IS NOT NULL AND
149 p_attribute1 = p_attribute2 );
150
151 END Equal;
152
153 -- Date comparison.
154
155 FUNCTION Equal
156 ( p_attribute1 IN DATE
157 , p_attribute2 IN DATE
158 )RETURN BOOLEAN
159 IS
160 BEGIN
161
162 RETURN ( p_attribute1 IS NULL AND p_attribute2 IS NULL ) OR
163 ( p_attribute1 IS NOT NULL AND
164 p_attribute2 IS NOT NULL AND
165 p_attribute1 = p_attribute2 );
166
167 END Equal;
168
169 END MRP_Globals;