54: l_counter NUMBER;
55: l_org_id NUMBER := NULL;
56: BEGIN
57: -- set default result
58: resultout := wf_engine.eng_completed ;
59:
60: if (funmode = 'RUN') then
61: -- WF attribute TERRITORYORGID must be set to for this function to work
62: l_org_id := WF_ENGINE.GetItemAttrNumber(
58: resultout := wf_engine.eng_completed ;
59:
60: if (funmode = 'RUN') then
61: -- WF attribute TERRITORYORGID must be set to for this function to work
62: l_org_id := WF_ENGINE.GetItemAttrNumber(
63: itemtype, itemkey, 'TERRITORYORGID');
64:
65: IF l_org_id IS NULL THEN
66: return;
67: END IF;
68:
69: fnd_client_info.set_org_context(l_org_id);
70:
71: l_acct_rec.party_id := WF_ENGINE.GetItemAttrNumber(
72: itemtype, itemkey, CCT_INTERACTIONKEYS_PUB.KEY_CUSTOMER_ID);
73:
74: l_call_ID := WF_ENGINE.GetItemAttrText(
75: itemtype, itemkey, 'OCCTMEDIAITEMID');
70:
71: l_acct_rec.party_id := WF_ENGINE.GetItemAttrNumber(
72: itemtype, itemkey, CCT_INTERACTIONKEYS_PUB.KEY_CUSTOMER_ID);
73:
74: l_call_ID := WF_ENGINE.GetItemAttrText(
75: itemtype, itemkey, 'OCCTMEDIAITEMID');
76:
77: IF ( (l_acct_rec.party_id IS NULL) OR (l_call_ID IS NULL) ) THEN
78: return;
139: l_customer_pdt_ID VARCHAR2(60) := NULL ;
140: l_org_id NUMBER := NULL;
141: BEGIN
142: -- set default result
143: resultout := wf_engine.eng_completed ;
144:
145: if (funmode = 'RUN') then
146: -- WF attribute TERRITORYORGID must be set to for this function to work
147: l_org_id := WF_ENGINE.GetItemAttrNumber(
143: resultout := wf_engine.eng_completed ;
144:
145: if (funmode = 'RUN') then
146: -- WF attribute TERRITORYORGID must be set to for this function to work
147: l_org_id := WF_ENGINE.GetItemAttrNumber(
148: itemtype, itemkey, 'TERRITORYORGID');
149:
150: IF l_org_id IS NULL THEN
151: return;
152: END IF;
153:
154: fnd_client_info.set_org_context(l_org_id);
155:
156: l_acct_rec.INVENTORY_ITEM_ID := WF_ENGINE.GetItemAttrNumber(
157: itemtype, itemkey, 'INVENTORYITEMID');
158:
159: l_call_ID := WF_ENGINE.GetItemAttrText(
160: itemtype, itemkey, 'OCCTMEDIAITEMID');
155:
156: l_acct_rec.INVENTORY_ITEM_ID := WF_ENGINE.GetItemAttrNumber(
157: itemtype, itemkey, 'INVENTORYITEMID');
158:
159: l_call_ID := WF_ENGINE.GetItemAttrText(
160: itemtype, itemkey, 'OCCTMEDIAITEMID');
161:
162: IF l_acct_rec.INVENTORY_ITEM_ID IS NULL THEN
163: l_customer_pdt_id := to_number(WF_ENGINE.GetItemAttrText(
159: l_call_ID := WF_ENGINE.GetItemAttrText(
160: itemtype, itemkey, 'OCCTMEDIAITEMID');
161:
162: IF l_acct_rec.INVENTORY_ITEM_ID IS NULL THEN
163: l_customer_pdt_id := to_number(WF_ENGINE.GetItemAttrText(
164: itemtype, itemkey, 'CUSTOMERPRODUCTID'));
165: BEGIN
166: SELECT inventory_item_id
167: INTO l_acct_rec.INVENTORY_ITEM_ID
241: l_agent_ID NUMBER;
242: l_call_ID VARCHAR2(32);
243: BEGIN
244: -- set default result
245: resultout := wf_engine.eng_completed ;
246: if (funmode = 'RUN') then
247: l_RequestNum := WF_ENGINE.GetItemAttrText(itemtype,itemkey,'SERVICEREQUESTNUM' );
248: l_call_ID := WF_ENGINE.GetItemAttrText(itemtype, itemkey, 'OCCTMEDIAITEMID');
249:
243: BEGIN
244: -- set default result
245: resultout := wf_engine.eng_completed ;
246: if (funmode = 'RUN') then
247: l_RequestNum := WF_ENGINE.GetItemAttrText(itemtype,itemkey,'SERVICEREQUESTNUM' );
248: l_call_ID := WF_ENGINE.GetItemAttrText(itemtype, itemkey, 'OCCTMEDIAITEMID');
249:
250: IF ( (l_RequestNum IS NULL) OR (l_call_ID IS NULL) ) THEN
251: return;
244: -- set default result
245: resultout := wf_engine.eng_completed ;
246: if (funmode = 'RUN') then
247: l_RequestNum := WF_ENGINE.GetItemAttrText(itemtype,itemkey,'SERVICEREQUESTNUM' );
248: l_call_ID := WF_ENGINE.GetItemAttrText(itemtype, itemkey, 'OCCTMEDIAITEMID');
249:
250: IF ( (l_RequestNum IS NULL) OR (l_call_ID IS NULL) ) THEN
251: return;
252: END IF;