93: (SELECT TRANSLATE(UPPER(substr(p_str, 1, 5)),'ABCDEFGHIJKLMNOPQRSTUVWXYZ','AAAAAAAAAAAAAAAAAAAAAAAAAA') src_str1,
94: TRANSLATE(substr(p_str, 6, 4),'0123456789','0000000000') src_str2,
95: TRANSLATE(UPPER(substr(p_str, 10, 1)),'ABCDEFGHIJKLMNOPQRSTUVWXYZ','AAAAAAAAAAAAAAAAAAAAAAAAAA') src_str3,
96: 'AAAAA0000A' dest_str
97: FROM dual) LOOP
98:
99: IF (i.src_str1 || i.src_str2 || i.src_str3) = i.dest_str or p_str = 'PANNOTAVBL' then
100: lv_resp := 'VALID';
101: ELSE
2796: /*Bug 10238421 - Start*/
2797: cursor c_split_phone_no(p_phone_no IN VARCHAR2)
2798: IS
2799: select
2800: substr(p_phone_no,0,(select instr(p_phone_no,'-')from dual)-1),
2801: substr(p_phone_no,(select instr(p_phone_no,'-')from dual)+1)
2802: from dual;
2803: /*Bug 10238421 - End*/
2804:
2797: cursor c_split_phone_no(p_phone_no IN VARCHAR2)
2798: IS
2799: select
2800: substr(p_phone_no,0,(select instr(p_phone_no,'-')from dual)-1),
2801: substr(p_phone_no,(select instr(p_phone_no,'-')from dual)+1)
2802: from dual;
2803: /*Bug 10238421 - End*/
2804:
2805: cursor c_deductee_cnt
2798: IS
2799: select
2800: substr(p_phone_no,0,(select instr(p_phone_no,'-')from dual)-1),
2801: substr(p_phone_no,(select instr(p_phone_no,'-')from dual)+1)
2802: from dual;
2803: /*Bug 10238421 - End*/
2804:
2805: cursor c_deductee_cnt
2806: is
3192: BEGIN
3193: lv_dummy_date := TO_DATE('01/01/1600', 'DD/MM/RRRR');
3194:
3195: v_conc_request_id := FND_PROFILE.value('CONC_REQUEST_ID');
3196: SELECT JAI_AP_ETDS_T_S.nextval INTO ln_batch_id FROM DUAL;
3197: v_line_number := 0;
3198:
3199:
3200: IF NVL(p_period,'XX') = 'XX' THEN