- BGPLXCI ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON NOV 18, 2003 ;
- ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
- ;
- 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)
- ;;9002226.02101,"781,13815-6 ",.02)
- ;;13815-6
- ;;9002226.02101,"781,13816-4 ",.01)
- ;;13816-4
- ;;9002226.02101,"781,13816-4 ",.02)
- ;;13816-4
- ;;9002226.02101,"781,13817-2 ",.01)
- ;;13817-2
- ;;9002226.02101,"781,13817-2 ",.02)
- ;;13817-2
- ;;9002226.02101,"781,13818-0 ",.01)
- ;;13818-0
- ;;9002226.02101,"781,13818-0 ",.02)
- ;;13818-0
- ;;9002226.02101,"781,13819-8 ",.01)
- ;;13819-8
- ;;9002226.02101,"781,13819-8 ",.02)
- ;;13819-8
- ;;9002226.02101,"781,13820-6 ",.01)
- ;;13820-6
- ;;9002226.02101,"781,13820-6 ",.02)
- ;;13820-6
- ;;9002226.02101,"781,13821-4 ",.01)
- ;;13821-4
- ;;9002226.02101,"781,13821-4 ",.02)
- ;;13821-4
- ;;9002226.02101,"781,13822-2 ",.01)
- ;;13822-2
- ;;9002226.02101,"781,13822-2 ",.02)
- ;;13822-2
- ;;9002226.02101,"781,13823-0 ",.01)
- ;;13823-0
- ;;9002226.02101,"781,13823-0 ",.02)
- ;;13823-0
- ;;9002226.02101,"781,13824-8 ",.01)
- ;;13824-8
- ;;9002226.02101,"781,13824-8 ",.02)
- ;;13824-8
- ;;9002226.02101,"781,13825-5 ",.01)
- ;;13825-5
- ;;9002226.02101,"781,13825-5 ",.02)
- ;;13825-5
- ;;9002226.02101,"781,13826-3 ",.01)
- ;;13826-3
- ;;9002226.02101,"781,13826-3 ",.02)
- ;;13826-3
- ;;9002226.02101,"781,13827-1 ",.01)
- ;;13827-1
- ;;9002226.02101,"781,13827-1 ",.02)
- ;;13827-1
- ;;9002226.02101,"781,13828-9 ",.01)
- ;;13828-9
- ;;9002226.02101,"781,13828-9 ",.02)
- ;;13828-9
- ;;9002226.02101,"781,13829-7 ",.01)
- ;;13829-7
- ;;9002226.02101,"781,13829-7 ",.02)
- ;;13829-7
- ;;9002226.02101,"781,13830-5 ",.01)
- ;;13830-5
- ;;9002226.02101,"781,13830-5 ",.02)
- ;;13830-5
- ;;9002226.02101,"781,13831-3 ",.01)
- ;;13831-3
- ;;9002226.02101,"781,13831-3 ",.02)
- ;;13831-3
- ;;9002226.02101,"781,13832-1 ",.01)
- ;;13832-1
- ;;9002226.02101,"781,13832-1 ",.02)
- ;;13832-1
- ;;9002226.02101,"781,13881-8 ",.01)
- ;;13881-8
- ;;9002226.02101,"781,13881-8 ",.02)
- ;;13881-8
- ;;9002226.02101,"781,13996-4 ",.01)
- ;;13996-4
- ;;9002226.02101,"781,13996-4 ",.02)
- ;;13996-4
- ;;9002226.02101,"781,14115-0 ",.01)
- ;;14115-0
- ;;9002226.02101,"781,14115-0 ",.02)
- ;;14115-0
- ;;9002226.02101,"781,14153-1 ",.01)
- ;;14153-1
- ;;9002226.02101,"781,14153-1 ",.02)
- ;;14153-1
- ;;9002226.02101,"781,14295-0 ",.01)
- ;;14295-0
- ;;9002226.02101,"781,14295-0 ",.02)
- ;;14295-0
- ;;9002226.02101,"781,14398-2 ",.01)
- ;;14398-2
- ;;9002226.02101,"781,14398-2 ",.02)
- ;;14398-2
- ;;9002226.02101,"781,14399-0 ",.01)
- ;;14399-0
- ;;9002226.02101,"781,14399-0 ",.02)
- ;;14399-0
- ;;9002226.02101,"781,14401-4 ",.01)
- ;;14401-4
- ;;9002226.02101,"781,14401-4 ",.02)
- ;;14401-4
- ;;9002226.02101,"781,14402-2 ",.01)
- ;;14402-2
- ;;9002226.02101,"781,14402-2 ",.02)
- ;;14402-2
- ;;9002226.02101,"781,1452-2 ",.01)
- ;;1452-2
- ;;9002226.02101,"781,1452-2 ",.02)
- ;;1452-2
- ;;9002226.02101,"781,1453-0 ",.01)
- ;;1453-0
- ;;9002226.02101,"781,1453-0 ",.02)
- ;;1453-0
- ;;9002226.02101,"781,1454-8 ",.01)
- ;;1454-8
- ;;9002226.02101,"781,1454-8 ",.02)
- ;;1454-8
- ;;9002226.02101,"781,1455-5 ",.01)
- ;;1455-5
- ;;9002226.02101,"781,1455-5 ",.02)
- ;;1455-5
- ;;9002226.02101,"781,1456-3 ",.01)
- ;;1456-3
- ;;9002226.02101,"781,1456-3 ",.02)
- ;;1456-3
- ;;9002226.02101,"781,1457-1 ",.01)
- ;;1457-1
- ;;9002226.02101,"781,1457-1 ",.02)
- ;;1457-1
- ;;9002226.02101,"781,1458-9 ",.01)
- ;;1458-9
- ;;9002226.02101,"781,1458-9 ",.02)
- ;;1458-9
- ;;9002226.02101,"781,14585-4 ",.01)
- ;;14585-4
- ;;9002226.02101,"781,14585-4 ",.02)
- ;;14585-4
- ;;9002226.02101,"781,1459-7 ",.01)
- ;;1459-7
- ;;9002226.02101,"781,1459-7 ",.02)
- ;;1459-7
- ;;9002226.02101,"781,14681-1 ",.01)
- ;;14681-1
- ;;9002226.02101,"781,14681-1 ",.02)
- ;;14681-1
- ;;9002226.02101,"781,14682-9 ",.01)
- ;;14682-9
- ;;9002226.02101,"781,14682-9 ",.02)
- ;;14682-9
- ;;9002226.02101,"781,14683-7 ",.01)
- ;;14683-7
- ;;9002226.02101,"781,14683-7 ",.02)
- ;;14683-7
- ;;9002226.02101,"781,14684-5 ",.01)
- ;;14684-5
- ;;9002226.02101,"781,14684-5 ",.02)
- ;;14684-5
- ;;9002226.02101,"781,14831-2 ",.01)
- ;;14831-2
- ;;9002226.02101,"781,14831-2 ",.02)
- ;;14831-2
- ;;9002226.02101,"781,14948-4 ",.01)
- ;;14948-4
- ;;9002226.02101,"781,14948-4 ",.02)
- ;;14948-4
- ;;9002226.02101,"781,14958-3 ",.01)
- ;;14958-3
- ;;9002226.02101,"781,14958-3 ",.02)
- ;;14958-3
- ;;9002226.02101,"781,14959-1 ",.01)
- ;;14959-1
- ;;9002226.02101,"781,14959-1 ",.02)
- ;;14959-1
- ;;9002226.02101,"781,15050-8 ",.01)
- ;;15050-8
- ;;9002226.02101,"781,15050-8 ",.02)
- ;;15050-8
- ;;9002226.02101,"781,15051-6 ",.01)
- ;;15051-6
- ;;9002226.02101,"781,15051-6 ",.02)
- ;;15051-6
- ;;9002226.02101,"781,16188-5 ",.01)
- ;;16188-5
- ;;9002226.02101,"781,16188-5 ",.02)
- ;;16188-5
- ;;9002226.02101,"781,16189-3 ",.01)
- ;;16189-3
- ;;9002226.02101,"781,16189-3 ",.02)
- ;;16189-3
- ;;9002226.02101,"781,16285-9 ",.01)
- ;;16285-9
- ;;9002226.02101,"781,16285-9 ",.02)
- ;;16285-9
- ;;9002226.02101,"781,16304-8 ",.01)
- ;;16304-8
- ;;9002226.02101,"781,16304-8 ",.02)
- ;;16304-8
- ;;9002226.02101,"781,16469-9 ",.01)
- ;;16469-9
- ;;9002226.02101,"781,16469-9 ",.02)
- ;;16469-9
- ;;9002226.02101,"781,16689-2 ",.01)
- ;;16689-2
- ;;9002226.02101,"781,16689-2 ",.02)
- ;;16689-2
- ;;9002226.02101,"781,16690-0 ",.01)
- ;;16690-0
- ;;9002226.02101,"781,16690-0 ",.02)
- ;;16690-0
- ;;9002226.02101,"781,16700-7 ",.01)
- ;;16700-7
- BGPLXCI ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON NOV 18, 2003 ;
- +1 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
- +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 ;;9002226.02101,"781,13815-6 ",.02)
- +2 ;;13815-6
- +3 ;;9002226.02101,"781,13816-4 ",.01)
- +4 ;;13816-4
- +5 ;;9002226.02101,"781,13816-4 ",.02)
- +6 ;;13816-4
- +7 ;;9002226.02101,"781,13817-2 ",.01)
- +8 ;;13817-2
- +9 ;;9002226.02101,"781,13817-2 ",.02)
- +10 ;;13817-2
- +11 ;;9002226.02101,"781,13818-0 ",.01)
- +12 ;;13818-0
- +13 ;;9002226.02101,"781,13818-0 ",.02)
- +14 ;;13818-0
- +15 ;;9002226.02101,"781,13819-8 ",.01)
- +16 ;;13819-8
- +17 ;;9002226.02101,"781,13819-8 ",.02)
- +18 ;;13819-8
- +19 ;;9002226.02101,"781,13820-6 ",.01)
- +20 ;;13820-6
- +21 ;;9002226.02101,"781,13820-6 ",.02)
- +22 ;;13820-6
- +23 ;;9002226.02101,"781,13821-4 ",.01)
- +24 ;;13821-4
- +25 ;;9002226.02101,"781,13821-4 ",.02)
- +26 ;;13821-4
- +27 ;;9002226.02101,"781,13822-2 ",.01)
- +28 ;;13822-2
- +29 ;;9002226.02101,"781,13822-2 ",.02)
- +30 ;;13822-2
- +31 ;;9002226.02101,"781,13823-0 ",.01)
- +32 ;;13823-0
- +33 ;;9002226.02101,"781,13823-0 ",.02)
- +34 ;;13823-0
- +35 ;;9002226.02101,"781,13824-8 ",.01)
- +36 ;;13824-8
- +37 ;;9002226.02101,"781,13824-8 ",.02)
- +38 ;;13824-8
- +39 ;;9002226.02101,"781,13825-5 ",.01)
- +40 ;;13825-5
- +41 ;;9002226.02101,"781,13825-5 ",.02)
- +42 ;;13825-5
- +43 ;;9002226.02101,"781,13826-3 ",.01)
- +44 ;;13826-3
- +45 ;;9002226.02101,"781,13826-3 ",.02)
- +46 ;;13826-3
- +47 ;;9002226.02101,"781,13827-1 ",.01)
- +48 ;;13827-1
- +49 ;;9002226.02101,"781,13827-1 ",.02)
- +50 ;;13827-1
- +51 ;;9002226.02101,"781,13828-9 ",.01)
- +52 ;;13828-9
- +53 ;;9002226.02101,"781,13828-9 ",.02)
- +54 ;;13828-9
- +55 ;;9002226.02101,"781,13829-7 ",.01)
- +56 ;;13829-7
- +57 ;;9002226.02101,"781,13829-7 ",.02)
- +58 ;;13829-7
- +59 ;;9002226.02101,"781,13830-5 ",.01)
- +60 ;;13830-5
- +61 ;;9002226.02101,"781,13830-5 ",.02)
- +62 ;;13830-5
- +63 ;;9002226.02101,"781,13831-3 ",.01)
- +64 ;;13831-3
- +65 ;;9002226.02101,"781,13831-3 ",.02)
- +66 ;;13831-3
- +67 ;;9002226.02101,"781,13832-1 ",.01)
- +68 ;;13832-1
- +69 ;;9002226.02101,"781,13832-1 ",.02)
- +70 ;;13832-1
- +71 ;;9002226.02101,"781,13881-8 ",.01)
- +72 ;;13881-8
- +73 ;;9002226.02101,"781,13881-8 ",.02)
- +74 ;;13881-8
- +75 ;;9002226.02101,"781,13996-4 ",.01)
- +76 ;;13996-4
- +77 ;;9002226.02101,"781,13996-4 ",.02)
- +78 ;;13996-4
- +79 ;;9002226.02101,"781,14115-0 ",.01)
- +80 ;;14115-0
- +81 ;;9002226.02101,"781,14115-0 ",.02)
- +82 ;;14115-0
- +83 ;;9002226.02101,"781,14153-1 ",.01)
- +84 ;;14153-1
- +85 ;;9002226.02101,"781,14153-1 ",.02)
- +86 ;;14153-1
- +87 ;;9002226.02101,"781,14295-0 ",.01)
- +88 ;;14295-0
- +89 ;;9002226.02101,"781,14295-0 ",.02)
- +90 ;;14295-0
- +91 ;;9002226.02101,"781,14398-2 ",.01)
- +92 ;;14398-2
- +93 ;;9002226.02101,"781,14398-2 ",.02)
- +94 ;;14398-2
- +95 ;;9002226.02101,"781,14399-0 ",.01)
- +96 ;;14399-0
- +97 ;;9002226.02101,"781,14399-0 ",.02)
- +98 ;;14399-0
- +99 ;;9002226.02101,"781,14401-4 ",.01)
- +100 ;;14401-4
- +101 ;;9002226.02101,"781,14401-4 ",.02)
- +102 ;;14401-4
- +103 ;;9002226.02101,"781,14402-2 ",.01)
- +104 ;;14402-2
- +105 ;;9002226.02101,"781,14402-2 ",.02)
- +106 ;;14402-2
- +107 ;;9002226.02101,"781,1452-2 ",.01)
- +108 ;;1452-2
- +109 ;;9002226.02101,"781,1452-2 ",.02)
- +110 ;;1452-2
- +111 ;;9002226.02101,"781,1453-0 ",.01)
- +112 ;;1453-0
- +113 ;;9002226.02101,"781,1453-0 ",.02)
- +114 ;;1453-0
- +115 ;;9002226.02101,"781,1454-8 ",.01)
- +116 ;;1454-8
- +117 ;;9002226.02101,"781,1454-8 ",.02)
- +118 ;;1454-8
- +119 ;;9002226.02101,"781,1455-5 ",.01)
- +120 ;;1455-5
- +121 ;;9002226.02101,"781,1455-5 ",.02)
- +122 ;;1455-5
- +123 ;;9002226.02101,"781,1456-3 ",.01)
- +124 ;;1456-3
- +125 ;;9002226.02101,"781,1456-3 ",.02)
- +126 ;;1456-3
- +127 ;;9002226.02101,"781,1457-1 ",.01)
- +128 ;;1457-1
- +129 ;;9002226.02101,"781,1457-1 ",.02)
- +130 ;;1457-1
- +131 ;;9002226.02101,"781,1458-9 ",.01)
- +132 ;;1458-9
- +133 ;;9002226.02101,"781,1458-9 ",.02)
- +134 ;;1458-9
- +135 ;;9002226.02101,"781,14585-4 ",.01)
- +136 ;;14585-4
- +137 ;;9002226.02101,"781,14585-4 ",.02)
- +138 ;;14585-4
- +139 ;;9002226.02101,"781,1459-7 ",.01)
- +140 ;;1459-7
- +141 ;;9002226.02101,"781,1459-7 ",.02)
- +142 ;;1459-7
- +143 ;;9002226.02101,"781,14681-1 ",.01)
- +144 ;;14681-1
- +145 ;;9002226.02101,"781,14681-1 ",.02)
- +146 ;;14681-1
- +147 ;;9002226.02101,"781,14682-9 ",.01)
- +148 ;;14682-9
- +149 ;;9002226.02101,"781,14682-9 ",.02)
- +150 ;;14682-9
- +151 ;;9002226.02101,"781,14683-7 ",.01)
- +152 ;;14683-7
- +153 ;;9002226.02101,"781,14683-7 ",.02)
- +154 ;;14683-7
- +155 ;;9002226.02101,"781,14684-5 ",.01)
- +156 ;;14684-5
- +157 ;;9002226.02101,"781,14684-5 ",.02)
- +158 ;;14684-5
- +159 ;;9002226.02101,"781,14831-2 ",.01)
- +160 ;;14831-2
- +161 ;;9002226.02101,"781,14831-2 ",.02)
- +162 ;;14831-2
- +163 ;;9002226.02101,"781,14948-4 ",.01)
- +164 ;;14948-4
- +165 ;;9002226.02101,"781,14948-4 ",.02)
- +166 ;;14948-4
- +167 ;;9002226.02101,"781,14958-3 ",.01)
- +168 ;;14958-3
- +169 ;;9002226.02101,"781,14958-3 ",.02)
- +170 ;;14958-3
- +171 ;;9002226.02101,"781,14959-1 ",.01)
- +172 ;;14959-1
- +173 ;;9002226.02101,"781,14959-1 ",.02)
- +174 ;;14959-1
- +175 ;;9002226.02101,"781,15050-8 ",.01)
- +176 ;;15050-8
- +177 ;;9002226.02101,"781,15050-8 ",.02)
- +178 ;;15050-8
- +179 ;;9002226.02101,"781,15051-6 ",.01)
- +180 ;;15051-6
- +181 ;;9002226.02101,"781,15051-6 ",.02)
- +182 ;;15051-6
- +183 ;;9002226.02101,"781,16188-5 ",.01)
- +184 ;;16188-5
- +185 ;;9002226.02101,"781,16188-5 ",.02)
- +186 ;;16188-5
- +187 ;;9002226.02101,"781,16189-3 ",.01)
- +188 ;;16189-3
- +189 ;;9002226.02101,"781,16189-3 ",.02)
- +190 ;;16189-3
- +191 ;;9002226.02101,"781,16285-9 ",.01)
- +192 ;;16285-9
- +193 ;;9002226.02101,"781,16285-9 ",.02)
- +194 ;;16285-9
- +195 ;;9002226.02101,"781,16304-8 ",.01)
- +196 ;;16304-8
- +197 ;;9002226.02101,"781,16304-8 ",.02)
- +198 ;;16304-8
- +199 ;;9002226.02101,"781,16469-9 ",.01)
- +200 ;;16469-9
- +201 ;;9002226.02101,"781,16469-9 ",.02)
- +202 ;;16469-9
- +203 ;;9002226.02101,"781,16689-2 ",.01)
- +204 ;;16689-2
- +205 ;;9002226.02101,"781,16689-2 ",.02)
- +206 ;;16689-2
- +207 ;;9002226.02101,"781,16690-0 ",.01)
- +208 ;;16690-0
- +209 ;;9002226.02101,"781,16690-0 ",.02)
- +210 ;;16690-0
- +211 ;;9002226.02101,"781,16700-7 ",.01)
- +212 ;;16700-7