85: end if;
86:
87: if var_test_level <> 0
88: then
89: fnd_message.set_name('MRP', 'GEN-invalid argument');
90: fnd_message.set_token('ROUTINE', 'mrp_valid_plan_designator', FALSE);
91: fnd_message.set_token('ARGUMENT', 'var_test_level', FALSE);
92: fnd_message.set_token('VALUE', to_char(var_test_level), FALSE);
93: raise invalid_arg;
86:
87: if var_test_level <> 0
88: then
89: fnd_message.set_name('MRP', 'GEN-invalid argument');
90: fnd_message.set_token('ROUTINE', 'mrp_valid_plan_designator', FALSE);
91: fnd_message.set_token('ARGUMENT', 'var_test_level', FALSE);
92: fnd_message.set_token('VALUE', to_char(var_test_level), FALSE);
93: raise invalid_arg;
94: end if;
87: if var_test_level <> 0
88: then
89: fnd_message.set_name('MRP', 'GEN-invalid argument');
90: fnd_message.set_token('ROUTINE', 'mrp_valid_plan_designator', FALSE);
91: fnd_message.set_token('ARGUMENT', 'var_test_level', FALSE);
92: fnd_message.set_token('VALUE', to_char(var_test_level), FALSE);
93: raise invalid_arg;
94: end if;
95:
88: then
89: fnd_message.set_name('MRP', 'GEN-invalid argument');
90: fnd_message.set_token('ROUTINE', 'mrp_valid_plan_designator', FALSE);
91: fnd_message.set_token('ARGUMENT', 'var_test_level', FALSE);
92: fnd_message.set_token('VALUE', to_char(var_test_level), FALSE);
93: raise invalid_arg;
94: end if;
95:
96: SELECT *
101: /*if var_test_explode = SYS_YES
102: then
103: if var_plan_rec.explosion_start_date IS NULL
104: then
105: fnd_message.set_name('MRP', 'PLAN-process not run');
106: fnd_message.set_token('PROCESS', 'E_EXPLODER', TRUE);
107: raise invalid_plan;
108: elsif var_plan_rec.explosion_completion_date IS NULL
109: then
102: then
103: if var_plan_rec.explosion_start_date IS NULL
104: then
105: fnd_message.set_name('MRP', 'PLAN-process not run');
106: fnd_message.set_token('PROCESS', 'E_EXPLODER', TRUE);
107: raise invalid_plan;
108: elsif var_plan_rec.explosion_completion_date IS NULL
109: then
110: fnd_message.set_name('MRP', 'PLAN-process not completed');
106: fnd_message.set_token('PROCESS', 'E_EXPLODER', TRUE);
107: raise invalid_plan;
108: elsif var_plan_rec.explosion_completion_date IS NULL
109: then
110: fnd_message.set_name('MRP', 'PLAN-process not completed');
111: fnd_message.set_token('PROCESS', 'E_EXPLODER', TRUE);
112: raise invalid_plan;
113: end if;
114: end if;
107: raise invalid_plan;
108: elsif var_plan_rec.explosion_completion_date IS NULL
109: then
110: fnd_message.set_name('MRP', 'PLAN-process not completed');
111: fnd_message.set_token('PROCESS', 'E_EXPLODER', TRUE);
112: raise invalid_plan;
113: end if;
114: end if;
115: */
116: if var_test_snapshot = SYS_YES
117: then
118: if var_plan_rec.data_start_date IS NULL
119: then
120: fnd_message.set_name('MRP', 'PLAN-process not run');
121: fnd_message.set_token('PROCESS', 'E_SNAPSHOT', TRUE);
122: raise invalid_plan;
123: elsif var_plan_rec.data_completion_date IS NULL
124: then
117: then
118: if var_plan_rec.data_start_date IS NULL
119: then
120: fnd_message.set_name('MRP', 'PLAN-process not run');
121: fnd_message.set_token('PROCESS', 'E_SNAPSHOT', TRUE);
122: raise invalid_plan;
123: elsif var_plan_rec.data_completion_date IS NULL
124: then
125: fnd_message.set_name('MRP', 'PLAN-process not completed');
121: fnd_message.set_token('PROCESS', 'E_SNAPSHOT', TRUE);
122: raise invalid_plan;
123: elsif var_plan_rec.data_completion_date IS NULL
124: then
125: fnd_message.set_name('MRP', 'PLAN-process not completed');
126: fnd_message.set_token('PROCESS', 'E_SNAPSHOT', TRUE);
127: raise invalid_plan;
128: /* elsif var_plan_rec.data_completion_date <
129: var_plan_rec.explosion_completion_date
122: raise invalid_plan;
123: elsif var_plan_rec.data_completion_date IS NULL
124: then
125: fnd_message.set_name('MRP', 'PLAN-process not completed');
126: fnd_message.set_token('PROCESS', 'E_SNAPSHOT', TRUE);
127: raise invalid_plan;
128: /* elsif var_plan_rec.data_completion_date <
129: var_plan_rec.explosion_completion_date
130: then
127: raise invalid_plan;
128: /* elsif var_plan_rec.data_completion_date <
129: var_plan_rec.explosion_completion_date
130: then
131: fnd_message.set_name('MRP', 'GEN-process more recent');
132: fnd_message.set_token('PROCESS1', 'E_EXPLODER', TRUE);
133: fnd_message.set_token('PROCESS2', 'E_SNAPSHOT', TRUE);
134: raise invalid_plan; */
135: end if;
128: /* elsif var_plan_rec.data_completion_date <
129: var_plan_rec.explosion_completion_date
130: then
131: fnd_message.set_name('MRP', 'GEN-process more recent');
132: fnd_message.set_token('PROCESS1', 'E_EXPLODER', TRUE);
133: fnd_message.set_token('PROCESS2', 'E_SNAPSHOT', TRUE);
134: raise invalid_plan; */
135: end if;
136: end if;
129: var_plan_rec.explosion_completion_date
130: then
131: fnd_message.set_name('MRP', 'GEN-process more recent');
132: fnd_message.set_token('PROCESS1', 'E_EXPLODER', TRUE);
133: fnd_message.set_token('PROCESS2', 'E_SNAPSHOT', TRUE);
134: raise invalid_plan; */
135: end if;
136: end if;
137: if var_test_planner = SYS_YES
137: if var_test_planner = SYS_YES
138: then
139: if var_plan_rec.plan_start_date IS NULL
140: then
141: fnd_message.set_name('MRP', 'PLAN-process not run');
142: fnd_message.set_token('PROCESS', 'E_PLANNER', TRUE);
143: raise invalid_plan;
144: elsif var_plan_rec.plan_completion_date IS NULL
145: then
138: then
139: if var_plan_rec.plan_start_date IS NULL
140: then
141: fnd_message.set_name('MRP', 'PLAN-process not run');
142: fnd_message.set_token('PROCESS', 'E_PLANNER', TRUE);
143: raise invalid_plan;
144: elsif var_plan_rec.plan_completion_date IS NULL
145: then
146: fnd_message.set_name('MRP', 'PLAN-process not completed');
142: fnd_message.set_token('PROCESS', 'E_PLANNER', TRUE);
143: raise invalid_plan;
144: elsif var_plan_rec.plan_completion_date IS NULL
145: then
146: fnd_message.set_name('MRP', 'PLAN-process not completed');
147: fnd_message.set_token('PROCESS', 'E_PLANNER', TRUE);
148: raise invalid_plan;
149: elsif var_plan_rec.plan_completion_date <
150: var_plan_rec.data_completion_date
143: raise invalid_plan;
144: elsif var_plan_rec.plan_completion_date IS NULL
145: then
146: fnd_message.set_name('MRP', 'PLAN-process not completed');
147: fnd_message.set_token('PROCESS', 'E_PLANNER', TRUE);
148: raise invalid_plan;
149: elsif var_plan_rec.plan_completion_date <
150: var_plan_rec.data_completion_date
151: then
148: raise invalid_plan;
149: elsif var_plan_rec.plan_completion_date <
150: var_plan_rec.data_completion_date
151: then
152: fnd_message.set_name('MRP', 'GEN-process more recent');
153: fnd_message.set_token('PROCESS1', 'E_SNAPSHOT', TRUE);
154: fnd_message.set_token('PROCESS2', 'E_PLANNER', TRUE);
155: raise invalid_plan;
156: end if;
149: elsif var_plan_rec.plan_completion_date <
150: var_plan_rec.data_completion_date
151: then
152: fnd_message.set_name('MRP', 'GEN-process more recent');
153: fnd_message.set_token('PROCESS1', 'E_SNAPSHOT', TRUE);
154: fnd_message.set_token('PROCESS2', 'E_PLANNER', TRUE);
155: raise invalid_plan;
156: end if;
157: end if;
150: var_plan_rec.data_completion_date
151: then
152: fnd_message.set_name('MRP', 'GEN-process more recent');
153: fnd_message.set_token('PROCESS1', 'E_SNAPSHOT', TRUE);
154: fnd_message.set_token('PROCESS2', 'E_PLANNER', TRUE);
155: raise invalid_plan;
156: end if;
157: end if;
158: /*
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: */