824: -- Modified by LPOON on 11/21/03: Join with GL_LEDGERS table to make
825: -- sure the ALC ledger which has been created already
826: CURSOR c_alc_ledgers IS
827: SELECT DISTINCT rs.target_ledger_id
828: FROM gl_ledger_relationships rs, gl_ledgers lg
829: WHERE rs.source_ledger_id = x_ledger_id
830: AND rs.application_id = 101
831: AND rs.target_ledger_category_code = 'ALC'
832: AND rs.relationship_type_code in ('JOURNAL', 'SUBLEDGER')
1042: WHERE ledger_id = x_ledger_id;
1043:
1044: IF (x_current_name <> x_name) THEN
1045: -- Added where clauses to exclude ALC balance level relationships
1046: UPDATE gl_ledger_relationships
1047: SET target_ledger_name = x_name
1048: WHERE target_ledger_id = x_ledger_id
1049: AND ( target_ledger_category_code <> 'ALC'
1050: OR ( target_ledger_category_code = 'ALC'
1052: END IF;
1053:
1054: IF (x_current_short_name <> x_short_name) THEN
1055: -- Added where clauses to exclude ALC balance level relationships
1056: UPDATE gl_ledger_relationships
1057: SET target_ledger_short_name = x_short_name
1058: WHERE target_ledger_id = x_ledger_id
1059: AND ( target_ledger_category_code <> 'ALC'
1060: OR ( target_ledger_category_code = 'ALC'
1094: UPDATE gl_ledgers
1095: SET bal_seg_value_option_code = x_bal_seg_value_option_code
1096: WHERE ledger_id IN(
1097: SELECT DISTINCT target_ledger_id
1098: FROM gl_ledger_relationships
1099: WHERE source_ledger_id = x_ledger_id
1100: AND target_ledger_category_code = 'ALC');
1101: END IF;*/
1102:
1186: SET future_enterable_periods_limit =
1187: x_future_enterable_periods_lmt
1188: WHERE ledger_id IN(
1189: SELECT DISTINCT target_ledger_id
1190: FROM gl_ledger_relationships
1191: WHERE source_ledger_id = x_ledger_id
1192: --AND target_ledger_id <> source_ledger_id
1193: AND target_ledger_category_code = 'ALC'); */
1194: IF ( (x_current_allow_intercom_flag = 'N')
1532: FROM gl_ledgers srclg
1533: WHERE ledger_id = x_ledger_id)
1534: WHERE ledger_id IN(
1535: SELECT target_ledger_id
1536: FROM gl_ledger_relationships
1537: WHERE source_ledger_id = x_ledger_id
1538: AND target_ledger_category_code = 'ALC'
1539: AND relationship_type_code IN('SUBLEDGER', 'JOURNAL'));
1540: END IF; -- IF (x_alc_ledger_type_coe = 'SOURCE')
3477: update gl_ledgers
3478: set bal_seg_value_option_code = 'A'
3479: where ledger_id in
3480: (
3481: select distinct target_ledger_id from gl_ledger_relationships
3482: where source_ledger_id = PLSL.ledger_id
3483: and target_ledger_category_code = 'ALC'
3484: and relationship_type_code not in('NONE','BALANCE')
3485: );
3634: update gl_ledgers
3635: set bal_seg_value_option_code = 'I'
3636: where ledger_id in
3637: (select target_ledger_id
3638: from gl_ledger_relationships
3639: where source_ledger_id = l_ledger_id
3640: and target_ledger_category_code = 'ALC'
3641: and relationship_type_code in ('JOURNAL','SUBLEDGER') )
3642: and bal_seg_value_option_code = 'A';
3662: update gl_ledgers
3663: set bal_seg_value_option_code = 'A'
3664: where ledger_id in
3665: (select target_ledger_id
3666: from gl_ledger_relationships
3667: where source_ledger_id = l_ledger_id
3668: and target_ledger_category_code = 'ALC'
3669: and relationship_type_code in ('JOURNAL','SUBLEDGER') )
3670: and bal_seg_value_option_code = 'I';
3852: where ACCESS_SETS.NAME = x_object_name
3853: and ACCESS_SETS.AUTOMATICALLY_CREATED_FLAG <> 'Y'
3854: UNION
3855: select 'Duplicate'
3856: from GL_LEDGER_RELATIONSHIPS
3857: where target_ledger_category_code = 'ALC'
3858: and relationship_type_code = 'BALANCE'
3859: and target_ledger_name = x_object_name;
3860: test VARCHAR2(20);
3878: where GL_LEDGERS.SHORT_NAME = x_ledger_short_name
3879: and GL_LEDGERS.LEDGER_ID <> x_ledger_id
3880: UNION
3881: select 'Duplicate'
3882: from GL_LEDGER_RELATIONSHIPS
3883: where target_ledger_category_code = 'ALC'
3884: and relationship_type_code = 'BALANCE'
3885: and target_ledger_short_name = x_ledger_short_name;
3886: test VARCHAR2(20);
3900: x_ledger_id IN NUMBER,
3901: x_dupl_flag OUT NOCOPY VARCHAR2) IS
3902: CURSOR get_duplicate IS
3903: SELECT 'Duplicate'
3904: FROM gl_ledger_relationships
3905: WHERE application_id = 101
3906: AND target_ledger_name = x_target_ledger_name
3907: AND relationship_type_code <> 'NONE'
3908: AND relationship_id <> x_relationship_id
3934: x_ledger_id IN NUMBER,
3935: x_dupl_flag OUT NOCOPY VARCHAR2) IS
3936: CURSOR get_duplicate IS
3937: SELECT 'Duplicate'
3938: FROM gl_ledger_relationships
3939: WHERE application_id = 101
3940: AND target_ledger_short_name = x_ledger_short_name
3941: AND relationship_type_code <> 'NONE'
3942: AND relationship_id <> x_relationship_id