DBA Data[Home] [Help]

APPS.PN_LEASES_PKG SQL Statements

The following lines contain the word 'select', 'insert', 'update' or 'delete':

Line: 15

PROCEDURE Insert_Row
(
   X_ROWID                         IN OUT NOCOPY VARCHAR2,
   X_LEASE_ID                      IN OUT NOCOPY NUMBER,
   X_LEASE_CHANGE_ID               IN OUT NOCOPY NUMBER,
   X_LEASE_DETAIL_ID               IN OUT NOCOPY NUMBER,
   X_NAME                          IN     VARCHAR2,
   X_LEASE_NUM                     IN OUT NOCOPY VARCHAR2,
   X_PARENT_LEASE_ID               IN     NUMBER,
   X_LEASE_TYPE_CODE               IN     VARCHAR2,
   X_LEASE_CLASS_CODE              IN     VARCHAR2,
   X_PAYMENT_TERM_PRORATION_RULE   IN     NUMBER,
   X_ABSTRACTED_BY_USER            IN     NUMBER,
   X_STATUS                        IN     VARCHAR2,
   X_LEASE_STATUS                  IN     VARCHAR2,
   X_CREATION_DATE                 IN     DATE,
   X_CREATED_BY                    IN     NUMBER,
   X_LAST_UPDATE_DATE              IN     DATE,
   X_LAST_UPDATED_BY               IN     NUMBER,
   X_LAST_UPDATE_LOGIN             IN     NUMBER,
   X_RESPONSIBLE_USER              IN     NUMBER,
   X_EXPENSE_ACCOUNT_ID            IN     NUMBER,
   X_ACCRUAL_ACCOUNT_ID            IN     NUMBER,
   X_RECEIVABLE_ACCOUNT_ID         IN     NUMBER,
   X_TERM_TEMPLATE_ID              IN     NUMBER ,
   X_LEASE_COMMENCEMENT_DATE       IN     DATE,
   X_LEASE_TERMINATION_DATE        IN     DATE,
   X_LEASE_EXECUTION_DATE          IN     DATE,
   X_ATTRIBUTE_CATEGORY            IN     VARCHAR2,
   X_ATTRIBUTE1                    IN     VARCHAR2,
   X_ATTRIBUTE2                    IN     VARCHAR2,
   X_ATTRIBUTE3                    IN     VARCHAR2,
   X_ATTRIBUTE4                    IN     VARCHAR2,
   X_ATTRIBUTE5                    IN     VARCHAR2,
   X_ATTRIBUTE6                    IN     VARCHAR2,
   X_ATTRIBUTE7                    IN     VARCHAR2,
   X_ATTRIBUTE8                    IN     VARCHAR2,
   X_ATTRIBUTE9                    IN     VARCHAR2,
   X_ATTRIBUTE10                   IN     VARCHAR2,
   X_ATTRIBUTE11                   IN     VARCHAR2,
   X_ATTRIBUTE12                   IN     VARCHAR2,
   X_ATTRIBUTE13                   IN     VARCHAR2,
   X_ATTRIBUTE14                   IN     VARCHAR2,
   X_ATTRIBUTE15                   IN     VARCHAR2,
   x_org_id                        IN     NUMBER,
   x_location_id                   IN     NUMBER,
   x_customer_id                   IN     NUMBER,
   x_grouping_rule_id              IN     NUMBER,
   x_calendar_year_start_date      IN     VARCHAR2
)
IS

   CURSOR c IS
      SELECT ROWID
      FROM   pn_leases_all
      WHERE  lease_id = x_lease_id;
Line: 78

   pnp_debug_pkg.debug ('PN_LEASES_PKG.Insert_Row (+)');
