Routine: BGP9VXDF

BGP9VXDF ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 25, 2009 ;

 ;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009

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,"482.32 ")

 ;;957

 ;;21,"482.39 ")

 ;;958

 ;;21,"482.40 ")

 ;;959

 ;;21,"482.41 ")

 ;;960

 ;;21,"482.49 ")

 ;;961

 ;;21,"482.81 ")

 ;;962

 ;;21,"482.82 ")

 ;;963

 ;;21,"482.83 ")

 ;;964

 ;;21,"482.84 ")

 ;;965

 ;;21,"482.89 ")

 ;;966

 ;;21,"482.9 ")

 ;;967

 ;;21,"483.0 ")

 ;;968

 ;;21,"483.1 ")

 ;;969

 ;;21,"483.8 ")

 ;;970

 ;;21,"484.1 ")

 ;;971

 ;;21,"484.3 ")

 ;;972

 ;;21,"484.5 ")

 ;;973

 ;;21,"484.6 ")

 ;;974

 ;;21,"484.7 ")

 ;;975

 ;;21,"484.8 ")

 ;;976

 ;;21,"485 ")

 ;;977

 ;;21,"486 ")

 ;;978

 ;;21,"487.0 ")

 ;;979

 ;;21,"487.1 ")

 ;;980

 ;;21,"487.8 ")

 ;;981

 ;;21,"490 ")

 ;;982

 ;;21,"491.0 ")

 ;;983

 ;;21,"491.1 ")

 ;;984

 ;;21,"491.20 ")

 ;;985

 ;;21,"491.21 ")

 ;;986

 ;;21,"491.22 ")

 ;;987

 ;;21,"491.8 ")

 ;;988

 ;;21,"491.9 ")

 ;;989

 ;;21,"510.0 ")

 ;;990

 ;;21,"510.9 ")

 ;;991

 ;;21,"511.0 ")

 ;;992

 ;;21,"511.1 ")

 ;;993

 ;;21,"511.8 ")

 ;;994

 ;;21,"511.9 ")

 ;;995

 ;;21,"513.0 ")

 ;;996

 ;;21,"513.1 ")

 ;;997

 ;;21,"540.0 ")

 ;;998

 ;;21,"540.1 ")

 ;;999

 ;;21,"540.9 ")

 ;;1000

 ;;21,"541 ")

 ;;1001

 ;;21,"542 ")

 ;;1002

 ;;21,"562.01 ")

 ;;1003

 ;;21,"562.11 ")

 ;;1004

 ;;21,"562.13 ")

 ;;1005

 ;;21,"566 ")

 ;;1006

 ;;21,"567.21 ")

 ;;1007

 ;;21,"567.22 ")

 ;;1008

 ;;21,"567.23 ")

 ;;1009

 ;;21,"567.29 ")

 ;;1010

 ;;21,"567.31 ")

 ;;1011

 ;;21,"567.38 ")

 ;;1012

 ;;21,"567.39 ")

 ;;1013

 ;;21,"567.81 ")

 ;;1014

 ;;21,"567.82 ")

 ;;1015

 ;;21,"567.89 ")

 ;;1016

 ;;21,"567.9 ")

 ;;1017

 ;;21,"569.5 ")

 ;;1018

 ;;21,"569.61 ")

 ;;1019

 ;;21,"575.0 ")

 ;;1020

 ;;21,"590.00 ")

 ;;1021

 ;;21,"590.01 ")

 ;;1022

 ;;21,"590.10 ")

 ;;1023

 ;;21,"590.11 ")

 ;;1024

 ;;21,"590.2 ")

 ;;1025

 ;;21,"590.3 ")

 ;;1026

 ;;21,"590.80 ")

 ;;1027

 ;;21,"590.81 ")

 ;;1028

 ;;21,"590.9 ")

 ;;1029

 ;;21,"595.0 ")

 ;;1030

 ;;21,"599.0 ")

 ;;1031

 ;;21,"601.0 ")

 ;;1032

 ;;21,"601.1 ")

 ;;1033

 ;;21,"601.2 ")

 ;;1034

 ;;21,"601.3 ")

 ;;1035

 ;;21,"601.4 ")

 ;;1036

 ;;21,"601.8 ")

 ;;1037

 ;;21,"601.9 ")

 ;;1038

 ;;21,"608.83 ")

 ;;1039

 ;;21,"614.0 ")

 ;;1040

 ;;21,"616.0 ")

 ;;1041

 ;;21,"616.10 ")

 ;;1042

 ;;21,"616.11 ")

 ;;1043

 ;;21,"616.2 ")

 ;;1044

 ;;21,"616.3 ")

 ;;1045

 ;;21,"616.4 ")

 ;;1046

 ;;21,"639.0 ")

 ;;1047

 ;;21,"646.60 ")

 ;;1048

 ;;21,"646.61 ")

 ;;1049

 ;;21,"646.62 ")

 ;;1050

 ;;21,"646.63 ")

 ;;1051

 ;;21,"646.64 ")

 ;;1052

 ;;21,"670.00 ")

 ;;1053

 ;;21,"670.02 ")

 ;;1054

 ;;21,"670.04 ")

 ;;1055

 ;;21,"674.30 ")

 ;;1056

 ;;21,"674.32 ")

 ;;1057

 ;;21,"674.34 ")

 ;;1058

 ;;21,"680.0 ")

 ;;1059

 ;;21,"681.00 ")

 ;;1060

 ;;21,"682.0 ")

 ;;1061

 ;;21,"683 ")

 ;;1062

 ;;21,"684 ")

 ;;1063

 ;;21,"685.0 ")

 ;;1064

 ;;21,"685.1 ")

 ;;1065

 ;;21,"686.0 ")

 ;;1066

 ;;21,"711.90 ")

 ;;1067

 ;;21,"730.00 ")

 ;;1068

 ;;21,"785.52 ")

 ;;1069

 ;;21,"785.59 ")

 ;;1070

 ;;21,"790.7 ")

 ;;1071

 ;;21,"996.6 ")

 ;;1072

 ;;21,"998.51 ")

 ;;1073

 ;;21,"998.59 ")

 ;;1074

 ;;9002226,858,.01)

 ;;BGP CMS INFECTIOUS DXS

 ;;9002226,858,.02)

