BGP21O4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 14, 2011;
;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
;
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,"65162-0335-10 ")
;;341
;;21,"65243-0279-18 ")
;;398
;;21,"66105-0164-02 ")
;;100
;;21,"66105-0164-03 ")
;;101
;;21,"66105-0164-06 ")
;;102
;;21,"66105-0164-09 ")
;;103
;;21,"66105-0164-10 ")
;;104
;;21,"66267-1300-00 ")
;;179
;;21,"66336-0596-30 ")
;;459
;;21,"67781-0251-01 ")
;;479
;;21,"67781-0251-05 ")
;;480
;;21,"67781-0252-01 ")
;;486
;;21,"68115-0328-60 ")
;;460
;;21,"68115-0547-20 ")
;;270
;;21,"68115-0637-13 ")
;;247
;;21,"68115-0638-60 ")
;;122
;;21,"68115-0651-60 ")
;;136
;;21,"68115-0652-01 ")
;;209
;;21,"68115-0653-01 ")
;;210
;;21,"68115-0657-01 ")
;;36
;;21,"68115-0760-01 ")
;;16
;;21,"68115-0775-07 ")
;;187
;;21,"68115-0923-30 ")
;;105
;;21,"68115-0923-90 ")
;;106
;;21,"68115-0924-60 ")
;;27
;;21,"68258-3032-03 ")
;;70
;;21,"68258-3033-03 ")
;;107
;;21,"68462-0356-01 ")
;;487
;;21,"68462-0380-01 ")
;;481
;;21,"68734-0700-10 ")
;;125
;;21,"68734-0710-10 ")
;;127
;;9002226,1204,.01)
;;BGP PQA CONTROLLER NDC
;;9002226,1204,.02)
;;BGP PQA
;;9002226,1204,.04)
;;n
;;9002226,1204,.06)
;;@
;;9002226,1204,.08)
;;@
;;9002226,1204,.09)
;;@
;;9002226,1204,.11)
;;@
;;9002226,1204,.12)
;;@
;;9002226,1204,.13)
;;1
;;9002226,1204,.14)
;;@
;;9002226,1204,.15)
;;@
;;9002226,1204,.16)
;;@
;;9002226,1204,.17)
;;@
;;9002226,1204,3101)
;;@
;;9002226.02101,"1204,00006-0117-01 ",.01)
;;00006-0117-01
;;9002226.02101,"1204,00006-0117-01 ",.02)
;;00006-0117-01
;;9002226.02101,"1204,00006-0117-28 ",.01)
;;00006-0117-28
;;9002226.02101,"1204,00006-0117-28 ",.02)
;;00006-0117-28
;;9002226.02101,"1204,00006-0117-31 ",.01)
;;00006-0117-31
;;9002226.02101,"1204,00006-0117-31 ",.02)
;;00006-0117-31
;;9002226.02101,"1204,00006-0117-54 ",.01)
;;00006-0117-54
;;9002226.02101,"1204,00006-0117-54 ",.02)
;;00006-0117-54
;;9002226.02101,"1204,00006-0117-80 ",.01)
;;00006-0117-80
;;9002226.02101,"1204,00006-0117-80 ",.02)
;;00006-0117-80
;;9002226.02101,"1204,00006-0275-01 ",.01)
;;00006-0275-01
;;9002226.02101,"1204,00006-0275-01 ",.02)
;;00006-0275-01
;;9002226.02101,"1204,00006-0275-28 ",.01)
;;00006-0275-28
;;9002226.02101,"1204,00006-0275-28 ",.02)
;;00006-0275-28
;;9002226.02101,"1204,00006-0275-31 ",.01)
;;00006-0275-31
;;9002226.02101,"1204,00006-0275-31 ",.02)
;;00006-0275-31
;;9002226.02101,"1204,00006-0275-54 ",.01)
;;00006-0275-54
;;9002226.02101,"1204,00006-0275-54 ",.02)
;;00006-0275-54
;;9002226.02101,"1204,00006-0275-82 ",.01)
;;00006-0275-82
;;9002226.02101,"1204,00006-0275-82 ",.02)
;;00006-0275-82
;;9002226.02101,"1204,00006-0711-01 ",.01)
;;00006-0711-01
;;9002226.02101,"1204,00006-0711-01 ",.02)
;;00006-0711-01
;;9002226.02101,"1204,00006-0711-28 ",.01)
;;00006-0711-28
;;9002226.02101,"1204,00006-0711-28 ",.02)
;;00006-0711-28
;;9002226.02101,"1204,00006-0711-31 ",.01)
;;00006-0711-31
;;9002226.02101,"1204,00006-0711-31 ",.02)
;;00006-0711-31
;;9002226.02101,"1204,00006-0711-54 ",.01)
;;00006-0711-54
;;9002226.02101,"1204,00006-0711-54 ",.02)
;;00006-0711-54
;;9002226.02101,"1204,00006-3841-30 ",.01)
;;00006-3841-30
;;9002226.02101,"1204,00006-3841-30 ",.02)
;;00006-3841-30
;;9002226.02101,"1204,00034-7004-70 ",.01)
;;00034-7004-70
;;9002226.02101,"1204,00034-7004-70 ",.02)
;;00034-7004-70
;;9002226.02101,"1204,00034-7004-80 ",.01)
;;00034-7004-80
;;9002226.02101,"1204,00034-7004-80 ",.02)
;;00034-7004-80
;;9002226.02101,"1204,00034-7006-80 ",.01)
;;00034-7006-80
;;9002226.02101,"1204,00034-7006-80 ",.02)
;;00034-7006-80
;;9002226.02101,"1204,00034-7102-80 ",.01)
;;00034-7102-80
;;9002226.02101,"1204,00034-7102-80 ",.02)
;;00034-7102-80
;;9002226.02101,"1204,00074-3014-60 ",.01)
;;00074-3014-60
;;9002226.02101,"1204,00074-3014-60 ",.02)
;;00074-3014-60
;;9002226.02101,"1204,00074-8036-22 ",.01)
;;00074-8036-22
;;9002226.02101,"1204,00074-8036-22 ",.02)
;;00074-8036-22
;;9002226.02101,"1204,00075-0060-37 ",.01)
;;00075-0060-37
;;9002226.02101,"1204,00075-0060-37 ",.02)
;;00075-0060-37
;;9002226.02101,"1204,00083-0167-02 ",.01)
;;00083-0167-02
;;9002226.02101,"1204,00083-0167-02 ",.02)
;;00083-0167-02
;;9002226.02101,"1204,00083-0167-74 ",.01)
;;00083-0167-74
;;9002226.02101,"1204,00083-0167-74 ",.02)
;;00083-0167-74
;;9002226.02101,"1204,00085-0736-04 ",.01)
;;00085-0736-04
;;9002226.02101,"1204,00085-0736-04 ",.02)
;;00085-0736-04
;;9002226.02101,"1204,00085-1112-01 ",.01)
;;00085-1112-01
;;9002226.02101,"1204,00085-1112-01 ",.02)
;;00085-1112-01
;;9002226.02101,"1204,00085-1112-03 ",.01)
;;00085-1112-03
;;9002226.02101,"1204,00085-1112-03 ",.02)
;;00085-1112-03
;;9002226.02101,"1204,00085-1341-01 ",.01)
;;00085-1341-01
;;9002226.02101,"1204,00085-1341-01 ",.02)
;;00085-1341-01
;;9002226.02101,"1204,00085-1341-02 ",.01)
;;00085-1341-02
;;9002226.02101,"1204,00085-1341-02 ",.02)
;;00085-1341-02
;;9002226.02101,"1204,00085-1341-03 ",.01)
;;00085-1341-03
;;9002226.02101,"1204,00085-1341-03 ",.02)
;;00085-1341-03
;;9002226.02101,"1204,00085-1341-04 ",.01)
;;00085-1341-04
BGP21O4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 14, 2011;
+1 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
+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,"65162-0335-10 ")
+2 ;;341
+3 ;;21,"65243-0279-18 ")
+4 ;;398
+5 ;;21,"66105-0164-02 ")
+6 ;;100
+7 ;;21,"66105-0164-03 ")
+8 ;;101
+9 ;;21,"66105-0164-06 ")
+10 ;;102
+11 ;;21,"66105-0164-09 ")
+12 ;;103
+13 ;;21,"66105-0164-10 ")
+14 ;;104
+15 ;;21,"66267-1300-00 ")
+16 ;;179
+17 ;;21,"66336-0596-30 ")
+18 ;;459
+19 ;;21,"67781-0251-01 ")
+20 ;;479
+21 ;;21,"67781-0251-05 ")
+22 ;;480
+23 ;;21,"67781-0252-01 ")
+24 ;;486
+25 ;;21,"68115-0328-60 ")
+26 ;;460
+27 ;;21,"68115-0547-20 ")
+28 ;;270
+29 ;;21,"68115-0637-13 ")
+30 ;;247
+31 ;;21,"68115-0638-60 ")
+32 ;;122
+33 ;;21,"68115-0651-60 ")
+34 ;;136
+35 ;;21,"68115-0652-01 ")
+36 ;;209
+37 ;;21,"68115-0653-01 ")
+38 ;;210
+39 ;;21,"68115-0657-01 ")
+40 ;;36
+41 ;;21,"68115-0760-01 ")
+42 ;;16
+43 ;;21,"68115-0775-07 ")
+44 ;;187
+45 ;;21,"68115-0923-30 ")
+46 ;;105
+47 ;;21,"68115-0923-90 ")
+48 ;;106
+49 ;;21,"68115-0924-60 ")
+50 ;;27
+51 ;;21,"68258-3032-03 ")
+52 ;;70
+53 ;;21,"68258-3033-03 ")
+54 ;;107
+55 ;;21,"68462-0356-01 ")
+56 ;;487
+57 ;;21,"68462-0380-01 ")
+58 ;;481
+59 ;;21,"68734-0700-10 ")
+60 ;;125
+61 ;;21,"68734-0710-10 ")
+62 ;;127
+63 ;;9002226,1204,.01)
+64 ;;BGP PQA CONTROLLER NDC
+65 ;;9002226,1204,.02)
+66 ;;BGP PQA
+67 ;;9002226,1204,.04)
+68 ;;n
+69 ;;9002226,1204,.06)
+70 ;;@
+71 ;;9002226,1204,.08)
+72 ;;@
+73 ;;9002226,1204,.09)
+74 ;;@
+75 ;;9002226,1204,.11)
+76 ;;@
+77 ;;9002226,1204,.12)
+78 ;;@
+79 ;;9002226,1204,.13)
+80 ;;1
+81 ;;9002226,1204,.14)
+82 ;;@
+83 ;;9002226,1204,.15)
+84 ;;@
+85 ;;9002226,1204,.16)
+86 ;;@
+87 ;;9002226,1204,.17)
+88 ;;@
+89 ;;9002226,1204,3101)
+90 ;;@
+91 ;;9002226.02101,"1204,00006-0117-01 ",.01)
+92 ;;00006-0117-01
+93 ;;9002226.02101,"1204,00006-0117-01 ",.02)
+94 ;;00006-0117-01
+95 ;;9002226.02101,"1204,00006-0117-28 ",.01)
+96 ;;00006-0117-28
+97 ;;9002226.02101,"1204,00006-0117-28 ",.02)
+98 ;;00006-0117-28
+99 ;;9002226.02101,"1204,00006-0117-31 ",.01)
+100 ;;00006-0117-31
+101 ;;9002226.02101,"1204,00006-0117-31 ",.02)
+102 ;;00006-0117-31
+103 ;;9002226.02101,"1204,00006-0117-54 ",.01)
+104 ;;00006-0117-54
+105 ;;9002226.02101,"1204,00006-0117-54 ",.02)
+106 ;;00006-0117-54
+107 ;;9002226.02101,"1204,00006-0117-80 ",.01)
+108 ;;00006-0117-80
+109 ;;9002226.02101,"1204,00006-0117-80 ",.02)
+110 ;;00006-0117-80
+111 ;;9002226.02101,"1204,00006-0275-01 ",.01)
+112 ;;00006-0275-01
+113 ;;9002226.02101,"1204,00006-0275-01 ",.02)
+114 ;;00006-0275-01
+115 ;;9002226.02101,"1204,00006-0275-28 ",.01)
+116 ;;00006-0275-28
+117 ;;9002226.02101,"1204,00006-0275-28 ",.02)
+118 ;;00006-0275-28
+119 ;;9002226.02101,"1204,00006-0275-31 ",.01)
+120 ;;00006-0275-31
+121 ;;9002226.02101,"1204,00006-0275-31 ",.02)
+122 ;;00006-0275-31
+123 ;;9002226.02101,"1204,00006-0275-54 ",.01)
+124 ;;00006-0275-54
+125 ;;9002226.02101,"1204,00006-0275-54 ",.02)
+126 ;;00006-0275-54
+127 ;;9002226.02101,"1204,00006-0275-82 ",.01)
+128 ;;00006-0275-82
+129 ;;9002226.02101,"1204,00006-0275-82 ",.02)
+130 ;;00006-0275-82
+131 ;;9002226.02101,"1204,00006-0711-01 ",.01)
+132 ;;00006-0711-01
+133 ;;9002226.02101,"1204,00006-0711-01 ",.02)
+134 ;;00006-0711-01
+135 ;;9002226.02101,"1204,00006-0711-28 ",.01)
+136 ;;00006-0711-28
+137 ;;9002226.02101,"1204,00006-0711-28 ",.02)
+138 ;;00006-0711-28
+139 ;;9002226.02101,"1204,00006-0711-31 ",.01)
+140 ;;00006-0711-31
+141 ;;9002226.02101,"1204,00006-0711-31 ",.02)
+142 ;;00006-0711-31
+143 ;;9002226.02101,"1204,00006-0711-54 ",.01)
+144 ;;00006-0711-54
+145 ;;9002226.02101,"1204,00006-0711-54 ",.02)
+146 ;;00006-0711-54
+147 ;;9002226.02101,"1204,00006-3841-30 ",.01)
+148 ;;00006-3841-30
+149 ;;9002226.02101,"1204,00006-3841-30 ",.02)
+150 ;;00006-3841-30
+151 ;;9002226.02101,"1204,00034-7004-70 ",.01)
+152 ;;00034-7004-70
+153 ;;9002226.02101,"1204,00034-7004-70 ",.02)
+154 ;;00034-7004-70
+155 ;;9002226.02101,"1204,00034-7004-80 ",.01)
+156 ;;00034-7004-80
+157 ;;9002226.02101,"1204,00034-7004-80 ",.02)
+158 ;;00034-7004-80
+159 ;;9002226.02101,"1204,00034-7006-80 ",.01)
+160 ;;00034-7006-80
+161 ;;9002226.02101,"1204,00034-7006-80 ",.02)
+162 ;;00034-7006-80
+163 ;;9002226.02101,"1204,00034-7102-80 ",.01)
+164 ;;00034-7102-80
+165 ;;9002226.02101,"1204,00034-7102-80 ",.02)
+166 ;;00034-7102-80
+167 ;;9002226.02101,"1204,00074-3014-60 ",.01)
+168 ;;00074-3014-60
+169 ;;9002226.02101,"1204,00074-3014-60 ",.02)
+170 ;;00074-3014-60
+171 ;;9002226.02101,"1204,00074-8036-22 ",.01)
+172 ;;00074-8036-22
+173 ;;9002226.02101,"1204,00074-8036-22 ",.02)
+174 ;;00074-8036-22
+175 ;;9002226.02101,"1204,00075-0060-37 ",.01)
+176 ;;00075-0060-37
+177 ;;9002226.02101,"1204,00075-0060-37 ",.02)
+178 ;;00075-0060-37
+179 ;;9002226.02101,"1204,00083-0167-02 ",.01)
+180 ;;00083-0167-02
+181 ;;9002226.02101,"1204,00083-0167-02 ",.02)
+182 ;;00083-0167-02
+183 ;;9002226.02101,"1204,00083-0167-74 ",.01)
+184 ;;00083-0167-74
+185 ;;9002226.02101,"1204,00083-0167-74 ",.02)
+186 ;;00083-0167-74
+187 ;;9002226.02101,"1204,00085-0736-04 ",.01)
+188 ;;00085-0736-04
+189 ;;9002226.02101,"1204,00085-0736-04 ",.02)
+190 ;;00085-0736-04
+191 ;;9002226.02101,"1204,00085-1112-01 ",.01)
+192 ;;00085-1112-01
+193 ;;9002226.02101,"1204,00085-1112-01 ",.02)
+194 ;;00085-1112-01
+195 ;;9002226.02101,"1204,00085-1112-03 ",.01)
+196 ;;00085-1112-03
+197 ;;9002226.02101,"1204,00085-1112-03 ",.02)
+198 ;;00085-1112-03
+199 ;;9002226.02101,"1204,00085-1341-01 ",.01)
+200 ;;00085-1341-01
+201 ;;9002226.02101,"1204,00085-1341-01 ",.02)
+202 ;;00085-1341-01
+203 ;;9002226.02101,"1204,00085-1341-02 ",.01)
+204 ;;00085-1341-02
+205 ;;9002226.02101,"1204,00085-1341-02 ",.02)
+206 ;;00085-1341-02
+207 ;;9002226.02101,"1204,00085-1341-03 ",.01)
+208 ;;00085-1341-03
+209 ;;9002226.02101,"1204,00085-1341-03 ",.02)
+210 ;;00085-1341-03
+211 ;;9002226.02101,"1204,00085-1341-04 ",.01)
+212 ;;00085-1341-04
