start_agent_info
AgentName = "AU_PROCESS_DELAY_REPORT"
AgentDescr = "Process Delay Report"
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 "Process Delay Report"
start_bpm_subactivity "Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_PROCESS_CLAIM"
)
call OpenFormTop
("ptEdit"
,"
AU_PROCESS_CLAIM_E0.FM"
,"WORK.AU_PROCESS_CLAIM"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
result=1
comm = LookUpId
("AU_PROCESS_CLAIM"
,__params[1]
,"COMM0"
)
if (comm = ""
) then
call message
("Comments must be suplied!"
)
result = 0
endif
end_bpm_validation
end_bpm_activity
start_bpm_activity "Report of Delayed Activity"
start_bpm_subactivity "Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_PROCESS_CLAIM"
)
call OnOpenForm_DisablePost
()
call OpenFormTop
("ptEdit"
,"
AU_PROCESS_CLAIM_E0.FM"
,"WORK.AU_PROCESS_CLAIM"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Report Form"
flag=__params[1]
rec = __params[2]
expr = strcat
(rec
,"=AU_PROCESS_CLAIM"
)
if (flag=1
) then
call OpenFormTop
("ptEdit"
,"
AU_PROCESS_CLAIM_E1.FM"
,"WORK.AU_PROCESS_CLAIM"
,1
,expr
)
elseif (flag=2
) then
call OpenFormTop
("ptEdit"
,"
AU_PROCESS_CLAIM_E2.FM"
,"WORK.AU_PROCESS_CLAIM"
,1
,expr
)
elseif (flag=3
) then
call OpenFormTop
("ptEdit"
,"
AU_PROCESS_CLAIM_E3.FM"
,"WORK.AU_PROCESS_CLAIM"
,1
,expr
)
endif
end_bpm_subactivity
start_bpm_validation
result=1
flag=__params[1]
if (flag = 1
) then
comm = LookUpId
("AU_PROCESS_CLAIM"
,__params[2]
,"COMM1"
)
elseif (flag = 2
) then
comm = LookUpId
("AU_PROCESS_CLAIM"
,__params[2]
,"COMM2"
)
elseif (flag = 3
) then
comm = LookUpId
("AU_PROCESS_CLAIM"
,__params[2]
,"COMM3"
)
endif
if (comm = ""
) then
call message
("Comments must be suplied!"
)
result = 0
endif
end_bpm_validation
end_bpm_activity
start_bpm_activity "Final Delayed Activity Reports"
start_bpm_subactivity "Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_PROCESS_CLAIM"
)
call OnOpenForm_DisablePost
()
call OpenFormTop
("ptEdit"
,"
AU_PROCESS_CLAIM_E0.FM"
,"WORK.AU_PROCESS_CLAIM"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "CPO Report"
rec = __params[1]
expr = strcat
(rec
,"=AU_PROCESS_CLAIM"
)
call OnOpenForm_DisablePost
()
call OpenFormTop
("ptEdit"
,"
AU_PROCESS_CLAIM_E1.FM"
,"WORK.AU_PROCESS_CLAIM"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Process Owner Report"
rec = __params[1]
expr = strcat
(rec
,"=AU_PROCESS_CLAIM"
)
call OnOpenForm_DisablePost
()
call OpenFormTop
("ptEdit"
,"
AU_PROCESS_CLAIM_E2.FM"
,"WORK.AU_PROCESS_CLAIM"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Process Member Report"
rec = __params[1]
expr = strcat
(rec
,"=AU_PROCESS_CLAIM"
)
call OnOpenForm_DisablePost
()
call OpenFormTop
("ptEdit"
,"
AU_PROCESS_CLAIM_E3.FM"
,"WORK.AU_PROCESS_CLAIM"
,1
,expr
)
end_bpm_subactivity
end_bpm_activity
start_action
claim_id = __params[1]
call bpm_setprocedureowner
(__activation_user
) {.....settheprocedureowner}
call bpm_setprocedurecomment
("New Activity Delay Report"
) {.....settheprocedurescomment}
call bpm_openatonce
()
callwait bpm_assign_job
("Process Delay Report"
,__activation_user
,""
,0
,claim_id
)
po_name = LookUpId
("AU_PROCESS_CLAIM"
,claim_id
,"PROCESS_OWNER"
)
po_name = LookUpId
("AU_USER"
,po_name
,"UNAME"
)
pm_name = LookUpId
("AU_PROCESS_CLAIM"
,claim_id
,"PROCESS_MEMBER"
)
pm_name = LookUpId
("AU_USER"
,pm_name
,"UNAME"
)
{..................Comments are completed from the concerning employees...................}
split_in_branch
callwait bpm_assign_job
("Report of Delayed Activity"
,__activation_user
,""
,0
,1
,claim_id
)
and_branch
callwait bpm_assign_job
("Report of Delayed Activity"
,po_name
,""
,0
,2
,claim_id
)
and_branch
callwait bpm_assign_job
("Report of Delayed Activity"
,pm_name
,""
,0
,3
,claim_id
)
join_branches
{..................report goes
to general manager..................}
callwait bpm_assign_job
("Final Delayed Activity Reports"
,""
,"GENERAL MANAGER"
,0
,claim_id
)
end_action
