[Home] [Help]
542: REM order by f.segment_num instead of p.segment_no */
543: f.segment_num, p.segment_no, p.length
544: FROM
545: gl_plcy_seg p,
546: gl_plcy_mst pm,
547: fnd_id_flex_segments f,
548: gl_sets_of_books s
549: WHERE
550: p.co_code = p_co_code
598: PROCEDURE get_of_seg(p_co_code IN VARCHAR2, p_acct_id NUMBER, p_acctg_unit_id IN NUMBER, p_of_seg IN OUT NOCOPY A_segment, rc IN OUT NOCOPY NUMBER)
599: IS
600: v_acctg_unit_no gl_accu_mst.acctg_unit_no%TYPE := NULL;
601: v_acct_no gl_acct_mst.acct_no%TYPE := NULL;
602: v_segment_delimiter gl_plcy_mst.segment_delimiter%TYPE;
603: BEGIN
604: rc := 0;
605: SELECT acctg_unit_no INTO v_acctg_unit_no
606: FROM gl_accu_mst WHERE acctg_unit_id = p_acctg_unit_id;
609: FROM gl_acct_mst
610: WHERE acct_id = p_acct_id;
611:
612: SELECT segment_delimiter INTO v_segment_delimiter
613: FROM gl_plcy_mst
614: WHERE co_code = p_co_code
615: AND delete_mark = 0;
616:
617: /* It is ok to use . as delimter, it will be ignored any way */
1077: p_type IN NUMBER) RETURN my_opm_seg_values IS
1078:
1079: CURSOR Cur_get_seg_deli(pco_code VARCHAR2) IS
1080: SELECT segment_delimiter
1081: FROM gl_plcy_mst
1082: WHERE co_code = p_co_code
1083: AND delete_mark = 0;
1084:
1085: CURSOR Cur_get_seg_cnttyp(pco_code VARCHAR2,
1091: AND delete_mark = 0;
1092:
1093: CURSOR Cur_get_segment_del(v_co_code VARCHAR2) IS
1094: SELECT segment_delimiter
1095: FROM gl_plcy_mst
1096: WHERE co_code = v_co_code
1097: AND delete_mark = 0;
1098:
1099: CURSOR Cur_get_seg_cnt(pco_code VARCHAR2) IS
1108: l_deli_process NUMBER DEFAULT 0;
1109: l_delimiter_cnt NUMBER DEFAULT 0;
1110: l_count NUMBER DEFAULT 0;
1111: l_opm_seg_values my_opm_seg_values;
1112: l_segment_delimiter gl_plcy_mst.segment_delimiter%TYPE;
1113: l_acct_no gl_acct_mst.acct_no%TYPE;
1114: BEGIN
1115:
1116: -- Fetch Segment delimiter
1176: # uom (non-null segment uom) and insert into account master
1177: # Update accu-desc, acct-desc, acct-uom if needed.
1178: ################################################################# */
1179: FUNCTION parse_ccid(
1180: pi_co_code IN gl_plcy_mst.co_code%TYPE,
1181: pi_code_combination_id IN NUMBER,
1182: pi_create_acct IN NUMBER DEFAULT 1)
1183: RETURN opm_account
1184: AS
1209: l_opm_company sy_orgn_mst.orgn_code%TYPE;
1210: l_opm_accu_id gl_accu_mst.acctg_unit_id%TYPE;
1211: l_opm_acct_id gl_acct_mst.acct_id%TYPE;
1212:
1213: l_opm_delimiter gl_plcy_mst.segment_delimiter%TYPE;
1214: l_n_accu NUMBER(5);
1215: l_n_acct NUMBER(5);
1216: l_opm_accu VARCHAR2(255);
1217: l_opm_accu_desc VARCHAR2(2000);
1234: INDEX BY BINARY_INTEGER;
1235:
1236: lt_gl_plcy_seg tabtype_gl_plcy_seg;
1237:
1238: CURSOR cur_opm_plcy_seg(p_opm_company gl_plcy_mst.co_code%TYPE) IS
1239: SELECT
1240: segment_no,
1241: short_name,
1242: type,
1296:
1297: -- for Seg. Value descriptions
1298: l_startdate fnd_flex_values.start_date_active%TYPE;
1299: l_enddate fnd_flex_values.end_date_active%TYPE;
1300: l_sobname gl_plcy_mst.set_of_books_name%TYPE;
1301: l_segmentname fnd_id_flex_segments.segment_name%TYPE;
1302: l_segmentnum fnd_id_flex_segments.segment_num%TYPE;
1303: l_segmentval fnd_flex_values.flex_value%TYPE;
1304: l_segmentdesc fnd_flex_values_vl.description%TYPE;
1329: INTO
1330: l_chart_of_accounts_id
1331: FROM
1332: gl_sets_of_books sob,
1333: gl_plcy_mst plc
1334: WHERE
1335: sob.set_of_books_id = plc.sob_id
1336: AND plc.co_code = l_opm_company;
1337:
1350:
1351: -- get opm segment delimiter
1352: SELECT segment_delimiter, set_of_books_name
1353: INTO l_opm_delimiter, l_sobname
1354: FROM gl_plcy_mst
1355: WHERE co_code = l_opm_company;
1356:
1357: SELECT count(*) INTO l_opm_seg_count
1358: FROM gl_plcy_seg