601: IS
602: CURSOR CUR_DAS
603: IS
604: select segment_value
605: from GL_ACCESS_SET_NORM_ASSIGN gasn, GL_ACCESS_SETS gas
606: where gasn.access_set_id = gas.access_set_id
607: and SECURITY_SEGMENT_CODE = 'B'
608: and ALL_SEGMENT_VALUE_FLAG='N'
609: and gasn.access_set_id = p_das
661: BEGIN
662: --Get 'ALL' flag of bsv in the das
663: select ALL_SEGMENT_VALUE_FLAG
664: INTO l_bsv_all
665: from GL_ACCESS_SET_NORM_ASSIGN gasn, GL_ACCESS_SETS gas
666: where gasn.access_set_id = gas.access_set_id
667: and SECURITY_SEGMENT_CODE = 'B'
668: and ALL_SEGMENT_VALUE_FLAG = 'Y'
669: and gasn.access_set_id = p_das