Routine: BGPM5ANY

BGPM5ANY ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 17, 2011;

 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106

START ;

 K:'$G(ATXPGMC) ^TMP("ATX",$J)

 S ATXPGMC=$G(ATXPGMC)+1

 F ATXI=1:1 S X=$P($T(TMP+ATXI),";;",2,99) Q:X=""  S X="^TMP(""ATX"",$J,"_X,ATXI=ATXI+1,Y=$P($T(TMP+ATXI),";;",2,99) S @X=Y

TMP ;;TAXONOMY (WITH BULLETIN)

 ;;21,"232.4 ")

 ;;857

 ;;21,"232.5 ")

 ;;858

 ;;21,"232.6 ")

 ;;859

 ;;21,"232.7 ")

 ;;860

 ;;21,"232.8 ")

 ;;861

 ;;21,"232.9 ")

 ;;862

 ;;21,"233 ")

 ;;863

 ;;21,"233.0 ")

 ;;864

 ;;21,"233.1 ")

 ;;865

 ;;21,"233.2 ")

 ;;866

 ;;21,"233.3 ")

 ;;867

 ;;21,"233.30 ")

 ;;868

 ;;21,"233.31 ")

 ;;869

 ;;21,"233.32 ")

 ;;870

 ;;21,"233.39 ")

 ;;871

 ;;21,"233.4 ")

 ;;872

 ;;21,"233.5 ")

 ;;873

 ;;21,"233.6 ")

 ;;874

 ;;21,"233.7 ")

 ;;875

 ;;21,"233.9 ")

 ;;876

 ;;21,"234 ")

 ;;877

 ;;21,"234.0 ")

 ;;878

 ;;21,"234.8 ")

 ;;879

 ;;21,"234.9 ")

 ;;880

 ;;21,"235 ")

 ;;881

 ;;21,"235.0 ")

 ;;882

 ;;21,"235.1 ")

 ;;883

 ;;21,"235.2 ")

 ;;884

 ;;21,"235.3 ")

 ;;885

 ;;21,"235.4 ")

 ;;886

 ;;21,"235.5 ")

 ;;887

 ;;21,"235.6 ")

 ;;888

 ;;21,"235.7 ")

 ;;889

 ;;21,"235.8 ")

 ;;890

 ;;21,"235.9 ")

 ;;891

 ;;21,"236 ")

 ;;892

 ;;21,"236.0 ")

 ;;893

 ;;21,"236.1 ")

 ;;894

 ;;21,"236.2 ")

 ;;895

 ;;21,"236.3 ")

 ;;896

 ;;21,"236.4 ")

 ;;897

 ;;21,"236.5 ")

 ;;898

 ;;21,"236.6 ")

 ;;899

 ;;21,"236.7 ")

 ;;900

 ;;21,"236.9 ")

 ;;901

 ;;21,"236.90 ")

 ;;902

 ;;21,"236.91 ")

 ;;903

 ;;21,"236.99 ")

 ;;904

 ;;21,"237 ")

 ;;905

 ;;21,"237.0 ")

 ;;906

 ;;21,"237.1 ")

 ;;907

 ;;21,"237.2 ")

 ;;908

 ;;21,"237.3 ")

 ;;909

 ;;21,"237.4 ")

 ;;910

 ;;21,"237.5 ")

 ;;911

 ;;21,"237.6 ")

 ;;912

 ;;21,"237.7 ")

 ;;913

 ;;21,"237.70 ")

 ;;914

 ;;21,"237.71 ")

 ;;915

 ;;21,"237.72 ")

 ;;916

 ;;21,"237.9 ")

 ;;917

 ;;21,"238 ")

 ;;918

 ;;21,"238.0 ")

 ;;919

 ;;21,"238.1 ")

 ;;920

 ;;21,"238.2 ")

 ;;921

 ;;21,"238.3 ")

 ;;922

 ;;21,"238.4 ")

 ;;923

 ;;21,"238.5 ")

 ;;924

 ;;21,"238.6 ")

 ;;925

 ;;21,"238.7 ")

 ;;926

 ;;21,"238.71 ")

 ;;927

 ;;21,"238.72 ")

 ;;928

 ;;21,"238.73 ")

 ;;929

 ;;21,"238.74 ")

 ;;930

 ;;21,"238.75 ")

 ;;931

 ;;21,"238.76 ")

 ;;932

 ;;21,"238.77 ")

 ;;933

 ;;21,"238.79 ")

 ;;934

 ;;21,"238.8 ")

 ;;935

 ;;21,"238.9 ")

 ;;936

 ;;21,"239 ")

 ;;937

 ;;21,"239.0 ")

 ;;938

 ;;21,"239.1 ")

 ;;939

 ;;21,"239.2 ")

 ;;940

 ;;21,"239.3 ")

 ;;941

 ;;21,"239.4 ")

 ;;942

 ;;21,"239.5 ")

 ;;943

 ;;21,"239.6 ")

 ;;944

 ;;21,"239.7 ")

 ;;945

 ;;21,"239.8 ")

 ;;946

 ;;21,"239.9 ")

 ;;947

 ;;21,"V10 ")

 ;;948

 ;;21,"V10.0 ")

 ;;949

 ;;21,"V10.00 ")

 ;;950

 ;;21,"V10.01 ")

 ;;951

 ;;21,"V10.02 ")

 ;;952

 ;;21,"V10.03 ")

 ;;953

 ;;21,"V10.04 ")

 ;;954

 ;;21,"V10.05 ")

 ;;955

 ;;21,"V10.06 ")

 ;;956

 ;;21,"V10.07 ")

 ;;957

 ;;21,"V10.09 ")

 ;;958

 ;;21,"V10.1 ")

 ;;959

 ;;21,"V10.11 ")

 ;;960

 ;;21,"V10.12 ")

 ;;961

 ;;21,"V10.2 ")

 ;;962

 ;;21,"V10.20 ")

 ;;963

 ;;21,"V10.21 ")

 ;;964

 ;;21,"V10.22 ")

 ;;965

 ;;21,"V10.29 ")

 ;;966

 ;;21,"V10.3 ")

 ;;967

 ;;21,"V10.4 ")

 ;;968

 ;;21,"V10.40 ")

 ;;969

 ;;21,"V10.41 ")

 ;;970

 ;;21,"V10.42 ")

 ;;971

 ;;21,"V10.43 ")

 ;;972

 ;;21,"V10.44 ")

 ;;973

 ;;21,"V10.45 ")

 ;;974

 ;;21,"V10.46 ")

 ;;975

 ;;21,"V10.47 ")

 ;;976

 ;;21,"V10.48 ")

 ;;977

 ;;21,"V10.49 ")

 ;;978

 ;;21,"V10.5 ")

 ;;979

 ;;21,"V10.50 ")

 ;;980

 ;;21,"V10.51 ")

 ;;981

 ;;21,"V10.52 ")

 ;;982

 ;;21,"V10.53 ")

 ;;983

 ;;21,"V10.59 ")

 ;;984

 ;;21,"V10.6 ")

 ;;985

 ;;21,"V10.60 ")

 ;;986

 ;;21,"V10.61 ")

 ;;987

 ;;21,"V10.62 ")

 ;;988

 ;;21,"V10.63 ")

 ;;989

 ;;21,"V10.69 ")

 ;;990

 ;;21,"V10.7 ")

 ;;991

 ;;21,"V10.71 ")

 ;;992

 ;;21,"V10.72 ")

 ;;993

 ;;21,"V10.79 ")

 ;;994

 ;;21,"V10.8 ")

 ;;995

 ;;21,"V10.81 ")

 ;;996

 ;;21,"V10.82 ")

 ;;997

 ;;21,"V10.83 ")

 ;;998

 ;;21,"V10.84 ")

 ;;999

 ;;21,"V10.85 ")

 ;;1000

 ;;21,"V10.86 ")

 ;;1001

 ;;21,"V10.87 ")

 ;;1002

 ;;21,"V10.88 ")

 ;;1003

 ;;21,"V10.89 ")

 ;;1004

 ;;21,"V10.9 ")

 ;;1005

 ;;9002226,992,.01)

 ;;BGPMU CANCER DX

 ;;9002226,992,.02)

 ;;Cancer Diagnosis codes

 ;;9002226,992,.04)

