Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BGP03G3

BGP03G3.m

Go to the documentation of this file.
BGP03G3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"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,847,.01)
 ;;BGP CMS MAJOR SURGERY PROCS
 ;;9002226,847,.02)
 ;;@
 ;;9002226,847,.04)
 ;;n
 ;;9002226,847,.06)
 ;;@
 ;;9002226,847,.08)
 ;;0
 ;;9002226,847,.09)
 ;;3070604
 ;;9002226,847,.11)
 ;;@
 ;;9002226,847,.12)
 ;;255
 ;;9002226,847,.13)
 ;;1
 ;;9002226,847,.14)
 ;;@
 ;;9002226,847,.15)
 ;;80.1
 ;;9002226,847,.16)
 ;;@
 ;;9002226,847,.17)
 ;;@
 ;;9002226,847,3101)
 ;;@
 ;;9002226.02101,"847,00.70 ",.01)
 ;;00.70 
 ;;9002226.02101,"847,00.70 ",.02)
 ;;00.70 
 ;;9002226.02101,"847,00.71 ",.01)
 ;;00.71 
 ;;9002226.02101,"847,00.71 ",.02)
 ;;00.71 
 ;;9002226.02101,"847,00.72 ",.01)
 ;;00.72 
 ;;9002226.02101,"847,00.72 ",.02)
 ;;00.72 
 ;;9002226.02101,"847,00.73 ",.01)
 ;;00.73 
 ;;9002226.02101,"847,00.73 ",.02)
 ;;00.73 
 ;;9002226.02101,"847,00.77 ",.01)
 ;;00.77 
 ;;9002226.02101,"847,00.77 ",.02)
 ;;00.77 
 ;;9002226.02101,"847,00.80 ",.01)
 ;;00.80 
 ;;9002226.02101,"847,00.80 ",.02)
 ;;00.80 
 ;;9002226.02101,"847,00.81 ",.01)
 ;;00.81 
 ;;9002226.02101,"847,00.81 ",.02)
 ;;00.81 
 ;;9002226.02101,"847,00.82 ",.01)
 ;;00.82 
 ;;9002226.02101,"847,00.82 ",.02)
 ;;00.82 
 ;;9002226.02101,"847,00.83 ",.01)
 ;;00.83 
 ;;9002226.02101,"847,00.83 ",.02)
 ;;00.83 
 ;;9002226.02101,"847,00.84 ",.01)
 ;;00.84 
 ;;9002226.02101,"847,00.84 ",.02)
 ;;00.84 
 ;;9002226.02101,"847,00.85 ",.01)
 ;;00.85 
 ;;9002226.02101,"847,00.85 ",.02)
 ;;00.85 
 ;;9002226.02101,"847,00.86 ",.01)
 ;;00.86 
 ;;9002226.02101,"847,00.86 ",.02)
 ;;00.86 
 ;;9002226.02101,"847,00.87 ",.01)
 ;;00.87 
 ;;9002226.02101,"847,00.87 ",.02)
 ;;00.87 
 ;;9002226.02101,"847,01.14 ",.01)
 ;;01.14 
 ;;9002226.02101,"847,01.14 ",.02)
 ;;01.14 
 ;;9002226.02101,"847,01.21 ",.01)
 ;;01.21 
 ;;9002226.02101,"847,01.21 ",.02)
 ;;01.21 
 ;;9002226.02101,"847,01.23 ",.01)
 ;;01.23 
 ;;9002226.02101,"847,01.23 ",.02)
 ;;01.23 
 ;;9002226.02101,"847,01.24 ",.01)
 ;;01.24 
 ;;9002226.02101,"847,01.24 ",.02)
 ;;01.24 
 ;;9002226.02101,"847,01.25 ",.01)
 ;;01.25 
 ;;9002226.02101,"847,01.25 ",.02)
 ;;01.25 
 ;;9002226.02101,"847,01.31 ",.01)
 ;;01.31 
 ;;9002226.02101,"847,01.31 ",.02)
 ;;01.31 
 ;;9002226.02101,"847,01.32 ",.01)
 ;;01.32 
 ;;9002226.02101,"847,01.32 ",.02)
 ;;01.32 
 ;;9002226.02101,"847,01.39 ",.01)
 ;;01.39 
 ;;9002226.02101,"847,01.39 ",.02)
 ;;01.39 
 ;;9002226.02101,"847,01.41 ",.01)
 ;;01.41 
 ;;9002226.02101,"847,01.41 ",.02)
 ;;01.41 
 ;;9002226.02101,"847,01.42 ",.01)
 ;;01.42 
 ;;9002226.02101,"847,01.42 ",.02)
 ;;01.42 
 ;;9002226.02101,"847,01.51 ",.01)
 ;;01.51 
 ;;9002226.02101,"847,01.51 ",.02)
 ;;01.51 
 ;;9002226.02101,"847,01.52 ",.01)
 ;;01.52 
 ;;9002226.02101,"847,01.52 ",.02)
 ;;01.52 
 ;;9002226.02101,"847,01.53 ",.01)
 ;;01.53 
 ;;9002226.02101,"847,01.53 ",.02)
 ;;01.53 
 ;;9002226.02101,"847,01.59 ",.01)
 ;;01.59 
 ;;9002226.02101,"847,01.59 ",.02)
 ;;01.59 
 ;;9002226.02101,"847,01.6 ",.01)
 ;;01.6 
 ;;9002226.02101,"847,01.6 ",.02)
 ;;01.6 
 ;;9002226.02101,"847,02.01 ",.01)
 ;;02.01 
 ;;9002226.02101,"847,02.01 ",.02)
 ;;02.01 
 ;;9002226.02101,"847,02.02 ",.01)
 ;;02.02 
 ;;9002226.02101,"847,02.02 ",.02)
 ;;02.02 
 ;;9002226.02101,"847,02.03 ",.01)
 ;;02.03 
 ;;9002226.02101,"847,02.03 ",.02)
 ;;02.03 
 ;;9002226.02101,"847,02.04 ",.01)
 ;;02.04 
 ;;9002226.02101,"847,02.04 ",.02)
 ;;02.04 
 ;;9002226.02101,"847,02.05 ",.01)
 ;;02.05 
 ;;9002226.02101,"847,02.05 ",.02)
 ;;02.05 
 ;;9002226.02101,"847,02.06 ",.01)
 ;;02.06 
 ;;9002226.02101,"847,02.06 ",.02)
 ;;02.06 
 ;;9002226.02101,"847,02.07 ",.01)
 ;;02.07 
 ;;9002226.02101,"847,02.07 ",.02)
 ;;02.07 
 ;;9002226.02101,"847,02.11 ",.01)
 ;;02.11 
 ;;9002226.02101,"847,02.11 ",.02)
 ;;02.11 
 ;;9002226.02101,"847,02.12 ",.01)
 ;;02.12 
 ;;9002226.02101,"847,02.12 ",.02)
 ;;02.12 
 ;;9002226.02101,"847,02.13 ",.01)
 ;;02.13 
 ;;9002226.02101,"847,02.13 ",.02)
 ;;02.13 
 ;;9002226.02101,"847,02.14 ",.01)
 ;;02.14 
 ;;9002226.02101,"847,02.14 ",.02)
 ;;02.14 
 ;;9002226.02101,"847,02.31 ",.01)
 ;;02.31 
 ;;9002226.02101,"847,02.31 ",.02)
 ;;02.31 
 ;;9002226.02101,"847,02.32 ",.01)
 ;;02.32 
 ;;9002226.02101,"847,02.32 ",.02)
 ;;02.32 
 ;;9002226.02101,"847,02.33 ",.01)
 ;;02.33 
 ;;9002226.02101,"847,02.33 ",.02)
 ;;02.33 
 ;;9002226.02101,"847,02.34 ",.01)
 ;;02.34 
 ;;9002226.02101,"847,02.34 ",.02)
 ;;02.34 
 ;;9002226.02101,"847,02.35 ",.01)
 ;;02.35 
 ;;9002226.02101,"847,02.35 ",.02)
 ;;02.35 
 ;;9002226.02101,"847,02.39 ",.01)
 ;;02.39 
 ;;9002226.02101,"847,02.39 ",.02)
 ;;02.39 
 ;;9002226.02101,"847,02.91 ",.01)
 ;;02.91 
 ;;9002226.02101,"847,02.91 ",.02)
 ;;02.91 
 ;;9002226.02101,"847,02.92 ",.01)
 ;;02.92 
 ;;9002226.02101,"847,02.92 ",.02)
 ;;02.92 
 ;;9002226.02101,"847,02.93 ",.01)
 ;;02.93 
 ;;9002226.02101,"847,02.93 ",.02)
 ;;02.93 
 ;;9002226.02101,"847,03.01 ",.01)
 ;;03.01 
 ;;9002226.02101,"847,03.01 ",.02)
 ;;03.01 
 ;;9002226.02101,"847,03.02 ",.01)
 ;;03.02 
 ;;9002226.02101,"847,03.02 ",.02)
 ;;03.02 
 ;;9002226.02101,"847,03.09 ",.01)
 ;;03.09 
 ;;9002226.02101,"847,03.09 ",.02)
 ;;03.09 
 ;;9002226.02101,"847,03.1 ",.01)
 ;;03.1 
 ;;9002226.02101,"847,03.1 ",.02)
 ;;03.1 
 ;;9002226.02101,"847,03.29 ",.01)
 ;;03.29 
 ;;9002226.02101,"847,03.29 ",.02)
 ;;03.29 
 ;;9002226.02101,"847,03.4 ",.01)
 ;;03.4 
 ;;9002226.02101,"847,03.4 ",.02)
 ;;03.4 
 ;;9002226.02101,"847,03.51 ",.01)
 ;;03.51 
 ;;9002226.02101,"847,03.51 ",.02)
 ;;03.51 
 ;;9002226.02101,"847,03.52 ",.01)
 ;;03.52 
 ;;9002226.02101,"847,03.52 ",.02)
 ;;03.52 
 ;;9002226.02101,"847,03.53 ",.01)
 ;;03.53 
 ;;9002226.02101,"847,03.53 ",.02)
 ;;03.53 
 ;;9002226.02101,"847,03.59 ",.01)
 ;;03.59 
 ;;9002226.02101,"847,03.59 ",.02)
 ;;03.59 
 ;;9002226.02101,"847,03.6 ",.01)
 ;;03.6 
 ;;9002226.02101,"847,03.6 ",.02)
 ;;03.6 
 ;;9002226.02101,"847,03.71 ",.01)
 ;;03.71 
 ;;9002226.02101,"847,03.71 ",.02)
 ;;03.71 
 ;;9002226.02101,"847,03.72 ",.01)
 ;;03.72 
 ;;9002226.02101,"847,03.72 ",.02)
 ;;03.72 
 ;;9002226.02101,"847,03.79 ",.01)
 ;;03.79 
 ;;9002226.02101,"847,03.79 ",.02)
 ;;03.79 
 ;;9002226.02101,"847,03.97 ",.01)
 ;;03.97 
 ;;9002226.02101,"847,03.97 ",.02)
 ;;03.97 
 ;;9002226.02101,"847,03.98 ",.01)
 ;;03.98 
 ;;9002226.02101,"847,03.98 ",.02)
 ;;03.98 
 ;;9002226.02101,"847,04.01 ",.01)
 ;;04.01 
 ;;9002226.02101,"847,04.01 ",.02)
 ;;04.01 
 ;;9002226.02101,"847,04.02 ",.01)
 ;;04.02 
 ;;9002226.02101,"847,04.02 ",.02)
 ;;04.02 
 ;;9002226.02101,"847,04.03 ",.01)
 ;;04.03 
 ;;9002226.02101,"847,04.03 ",.02)
 ;;04.03 
 ;;9002226.02101,"847,04.04 ",.01)
 ;;04.04 
 ;;9002226.02101,"847,04.04 ",.02)
 ;;04.04 
 ;;9002226.02101,"847,04.05 ",.01)
 ;;04.05 
 ;;9002226.02101,"847,04.05 ",.02)
 ;;04.05 
 ;;9002226.02101,"847,04.06 ",.01)
 ;;04.06 
 ;;9002226.02101,"847,04.06 ",.02)
 ;;04.06 
 ;;9002226.02101,"847,04.07 ",.01)
 ;;04.07 
 ;;9002226.02101,"847,04.07 ",.02)
 ;;04.07 
 ;;9002226.02101,"847,04.3 ",.01)
 ;;04.3 
 ;;9002226.02101,"847,04.3 ",.02)
 ;;04.3 
 ;;9002226.02101,"847,04.41 ",.01)
 ;;04.41 
 ;;9002226.02101,"847,04.41 ",.02)
 ;;04.41 
 ;;9002226.02101,"847,04.42 ",.01)
 ;;04.42 
 ;;9002226.02101,"847,04.42 ",.02)
 ;;04.42 
 ;;9002226.02101,"847,05.0 ",.01)
 ;;05.0 
 ;;9002226.02101,"847,05.0 ",.02)
 ;;05.0 
 ;;9002226.02101,"847,05.21 ",.01)
 ;;05.21 
 ;;9002226.02101,"847,05.21 ",.02)
 ;;05.21 
 ;;9002226.02101,"847,05.22 ",.01)
 ;;05.22 
 ;;9002226.02101,"847,05.22 ",.02)
 ;;05.22 
 ;;9002226.02101,"847,05.23 ",.01)
 ;;05.23 
 ;;9002226.02101,"847,05.23 ",.02)
 ;;05.23 
 ;;9002226.02101,"847,05.24 ",.01)
 ;;05.24 
 ;;9002226.02101,"847,05.24 ",.02)
 ;;05.24 
 ;;9002226.02101,"847,05.25 ",.01)
 ;;05.25 
 ;;9002226.02101,"847,05.25 ",.02)
 ;;05.25 
 ;;9002226.02101,"847,05.29 ",.01)
 ;;05.29 
 ;;9002226.02101,"847,05.29 ",.02)
 ;;05.29 
 ;;9002226.02101,"847,06.02 ",.01)
 ;;06.02 
 ;;9002226.02101,"847,06.02 ",.02)
 ;;06.02 
 ;;9002226.02101,"847,06.09 ",.01)
 ;;06.09 
 ;;9002226.02101,"847,06.09 ",.02)
 ;;06.09 
 ;;9002226.02101,"847,06.2 ",.01)
 ;;06.2 
 ;;9002226.02101,"847,06.2 ",.02)
 ;;06.2 
 ;;9002226.02101,"847,06.31 ",.01)
 ;;06.31 
 ;;9002226.02101,"847,06.31 ",.02)
 ;;06.31 
 ;;9002226.02101,"847,06.39 ",.01)
 ;;06.39 
 ;;9002226.02101,"847,06.39 ",.02)
 ;;06.39 
 ;;9002226.02101,"847,06.4 ",.01)
 ;;06.4 
 ;;9002226.02101,"847,06.4 ",.02)
 ;;06.4 
 ;;9002226.02101,"847,06.50 ",.01)
 ;;06.50 
 ;;9002226.02101,"847,06.50 ",.02)
 ;;06.50 
 ;;9002226.02101,"847,06.51 ",.01)
 ;;06.51 
 ;;9002226.02101,"847,06.51 ",.02)
 ;;06.51 
 ;;9002226.02101,"847,06.52 ",.01)
 ;;06.52 
 ;;9002226.02101,"847,06.52 ",.02)
 ;;06.52 
 ;;9002226.02101,"847,06.6 ",.01)
 ;;06.6 
 ;;9002226.02101,"847,06.6 ",.02)
 ;;06.6 
 ;;9002226.02101,"847,06.7 ",.01)
 ;;06.7 
 ;;9002226.02101,"847,06.7 ",.02)
 ;;06.7 
 ;;9002226.02101,"847,06.81 ",.01)
 ;;06.81 
 ;;9002226.02101,"847,06.81 ",.02)
 ;;06.81 
 ;;9002226.02101,"847,06.89 ",.01)
 ;;06.89 
 ;;9002226.02101,"847,06.89 ",.02)
 ;;06.89 
 ;;9002226.02101,"847,06.91 ",.01)
 ;;06.91 
 ;;9002226.02101,"847,06.91 ",.02)
 ;;06.91 
 ;;9002226.02101,"847,06.92 ",.01)
 ;;06.92 
 ;;9002226.02101,"847,06.92 ",.02)
 ;;06.92 
 ;;9002226.02101,"847,06.93 ",.01)
 ;;06.93 
 ;;9002226.02101,"847,06.93 ",.02)
 ;;06.93 
 ;;9002226.02101,"847,06.94 ",.01)
 ;;06.94 
 ;;9002226.02101,"847,06.94 ",.02)
 ;;06.94 
 ;;9002226.02101,"847,06.95 ",.01)
 ;;06.95 
 ;;9002226.02101,"847,06.95 ",.02)
 ;;06.95 
 ;;9002226.02101,"847,06.98 ",.01)
 ;;06.98 
 ;;9002226.02101,"847,06.98 ",.02)
 ;;06.98 
 ;;9002226.02101,"847,06.99 ",.01)
 ;;06.99 
 ;;9002226.02101,"847,06.99 ",.02)
 ;;06.99 
 ;;9002226.02101,"847,07.00 ",.01)
 ;;07.00 
 ;;9002226.02101,"847,07.00 ",.02)
 ;;07.00 
 ;;9002226.02101,"847,07.01 ",.01)
 ;;07.01 
 ;;9002226.02101,"847,07.01 ",.02)
 ;;07.01 
 ;;9002226.02101,"847,07.02 ",.01)
 ;;07.02 
 ;;9002226.02101,"847,07.02 ",.02)
 ;;07.02 
 ;;9002226.02101,"847,07.21 ",.01)
 ;;07.21 
 ;;9002226.02101,"847,07.21 ",.02)
 ;;07.21 
 ;;9002226.02101,"847,07.22 ",.01)
 ;;07.22 
 ;;9002226.02101,"847,07.22 ",.02)
 ;;07.22 
 ;;9002226.02101,"847,07.29 ",.01)
 ;;07.29 
 ;;9002226.02101,"847,07.29 ",.02)
 ;;07.29 
 ;;9002226.02101,"847,07.3 ",.01)
 ;;07.3 
 ;;9002226.02101,"847,07.3 ",.02)
 ;;07.3 
 ;;9002226.02101,"847,07.41 ",.01)
 ;;07.41 
 ;;9002226.02101,"847,07.41 ",.02)
 ;;07.41 
 ;;9002226.02101,"847,07.42 ",.01)
 ;;07.42 
 ;;9002226.02101,"847,07.42 ",.02)
 ;;07.42 
 ;;9002226.02101,"847,07.43 ",.01)
 ;;07.43 
 ;;9002226.02101,"847,07.43 ",.02)
 ;;07.43 
 ;;9002226.02101,"847,07.44 ",.01)
 ;;07.44 
 ;;9002226.02101,"847,07.44 ",.02)
 ;;07.44 
 ;;9002226.02101,"847,07.45 ",.01)
 ;;07.45 
 ;;9002226.02101,"847,07.45 ",.02)
 ;;07.45 
 ;;9002226.02101,"847,07.49 ",.01)
 ;;07.49 
 ;;9002226.02101,"847,07.49 ",.02)
 ;;07.49 
 ;;9002226.02101,"847,07.51 ",.01)
 ;;07.51