1630:
1631: -- now get the max valuesetnumber and increment it by 1
1632:
1633: select JTF_DIAGNOSTIC_ARG_VAL_SET_S.nextval
1634: into v_valsetnumber from dual;
1635:
1636: -- select max(valuesetnumber) into v_valsetnumber
1637: -- from jtf_diagnostic_arg;
1638:
1742:
1743: -- now get the max valuesetnumber and increment it by 1
1744:
1745: select JTF_DIAGNOSTIC_ARG_VAL_SET_S.nextval
1746: into v_valsetnumber from dual;
1747:
1748: -- select max(valuesetnumber) into v_valsetnumber
1749: -- from jtf_diagnostic_arg;
1750:
3310: select substr(P_TESTCLASSNAME,
3311: instr(P_TESTCLASSNAME,'.',1,2)+1,
3312: instr(P_TESTCLASSNAME,'.',1,3) -
3313: instr(P_TESTCLASSNAME,'.',1,2) - 1)
3314: into V_PRODUCT from dual;
3315:
3316: select substr(P_TESTCLASSNAME,
3317: instr(P_TESTCLASSNAME,'.',-1,1)+1)
3318: into V_FILENAME from dual;
3314: into V_PRODUCT from dual;
3315:
3316: select substr(P_TESTCLASSNAME,
3317: instr(P_TESTCLASSNAME,'.',-1,1)+1)
3318: into V_FILENAME from dual;
3319:
3320: END PARSE_TESTCLASSNAME;
3321:
3322: PROCEDURE SEED_TESTSET(
3375: f_luby number;
3376: f_ludate date;
3377: BEGIN
3378: f_luby := FND_GLOBAL.user_id;
3379: select sysdate into f_ludate from dual;
3380: UPDATE_TESTSET(P_NAME, P_DESCRIPTION, P_XML, f_luby, f_ludate);
3381: END UPDATE_TESTSET;
3382:
3383: PROCEDURE UPDATE_TESTSET(
3403: f_luby number;
3404: f_ludate date;
3405: BEGIN
3406: f_luby := FND_GLOBAL.user_id;
3407: select sysdate into f_ludate from dual;
3408: INSERT_TESTSET(P_NAME, P_DESCRIPTION, P_XML, f_luby, f_ludate, null, f_luby, f_ludate);
3409: END INSERT_TESTSET;
3410:
3411: PROCEDURE INSERT_TESTSET(
3439: F_LUBY NUMBER;
3440: F_LUDATE DATE;
3441: BEGIN
3442: F_LUBY := FND_GLOBAL.user_id;
3443: SELECT SYSDATE INTO F_LUDATE FROM DUAL;
3444: UPDATE_VALID_APPS(P_APPSHORTNAME, P_GROUPNAME, P_TESTCLASSNAME,P_VALIDAPPS, F_LUBY, F_LUDATE);
3445: END UPDATE_VALID_APPS;
3446:
3447: -- ------------------------------------------------------------------------------------------