80: p_updating IN BOOLEAN DEFAULT FALSE,
81: p_deleting IN BOOLEAN DEFAULT FALSE
82: ) as
83: v_message_name varchar2(30);
84: CURSOR c_uap (cp_unit_cd IGS_AS_UNTAS_PATTERN.unit_cd%TYPE,
85: cp_version_number IGS_AS_UNTAS_PATTERN.version_number%TYPE,
86: cp_cal_type IGS_AS_UNTAS_PATTERN.cal_type%TYPE,
87: cp_ci_sequence_number IGS_AS_UNTAS_PATTERN.ci_sequence_number%TYPE,
88: cp_ass_pattern_id IGS_AS_UNTAS_PATTERN.ass_pattern_id%TYPE) IS
81: p_deleting IN BOOLEAN DEFAULT FALSE
82: ) as
83: v_message_name varchar2(30);
84: CURSOR c_uap (cp_unit_cd IGS_AS_UNTAS_PATTERN.unit_cd%TYPE,
85: cp_version_number IGS_AS_UNTAS_PATTERN.version_number%TYPE,
86: cp_cal_type IGS_AS_UNTAS_PATTERN.cal_type%TYPE,
87: cp_ci_sequence_number IGS_AS_UNTAS_PATTERN.ci_sequence_number%TYPE,
88: cp_ass_pattern_id IGS_AS_UNTAS_PATTERN.ass_pattern_id%TYPE) IS
89: SELECT uap.action_dt
82: ) as
83: v_message_name varchar2(30);
84: CURSOR c_uap (cp_unit_cd IGS_AS_UNTAS_PATTERN.unit_cd%TYPE,
85: cp_version_number IGS_AS_UNTAS_PATTERN.version_number%TYPE,
86: cp_cal_type IGS_AS_UNTAS_PATTERN.cal_type%TYPE,
87: cp_ci_sequence_number IGS_AS_UNTAS_PATTERN.ci_sequence_number%TYPE,
88: cp_ass_pattern_id IGS_AS_UNTAS_PATTERN.ass_pattern_id%TYPE) IS
89: SELECT uap.action_dt
90: FROM IGS_AS_UNTAS_PATTERN uap
83: v_message_name varchar2(30);
84: CURSOR c_uap (cp_unit_cd IGS_AS_UNTAS_PATTERN.unit_cd%TYPE,
85: cp_version_number IGS_AS_UNTAS_PATTERN.version_number%TYPE,
86: cp_cal_type IGS_AS_UNTAS_PATTERN.cal_type%TYPE,
87: cp_ci_sequence_number IGS_AS_UNTAS_PATTERN.ci_sequence_number%TYPE,
88: cp_ass_pattern_id IGS_AS_UNTAS_PATTERN.ass_pattern_id%TYPE) IS
89: SELECT uap.action_dt
90: FROM IGS_AS_UNTAS_PATTERN uap
91: WHERE uap.unit_cd = cp_unit_cd AND
84: CURSOR c_uap (cp_unit_cd IGS_AS_UNTAS_PATTERN.unit_cd%TYPE,
85: cp_version_number IGS_AS_UNTAS_PATTERN.version_number%TYPE,
86: cp_cal_type IGS_AS_UNTAS_PATTERN.cal_type%TYPE,
87: cp_ci_sequence_number IGS_AS_UNTAS_PATTERN.ci_sequence_number%TYPE,
88: cp_ass_pattern_id IGS_AS_UNTAS_PATTERN.ass_pattern_id%TYPE) IS
89: SELECT uap.action_dt
90: FROM IGS_AS_UNTAS_PATTERN uap
91: WHERE uap.unit_cd = cp_unit_cd AND
92: uap.version_number = cp_version_number AND
86: cp_cal_type IGS_AS_UNTAS_PATTERN.cal_type%TYPE,
87: cp_ci_sequence_number IGS_AS_UNTAS_PATTERN.ci_sequence_number%TYPE,
88: cp_ass_pattern_id IGS_AS_UNTAS_PATTERN.ass_pattern_id%TYPE) IS
89: SELECT uap.action_dt
90: FROM IGS_AS_UNTAS_PATTERN uap
91: WHERE uap.unit_cd = cp_unit_cd AND
92: uap.version_number = cp_version_number AND
93: uap.cal_type = cp_cal_type AND
94: uap.ci_sequence_number = cp_ci_sequence_number AND
112: App_Exception.Raise_Exception;
113: END IF;
114: END IF;
115: IF p_inserting THEN
116: -- Update the action date of the IGS_AS_UNTAS_PATTERN table
117: FOR v_uap_rec IN c_uap( new_references.unit_cd,
118: new_references.version_number,
119: new_references.cal_type,
120: new_references.ci_sequence_number,
118: new_references.version_number,
119: new_references.cal_type,
120: new_references.ci_sequence_number,
121: new_references.ass_pattern_id) LOOP
122: UPDATE IGS_AS_UNTAS_PATTERN uap
123: SET uap.action_dt = SYSDATE
124: WHERE CURRENT OF c_uap;
125: END LOOP;
126: END IF;
124: WHERE CURRENT OF c_uap;
125: END LOOP;
126: END IF;
127: IF p_deleting THEN
128: -- Update the action date of the IGS_AS_UNTAS_PATTERN table
129: FOR v_uap_rec IN c_uap( old_references.unit_cd,
130: old_references.version_number,
131: old_references.cal_type,
132: old_references.ci_sequence_number,
130: old_references.version_number,
131: old_references.cal_type,
132: old_references.ci_sequence_number,
133: old_references.ass_pattern_id) LOOP
134: UPDATE IGS_AS_UNTAS_PATTERN uap
135: SET uap.action_dt = SYSDATE
136: WHERE CURRENT OF c_uap;
137: END LOOP;
138: END IF;
183: (new_references.ci_sequence_number IS NULL) OR
184: (new_references.ass_pattern_id IS NULL))) THEN
185: NULL;
186: ELSE
187: IF NOT(IGS_AS_UNTAS_PATTERN_PKG.Get_PK_For_Validation (
188: new_references.unit_cd,
189: new_references.version_number,
190: new_references.cal_type,
191: new_references.ci_sequence_number,
336: Close cur_rowid;
337:
338: END GET_FK_IGS_AS_UNITASS_ITEM;
339:
340: PROCEDURE GET_FK_IGS_AS_UNTAS_PATTERN (
341: x_unit_cd IN VARCHAR2,
342: x_version_number IN NUMBER,
343: x_cal_type IN VARCHAR2,
344: x_ci_sequence_number IN NUMBER,
368: Return;
369: END IF;
370: Close cur_rowid;
371:
372: END GET_FK_IGS_AS_UNTAS_PATTERN;
373:
374: PROCEDURE Before_DML (
375: p_action IN VARCHAR2,
376: x_rowid IN VARCHAR2 DEFAULT NULL,