15: , x_PTE_rec OUT NOCOPY /* file.sql.39 change */ QP_Attr_Map_PUB.Pte_Rec_Type
16: )
17: IS
18: l_index NUMBER := 0;
19: l_src_attr_tbl QP_GLOBALS.NUMBER_Tbl_Type;
20: l_dep_attr_tbl QP_GLOBALS.NUMBER_Tbl_Type;
21: BEGIN
22:
23: -- Load out record
16: )
17: IS
18: l_index NUMBER := 0;
19: l_src_attr_tbl QP_GLOBALS.NUMBER_Tbl_Type;
20: l_dep_attr_tbl QP_GLOBALS.NUMBER_Tbl_Type;
21: BEGIN
22:
23: -- Load out record
24:
28: -- every changed attribute clear its dependent fields.
29:
30: IF p_attr_id = FND_API.G_MISS_NUM THEN
31:
32: IF NOT QP_GLOBALS.Equal(p_PTE_rec.description,p_old_PTE_rec.description)
33: THEN
34: l_index := l_index + 1;
35: l_src_attr_tbl(l_index) := QP_PTE_UTIL.G_DESCRIPTION;
36: END IF;
34: l_index := l_index + 1;
35: l_src_attr_tbl(l_index) := QP_PTE_UTIL.G_DESCRIPTION;
36: END IF;
37:
38: IF NOT QP_GLOBALS.Equal(p_PTE_rec.enabled_flag,p_old_PTE_rec.enabled_flag)
39: THEN
40: l_index := l_index + 1;
41: l_src_attr_tbl(l_index) := QP_PTE_UTIL.G_ENABLED;
42: END IF;
40: l_index := l_index + 1;
41: l_src_attr_tbl(l_index) := QP_PTE_UTIL.G_ENABLED;
42: END IF;
43:
44: IF NOT QP_GLOBALS.Equal(p_PTE_rec.end_date_active,p_old_PTE_rec.end_date_active)
45: THEN
46: l_index := l_index + 1;
47: l_src_attr_tbl(l_index) := QP_PTE_UTIL.G_END_DATE_ACTIVE;
48: END IF;
46: l_index := l_index + 1;
47: l_src_attr_tbl(l_index) := QP_PTE_UTIL.G_END_DATE_ACTIVE;
48: END IF;
49:
50: IF NOT QP_GLOBALS.Equal(p_PTE_rec.lookup_code,p_old_PTE_rec.lookup_code)
51: THEN
52: l_index := l_index + 1;
53: l_src_attr_tbl(l_index) := QP_PTE_UTIL.G_LOOKUP;
54: END IF;
52: l_index := l_index + 1;
53: l_src_attr_tbl(l_index) := QP_PTE_UTIL.G_LOOKUP;
54: END IF;
55:
56: IF NOT QP_GLOBALS.Equal(p_PTE_rec.lookup_type,p_old_PTE_rec.lookup_type)
57: THEN
58: l_index := l_index + 1;
59: l_src_attr_tbl(l_index) := QP_PTE_UTIL.G_LOOKUP_TYPE;
60: END IF;
58: l_index := l_index + 1;
59: l_src_attr_tbl(l_index) := QP_PTE_UTIL.G_LOOKUP_TYPE;
60: END IF;
61:
62: IF NOT QP_GLOBALS.Equal(p_PTE_rec.meaning,p_old_PTE_rec.meaning)
63: THEN
64: l_index := l_index + 1;
65: l_src_attr_tbl(l_index) := QP_PTE_UTIL.G_MEANING;
66: END IF;
64: l_index := l_index + 1;
65: l_src_attr_tbl(l_index) := QP_PTE_UTIL.G_MEANING;
66: END IF;
67:
68: IF NOT QP_GLOBALS.Equal(p_PTE_rec.start_date_active,p_old_PTE_rec.start_date_active)
69: THEN
70: l_index := l_index + 1;
71: l_src_attr_tbl(l_index) := QP_PTE_UTIL.G_START_DATE_ACTIVE;
72: END IF;
110: -- Load out record
111:
112: x_PTE_rec := p_PTE_rec;
113:
114: IF NOT QP_GLOBALS.Equal(p_PTE_rec.description,p_old_PTE_rec.description)
115: THEN
116: NULL;
117: END IF;
118:
115: THEN
116: NULL;
117: END IF;
118:
119: IF NOT QP_GLOBALS.Equal(p_PTE_rec.enabled_flag,p_old_PTE_rec.enabled_flag)
120: THEN
121: NULL;
122: END IF;
123:
120: THEN
121: NULL;
122: END IF;
123:
124: IF NOT QP_GLOBALS.Equal(p_PTE_rec.end_date_active,p_old_PTE_rec.end_date_active)
125: THEN
126: NULL;
127: END IF;
128:
125: THEN
126: NULL;
127: END IF;
128:
129: IF NOT QP_GLOBALS.Equal(p_PTE_rec.lookup_code,p_old_PTE_rec.lookup_code)
130: THEN
131: NULL;
132: END IF;
133:
130: THEN
131: NULL;
132: END IF;
133:
134: IF NOT QP_GLOBALS.Equal(p_PTE_rec.lookup_type,p_old_PTE_rec.lookup_type)
135: THEN
136: NULL;
137: END IF;
138:
135: THEN
136: NULL;
137: END IF;
138:
139: IF NOT QP_GLOBALS.Equal(p_PTE_rec.meaning,p_old_PTE_rec.meaning)
140: THEN
141: NULL;
142: END IF;
143:
140: THEN
141: NULL;
142: END IF;
143:
144: IF NOT QP_GLOBALS.Equal(p_PTE_rec.start_date_active,p_old_PTE_rec.start_date_active)
145: THEN
146: NULL;
147: END IF;
148:
422: FOR UPDATE NOWAIT;
423:
424: -- Row locked. Compare IN attributes to DB attributes.
425:
426: IF QP_GLOBALS.Equal(p_PTE_rec.description,
427: l_PTE_rec.description)
428: AND QP_GLOBALS.Equal(p_PTE_rec.enabled_flag,
429: l_PTE_rec.enabled_flag)
430: AND QP_GLOBALS.Equal(p_PTE_rec.end_date_active,
424: -- Row locked. Compare IN attributes to DB attributes.
425:
426: IF QP_GLOBALS.Equal(p_PTE_rec.description,
427: l_PTE_rec.description)
428: AND QP_GLOBALS.Equal(p_PTE_rec.enabled_flag,
429: l_PTE_rec.enabled_flag)
430: AND QP_GLOBALS.Equal(p_PTE_rec.end_date_active,
431: l_PTE_rec.end_date_active)
432: AND QP_GLOBALS.Equal(p_PTE_rec.lookup_code,
426: IF QP_GLOBALS.Equal(p_PTE_rec.description,
427: l_PTE_rec.description)
428: AND QP_GLOBALS.Equal(p_PTE_rec.enabled_flag,
429: l_PTE_rec.enabled_flag)
430: AND QP_GLOBALS.Equal(p_PTE_rec.end_date_active,
431: l_PTE_rec.end_date_active)
432: AND QP_GLOBALS.Equal(p_PTE_rec.lookup_code,
433: l_PTE_rec.lookup_code)
434: AND QP_GLOBALS.Equal(p_PTE_rec.lookup_type,
428: AND QP_GLOBALS.Equal(p_PTE_rec.enabled_flag,
429: l_PTE_rec.enabled_flag)
430: AND QP_GLOBALS.Equal(p_PTE_rec.end_date_active,
431: l_PTE_rec.end_date_active)
432: AND QP_GLOBALS.Equal(p_PTE_rec.lookup_code,
433: l_PTE_rec.lookup_code)
434: AND QP_GLOBALS.Equal(p_PTE_rec.lookup_type,
435: l_PTE_rec.lookup_type)
436: AND QP_GLOBALS.Equal(p_PTE_rec.meaning,
430: AND QP_GLOBALS.Equal(p_PTE_rec.end_date_active,
431: l_PTE_rec.end_date_active)
432: AND QP_GLOBALS.Equal(p_PTE_rec.lookup_code,
433: l_PTE_rec.lookup_code)
434: AND QP_GLOBALS.Equal(p_PTE_rec.lookup_type,
435: l_PTE_rec.lookup_type)
436: AND QP_GLOBALS.Equal(p_PTE_rec.meaning,
437: l_PTE_rec.meaning)
438: AND QP_GLOBALS.Equal(p_PTE_rec.start_date_active,
432: AND QP_GLOBALS.Equal(p_PTE_rec.lookup_code,
433: l_PTE_rec.lookup_code)
434: AND QP_GLOBALS.Equal(p_PTE_rec.lookup_type,
435: l_PTE_rec.lookup_type)
436: AND QP_GLOBALS.Equal(p_PTE_rec.meaning,
437: l_PTE_rec.meaning)
438: AND QP_GLOBALS.Equal(p_PTE_rec.start_date_active,
439: l_PTE_rec.start_date_active)
440: THEN
434: AND QP_GLOBALS.Equal(p_PTE_rec.lookup_type,
435: l_PTE_rec.lookup_type)
436: AND QP_GLOBALS.Equal(p_PTE_rec.meaning,
437: l_PTE_rec.meaning)
438: AND QP_GLOBALS.Equal(p_PTE_rec.start_date_active,
439: l_PTE_rec.start_date_active)
440: THEN
441:
442: -- Row has not changed. Set out parameter.
518: BEGIN
519:
520: IF p_PTE_rec.enabled_flag IS NOT NULL AND
521: p_PTE_rec.enabled_flag <> FND_API.G_MISS_CHAR AND
522: NOT QP_GLOBALS.Equal(p_PTE_rec.enabled_flag,
523: p_old_PTE_rec.enabled_flag)
524: THEN
525: l_PTE_val_rec.enabled := QP_Id_To_Value.Enabled
526: ( p_enabled_flag => p_PTE_rec.enabled_flag
528: END IF;
529:
530: IF p_PTE_rec.lookup_code IS NOT NULL AND
531: p_PTE_rec.lookup_code <> FND_API.G_MISS_CHAR AND
532: NOT QP_GLOBALS.Equal(p_PTE_rec.lookup_code,
533: p_old_PTE_rec.lookup_code)
534: THEN
535: l_PTE_val_rec.lookup := QP_Id_To_Value.Lookup
536: ( p_lookup_code => p_PTE_rec.lookup_code