DBA Data[Home] [Help]

APPS.CZ_RULES_SEQ dependencies on CZ_RULES

Line 1: PACKAGE BODY CZ_RULES_SEQ AS

1: PACKAGE BODY CZ_RULES_SEQ AS
2: /* $Header: czrseqb.pls 115.26 2004/06/07 16:02:13 rheramba ship $ */
3:
4: GLOBAL_RUN_ID INTEGER:=0;
5: EPOCH_BEGIN DATE:=CZ_UTILS.EPOCH_BEGIN_;

Line 40: LOG_REPORT('CZ_RULES_SEQ',l_message_text);

36: l_message_text := CZ_UTILS.GET_TEXT(p_message_name);
37: ELSE
38: l_message_text := CZ_UTILS.GET_TEXT(p_message_name,p_token,p_value);
39: END IF;
40: LOG_REPORT('CZ_RULES_SEQ',l_message_text);
41: END FND_REPORT;
42:
43: PROCEDURE FND_REPORT
44: (p_message_name IN VARCHAR2,

Line 58: LOG_REPORT('CZ_RULES_SEQ',l_message_text);

54: l_message_text := CZ_UTILS.GET_TEXT(p_message_name,p_token1,p_value1);
55: ELSE
56: l_message_text := CZ_UTILS.GET_TEXT(p_message_name,p_token1,p_value1,p_token2,p_value2);
57: END IF;
58: LOG_REPORT('CZ_RULES_SEQ',l_message_text);
59: END FND_REPORT;
60:
61: /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
62: <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<*/

Line 96: UPDATE CZ_RULES

92: p_seq_nbr IN INTEGER DEFAULT NULL) IS
93:
94: BEGIN
95:
96: UPDATE CZ_RULES
97: SET effective_from=NVL(p_from_date,effective_from),
98: effective_until=NVL(p_until_date,effective_until),
99: effectivity_set_id=DECODE(p_eff_set_id,NULL_VALUE,NULL,NULL,effectivity_set_id,p_eff_set_id),
100: seq_nbr=NVL(p_seq_nbr,seq_nbr)

Line 136: SELECT seq_nbr INTO p_seq FROM CZ_RULES

132:
133: BEGIN
134:
135: IF p_seq IS NULL THEN
136: SELECT seq_nbr INTO p_seq FROM CZ_RULES
137: WHERE rule_id=p_rule_id;
138: END IF;
139:
140: p_out_left_seq:=NULL_VALUE;

Line 160: FROM CZ_RULES a,CZ_EFFECTIVITY_SETS b

156: DECODE(a.seq_nbr,p_seq,'C',p_seq-1,'L',p_seq+1,'R','N') as where_in_seq,
157: NVL(a.effectivity_set_id,NULL_VALUE) as effectivity_set_id,
158: DECODE(a.effectivity_set_id,NULL,a.effective_from,NULL_VALUE,a.effective_from,b.effective_from) as effective_from,
159: DECODE(a.effectivity_set_id,NULL,a.effective_until,NULL_VALUE,a.effective_until,b.effective_until) as effective_until
160: FROM CZ_RULES a,CZ_EFFECTIVITY_SETS b
161: WHERE a.rule_folder_id=p_rule_sequence_id
162: AND a.seq_nbr BETWEEN (p_seq-1) AND (p_seq+1)
163: AND a.deleted_flag='0'
164: AND b.effectivity_set_id(+)=a.effectivity_set_id

Line 234: FROM CZ_RULES WHERE devl_project_id=p_model_id AND rule_folder_id=p_rule_sequence_id

230:
231: BEGIN
232: SELECT effective_from,effective_until,effectivity_set_id,rule_id INTO
233: p_out_left_eff_from,p_out_left_eff_to,p_out_left_set_id,p_out_left_rule_id
234: FROM CZ_RULES WHERE devl_project_id=p_model_id AND rule_folder_id=p_rule_sequence_id
235: AND seq_nbr=p_seq_nbr;
236:
237: IF p_out_left_set_id IS NOT NULL THEN
238: SELECT effective_from,effective_until INTO

Line 252: FROM CZ_RULES WHERE devl_project_id=p_model_id AND rule_folder_id=p_rule_sequence_id