;;@

 ;;9002226,858,.04)

;;@

 ;;9002226,858,.06)

;;@

 ;;9002226,858,.08)

;;0

 ;;9002226,858,.09)

 ;;3090325

 ;;9002226,858,.11)

;;@

 ;;9002226,858,.12)

 ;;31

 ;;9002226,858,.13)

;;1

 ;;9002226,858,.14)

;;@

 ;;9002226,858,.15)

 ;;80

 ;;9002226,858,.16)

;;@

 ;;9002226,858,.17)

;;@

 ;;9002226,858,3101)

;;@

 ;;9002226.02101,"858,001.0 ",.01)

 ;;001.0

 ;;9002226.02101,"858,001.0 ",.02)

 ;;002.9

 ;;9002226.02101,"858,003.0 ",.01)

 ;;003.0

 ;;9002226.02101,"858,003.0 ",.02)

 ;;006.9

 ;;9002226.02101,"858,007.0 ",.01)

 ;;007.0

 ;;9002226.02101,"858,007.0 ",.02)

 ;;007.0

 ;;9002226.02101,"858,007.1 ",.01)

 ;;007.1

 ;;9002226.02101,"858,007.1 ",.02)

 ;;007.1

 ;;9002226.02101,"858,007.2 ",.01)

 ;;007.2

 ;;9002226.02101,"858,007.2 ",.02)

 ;;007.2

 ;;9002226.02101,"858,007.3 ",.01)

 ;;007.3

 ;;9002226.02101,"858,007.3 ",.02)

 ;;007.3

 ;;9002226.02101,"858,007.4 ",.01)

 ;;007.4

 ;;9002226.02101,"858,007.4 ",.02)

 ;;007.4

 ;;9002226.02101,"858,007.5 ",.01)

 ;;007.5

 ;;9002226.02101,"858,007.5 ",.02)

 ;;007.5

 ;;9002226.02101,"858,007.8 ",.01)

 ;;007.8

 ;;9002226.02101,"858,007.8 ",.02)

 ;;007.8

 ;;9002226.02101,"858,007.9 ",.01)

 ;;007.9

 ;;9002226.02101,"858,007.9 ",.02)

 ;;007.9

 ;;9002226.02101,"858,008.00 ",.01)

 ;;008.00

 ;;9002226.02101,"858,008.00 ",.02)

 ;;008.00

 ;;9002226.02101,"858,008.01 ",.01)

 ;;008.01

 ;;9002226.02101,"858,008.01 ",.02)

 ;;008.01

 ;;9002226.02101,"858,008.02 ",.01)

 ;;008.02

 ;;9002226.02101,"858,008.02 ",.02)

 ;;008.02

 ;;9002226.02101,"858,008.03 ",.01)

 ;;008.03

 ;;9002226.02101,"858,008.03 ",.02)

 ;;008.03

 ;;9002226.02101,"858,008.04 ",.01)

 ;;008.04

 ;;9002226.02101,"858,008.04 ",.02)

 ;;008.04

 ;;9002226.02101,"858,008.09 ",.01)

 ;;008.09

 ;;9002226.02101,"858,008.09 ",.02)

 ;;008.09

