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