-
Notifications
You must be signed in to change notification settings - Fork 0
/
dynamicCall.cls
48 lines (42 loc) · 1.43 KB
/
dynamicCall.cls
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
/// Description
Class dc.process.dynamicCall Extends Ens.BusinessProcessBPL
{
Property TargetConfigNames As Ens.DataType.ConfigName;
Parameter SETTINGS = "TargetConfigNames:Basic";
/// BPL Definition
XData BPL [ XMLNamespace = "http://www.intersystems.com/bpl" ]
{
<process language='objectscript' request='Ens.Request' response='Ens.Response' height='2000' width='2000' >
<sequence xend='200' yend='450' >
<call name='Call configurable target' target='@process.TargetConfigNames' async='1' xpos='200' ypos='250' >
<request type='Ens.Request' >
<assign property="callrequest" value="request" action="set" />
</request>
<response type='Ens.Response' >
<assign property="response" value="callresponse" action="set" />
</response>
</call>
<sync name='Wait' calls='Call configurable target' type='all' xpos='200' ypos='350' />
</sequence>
</process>
}
/// Return an array of connections for drawing lines on the config diagram
ClassMethod OnGetConnections(Output pArray As %String, pItem As Ens.Config.Item)
{
Do ##super(.pArray,pItem)
If pItem.GetModifiedSetting("TargetConfigNames",.tValue) {
For i=1:1:$L(tValue,",") { Set tOne=$ZStrip($P(tValue,",",i),"<>W") Continue:""=tOne Set pArray(tOne)="" }
}
}
Storage Default
{
<Data name="dynamicCallDefaultData">
<Subscript>"dynamicCall"</Subscript>
<Value name="1">
<Value>TargetConfigNames</Value>
</Value>
</Data>
<DefaultData>dynamicCallDefaultData</DefaultData>
<Type>%Storage.Persistent</Type>
}
}