BGP9VXDF  ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 25, 2009 ;

 +1       ;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009

 +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,"482.32 ")

 +2       ;;957

 +3       ;;21,"482.39 ")

 +4       ;;958

 +5       ;;21,"482.40 ")

 +6       ;;959

 +7       ;;21,"482.41 ")

 +8       ;;960

 +9       ;;21,"482.49 ")

 +10      ;;961

 +11      ;;21,"482.81 ")

 +12      ;;962

 +13      ;;21,"482.82 ")

 +14      ;;963

 +15      ;;21,"482.83 ")

 +16      ;;964

 +17      ;;21,"482.84 ")

 +18      ;;965

 +19      ;;21,"482.89 ")

 +20      ;;966

 +21      ;;21,"482.9 ")

 +22      ;;967

 +23      ;;21,"483.0 ")

 +24      ;;968

 +25      ;;21,"483.1 ")

 +26      ;;969

 +27      ;;21,"483.8 ")

 +28      ;;970

 +29      ;;21,"484.1 ")

 +30      ;;971

 +31      ;;21,"484.3 ")

 +32      ;;972

 +33      ;;21,"484.5 ")

 +34      ;;973

 +35      ;;21,"484.6 ")

 +36      ;;974

 +37      ;;21,"484.7 ")

 +38      ;;975

 +39      ;;21,"484.8 ")

 +40      ;;976

 +41      ;;21,"485 ")

 +42      ;;977

 +43      ;;21,"486 ")

 +44      ;;978

 +45      ;;21,"487.0 ")

 +46      ;;979

 +47      ;;21,"487.1 ")

 +48      ;;980

 +49      ;;21,"487.8 ")

 +50      ;;981

 +51      ;;21,"490 ")

 +52      ;;982

 +53      ;;21,"491.0 ")

 +54      ;;983

 +55      ;;21,"491.1 ")

 +56      ;;984

 +57      ;;21,"491.20 ")

 +58      ;;985

 +59      ;;21,"491.21 ")

 +60      ;;986

 +61      ;;21,"491.22 ")

 +62      ;;987

 +63      ;;21,"491.8 ")

 +64      ;;988

 +65      ;;21,"491.9 ")

 +66      ;;989

 +67      ;;21,"510.0 ")

 +68      ;;990

 +69      ;;21,"510.9 ")

 +70      ;;991

 +71      ;;21,"511.0 ")

 +72      ;;992

 +73      ;;21,"511.1 ")

 +74      ;;993

 +75      ;;21,"511.8 ")

 +76      ;;994

 +77      ;;21,"511.9 ")

 +78      ;;995

 +79      ;;21,"513.0 ")

 +80      ;;996

 +81      ;;21,"513.1 ")

 +82      ;;997

 +83      ;;21,"540.0 ")

 +84      ;;998

 +85      ;;21,"540.1 ")

 +86      ;;999

 +87      ;;21,"540.9 ")

 +88      ;;1000

 +89      ;;21,"541 ")

 +90      ;;1001

 +91      ;;21,"542 ")

 +92      ;;1002

 +93      ;;21,"562.01 ")

 +94      ;;1003

 +95      ;;21,"562.11 ")

 +96      ;;1004

 +97      ;;21,"562.13 ")

 +98      ;;1005

 +99      ;;21,"566 ")

 +100     ;;1006

 +101     ;;21,"567.21 ")

 +102     ;;1007

 +103     ;;21,"567.22 ")

 +104     ;;1008

 +105     ;;21,"567.23 ")

 +106     ;;1009

 +107     ;;21,"567.29 ")

 +108     ;;1010

 +109     ;;21,"567.31 ")

 +110     ;;1011

 +111     ;;21,"567.38 ")

 +112     ;;1012

 +113     ;;21,"567.39 ")

 +114     ;;1013

 +115     ;;21,"567.81 ")

 +116     ;;1014

 +117     ;;21,"567.82 ")

 +118     ;;1015

 +119     ;;21,"567.89 ")

 +120     ;;1016

 +121     ;;21,"567.9 ")

 +122     ;;1017

 +123     ;;21,"569.5 ")

 +124     ;;1018

 +125     ;;21,"569.61 ")

 +126     ;;1019

 +127     ;;21,"575.0 ")

 +128     ;;1020

 +129     ;;21,"590.00 ")

 +130     ;;1021

 +131     ;;21,"590.01 ")

 +132     ;;1022

 +133     ;;21,"590.10 ")

 +134     ;;1023

 +135     ;;21,"590.11 ")

 +136     ;;1024

 +137     ;;21,"590.2 ")

 +138     ;;1025

 +139     ;;21,"590.3 ")

 +140     ;;1026

 +141     ;;21,"590.80 ")

 +142     ;;1027

 +143     ;;21,"590.81 ")

 +144     ;;1028

 +145     ;;21,"590.9 ")

 +146     ;;1029

 +147     ;;21,"595.0 ")

 +148     ;;1030

 +149     ;;21,"599.0 ")

 +150     ;;1031

 +151     ;;21,"601.0 ")

 +152     ;;1032

 +153     ;;21,"601.1 ")

 +154     ;;1033

 +155     ;;21,"601.2 ")

 +156     ;;1034

 +157     ;;21,"601.3 ")

 +158     ;;1035

 +159     ;;21,"601.4 ")

 +160     ;;1036

 +161     ;;21,"601.8 ")

 +162     ;;1037

 +163     ;;21,"601.9 ")

 +164     ;;1038

 +165     ;;21,"608.83 ")

 +166     ;;1039

 +167     ;;21,"614.0 ")

 +168     ;;1040

 +169     ;;21,"616.0 ")

 +170     ;;1041

 +171     ;;21,"616.10 ")

 +172     ;;1042

 +173     ;;21,"616.11 ")

 +174     ;;1043

 +175     ;;21,"616.2 ")

 +176     ;;1044

 +177     ;;21,"616.3 ")

 +178     ;;1045

 +179     ;;21,"616.4 ")

 +180     ;;1046

 +181     ;;21,"639.0 ")

 +182     ;;1047

 +183     ;;21,"646.60 ")

 +184     ;;1048

 +185     ;;21,"646.61 ")

 +186     ;;1049

 +187     ;;21,"646.62 ")

 +188     ;;1050

 +189     ;;21,"646.63 ")

 +190     ;;1051

 +191     ;;21,"646.64 ")

 +192     ;;1052

 +193     ;;21,"670.00 ")

 +194     ;;1053

 +195     ;;21,"670.02 ")

 +196     ;;1054

 +197     ;;21,"670.04 ")

 +198     ;;1055

 +199     ;;21,"674.30 ")

 +200     ;;1056

 +201     ;;21,"674.32 ")

 +202     ;;1057

 +203     ;;21,"674.34 ")

 +204     ;;1058

 +205     ;;21,"680.0 ")

 +206     ;;1059

 +207     ;;21,"681.00 ")

 +208     ;;1060

 +209     ;;21,"682.0 ")

 +210     ;;1061

 +211     ;;21,"683 ")

 +212     ;;1062

 +213     ;;21,"684 ")

 +214     ;;1063

 +215     ;;21,"685.0 ")

 +216     ;;1064

 +217     ;;21,"685.1 ")

 +218     ;;1065

 +219     ;;21,"686.0 ")

 +220     ;;1066

 +221     ;;21,"711.90 ")

 +222     ;;1067

 +223     ;;21,"730.00 ")

 +224     ;;1068

 +225     ;;21,"785.52 ")

 +226     ;;1069

 +227     ;;21,"785.59 ")

 +228     ;;1070

 +229     ;;21,"790.7 ")

 +230     ;;1071

 +231     ;;21,"996.6 ")

 +232     ;;1072

 +233     ;;21,"998.51 ")

 +234     ;;1073

 +235     ;;21,"998.59 ")

 +236     ;;1074

 +237     ;;9002226,858,.01)

 +238     ;;BGP CMS INFECTIOUS DXS

 +239     ;;9002226,858,.02)

 +240     ;;@

 +241     ;;9002226,858,.04)

 +242     ;;@

 +243     ;;9002226,858,.06)

 +244     ;;@

 +245     ;;9002226,858,.08)

 +246     ;;0

 +247     ;;9002226,858,.09)

 +248     ;;3090325

 +249     ;;9002226,858,.11)

 +250     ;;@

 +251     ;;9002226,858,.12)

 +252     ;;31

 +253     ;;9002226,858,.13)

 +254     ;;1

 +255     ;;9002226,858,.14)

 +256     ;;@

 +257     ;;9002226,858,.15)

 +258     ;;80

 +259     ;;9002226,858,.16)

 +260     ;;@

 +261     ;;9002226,858,.17)

 +262     ;;@

 +263     ;;9002226,858,3101)

 +264     ;;@

 +265     ;;9002226.02101,"858,001.0 ",.01)

 +266     ;;001.0

 +267     ;;9002226.02101,"858,001.0 ",.02)

 +268     ;;002.9

 +269     ;;9002226.02101,"858,003.0 ",.01)

 +270     ;;003.0

 +271     ;;9002226.02101,"858,003.0 ",.02)

 +272     ;;006.9

 +273     ;;9002226.02101,"858,007.0 ",.01)

 +274     ;;007.0

 +275     ;;9002226.02101,"858,007.0 ",.02)

 +276     ;;007.0

 +277     ;;9002226.02101,"858,007.1 ",.01)

 +278     ;;007.1

 +279     ;;9002226.02101,"858,007.1 ",.02)

 +280     ;;007.1

 +281     ;;9002226.02101,"858,007.2 ",.01)

 +282     ;;007.2

 +283     ;;9002226.02101,"858,007.2 ",.02)

 +284     ;;007.2

 +285     ;;9002226.02101,"858,007.3 ",.01)

 +286     ;;007.3

 +287     ;;9002226.02101,"858,007.3 ",.02)

 +288     ;;007.3

 +289     ;;9002226.02101,"858,007.4 ",.01)

 +290     ;;007.4

 +291     ;;9002226.02101,"858,007.4 ",.02)

 +292     ;;007.4

 +293     ;;9002226.02101,"858,007.5 ",.01)

 +294     ;;007.5

 +295     ;;9002226.02101,"858,007.5 ",.02)

 +296     ;;007.5

 +297     ;;9002226.02101,"858,007.8 ",.01)

 +298     ;;007.8

 +299     ;;9002226.02101,"858,007.8 ",.02)

 +300     ;;007.8

 +301     ;;9002226.02101,"858,007.9 ",.01)

 +302     ;;007.9

 +303     ;;9002226.02101,"858,007.9 ",.02)

 +304     ;;007.9

 +305     ;;9002226.02101,"858,008.00 ",.01)

 +306     ;;008.00

 +307     ;;9002226.02101,"858,008.00 ",.02)

 +308     ;;008.00

 +309     ;;9002226.02101,"858,008.01 ",.01)

 +310     ;;008.01

 +311     ;;9002226.02101,"858,008.01 ",.02)

 +312     ;;008.01

 +313     ;;9002226.02101,"858,008.02 ",.01)

 +314     ;;008.02

 +315     ;;9002226.02101,"858,008.02 ",.02)

 +316     ;;008.02

 +317     ;;9002226.02101,"858,008.03 ",.01)

 +318     ;;008.03

 +319     ;;9002226.02101,"858,008.03 ",.02)

 +320     ;;008.03

 +321     ;;9002226.02101,"858,008.04 ",.01)

 +322     ;;008.04

 +323     ;;9002226.02101,"858,008.04 ",.02)

 +324     ;;008.04

 +325     ;;9002226.02101,"858,008.09 ",.01)

 +326     ;;008.09

 +327     ;;9002226.02101,"858,008.09 ",.02)

 +328     ;;008.09

BGP9VXDF.m