管理员为供应商创建新联系人流程
/oracle/apps/pos/supplier/webui/ByrAddCntctPG
oracle.apps.pos.supplier.webui.ByrAddCntctCO
oracle.apps.pos.supplier.server.ByrSuppAM
//伪码
//CO
if ("ByrAddCont".equals(comingFrom)){
……
long1 = (Long)oaapplicationmodule2.invokeMethod("addContact", aserializable4, aclass4);
} //AM
public Long addContact(Long long1, Long long2, String s) throws Exception
{
……
l = PosByrContactHelper.createContact(oadbtransaction, long1.longValue(), poscontinfoamimpl);
……
long l2 = PosByrContactHelper.createContactUserAccount(oadbtransaction, l, s2, s13);
……
} //PosByrContactHelper
public static long createContact(OADBTransaction oadbtransaction, long l, PosContInfoAMImpl poscontinfoamimpl)
{
……
BEGIN
pos_supp_contact_pkg.create_supplier_contact(p_vendor_party_id => :1,
p_first_name => :2,
p_last_name => :3,
p_middle_name => :4,
p_contact_title => :5,
p_job_title => :6,
p_phone_area_code => :7,
p_phone_number => :8,
p_phone_extension => :9,
p_fax_area_code => :10,
p_fax_number => :11,
p_email_address => :12,
p_inactive_date => :13,
x_return_status => :14,
x_msg_count => :15,
x_msg_data => :16,
x_person_party_id => :17,
p_department => :18,
p_alt_contact_name => :19,
p_alt_area_code => :20,
p_alt_phone_number => :21,
p_url => :22);
END;
……
}
public static long createContactUserAccount(OADBTransaction oadbtransaction, long l, String s, String s1)
{
……
BEGIN
pos_user_admin_pkg.create_supplier_user_ntf(p_user_name => :1,
p_user_email => :2,
p_person_party_id => :3,
p_password => :4,
x_return_status => :5,
x_msg_count => :6,
x_msg_data => :7,
x_user_id => :8,
x_password => :9);
END;
……
}
//证明提示
createUserCertReminderNtf1
//am
BEGIN
pos_user_admin_pkg.add_certntf_subscription(p_user_id => :1,
x_status => :2,
x_exception_msg => :3);
END;