86: end if;
87:
88: if var_test_level <> 0
89: then
90: fnd_message.set_name('MRP', 'GEN-invalid argument');
91: fnd_message.set_token('ROUTINE', 'mrp_valid_plan_designator', FALSE);
92: fnd_message.set_token('ARGUMENT', 'var_test_level', FALSE);
93: fnd_message.set_token('VALUE', to_char(var_test_level), FALSE);
94: raise invalid_arg;
87:
88: if var_test_level <> 0
89: then
90: fnd_message.set_name('MRP', 'GEN-invalid argument');
91: fnd_message.set_token('ROUTINE', 'mrp_valid_plan_designator', FALSE);
92: fnd_message.set_token('ARGUMENT', 'var_test_level', FALSE);
93: fnd_message.set_token('VALUE', to_char(var_test_level), FALSE);
94: raise invalid_arg;
95: end if;
88: if var_test_level <> 0
89: then
90: fnd_message.set_name('MRP', 'GEN-invalid argument');
91: fnd_message.set_token('ROUTINE', 'mrp_valid_plan_designator', FALSE);
92: fnd_message.set_token('ARGUMENT', 'var_test_level', FALSE);
93: fnd_message.set_token('VALUE', to_char(var_test_level), FALSE);
94: raise invalid_arg;
95: end if;
96:
89: then
90: fnd_message.set_name('MRP', 'GEN-invalid argument');
91: fnd_message.set_token('ROUTINE', 'mrp_valid_plan_designator', FALSE);
92: fnd_message.set_token('ARGUMENT', 'var_test_level', FALSE);
93: fnd_message.set_token('VALUE', to_char(var_test_level), FALSE);
94: raise invalid_arg;
95: end if;
96:
97: SELECT *
103: if var_test_explode = SYS_YES
104: then
105: if var_plan_rec.explosion_start_date IS NULL
106: then
107: fnd_message.set_name('MRP', 'PLAN-process not run');
108: fnd_message.set_token('PROCESS', 'E_EXPLODER', TRUE);
109: raise invalid_plan;
110: elsif var_plan_rec.explosion_completion_date IS NULL
111: then
104: then
105: if var_plan_rec.explosion_start_date IS NULL
106: then
107: fnd_message.set_name('MRP', 'PLAN-process not run');
108: fnd_message.set_token('PROCESS', 'E_EXPLODER', TRUE);
109: raise invalid_plan;
110: elsif var_plan_rec.explosion_completion_date IS NULL
111: then
112: fnd_message.set_name('MRP', 'PLAN-process not completed');
108: fnd_message.set_token('PROCESS', 'E_EXPLODER', TRUE);
109: raise invalid_plan;
110: elsif var_plan_rec.explosion_completion_date IS NULL
111: then
112: fnd_message.set_name('MRP', 'PLAN-process not completed');
113: fnd_message.set_token('PROCESS', 'E_EXPLODER', TRUE);
114: raise invalid_plan;
115: end if;
116: end if;
109: raise invalid_plan;
110: elsif var_plan_rec.explosion_completion_date IS NULL
111: then
112: fnd_message.set_name('MRP', 'PLAN-process not completed');
113: fnd_message.set_token('PROCESS', 'E_EXPLODER', TRUE);
114: raise invalid_plan;
115: end if;
116: end if;
117: if var_test_snapshot = SYS_YES
117: if var_test_snapshot = SYS_YES
118: then
119: if var_plan_rec.data_start_date IS NULL
120: then
121: fnd_message.set_name('MRP', 'PLAN-process not run');
122: fnd_message.set_token('PROCESS', 'E_SNAPSHOT', TRUE);
123: raise invalid_plan;
124: elsif var_plan_rec.data_completion_date IS NULL
125: then
118: then
119: if var_plan_rec.data_start_date IS NULL
120: then
121: fnd_message.set_name('MRP', 'PLAN-process not run');
122: fnd_message.set_token('PROCESS', 'E_SNAPSHOT', TRUE);
123: raise invalid_plan;
124: elsif var_plan_rec.data_completion_date IS NULL
125: then
126: fnd_message.set_name('MRP', 'PLAN-process not completed');
122: fnd_message.set_token('PROCESS', 'E_SNAPSHOT', TRUE);
123: raise invalid_plan;
124: elsif var_plan_rec.data_completion_date IS NULL
125: then
126: fnd_message.set_name('MRP', 'PLAN-process not completed');
127: fnd_message.set_token('PROCESS', 'E_SNAPSHOT', TRUE);
128: raise invalid_plan;
129: elsif var_plan_rec.data_completion_date <
130: var_plan_rec.explosion_completion_date
123: raise invalid_plan;
124: elsif var_plan_rec.data_completion_date IS NULL
125: then
126: fnd_message.set_name('MRP', 'PLAN-process not completed');
127: fnd_message.set_token('PROCESS', 'E_SNAPSHOT', TRUE);
128: raise invalid_plan;
129: elsif var_plan_rec.data_completion_date <
130: var_plan_rec.explosion_completion_date
131: then
128: raise invalid_plan;
129: elsif var_plan_rec.data_completion_date <
130: var_plan_rec.explosion_completion_date
131: then
132: fnd_message.set_name('MRP', 'GEN-process more recent');
133: fnd_message.set_token('PROCESS1', 'E_EXPLODER', TRUE);
134: fnd_message.set_token('PROCESS2', 'E_SNAPSHOT', TRUE);
135: raise invalid_plan;
136: end if;
129: elsif var_plan_rec.data_completion_date <
130: var_plan_rec.explosion_completion_date
131: then
132: fnd_message.set_name('MRP', 'GEN-process more recent');
133: fnd_message.set_token('PROCESS1', 'E_EXPLODER', TRUE);
134: fnd_message.set_token('PROCESS2', 'E_SNAPSHOT', TRUE);
135: raise invalid_plan;
136: end if;
137: end if;
130: var_plan_rec.explosion_completion_date
131: then
132: fnd_message.set_name('MRP', 'GEN-process more recent');
133: fnd_message.set_token('PROCESS1', 'E_EXPLODER', TRUE);
134: fnd_message.set_token('PROCESS2', 'E_SNAPSHOT', TRUE);
135: raise invalid_plan;
136: end if;
137: end if;
138: if var_test_planner = SYS_YES
138: if var_test_planner = SYS_YES
139: then
140: if var_plan_rec.plan_start_date IS NULL
141: then
142: fnd_message.set_name('MRP', 'PLAN-process not run');
143: fnd_message.set_token('PROCESS', 'E_PLANNER', TRUE);
144: raise invalid_plan;
145: elsif var_plan_rec.plan_completion_date IS NULL
146: then
139: then
140: if var_plan_rec.plan_start_date IS NULL
141: then
142: fnd_message.set_name('MRP', 'PLAN-process not run');
143: fnd_message.set_token('PROCESS', 'E_PLANNER', TRUE);
144: raise invalid_plan;
145: elsif var_plan_rec.plan_completion_date IS NULL
146: then
147: fnd_message.set_name('MRP', 'PLAN-process not completed');
143: fnd_message.set_token('PROCESS', 'E_PLANNER', TRUE);
144: raise invalid_plan;
145: elsif var_plan_rec.plan_completion_date IS NULL
146: then
147: fnd_message.set_name('MRP', 'PLAN-process not completed');
148: fnd_message.set_token('PROCESS', 'E_PLANNER', TRUE);
149: raise invalid_plan;
150: elsif var_plan_rec.plan_completion_date <
151: var_plan_rec.data_completion_date
144: raise invalid_plan;
145: elsif var_plan_rec.plan_completion_date IS NULL
146: then
147: fnd_message.set_name('MRP', 'PLAN-process not completed');
148: fnd_message.set_token('PROCESS', 'E_PLANNER', TRUE);
149: raise invalid_plan;
150: elsif var_plan_rec.plan_completion_date <
151: var_plan_rec.data_completion_date
152: then
149: raise invalid_plan;
150: elsif var_plan_rec.plan_completion_date <
151: var_plan_rec.data_completion_date
152: then
153: fnd_message.set_name('MRP', 'GEN-process more recent');
154: fnd_message.set_token('PROCESS1', 'E_SNAPSHOT', TRUE);
155: fnd_message.set_token('PROCESS2', 'E_PLANNER', TRUE);
156: raise invalid_plan;
157: end if;
150: elsif var_plan_rec.plan_completion_date <
151: var_plan_rec.data_completion_date
152: then
153: fnd_message.set_name('MRP', 'GEN-process more recent');
154: fnd_message.set_token('PROCESS1', 'E_SNAPSHOT', TRUE);
155: fnd_message.set_token('PROCESS2', 'E_PLANNER', TRUE);
156: raise invalid_plan;
157: end if;
158: end if;
151: var_plan_rec.data_completion_date
152: then
153: fnd_message.set_name('MRP', 'GEN-process more recent');
154: fnd_message.set_token('PROCESS1', 'E_SNAPSHOT', TRUE);
155: fnd_message.set_token('PROCESS2', 'E_PLANNER', TRUE);
156: raise invalid_plan;
157: end if;
158: end if;
159: if var_test_crp_planner = SYS_YES
159: if var_test_crp_planner = SYS_YES
160: then
161: if var_plan_rec.crp_plan_start_date IS NULL
162: then
163: fnd_message.set_name('MRP', 'PLAN-process not run');
164: fnd_message.set_token('PROCESS', 'E_CRP_PLANNER', TRUE);
165: raise invalid_plan;
166: elsif var_plan_rec.crp_plan_completion_date IS NULL
167: then
160: then
161: if var_plan_rec.crp_plan_start_date IS NULL
162: then
163: fnd_message.set_name('MRP', 'PLAN-process not run');
164: fnd_message.set_token('PROCESS', 'E_CRP_PLANNER', TRUE);
165: raise invalid_plan;
166: elsif var_plan_rec.crp_plan_completion_date IS NULL
167: then
168: fnd_message.set_name('MRP', 'PLAN-process not completed');
164: fnd_message.set_token('PROCESS', 'E_CRP_PLANNER', TRUE);
165: raise invalid_plan;
166: elsif var_plan_rec.crp_plan_completion_date IS NULL
167: then
168: fnd_message.set_name('MRP', 'PLAN-process not completed');
169: fnd_message.set_token('PROCESS', 'E_CRP_PLANNER', TRUE);
170: raise invalid_plan;
171: elsif var_plan_rec.crp_plan_completion_date <
172: var_plan_rec.plan_completion_date
165: raise invalid_plan;
166: elsif var_plan_rec.crp_plan_completion_date IS NULL
167: then
168: fnd_message.set_name('MRP', 'PLAN-process not completed');
169: fnd_message.set_token('PROCESS', 'E_CRP_PLANNER', TRUE);
170: raise invalid_plan;
171: elsif var_plan_rec.crp_plan_completion_date <
172: var_plan_rec.plan_completion_date
173: then
170: raise invalid_plan;
171: elsif var_plan_rec.crp_plan_completion_date <
172: var_plan_rec.plan_completion_date
173: then
174: fnd_message.set_name('MRP', 'GEN-process more recent');
175: fnd_message.set_token('PROCESS1', 'E_PLANNER', TRUE);
176: fnd_message.set_token('PROCESS2', 'E_CRP_PLANNER', TRUE);
177: raise invalid_plan;
178: end if;
171: elsif var_plan_rec.crp_plan_completion_date <
172: var_plan_rec.plan_completion_date
173: then
174: fnd_message.set_name('MRP', 'GEN-process more recent');
175: fnd_message.set_token('PROCESS1', 'E_PLANNER', TRUE);
176: fnd_message.set_token('PROCESS2', 'E_CRP_PLANNER', TRUE);
177: raise invalid_plan;
178: end if;
179: end if;
172: var_plan_rec.plan_completion_date
173: then
174: fnd_message.set_name('MRP', 'GEN-process more recent');
175: fnd_message.set_token('PROCESS1', 'E_PLANNER', TRUE);
176: fnd_message.set_token('PROCESS2', 'E_CRP_PLANNER', TRUE);
177: raise invalid_plan;
178: end if;
179: end if;
180: EXCEPTION