start_agent_info
AgentName = "AU_IT_PROBLEM_COORDINATOR"
AgentDescr = "IT Ticketing Coordinator"
AgentLanguage = ""
__timer_interval = 0 {....define
(in seconds
) the timer interval
for the wake up}
__delete_on_termination = 0 {....1=the agent frees itself
when terminates its task}
end_agent_info
start_bpm_activity "New Request
to IT"
start_bpm_subactivity "Request"
rec_id = __params[1]
expr = strcat
(rec_id
,"=AU_IT_SUPPORT"
)
call OnOpenForm_HideAllFields
()
call OnOpenForm_ShowField
("SUBJECT"
)
call OnOpenForm_ShowField
("COMM"
)
call OpenFormTop
("ptEdit"
,"
AU_IT_SUPPORT_E.FM"
,"WORK.AU_IT_SUPPORT"
,1
,expr
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Request Definition - IT"
start_bpm_subactivity "Request"
rec_id = __params[1]
expr = strcat
(rec_id
,"=AU_IT_SUPPORT"
)
call OnOpenForm_HideAllFields
()
call OnOpenForm_ShowField
("SUBJECT"
)
call OnOpenForm_ShowField
("COMM"
)
call OnOpenForm_ShowField
("YES_FLAG"
)
call OnOpenForm_ShowField
("AU_F_IT_SUPPORT_TYPE_AU_IT_SUPPORT_TYPE_D"
)
call OpenFormTop
("ptEdit"
,"
AU_IT_SUPPORT_E.FM"
,"WORK.AU_IT_SUPPORT"
,1
,expr
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Request Definition - User"
start_bpm_subactivity "Request"
rec_id = __params[1]
expr = strcat
(rec_id
,"=AU_IT_SUPPORT"
)
call OnOpenForm_HideAllFields
()
call OnOpenForm_ShowField
("SUBJECT"
)
call OnOpenForm_ShowField
("COMM"
)
call OpenFormTop
("ptEdit"
,"
AU_IT_SUPPORT_E.FM"
,"WORK.AU_IT_SUPPORT"
,1
,expr
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Problem Solving"
start_bpm_subactivity "Request"
rec_id = __params[1]
expr = strcat
(rec_id
,"=AU_IT_SUPPORT"
)
call OnOpenForm_HideAllFields
()
call OnOpenForm_ShowField
("SUBJECT"
)
call OnOpenForm_ShowField
("COMM"
)
call OnOpenForm_ShowField
("AU_F_IT_SUPPORT_TYPE_AU_IT_SUPPORT_TYPE_D"
)
call OpenFormTop
("ptEdit"
,"
AU_IT_SUPPORT_E.FM"
,"WORK.AU_IT_SUPPORT"
,1
,expr
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Solution Acceptance"
start_bpm_subactivity "Request"
rec_id = __params[1]
expr = strcat
(rec_id
,"=AU_IT_SUPPORT"
)
call OnOpenForm_HideAllFields
()
call OnOpenForm_ShowField
("SUBJECT"
)
call OnOpenForm_ShowField
("COMM"
)
call OnOpenForm_ShowField
("FINISHED_FLAG"
)
call OpenFormTop
("ptEdit"
,"
AU_IT_SUPPORT_E.FM"
,"WORK.AU_IT_SUPPORT"
,1
,expr
)
end_bpm_subactivity
end_bpm_activity
start_action
{.....a snipet of some action code is shown here...
(CHANGE IT!!!
)}
rec_id = __params[1] {....get input parameter
(usualy the record id of starting form
)}
comm = LookUpId
("AU_IT_SUPPORT"
,rec_id
,"SUBJECT"
)
call bpm_setprocedurecomment
(comm
) {.....set the procedures comment}
call bpm_setprocedureowner
(__activation_user
) {.....set the procedure owner}
{......request posting................}
call bpm_openatonce
()
callwait bpm_assign_job
( "New Request
to IT"
, __activation_user
, ""
, 0
, rec_id
)
{.................................user and techician try
to define the problem}
uname = ""
for i=1
to 100
callwait bpm_assign_job
( "Request Definition - IT"
, ""
, "IT Department"
, 0
, rec_id
)
uname = SelectFrom
("
SELECT UNAME
FROM AU_STEP
WHERE (AU_STEP="
,__au_step
,"
)"
)
yes_flag = LookUpId
("AU_IT_SUPPORT"
,rec_id
,"YES_FLAG"
)
yes_flag = val
(yes_flag
)
if (yes_flag=0
) then
callwait bpm_assign_job
( "Request Definition - User"
, __activation_user
, ""
, 0
, rec_id
)
elseif (yes_flag=1
) then
i=100
endif
next
{.............................a technichian of ΙΤ tries
to confirm with the user that the problem has solved}
for j=1
to 100
callwait bpm_assign_job
( "Problem Solving"
, ""
, "IT Department"
, 0
, rec_id
)
uname = SelectFrom
("
SELECT UNAME
FROM AU_STEP
WHERE (AU_STEP="
,__au_step
,"
)"
)
finished_flag = LookUpId
("AU_IT_SUPPORT"
,rec_id
,"FINISHED_FLAG"
)
finished_flag = val
(finished_flag
)
if (finished_flag=0
) then
callwait bpm_assign_job
( "Solution Acceptance"
, __activation_user
, ""
, 0
, rec_id
)
elseif (finished_flag=1
) then
j=100
endif
next
end_action