Line: 91

   INSERT INTO pn_leases_all
   (
      LEASE_ID,
      LAST_UPDATE_DATE,
      LAST_UPDATED_BY,
      CREATION_DATE,
      CREATED_BY,
      LAST_UPDATE_LOGIN,
      NAME,
      LEASE_NUM,
      PARENT_LEASE_ID,
      LEASE_TYPE_CODE,
      LEASE_CLASS_CODE,
      PAYMENT_TERM_PRORATION_RULE,
      ABSTRACTED_BY_USER,
      STATUS,
      LEASE_STATUS,
      org_id,
      location_id,
      customer_id,
      cal_start
   )
   VALUES
   (
      NVL(X_LEASE_ID,pn_leases_s.NEXTVAL),
      sysdate,
      X_LAST_UPDATED_BY,
      sysdate,
      X_CREATED_BY,
      X_LAST_UPDATE_LOGIN,
      X_NAME,
      NVL(X_LEASE_NUM,pn_leases_s.CURRVAL),
      X_PARENT_LEASE_ID,
      X_LEASE_TYPE_CODE,
      X_LEASE_CLASS_CODE,
      X_PAYMENT_TERM_PRORATION_RULE,
      X_ABSTRACTED_BY_USER,
      X_STATUS,
      X_LEASE_STATUS,
      x_org_id,
      x_location_id,
      x_customer_id,
      x_calendar_year_start_date
   )
   RETURNING lease_id, lease_num INTO x_lease_id, x_lease_num;
Line: 149

   pn_lease_changes_pkg.Insert_Row
   (
       X_ROWID                         => l_rowId
      ,X_LEASE_CHANGE_ID               => X_LEASE_CHANGE_ID
      ,X_LEASE_ID                      => X_LEASE_ID
      ,X_LEASE_CHANGE_NUMBER           => l_leaseChangeNumber
      ,X_LEASE_CHANGE_NAME             => NULL
      ,X_RESPONSIBLE_USER              => NULL
      ,X_CHANGE_COMMENCEMENT_DATE      => NULL
      ,X_CHANGE_TERMINATION_DATE       => NULL
      ,X_CHANGE_TYPE_LOOKUP_CODE       => 'ABSTRACT'
      ,X_CHANGE_EXECUTION_DATE         => NULL
      ,X_ATTRIBUTE_CATEGORY            => NULL
      ,X_ATTRIBUTE1                    => NULL
      ,X_ATTRIBUTE2                    => NULL
      ,X_ATTRIBUTE3                    => NULL
      ,X_ATTRIBUTE4                    => NULL
      ,X_ATTRIBUTE5                    => NULL
      ,X_ATTRIBUTE6                    => NULL
      ,X_ATTRIBUTE7                    => NULL
      ,X_ATTRIBUTE8                    => NULL
      ,X_ATTRIBUTE9                    => NULL
      ,X_ATTRIBUTE10                   => NULL
      ,X_ATTRIBUTE11                   => NULL
      ,X_ATTRIBUTE12                   => NULL
      ,X_ATTRIBUTE13                   => NULL
      ,X_ATTRIBUTE14                   => NULL
      ,X_ATTRIBUTE15                   => NULL
      ,X_ABSTRACTED_BY_USER            => NULL
      ,X_CREATION_DATE                 => sysdate
      ,X_CREATED_BY                    => X_CREATED_BY
      ,X_LAST_UPDATE_DATE              => sysdate
      ,X_LAST_UPDATED_BY               => X_LAST_UPDATED_BY
      ,X_LAST_UPDATE_LOGIN             => X_LAST_UPDATE_LOGIN
      ,x_org_id                        => x_org_id
   );
