I need help to run this package and i got some error

Question

create or replace
PACKAGE BODY SUBS_INS_API_sun
AS
PROCEDURE SUBSCRIBER_INS_sun
    (SOURCE_SYS_ID IN VARCHAR2,
    TRACKING_ID IN VARCHAR2,
    ACCOUNT_NO IN VARCHAR2,
    prepaidActDevDetails_tab IN prepaidactdvcdetailsobj_sun,
    ERROR_CODE OUT VARCHAR2)
IS
Input_Parameter_Is_Null EXCEPTION;
pragma exception_init(Input_Parameter_Is_Null,-2000);
prepaidAccountDetails prepaidActDevDetails_tab:= prepaidActDevDetails_tab(NULL,NULL,NULL,NULL,NULL);
STATUS VARCHAR2(1):='1';
cust_no VARCHAR(10);
m_mac_id VARCHAR2(20);
  subscriber_master_Rec subscriber_master%ROWTYPE                 :=NULL;
  flg NUMBER(1);
BEGIN
   IF(Source_Sys_Id IS NULL OR Tracking_Id IS NULL OR ACCOUNT_NO IS NULL OR prepaidAccountDetails.LAST=0) THEN
    RAISE Input_Parameter_Is_Null;
  END IF;
  BEGIN
         select cm_cust_no into cust_no from customer_master where cm_cust_id=ACCOUNT_NO and cm_status in('A','P','0');
      EXCEPTION
      WHEN NO_DATA_FOUND THEN
        DBMS_OUTPUT.PUT_LINE('NO DATA FOUND');
               STATUS:='0';
    END;
  BEGIN
     FOR i IN prepaidAccountDetails.FIRST .. (prepaidAccountDetails.LAST) LOOP
     prepaidAccountDetails1:=prepaidActDevDetails_tab(i);
     prepaidAccountDetails1.Status_of_device:='1';
     IF (prepaidAccountDetails.Account_id is NULL OR prepaidAccountDetails.Mac_Id is NULL or prepaidAccountDetails.LOB_value is NULL) THEN
      RAISE Input_Parameter_Is_Null;
            END IF;
            IF(prepaidAccountDetails.LOB_value = 'VDO') THEN
             IF(prepaidAccountDetails.Channel_Line_Up is NULL) THEN
              Error_code :='SI002';
             DBMS_OUTPUT.PUT_LINE('NO DATA FOUND');
             STATUS:=0;
              prepaidAccountDetails.Status_of_device:='0';
             END IF;
            END IF;
            begin
               select 1 into flg from subscriber_master where pm_phone_no=prepaidAccountDetails.Mac_Id and pm_status in('P','0','A','B');
            EXCEPTION
             WHEN NO_DATA_FOUND THEN
              flg:=0;
             END;
             if(flg=1) then
              DBMS_OUTPUT.PUT_LINE('NO DATA FOUND');
              STATUS:=0;
              prepaidAccountDetails.Status_of_device:='0';
             END IF;
             begin
              select md_mac_id into m_mac_id from mac_details where md_mac_id=prepaidAccountDetails.Mac_Id and md_start_date<=sysdate
              and md_status='A';
            EXCEPTION when OTHERS then
              Error_code :='SI004';
             DBMS_OUTPUT.PUT_LINE('NO DATA FOUND');
              STATUS:=0;
              prepaidAccountDetails.Status_of_device:='0';
             end;
          if(STATUS= 1 and prepaidAccountDetails.Status_of_device='1') then
           SELECT PM_SUBS_ACT_NO_SEQ.nextval
           INTO subscriber_master_rec.PM_SUBS_ACT_NO
           FROM dual;
          subscriber_master_Rec.pm_phone_no          :=prepaidAccountDetails.Mac_Id;
        subscriber_master_Rec.pm_open_date         :=sysdate;
          subscriber_master_rec.pm_status            :='P';
          subscriber_master_rec.PM_CUST_LVL_YN:='S';
         subscriber_master_rec.PM_EQUP_CODE:=prepaidAccountDetails.LOB_value;
         subscriber_master_rec.PM_HOME_AREA:='HOM';
         subscriber_master_rec.PM_USG_CODE:='USG';
         subscriber_master_rec.PM_NO_TYPE:='S';
         subscriber_master_rec.PM_TCG_CODE:='DEF';
         subscriber_master_rec.PM_APLN_DATE:=sysdate;
          subscriber_master_rec.PM_USER2:=prepaidAccountDetails.LOB_value;
          subscriber_master_rec.PM_USER3:=prepaidAccountDetails.Channel_Line_Up;
          subscriber_master_rec.pm_cust_no:=cust_no;
          INSERT INTO subscriber_master VALUES subscriber_master_rec;
        END IF;
     END LOOP;
    END;
  END SUBSCRIBER_INS_sun;
