      *****************************************************
      * NEW TECHNOLOGY VARIABLES TO DETERMINE ELIGIBILITY *
      * FOR ADD-ON PAYMENTS DURING FISCAL YEAR (FY) 2019  *
      * REVISED 08/14/2018                                *
      *****************************************************
       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-DEFITELIO
                   VALUE 'XW03392' 'XW04392'.
             88  PROC-GIAPREZA
                   VALUE 'XW033H4' 'XW043H4'.
             88  PROC-ISLET
                   VALUE '3E030U1' '3E033U1' '3E0J3U1' '3E0J7U1'
                         '3E0J8U1'.
             88  PROC-KYMRIAH
                   VALUE 'XW033C3' 'XW043C3'.
             88  PROC-PLAZO
                   VALUE 'XW033G4' 'XW043G4'.
             88  PROC-REMEDE1
                   VALUE '0JH60DZ'.
             88  PROC-REMEDE2
                   VALUE '05H33MZ'.
             88  PROC-REMEDE3
                   VALUE '05H03MZ' '05H43MZ'.
             88  PROC-SENTINEL
                   VALUE 'X2A5312'.
             88  PROC-STELARA
                   VALUE 'XW033F3'.
             88  PROC-VYXEOS
                   VALUE 'XW033B3' 'XW043B3'.
             88  PROC-ZINPLAVA
                   VALUE 'XW033A3' 'XW043A3'.

          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-DEFITELIO-FLAG     PIC X(01).
             10  PROC-GIAPREZA-FLAG      PIC X(01).
             10  PROC-ISLET-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-STELARA-FLAG       PIC X(01).
             10  PROC-VYXEOS-FLAG        PIC X(01).
             10  PROC-ZINPLAVA-FLAG      PIC X(01).
             10  DIAG-ISLET-FLAG         PIC X(01).
             10  NDC-VABOMERE-FLAG       PIC X(01).