Line: 190

   pn_lease_details_pkg.Insert_Row
   (
       X_ROWID                         => l_rowId
      ,X_LEASE_DETAIL_ID               => X_LEASE_DETAIL_ID
      ,X_LEASE_CHANGE_ID               => X_LEASE_CHANGE_ID
      ,X_LEASE_ID                      => X_LEASE_ID
      ,X_RESPONSIBLE_USER              => X_RESPONSIBLE_USER
      ,X_EXPENSE_ACCOUNT_ID            => X_EXPENSE_ACCOUNT_ID
      ,X_LEASE_COMMENCEMENT_DATE       => X_LEASE_COMMENCEMENT_DATE
      ,X_LEASE_TERMINATION_DATE        => X_LEASE_TERMINATION_DATE
      ,X_LEASE_EXECUTION_DATE          => X_LEASE_EXECUTION_DATE
      ,X_CREATION_DATE                 => sysdate
      ,X_CREATED_BY                    => X_CREATED_BY
      ,X_LAST_UPDATE_DATE              => sysdate
      ,X_LAST_UPDATED_BY               => X_LAST_UPDATED_BY
      ,X_LAST_UPDATE_LOGIN             => X_LAST_UPDATE_LOGIN
      ,X_ACCRUAL_ACCOUNT_ID            => X_ACCRUAL_ACCOUNT_ID
      ,X_RECEIVABLE_ACCOUNT_ID         => X_RECEIVABLE_ACCOUNT_ID
      ,X_TERM_TEMPLATE_ID              => X_TERM_TEMPLATE_ID
      ,X_GROUPING_RULE_ID              => X_GROUPING_RULE_ID
      ,X_ATTRIBUTE_CATEGORY            => X_ATTRIBUTE_CATEGORY
      ,x_ATTRIBUTE1                    => x_ATTRIBUTE1
      ,x_ATTRIBUTE2                    => x_ATTRIBUTE2
      ,x_ATTRIBUTE3                    => x_ATTRIBUTE3
      ,x_ATTRIBUTE4                    => x_ATTRIBUTE4
      ,x_ATTRIBUTE5                    => x_ATTRIBUTE5
      ,x_ATTRIBUTE6                    => x_ATTRIBUTE6
      ,x_ATTRIBUTE7                    => x_ATTRIBUTE7
      ,x_ATTRIBUTE8                    => x_ATTRIBUTE8
      ,x_ATTRIBUTE9                    => x_ATTRIBUTE9
      ,x_ATTRIBUTE10                   => x_ATTRIBUTE10
      ,x_ATTRIBUTE11                   => x_ATTRIBUTE11
      ,x_ATTRIBUTE12                   => x_ATTRIBUTE12
      ,x_ATTRIBUTE13                   => x_ATTRIBUTE13
      ,x_ATTRIBUTE14                   => x_ATTRIBUTE14
      ,x_ATTRIBUTE15                   => x_ATTRIBUTE15
      ,x_org_id                        => x_org_id
   );
Line: 229

   pnp_debug_pkg.debug ('PN_LEASES_PKG.Insert_Row (-)');
Line: 231

END Insert_Row;
Line: 289

      SELECT *
      FROM   pn_leases_all                                              --sdm_MOAC
      WHERE  lease_id = x_lease_id
      FOR UPDATE OF lease_id NOWAIT;
Line: 431

PROCEDURE Update_Row
(
   X_LEASE_ID                      IN     NUMBER,
   X_LEASE_DETAIL_ID               IN     NUMBER,
   X_LEASE_CHANGE_ID               IN     NUMBER,
   X_NAME                          IN     VARCHAR2,
   X_LEASE_NUM                     IN     VARCHAR2,
   X_PARENT_LEASE_ID               IN     NUMBER,
   X_LEASE_TYPE_CODE               IN     VARCHAR2,
   X_LEASE_CLASS_CODE              IN     VARCHAR2,
   X_PAYMENT_TERM_PRORATION_RULE   IN     NUMBER,
   X_ABSTRACTED_BY_USER            IN     NUMBER,
   X_STATUS                        IN     VARCHAR2,
   X_LEASE_STATUS                  IN     VARCHAR2,
   X_LAST_UPDATE_DATE              IN     DATE,
   X_LAST_UPDATED_BY               IN     NUMBER,
   X_LAST_UPDATE_LOGIN             IN     NUMBER,
   X_RESPONSIBLE_USER              IN     NUMBER,
   X_EXPENSE_ACCOUNT_ID            IN     NUMBER,
   X_ACCRUAL_ACCOUNT_ID            IN     NUMBER,
   X_RECEIVABLE_ACCOUNT_ID         IN     NUMBER,
   X_TERM_TEMPLATE_ID              IN     NUMBER,
   X_LEASE_COMMENCEMENT_DATE       IN     DATE,
   X_LEASE_TERMINATION_DATE        IN     DATE,
   X_LEASE_EXECUTION_DATE          IN     DATE,
   X_ATTRIBUTE_CATEGORY            IN     VARCHAR2,
   X_ATTRIBUTE1                    IN     VARCHAR2,
   X_ATTRIBUTE2                    IN     VARCHAR2,
   X_ATTRIBUTE3                    IN     VARCHAR2,
   X_ATTRIBUTE4                    IN     VARCHAR2,
   X_ATTRIBUTE5                    IN     VARCHAR2,
   X_ATTRIBUTE6                    IN     VARCHAR2,
   X_ATTRIBUTE7                    IN     VARCHAR2,
   X_ATTRIBUTE8                    IN     VARCHAR2,
   X_ATTRIBUTE9                    IN     VARCHAR2,
   X_ATTRIBUTE10                   IN     VARCHAR2,
   X_ATTRIBUTE11                   IN     VARCHAR2,
   X_ATTRIBUTE12                   IN     VARCHAR2,
   X_ATTRIBUTE13                   IN     VARCHAR2,
   X_ATTRIBUTE14                   IN     VARCHAR2,
   X_ATTRIBUTE15                   IN     VARCHAR2,
   x_location_id                   IN     NUMBER,
   x_customer_id                   IN     NUMBER,
   x_grouping_rule_id              IN     NUMBER,
   x_lease_extension_end_date      IN     DATE,
   x_calendar_year_start_date      IN     VARCHAR2
)
IS
   l_return_status VARCHAR2(30) := NULL;
