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

BGPM5AHJ.m

Go to the documentation of this file.
  1. BGPM5AHJ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"882,62037053390 ",.02)
  1. ;;62037053390
  1. ;;9002226.02101,"882,62037053410 ",.01)
  1. ;;62037053410
  1. ;;9002226.02101,"882,62037053410 ",.02)
  1. ;;62037053410
  1. ;;9002226.02101,"882,62037053490 ",.01)
  1. ;;62037053490
  1. ;;9002226.02101,"882,62037053490 ",.02)
  1. ;;62037053490
  1. ;;9002226.02101,"882,62037093505 ",.01)
  1. ;;62037093505
  1. ;;9002226.02101,"882,62037093505 ",.02)
  1. ;;62037093505
  1. ;;9002226.02101,"882,62037093510 ",.01)
  1. ;;62037093510
  1. ;;9002226.02101,"882,62037093510 ",.02)
  1. ;;62037093510
  1. ;;9002226.02101,"882,62037093530 ",.01)
  1. ;;62037093530
  1. ;;9002226.02101,"882,62037093530 ",.02)
  1. ;;62037093530
  1. ;;9002226.02101,"882,62037093590 ",.01)
  1. ;;62037093590
  1. ;;9002226.02101,"882,62037093590 ",.02)
  1. ;;62037093590
  1. ;;9002226.02101,"882,62037093605 ",.01)
  1. ;;62037093605
  1. ;;9002226.02101,"882,62037093605 ",.02)
  1. ;;62037093605
  1. ;;9002226.02101,"882,62037093610 ",.01)
  1. ;;62037093610
  1. ;;9002226.02101,"882,62037093610 ",.02)
  1. ;;62037093610
  1. ;;9002226.02101,"882,62037093630 ",.01)
  1. ;;62037093630
  1. ;;9002226.02101,"882,62037093630 ",.02)
  1. ;;62037093630
  1. ;;9002226.02101,"882,62037093690 ",.01)
  1. ;;62037093690
  1. ;;9002226.02101,"882,62037093690 ",.02)
  1. ;;62037093690
  1. ;;9002226.02101,"882,62037093705 ",.01)
  1. ;;62037093705
  1. ;;9002226.02101,"882,62037093705 ",.02)
  1. ;;62037093705
  1. ;;9002226.02101,"882,62037093710 ",.01)
  1. ;;62037093710
  1. ;;9002226.02101,"882,62037093710 ",.02)
  1. ;;62037093710
  1. ;;9002226.02101,"882,62037093730 ",.01)
  1. ;;62037093730
  1. ;;9002226.02101,"882,62037093730 ",.02)
  1. ;;62037093730
  1. ;;9002226.02101,"882,62037093790 ",.01)
  1. ;;62037093790
  1. ;;9002226.02101,"882,62037093790 ",.02)
  1. ;;62037093790
  1. ;;9002226.02101,"882,62175017137 ",.01)
  1. ;;62175017137
  1. ;;9002226.02101,"882,62175017137 ",.02)
  1. ;;62175017137
  1. ;;9002226.02101,"882,62175017737 ",.01)
  1. ;;62175017737
  1. ;;9002226.02101,"882,62175017737 ",.02)
  1. ;;62175017737
  1. ;;9002226.02101,"882,62175071237 ",.01)
  1. ;;62175071237
  1. ;;9002226.02101,"882,62175071237 ",.02)
  1. ;;62175071237
  1. ;;9002226.02101,"882,62175072037 ",.01)
  1. ;;62175072037
  1. ;;9002226.02101,"882,62175072037 ",.02)
  1. ;;62175072037
  1. ;;9002226.02101,"882,62175072537 ",.01)
  1. ;;62175072537
  1. ;;9002226.02101,"882,62175072537 ",.02)
  1. ;;62175072537
  1. ;;9002226.02101,"882,62318018400 ",.01)
  1. ;;62318018400
  1. ;;9002226.02101,"882,62318018400 ",.02)
  1. ;;62318018400
  1. ;;9002226.02101,"882,62318018401 ",.01)
  1. ;;62318018401
  1. ;;9002226.02101,"882,62318018401 ",.02)
  1. ;;62318018401
  1. ;;9002226.02101,"882,62318018500 ",.01)
  1. ;;62318018500
  1. ;;9002226.02101,"882,62318018500 ",.02)
  1. ;;62318018500
  1. ;;9002226.02101,"882,62318018501 ",.01)
  1. ;;62318018501
  1. ;;9002226.02101,"882,62318018501 ",.02)
  1. ;;62318018501
  1. ;;9002226.02101,"882,62318018600 ",.01)
  1. ;;62318018600
  1. ;;9002226.02101,"882,62318018600 ",.02)
  1. ;;62318018600
  1. ;;9002226.02101,"882,62318018601 ",.01)
  1. ;;62318018601
  1. ;;9002226.02101,"882,62318018601 ",.02)
  1. ;;62318018601
  1. ;;9002226.02101,"882,62318018700 ",.01)
  1. ;;62318018700
  1. ;;9002226.02101,"882,62318018700 ",.02)
  1. ;;62318018700
  1. ;;9002226.02101,"882,62318018701 ",.01)
  1. ;;62318018701
  1. ;;9002226.02101,"882,62318018701 ",.02)
  1. ;;62318018701
  1. ;;9002226.02101,"882,62318018800 ",.01)
  1. ;;62318018800
  1. ;;9002226.02101,"882,62318018800 ",.02)
  1. ;;62318018800
  1. ;;9002226.02101,"882,62318018801 ",.01)
  1. ;;62318018801
  1. ;;9002226.02101,"882,62318018801 ",.02)
  1. ;;62318018801
  1. ;;9002226.02101,"882,62318018900 ",.01)
  1. ;;62318018900
  1. ;;9002226.02101,"882,62318018900 ",.02)
  1. ;;62318018900
  1. ;;9002226.02101,"882,62318018901 ",.01)
  1. ;;62318018901
  1. ;;9002226.02101,"882,62318018901 ",.02)
  1. ;;62318018901
  1. ;;9002226.02101,"882,62540722203 ",.01)
  1. ;;62540722203
  1. ;;9002226.02101,"882,62540722203 ",.02)
  1. ;;62540722203
  1. ;;9002226.02101,"882,62540722205 ",.01)
  1. ;;62540722205
  1. ;;9002226.02101,"882,62540722205 ",.02)
  1. ;;62540722205
  1. ;;9002226.02101,"882,62540722303 ",.01)
  1. ;;62540722303
  1. ;;9002226.02101,"882,62540722303 ",.02)
  1. ;;62540722303
  1. ;;9002226.02101,"882,62540722305 ",.01)
  1. ;;62540722305
  1. ;;9002226.02101,"882,62540722305 ",.02)
  1. ;;62540722305
  1. ;;9002226.02101,"882,62540722403 ",.01)
  1. ;;62540722403
  1. ;;9002226.02101,"882,62540722403 ",.02)
  1. ;;62540722403
  1. ;;9002226.02101,"882,62540722405 ",.01)
  1. ;;62540722405
  1. ;;9002226.02101,"882,62540722405 ",.02)
  1. ;;62540722405
  1. ;;9002226.02101,"882,62584096585 ",.01)
  1. ;;62584096585
  1. ;;9002226.02101,"882,62584096585 ",.02)
  1. ;;62584096585
  1. ;;9002226.02101,"882,62645040110 ",.01)
  1. ;;62645040110
  1. ;;9002226.02101,"882,62645040110 ",.02)
  1. ;;62645040110
  1. ;;9002226.02101,"882,62756031008 ",.01)
  1. ;;62756031008
  1. ;;9002226.02101,"882,62756031008 ",.02)
  1. ;;62756031008
  1. ;;9002226.02101,"882,62756031018 ",.01)
  1. ;;62756031018
  1. ;;9002226.02101,"882,62756031018 ",.02)
  1. ;;62756031018
  1. ;;9002226.02101,"882,62756031081 ",.01)
  1. ;;62756031081
  1. ;;9002226.02101,"882,62756031081 ",.02)
  1. ;;62756031081
  1. ;;9002226.02101,"882,62756031083 ",.01)
  1. ;;62756031083
  1. ;;9002226.02101,"882,62756031083 ",.02)
  1. ;;62756031083
  1. ;;9002226.02101,"882,62756031088 ",.01)
  1. ;;62756031088
  1. ;;9002226.02101,"882,62756031088 ",.02)
  1. ;;62756031088
  1. ;;9002226.02101,"882,62756031108 ",.01)
  1. ;;62756031108
  1. ;;9002226.02101,"882,62756031108 ",.02)
  1. ;;62756031108
  1. ;;9002226.02101,"882,62756031118 ",.01)
  1. ;;62756031118
  1. ;;9002226.02101,"882,62756031118 ",.02)
  1. ;;62756031118
  1. ;;9002226.02101,"882,62756031181 ",.01)
  1. ;;62756031181
  1. ;;9002226.02101,"882,62756031181 ",.02)
  1. ;;62756031181
  1. ;;9002226.02101,"882,62756031183 ",.01)
  1. ;;62756031183
  1. ;;9002226.02101,"882,62756031183 ",.02)
  1. ;;62756031183
  1. ;;9002226.02101,"882,62756031188 ",.01)
  1. ;;62756031188
  1. ;;9002226.02101,"882,62756031188 ",.02)
  1. ;;62756031188
  1. ;;9002226.02101,"882,62756031208 ",.01)
  1. ;;62756031208
  1. ;;9002226.02101,"882,62756031208 ",.02)
  1. ;;62756031208
  1. ;;9002226.02101,"882,62756031218 ",.01)
  1. ;;62756031218
  1. ;;9002226.02101,"882,62756031218 ",.02)
  1. ;;62756031218
  1. ;;9002226.02101,"882,62756031281 ",.01)
  1. ;;62756031281
  1. ;;9002226.02101,"882,62756031281 ",.02)
  1. ;;62756031281
  1. ;;9002226.02101,"882,62756031283 ",.01)
  1. ;;62756031283
  1. ;;9002226.02101,"882,62756031283 ",.02)
  1. ;;62756031283
  1. ;;9002226.02101,"882,62756031288 ",.01)
  1. ;;62756031288
  1. ;;9002226.02101,"882,62756031288 ",.02)
  1. ;;62756031288
  1. ;;9002226.02101,"882,62756031308 ",.01)
  1. ;;62756031308
  1. ;;9002226.02101,"882,62756031308 ",.02)
  1. ;;62756031308
  1. ;;9002226.02101,"882,62756031318 ",.01)
  1. ;;62756031318
  1. ;;9002226.02101,"882,62756031318 ",.02)
  1. ;;62756031318
  1. ;;9002226.02101,"882,62756031381 ",.01)
  1. ;;62756031381
  1. ;;9002226.02101,"882,62756031381 ",.02)
  1. ;;62756031381
  1. ;;9002226.02101,"882,62756031383 ",.01)
  1. ;;62756031383
  1. ;;9002226.02101,"882,62756031383 ",.02)
  1. ;;62756031383
  1. ;;9002226.02101,"882,62756031388 ",.01)
  1. ;;62756031388
  1. ;;9002226.02101,"882,62756031388 ",.02)
  1. ;;62756031388
  1. ;;9002226.02101,"882,63304016110 ",.01)
  1. ;;63304016110
  1. ;;9002226.02101,"882,63304016110 ",.02)
  1. ;;63304016110
  1. ;;9002226.02101,"882,63304016130 ",.01)
  1. ;;63304016130
  1. ;;9002226.02101,"882,63304016130 ",.02)
  1. ;;63304016130
  1. ;;9002226.02101,"882,63304016190 ",.01)
  1. ;;63304016190
  1. ;;9002226.02101,"882,63304016190 ",.02)
  1. ;;63304016190
  1. ;;9002226.02101,"882,63304016210 ",.01)
  1. ;;63304016210
  1. ;;9002226.02101,"882,63304016210 ",.02)
  1. ;;63304016210
  1. ;;9002226.02101,"882,63304016230 ",.01)
  1. ;;63304016230
  1. ;;9002226.02101,"882,63304016230 ",.02)
  1. ;;63304016230
  1. ;;9002226.02101,"882,63304016290 ",.01)
  1. ;;63304016290
  1. ;;9002226.02101,"882,63304016290 ",.02)
  1. ;;63304016290
  1. ;;9002226.02101,"882,63304016310 ",.01)
  1. ;;63304016310
  1. ;;9002226.02101,"882,63304016310 ",.02)
  1. ;;63304016310
  1. ;;9002226.02101,"882,63304016330 ",.01)
  1. ;;63304016330
  1. ;;9002226.02101,"882,63304016330 ",.02)
  1. ;;63304016330
  1. ;;9002226.02101,"882,63304016390 ",.01)
  1. ;;63304016390
  1. ;;9002226.02101,"882,63304016390 ",.02)
  1. ;;63304016390
  1. ;;9002226.02101,"882,63304040301 ",.01)
  1. ;;63304040301
  1. ;;9002226.02101,"882,63304040301 ",.02)
  1. ;;63304040301
  1. ;;9002226.02101,"882,63304040310 ",.01)
  1. ;;63304040310
  1. ;;9002226.02101,"882,63304040310 ",.02)
  1. ;;63304040310
  1. ;;9002226.02101,"882,63304040330 ",.01)
  1. ;;63304040330
  1. ;;9002226.02101,"882,63304040330 ",.02)
  1. ;;63304040330
  1. ;;9002226.02101,"882,63304040401 ",.01)
  1. ;;63304040401
  1. ;;9002226.02101,"882,63304040401 ",.02)
  1. ;;63304040401
  1. ;;9002226.02101,"882,63304040410 ",.01)
  1. ;;63304040410
  1. ;;9002226.02101,"882,63304040410 ",.02)
  1. ;;63304040410
  1. ;;9002226.02101,"882,63304040430 ",.01)
  1. ;;63304040430
  1. ;;9002226.02101,"882,63304040430 ",.02)
  1. ;;63304040430
  1. ;;9002226.02101,"882,63304044110 ",.01)
  1. ;;63304044110
  1. ;;9002226.02101,"882,63304044110 ",.02)
  1. ;;63304044110
  1. ;;9002226.02101,"882,63304044130 ",.01)
  1. ;;63304044130
  1. ;;9002226.02101,"882,63304044130 ",.02)
  1. ;;63304044130
  1. ;;9002226.02101,"882,63304044169 ",.01)
  1. ;;63304044169
  1. ;;9002226.02101,"882,63304044169 ",.02)
  1. ;;63304044169
  1. ;;9002226.02101,"882,63304044210 ",.01)
  1. ;;63304044210
  1. ;;9002226.02101,"882,63304044210 ",.02)
  1. ;;63304044210
  1. ;;9002226.02101,"882,63304044230 ",.01)
  1. ;;63304044230
  1. ;;9002226.02101,"882,63304044230 ",.02)
  1. ;;63304044230
  1. ;;9002226.02101,"882,63304044269 ",.01)
  1. ;;63304044269
  1. ;;9002226.02101,"882,63304044269 ",.02)
  1. ;;63304044269
  1. ;;9002226.02101,"882,63304052201 ",.01)
  1. ;;63304052201
  1. ;;9002226.02101,"882,63304052201 ",.02)
  1. ;;63304052201
  1. ;;9002226.02101,"882,63304052210 ",.01)
  1. ;;63304052210
  1. ;;9002226.02101,"882,63304052210 ",.02)
  1. ;;63304052210
  1. ;;9002226.02101,"882,63304052301 ",.01)
  1. ;;63304052301
  1. ;;9002226.02101,"882,63304052301 ",.02)
  1. ;;63304052301
  1. ;;9002226.02101,"882,63304052310 ",.01)
  1. ;;63304052310
  1. ;;9002226.02101,"882,63304052310 ",.02)
  1. ;;63304052310
  1. ;;9002226.02101,"882,63304052401 ",.01)
  1. ;;63304052401
  1. ;;9002226.02101,"882,63304052401 ",.02)
  1. ;;63304052401
  1. ;;9002226.02101,"882,63304052410 ",.01)
  1. ;;63304052410
  1. ;;9002226.02101,"882,63304052410 ",.02)
  1. ;;63304052410
  1. ;;9002226.02101,"882,63304052501 ",.01)
  1. ;;63304052501
  1. ;;9002226.02101,"882,63304052501 ",.02)
  1. ;;63304052501
  1. ;;9002226.02101,"882,63304052510 ",.01)
  1. ;;63304052510
  1. ;;9002226.02101,"882,63304052510 ",.02)
  1. ;;63304052510
  1. ;;9002226.02101,"882,63304053101 ",.01)
  1. ;;63304053101
  1. ;;9002226.02101,"882,63304053101 ",.02)
  1. ;;63304053101
  1. ;;9002226.02101,"882,63304053111 ",.01)
  1. ;;63304053111
  1. ;;9002226.02101,"882,63304053111 ",.02)
  1. ;;63304053111
  1. ;;9002226.02101,"882,63304053177 ",.01)
  1. ;;63304053177
  1. ;;9002226.02101,"882,63304053177 ",.02)
  1. ;;63304053177
  1. ;;9002226.02101,"882,63304053201 ",.01)
  1. ;;63304053201
  1. ;;9002226.02101,"882,63304053201 ",.02)
  1. ;;63304053201
  1. ;;9002226.02101,"882,63304053210 ",.01)
  1. ;;63304053210
  1. ;;9002226.02101,"882,63304053210 ",.02)
  1. ;;63304053210
  1. ;;9002226.02101,"882,63304053211 ",.01)
  1. ;;63304053211
  1. ;;9002226.02101,"882,63304053211 ",.02)
  1. ;;63304053211
  1. ;;9002226.02101,"882,63304053277 ",.01)
  1. ;;63304053277
  1. ;;9002226.02101,"882,63304053277 ",.02)
  1. ;;63304053277
  1. ;;9002226.02101,"882,63304053301 ",.01)
  1. ;;63304053301
  1. ;;9002226.02101,"882,63304053301 ",.02)
  1. ;;63304053301
  1. ;;9002226.02101,"882,63304053310 ",.01)
  1. ;;63304053310
  1. ;;9002226.02101,"882,63304053310 ",.02)
  1. ;;63304053310
  1. ;;9002226.02101,"882,63304053311 ",.01)
  1. ;;63304053311
  1. ;;9002226.02101,"882,63304053311 ",.02)
  1. ;;63304053311
  1. ;;9002226.02101,"882,63304053377 ",.01)
  1. ;;63304053377
  1. ;;9002226.02101,"882,63304053377 ",.02)
  1. ;;63304053377
  1. ;;9002226.02101,"882,63304053401 ",.01)
  1. ;;63304053401
  1. ;;9002226.02101,"882,63304053401 ",.02)
  1. ;;63304053401
  1. ;;9002226.02101,"882,63304053410 ",.01)
  1. ;;63304053410
  1. ;;9002226.02101,"882,63304053410 ",.02)
  1. ;;63304053410
  1. ;;9002226.02101,"882,63304053411 ",.01)
  1. ;;63304053411