eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.HR_ENTRY_API dependencies on PAY_ELEMENT_ENTRIES_F

Line 127: -- the PAY_ELEMENT_ENTRIES_F or PAY_ELEMENT_ENTRY_VALUES_F tables. --

123: -- hr_entry_api.element_entry_changed PRIVATE FUNCTION --
124: -- --
125: -- DESCRIPTION --
126: -- Determines if the entry to be updated will cause a change on either --
127: -- the PAY_ELEMENT_ENTRIES_F or PAY_ELEMENT_ENTRY_VALUES_F tables. --
128: -- If the entry is going to cause an update against either the --
129: -- PAY_ELEMENT_ENTRIES_F or PAY_ELEMENT_ENTRY_VALUES_F attributes then the --
130: -- return code will be true. --
131: ------------------------------------------------------------------------------

Line 129: -- PAY_ELEMENT_ENTRIES_F or PAY_ELEMENT_ENTRY_VALUES_F attributes then the --

125: -- DESCRIPTION --
126: -- Determines if the entry to be updated will cause a change on either --
127: -- the PAY_ELEMENT_ENTRIES_F or PAY_ELEMENT_ENTRY_VALUES_F tables. --
128: -- If the entry is going to cause an update against either the --
129: -- PAY_ELEMENT_ENTRIES_F or PAY_ELEMENT_ENTRY_VALUES_F attributes then the --
130: -- return code will be true. --
131: ------------------------------------------------------------------------------
132: --
133: function element_entry_changed

Line 234: -- Need to determine if the PAY_ELEMENT_ENTRIES_F table is being

230: l_proc_func_error varchar2(30) := 'HR_6153_ALL_PROCEDURE_FAIL';
231: --
232: begin
233: --
234: -- Need to determine if the PAY_ELEMENT_ENTRIES_F table is being
235: -- updated with any new values.
236: -- If No change is being made against PAY_ELEMENT_ENTRIES_F we
237: -- then need to determine if any PAY_ELEMENT_ENTRY_VALUES_F are
238: -- being updated.

Line 236: -- If No change is being made against PAY_ELEMENT_ENTRIES_F we

232: begin
233: --
234: -- Need to determine if the PAY_ELEMENT_ENTRIES_F table is being
235: -- updated with any new values.
236: -- If No change is being made against PAY_ELEMENT_ENTRIES_F we
237: -- then need to determine if any PAY_ELEMENT_ENTRY_VALUES_F are
238: -- being updated.
239: -- However, if a change is going to place against the PAY_ELEMENT_ENTRIES_F
240: -- table then we don't need to check against a change to the

Line 239: -- However, if a change is going to place against the PAY_ELEMENT_ENTRIES_F

235: -- updated with any new values.
236: -- If No change is being made against PAY_ELEMENT_ENTRIES_F we
237: -- then need to determine if any PAY_ELEMENT_ENTRY_VALUES_F are
238: -- being updated.
239: -- However, if a change is going to place against the PAY_ELEMENT_ENTRIES_F
240: -- table then we don't need to check against a change to the
241: -- PAY_ELEMENT_ENTRY_VALUES_F table.
242: --
243: if g_debug then

Line 252: from pay_element_entries_f pee

248: into l_check_entry_values
249: from sys.dual
250: where exists
251: (select 1
252: from pay_element_entries_f pee
253: where pee.element_entry_id = p_element_entry_id
254: and p_driving_date
255: between pee.effective_start_date
256: and pee.effective_end_date

Line 453: -- the PAY_ELEMENT_ENTRIES_F attributes then we must check to

449: null;
450: end;
451: --
452: -- If the entry record to be updated is not updating any of
453: -- the PAY_ELEMENT_ENTRIES_F attributes then we must check to
454: -- see if any of the PAY_ELEMENT_ENTRY_VALUES_F are to be
455: -- updated.
456: --
457: if (l_check_entry_values = 'Y') then

Line 506: -- The entry is being updated on the PAY_ELEMENT_ENTRIES_F table

502: end loop;
503: close select_entry_value;
504: else
505: --
506: -- The entry is being updated on the PAY_ELEMENT_ENTRIES_F table
507: -- therefore set the returning function code to true.
508: --
509: l_entry_changed := true;
510: end if;

Line 1385: pay_element_entries_f ee,

1381: p_input_value_id14,'SET',
1382: p_input_value_id15,'SET',
1383: 'NOT_SET') entry_specified
1384: from pay_element_entry_values_f eev,
1385: pay_element_entries_f ee,
1386: pay_input_values_f piv,
1387: pay_element_types_f et
1388: where ee.element_entry_id = p_element_entry_id
1389: and eev.element_entry_id = ee.element_entry_id