Line: 482

     SELECT org_id FROM pn_leases_all WHERE lease_id = x_lease_id;
Line: 487

   pnp_debug_pkg.debug ('PN_LEASES_PKG.Update_Row (+)');
Line: 513

   pn_lease_details_pkg.Update_Row
   (
       X_LEASE_DETAIL_ID               => X_LEASE_DETAIL_ID
      ,X_LEASE_CHANGE_ID               => X_LEASE_CHANGE_ID
      ,X_LEASE_ID                      => X_LEASE_ID
      ,X_RESPONSIBLE_USER              => X_RESPONSIBLE_USER
      ,X_EXPENSE_ACCOUNT_ID            => X_EXPENSE_ACCOUNT_ID
      ,X_LEASE_COMMENCEMENT_DATE       => X_LEASE_COMMENCEMENT_DATE
      ,X_LEASE_TERMINATION_DATE        => X_LEASE_TERMINATION_DATE
      ,X_LEASE_EXECUTION_DATE          => X_LEASE_EXECUTION_DATE
      ,X_LAST_UPDATE_DATE              => sysdate
      ,X_LAST_UPDATED_BY               => X_LAST_UPDATED_BY
      ,X_LAST_UPDATE_LOGIN             => X_LAST_UPDATE_LOGIN
      ,X_ACCRUAL_ACCOUNT_ID            => X_ACCRUAL_ACCOUNT_ID
      ,X_RECEIVABLE_ACCOUNT_ID         => X_RECEIVABLE_ACCOUNT_ID
      ,X_TERM_TEMPLATE_ID              => X_TERM_TEMPLATE_ID
      ,X_GROUPING_RULE_ID              => X_GROUPING_RULE_ID
      ,X_ATTRIBUTE_CATEGORY            => X_ATTRIBUTE_CATEGORY
      ,X_ATTRIBUTE1                    => X_ATTRIBUTE1
      ,X_ATTRIBUTE2                    => X_ATTRIBUTE2
      ,X_ATTRIBUTE3                    => X_ATTRIBUTE3
      ,X_ATTRIBUTE4                    => X_ATTRIBUTE4
      ,X_ATTRIBUTE5                    => X_ATTRIBUTE5
      ,X_ATTRIBUTE6                    => X_ATTRIBUTE6
      ,X_ATTRIBUTE7                    => X_ATTRIBUTE7
      ,X_ATTRIBUTE8                    => X_ATTRIBUTE8
      ,X_ATTRIBUTE9                    => X_ATTRIBUTE9
      ,X_ATTRIBUTE10                   => X_ATTRIBUTE10
      ,X_ATTRIBUTE11                   => X_ATTRIBUTE11
      ,X_ATTRIBUTE12                   => X_ATTRIBUTE12
      ,X_ATTRIBUTE13                   => X_ATTRIBUTE13
      ,X_ATTRIBUTE14                   => X_ATTRIBUTE14
      ,X_ATTRIBUTE15                   => X_ATTRIBUTE15
      ,x_lease_extension_end_date      => x_lease_extension_end_date
   );
