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

BGPM5AYQ.m

Go to the documentation of this file.
  1. BGPM5AYQ ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 31, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1027,72197 ",.01)
  1. ;;72197
  1. ;;9002226.02101,"1027,72197 ",.02)
  1. ;;72197
  1. ;;9002226.02101,"1027,72198 ",.01)
  1. ;;72198
  1. ;;9002226.02101,"1027,72198 ",.02)
  1. ;;72198
  1. ;;9002226.02101,"1027,72200 ",.01)
  1. ;;72200
  1. ;;9002226.02101,"1027,72200 ",.02)
  1. ;;72200
  1. ;;9002226.02101,"1027,72202 ",.01)
  1. ;;72202
  1. ;;9002226.02101,"1027,72202 ",.02)
  1. ;;72202
  1. ;;9002226.02101,"1027,72220 ",.01)
  1. ;;72220
  1. ;;9002226.02101,"1027,72220 ",.02)
  1. ;;72220
  1. ;;9002226.02101,"1027,72240 ",.01)
  1. ;;72240
  1. ;;9002226.02101,"1027,72240 ",.02)
  1. ;;72240
  1. ;;9002226.02101,"1027,72255 ",.01)
  1. ;;72255
  1. ;;9002226.02101,"1027,72255 ",.02)
  1. ;;72255
  1. ;;9002226.02101,"1027,72265 ",.01)
  1. ;;72265
  1. ;;9002226.02101,"1027,72265 ",.02)
  1. ;;72265
  1. ;;9002226.02101,"1027,72270 ",.01)
  1. ;;72270
  1. ;;9002226.02101,"1027,72270 ",.02)
  1. ;;72270
  1. ;;9002226.02101,"1027,72275 ",.01)
  1. ;;72275
  1. ;;9002226.02101,"1027,72275 ",.02)
  1. ;;72275
  1. ;;9002226.02101,"1027,72285 ",.01)
  1. ;;72285
  1. ;;9002226.02101,"1027,72285 ",.02)
  1. ;;72285
  1. ;;9002226.02101,"1027,72291 ",.01)
  1. ;;72291
  1. ;;9002226.02101,"1027,72291 ",.02)
  1. ;;72291
  1. ;;9002226.02101,"1027,72292 ",.01)
  1. ;;72292
  1. ;;9002226.02101,"1027,72292 ",.02)
  1. ;;72292
  1. ;;9002226.02101,"1027,72295 ",.01)
  1. ;;72295
  1. ;;9002226.02101,"1027,72295 ",.02)
  1. ;;72295
  1. ;;9002226.02101,"1027,73000 ",.01)
  1. ;;73000
  1. ;;9002226.02101,"1027,73000 ",.02)
  1. ;;73000
  1. ;;9002226.02101,"1027,73010 ",.01)
  1. ;;73010
  1. ;;9002226.02101,"1027,73010 ",.02)
  1. ;;73010
  1. ;;9002226.02101,"1027,73020 ",.01)
  1. ;;73020
  1. ;;9002226.02101,"1027,73020 ",.02)
  1. ;;73020
  1. ;;9002226.02101,"1027,73030 ",.01)
  1. ;;73030
  1. ;;9002226.02101,"1027,73030 ",.02)
  1. ;;73030
  1. ;;9002226.02101,"1027,73040 ",.01)
  1. ;;73040
  1. ;;9002226.02101,"1027,73040 ",.02)
  1. ;;73040
  1. ;;9002226.02101,"1027,73050 ",.01)
  1. ;;73050
  1. ;;9002226.02101,"1027,73050 ",.02)
  1. ;;73050
  1. ;;9002226.02101,"1027,73060 ",.01)
  1. ;;73060
  1. ;;9002226.02101,"1027,73060 ",.02)
  1. ;;73060
  1. ;;9002226.02101,"1027,73070 ",.01)
  1. ;;73070
  1. ;;9002226.02101,"1027,73070 ",.02)
  1. ;;73070
  1. ;;9002226.02101,"1027,73080 ",.01)
  1. ;;73080
  1. ;;9002226.02101,"1027,73080 ",.02)
  1. ;;73080
  1. ;;9002226.02101,"1027,73085 ",.01)
  1. ;;73085
  1. ;;9002226.02101,"1027,73085 ",.02)
  1. ;;73085
  1. ;;9002226.02101,"1027,73090 ",.01)
  1. ;;73090
  1. ;;9002226.02101,"1027,73090 ",.02)
  1. ;;73090
  1. ;;9002226.02101,"1027,73092 ",.01)
  1. ;;73092
  1. ;;9002226.02101,"1027,73092 ",.02)
  1. ;;73092
  1. ;;9002226.02101,"1027,73100 ",.01)
  1. ;;73100
  1. ;;9002226.02101,"1027,73100 ",.02)
  1. ;;73100
  1. ;;9002226.02101,"1027,73110 ",.01)
  1. ;;73110
  1. ;;9002226.02101,"1027,73110 ",.02)
  1. ;;73110
  1. ;;9002226.02101,"1027,73115 ",.01)
  1. ;;73115
  1. ;;9002226.02101,"1027,73115 ",.02)
  1. ;;73115
  1. ;;9002226.02101,"1027,73120 ",.01)
  1. ;;73120
  1. ;;9002226.02101,"1027,73120 ",.02)
  1. ;;73120
  1. ;;9002226.02101,"1027,73130 ",.01)
  1. ;;73130
  1. ;;9002226.02101,"1027,73130 ",.02)
  1. ;;73130
  1. ;;9002226.02101,"1027,73140 ",.01)
  1. ;;73140
  1. ;;9002226.02101,"1027,73140 ",.02)
  1. ;;73140
  1. ;;9002226.02101,"1027,73200 ",.01)
  1. ;;73200
  1. ;;9002226.02101,"1027,73200 ",.02)
  1. ;;73200
  1. ;;9002226.02101,"1027,73201 ",.01)
  1. ;;73201
  1. ;;9002226.02101,"1027,73201 ",.02)
  1. ;;73201
  1. ;;9002226.02101,"1027,73202 ",.01)
  1. ;;73202
  1. ;;9002226.02101,"1027,73202 ",.02)
  1. ;;73202
  1. ;;9002226.02101,"1027,73206 ",.01)
  1. ;;73206
  1. ;;9002226.02101,"1027,73206 ",.02)
  1. ;;73206
  1. ;;9002226.02101,"1027,73218 ",.01)
  1. ;;73218
  1. ;;9002226.02101,"1027,73218 ",.02)
  1. ;;73218
  1. ;;9002226.02101,"1027,73219 ",.01)
  1. ;;73219
  1. ;;9002226.02101,"1027,73219 ",.02)
  1. ;;73219
  1. ;;9002226.02101,"1027,73220 ",.01)
  1. ;;73220
  1. ;;9002226.02101,"1027,73220 ",.02)
  1. ;;73220
  1. ;;9002226.02101,"1027,73221 ",.01)
  1. ;;73221
  1. ;;9002226.02101,"1027,73221 ",.02)
  1. ;;73221
  1. ;;9002226.02101,"1027,73222 ",.01)
  1. ;;73222
  1. ;;9002226.02101,"1027,73222 ",.02)
  1. ;;73222
  1. ;;9002226.02101,"1027,73223 ",.01)
  1. ;;73223
  1. ;;9002226.02101,"1027,73223 ",.02)
  1. ;;73223
  1. ;;9002226.02101,"1027,73225 ",.01)
  1. ;;73225
  1. ;;9002226.02101,"1027,73225 ",.02)
  1. ;;73225
  1. ;;9002226.02101,"1027,73500 ",.01)
  1. ;;73500
  1. ;;9002226.02101,"1027,73500 ",.02)
  1. ;;73500
  1. ;;9002226.02101,"1027,73510 ",.01)
  1. ;;73510
  1. ;;9002226.02101,"1027,73510 ",.02)
  1. ;;73510
  1. ;;9002226.02101,"1027,73520 ",.01)
  1. ;;73520
  1. ;;9002226.02101,"1027,73520 ",.02)
  1. ;;73520
  1. ;;9002226.02101,"1027,73525 ",.01)
  1. ;;73525
  1. ;;9002226.02101,"1027,73525 ",.02)
  1. ;;73525
  1. ;;9002226.02101,"1027,73530 ",.01)
  1. ;;73530
  1. ;;9002226.02101,"1027,73530 ",.02)
  1. ;;73530
  1. ;;9002226.02101,"1027,73540 ",.01)
  1. ;;73540
  1. ;;9002226.02101,"1027,73540 ",.02)
  1. ;;73540
  1. ;;9002226.02101,"1027,73542 ",.01)
  1. ;;73542
  1. ;;9002226.02101,"1027,73542 ",.02)
  1. ;;73542
  1. ;;9002226.02101,"1027,73550 ",.01)
  1. ;;73550
  1. ;;9002226.02101,"1027,73550 ",.02)
  1. ;;73550
  1. ;;9002226.02101,"1027,73560 ",.01)
  1. ;;73560
  1. ;;9002226.02101,"1027,73560 ",.02)
  1. ;;73560
  1. ;;9002226.02101,"1027,73562 ",.01)
  1. ;;73562
  1. ;;9002226.02101,"1027,73562 ",.02)
  1. ;;73562
  1. ;;9002226.02101,"1027,73564 ",.01)
  1. ;;73564
  1. ;;9002226.02101,"1027,73564 ",.02)
  1. ;;73564
  1. ;;9002226.02101,"1027,73565 ",.01)
  1. ;;73565
  1. ;;9002226.02101,"1027,73565 ",.02)
  1. ;;73565
  1. ;;9002226.02101,"1027,73580 ",.01)
  1. ;;73580
  1. ;;9002226.02101,"1027,73580 ",.02)
  1. ;;73580
  1. ;;9002226.02101,"1027,73590 ",.01)
  1. ;;73590
  1. ;;9002226.02101,"1027,73590 ",.02)
  1. ;;73590
  1. ;;9002226.02101,"1027,73592 ",.01)
  1. ;;73592
  1. ;;9002226.02101,"1027,73592 ",.02)
  1. ;;73592
  1. ;;9002226.02101,"1027,73600 ",.01)
  1. ;;73600
  1. ;;9002226.02101,"1027,73600 ",.02)
  1. ;;73600
  1. ;;9002226.02101,"1027,73610 ",.01)
  1. ;;73610
  1. ;;9002226.02101,"1027,73610 ",.02)
  1. ;;73610
  1. ;;9002226.02101,"1027,73615 ",.01)
  1. ;;73615
  1. ;;9002226.02101,"1027,73615 ",.02)
  1. ;;73615
  1. ;;9002226.02101,"1027,73620 ",.01)
  1. ;;73620
  1. ;;9002226.02101,"1027,73620 ",.02)
  1. ;;73620
  1. ;;9002226.02101,"1027,73630 ",.01)
  1. ;;73630
  1. ;;9002226.02101,"1027,73630 ",.02)
  1. ;;73630
  1. ;;9002226.02101,"1027,73650 ",.01)
  1. ;;73650
  1. ;;9002226.02101,"1027,73650 ",.02)
  1. ;;73650
  1. ;;9002226.02101,"1027,73660 ",.01)
  1. ;;73660
  1. ;;9002226.02101,"1027,73660 ",.02)
  1. ;;73660
  1. ;;9002226.02101,"1027,73700 ",.01)
  1. ;;73700
  1. ;;9002226.02101,"1027,73700 ",.02)
  1. ;;73700
  1. ;;9002226.02101,"1027,73701 ",.01)
  1. ;;73701
  1. ;;9002226.02101,"1027,73701 ",.02)
  1. ;;73701
  1. ;;9002226.02101,"1027,73702 ",.01)
  1. ;;73702
  1. ;;9002226.02101,"1027,73702 ",.02)
  1. ;;73702
  1. ;;9002226.02101,"1027,73706 ",.01)
  1. ;;73706
  1. ;;9002226.02101,"1027,73706 ",.02)
  1. ;;73706
  1. ;;9002226.02101,"1027,73718 ",.01)
  1. ;;73718
  1. ;;9002226.02101,"1027,73718 ",.02)
  1. ;;73718
  1. ;;9002226.02101,"1027,73719 ",.01)
  1. ;;73719
  1. ;;9002226.02101,"1027,73719 ",.02)
  1. ;;73719
  1. ;;9002226.02101,"1027,73720 ",.01)
  1. ;;73720
  1. ;;9002226.02101,"1027,73720 ",.02)
  1. ;;73720
  1. ;;9002226.02101,"1027,73721 ",.01)
  1. ;;73721
  1. ;;9002226.02101,"1027,73721 ",.02)
  1. ;;73721
  1. ;;9002226.02101,"1027,73722 ",.01)
  1. ;;73722
  1. ;;9002226.02101,"1027,73722 ",.02)
  1. ;;73722
  1. ;;9002226.02101,"1027,73723 ",.01)
  1. ;;73723
  1. ;;9002226.02101,"1027,73723 ",.02)
  1. ;;73723
  1. ;;9002226.02101,"1027,73725 ",.01)
  1. ;;73725
  1. ;;9002226.02101,"1027,73725 ",.02)
  1. ;;73725
  1. ;;9002226.02101,"1027,74000 ",.01)
  1. ;;74000
  1. ;;9002226.02101,"1027,74000 ",.02)
  1. ;;74000
  1. ;;9002226.02101,"1027,74010 ",.01)
  1. ;;74010
  1. ;;9002226.02101,"1027,74010 ",.02)
  1. ;;74010
  1. ;;9002226.02101,"1027,74020 ",.01)
  1. ;;74020
  1. ;;9002226.02101,"1027,74020 ",.02)
  1. ;;74020
  1. ;;9002226.02101,"1027,74022 ",.01)
  1. ;;74022
  1. ;;9002226.02101,"1027,74022 ",.02)
  1. ;;74022
  1. ;;9002226.02101,"1027,74150 ",.01)
  1. ;;74150
  1. ;;9002226.02101,"1027,74150 ",.02)
  1. ;;74150
  1. ;;9002226.02101,"1027,74160 ",.01)
  1. ;;74160
  1. ;;9002226.02101,"1027,74160 ",.02)
  1. ;;74160
  1. ;;9002226.02101,"1027,74170 ",.01)
  1. ;;74170
  1. ;;9002226.02101,"1027,74170 ",.02)
  1. ;;74170
  1. ;;9002226.02101,"1027,74175 ",.01)
  1. ;;74175
  1. ;;9002226.02101,"1027,74175 ",.02)
  1. ;;74175
  1. ;;9002226.02101,"1027,74181 ",.01)
  1. ;;74181
  1. ;;9002226.02101,"1027,74181 ",.02)
  1. ;;74181
  1. ;;9002226.02101,"1027,74182 ",.01)
  1. ;;74182
  1. ;;9002226.02101,"1027,74182 ",.02)
  1. ;;74182
  1. ;;9002226.02101,"1027,74183 ",.01)
  1. ;;74183
  1. ;;9002226.02101,"1027,74183 ",.02)
  1. ;;74183
  1. ;;9002226.02101,"1027,74185 ",.01)
  1. ;;74185
  1. ;;9002226.02101,"1027,74185 ",.02)
  1. ;;74185
  1. ;;9002226.02101,"1027,74190 ",.01)
  1. ;;74190
  1. ;;9002226.02101,"1027,74190 ",.02)
  1. ;;74190
  1. ;;9002226.02101,"1027,74210 ",.01)
  1. ;;74210
  1. ;;9002226.02101,"1027,74210 ",.02)
  1. ;;74210
  1. ;;9002226.02101,"1027,74220 ",.01)
  1. ;;74220
  1. ;;9002226.02101,"1027,74220 ",.02)
  1. ;;74220
  1. ;;9002226.02101,"1027,74230 ",.01)
  1. ;;74230
  1. ;;9002226.02101,"1027,74230 ",.02)
  1. ;;74230
  1. ;;9002226.02101,"1027,74235 ",.01)
  1. ;;74235
  1. ;;9002226.02101,"1027,74235 ",.02)
  1. ;;74235
  1. ;;9002226.02101,"1027,74240 ",.01)
  1. ;;74240
  1. ;;9002226.02101,"1027,74240 ",.02)
  1. ;;74240
  1. ;;9002226.02101,"1027,74241 ",.01)
  1. ;;74241
  1. ;;9002226.02101,"1027,74241 ",.02)
  1. ;;74241
  1. ;;9002226.02101,"1027,74245 ",.01)
  1. ;;74245
  1. ;;9002226.02101,"1027,74245 ",.02)
  1. ;;74245
  1. ;;9002226.02101,"1027,74246 ",.01)
  1. ;;74246
  1. ;;9002226.02101,"1027,74246 ",.02)
  1. ;;74246
  1. ;;9002226.02101,"1027,74247 ",.01)
  1. ;;74247
  1. ;;9002226.02101,"1027,74247 ",.02)
  1. ;;74247
  1. ;;9002226.02101,"1027,74249 ",.01)
  1. ;;74249
  1. ;;9002226.02101,"1027,74249 ",.02)
  1. ;;74249
  1. ;;9002226.02101,"1027,74250 ",.01)
  1. ;;74250
  1. ;;9002226.02101,"1027,74250 ",.02)
  1. ;;74250
  1. ;;9002226.02101,"1027,74251 ",.01)
  1. ;;74251
  1. ;;9002226.02101,"1027,74251 ",.02)
  1. ;;74251
  1. ;;9002226.02101,"1027,74260 ",.01)
  1. ;;74260
  1. ;;9002226.02101,"1027,74260 ",.02)
  1. ;;74260
  1. ;;9002226.02101,"1027,74270 ",.01)
  1. ;;74270
  1. ;;9002226.02101,"1027,74270 ",.02)
  1. ;;74270
  1. ;;9002226.02101,"1027,74280 ",.01)
  1. ;;74280
  1. ;;9002226.02101,"1027,74280 ",.02)
  1. ;;74280
  1. ;;9002226.02101,"1027,74283 ",.01)
  1. ;;74283
  1. ;;9002226.02101,"1027,74283 ",.02)
  1. ;;74283
  1. ;;9002226.02101,"1027,74290 ",.01)
  1. ;;74290
  1. ;;9002226.02101,"1027,74290 ",.02)
  1. ;;74290
  1. ;;9002226.02101,"1027,74291 ",.01)
  1. ;;74291
  1. ;;9002226.02101,"1027,74291 ",.02)
  1. ;;74291
  1. ;;9002226.02101,"1027,74300 ",.01)
  1. ;;74300
  1. ;;9002226.02101,"1027,74300 ",.02)
  1. ;;74300
  1. ;;9002226.02101,"1027,74301 ",.01)
  1. ;;74301
  1. ;;9002226.02101,"1027,74301 ",.02)
  1. ;;74301
  1. ;;9002226.02101,"1027,74305 ",.01)
  1. ;;74305
  1. ;;9002226.02101,"1027,74305 ",.02)
  1. ;;74305
  1. ;;9002226.02101,"1027,74320 ",.01)
  1. ;;74320
  1. ;;9002226.02101,"1027,74320 ",.02)
  1. ;;74320
  1. ;;9002226.02101,"1027,74327 ",.01)
  1. ;;74327
  1. ;;9002226.02101,"1027,74327 ",.02)
  1. ;;74327
  1. ;;9002226.02101,"1027,74328 ",.01)
  1. ;;74328
  1. ;;9002226.02101,"1027,74328 ",.02)
  1. ;;74328
  1. ;;9002226.02101,"1027,74329 ",.01)
  1. ;;74329
  1. ;;9002226.02101,"1027,74329 ",.02)
  1. ;;74329
  1. ;;9002226.02101,"1027,74330 ",.01)
  1. ;;74330
  1. ;;9002226.02101,"1027,74330 ",.02)
  1. ;;74330
  1. ;;9002226.02101,"1027,74340 ",.01)
  1. ;;74340
  1. ;;9002226.02101,"1027,74340 ",.02)
  1. ;;74340
  1. ;;9002226.02101,"1027,74350 ",.01)
  1. ;;74350
  1. ;;9002226.02101,"1027,74350 ",.02)
  1. ;;74350
  1. ;;9002226.02101,"1027,74355 ",.01)
  1. ;;74355
  1. ;;9002226.02101,"1027,74355 ",.02)
  1. ;;74355
  1. ;;9002226.02101,"1027,74360 ",.01)
  1. ;;74360
  1. ;;9002226.02101,"1027,74360 ",.02)
  1. ;;74360
  1. ;;9002226.02101,"1027,74363 ",.01)
  1. ;;74363
  1. ;;9002226.02101,"1027,74363 ",.02)
  1. ;;74363
  1. ;;9002226.02101,"1027,74400 ",.01)
  1. ;;74400
  1. ;;9002226.02101,"1027,74400 ",.02)
  1. ;;74400
  1. ;;9002226.02101,"1027,74410 ",.01)
  1. ;;74410
  1. ;;9002226.02101,"1027,74410 ",.02)
  1. ;;74410
  1. ;;9002226.02101,"1027,74415 ",.01)
  1. ;;74415
  1. ;;9002226.02101,"1027,74415 ",.02)
  1. ;;74415
  1. ;;9002226.02101,"1027,74420 ",.01)
  1. ;;74420
  1. ;;9002226.02101,"1027,74420 ",.02)
  1. ;;74420