[Home] [Help]
85: -- also check the following if type is SYSTEM
86: if (x_type = 'SYSTEM') then
87: -- if there is any agent reference, it is not deletable.
88: select count(1) into member_count
89: from WF_AGENTS
90: where SYSTEM_GUID = x_guid;
91: end if;
92:
93: -- also check if it is the Local System
147:
148: -- AGENTS: check if any exist for Local System
149: if x_type = 'AGENTS' then
150: select count(*) into l_count
151: from wf_agents
152: where system_guid = hextoraw(wf_core.translate('WF_SYSTEM_GUID'));
153: end if;
154:
155: -- EVENTS: check if any events
684: xd varchar2, xs varchar2) is
685: select A.GUID, A.NAME, A.PROTOCOL, A.ADDRESS,
686: S.NAME SYSTEM_NAME,
687: A.DIRECTION, A.STATUS
688: from WF_AGENTS A, WF_SYSTEMS S
689: where (xn is null or lower(A.NAME) like '%'||lower(xn)||'%')
690: and (xp is null or A.PROTOCOL = xp)
691: and (xa is null or A.ADDRESS = xa)
692: and (sguid is null or S.GUID = sguid)
1266: -- find the system name
1267: begin
1268: select S.NAME
1269: into dTab(i).col03
1270: from WF_AGENTS A, WF_SYSTEMS S
1271: where A.GUID = ssr.out_agent_guid
1272: and A.SYSTEM_GUID = S.GUID;
1273: exception
1274: when OTHERS then
1278: begin
1279: if (dTab(i).col03 is null) then
1280: select NAME
1281: into dTab(i).col03
1282: from WF_AGENTS
1283: where GUID = ssr.out_agent_guid;
1284: else
1285: select A.NAME||'@'||dTab(i).col03
1286: into dTab(i).col03
1283: where GUID = ssr.out_agent_guid;
1284: else
1285: select A.NAME||'@'||dTab(i).col03
1286: into dTab(i).col03
1287: from WF_AGENTS A
1288: where A.GUID = ssr.out_agent_guid;
1289:
1290: end if;
1291:
1305: -- find the system name
1306: begin
1307: select S.NAME
1308: into dTab(i).col04
1309: from WF_AGENTS A, WF_SYSTEMS S
1310: where A.GUID = ssr.to_agent_guid
1311: and A.SYSTEM_GUID = S.GUID;
1312: exception
1313: when OTHERS then
1317: begin
1318: if (dTab(i).col04 is null) then
1319: select A.NAME
1320: into dTab(i).col04
1321: from WF_AGENTS A
1322: where A.GUID = ssr.to_agent_guid;
1323: else
1324: select A.NAME||'@'||dTab(i).col04
1325: into dTab(i).col04
1322: where A.GUID = ssr.to_agent_guid;
1323: else
1324: select A.NAME||'@'||dTab(i).col04
1325: into dTab(i).col04
1326: from WF_AGENTS A
1327: where A.GUID = ssr.to_agent_guid;
1328: end if;
1329:
1330: exception
2625: A.DIRECTION, A.STATUS, S.NAME
2626: into l_name, l_dname, l_desc, l_protocol, l_address,
2627: l_sysguid, l_qhandler, l_qname,
2628: l_direction, l_status, l_system
2629: from WF_AGENTS A, WF_SYSTEMS S
2630: where A.GUID = h_guid
2631: and A.SYSTEM_GUID = S.GUID;
2632:
2633: -- take care of the double quote problem
3174: if (l_srcagnguid is not null) then
3175: begin
3176: select A.NAME||'@'||S.NAME
3177: into l_srcagn_dname
3178: from WF_AGENTS A, WF_SYSTEMS S
3179: where A.GUID = l_srcagnguid
3180: and A.SYSTEM_GUID (+)= S.GUID;
3181:
3182: exception
3190: if (l_outagnguid is not null) then
3191: begin
3192: select A.NAME||'@'||S.NAME
3193: into l_outagn_dname
3194: from WF_AGENTS A, WF_SYSTEMS S
3195: where A.GUID = l_outagnguid
3196: and A.SYSTEM_GUID (+)= S.GUID;
3197:
3198: exception
3206: if (l_toagnguid is not null) then
3207: begin
3208: select A.NAME||'@'||S.NAME
3209: into l_toagn_dname
3210: from WF_AGENTS A, WF_SYSTEMS S
3211: where A.GUID = l_toagnguid
3212: and A.SYSTEM_GUID (+)= S.GUID;
3213:
3214: exception
4101: if (h_guid is not null) then
4102: l_guid := hextoraw(h_guid);
4103:
4104: -- update
4105: Wf_Agents_Pkg.Update_Row (
4106: X_GUID=>l_guid,
4107: X_NAME=>upper(h_name),
4108: X_SYSTEM_GUID=>l_system_guid,
4109: X_PROTOCOL=>h_protocol,
4119: else
4120: l_guid := sys_guid();
4121:
4122: -- insert
4123: Wf_Agents_Pkg.Insert_Row (
4124: X_ROWID=>row_id,
4125: X_GUID=>l_guid,
4126: X_NAME=>upper(h_name),
4127: X_SYSTEM_GUID=>l_system_guid,
4763: h_guid in raw default null)
4764: is
4765: begin
4766: if (isDeletable(h_guid, 'AGENT')) then
4767: Wf_Agents_Pkg.Delete_Row(h_guid);
4768: end if;
4769:
4770: -- go back to ListAgents
4771: htp.p('