[Home] [Help]
1: PACKAGE BODY PO_DISTRIBUTIONS_PKG2 as
2: /* $Header: POXP2PDB.pls 120.5.12020000.3 2013/02/10 23:58:36 vegajula ship $ */
3: c_log_head CONSTANT VARCHAR2(35) := 'po.plsql.PO_DISTRIBUTIONS_PKG2.';
4:
5: g_fnd_debug CONSTANT VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
1: PACKAGE BODY PO_DISTRIBUTIONS_PKG2 as
2: /* $Header: POXP2PDB.pls 120.5.12020000.3 2013/02/10 23:58:36 vegajula ship $ */
3: c_log_head CONSTANT VARCHAR2(35) := 'po.plsql.PO_DISTRIBUTIONS_PKG2.';
4:
5: g_fnd_debug CONSTANT VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
6:
7: PROCEDURE Lock_Row(X_Rowid VARCHAR2,
89: X_distribution_type VARCHAR2 DEFAULT NULL --
90: ) IS
91: CURSOR C IS
92: SELECT *
93: FROM PO_DISTRIBUTIONS
94: WHERE rowid = X_Rowid
95: FOR UPDATE of Po_Distribution_Id NOWAIT;
96: Recinfo C%ROWTYPE;
97: -- For debug purposes(lswamy)
608:
609: l_return_status VARCHAR2(1);
610: l_msg_data VARCHAR2(2000);
611: l_msg_count NUMBER;
612: l_distribution_id PO_DISTRIBUTIONS_ALL.po_distribution_id%TYPE;
613:
614: --
615: l_transaction_line_rec_type ZX_API_PUB.transaction_line_rec_type;
616: l_distribution_type PO_DISTRIBUTIONS_ALL.distribution_type%TYPE;
612: l_distribution_id PO_DISTRIBUTIONS_ALL.po_distribution_id%TYPE;
613:
614: --
615: l_transaction_line_rec_type ZX_API_PUB.transaction_line_rec_type;
616: l_distribution_type PO_DISTRIBUTIONS_ALL.distribution_type%TYPE;
617: l_line_location_id PO_DISTRIBUTIONS_ALL.line_location_id%TYPE;
618: l_po_header_id PO_DISTRIBUTIONS_ALL.po_header_id%TYPE;
619: l_po_release_id PO_DISTRIBUTIONS_ALL.po_release_id%TYPE;
620: l_distribution_count NUMBER;
613:
614: --
615: l_transaction_line_rec_type ZX_API_PUB.transaction_line_rec_type;
616: l_distribution_type PO_DISTRIBUTIONS_ALL.distribution_type%TYPE;
617: l_line_location_id PO_DISTRIBUTIONS_ALL.line_location_id%TYPE;
618: l_po_header_id PO_DISTRIBUTIONS_ALL.po_header_id%TYPE;
619: l_po_release_id PO_DISTRIBUTIONS_ALL.po_release_id%TYPE;
620: l_distribution_count NUMBER;
621: l_org_id PO_DISTRIBUTIONS_ALL.org_id%type;
614: --
615: l_transaction_line_rec_type ZX_API_PUB.transaction_line_rec_type;
616: l_distribution_type PO_DISTRIBUTIONS_ALL.distribution_type%TYPE;
617: l_line_location_id PO_DISTRIBUTIONS_ALL.line_location_id%TYPE;
618: l_po_header_id PO_DISTRIBUTIONS_ALL.po_header_id%TYPE;
619: l_po_release_id PO_DISTRIBUTIONS_ALL.po_release_id%TYPE;
620: l_distribution_count NUMBER;
621: l_org_id PO_DISTRIBUTIONS_ALL.org_id%type;
622: --
615: l_transaction_line_rec_type ZX_API_PUB.transaction_line_rec_type;
616: l_distribution_type PO_DISTRIBUTIONS_ALL.distribution_type%TYPE;
617: l_line_location_id PO_DISTRIBUTIONS_ALL.line_location_id%TYPE;
618: l_po_header_id PO_DISTRIBUTIONS_ALL.po_header_id%TYPE;
619: l_po_release_id PO_DISTRIBUTIONS_ALL.po_release_id%TYPE;
620: l_distribution_count NUMBER;
621: l_org_id PO_DISTRIBUTIONS_ALL.org_id%type;
622: --
623:
617: l_line_location_id PO_DISTRIBUTIONS_ALL.line_location_id%TYPE;
618: l_po_header_id PO_DISTRIBUTIONS_ALL.po_header_id%TYPE;
619: l_po_release_id PO_DISTRIBUTIONS_ALL.po_release_id%TYPE;
620: l_distribution_count NUMBER;
621: l_org_id PO_DISTRIBUTIONS_ALL.org_id%type;
622: --
623:
624: BEGIN
625: DELETE FROM PO_DISTRIBUTIONS
621: l_org_id PO_DISTRIBUTIONS_ALL.org_id%type;
622: --
623:
624: BEGIN
625: DELETE FROM PO_DISTRIBUTIONS
626: WHERE rowid = X_Rowid
627: RETURNING po_distribution_id, line_location_id, po_header_id, po_release_id, distribution_type, org_id
628: INTO l_distribution_id, l_line_location_id, l_po_header_id, l_po_release_id, l_distribution_type, l_org_id; --
629:
640: IF l_distribution_type IN ('STANDARD','PLANNED','BLANKET','SCHEDULED') THEN
641:
642: -- count number of distributions
643: SELECT COUNT(1) INTO l_distribution_count
644: FROM po_distributions_all pd
645: WHERE pd.line_location_id=l_line_location_id;
646:
647: IF (l_distribution_count = 0) THEN -- there are no sibling distributions
648:
699:
700: END Delete_Row;
701:
702:
703: END PO_DISTRIBUTIONS_PKG2;