248:
249: BEGIN
250: SELECT effective_from,effective_until,effectivity_set_id,rule_id INTO
251: p_out_right_eff_from,p_out_right_eff_to,p_out_right_set_id,p_out_right_rule_id
252: FROM CZ_RULES WHERE devl_project_id=p_model_id AND rule_folder_id=p_rule_sequence_id
253: AND seq_nbr=p_seq_nbr+1;
254:
255: IF p_out_right_set_id IS NOT NULL THEN
256: SELECT effective_from,effective_until INTO

Line 335: UPDATE CZ_RULES

331: END;
332:
333: /* *** shift all successors to the left side *** */
334:
335: UPDATE CZ_RULES
336: SET seq_nbr=seq_nbr-1
337: WHERE devl_project_id=p_model_id AND seq_nbr>var_curr_seq AND
338: rule_folder_id=p_rule_sequence_id AND deleted_flag=NO_FLAG;
339:

Line 343: UPDATE CZ_RULES

339:
340:
341: /* *** delete current rule from sequence *** */
342:
343: UPDATE CZ_RULES
344: SET seq_nbr=NULL_VALUE,
345: rule_folder_id=NULL_VALUE
346: WHERE rule_id=p_rule_id AND deleted_flag=NO_FLAG;
347:

Line 351: LOG_REPORT('CZ_RULES_SEQ.RemoveFromSequence','rule_id='||TO_CHAR(p_rule_id)||' : '||SQLERRM);

347:
348: EXCEPTION
349: WHEN NO_DATA_FOUND THEN
350: p_out_err:=GLOBAL_RUN_ID;
351: LOG_REPORT('CZ_RULES_SEQ.RemoveFromSequence','rule_id='||TO_CHAR(p_rule_id)||' : '||SQLERRM);
352: WHEN OTHERS THEN
353: p_out_err:=GLOBAL_RUN_ID;
354: LOG_REPORT('CZ_RULES_SEQ.RemoveFromSequence','rule_id='||TO_CHAR(p_rule_id)||' : '||SQLERRM);
355: END;

Line 354: LOG_REPORT('CZ_RULES_SEQ.RemoveFromSequence','rule_id='||TO_CHAR(p_rule_id)||' : '||SQLERRM);

350: p_out_err:=GLOBAL_RUN_ID;
351: LOG_REPORT('CZ_RULES_SEQ.RemoveFromSequence','rule_id='||TO_CHAR(p_rule_id)||' : '||SQLERRM);
352: WHEN OTHERS THEN
353: p_out_err:=GLOBAL_RUN_ID;
354: LOG_REPORT('CZ_RULES_SEQ.RemoveFromSequence','rule_id='||TO_CHAR(p_rule_id)||' : '||SQLERRM);
355: END;
356:
357: /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
358: <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<*/

Line 464: UPDATE CZ_RULES

460: ELSE
461: set_Dates(p_rule_id,var_target_left_eff_to,var_target_left_eff_to,NULL_VALUE);
462: END IF;
463:
464: UPDATE CZ_RULES
465: SET seq_nbr=seq_nbr-1
466: WHERE rule_folder_id=p_rule_sequence_id AND
467: seq_nbr > var_curr_seq AND
468: seq_nbr <= p_new_sequence AND

Line 471: UPDATE CZ_RULES

467: seq_nbr > var_curr_seq AND
468: seq_nbr <= p_new_sequence AND
469: deleted_flag=NO_FLAG;
470:
471: UPDATE CZ_RULES
472: SET seq_nbr=p_new_sequence
473: WHERE rule_id=p_rule_id;
474:
475: END IF;

Line 548: UPDATE CZ_RULES

544: set_Dates(p_rule_id,var_target_left_eff_from,var_target_left_eff_from,NULL_VALUE);
545: END IF;
546: END IF;
547:
548: UPDATE CZ_RULES
549: SET seq_nbr=seq_nbr+1
550: WHERE rule_folder_id=p_rule_sequence_id AND
551: seq_nbr < var_curr_seq AND
552: seq_nbr >= p_new_sequence AND

Line 555: UPDATE CZ_RULES

551: seq_nbr < var_curr_seq AND
552: seq_nbr >= p_new_sequence AND
553: deleted_flag=NO_FLAG;
554:
555: UPDATE CZ_RULES
556: SET seq_nbr=p_new_sequence
557: WHERE rule_id=p_rule_id;
558:
559: END IF;

