BGP9VXIF.m

BGP9VXIF ; 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

 Q

 ;

TMP ;;TAXONOMY (WITH BULLETIN)

 ;;21,"81.37 ")

 ;;976

 ;;21,"81.38 ")

 ;;977

 ;;21,"81.39 ")

 ;;978

 ;;21,"81.40 ")

 ;;979

 ;;21,"81.42 ")

 ;;980

 ;;21,"81.43 ")

 ;;981

 ;;21,"81.44 ")

 ;;982

 ;;21,"81.45 ")

 ;;983

 ;;21,"81.46 ")

 ;;984

 ;;21,"81.47 ")

 ;;985

 ;;21,"81.49 ")

 ;;986

 ;;21,"81.51 ")

 ;;987

 ;;21,"81.52 ")

 ;;988

 ;;21,"81.53 ")

 ;;989

 ;;21,"81.54 ")

 ;;990

 ;;21,"81.55 ")

 ;;991

 ;;21,"81.56 ")

 ;;992

 ;;21,"81.57 ")

 ;;993

 ;;21,"81.59 ")

 ;;994

 ;;21,"81.80 ")

 ;;995

 ;;21,"81.81 ")

 ;;996

 ;;21,"81.82 ")

 ;;997

 ;;21,"81.83 ")

 ;;998

 ;;21,"81.84 ")

 ;;999

 ;;21,"81.85 ")

 ;;1000

 ;;21,"81.93 ")

 ;;1001

 ;;21,"81.94 ")

 ;;1002

 ;;21,"81.95 ")

 ;;1003

 ;;21,"81.96 ")

 ;;1004

 ;;21,"81.97 ")

 ;;1005

 ;;21,"81.98 ")

 ;;1006

 ;;21,"81.99 ")

 ;;1007

 ;;21,"82.61 ")

 ;;1008

 ;;21,"82.81 ")

 ;;1009

 ;;21,"83.32 ")

 ;;1010

 ;;21,"83.39 ")

 ;;1011

 ;;21,"83.5 ")

 ;;1012

 ;;21,"83.61 ")

 ;;1013

 ;;21,"83.62 ")

 ;;1014

 ;;21,"83.63 ")

 ;;1015

 ;;21,"83.64 ")

 ;;1016

 ;;21,"83.65 ")

 ;;1017

 ;;21,"83.71 ")

 ;;1018

 ;;21,"83.72 ")

 ;;1019

 ;;21,"83.73 ")

 ;;1020

 ;;21,"83.74 ")

 ;;1021

 ;;21,"83.75 ")

 ;;1022

 ;;21,"83.76 ")

 ;;1023

 ;;21,"83.77 ")

 ;;1024

 ;;21,"83.79 ")

 ;;1025

 ;;21,"83.81 ")

 ;;1026

 ;;21,"83.82 ")

 ;;1027

 ;;21,"83.83 ")

 ;;1028

 ;;21,"83.84 ")

 ;;1029

 ;;21,"83.85 ")

 ;;1030

 ;;21,"83.86 ")

 ;;1031

 ;;21,"83.87 ")

 ;;1032

 ;;21,"83.88 ")

 ;;1033

 ;;21,"83.89 ")

 ;;1034

 ;;21,"83.91 ")

 ;;1035

 ;;21,"83.99 ")

 ;;1036

 ;;21,"84.00 ")

 ;;1037

 ;;21,"84.03 ")

 ;;1038

 ;;21,"84.04 ")

 ;;1039

 ;;21,"84.05 ")

 ;;1040

 ;;21,"84.06 ")

 ;;1041

 ;;21,"84.07 ")

 ;;1042

 ;;21,"84.08 ")

 ;;1043

 ;;21,"84.09 ")

 ;;1044

 ;;21,"84.10 ")

 ;;1045

 ;;21,"84.12 ")

 ;;1046

 ;;21,"84.13 ")

 ;;1047

 ;;21,"84.14 ")

 ;;1048

 ;;21,"84.15 ")

 ;;1049

 ;;21,"84.16 ")

 ;;1050

 ;;21,"84.17 ")

 ;;1051

 ;;21,"84.18 ")

 ;;1052

 ;;21,"84.19 ")

 ;;1053

 ;;21,"84.22 ")

 ;;1054

 ;;21,"84.23 ")

 ;;1055

 ;;21,"84.24 ")

 ;;1056

 ;;21,"84.25 ")

 ;;1057

 ;;21,"84.26 ")

 ;;1058

 ;;21,"84.27 ")

 ;;1059

 ;;21,"84.28 ")

 ;;1060

 ;;21,"84.29 ")

 ;;1061

 ;;21,"84.3 ")

 ;;1062

 ;;21,"84.58 ")

 ;;1063

 ;;21,"85.22 ")

 ;;1064

 ;;21,"85.23 ")

 ;;1065

 ;;21,"85.31 ")

 ;;1066

 ;;21,"85.32 ")

 ;;1067

 ;;21,"85.33 ")

 ;;1068

 ;;21,"85.34 ")

 ;;1069

 ;;21,"85.35 ")

 ;;1070

 ;;21,"85.36 ")

 ;;1071

 ;;21,"85.41 ")

 ;;1072

 ;;21,"85.42 ")

 ;;1073

 ;;21,"85.43 ")

 ;;1074

 ;;21,"85.44 ")

 ;;1075

 ;;21,"85.45 ")

 ;;1076

 ;;21,"85.46 ")

 ;;1077

 ;;21,"85.47 ")

 ;;1078

 ;;21,"85.48 ")

 ;;1079

 ;;21,"85.50 ")

 ;;1080

 ;;21,"85.53 ")

 ;;1081

 ;;21,"85.54 ")

 ;;1082

 ;;21,"85.6 ")

 ;;1083

 ;;21,"85.7 ")

 ;;1084

 ;;21,"85.93 ")

 ;;1085

 ;;21,"85.94 ")

 ;;1086

 ;;21,"85.95 ")

 ;;1087

 ;;21,"85.96 ")

 ;;1088

 ;;21,"86.4 ")

 ;;1089

 ;;21,"86.70 ")

 ;;1090

 ;;21,"86.71 ")

 ;;1091

 ;;21,"86.72 ")

 ;;1092

 ;;21,"86.73 ")

 ;;1093

 ;;21,"86.74 ")

 ;;1094

 ;;21,"86.75 ")

 ;;1095

 ;;9002226,862,.01)

 ;;BGP CMS MAJOR SURGERY PROCS

 ;;9002226,862,.02)

 ;;@

 ;;9002226,862,.04)

 ;;n

 ;;9002226,862,.06)

 ;;@

 ;;9002226,862,.08)

 ;;0

 ;;9002226,862,.09)

 ;;3070604

 ;;9002226,862,.11)

 ;;@

 ;;9002226,862,.12)

 ;;255

 ;;9002226,862,.13)

 ;;1

 ;;9002226,862,.14)

 ;;@

 ;;9002226,862,.15)

 ;;80.1

 ;;9002226,862,.16)

 ;;@

 ;;9002226,862,.17)

 ;;@

 ;;9002226,862,3101)

 ;;@

 ;;9002226.02101,"862,00.70 ",.01)

 ;;00.70 

 ;;9002226.02101,"862,00.70 ",.02)

 ;;00.70 

 ;;9002226.02101,"862,00.71 ",.01)

 ;;00.71 

 ;;9002226.02101,"862,00.71 ",.02)

 ;;00.71 

 ;;9002226.02101,"862,00.72 ",.01)

 ;;00.72 

 ;;9002226.02101,"862,00.72 ",.02)

 ;;00.72 

 ;;9002226.02101,"862,00.73 ",.01)

 ;;00.73 

 ;;9002226.02101,"862,00.73 ",.02)

 ;;00.73 

 ;;9002226.02101,"862,00.77 ",.01)

 ;;00.77 

 ;;9002226.02101,"862,00.77 ",.02)

 ;;00.77 

 ;;9002226.02101,"862,00.80 ",.01)

 ;;00.80 

 ;;9002226.02101,"862,00.80 ",.02)

 ;;00.80 

 ;;9002226.02101,"862,00.81 ",.01)

 ;;00.81 

 ;;9002226.02101,"862,00.81 ",.02)

 ;;00.81 

 ;;9002226.02101,"862,00.82 ",.01)

 ;;00.82 

 ;;9002226.02101,"862,00.82 ",.02)

 ;;00.82 

 ;;9002226.02101,"862,00.83 ",.01)

 ;;00.83 

 ;;9002226.02101,"862,00.83 ",.02)

 ;;00.83 

 ;;9002226.02101,"862,00.84 ",.01)

 ;;00.84 

 ;;9002226.02101,"862,00.84 ",.02)

 ;;00.84 

 ;;9002226.02101,"862,00.85 ",.01)

 ;;00.85 

 ;;9002226.02101,"862,00.85 ",.02)

 ;;00.85 

 ;;9002226.02101,"862,00.86 ",.01)

 ;;00.86 

 ;;9002226.02101,"862,00.86 ",.02)

 ;;00.86 

 ;;9002226.02101,"862,00.87 ",.01)

 ;;00.87 

 ;;9002226.02101,"862,00.87 ",.02)

 ;;00.87 

 ;;9002226.02101,"862,01.14 ",.01)

 ;;01.14 

 ;;9002226.02101,"862,01.14 ",.02)

 ;;01.14 

 ;;9002226.02101,"862,01.21 ",.01)

 ;;01.21 

 ;;9002226.02101,"862,01.21 ",.02)

 ;;01.21 

 ;;9002226.02101,"862,01.23 ",.01)

 ;;01.23 

 ;;9002226.02101,"862,01.23 ",.02)

 ;;01.23 

