34: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
35: '*** Finish: chord_dist ***' );
36: END IF;
37:
38: result := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
39: return;
40:
41: EXCEPTION
42:
669: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
670: '*** In Procedure:set_wf_dist_control ***' );
671: END IF;
672:
673: wf_engine.SetItemAttrText(itemtype,
674: itemkey,
675: 'CO_D_DIST_NUM',
676: x_dist_control.distribution_num);
677:
674: itemkey,
675: 'CO_D_DIST_NUM',
676: x_dist_control.distribution_num);
677:
678: wf_engine.SetItemAttrText(itemtype,
679: itemkey,
680: 'CO_D_DELIVER_TO_PERSON',
681: x_dist_control.deliver_to_person_id);
682:
679: itemkey,
680: 'CO_D_DELIVER_TO_PERSON',
681: x_dist_control.deliver_to_person_id);
682:
683: wf_engine.SetItemAttrText(itemtype,
684: itemkey,
685: 'CO_D_RATE_DATE',
686: x_dist_control.rate_date);
687:
685: 'CO_D_RATE_DATE',
686: x_dist_control.rate_date);
687:
688:
689: wf_engine.SetItemAttrText(itemtype,
690: itemkey,
691: 'CO_D_GL_ENCUMBERED_DATE',
692: x_dist_control.gl_encumbered_date);
693:
691: 'CO_D_GL_ENCUMBERED_DATE',
692: x_dist_control.gl_encumbered_date);
693:
694:
695: wf_engine.SetItemAttrText(itemtype,
696: itemkey,
697: 'CO_D_CHARGE_ACCOUNT',
698: x_dist_control.code_combination_id);
699:
696: itemkey,
697: 'CO_D_CHARGE_ACCOUNT',
698: x_dist_control.code_combination_id);
699:
700: wf_engine.SetItemAttrText(itemtype,
701: itemkey,
702: 'CO_D_DEST_SUBINVENTORY',
703: x_dist_control.destination_subinventory);
704:
701: itemkey,
702: 'CO_D_DEST_SUBINVENTORY',
703: x_dist_control.destination_subinventory);
704:
705: wf_engine.SetItemAttrText(itemtype,
706: itemkey,
707: 'CO_D_DEST_SUBINVENTORY',
708: x_dist_control.destination_subinventory);
709:
706: itemkey,
707: 'CO_D_DEST_SUBINVENTORY',
708: x_dist_control.destination_subinventory);
709:
710: wf_engine.SetItemAttrNumber(itemtype,
711: itemkey,
712: 'CO_D_QUANTITY_ORDERED_CHANGE',
713: x_dist_control.quantity_ordered_change);
714:
711: itemkey,
712: 'CO_D_QUANTITY_ORDERED_CHANGE',
713: x_dist_control.quantity_ordered_change);
714:
715: wf_engine.SetItemAttrNumber(itemtype,
716: itemkey,
717: 'CO_D_RATE_CHANGE',
718: x_dist_control.rate_change);
719:
748: '*** In Procedure :get_wf_dist_control ***' );
749: END IF;
750:
751: x_dist_control.distribution_num:=
752: wf_engine.GetItemAttrText(itemtype,
753: itemkey,
754: 'CO_D_DIST_NUM');
755:
756: x_dist_control.deliver_to_person_id:=
753: itemkey,
754: 'CO_D_DIST_NUM');
755:
756: x_dist_control.deliver_to_person_id:=
757: wf_engine.GetItemAttrText(itemtype,
758: itemkey,
759: 'CO_D_DELIVER_TO_PERSON');
760:
761: x_dist_control.rate_date :=
758: itemkey,
759: 'CO_D_DELIVER_TO_PERSON');
760:
761: x_dist_control.rate_date :=
762: wf_engine.GetItemAttrText(itemtype,
763: itemkey,
764: 'CO_D_RATE_DATE');
765:
766: x_dist_control.gl_encumbered_date :=
763: itemkey,
764: 'CO_D_RATE_DATE');
765:
766: x_dist_control.gl_encumbered_date :=
767: wf_engine.GetItemAttrText(itemtype,
768: itemkey,
769: 'CO_D_GL_ENCUMBERED_DATE');
770:
771: x_dist_control.code_combination_id :=
768: itemkey,
769: 'CO_D_GL_ENCUMBERED_DATE');
770:
771: x_dist_control.code_combination_id :=
772: wf_engine.GetItemAttrText(itemtype,
773: itemkey,
774: 'CO_D_CHARGE_ACCOUNT');
775:
776: x_dist_control.destination_subinventory :=
773: itemkey,
774: 'CO_D_CHARGE_ACCOUNT');
775:
776: x_dist_control.destination_subinventory :=
777: wf_engine.GetItemAttrText(itemtype,
778: itemkey,
779: 'CO_D_DEST_SUBINVENTORY');
780:
781: x_dist_control.quantity_ordered_change :=
778: itemkey,
779: 'CO_D_DEST_SUBINVENTORY');
780:
781: x_dist_control.quantity_ordered_change :=
782: wf_engine.GetItemAttrNumber(itemtype,
783: itemkey,
784: 'CO_D_QUANTITY_ORDERED_CHANGE');
785:
786: x_dist_control.rate_change :=
783: itemkey,
784: 'CO_D_QUANTITY_ORDERED_CHANGE');
785:
786: x_dist_control.rate_change :=
787: wf_engine.GetItemAttrNumber(itemtype,
788: itemkey,
789: 'CO_D_RATE_CHANGE');
790:
791: x_dist_control.amount_ordered_change :=
813: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
814: '*** In procedure get_wf_dist_parameters ***');
815: END IF;
816:
817: x_doc_type := wf_engine.GetItemAttrText (itemtype,
818: itemkey,
819: 'DOCUMENT_TYPE');
820:
821: IF x_doc_type IN ('PO', 'PA') THEN
820:
821: IF x_doc_type IN ('PO', 'PA') THEN
822:
823: x_dist_parameters.po_header_id :=
824: wf_engine.GetItemAttrNumber(itemtype,
825: itemkey,
826: 'DOCUMENT_ID');
827:
828: x_dist_parameters.po_release_id:=NULL;
829:
830: ELSIF x_doc_type = 'RELEASE' THEN
831:
832: x_dist_parameters.po_release_id :=
833: wf_engine.GetItemAttrNumber(itemtype,
834: itemkey,
835: 'DOCUMENT_ID');
836:
837: x_dist_parameters.po_header_id:=NULL;