BGPWTXBB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 21, 2005 ;
;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
;;;BGPW;;APR 21, 2005
;
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,"54868-3565-00 ")
;;84
;;21,"54868-3799-00 ")
;;110
;;21,"54868-3800-00 ")
;;106
;;21,"54868-3857-00 ")
;;10
;;21,"54868-4030-00 ")
;;58
;;21,"54868-4030-01 ")
;;59
;;21,"54868-4170-00 ")
;;29
;;21,"54868-4384-00 ")
;;2
;;21,"54868-4462-00 ")
;;18
;;21,"54868-4463-00 ")
;;13
;;21,"55289-0047-25 ")
;;171
;;21,"55289-0047-30 ")
;;172
;;21,"55289-0047-42 ")
;;173
;;21,"55289-0047-90 ")
;;174
;;21,"55289-0101-30 ")
;;42
;;21,"55289-0123-30 ")
;;119
;;21,"55289-0396-30 ")
;;65
;;21,"55289-0943-07 ")
;;137
;;21,"55289-0943-25 ")
;;138
;;21,"55289-0943-30 ")
;;139
;;21,"58016-0744-00 ")
;;126
;;21,"58016-0744-10 ")
;;121
;;21,"58016-0744-14 ")
;;122
;;21,"58016-0744-15 ")
;;123
;;21,"58016-0744-20 ")
;;124
;;21,"58016-0744-30 ")
;;125
;;21,"58016-0948-00 ")
;;153
;;21,"58016-0948-10 ")
;;147
;;21,"58016-0948-14 ")
;;148
;;21,"58016-0948-15 ")
;;149
;;21,"58016-0948-20 ")
;;150
;;21,"58016-0948-30 ")
;;151
;;21,"58016-0948-50 ")
;;152
;;21,"58016-0983-00 ")
;;186
;;21,"58016-0983-10 ")
;;180
;;21,"58016-0983-12 ")
;;181
;;21,"58016-0983-14 ")
;;182
;;21,"58016-0983-15 ")
;;183
;;21,"58016-0983-20 ")
;;184
;;21,"58016-0983-30 ")
;;185
;;21,"59772-0025-03 ")
;;35
;;21,"59772-0026-03 ")
;;52
;;21,"59772-0026-04 ")
;;53
;;21,"59772-0027-03 ")
;;73
;;21,"59772-0027-04 ")
;;74
;;21,"61570-0072-01 ")
;;196
;;21,"61570-0073-01 ")
;;197
;;21,"61570-0073-05 ")
;;198
;;21,"61570-0074-01 ")
;;199
;;21,"61570-0075-50 ")
;;200
;;9002226,392,.01)
;;BGP OSTEOPOROSIS NDC
;;9002226,392,.02)
;;@
;;9002226,392,.04)
;;@
;;9002226,392,.06)
;;@
;;9002226,392,.08)
;;@
;;9002226,392,.09)
;;@
;;9002226,392,.11)
;;@
;;9002226,392,.12)
;;@
;;9002226,392,.13)
;;1
;;9002226,392,.14)
;;@
;;9002226,392,.15)
;;@
;;9002226,392,.16)
;;@
;;9002226,392,.17)
;;@
;;9002226,392,3101)
;;@
;;9002226.02101,"392,00002-4165-02 ",.01)
;;00002-4165-02
;;9002226.02101,"392,00002-4165-02 ",.02)
;;00002-4165-02
;;9002226.02101,"392,00002-4165-07 ",.01)
;;00002-4165-07
;;9002226.02101,"392,00002-4165-07 ",.02)
;;00002-4165-07
;;9002226.02101,"392,00002-4165-30 ",.01)
;;00002-4165-30
;;9002226.02101,"392,00002-4165-30 ",.02)
;;00002-4165-30
;;9002226.02101,"392,00002-8971-01 ",.01)
;;00002-8971-01
;;9002226.02101,"392,00002-8971-01 ",.02)
;;00002-8971-01
;;9002226.02101,"392,00006-0031-21 ",.01)
;;00006-0031-21
;;9002226.02101,"392,00006-0031-21 ",.02)
;;00006-0031-21
;;9002226.02101,"392,00006-0031-44 ",.01)
;;00006-0031-44
;;9002226.02101,"392,00006-0031-44 ",.02)
;;00006-0031-44
;;9002226.02101,"392,00006-0077-21 ",.01)
;;00006-0077-21
;;9002226.02101,"392,00006-0077-21 ",.02)
;;00006-0077-21
;;9002226.02101,"392,00006-0077-44 ",.01)
;;00006-0077-44
;;9002226.02101,"392,00006-0077-44 ",.02)
;;00006-0077-44
;;9002226.02101,"392,00006-0212-31 ",.01)
;;00006-0212-31
;;9002226.02101,"392,00006-0212-31 ",.02)
;;00006-0212-31
;;9002226.02101,"392,00006-0925-31 ",.01)
;;00006-0925-31
;;9002226.02101,"392,00006-0925-31 ",.02)
;;00006-0925-31
;;9002226.02101,"392,00006-0925-58 ",.01)
;;00006-0925-58
;;9002226.02101,"392,00006-0925-58 ",.02)
;;00006-0925-58
;;9002226.02101,"392,00006-0936-28 ",.01)
;;00006-0936-28
;;9002226.02101,"392,00006-0936-28 ",.02)
;;00006-0936-28
;;9002226.02101,"392,00006-0936-31 ",.01)
;;00006-0936-31
;;9002226.02101,"392,00006-0936-31 ",.02)
;;00006-0936-31
;;9002226.02101,"392,00006-0936-58 ",.01)
;;00006-0936-58
;;9002226.02101,"392,00006-0936-58 ",.02)
;;00006-0936-58
;;9002226.02101,"392,00006-0936-72 ",.01)
;;00006-0936-72
;;9002226.02101,"392,00006-0936-72 ",.02)
;;00006-0936-72
;;9002226.02101,"392,00006-0936-82 ",.01)
;;00006-0936-82
;;9002226.02101,"392,00006-0936-82 ",.02)
;;00006-0936-82
;;9002226.02101,"392,00032-1023-01 ",.01)
;;00032-1023-01
;;9002226.02101,"392,00032-1023-01 ",.02)
;;00032-1023-01
;;9002226.02101,"392,00032-1026-01 ",.01)
;;00032-1026-01
;;9002226.02101,"392,00032-1026-01 ",.02)
;;00032-1026-01
;;9002226.02101,"392,00032-1026-10 ",.01)
;;00032-1026-10
;;9002226.02101,"392,00032-1026-10 ",.02)
;;00032-1026-10
;;9002226.02101,"392,00046-0864-81 ",.01)
;;00046-0864-81
;;9002226.02101,"392,00046-0864-81 ",.02)
;;00046-0864-81
;;9002226.02101,"392,00046-0865-81 ",.01)
;;00046-0865-81
;;9002226.02101,"392,00046-0865-81 ",.02)
;;00046-0865-81
;;9002226.02101,"392,00046-0865-91 ",.01)
;;00046-0865-91
;;9002226.02101,"392,00046-0865-91 ",.02)
;;00046-0865-91
;;9002226.02101,"392,00046-0866-81 ",.01)
;;00046-0866-81
;;9002226.02101,"392,00046-0866-81 ",.02)
;;00046-0866-81
;;9002226.02101,"392,00046-0866-91 ",.01)
;;00046-0866-91
;;9002226.02101,"392,00046-0866-91 ",.02)
;;00046-0866-91
;;9002226.02101,"392,00046-0866-95 ",.01)
;;00046-0866-95
;;9002226.02101,"392,00046-0866-95 ",.02)
;;00046-0866-95
;;9002226.02101,"392,00046-0866-99 ",.01)
;;00046-0866-99
;;9002226.02101,"392,00046-0866-99 ",.02)
;;00046-0866-99
BGPWTXBB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 21, 2005 ;
+1 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
+2 ;;;BGPW;;APR 21, 2005
+3 ;
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,"54868-3565-00 ")
+2 ;;84
+3 ;;21,"54868-3799-00 ")
+4 ;;110
+5 ;;21,"54868-3800-00 ")
+6 ;;106
+7 ;;21,"54868-3857-00 ")
+8 ;;10
+9 ;;21,"54868-4030-00 ")
+10 ;;58
+11 ;;21,"54868-4030-01 ")
+12 ;;59
+13 ;;21,"54868-4170-00 ")
+14 ;;29
+15 ;;21,"54868-4384-00 ")
+16 ;;2
+17 ;;21,"54868-4462-00 ")
+18 ;;18
+19 ;;21,"54868-4463-00 ")
+20 ;;13
+21 ;;21,"55289-0047-25 ")
+22 ;;171
+23 ;;21,"55289-0047-30 ")
+24 ;;172
+25 ;;21,"55289-0047-42 ")
+26 ;;173
+27 ;;21,"55289-0047-90 ")
+28 ;;174
+29 ;;21,"55289-0101-30 ")
+30 ;;42
+31 ;;21,"55289-0123-30 ")
+32 ;;119
+33 ;;21,"55289-0396-30 ")
+34 ;;65
+35 ;;21,"55289-0943-07 ")
+36 ;;137
+37 ;;21,"55289-0943-25 ")
+38 ;;138
+39 ;;21,"55289-0943-30 ")
+40 ;;139
+41 ;;21,"58016-0744-00 ")
+42 ;;126
+43 ;;21,"58016-0744-10 ")
+44 ;;121
+45 ;;21,"58016-0744-14 ")
+46 ;;122
+47 ;;21,"58016-0744-15 ")
+48 ;;123
+49 ;;21,"58016-0744-20 ")
+50 ;;124
+51 ;;21,"58016-0744-30 ")
+52 ;;125
+53 ;;21,"58016-0948-00 ")
+54 ;;153
+55 ;;21,"58016-0948-10 ")
+56 ;;147
+57 ;;21,"58016-0948-14 ")
+58 ;;148
+59 ;;21,"58016-0948-15 ")
+60 ;;149
+61 ;;21,"58016-0948-20 ")
+62 ;;150
+63 ;;21,"58016-0948-30 ")
+64 ;;151
+65 ;;21,"58016-0948-50 ")
+66 ;;152
+67 ;;21,"58016-0983-00 ")
+68 ;;186
+69 ;;21,"58016-0983-10 ")
+70 ;;180
+71 ;;21,"58016-0983-12 ")
+72 ;;181
+73 ;;21,"58016-0983-14 ")
+74 ;;182
+75 ;;21,"58016-0983-15 ")
+76 ;;183
+77 ;;21,"58016-0983-20 ")
+78 ;;184
+79 ;;21,"58016-0983-30 ")
+80 ;;185
+81 ;;21,"59772-0025-03 ")
+82 ;;35
+83 ;;21,"59772-0026-03 ")
+84 ;;52
+85 ;;21,"59772-0026-04 ")
+86 ;;53
+87 ;;21,"59772-0027-03 ")
+88 ;;73
+89 ;;21,"59772-0027-04 ")
+90 ;;74
+91 ;;21,"61570-0072-01 ")
+92 ;;196
+93 ;;21,"61570-0073-01 ")
+94 ;;197
+95 ;;21,"61570-0073-05 ")
+96 ;;198
+97 ;;21,"61570-0074-01 ")
+98 ;;199
+99 ;;21,"61570-0075-50 ")
+100 ;;200
+101 ;;9002226,392,.01)
+102 ;;BGP OSTEOPOROSIS NDC
+103 ;;9002226,392,.02)
+104 ;;@
+105 ;;9002226,392,.04)
+106 ;;@
+107 ;;9002226,392,.06)
+108 ;;@
+109 ;;9002226,392,.08)
+110 ;;@
+111 ;;9002226,392,.09)
+112 ;;@
+113 ;;9002226,392,.11)
+114 ;;@
+115 ;;9002226,392,.12)
+116 ;;@
+117 ;;9002226,392,.13)
+118 ;;1
+119 ;;9002226,392,.14)
+120 ;;@
+121 ;;9002226,392,.15)
+122 ;;@
+123 ;;9002226,392,.16)
+124 ;;@
+125 ;;9002226,392,.17)
+126 ;;@
+127 ;;9002226,392,3101)
+128 ;;@
+129 ;;9002226.02101,"392,00002-4165-02 ",.01)
+130 ;;00002-4165-02
+131 ;;9002226.02101,"392,00002-4165-02 ",.02)
+132 ;;00002-4165-02
+133 ;;9002226.02101,"392,00002-4165-07 ",.01)
+134 ;;00002-4165-07
+135 ;;9002226.02101,"392,00002-4165-07 ",.02)
+136 ;;00002-4165-07
+137 ;;9002226.02101,"392,00002-4165-30 ",.01)
+138 ;;00002-4165-30
+139 ;;9002226.02101,"392,00002-4165-30 ",.02)
+140 ;;00002-4165-30
+141 ;;9002226.02101,"392,00002-8971-01 ",.01)
+142 ;;00002-8971-01
+143 ;;9002226.02101,"392,00002-8971-01 ",.02)
+144 ;;00002-8971-01
+145 ;;9002226.02101,"392,00006-0031-21 ",.01)
+146 ;;00006-0031-21
+147 ;;9002226.02101,"392,00006-0031-21 ",.02)
+148 ;;00006-0031-21
+149 ;;9002226.02101,"392,00006-0031-44 ",.01)
+150 ;;00006-0031-44
+151 ;;9002226.02101,"392,00006-0031-44 ",.02)
+152 ;;00006-0031-44
+153 ;;9002226.02101,"392,00006-0077-21 ",.01)
+154 ;;00006-0077-21
+155 ;;9002226.02101,"392,00006-0077-21 ",.02)
+156 ;;00006-0077-21
+157 ;;9002226.02101,"392,00006-0077-44 ",.01)
+158 ;;00006-0077-44
+159 ;;9002226.02101,"392,00006-0077-44 ",.02)
+160 ;;00006-0077-44
+161 ;;9002226.02101,"392,00006-0212-31 ",.01)
+162 ;;00006-0212-31
+163 ;;9002226.02101,"392,00006-0212-31 ",.02)
+164 ;;00006-0212-31
+165 ;;9002226.02101,"392,00006-0925-31 ",.01)
+166 ;;00006-0925-31
+167 ;;9002226.02101,"392,00006-0925-31 ",.02)
+168 ;;00006-0925-31
+169 ;;9002226.02101,"392,00006-0925-58 ",.01)
+170 ;;00006-0925-58
+171 ;;9002226.02101,"392,00006-0925-58 ",.02)
+172 ;;00006-0925-58
+173 ;;9002226.02101,"392,00006-0936-28 ",.01)
+174 ;;00006-0936-28
+175 ;;9002226.02101,"392,00006-0936-28 ",.02)
+176 ;;00006-0936-28
+177 ;;9002226.02101,"392,00006-0936-31 ",.01)
+178 ;;00006-0936-31
+179 ;;9002226.02101,"392,00006-0936-31 ",.02)
+180 ;;00006-0936-31
+181 ;;9002226.02101,"392,00006-0936-58 ",.01)
+182 ;;00006-0936-58
+183 ;;9002226.02101,"392,00006-0936-58 ",.02)
+184 ;;00006-0936-58
+185 ;;9002226.02101,"392,00006-0936-72 ",.01)
+186 ;;00006-0936-72
+187 ;;9002226.02101,"392,00006-0936-72 ",.02)
+188 ;;00006-0936-72
+189 ;;9002226.02101,"392,00006-0936-82 ",.01)
+190 ;;00006-0936-82
+191 ;;9002226.02101,"392,00006-0936-82 ",.02)
+192 ;;00006-0936-82
+193 ;;9002226.02101,"392,00032-1023-01 ",.01)
+194 ;;00032-1023-01
+195 ;;9002226.02101,"392,00032-1023-01 ",.02)
+196 ;;00032-1023-01
+197 ;;9002226.02101,"392,00032-1026-01 ",.01)
+198 ;;00032-1026-01
+199 ;;9002226.02101,"392,00032-1026-01 ",.02)
+200 ;;00032-1026-01
+201 ;;9002226.02101,"392,00032-1026-10 ",.01)
+202 ;;00032-1026-10
+203 ;;9002226.02101,"392,00032-1026-10 ",.02)
+204 ;;00032-1026-10
+205 ;;9002226.02101,"392,00046-0864-81 ",.01)
+206 ;;00046-0864-81
+207 ;;9002226.02101,"392,00046-0864-81 ",.02)
+208 ;;00046-0864-81
+209 ;;9002226.02101,"392,00046-0865-81 ",.01)
+210 ;;00046-0865-81
+211 ;;9002226.02101,"392,00046-0865-81 ",.02)
+212 ;;00046-0865-81
+213 ;;9002226.02101,"392,00046-0865-91 ",.01)
+214 ;;00046-0865-91
+215 ;;9002226.02101,"392,00046-0865-91 ",.02)
+216 ;;00046-0865-91
+217 ;;9002226.02101,"392,00046-0866-81 ",.01)
+218 ;;00046-0866-81
+219 ;;9002226.02101,"392,00046-0866-81 ",.02)
+220 ;;00046-0866-81
+221 ;;9002226.02101,"392,00046-0866-91 ",.01)
+222 ;;00046-0866-91
+223 ;;9002226.02101,"392,00046-0866-91 ",.02)
+224 ;;00046-0866-91
+225 ;;9002226.02101,"392,00046-0866-95 ",.01)
+226 ;;00046-0866-95
+227 ;;9002226.02101,"392,00046-0866-95 ",.02)
+228 ;;00046-0866-95
+229 ;;9002226.02101,"392,00046-0866-99 ",.01)
+230 ;;00046-0866-99
+231 ;;9002226.02101,"392,00046-0866-99 ",.02)
+232 ;;00046-0866-99
