74: l_parameter_list.DELETE;
75:
76: ELSE
77: FND_MESSAGE.SET_NAME('OKL', 'OKL_NO_EVENT');
78: FND_MSG_PUB.ADD;
79: x_return_status := OKC_API.G_RET_STS_ERROR ;
80: END IF;
81: EXCEPTION
82:
82:
83: WHEN OTHERS THEN
84: FND_MESSAGE.SET_NAME('OKL', 'OKL_API_OTHERS_EXCEP');
85: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
86: FND_MSG_PUB.ADD;
87: ROLLBACK TO create_credit_app_event;
88: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR ;
89:
90: END create_credit_app_event;
102: itemkey in varchar2) is
103: i integer;
104: j integer;
105: begin
106: j := NVL(FND_MSG_PUB.Count_Msg,0);
107: if (j=0) then return; end if;
108: if (j>9) then j:=9; end if;
109: FOR I IN 1..J LOOP
110: wf_engine.SetItemAttrText (itemtype => itemtype,
109: FOR I IN 1..J LOOP
110: wf_engine.SetItemAttrText (itemtype => itemtype,
111: itemkey => itemkey,
112: aname => 'MESSAGE'||i,
113: avalue => FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
114: END LOOP;
115: end;
116:
117: -- sets requestor of credit request to the user who submitted the request.