;;@

 ;;9002226,992,.06)

;;@

 ;;9002226,992,.08)

;;@

 ;;9002226,992,.09)

;;@

 ;;9002226,992,.11)

;;@

 ;;9002226,992,.12)

;;@

 ;;9002226,992,.13)

;;@

 ;;9002226,992,.14)

;;@

 ;;9002226,992,.15)

 ;;80

 ;;9002226,992,.16)

;;@

 ;;9002226,992,.17)

;;@

 ;;9002226,992,3101)

;;@

 ;;9002226.02101,"992,140.0 ",.01)

 ;;140.0

 ;;9002226.02101,"992,140.0 ",.02)

 ;;140.0

 ;;9002226.02101,"992,140.1 ",.01)

 ;;140.1

 ;;9002226.02101,"992,140.1 ",.02)

 ;;140.1

 ;;9002226.02101,"992,140.3 ",.01)

 ;;140.3

 ;;9002226.02101,"992,140.3 ",.02)

 ;;140.3

 ;;9002226.02101,"992,140.4 ",.01)

 ;;140.4

 ;;9002226.02101,"992,140.4 ",.02)

 ;;140.4

 ;;9002226.02101,"992,140.5 ",.01)

 ;;140.5

 ;;9002226.02101,"992,140.5 ",.02)

 ;;140.5

 ;;9002226.02101,"992,140.6 ",.01)

 ;;140.6

 ;;9002226.02101,"992,140.6 ",.02)

 ;;140.6

 ;;9002226.02101,"992,140.8 ",.01)

 ;;140.8

 ;;9002226.02101,"992,140.8 ",.02)

 ;;140.8

 ;;9002226.02101,"992,140.9 ",.01)

 ;;140.9

 ;;9002226.02101,"992,140.9 ",.02)

 ;;140.9

 ;;9002226.02101,"992,141 ",.01)

 ;;141

 ;;9002226.02101,"992,141 ",.02)

 ;;141

 ;;9002226.02101,"992,141.0 ",.01)

 ;;141.0

 ;;9002226.02101,"992,141.0 ",.02)

 ;;141.0

 ;;9002226.02101,"992,141.1 ",.01)

 ;;141.1

 ;;9002226.02101,"992,141.1 ",.02)

 ;;141.1

 ;;9002226.02101,"992,141.2 ",.01)

 ;;141.2

 ;;9002226.02101,"992,141.2 ",.02)

 ;;141.2

 ;;9002226.02101,"992,141.3 ",.01)

 ;;141.3

 ;;9002226.02101,"992,141.3 ",.02)

 ;;141.3

 ;;9002226.02101,"992,141.4 ",.01)

 ;;141.4

 ;;9002226.02101,"992,141.4 ",.02)

 ;;141.4

 ;;9002226.02101,"992,141.5 ",.01)

 ;;141.5

 ;;9002226.02101,"992,141.5 ",.02)

 ;;141.5

 ;;9002226.02101,"992,141.6 ",.01)

 ;;141.6

 ;;9002226.02101,"992,141.6 ",.02)

 ;;141.6

 ;;9002226.02101,"992,141.8 ",.01)

 ;;141.8

 ;;9002226.02101,"992,141.8 ",.02)

 ;;141.8

 ;;9002226.02101,"992,141.9 ",.01)

 ;;141.9

 ;;9002226.02101,"992,141.9 ",.02)

 ;;141.9

 ;;9002226.02101,"992,142 ",.01)

 ;;142

 ;;9002226.02101,"992,142 ",.02)

 ;;142

 ;;9002226.02101,"992,142.0 ",.01)

 ;;142.0

 ;;9002226.02101,"992,142.0 ",.02)

 ;;142.0

 ;;9002226.02101,"992,142.1 ",.01)

 ;;142.1

 ;;9002226.02101,"992,142.1 ",.02)

 ;;142.1

 ;;9002226.02101,"992,142.2 ",.01)

 ;;142.2

 ;;9002226.02101,"992,142.2 ",.02)

 ;;142.2

 ;;9002226.02101,"992,142.8 ",.01)

 ;;142.8

 ;;9002226.02101,"992,142.8 ",.02)

 ;;142.8

 ;;9002226.02101,"992,142.9 ",.01)

 ;;142.9

 ;;9002226.02101,"992,142.9 ",.02)

 ;;142.9

 ;;9002226.02101,"992,143 ",.01)

 ;;143

 ;;9002226.02101,"992,143 ",.02)

 ;;143

 ;;9002226.02101,"992,143.0 ",.01)

 ;;143.0

 ;;9002226.02101,"992,143.0 ",.02)

 ;;143.0

 ;;9002226.02101,"992,143.1 ",.01)

 ;;143.1

 ;;9002226.02101,"992,143.1 ",.02)

 ;;143.1

 ;;9002226.02101,"992,143.8 ",.01)

 ;;143.8

 ;;9002226.02101,"992,143.8 ",.02)

 ;;143.8

 ;;9002226.02101,"992,143.9 ",.01)

 ;;143.9

 ;;9002226.02101,"992,143.9 ",.02)

 ;;143.9

 ;;9002226.02101,"992,144 ",.01)

 ;;144

 ;;9002226.02101,"992,144 ",.02)

 ;;144

 ;;9002226.02101,"992,144.0 ",.01)

 ;;144.0

 ;;9002226.02101,"992,144.0 ",.02)

 ;;144.0

 ;;9002226.02101,"992,144.1 ",.01)

 ;;144.1

 ;;9002226.02101,"992,144.1 ",.02)

 ;;144.1

 ;;9002226.02101,"992,144.8 ",.01)

 ;;144.8

 ;;9002226.02101,"992,144.8 ",.02)

 ;;144.8

 ;;9002226.02101,"992,144.9 ",.01)

 ;;144.9

 ;;9002226.02101,"992,144.9 ",.02)

 ;;144.9

 ;;9002226.02101,"992,145 ",.01)

 ;;145

 ;;9002226.02101,"992,145 ",.02)

 ;;145

 ;;9002226.02101,"992,145.0 ",.01)

 ;;145.0

 ;;9002226.02101,"992,145.0 ",.02)

 ;;145.0

 ;;9002226.02101,"992,145.1 ",.01)

 ;;145.1

 ;;9002226.02101,"992,145.1 ",.02)

 ;;145.1

 ;;9002226.02101,"992,145.2 ",.01)

 ;;145.2

 ;;9002226.02101,"992,145.2 ",.02)

 ;;145.2

 ;;9002226.02101,"992,145.3 ",.01)

 ;;145.3

 ;;9002226.02101,"992,145.3 ",.02)

 ;;145.3

 ;;9002226.02101,"992,145.4 ",.01)

 ;;145.4

 ;;9002226.02101,"992,145.4 ",.02)

 ;;145.4

 ;;9002226.02101,"992,145.5 ",.01)

 ;;145.5

 ;;9002226.02101,"992,145.5 ",.02)

 ;;145.5

 ;;9002226.02101,"992,145.6 ",.01)

 ;;145.6

 ;;9002226.02101,"992,145.6 ",.02)

 ;;145.6

 ;;9002226.02101,"992,145.8 ",.01)

 ;;145.8

 ;;9002226.02101,"992,145.8 ",.02)

 ;;145.8

 ;;9002226.02101,"992,145.9 ",.01)

 ;;145.9

 ;;9002226.02101,"992,145.9 ",.02)

 ;;145.9

 ;;9002226.02101,"992,146 ",.01)

 ;;146

 ;;9002226.02101,"992,146 ",.02)

 ;;146

 ;;9002226.02101,"992,146.0 ",.01)

 ;;146.0

 ;;9002226.02101,"992,146.0 ",.02)

 ;;146.0

 ;;9002226.02101,"992,146.1 ",.01)

 ;;146.1

 ;;9002226.02101,"992,146.1 ",.02)

 ;;146.1

 ;;9002226.02101,"992,146.2 ",.01)

 ;;146.2

 ;;9002226.02101,"992,146.2 ",.02)

 ;;146.2

 ;;9002226.02101,"992,146.3 ",.01)

 ;;146.3

 ;;9002226.02101,"992,146.3 ",.02)

 ;;146.3

 ;;9002226.02101,"992,146.4 ",.01)

 ;;146.4

 ;;9002226.02101,"992,146.4 ",.02)

 ;;146.4

 ;;9002226.02101,"992,146.5 ",.01)

 ;;146.5

 ;;9002226.02101,"992,146.5 ",.02)

 ;;146.5

 ;;9002226.02101,"992,146.6 ",.01)

 ;;146.6

 ;;9002226.02101,"992,146.6 ",.02)

 ;;146.6

 ;;9002226.02101,"992,146.7 ",.01)

 ;;146.7

 ;;9002226.02101,"992,146.7 ",.02)

 ;;146.7

 ;;9002226.02101,"992,146.8 ",.01)

 ;;146.8

 ;;9002226.02101,"992,146.8 ",.02)

 ;;146.8

 ;;9002226.02101,"992,146.9 ",.01)

 ;;146.9

 ;;9002226.02101,"992,146.9 ",.02)

 ;;146.9

 ;;9002226.02101,"992,147 ",.01)

 ;;147

 ;;9002226.02101,"992,147 ",.02)

 ;;147

 ;;9002226.02101,"992,147.0 ",.01)

 ;;147.0

 ;;9002226.02101,"992,147.0 ",.02)

 ;;147.0

 ;;9002226.02101,"992,147.1 ",.01)

 ;;147.1

 ;;9002226.02101,"992,147.1 ",.02)

 ;;147.1

 ;;9002226.02101,"992,147.2 ",.01)

 ;;147.2

 ;;9002226.02101,"992,147.2 ",.02)

 ;;147.2

 ;;9002226.02101,"992,147.3 ",.01)

 ;;147.3

 ;;9002226.02101,"992,147.3 ",.02)

 ;;147.3

 ;;9002226.02101,"992,147.8 ",.01)

 ;;147.8

 ;;9002226.02101,"992,147.8 ",.02)

 ;;147.8

 ;;9002226.02101,"992,147.9 ",.01)

 ;;147.9

 ;;9002226.02101,"992,147.9 ",.02)

 ;;147.9

 ;;9002226.02101,"992,148 ",.01)

 ;;148

 ;;9002226.02101,"992,148 ",.02)

 ;;148

 ;;9002226.02101,"992,148.0 ",.01)

 ;;148.0

 ;;9002226.02101,"992,148.0 ",.02)

 ;;148.0

 ;;9002226.02101,"992,148.1 ",.01)

 ;;148.1

 ;;9002226.02101,"992,148.1 ",.02)

 ;;148.1

 ;;9002226.02101,"992,148.2 ",.01)

 ;;148.2

 ;;9002226.02101,"992,148.2 ",.02)

 ;;148.2

 ;;9002226.02101,"992,148.3 ",.01)

 ;;148.3

 ;;9002226.02101,"992,148.3 ",.02)

 ;;148.3

 ;;9002226.02101,"992,148.8 ",.01)

 ;;148.8

 ;;9002226.02101,"992,148.8 ",.02)

 ;;148.8

 ;;9002226.02101,"992,148.9 ",.01)

 ;;148.9

 ;;9002226.02101,"992,148.9 ",.02)

 ;;148.9

 ;;9002226.02101,"992,149 ",.01)

 ;;149

 ;;9002226.02101,"992,149 ",.02)

 ;;149

 ;;9002226.02101,"992,149.0 ",.01)

 ;;149.0

 ;;9002226.02101,"992,149.0 ",.02)

 ;;149.0

 ;;9002226.02101,"992,149.1 ",.01)

 ;;149.1

 ;;9002226.02101,"992,149.1 ",.02)

 ;;149.1

 ;;9002226.02101,"992,149.8 ",.01)

 ;;149.8

 ;;9002226.02101,"992,149.8 ",.02)

 ;;149.8

 ;;9002226.02101,"992,149.9 ",.01)

 ;;149.9

 ;;9002226.02101,"992,149.9 ",.02)

 ;;149.9

 ;;9002226.02101,"992,150 ",.01)

 ;;150

 ;;9002226.02101,"992,150 ",.02)

 ;;150

 ;;9002226.02101,"992,150.0 ",.01)

 ;;150.0

 ;;9002226.02101,"992,150.0 ",.02)

 ;;150.0

 ;;9002226.02101,"992,150.1 ",.01)

 ;;150.1

 ;;9002226.02101,"992,150.1 ",.02)

 ;;150.1

 ;;9002226.02101,"992,150.2 ",.01)

 ;;150.2

 ;;9002226.02101,"992,150.2 ",.02)

 ;;150.2

 ;;9002226.02101,"992,150.3 ",.01)

 ;;150.3

 ;;9002226.02101,"992,150.3 ",.02)

 ;;150.3