Line 1408: from pay_element_entries_f ee

1404: l_element_entry_id number,
1405: l_session_date date
1406: ) is
1407: select ee.creator_type
1408: from pay_element_entries_f ee
1409: where ee.element_entry_id = l_element_entry_id
1410: and l_session_date between ee.effective_start_date and ee.effective_end_date;
1411: --
1412: v_creator_type varchar2(30);

Line 1781: pay_element_entries_f ee,

1777: piv.mandatory_flag,
1778: eev.screen_entry_value peev_default_value,
1779: eev.screen_entry_value
1780: from pay_element_entry_values_f eev,
1781: pay_element_entries_f ee,
1782: pay_input_values_f piv,
1783: pay_element_types_f et
1784: where ee.element_entry_id = p_element_entry_id
1785: and eev.element_entry_id = ee.element_entry_id

Line 1804: from pay_element_entries_f ee

1800: l_element_entry_id number,
1801: l_session_date date
1802: ) is
1803: select ee.creator_type
1804: from pay_element_entries_f ee
1805: where ee.element_entry_id = l_element_entry_id
1806: and l_session_date between ee.effective_start_date and ee.effective_end_date;
1807: --
1808: -- Local Variables

Line 2594: from pay_element_entries_f ee

2590: begin
2591: --
2592: select ee.element_entry_id
2593: into v_number_variable
2594: from pay_element_entries_f ee
2595: where p_entry_type in ('R','A')
2596: and ee.element_entry_id = p_target_entry_id
2597: and ee.assignment_id = p_assignment_id
2598: and ee.element_link_id = p_element_link_id

Line 2657: from pay_element_entries_f ee

2653: --
2654: cursor csr_adj_orig_entry
2655: is
2656: select 1
2657: from pay_element_entries_f ee
2658: ,pay_element_links_f el
2659: ,pay_element_types_f et
2660: where ee.assignment_id = p_assignment_id
2661: and nvl(ee.original_entry_id, ee.element_entry_id)

Line 2703: from pay_element_entries_f ee