Line 564: LOG_REPORT('CZ_RULES_SEQ.MoveInSequence','rule_id='||TO_CHAR(p_rule_id)||' : '||SQLERRM);

560:
561: EXCEPTION
562: WHEN NO_DATA_FOUND THEN
563: p_out_err:=GLOBAL_RUN_ID;
564: LOG_REPORT('CZ_RULES_SEQ.MoveInSequence','rule_id='||TO_CHAR(p_rule_id)||' : '||SQLERRM);
565: WHEN OTHERS THEN
566: p_out_err:=GLOBAL_RUN_ID;
567: LOG_REPORT('CZ_RULES_SEQ.MoveInSequence','rule_id='||TO_CHAR(p_rule_id)||' : '||SQLERRM);
568: END;

Line 567: LOG_REPORT('CZ_RULES_SEQ.MoveInSequence','rule_id='||TO_CHAR(p_rule_id)||' : '||SQLERRM);

563: p_out_err:=GLOBAL_RUN_ID;
564: LOG_REPORT('CZ_RULES_SEQ.MoveInSequence','rule_id='||TO_CHAR(p_rule_id)||' : '||SQLERRM);
565: WHEN OTHERS THEN
566: p_out_err:=GLOBAL_RUN_ID;
567: LOG_REPORT('CZ_RULES_SEQ.MoveInSequence','rule_id='||TO_CHAR(p_rule_id)||' : '||SQLERRM);
568: END;
569:
570: /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
571: <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<*/

Line 694: LOG_REPORT('CZ_RULES_SEQ.ChangeEffectivity','rule_id='||TO_CHAR(p_rule_id)||' : '||SQLERRM);

690: WHEN END_OPERATION THEN
691: NULL;
692: WHEN NO_DATA_FOUND THEN
693: p_out_err:=1;
694: LOG_REPORT('CZ_RULES_SEQ.ChangeEffectivity','rule_id='||TO_CHAR(p_rule_id)||' : '||SQLERRM);
695: WHEN OTHERS THEN
696: p_out_err:=2;
697: LOG_REPORT('CZ_RULES_SEQ.ChangeEffectivity','rule_id='||TO_CHAR(p_rule_id)||' : '||SQLERRM);
698: END;

Line 697: LOG_REPORT('CZ_RULES_SEQ.ChangeEffectivity','rule_id='||TO_CHAR(p_rule_id)||' : '||SQLERRM);

693: p_out_err:=1;
694: LOG_REPORT('CZ_RULES_SEQ.ChangeEffectivity','rule_id='||TO_CHAR(p_rule_id)||' : '||SQLERRM);
695: WHEN OTHERS THEN
696: p_out_err:=2;
697: LOG_REPORT('CZ_RULES_SEQ.ChangeEffectivity','rule_id='||TO_CHAR(p_rule_id)||' : '||SQLERRM);
698: END;
699:
700: /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
701: <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<*/

Line 725: var_name CZ_RULES.name%TYPE;

721: var_new_rule_id INTEGER;
722: var_left_set_id INTEGER;
723: var_right_set_id INTEGER;
724: var_set_id INTEGER;
725: var_name CZ_RULES.name%TYPE;
726: var_eff_name CZ_EFFECTIVITY_SETS.name%TYPE;
727: var_rule_name CZ_RULES.name%TYPE;
728:
729: var_eff_from DATE;

Line 727: var_rule_name CZ_RULES.name%TYPE;

723: var_right_set_id INTEGER;
724: var_set_id INTEGER;
725: var_name CZ_RULES.name%TYPE;
726: var_eff_name CZ_EFFECTIVITY_SETS.name%TYPE;
727: var_rule_name CZ_RULES.name%TYPE;
728:
729: var_eff_from DATE;
730: var_eff_to DATE;
731: var_left_eff_from DATE;