END SUBS_INS_API_sun;
and
i got this error
Package Body PREPAID_TESTNEW.SUBS_INS_API@PREPAID_TESTNEW
Error(73,4): PL/SQL: Statement ignored
Error(73,99): PLS-00302: component 'LAST' must be declared
Error(87,6): PL/SQL: Statement ignored
Error(87,37): PLS-00302: component 'FIRST' must be declared
please help to run this package if anyone knows

Answer 1

now i corrected my package. It working fine. But, how to run this package via procedure. my procedure check below. I give all the details about my package check below.
---pkg specification
create or replace
PACKAGE SUBS_INS_API_SS
IS
PROCEDURE SUBSCRIBER_INS_SS
    (SOURCE_SYS_ID IN VARCHAR2,
    TRACKING_ID   IN VARCHAR2,
    ACCOUNT_NO IN VARCHAR2,
    prepaidActDevDetails_tab IN prepaidActDeviceDetails_tabobj,
    ERROR_CODE OUT VARCHAR2);
END SUBS_INS_API_SS;
-----pkg body
create or replace
PACKAGE BODY SUBS_INS_API_SS
AS
   PROCEDURE log_error (ip_code          IN VARCHAR2,
                        ip_message       IN VARCHAR2,
                        ip_description   IN VARCHAR2)
   IS
   BEGIN
      INSERT INTO ERR_LOG (IEL_REF_ID,
                           IEL_DATE,
                           IEL_CODE,
                           IEL_MSG,
                           IEL_DESC)
           VALUES (IVRS_ERR_LOG_SEQ.NEXTVAL,
                   SYSDATE,
                   ip_code,
                   ip_message,
                   ip_description);
   EXCEPTION
      WHEN OTHERS
      THEN
         ROLLBACK;
   END log_error;
   PROCEDURE INSERT_WS_LOG (SOURCE_SYS_ID   IN VARCHAR2,
                            STATUS          IN VARCHAR2,
                            TRACKING_ID     IN VARCHAR2,
                            ACCOUNT_ID      IN VARCHAR2,
                            MAC_ID          IN VARCHAR2)
   IS
      ws_log_rec   WS_LOG%ROWTYPE := NULL;
   BEGIN
      SELECT WS_LOG#REC#ID.NEXTVAL INTO ws_log_rec.rec#id FROM DUAL;
      ws_log_rec.VER#ID := 1;
      ws_log_rec.CRE#TS := SYSDATE;
      ws_log_rec.wl_source := SOURCE_SYS_ID;
      ws_log_rec.wl_status := Status;
      ws_log_rec.wl_tracking_id := tracking_id;
      ws_log_rec.wl_account_id := account_id;
      ws_log_rec.wl_mac_id := mac_id;
      INSERT INTO ws_log
           VALUES ws_log_rec;
   EXCEPTION
      WHEN OTHERS
      THEN
         ROLLBACK;
   END INSERT_WS_LOG;
    PROCEDURE REPLICO_DEV_INFO( Acc_id IN VARCHAR2, Mc_Id IN VARCHAR2,channel IN VARCHAR2,
                                 LOB_VAL IN VARCHAR2, outlet1 IN VARCHAR2, kit_cod IN VARCHAR2,
                                 serial_No IN VARCHAR2, shipperr IN VARCHAR2, estm_recived_date IN date)                                                                
    IS
              Replico_device_info_det_Rec   Replico_device_info_det%ROWTYPE := NULL;
              REC_ID  NUMBER;
    BEGIN
              SELECT REPLICO_DEVICE_INFO_DET#RECID.nextval INTO REC_ID FROM dual; 
               Replico_device_info_det_Rec.REC#ID := REC_ID;                 
               Replico_device_info_det_Rec.ACCOUNT_ID := Acc_id;
               Replico_device_info_det_Rec.MAC_ID := Mc_Id;               
               Replico_device_info_det_Rec.CHANNEL_LINE_UP := channel;
               Replico_device_info_det_Rec.LOB_VALUE := LOB_VAL;  
               Replico_device_info_det_Rec.OUTLET := outlet1;
               Replico_device_info_det_Rec.KIT_CODE := kit_cod;                
               Replico_device_info_det_Rec.SERIAL_NUMBER := serial_No;                
               Replico_device_info_det_Rec.SHIPPER := shipperr;                
               Replico_device_info_det_Rec.ESTIMATED_RECIVED_DATE := estm_recived_date;
              INSERT INTO replico_device_info_det
                    VALUES Replico_device_info_det_Rec;
              EXCEPTION
                      WHEN OTHERS
                      THEN
                          ROLLBACK;
    END REPLICO_DEV_INFO;
   PROCEDURE SUBSCRIBER_INS_SS (
      SOURCE_SYS_ID              IN     VARCHAR2,
      TRACKING_ID                IN     VARCHAR2,
      ACCOUNT_NO                 IN     VARCHAR2,
      prepaidActDevDetails_tab   IN     prepaidActDeviceDetails_tabobj,
      ERROR_CODE                    OUT VARCHAR2)
   IS
      Input_Parameter_Is_Null       EXCEPTION;
      PRAGMA EXCEPTION_INIT (Input_Parameter_Is_Null, -2000);
      prepaidAccountDetails         prepaid_act_dvc_details_obj
                                       := prepaid_act_dvc_details_obj  (NULL,
                                                                          NULL,
                                                                          NULL,
                                                                          NULL,
                                                                          NULL,
                                                                          NULL,
                                                                          NULL,
                                                                          NULL,
                                                                          NULL,
                                                                          NULL);
      STATUS                        VARCHAR2 (1) := '1';
      cust_no                       VARCHAR (10);
      m_mac_id                      VARCHAR2 (20);
      channel_lineup                VARCHAR2 (25);
      LOB_VALUE                     VARCHAR2 (25);
      subscriber_master_Rec         subscriber_master%ROWTYPE := NULL;
    Replico_device_info_det_Rec   Replico_device_info_det%ROWTYPE := NULL;
      flg                           NUMBER (1);
      plan_code                     VARCHAR2(10);
      subs_aact_no                 NUMBER(20);
      m_plan_code1               payment_transaction_history.TH_PLAN_CODE%type;
      m_payment_mode1           payment_transaction_history.TH_PAYMENT_MODE%type;
      pm_phone_no_cur        subscriber_master.pm_phone_no%type;
      pm_status_cur          subscriber_master.pm_status%type;
      pm_user2_cur          subscriber_master.pm_user2%type;
      pm_user9_cur        subscriber_master.pm_user9%type;
      pm_cust_no_cur       subscriber_master.pm_cust_no%type;
      pm_cust_1            subscriber_master.pm_cust_no%type;
      cm_i                 customer_master.cm_status%type;
     CURSOR subs_rec is select pm_cust_no, pm_phone_no, pm_status, pm_user2, pm_user9 from subscriber_master
     where pm_cust_no = cust_no and pm_status= 'S';
   BEGIN
      IF (   Source_Sys_Id IS NULL
          OR Tracking_Id IS NULL
          OR ACCOUNT_NO IS NULL
          OR prepaidActDevDetails_tab.LAST = 0)
      THEN
         RAISE Input_Parameter_Is_Null;
      END IF;
      BEGIN
         SELECT cm_cust_no
           INTO cust_no
           FROM customer_master
          WHERE cm_cust_id = ACCOUNT_NO AND cm_status IN ('A', 'P', '0');
      EXCEPTION
         WHEN NO_DATA_FOUND
         THEN
            ERROR_CODE := 'SI001';
            log_error ('SI001',
                       SQLERRM,
                       'No Customer exist with Active or Pre Actiavted');
            INSERT_WS_LOG (Source_Sys_Id,
                           'F',
                           Tracking_Id,
                           Account_No,
                           prepaidAccountDetails.Mac_Id);
            STATUS := '0';
      END;
      BEGIN
         FOR i IN prepaidActDevDetails_tab.FIRST ..
                  (prepaidActDevDetails_tab.LAST)
         LOOP
            prepaidAccountDetails := prepaidActDevDetails_tab (i);
            prepaidAccountDetails.Status_of_device := '1';
            IF (   prepaidAccountDetails.Account_id IS NULL
                OR prepaidAccountDetails.Mac_Id IS NULL
                OR prepaidAccountDetails.LOB_value IS NULL)
            THEN
               RAISE Input_Parameter_Is_Null;
            END IF;
            IF (prepaidAccountDetails.LOB_value = 'VIDEO')
            THEN
               /* Commented as channel lineup is not coming from the input request */
               /*IF(prepaidAccountDetails.Channel_Line_Up is NULL) THEN
                Error_code :='SI002';
               log_error ('SI002', SQLERRM, 'Channel line up is mandatory for Video');
               INSERT_WS_LOG(Source_Sys_Id,'F',Tracking_Id,Account_No,prepaidAccountDetails.Mac_Id);
               STATUS:=0;
                prepaidAccountDetails.Status_of_device:='0';
               END IF;*/
               SELECT EC_CHANNEL_LINEUP
                 INTO channel_lineup
                 FROM ELIGIBLE_CUSTOMER
                WHERE EC_CUSTOMER_NO = cust_no;
            END IF;
            BEGIN
               SELECT 1
                 INTO flg
                 FROM subscriber_master
                WHERE     pm_phone_no = prepaidAccountDetails.Mac_Id
                      AND pm_status IN ('P', '0', 'A', 'B');
            EXCEPTION
               WHEN NO_DATA_FOUND
               THEN
                  flg := 0;
            END;
            IF (flg = 1)
            THEN
               ERROR_CODE := 'SI003';
               log_error ('SI003',
                          SQLERRM,
                          'Customer Already Exist with given Mac Id');
               INSERT_WS_LOG (Source_Sys_Id,
                              'F',
                              Tracking_Id,
                              Account_No,
                              prepaidAccountDetails.Mac_Id);
               STATUS := 0;
               prepaidAccountDetails.Status_of_device := '0';
            END IF;
            BEGIN
               SELECT md_mac_id
                 INTO m_mac_id
                 FROM mac_details
                WHERE     md_mac_id = prepaidAccountDetails.Mac_Id
                      AND md_start_date <= SYSDATE
                      AND md_status = 'A';
            EXCEPTION
               WHEN OTHERS
               THEN
                  ERROR_CODE := 'SI004';
                  log_error ('SI004', SQLERRM, 'Invalid Mac Id');
                  INSERT_WS_LOG (Source_Sys_Id,
                                 'F',
                                 Tracking_Id,
                                 Account_No,
                                 prepaidAccountDetails.Mac_Id);
                  STATUS := 0;
                  prepaidAccountDetails.Status_of_device := '0';
            END;
             select pm_cust_no into pm_cust_1 from subscriber_master where pm_cust_no = cust_no;
            IF (STATUS = 1 AND prepaidAccountDetails.Status_of_device = '1')
            THEN
                 SELECT DECODE (prepaidAccountDetails.LOB_value,
                              'HSD', 'HSD',
                              'VIDEO', 'VDO')
                 INTO LOB_VALUE
                 FROM DUAL;
        OPEN subs_rec;
        LOOP
        FETCH subs_rec into pm_cust_no_cur, pm_phone_no_cur, pm_status_cur, pm_user2_cur, pm_user9_cur;
          IF subs_rec%FOUND THEN
             IF
              ( pm_cust_1 = pm_cust_no_cur and pm_user2_cur= LOB_VALUE and pm_user9_cur = prepaidAccountDetails.outlet and pm_status_cur = 'S')
                THEN
                    update subscriber_master set pm_phone_no = prepaidAccountDetails.Mac_Id, pm_status = 'P', pm_name = prepaidAccountDetails.Mac_Id
                    where pm_cust_no = pm_cust_no_cur and pm_user9 = prepaidAccountDetails.outlet;
                     select cm_status into cm_i from customer_master where cm_cust_no = pm_cust_no_cur;
                        IF( cm_i = '0')
                        THEN
                            update customer_master set cm_status = 'P' where cm_cust_no = pm_cust_no_cur;
                         END IF;
                         REPLICO_DEV_INFO( prepaidAccountDetails.Account_id, prepaidAccountDetails.Mac_Id,channel_lineup,
                                           prepaidAccountDetails.LOB_value, prepaidAccountDetails.outlet, prepaidAccountDetails.kit_code,
                                           prepaidAccountDetails.serial_Number, prepaidAccountDetails.shipper,prepaidAccountDetails.estimated_recived_date);
                ELSIF
                    ( pm_cust_1 = pm_cust_no_cur and pm_user2_cur= LOB_VALUE and pm_user9_cur = null and pm_status_cur = 'S')
                      THEN
                         update subscriber_master set pm_phone_no = prepaidAccountDetails.Mac_Id, pm_status = 'P', pm_name = prepaidAccountDetails.Mac_Id, pm_user9 = prepaidAccountDetails.outlet
                         where pm_cust_no = pm_cust_no_cur and pm_user9 = NULL;
                         update customer_master set cm_status = 'P' where cm_cust_no = pm_cust_no_cur;
                         REPLICO_DEV_INFO( prepaidAccountDetails.Account_id, prepaidAccountDetails.Mac_Id,channel_lineup,
                                           prepaidAccountDetails.LOB_value, prepaidAccountDetails.outlet, prepaidAccountDetails.kit_code,
                                           prepaidAccountDetails.serial_Number, prepaidAccountDetails.shipper,prepaidAccountDetails.estimated_recived_date);
                END IF;
             ELSIF subs_rec%NOTFOUND THEN
                   SELECT PM_SUBS_ACT_NO_SEQ.NEXTVAL
                   INTO subs_aact_no
                   FROM DUAL;
                   subscriber_master_rec.PM_SUBS_ACT_NO := subs_aact_no;
                   subscriber_master_Rec.pm_phone_no :=
                    prepaidAccountDetails.Mac_Id;
                   subscriber_master_Rec.pm_open_date := SYSDATE;
                   subscriber_master_rec.pm_status := 'P';
                   subscriber_master_rec.PM_CUST_LVL_YN := 'S';
                   subscriber_master_rec.PM_EQUP_CODE := LOB_VALUE;
                   subscriber_master_rec.PM_HOME_AREA := 'HOM';
                   subscriber_master_rec.PM_USG_CODE := 'USG';
                   subscriber_master_rec.PM_NO_TYPE := 'S';
                   subscriber_master_rec.PM_TCG_CODE := 'DEF';
                   subscriber_master_rec.PM_APLN_DATE := SYSDATE;
                   subscriber_master_Rec.PM_NAME := prepaidAccountDetails.Mac_Id;
                   subscriber_master_Rec.PM_STAFF_id := '16';
                   subscriber_master_rec.PM_USER2 := LOB_VALUE;
                   subscriber_master_rec.PM_USER3 := channel_lineup;
                   subscriber_master_rec.pm_cust_no := cust_no;
                   subscriber_master_rec.PM_USER8 := 'Y';
                   INSERT INTO subscriber_master
                   VALUES subscriber_master_rec;
                   REPLICO_DEV_INFO( prepaidAccountDetails.Account_id, prepaidAccountDetails.Mac_Id,channel_lineup,
                                     prepaidAccountDetails.LOB_value, prepaidAccountDetails.outlet, prepaidAccountDetails.kit_code,
                                     prepaidAccountDetails.serial_Number, prepaidAccountDetails.shipper,prepaidAccountDetails.estimated_recived_date);
         END IF;
         END LOOP;
         CLOSE subs_rec;
              SELECT TH_PLAN_CODE,TH_PAYMENT_MODE
               INTO m_plan_code1,m_payment_mode1
               FROM PAYMENT_TRANSACTION_HISTORY
               WHERE TH_CUSTOMER_NO = cust_no
               AND TH_LOB = LOB_VALUE
               AND TH_SUBSCRIBER_NO IS NULL;
               IF(LOB_VALUE = 'HSD') THEN
                IF(m_plan_code1 = 'SIKI') THEN
                      plan_code := 'SIKI';
                                         ELSE
                  plan_code := 'KIT';
                END IF;
               ELSE
                IF(m_plan_code1 = 'SIKT') THEN
                         plan_code := 'SIKT';
                ELSE
                      plan_code := 'TV';
                END IF;
               END IF;               
                      UPDATE PAYMENT_TRANSACTION_HISTORY SET TH_SUBSCRIBER_NO = subs_aact_no, th_writeback_status = 'Y' WHERE TH_CUSTOMER_NO = cust_no AND TH_PLAN_CODE = plan_code;
                      COMMIT;
            END IF;
         END LOOP;
      END;
   END SUBSCRIBER_INS_SS;
END SUBS_INS_API_SS;
--- type object
create or replace
TYPE   prepaid_act_dvc_details_obj--prepaidAccountDeviceDetailsObj
AS     OBJECT ( Account_id VARCHAR2 ( 25 )
       , Mac_Id VARCHAR2 ( 25 )
       , Channel_Line_Up VARCHAR2 ( 25 )
       , LOB_value VARCHAR2 ( 25 )
       , Status_of_device VARCHAR2 ( 25 )
        , outlet VARCHAR2(25)
        , kit_code VARCHAR2(25)
        , serial_Number VARCHAR2(25)
        , shipper VARCHAR2(25)
        , estimated_recived_date date )
type---
create or replace
TYPE prepaidActDeviceDetails_tabobj as table of prepaid_act_dvc_details_obj
---- i need to run this package via separate procedure. but i don't know how to pass the variable. because the passing argument contain object tab variable. please help me.. give me suggestion or procedure to run this pkg.