      *****************************************************
      * NEW TECHNOLOGY VARIABLES TO DETERMINE ELIGIBILITY *
      * FOR ADD-ON PAYMENTS DURING FISCAL YEAR (FY) 2020  *
      * REVISED 08/20/2019                                *
      *****************************************************
       01  WK-NEW-TECH-VARIABLES.
          05  WK-PROC-NEW-TECH       PIC X(07).
             88  PROC-ANDEXXA
                   VALUE 'XW03372' 'XW04372'.
             88  PROC-AQUABEAM
                   VALUE 'XV508A4'.
             88  PROC-AZEDRA
                   VALUE 'XW033S5' 'XW043S5'.
             88  PROC-BALVERSA
                   VALUE 'XW0DXL5'.
             88  PROC-CABLIVI
                   VALUE 'XW013W5' 'XW033W5' 'XW043W5'.
             88  PROC-ELZONRIS
                   VALUE 'XW033Q5' 'XW043Q5'.
             88  PROC-ERLEADA
                   VALUE 'XW0DXJ5'.
             88  PROC-GIAPREZA
                   VALUE 'XW033H4' 'XW043H4'.
             88  PROC-ISLET
                   VALUE '3E030U1' '3E033U1' '3E0J3U1' '3E0J7U1'
                         '3E0J8U1'.
             88  PROC-JAKAFI
                   VALUE 'XW0DXT5'.
             88  PROC-KYMRIAH
                   VALUE 'XW033C3' 'XW043C3'.
             88  PROC-PLAZO
                   VALUE 'XW033G4' 'XW043G4'.
             88  PROC-REMEDE1
                   VALUE '0JH60DZ'.
             88  PROC-REMEDE2
                   VALUE '05H03MZ'.
             88  PROC-REMEDE3
                   VALUE '05H33MZ' '05H43MZ'.
             88  PROC-SENTINEL
                   VALUE 'X2A5312'.
             88  PROC-SPRAVATO
                   VALUE '3E097GC'.
             88  PROC-T2
                   VALUE 'XXE5XM5'.
             88  PROC-VABOMERE
                   VALUE 'XW033N5' 'XW043N5'.
             88  PROC-VYXEOS
                   VALUE 'XW033B3' 'XW043B3'.
             88  PROC-XOSPATA
                   VALUE 'XW0DXV5'.

          05  WK-DIAG-NEW-TECH       PIC X(07).
             88  DIAG-ISLET
                   VALUE 'Z006   '.

          05  WK-NDC-NEW-TECH        PIC X(11).
             88  NDC-VABOMERE
                   VALUE '65293000901' '70842012001'.

          05  WK-NEW-TECH-FLAGS.
             10  PROC-ANDEXXA-FLAG       PIC X(01).
             10  PROC-AQUABEAM-FLAG      PIC X(01).
             10  PROC-AZEDRA-FLAG        PIC X(01).
             10  PROC-BALVERSA-FLAG      PIC X(01).
             10  PROC-CABLIVI-FLAG       PIC X(01).
             10  PROC-ELZONRIS-FLAG      PIC X(01).
             10  PROC-ERLEADA-FLAG       PIC X(01).
             10  PROC-GIAPREZA-FLAG      PIC X(01).
             10  PROC-ISLET-FLAG         PIC X(01).
             10  PROC-JAKAFI-FLAG        PIC X(01).
             10  PROC-KYMRIAH-FLAG       PIC X(01).
             10  PROC-PLAZO-FLAG         PIC X(01).
             10  PROC-REMEDE1-FLAG       PIC X(01).
             10  PROC-REMEDE2-FLAG       PIC X(01).
             10  PROC-REMEDE3-FLAG       PIC X(01).
             10  PROC-SENTINEL-FLAG      PIC X(01).
             10  PROC-SPRAVATO-FLAG      PIC X(01).
             10  PROC-T2-FLAG            PIC X(01).
             10  PROC-VABOMERE-FLAG      PIC X(01).
             10  PROC-VYXEOS-FLAG        PIC X(01).
             10  PROC-XOSPATA-FLAG       PIC X(01).
             10  DIAG-ISLET-FLAG         PIC X(01).
             10  NDC-VABOMERE-FLAG       PIC X(01).