BGPM5ANY  ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 17, 2011;

 +1       ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106

 +2       ;

START     ;

 +1        IF '$GET(ATXPGMC)

               KILL ^TMP("ATX",$JOB)

 +2        SET ATXPGMC=$GET(ATXPGMC)+1

 +3        FOR ATXI=1:1

               SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)

               IF X=""

                   QUIT

               SET X="^TMP(""ATX"",$J,"_X

               SET ATXI=ATXI+1

               SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)

               SET @X=Y

 +4        QUIT

 +5       ;

TMP       ;;TAXONOMY (WITH BULLETIN)

 +1       ;;21,"232.4 ")

 +2       ;;857

 +3       ;;21,"232.5 ")

 +4       ;;858

 +5       ;;21,"232.6 ")

 +6       ;;859

 +7       ;;21,"232.7 ")

 +8       ;;860

 +9       ;;21,"232.8 ")

 +10      ;;861

 +11      ;;21,"232.9 ")

 +12      ;;862

 +13      ;;21,"233 ")

 +14      ;;863

 +15      ;;21,"233.0 ")

 +16      ;;864

 +17      ;;21,"233.1 ")

 +18      ;;865

 +19      ;;21,"233.2 ")

 +20      ;;866

 +21      ;;21,"233.3 ")

 +22      ;;867

 +23      ;;21,"233.30 ")

 +24      ;;868

 +25      ;;21,"233.31 ")

 +26      ;;869

 +27      ;;21,"233.32 ")

 +28      ;;870

 +29      ;;21,"233.39 ")

 +30      ;;871

 +31      ;;21,"233.4 ")

 +32      ;;872

 +33      ;;21,"233.5 ")

 +34      ;;873

 +35      ;;21,"233.6 ")

 +36      ;;874

 +37      ;;21,"233.7 ")

 +38      ;;875

 +39      ;;21,"233.9 ")

 +40      ;;876

 +41      ;;21,"234 ")

 +42      ;;877

 +43      ;;21,"234.0 ")

 +44      ;;878

 +45      ;;21,"234.8 ")

 +46      ;;879

 +47      ;;21,"234.9 ")

 +48      ;;880

 +49      ;;21,"235 ")

 +50      ;;881

 +51      ;;21,"235.0 ")

 +52      ;;882

 +53      ;;21,"235.1 ")

 +54      ;;883

 +55      ;;21,"235.2 ")

 +56      ;;884

 +57      ;;21,"235.3 ")

 +58      ;;885

 +59      ;;21,"235.4 ")

 +60      ;;886

 +61      ;;21,"235.5 ")

 +62      ;;887

 +63      ;;21,"235.6 ")

 +64      ;;888

 +65      ;;21,"235.7 ")

 +66      ;;889

 +67      ;;21,"235.8 ")

 +68      ;;890

 +69      ;;21,"235.9 ")

 +70      ;;891

 +71      ;;21,"236 ")

 +72      ;;892

 +73      ;;21,"236.0 ")

 +74      ;;893

 +75      ;;21,"236.1 ")

 +76      ;;894

 +77      ;;21,"236.2 ")

 +78      ;;895

 +79      ;;21,"236.3 ")

 +80      ;;896

 +81      ;;21,"236.4 ")

 +82      ;;897

 +83      ;;21,"236.5 ")

 +84      ;;898

 +85      ;;21,"236.6 ")

 +86      ;;899

 +87      ;;21,"236.7 ")

 +88      ;;900

 +89      ;;21,"236.9 ")

 +90      ;;901

 +91      ;;21,"236.90 ")

 +92      ;;902

 +93      ;;21,"236.91 ")

 +94      ;;903

 +95      ;;21,"236.99 ")

 +96      ;;904

 +97      ;;21,"237 ")

 +98      ;;905

 +99      ;;21,"237.0 ")

 +100     ;;906

 +101     ;;21,"237.1 ")

 +102     ;;907

 +103     ;;21,"237.2 ")

 +104     ;;908

 +105     ;;21,"237.3 ")

 +106     ;;909

 +107     ;;21,"237.4 ")

 +108     ;;910

 +109     ;;21,"237.5 ")

 +110     ;;911

 +111     ;;21,"237.6 ")

 +112     ;;912

 +113     ;;21,"237.7 ")

 +114     ;;913

 +115     ;;21,"237.70 ")

 +116     ;;914

 +117     ;;21,"237.71 ")

 +118     ;;915

 +119     ;;21,"237.72 ")

 +120     ;;916

 +121     ;;21,"237.9 ")

 +122     ;;917

 +123     ;;21,"238 ")

 +124     ;;918

 +125     ;;21,"238.0 ")

 +126     ;;919

 +127     ;;21,"238.1 ")

 +128     ;;920

 +129     ;;21,"238.2 ")

 +130     ;;921

 +131     ;;21,"238.3 ")

 +132     ;;922

 +133     ;;21,"238.4 ")

 +134     ;;923

 +135     ;;21,"238.5 ")

 +136     ;;924

 +137     ;;21,"238.6 ")

 +138     ;;925

 +139     ;;21,"238.7 ")

 +140     ;;926

 +141     ;;21,"238.71 ")

 +142     ;;927

 +143     ;;21,"238.72 ")

 +144     ;;928

 +145     ;;21,"238.73 ")

 +146     ;;929

 +147     ;;21,"238.74 ")

 +148     ;;930

 +149     ;;21,"238.75 ")

 +150     ;;931

 +151     ;;21,"238.76 ")

 +152     ;;932

 +153     ;;21,"238.77 ")

 +154     ;;933

 +155     ;;21,"238.79 ")

 +156     ;;934

 +157     ;;21,"238.8 ")

 +158     ;;935

 +159     ;;21,"238.9 ")

 +160     ;;936

 +161     ;;21,"239 ")

 +162     ;;937

 +163     ;;21,"239.0 ")

 +164     ;;938

 +165     ;;21,"239.1 ")

 +166     ;;939

 +167     ;;21,"239.2 ")

 +168     ;;940

 +169     ;;21,"239.3 ")

 +170     ;;941

 +171     ;;21,"239.4 ")

 +172     ;;942

 +173     ;;21,"239.5 ")

 +174     ;;943

 +175     ;;21,"239.6 ")

 +176     ;;944

 +177     ;;21,"239.7 ")

 +178     ;;945

 +179     ;;21,"239.8 ")

 +180     ;;946

 +181     ;;21,"239.9 ")

 +182     ;;947

 +183     ;;21,"V10 ")

 +184     ;;948

 +185     ;;21,"V10.0 ")

 +186     ;;949

 +187     ;;21,"V10.00 ")

 +188     ;;950

 +189     ;;21,"V10.01 ")

 +190     ;;951

 +191     ;;21,"V10.02 ")

 +192     ;;952

 +193     ;;21,"V10.03 ")

 +194     ;;953

 +195     ;;21,"V10.04 ")

 +196     ;;954

 +197     ;;21,"V10.05 ")

 +198     ;;955

 +199     ;;21,"V10.06 ")

 +200     ;;956

 +201     ;;21,"V10.07 ")

 +202     ;;957

 +203     ;;21,"V10.09 ")

 +204     ;;958

 +205     ;;21,"V10.1 ")

 +206     ;;959

 +207     ;;21,"V10.11 ")

 +208     ;;960

 +209     ;;21,"V10.12 ")

 +210     ;;961

 +211     ;;21,"V10.2 ")

 +212     ;;962

 +213     ;;21,"V10.20 ")

 +214     ;;963

 +215     ;;21,"V10.21 ")

 +216     ;;964

 +217     ;;21,"V10.22 ")

 +218     ;;965

 +219     ;;21,"V10.29 ")

 +220     ;;966

 +221     ;;21,"V10.3 ")

 +222     ;;967

 +223     ;;21,"V10.4 ")

 +224     ;;968

 +225     ;;21,"V10.40 ")

 +226     ;;969

 +227     ;;21,"V10.41 ")

 +228     ;;970

 +229     ;;21,"V10.42 ")

 +230     ;;971

 +231     ;;21,"V10.43 ")

 +232     ;;972

 +233     ;;21,"V10.44 ")

 +234     ;;973

 +235     ;;21,"V10.45 ")

 +236     ;;974

 +237     ;;21,"V10.46 ")

 +238     ;;975

 +239     ;;21,"V10.47 ")

 +240     ;;976

 +241     ;;21,"V10.48 ")

 +242     ;;977

 +243     ;;21,"V10.49 ")

 +244     ;;978

 +245     ;;21,"V10.5 ")

 +246     ;;979

 +247     ;;21,"V10.50 ")

 +248     ;;980

 +249     ;;21,"V10.51 ")

 +250     ;;981

 +251     ;;21,"V10.52 ")

 +252     ;;982

 +253     ;;21,"V10.53 ")

 +254     ;;983

 +255     ;;21,"V10.59 ")

 +256     ;;984

 +257     ;;21,"V10.6 ")

 +258     ;;985

 +259     ;;21,"V10.60 ")

 +260     ;;986

 +261     ;;21,"V10.61 ")

 +262     ;;987

 +263     ;;21,"V10.62 ")

 +264     ;;988

 +265     ;;21,"V10.63 ")

 +266     ;;989

 +267     ;;21,"V10.69 ")

 +268     ;;990

 +269     ;;21,"V10.7 ")

 +270     ;;991

 +271     ;;21,"V10.71 ")

 +272     ;;992

 +273     ;;21,"V10.72 ")

 +274     ;;993

 +275     ;;21,"V10.79 ")

 +276     ;;994

 +277     ;;21,"V10.8 ")

 +278     ;;995

 +279     ;;21,"V10.81 ")

 +280     ;;996

 +281     ;;21,"V10.82 ")

 +282     ;;997

 +283     ;;21,"V10.83 ")

 +284     ;;998

 +285     ;;21,"V10.84 ")

 +286     ;;999

 +287     ;;21,"V10.85 ")

 +288     ;;1000

 +289     ;;21,"V10.86 ")

 +290     ;;1001

 +291     ;;21,"V10.87 ")

 +292     ;;1002

 +293     ;;21,"V10.88 ")

 +294     ;;1003

 +295     ;;21,"V10.89 ")

 +296     ;;1004

 +297     ;;21,"V10.9 ")

 +298     ;;1005

 +299     ;;9002226,992,.01)

 +300     ;;BGPMU CANCER DX

 +301     ;;9002226,992,.02)

 +302     ;;Cancer Diagnosis codes

 +303     ;;9002226,992,.04)

 +304     ;;@

 +305     ;;9002226,992,.06)

 +306     ;;@

 +307     ;;9002226,992,.08)

 +308     ;;@

 +309     ;;9002226,992,.09)

 +310     ;;@

 +311     ;;9002226,992,.11)

 +312     ;;@

 +313     ;;9002226,992,.12)

 +314     ;;@

 +315     ;;9002226,992,.13)

 +316     ;;@

 +317     ;;9002226,992,.14)

 +318     ;;@

 +319     ;;9002226,992,.15)

 +320     ;;80

 +321     ;;9002226,992,.16)

 +322     ;;@

 +323     ;;9002226,992,.17)

 +324     ;;@

 +325     ;;9002226,992,3101)

 +326     ;;@

 +327     ;;9002226.02101,"992,140.0 ",.01)

 +328     ;;140.0

 +329     ;;9002226.02101,"992,140.0 ",.02)

 +330     ;;140.0

 +331     ;;9002226.02101,"992,140.1 ",.01)

 +332     ;;140.1

 +333     ;;9002226.02101,"992,140.1 ",.02)

 +334     ;;140.1

 +335     ;;9002226.02101,"992,140.3 ",.01)

 +336     ;;140.3

 +337     ;;9002226.02101,"992,140.3 ",.02)

 +338     ;;140.3

 +339     ;;9002226.02101,"992,140.4 ",.01)

 +340     ;;140.4

 +341     ;;9002226.02101,"992,140.4 ",.02)

 +342     ;;140.4

 +343     ;;9002226.02101,"992,140.5 ",.01)

 +344     ;;140.5

 +345     ;;9002226.02101,"992,140.5 ",.02)

 +346     ;;140.5

 +347     ;;9002226.02101,"992,140.6 ",.01)

 +348     ;;140.6

 +349     ;;9002226.02101,"992,140.6 ",.02)

 +350     ;;140.6

 +351     ;;9002226.02101,"992,140.8 ",.01)

 +352     ;;140.8

 +353     ;;9002226.02101,"992,140.8 ",.02)

 +354     ;;140.8

 +355     ;;9002226.02101,"992,140.9 ",.01)

 +356     ;;140.9

 +357     ;;9002226.02101,"992,140.9 ",.02)

 +358     ;;140.9

 +359     ;;9002226.02101,"992,141 ",.01)

 +360     ;;141

 +361     ;;9002226.02101,"992,141 ",.02)

 +362     ;;141

 +363     ;;9002226.02101,"992,141.0 ",.01)

 +364     ;;141.0

 +365     ;;9002226.02101,"992,141.0 ",.02)

 +366     ;;141.0

 +367     ;;9002226.02101,"992,141.1 ",.01)

 +368     ;;141.1

 +369     ;;9002226.02101,"992,141.1 ",.02)

 +370     ;;141.1

 +371     ;;9002226.02101,"992,141.2 ",.01)

 +372     ;;141.2

 +373     ;;9002226.02101,"992,141.2 ",.02)

 +374     ;;141.2

 +375     ;;9002226.02101,"992,141.3 ",.01)

 +376     ;;141.3

 +377     ;;9002226.02101,"992,141.3 ",.02)

 +378     ;;141.3

 +379     ;;9002226.02101,"992,141.4 ",.01)

 +380     ;;141.4

 +381     ;;9002226.02101,"992,141.4 ",.02)

 +382     ;;141.4

 +383     ;;9002226.02101,"992,141.5 ",.01)

 +384     ;;141.5

 +385     ;;9002226.02101,"992,141.5 ",.02)

 +386     ;;141.5

 +387     ;;9002226.02101,"992,141.6 ",.01)

 +388     ;;141.6

 +389     ;;9002226.02101,"992,141.6 ",.02)

 +390     ;;141.6

 +391     ;;9002226.02101,"992,141.8 ",.01)

 +392     ;;141.8

 +393     ;;9002226.02101,"992,141.8 ",.02)

 +394     ;;141.8

 +395     ;;9002226.02101,"992,141.9 ",.01)

 +396     ;;141.9

 +397     ;;9002226.02101,"992,141.9 ",.02)

 +398     ;;141.9

 +399     ;;9002226.02101,"992,142 ",.01)

 +400     ;;142

 +401     ;;9002226.02101,"992,142 ",.02)

 +402     ;;142

 +403     ;;9002226.02101,"992,142.0 ",.01)

 +404     ;;142.0

 +405     ;;9002226.02101,"992,142.0 ",.02)

 +406     ;;142.0

 +407     ;;9002226.02101,"992,142.1 ",.01)

 +408     ;;142.1

 +409     ;;9002226.02101,"992,142.1 ",.02)

 +410     ;;142.1

 +411     ;;9002226.02101,"992,142.2 ",.01)

 +412     ;;142.2

 +413     ;;9002226.02101,"992,142.2 ",.02)

 +414     ;;142.2

 +415     ;;9002226.02101,"992,142.8 ",.01)

 +416     ;;142.8

 +417     ;;9002226.02101,"992,142.8 ",.02)

 +418     ;;142.8

 +419     ;;9002226.02101,"992,142.9 ",.01)

 +420     ;;142.9

 +421     ;;9002226.02101,"992,142.9 ",.02)

 +422     ;;142.9

 +423     ;;9002226.02101,"992,143 ",.01)

 +424     ;;143

 +425     ;;9002226.02101,"992,143 ",.02)

 +426     ;;143

 +427     ;;9002226.02101,"992,143.0 ",.01)

 +428     ;;143.0

 +429     ;;9002226.02101,"992,143.0 ",.02)

 +430     ;;143.0

 +431     ;;9002226.02101,"992,143.1 ",.01)

 +432     ;;143.1

 +433     ;;9002226.02101,"992,143.1 ",.02)

 +434     ;;143.1

 +435     ;;9002226.02101,"992,143.8 ",.01)

 +436     ;;143.8

 +437     ;;9002226.02101,"992,143.8 ",.02)

 +438     ;;143.8

 +439     ;;9002226.02101,"992,143.9 ",.01)

 +440     ;;143.9

 +441     ;;9002226.02101,"992,143.9 ",.02)

 +442     ;;143.9

 +443     ;;9002226.02101,"992,144 ",.01)

 +444     ;;144

 +445     ;;9002226.02101,"992,144 ",.02)

 +446     ;;144

 +447     ;;9002226.02101,"992,144.0 ",.01)

 +448     ;;144.0

 +449     ;;9002226.02101,"992,144.0 ",.02)

 +450     ;;144.0

 +451     ;;9002226.02101,"992,144.1 ",.01)

 +452     ;;144.1

 +453     ;;9002226.02101,"992,144.1 ",.02)

 +454     ;;144.1

 +455     ;;9002226.02101,"992,144.8 ",.01)

 +456     ;;144.8

 +457     ;;9002226.02101,"992,144.8 ",.02)

 +458     ;;144.8

 +459     ;;9002226.02101,"992,144.9 ",.01)

 +460     ;;144.9

 +461     ;;9002226.02101,"992,144.9 ",.02)

 +462     ;;144.9

 +463     ;;9002226.02101,"992,145 ",.01)

 +464     ;;145

 +465     ;;9002226.02101,"992,145 ",.02)

 +466     ;;145

 +467     ;;9002226.02101,"992,145.0 ",.01)

 +468     ;;145.0

 +469     ;;9002226.02101,"992,145.0 ",.02)

 +470     ;;145.0

 +471     ;;9002226.02101,"992,145.1 ",.01)

 +472     ;;145.1

 +473     ;;9002226.02101,"992,145.1 ",.02)

 +474     ;;145.1

 +475     ;;9002226.02101,"992,145.2 ",.01)

 +476     ;;145.2

 +477     ;;9002226.02101,"992,145.2 ",.02)

 +478     ;;145.2

 +479     ;;9002226.02101,"992,145.3 ",.01)

 +480     ;;145.3

 +481     ;;9002226.02101,"992,145.3 ",.02)

 +482     ;;145.3

 +483     ;;9002226.02101,"992,145.4 ",.01)

 +484     ;;145.4

 +485     ;;9002226.02101,"992,145.4 ",.02)

 +486     ;;145.4

 +487     ;;9002226.02101,"992,145.5 ",.01)

 +488     ;;145.5

 +489     ;;9002226.02101,"992,145.5 ",.02)

 +490     ;;145.5

 +491     ;;9002226.02101,"992,145.6 ",.01)

 +492     ;;145.6

 +493     ;;9002226.02101,"992,145.6 ",.02)

 +494     ;;145.6

 +495     ;;9002226.02101,"992,145.8 ",.01)

 +496     ;;145.8

 +497     ;;9002226.02101,"992,145.8 ",.02)

 +498     ;;145.8

 +499     ;;9002226.02101,"992,145.9 ",.01)

 +500     ;;145.9

 +501     ;;9002226.02101,"992,145.9 ",.02)

 +502     ;;145.9

 +503     ;;9002226.02101,"992,146 ",.01)

 +504     ;;146

 +505     ;;9002226.02101,"992,146 ",.02)

 +506     ;;146

 +507     ;;9002226.02101,"992,146.0 ",.01)

 +508     ;;146.0

 +509     ;;9002226.02101,"992,146.0 ",.02)

 +510     ;;146.0

 +511     ;;9002226.02101,"992,146.1 ",.01)

 +512     ;;146.1

 +513     ;;9002226.02101,"992,146.1 ",.02)

 +514     ;;146.1

 +515     ;;9002226.02101,"992,146.2 ",.01)

 +516     ;;146.2

 +517     ;;9002226.02101,"992,146.2 ",.02)

 +518     ;;146.2

 +519     ;;9002226.02101,"992,146.3 ",.01)

 +520     ;;146.3

 +521     ;;9002226.02101,"992,146.3 ",.02)

 +522     ;;146.3

 +523     ;;9002226.02101,"992,146.4 ",.01)

 +524     ;;146.4

 +525     ;;9002226.02101,"992,146.4 ",.02)

 +526     ;;146.4

 +527     ;;9002226.02101,"992,146.5 ",.01)

 +528     ;;146.5

 +529     ;;9002226.02101,"992,146.5 ",.02)

 +530     ;;146.5

 +531     ;;9002226.02101,"992,146.6 ",.01)

 +532     ;;146.6

 +533     ;;9002226.02101,"992,146.6 ",.02)

 +534     ;;146.6

 +535     ;;9002226.02101,"992,146.7 ",.01)

 +536     ;;146.7

 +537     ;;9002226.02101,"992,146.7 ",.02)

 +538     ;;146.7

 +539     ;;9002226.02101,"992,146.8 ",.01)

 +540     ;;146.8

 +541     ;;9002226.02101,"992,146.8 ",.02)

 +542     ;;146.8

 +543     ;;9002226.02101,"992,146.9 ",.01)

 +544     ;;146.9

 +545     ;;9002226.02101,"992,146.9 ",.02)

 +546     ;;146.9

 +547     ;;9002226.02101,"992,147 ",.01)

 +548     ;;147

 +549     ;;9002226.02101,"992,147 ",.02)

 +550     ;;147

 +551     ;;9002226.02101,"992,147.0 ",.01)

 +552     ;;147.0

 +553     ;;9002226.02101,"992,147.0 ",.02)

 +554     ;;147.0

 +555     ;;9002226.02101,"992,147.1 ",.01)

 +556     ;;147.1

 +557     ;;9002226.02101,"992,147.1 ",.02)

 +558     ;;147.1

 +559     ;;9002226.02101,"992,147.2 ",.01)

 +560     ;;147.2

 +561     ;;9002226.02101,"992,147.2 ",.02)

 +562     ;;147.2

 +563     ;;9002226.02101,"992,147.3 ",.01)

 +564     ;;147.3

 +565     ;;9002226.02101,"992,147.3 ",.02)

 +566     ;;147.3

 +567     ;;9002226.02101,"992,147.8 ",.01)

 +568     ;;147.8

 +569     ;;9002226.02101,"992,147.8 ",.02)

 +570     ;;147.8

 +571     ;;9002226.02101,"992,147.9 ",.01)

 +572     ;;147.9

 +573     ;;9002226.02101,"992,147.9 ",.02)

 +574     ;;147.9

 +575     ;;9002226.02101,"992,148 ",.01)

 +576     ;;148

 +577     ;;9002226.02101,"992,148 ",.02)

 +578     ;;148

 +579     ;;9002226.02101,"992,148.0 ",.01)

 +580     ;;148.0

 +581     ;;9002226.02101,"992,148.0 ",.02)

 +582     ;;148.0

 +583     ;;9002226.02101,"992,148.1 ",.01)

 +584     ;;148.1

 +585     ;;9002226.02101,"992,148.1 ",.02)

 +586     ;;148.1

 +587     ;;9002226.02101,"992,148.2 ",.01)

 +588     ;;148.2

 +589     ;;9002226.02101,"992,148.2 ",.02)

 +590     ;;148.2

 +591     ;;9002226.02101,"992,148.3 ",.01)

 +592     ;;148.3

 +593     ;;9002226.02101,"992,148.3 ",.02)

 +594     ;;148.3

 +595     ;;9002226.02101,"992,148.8 ",.01)

 +596     ;;148.8

 +597     ;;9002226.02101,"992,148.8 ",.02)

 +598     ;;148.8

 +599     ;;9002226.02101,"992,148.9 ",.01)

 +600     ;;148.9

 +601     ;;9002226.02101,"992,148.9 ",.02)

 +602     ;;148.9

 +603     ;;9002226.02101,"992,149 ",.01)

 +604     ;;149

 +605     ;;9002226.02101,"992,149 ",.02)

 +606     ;;149

 +607     ;;9002226.02101,"992,149.0 ",.01)

 +608     ;;149.0

 +609     ;;9002226.02101,"992,149.0 ",.02)

 +610     ;;149.0

 +611     ;;9002226.02101,"992,149.1 ",.01)

 +612     ;;149.1

 +613     ;;9002226.02101,"992,149.1 ",.02)

 +614     ;;149.1

 +615     ;;9002226.02101,"992,149.8 ",.01)

 +616     ;;149.8

 +617     ;;9002226.02101,"992,149.8 ",.02)

 +618     ;;149.8

 +619     ;;9002226.02101,"992,149.9 ",.01)

 +620     ;;149.9

 +621     ;;9002226.02101,"992,149.9 ",.02)

 +622     ;;149.9

 +623     ;;9002226.02101,"992,150 ",.01)

 +624     ;;150

 +625     ;;9002226.02101,"992,150 ",.02)

 +626     ;;150

 +627     ;;9002226.02101,"992,150.0 ",.01)

 +628     ;;150.0

 +629     ;;9002226.02101,"992,150.0 ",.02)

 +630     ;;150.0

 +631     ;;9002226.02101,"992,150.1 ",.01)

 +632     ;;150.1

 +633     ;;9002226.02101,"992,150.1 ",.02)

 +634     ;;150.1

 +635     ;;9002226.02101,"992,150.2 ",.01)

 +636     ;;150.2

 +637     ;;9002226.02101,"992,150.2 ",.02)

 +638     ;;150.2

 +639     ;;9002226.02101,"992,150.3 ",.01)

 +640     ;;150.3

 +641     ;;9002226.02101,"992,150.3 ",.02)

 +642     ;;150.3

BGPM5ANY.m