[Home] [Help]
13:
14:
15: CURSOR APPLIST IS
16: -- select distinct a.appid, b.APPLICATION_NAME
17: -- from jtf_diagnostic_app a, fnd_application_tl b, fnd_application c
18: -- where a.appid = c.application_short_name
19: -- and c.application_id = b.application_id
20: -- and b.language = userenv('LANG');
21:
18: -- where a.appid = c.application_short_name
19: -- and c.application_id = b.application_id
20: -- and b.language = userenv('LANG');
21:
22: select distinct appid from jtf_diagnostic_app;
23:
24: BEGIN
25:
26: P_SIZE := 0;
396: ) IS
397:
398: BEGIN
399:
400: delete from jtf_diagnostic_app
401: where appid = P_APP_NAME;
402:
403: delete from jtf_diagnostic_group
404: where appid = P_APP_NAME;
1156:
1157: -- check if the application value entered is
1158: -- a valid application in the fnd_application table
1159: -- and if yes it should not already be there in the
1160: -- jtf_diagnostic_app table
1161:
1162: -- select distinct application_short_name into v_asn
1163: -- from fnd_application
1164: -- where application_short_name = P_APPID
1168: -- raise_application_error(-20000,
1169: -- 'Invalid application short name');
1170: -- else
1171: select count(*) into v_sourcetype
1172: from jtf_diagnostic_app
1173: where appid = P_APPID;
1174:
1175: if v_sourcetype <> 0 then
1176: raise_application_error(-20000,
1182:
1183: -- Else create a new record
1184: -- since the new value seems fine
1185:
1186: insert into jtf_diagnostic_app(
1187: SEQUENCE, APPID, OBJECT_VERSION_NUMBER, CREATED_BY,
1188: LAST_UPDATE_DATE, LAST_UPDATED_BY, LAST_UPDATE_LOGIN, CREATION_DATE)
1189: values (JTF_DIAGNOSTIC_APP_S.NEXTVAL, P_APPID, 1, P_LUBID,
1190: SYSDATE, P_LUBID, NULL, SYSDATE);
1185:
1186: insert into jtf_diagnostic_app(
1187: SEQUENCE, APPID, OBJECT_VERSION_NUMBER, CREATED_BY,
1188: LAST_UPDATE_DATE, LAST_UPDATED_BY, LAST_UPDATE_LOGIN, CREATION_DATE)
1189: values (JTF_DIAGNOSTIC_APP_S.NEXTVAL, P_APPID, 1, P_LUBID,
1190: SYSDATE, P_LUBID, NULL, SYSDATE);
1191:
1192:
1193: -- Now check if the object received as the pre-req array
1800:
1801: BEGIN
1802:
1803: -- if application, then is the application
1804: -- registered in the jtf_diagnostic_app table
1805: -- if group, then is the group part of the application
1806:
1807: if p_sourcetype = 1 then
1808: select count(*) into v_data_found from jtf_diagnostic_app
1804: -- registered in the jtf_diagnostic_app table
1805: -- if group, then is the group part of the application
1806:
1807: if p_sourcetype = 1 then
1808: select count(*) into v_data_found from jtf_diagnostic_app
1809: where appid = p_sourceid;
1810: elsif p_sourcetype = 2 then
1811: select count(*) into v_data_found from jtf_diagnostic_group
1812: where appid = p_sourceappid and
1860: -- a valid application registered in the diagnostic
1861: -- framework
1862:
1863: if P_SOURCETYPE = 1 then
1864: select sequence into v_data_found from jtf_diagnostic_app
1865: where appid = P_PREREQID(v_index)
1866: and rownum <= 1;
1867: elsif p_sourcetype = 2 then
1868: select sequence into v_data_found from jtf_diagnostic_group
2088:
2089: begin
2090: select LAST_UPDATED_BY, LAST_UPDATE_DATE
2091: into db_luby, db_ludate
2092: from jtf_diagnostic_app
2093: where appid = p_appid;
2094:
2095: -- Update record only as per standard
2096:
2102: p_cust_mode))
2103: then*/
2104: -- seed data must not be changed by customers.Hence overwriting data always
2105: -- so that it covers up any changes by mistake
2106: update jtf_diagnostic_app
2107: set last_updated_by = f_luby,
2108: last_update_date = f_ludate,
2109: object_version_number = object_version_number + 1,
2110: security_group_id = to_number(P_SEC_GRP_ID)
2116:
2117: when no_data_found then
2118: -- Record doesn't exist - insert in all cases
2119:
2120: insert into jtf_diagnostic_app(
2121: sequence,
2122: appid,
2123: object_version_number,
2124: created_by,
2127: last_update_login,
2128: creation_date,
2129: security_group_id)
2130: values(
2131: jtf_diagnostic_app_s.nextval,
2132: p_appid,
2133: 1,
2134: f_luby,
2135: f_ludate,