BGP9VXIF  ; 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,"81.37 ")

 +2       ;;976

 +3       ;;21,"81.38 ")

 +4       ;;977

 +5       ;;21,"81.39 ")

 +6       ;;978

 +7       ;;21,"81.40 ")

 +8       ;;979

 +9       ;;21,"81.42 ")

 +10      ;;980

 +11      ;;21,"81.43 ")

 +12      ;;981

 +13      ;;21,"81.44 ")

 +14      ;;982

 +15      ;;21,"81.45 ")

 +16      ;;983

 +17      ;;21,"81.46 ")

 +18      ;;984

 +19      ;;21,"81.47 ")

 +20      ;;985

 +21      ;;21,"81.49 ")

 +22      ;;986

 +23      ;;21,"81.51 ")

 +24      ;;987

 +25      ;;21,"81.52 ")

 +26      ;;988

 +27      ;;21,"81.53 ")

 +28      ;;989

 +29      ;;21,"81.54 ")

 +30      ;;990

 +31      ;;21,"81.55 ")

 +32      ;;991

 +33      ;;21,"81.56 ")

 +34      ;;992

 +35      ;;21,"81.57 ")

 +36      ;;993

 +37      ;;21,"81.59 ")

 +38      ;;994

 +39      ;;21,"81.80 ")

 +40      ;;995

 +41      ;;21,"81.81 ")

 +42      ;;996

 +43      ;;21,"81.82 ")

 +44      ;;997

 +45      ;;21,"81.83 ")

 +46      ;;998

 +47      ;;21,"81.84 ")

 +48      ;;999

 +49      ;;21,"81.85 ")

 +50      ;;1000

 +51      ;;21,"81.93 ")

 +52      ;;1001

 +53      ;;21,"81.94 ")

 +54      ;;1002

 +55      ;;21,"81.95 ")

 +56      ;;1003

 +57      ;;21,"81.96 ")

 +58      ;;1004

 +59      ;;21,"81.97 ")

 +60      ;;1005

 +61      ;;21,"81.98 ")

 +62      ;;1006

 +63      ;;21,"81.99 ")

 +64      ;;1007

 +65      ;;21,"82.61 ")

 +66      ;;1008

 +67      ;;21,"82.81 ")

 +68      ;;1009

 +69      ;;21,"83.32 ")

 +70      ;;1010

 +71      ;;21,"83.39 ")

 +72      ;;1011

 +73      ;;21,"83.5 ")

 +74      ;;1012

 +75      ;;21,"83.61 ")

 +76      ;;1013

 +77      ;;21,"83.62 ")

 +78      ;;1014

 +79      ;;21,"83.63 ")

 +80      ;;1015

 +81      ;;21,"83.64 ")

 +82      ;;1016

 +83      ;;21,"83.65 ")

 +84      ;;1017

 +85      ;;21,"83.71 ")

 +86      ;;1018

 +87      ;;21,"83.72 ")

 +88      ;;1019

 +89      ;;21,"83.73 ")

 +90      ;;1020

 +91      ;;21,"83.74 ")

 +92      ;;1021

 +93      ;;21,"83.75 ")

 +94      ;;1022

 +95      ;;21,"83.76 ")

 +96      ;;1023

 +97      ;;21,"83.77 ")

 +98      ;;1024

 +99      ;;21,"83.79 ")

 +100     ;;1025

 +101     ;;21,"83.81 ")

 +102     ;;1026

 +103     ;;21,"83.82 ")

 +104     ;;1027

 +105     ;;21,"83.83 ")

 +106     ;;1028

 +107     ;;21,"83.84 ")

 +108     ;;1029

 +109     ;;21,"83.85 ")

 +110     ;;1030

 +111     ;;21,"83.86 ")

 +112     ;;1031

 +113     ;;21,"83.87 ")

 +114     ;;1032

 +115     ;;21,"83.88 ")

 +116     ;;1033

 +117     ;;21,"83.89 ")

 +118     ;;1034

 +119     ;;21,"83.91 ")

 +120     ;;1035

 +121     ;;21,"83.99 ")

 +122     ;;1036

 +123     ;;21,"84.00 ")

 +124     ;;1037

 +125     ;;21,"84.03 ")

 +126     ;;1038

 +127     ;;21,"84.04 ")

 +128     ;;1039

 +129     ;;21,"84.05 ")

 +130     ;;1040

 +131     ;;21,"84.06 ")

 +132     ;;1041

 +133     ;;21,"84.07 ")

 +134     ;;1042

 +135     ;;21,"84.08 ")

 +136     ;;1043

 +137     ;;21,"84.09 ")

 +138     ;;1044

 +139     ;;21,"84.10 ")

 +140     ;;1045

 +141     ;;21,"84.12 ")

 +142     ;;1046

 +143     ;;21,"84.13 ")

 +144     ;;1047

 +145     ;;21,"84.14 ")

 +146     ;;1048

 +147     ;;21,"84.15 ")

 +148     ;;1049

 +149     ;;21,"84.16 ")

 +150     ;;1050

 +151     ;;21,"84.17 ")

 +152     ;;1051

 +153     ;;21,"84.18 ")

 +154     ;;1052

 +155     ;;21,"84.19 ")

 +156     ;;1053

 +157     ;;21,"84.22 ")

 +158     ;;1054

 +159     ;;21,"84.23 ")

 +160     ;;1055

 +161     ;;21,"84.24 ")

 +162     ;;1056

 +163     ;;21,"84.25 ")

 +164     ;;1057

 +165     ;;21,"84.26 ")

 +166     ;;1058

 +167     ;;21,"84.27 ")

 +168     ;;1059

 +169     ;;21,"84.28 ")

 +170     ;;1060

 +171     ;;21,"84.29 ")

 +172     ;;1061

 +173     ;;21,"84.3 ")

 +174     ;;1062

 +175     ;;21,"84.58 ")

 +176     ;;1063

 +177     ;;21,"85.22 ")

 +178     ;;1064

 +179     ;;21,"85.23 ")

 +180     ;;1065

 +181     ;;21,"85.31 ")

 +182     ;;1066

 +183     ;;21,"85.32 ")

 +184     ;;1067

 +185     ;;21,"85.33 ")

 +186     ;;1068

 +187     ;;21,"85.34 ")

 +188     ;;1069

 +189     ;;21,"85.35 ")

 +190     ;;1070

 +191     ;;21,"85.36 ")

 +192     ;;1071

 +193     ;;21,"85.41 ")

 +194     ;;1072

 +195     ;;21,"85.42 ")

 +196     ;;1073

 +197     ;;21,"85.43 ")

 +198     ;;1074

 +199     ;;21,"85.44 ")

 +200     ;;1075

 +201     ;;21,"85.45 ")

 +202     ;;1076

 +203     ;;21,"85.46 ")

 +204     ;;1077

 +205     ;;21,"85.47 ")

 +206     ;;1078

 +207     ;;21,"85.48 ")

 +208     ;;1079

 +209     ;;21,"85.50 ")

 +210     ;;1080

 +211     ;;21,"85.53 ")

 +212     ;;1081

 +213     ;;21,"85.54 ")

 +214     ;;1082

 +215     ;;21,"85.6 ")

 +216     ;;1083

 +217     ;;21,"85.7 ")

 +218     ;;1084

 +219     ;;21,"85.93 ")

 +220     ;;1085

 +221     ;;21,"85.94 ")

 +222     ;;1086

 +223     ;;21,"85.95 ")

 +224     ;;1087

 +225     ;;21,"85.96 ")

 +226     ;;1088

 +227     ;;21,"86.4 ")

 +228     ;;1089

 +229     ;;21,"86.70 ")

 +230     ;;1090

 +231     ;;21,"86.71 ")

 +232     ;;1091

 +233     ;;21,"86.72 ")

 +234     ;;1092

 +235     ;;21,"86.73 ")

 +236     ;;1093

 +237     ;;21,"86.74 ")

 +238     ;;1094

 +239     ;;21,"86.75 ")

 +240     ;;1095

 +241     ;;9002226,862,.01)

 +242     ;;BGP CMS MAJOR SURGERY PROCS

 +243     ;;9002226,862,.02)

 +244     ;;@

 +245     ;;9002226,862,.04)

 +246     ;;n

 +247     ;;9002226,862,.06)

 +248     ;;@

 +249     ;;9002226,862,.08)

 +250     ;;0

 +251     ;;9002226,862,.09)

 +252     ;;3070604

 +253     ;;9002226,862,.11)

 +254     ;;@

 +255     ;;9002226,862,.12)

 +256     ;;255

 +257     ;;9002226,862,.13)

 +258     ;;1

 +259     ;;9002226,862,.14)

 +260     ;;@

 +261     ;;9002226,862,.15)

 +262     ;;80.1

 +263     ;;9002226,862,.16)

 +264     ;;@

 +265     ;;9002226,862,.17)

 +266     ;;@

 +267     ;;9002226,862,3101)

 +268     ;;@

 +269     ;;9002226.02101,"862,00.70 ",.01)

 +270     ;;00.70 

 +271     ;;9002226.02101,"862,00.70 ",.02)

 +272     ;;00.70 

 +273     ;;9002226.02101,"862,00.71 ",.01)

 +274     ;;00.71 

 +275     ;;9002226.02101,"862,00.71 ",.02)

 +276     ;;00.71 

 +277     ;;9002226.02101,"862,00.72 ",.01)

 +278     ;;00.72 

 +279     ;;9002226.02101,"862,00.72 ",.02)

 +280     ;;00.72 

 +281     ;;9002226.02101,"862,00.73 ",.01)

 +282     ;;00.73 

 +283     ;;9002226.02101,"862,00.73 ",.02)

 +284     ;;00.73 

 +285     ;;9002226.02101,"862,00.77 ",.01)

 +286     ;;00.77 

 +287     ;;9002226.02101,"862,00.77 ",.02)

 +288     ;;00.77 

 +289     ;;9002226.02101,"862,00.80 ",.01)

 +290     ;;00.80 

 +291     ;;9002226.02101,"862,00.80 ",.02)

 +292     ;;00.80 

 +293     ;;9002226.02101,"862,00.81 ",.01)

 +294     ;;00.81 

 +295     ;;9002226.02101,"862,00.81 ",.02)

 +296     ;;00.81 

 +297     ;;9002226.02101,"862,00.82 ",.01)

 +298     ;;00.82 

 +299     ;;9002226.02101,"862,00.82 ",.02)

 +300     ;;00.82 

 +301     ;;9002226.02101,"862,00.83 ",.01)

 +302     ;;00.83 

 +303     ;;9002226.02101,"862,00.83 ",.02)

 +304     ;;00.83 

 +305     ;;9002226.02101,"862,00.84 ",.01)

 +306     ;;00.84 

 +307     ;;9002226.02101,"862,00.84 ",.02)

 +308     ;;00.84 

 +309     ;;9002226.02101,"862,00.85 ",.01)

 +310     ;;00.85 

 +311     ;;9002226.02101,"862,00.85 ",.02)

 +312     ;;00.85 

 +313     ;;9002226.02101,"862,00.86 ",.01)

 +314     ;;00.86 

 +315     ;;9002226.02101,"862,00.86 ",.02)

 +316     ;;00.86 

 +317     ;;9002226.02101,"862,00.87 ",.01)

 +318     ;;00.87 

 +319     ;;9002226.02101,"862,00.87 ",.02)

 +320     ;;00.87 

 +321     ;;9002226.02101,"862,01.14 ",.01)

 +322     ;;01.14 

 +323     ;;9002226.02101,"862,01.14 ",.02)

 +324     ;;01.14 

 +325     ;;9002226.02101,"862,01.21 ",.01)

 +326     ;;01.21 

 +327     ;;9002226.02101,"862,01.21 ",.02)

 +328     ;;01.21 

 +329     ;;9002226.02101,"862,01.23 ",.01)

 +330     ;;01.23 

 +331     ;;9002226.02101,"862,01.23 ",.02)

 +332     ;;01.23