303: l_card_program_id := wf_engine.getitemattrnumber(itemtype,itemkey,'CARD_PROGRAM_ID', true);
304:
305: for crec in ccard LOOP
306: select card_emp_matching_rule into l_match_rule
307: from ap_card_programs_all
308: where card_program_id = crec.card_program_id;
309:
310: if l_match_rule is not null then
311: l_stmt := 'begin '||
687: l_card_program_id := wf_engine.getitemattrnumber(itemtype,itemkey,'CARD_PROGRAM_ID',false);
688:
689: IF(l_card_program_id IS NOT NULL) THEN
690: select sysadmin_role_name, admin_employee_id into l_role_name, l_person_id
691: from ap_card_programs_all
692: where card_program_id = l_card_program_id;
693: ELSE
694: l_role_name := NULL;
695: l_person_id := NULL;
757: return;
758: end if;
759:
760: select card_program_name into l_name
761: from ap_card_programs_all
762: where card_program_id = l_id;
763: wf_engine.setitemattrtext(itemtype,itemkey,'CARD_PROGRAM_NAME',l_name);
764:
765: resultout := 'COMPLETE';