Line: 549

   UPDATE pn_leases_all
   SET    NAME                            = X_NAME,
          LEASE_NUM                       = X_LEASE_NUM,
          PARENT_LEASE_ID                 = X_PARENT_LEASE_ID,
          LEASE_TYPE_CODE                 = X_LEASE_TYPE_CODE,
          LEASE_CLASS_CODE                = X_LEASE_CLASS_CODE,
          PAYMENT_TERM_PRORATION_RULE     = X_PAYMENT_TERM_PRORATION_RULE,
          ABSTRACTED_BY_USER              = X_ABSTRACTED_BY_USER,
          LAST_UPDATE_DATE                = sysdate,
          LAST_UPDATED_BY                 = X_LAST_UPDATED_BY,
          LAST_UPDATE_LOGIN               = X_LAST_UPDATE_LOGIN,
          STATUS                          = X_STATUS,
          LEASE_STATUS                    = X_LEASE_STATUS,
          location_id                     = x_location_id,
          customer_id                     = x_customer_id,
	  cal_start                       = x_calendar_year_start_date
   WHERE  LEASE_ID = X_LEASE_ID;
Line: 567

   pnp_debug_pkg.debug ('PN_LEASES_PKG.Update_Row (-)');
Line: 569

END Update_Row;
Line: 584

PROCEDURE Delete_Row
(
   X_LEASE_ID in NUMBER
)
IS
   l_leaseDetailId                 NUMBER                  := NULL;
Line: 593

   pnp_debug_pkg.debug ('PN_LEASES_PKG.Delete_Row (+)');
Line: 595

   SELECT pd.lease_detail_id,
          pt.lease_transaction_id,
          pc.lease_change_id
   INTO   l_leaseDetailId,l_leaseTransactionId,l_leaseChangeId
   FROM   pn_lease_details_all        pd
         ,pn_lease_transactions_all   pt
         ,pn_lease_changes_all        pc
   WHERE  pd.lease_id                  = x_lease_id
   AND    pc.lease_change_id           = pd.lease_change_id
   AND    pt.lease_transaction_id      = pc.lease_transaction_id
   FOR UPDATE OF lease_detail_id NOWAIT;
Line: 608

   pn_lease_details_pkg.Delete_Row (X_LEASE_DETAIL_ID =>l_leaseDetailId);
Line: 612

   pn_lease_changes_pkg.Delete_Row_transactions (X_LEASE_TRANSACTION_ID =>l_leaseTransactionId);
Line: 616

   pn_lease_changes_pkg.Delete_Row (X_LEASE_CHANGE_ID =>l_leaseChangeId);
Line: 618

   DELETE FROM pn_leases_all
   WHERE lease_id = x_lease_id;
Line: 625

   pnp_debug_pkg.debug ('PN_LEASES_PKG.Delete_Row (-)');
Line: 627

END Delete_Row;
Line: 646

   SELECT 1
   INTO   l_dummy
   FROM   DUAL
   WHERE  NOT EXISTS (SELECT 1
                      FROM   pn_leases pnl
                      WHERE  pnl.lease_num = x_lease_number
                      AND    ((x_lease_id IS NULL) OR (pnl.lease_id <> x_lease_id))
                     );
Line: 686

   SELECT 1
   INTO   l_dummy
   FROM   DUAL
   WHERE  NOT EXISTS (SELECT 1
                      FROM   pn_leases_all pnl
                      WHERE  pnl.lease_num = x_lease_number
                      AND    ((x_lease_id IS NULL) OR (pnl.lease_id <> x_lease_id))
                      AND    org_id = x_org_id
                     );