2699: into v_number_variable
2700: from sys.dual
2701: where exists
2702: (select null
2703: from pay_element_entries_f ee
2704: ,pay_element_links_f el
2705: ,pay_element_types_f et
2706: where ee.assignment_id = p_assignment_id
2707: /*Bug fix 12364433 */

Line 2799: -- element_type_id on pay_element_entries_f. --

2795: -- --
2796: -- DESCRIPTION --
2797: -- Derives the element_type_id from the previously validated element_link_id --
2798: -- The resulting element_type_id will populate the denormalised column, --
2799: -- element_type_id on pay_element_entries_f. --
2800: -- --
2801: -------------------------------------------------------------------------------
2802: FUNCTION derive_element_type_id (p_element_link_id in number
2803: ,p_effective_date in date)

Line 3704: from pay_element_entries_f

3700: -- bug 666197
3701: cursor csr_object_version_number
3702: (p_element_entry_id number, p_effective_date date) is
3703: select object_version_number
3704: from pay_element_entries_f
3705: where element_entry_id = p_element_entry_id
3706: and p_effective_date between effective_start_date
3707: and effective_end_date;
3708: --

Line 3873: ('PAY_ELEMENT_ENTRIES_F'

3869: -- Derive the OVN here instead of in the database trigger in order to
3870: -- avoid the ORA-04091 error
3871: --
3872: l_object_version_number := dt_api.get_object_version_number
3873: ('PAY_ELEMENT_ENTRIES_F'
3874: ,'ELEMENT_ENTRY_ID'
3875: ,v_element_entry_id);
3876: --
3877: -- Enhancement 3478848

Line 3884: insert into pay_element_entries_f

3880: l_all_entry_values_null := derive_all_entry_values_null(p_entry_value_tbl);
3881: --
3882: -- Create element entry
3883: --
3884: insert into pay_element_entries_f
3885: (effective_start_date,
3886: effective_end_date,
3887: element_entry_id,
3888: original_entry_id,

Line 4011: -- Bug 570156 changed to null so the PAY_ELEMENT_ENTRIES_F_WHO trigger

4007: p_attribute20,
4008: trunc(sysdate),
4009: 0,
4010: 0,
4011: -- Bug 570156 changed to null so the PAY_ELEMENT_ENTRIES_F_WHO trigger
4012: -- can set it. These parameters are not needed here at all, as the form
4013: -- is not passing them and api should not set them. It's always done via
4014: -- the database trigger.
4015: null,

Line 4168: (p_module_name => 'PAY_ELEMENT_ENTRIES_F'

4164: );
4165: exception
4166: when hr_api.cannot_find_prog_unit then
4167: hr_api.cannot_find_prog_unit_error
4168: (p_module_name => 'PAY_ELEMENT_ENTRIES_F'
4169: ,p_hook_type => 'AI'
4170: );
4171: end;
4172: --

Line 5186: from pay_element_entries_f

5182: -- Get the old values of the entry for comparison with the updated
5183: -- values
5184: --
5185: select *
5186: from pay_element_entries_f
5187: where element_entry_id = p_element_entry_id
5188: and p_effective_date between effective_start_date
5189: and effective_end_date;
5190: --

Line 5192: old_entry pay_element_entries_f%rowtype;

5188: and p_effective_date between effective_start_date
5189: and effective_end_date;
5190: --
5191: l_proc varchar2 (72);
5192: old_entry pay_element_entries_f%rowtype;
5193: invalid_element_entry_id exception;
5194: invalid_dt_update_mode exception;
5195: --
5196: procedure check_parameters is

Line 5505: from pay_element_entries_f ee,

5501: decode(p_entry_information28,hr_api.g_varchar2,ee.entry_information28,p_entry_information28),
5502: decode(p_entry_information29,hr_api.g_varchar2,ee.entry_information29,p_entry_information29),
5503: decode(p_entry_information30,hr_api.g_varchar2,ee.entry_information30,p_entry_information30)
5504: into v_entry_rec
5505: from pay_element_entries_f ee,
5506: pay_element_links_f el,
5507: pay_element_types_f et
5508: where ee.element_entry_id = p_element_entry_id
5509: and el.element_link_id = ee.element_link_id

Line 5720: from pay_element_entries_f ee

5716: from per_pay_proposals pp
5717: where pp.assignment_id = p_assignment_id
5718: and exists
5719: (select null
5720: from pay_element_entries_f ee
5721: where ee.element_entry_id = p_element_entry_id
5722: and ee.creator_type = 'SP'
5723: and ee.creator_id = pp.pay_proposal_id
5724: and ee.effective_start_date = pp.change_date);

Line 5732: from pay_element_entries_f

5728: -- OVN of the dml record
5729: cursor csr_object_version_number
5730: (p_element_entry_id number, p_effective_date date) is
5731: select object_version_number, effective_start_date, effective_end_date
5732: from pay_element_entries_f
5733: where element_entry_id = p_element_entry_id
5734: and p_effective_date between effective_start_date
5735: and effective_end_date;
5736:

Line 5818: from pay_element_entries_f

5814: ,entry_information29
5815: ,entry_information30
5816: ,element_type_id
5817: ,all_entry_values_null
5818: from pay_element_entries_f
5819: where element_entry_id = p_element_entry_id
5820: and p_session_date between effective_start_date
5821: and effective_end_date;
5822: --

Line 6169: from pay_element_entries_f ee

6165: --
6166: begin
6167: select max(ee.effective_end_date)
6168: into v_max_effective_end_date
6169: from pay_element_entries_f ee
6170: where ee.element_entry_id = p_element_entry_id;
6171: exception
6172: when no_data_found then null;
6173: end;

Line 6342: delete from pay_element_entries_f ee

6338: --
6339: -- Clear out future records (if any).
6340: if v_dt_update_mode = 'UPDATE_OVERRIDE' then
6341: --
6342: delete from pay_element_entries_f ee
6343: where ee.element_entry_id = p_element_entry_id
6344: and ee.effective_start_date > v_entry_rec.effective_start_date;
6345: --
6346: end if;

Line 6355: update pay_element_entries_f ee

6351: -- null on first half for Stop
6352: -- null on second half for Update Recurring
6353: --
6354:
6355: update pay_element_entries_f ee
6356: set ee.effective_end_date = p_session_date - 1,
6357: ee.updating_action_id = decode(ee.updating_action_type, 'U', ee.updating_action_id,
6358: null),
6359: ee.updating_action_type = decode(ee.updating_action_type, 'U', 'U', null)

Line 6369: ('PAY_ELEMENT_ENTRIES_F'

6365: -- Derive the OVN here instead of in the database trigger in order to
6366: -- avoid the ORA-04091 error
6367: --
6368: l_object_version_number := dt_api.get_object_version_number
6369: ('PAY_ELEMENT_ENTRIES_F'
6370: ,'ELEMENT_ENTRY_ID'
6371: ,p_element_entry_id);
6372:
6373: insert into pay_element_entries_f

Line 6373: insert into pay_element_entries_f

6369: ('PAY_ELEMENT_ENTRIES_F'
6370: ,'ELEMENT_ENTRY_ID'
6371: ,p_element_entry_id);
6372:
6373: insert into pay_element_entries_f
6374: (element_entry_id,
6375: effective_start_date,
6376: effective_end_date,
6377: cost_allocation_keyflex_id,

Line 6537: from pay_element_entries_f ee

6533: 0,
6534: 0,
6535: ee.created_by,
6536: ee.creation_date
6537: from pay_element_entries_f ee
6538: where ee.element_entry_id = p_element_entry_id
6539: and ee.effective_start_date = v_entry_rec.effective_start_date;
6540: --
6541: elsif v_dt_update_mode = 'CORRECTION' then

Line 6542: update pay_element_entries_f ee

6538: where ee.element_entry_id = p_element_entry_id
6539: and ee.effective_start_date = v_entry_rec.effective_start_date;
6540: --
6541: elsif v_dt_update_mode = 'CORRECTION' then
6542: update pay_element_entries_f ee
6543: set ee.cost_allocation_keyflex_id =
6544: v_entry_rec.cost_allocation_keyflex_id,
6545: ee.updating_action_id = v_entry_rec.updating_action_id,
6546: ee.updating_action_type = v_entry_rec.updating_action_type,

Line 6678: from pay_element_entries_f ee

6674: ( select pp.pay_proposal_id from per_pay_proposals pp
6675: where pp.pay_proposal_id = v_pay_proposal_id
6676: and not exists
6677: (select null
6678: from pay_element_entries_f ee
6679: where ee.element_entry_id = p_element_entry_id
6680: and ee.creator_type = 'SP'
6681: and ee.creator_id = pp.pay_proposal_id
6682: and ee.effective_start_date = pp.change_date));

Line 6688: from pay_element_entries_f ee

6684: delete from per_pay_proposals pp
6685: where pp.pay_proposal_id = v_pay_proposal_id
6686: and not exists
6687: (select null
6688: from pay_element_entries_f ee
6689: where ee.element_entry_id = p_element_entry_id
6690: and ee.creator_type = 'SP'
6691: and ee.creator_id = pp.pay_proposal_id
6692: and ee.effective_start_date = pp.change_date);

Line 6876: (p_module_name => 'PAY_ELEMENT_ENTRIES_F'

6872: );
6873: exception
6874: when hr_api.cannot_find_prog_unit then
6875: hr_api.cannot_find_prog_unit_error
6876: (p_module_name => 'PAY_ELEMENT_ENTRIES_F'
6877: ,p_hook_type => 'AU'
6878: );
6879: end;
6880: --

Line 7035: FROM PAY_ELEMENT_ENTRIES_F pee

7031: p_effective_date DATE)
7032: IS
7033: SELECT pee.entry_type,
7034: pee.assignment_id
7035: FROM PAY_ELEMENT_ENTRIES_F pee
7036: WHERE pee.element_entry_id = p_element_entry_id
7037: and p_effective_date BETWEEN
7038: pee.effective_start_date and pee.effective_end_date
7039: ;

Line 7263: FROM PAY_ELEMENT_ENTRIES_F pee

7259: p_effective_date DATE)
7260: IS
7261: SELECT pee.entry_type,
7262: pee.assignment_id
7263: FROM PAY_ELEMENT_ENTRIES_F pee
7264: WHERE pee.element_entry_id = p_element_entry_id
7265: and p_effective_date BETWEEN
7266: pee.effective_start_date and pee.effective_end_date
7267: ;

Line 7527: FROM PAY_ELEMENT_ENTRIES_F pee

7523: p_effective_date DATE)
7524: IS
7525: SELECT pee.entry_type,
7526: pee.assignment_id
7527: FROM PAY_ELEMENT_ENTRIES_F pee
7528: WHERE pee.element_entry_id = p_element_entry_id
7529: and p_effective_date BETWEEN
7530: pee.effective_start_date and pee.effective_end_date
7531: ;

Line 7787: FROM PAY_ELEMENT_ENTRIES_F pee

7783: p_effective_date DATE)
7784: IS
7785: SELECT pee.entry_type,
7786: pee.assignment_id
7787: FROM PAY_ELEMENT_ENTRIES_F pee
7788: WHERE pee.element_entry_id = p_element_entry_id
7789: and p_effective_date BETWEEN
7790: pee.effective_start_date and pee.effective_end_date
7791: ;

Line 8006: from pay_element_entries_f ee,

8002: et.processing_type,
8003: nvl(ec.non_payments_flag, 'N'),
8004: ee.personal_payment_method_id
8005: into v_entry_rec
8006: from pay_element_entries_f ee,
8007: pay_element_links_f el,
8008: pay_element_types_f et,
8009: pay_element_classifications ec
8010: where ee.element_entry_id = p_element_entry_id

Line 8214: from pay_element_entries_f ee

8210: from per_pay_proposals pp
8211: where pp.assignment_id = p_assignment_id
8212: and exists
8213: (select null
8214: from pay_element_entries_f ee
8215: where ee.element_entry_id = p_element_entry_id
8216: and ee.creator_type = 'SP'
8217: and ee.creator_id = pp.pay_proposal_id
8218: and ee.effective_start_date = pp.change_date);

Line 8224: from pay_element_entries_f

8220: -- bug 666197
8221: cursor csr_ovn_and_dates
8222: (p_element_entry_id number, p_effective_date date) is
8223: select object_version_number, effective_start_date, effective_end_date
8224: from pay_element_entries_f
8225: where element_entry_id = p_element_entry_id
8226: and p_effective_date between effective_start_date
8227: and effective_end_date;
8228: --

Line 8275: from pay_element_entries_f

8271: ,object_version_number
8272: ,balance_adj_cost_flag
8273: ,element_type_id
8274: ,all_entry_values_null
8275: from pay_element_entries_f
8276: where element_entry_id = p_element_entry_id
8277: and p_session_date between effective_start_date
8278: and effective_end_date;
8279: --

Line 8394: pay_element_entries_f pee

8390: --
8391: cursor nonrecurring_entries (adjust_ee_source in varchar2) is
8392: select 'Y'
8393: from pay_run_results prr,
8394: pay_element_entries_f pee
8395: where pee.element_entry_id = p_element_entry_id
8396: /* Added the following condition for bug: 7344563 */
8397: and pee.element_entry_id = prr.element_entry_id
8398: and p_validation_start_date between pee.effective_start_date

Line 8557: from pay_element_entries_f ee

8553: --
8554: begin
8555: select min(ee.effective_end_date)
8556: into v_next_effective_end_date
8557: from pay_element_entries_f ee
8558: where ee.element_entry_id = p_element_entry_id
8559: and ee.effective_start_date > v_entry_rec.effective_end_date;
8560: exception
8561: when no_data_found then null;

Line 8615: from pay_element_entries_f pee

8611: select min(pee.effective_start_date),
8612: max(pee.effective_end_date)
8613: into v_validation_start_date,
8614: v_validation_end_date
8615: from pay_element_entries_f pee
8616: where pee.element_entry_id = p_element_entry_id;
8617: --
8618: end if;
8619: --

Line 8758: delete from pay_element_entries_f ee

8754: if g_debug then
8755: hr_utility.set_location('hr_entry_api.delete_element_entry', 40);
8756: end if;
8757: --
8758: delete from pay_element_entries_f ee
8759: where ee.element_entry_id = p_element_entry_id
8760: and ee.effective_start_date = v_validation_start_date;
8761: --
8762: update pay_element_entries_f ee

Line 8762: update pay_element_entries_f ee

8758: delete from pay_element_entries_f ee
8759: where ee.element_entry_id = p_element_entry_id
8760: and ee.effective_start_date = v_validation_start_date;
8761: --
8762: update pay_element_entries_f ee
8763: set ee.effective_end_date = decode(v_validation_end_date,
8764: hr_general.end_of_time,
8765: v_entry_rec.effective_end_date,
8766: v_validation_end_date),

Line 8779: delete from pay_element_entries_f ee

8775: if g_debug then
8776: hr_utility.set_location('hr_entry_api.delete_element_entry', 45);
8777: end if;
8778: --
8779: delete from pay_element_entries_f ee
8780: where ee.element_entry_id = p_element_entry_id
8781: and ee.effective_start_date > v_entry_rec.effective_start_date;
8782: --
8783: update pay_element_entries_f ee

Line 8783: update pay_element_entries_f ee

8779: delete from pay_element_entries_f ee
8780: where ee.element_entry_id = p_element_entry_id
8781: and ee.effective_start_date > v_entry_rec.effective_start_date;
8782: --
8783: update pay_element_entries_f ee
8784: set ee.effective_end_date = v_entry_rec.effective_end_date,
8785: ee.updating_action_id = decode(ee.updating_action_type, 'U', ee.updating_action_id,
8786: null),
8787: ee.updating_action_type = decode(ee.updating_action_type, 'U', 'U', null)

Line 8797: delete from pay_element_entries_f ee

8793: if g_debug then
8794: hr_utility.set_location('hr_entry_api.delete_element_entry', 50);
8795: end if;
8796: --
8797: delete from pay_element_entries_f ee
8798: where ee.element_entry_id = p_element_entry_id
8799: and ee.effective_start_date > p_session_date;
8800: --
8801: update pay_element_entries_f ee

Line 8801: update pay_element_entries_f ee

8797: delete from pay_element_entries_f ee
8798: where ee.element_entry_id = p_element_entry_id
8799: and ee.effective_start_date > p_session_date;
8800: --
8801: update pay_element_entries_f ee
8802: set ee.effective_end_date = p_session_date,
8803: ee.updating_action_id = decode(ee.updating_action_type, 'U', ee.updating_action_id,
8804: null),
8805: ee.updating_action_type = decode(ee.updating_action_type, 'U', 'U', null)

Line 8821: delete from pay_element_entries_f ee

8817: delete from pay_grossup_bal_exclusions excl
8818: where excl.source_id = p_element_entry_id
8819: and excl.source_type = 'EE';
8820: --
8821: delete from pay_element_entries_f ee
8822: where ee.element_entry_id = p_element_entry_id;
8823: --
8824: -- Bug 11843573
8825: l_effective_start_date_o := v_validation_start_date;

Line 8870: from pay_element_entries_f ee

8866: ( select pp.pay_proposal_id from per_pay_proposals pp
8867: where pp.pay_proposal_id = v_pay_proposal_id
8868: and not exists
8869: (select null
8870: from pay_element_entries_f ee
8871: where ee.element_entry_id = p_element_entry_id
8872: and ee.creator_type = 'SP'
8873: and ee.creator_id = pp.pay_proposal_id
8874: and ee.effective_start_date = pp.change_date));

Line 8880: from pay_element_entries_f ee

8876: delete from per_pay_proposals pp
8877: where pp.pay_proposal_id = v_pay_proposal_id
8878: and not exists
8879: (select null
8880: from pay_element_entries_f ee
8881: where ee.element_entry_id = p_element_entry_id
8882: and ee.creator_type = 'SP'
8883: and ee.creator_id = pp.pay_proposal_id
8884: and ee.effective_start_date = pp.change_date);

Line 9016: (p_module_name => 'PAY_ELEMENT_ENTRIES_F'

9012: --
9013: exception
9014: when hr_api.cannot_find_prog_unit then
9015: hr_api.cannot_find_prog_unit_error
9016: (p_module_name => 'PAY_ELEMENT_ENTRIES_F'
9017: ,p_hook_type => 'AD'
9018: );
9019: end;
9020: --