Line 751: FOR k IN ( SELECT a.* FROM CZ_RULES a, CZ_RULE_FOLDERS b

747: SET effective_from=p_new_start_date,
748: effective_until=p_new_end_date
749: WHERE effectivity_set_id=p_effectivity_set_id RETURNING name INTO var_eff_name;
750:
751: FOR k IN ( SELECT a.* FROM CZ_RULES a, CZ_RULE_FOLDERS b
752: WHERE a.rule_folder_id = b.rule_folder_id
753: AND b.folder_type=1 AND b.deleted_flag=NO_FLAG
754: AND a.effectivity_set_id=p_effectivity_set_id
755: AND a.deleted_flag=NO_FLAG)

Line 799: SELECT name INTO var_name FROM CZ_RULES WHERE rule_id=var_left_rule_id;

795:
796: EXCEPTION
797: WHEN LEFT_OVERLAP THEN
798: p_out_err:=GLOBAL_RUN_ID;
799: SELECT name INTO var_name FROM CZ_RULES WHERE rule_id=var_left_rule_id;
800: IF var_left_eff_from=EPOCH_END AND var_left_eff_to=EPOCH_BEGIN THEN
801: FND_REPORT('CZ_UNABLE_TO_ACTIVATE_RULE','RULENAME',var_name);
802: ELSE
803: FND_REPORT('CZ_EFF_SET_PREV_OVERLAP','EFFNAME',var_eff_name,'RULENAME',var_name);

Line 807: SELECT name INTO var_name FROM CZ_RULES WHERE rule_id=var_right_rule_id;

803: FND_REPORT('CZ_EFF_SET_PREV_OVERLAP','EFFNAME',var_eff_name,'RULENAME',var_name);
804: END IF;
805: WHEN RIGHT_OVERLAP THEN
806: p_out_err:=GLOBAL_RUN_ID;
807: SELECT name INTO var_name FROM CZ_RULES WHERE rule_id=var_right_rule_id;
808: FND_REPORT('CZ_EFF_SET_NEXT_OVERLAP','EFFNAME',var_eff_name,'RULENAME',var_name);
809: WHEN NO_DATA_FOUND THEN
810: p_out_err:=GLOBAL_RUN_ID;
811: SELECT name INTO var_name FROM CZ_RULES WHERE rule_id=var_right_rule_id;

Line 811: SELECT name INTO var_name FROM CZ_RULES WHERE rule_id=var_right_rule_id;

807: SELECT name INTO var_name FROM CZ_RULES WHERE rule_id=var_right_rule_id;
808: FND_REPORT('CZ_EFF_SET_NEXT_OVERLAP','EFFNAME',var_eff_name,'RULENAME',var_name);
809: WHEN NO_DATA_FOUND THEN
810: p_out_err:=GLOBAL_RUN_ID;
811: SELECT name INTO var_name FROM CZ_RULES WHERE rule_id=var_right_rule_id;
812: LOG_REPORT('CZ_RULES_SEQ','effectivity "'||var_eff_name||'" : '||SQLERRM);
813: WHEN OTHERS THEN
814: p_out_err:=GLOBAL_RUN_ID;
815: LOG_REPORT('CZ_RULES_SEQ','effectivity "'||var_eff_name||'" : '||SQLERRM);

Line 812: LOG_REPORT('CZ_RULES_SEQ','effectivity "'||var_eff_name||'" : '||SQLERRM);

808: FND_REPORT('CZ_EFF_SET_NEXT_OVERLAP','EFFNAME',var_eff_name,'RULENAME',var_name);
809: WHEN NO_DATA_FOUND THEN
810: p_out_err:=GLOBAL_RUN_ID;
811: SELECT name INTO var_name FROM CZ_RULES WHERE rule_id=var_right_rule_id;
812: LOG_REPORT('CZ_RULES_SEQ','effectivity "'||var_eff_name||'" : '||SQLERRM);
813: WHEN OTHERS THEN
814: p_out_err:=GLOBAL_RUN_ID;
815: LOG_REPORT('CZ_RULES_SEQ','effectivity "'||var_eff_name||'" : '||SQLERRM);
816: END;

Line 815: LOG_REPORT('CZ_RULES_SEQ','effectivity "'||var_eff_name||'" : '||SQLERRM);

811: SELECT name INTO var_name FROM CZ_RULES WHERE rule_id=var_right_rule_id;
812: LOG_REPORT('CZ_RULES_SEQ','effectivity "'||var_eff_name||'" : '||SQLERRM);
813: WHEN OTHERS THEN
814: p_out_err:=GLOBAL_RUN_ID;
815: LOG_REPORT('CZ_RULES_SEQ','effectivity "'||var_eff_name||'" : '||SQLERRM);
816: END;
817:
818: /*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
819: <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<*/