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

BGPM5AWQ.m

Go to the documentation of this file.
BGPM5AWQ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,64679070302 ",.02)
 ;;64679070302
 ;;9002226.02101,"1033,64679071201 ",.01)
 ;;64679071201
 ;;9002226.02101,"1033,64679071201 ",.02)
 ;;64679071201
 ;;9002226.02101,"1033,64679071202 ",.01)
 ;;64679071202
 ;;9002226.02101,"1033,64679071202 ",.02)
 ;;64679071202
 ;;9002226.02101,"1033,64679071203 ",.01)
 ;;64679071203
 ;;9002226.02101,"1033,64679071203 ",.02)
 ;;64679071203
 ;;9002226.02101,"1033,64679071204 ",.01)
 ;;64679071204
 ;;9002226.02101,"1033,64679071204 ",.02)
 ;;64679071204
 ;;9002226.02101,"1033,64679071301 ",.01)
 ;;64679071301
 ;;9002226.02101,"1033,64679071301 ",.02)
 ;;64679071301
 ;;9002226.02101,"1033,64679071302 ",.01)
 ;;64679071302
 ;;9002226.02101,"1033,64679071302 ",.02)
 ;;64679071302
 ;;9002226.02101,"1033,64679071303 ",.01)
 ;;64679071303
 ;;9002226.02101,"1033,64679071303 ",.02)
 ;;64679071303
 ;;9002226.02101,"1033,64679092001 ",.01)
 ;;64679092001
 ;;9002226.02101,"1033,64679092001 ",.02)
 ;;64679092001
 ;;9002226.02101,"1033,64679092002 ",.01)
 ;;64679092002
 ;;9002226.02101,"1033,64679092002 ",.02)
 ;;64679092002
 ;;9002226.02101,"1033,64679092101 ",.01)
 ;;64679092101
 ;;9002226.02101,"1033,64679092101 ",.02)
 ;;64679092101
 ;;9002226.02101,"1033,64679092102 ",.01)
 ;;64679092102
 ;;9002226.02101,"1033,64679092102 ",.02)
 ;;64679092102
 ;;9002226.02101,"1033,64679092201 ",.01)
 ;;64679092201
 ;;9002226.02101,"1033,64679092201 ",.02)
 ;;64679092201
 ;;9002226.02101,"1033,64679092202 ",.01)
 ;;64679092202
 ;;9002226.02101,"1033,64679092202 ",.02)
 ;;64679092202
 ;;9002226.02101,"1033,64679094901 ",.01)
 ;;64679094901
 ;;9002226.02101,"1033,64679094901 ",.02)
 ;;64679094901
 ;;9002226.02101,"1033,64679095401 ",.01)
 ;;64679095401
 ;;9002226.02101,"1033,64679095401 ",.02)
 ;;64679095401
 ;;9002226.02101,"1033,64679096101 ",.01)
 ;;64679096101
 ;;9002226.02101,"1033,64679096101 ",.02)
 ;;64679096101
 ;;9002226.02101,"1033,64679096102 ",.01)
 ;;64679096102
 ;;9002226.02101,"1033,64679096102 ",.02)
 ;;64679096102
 ;;9002226.02101,"1033,64679096104 ",.01)
 ;;64679096104
 ;;9002226.02101,"1033,64679096104 ",.02)
 ;;64679096104
 ;;9002226.02101,"1033,64679096105 ",.01)
 ;;64679096105
 ;;9002226.02101,"1033,64679096105 ",.02)
 ;;64679096105
 ;;9002226.02101,"1033,64679096106 ",.01)
 ;;64679096106
 ;;9002226.02101,"1033,64679096106 ",.02)
 ;;64679096106
 ;;9002226.02101,"1033,64679096107 ",.01)
 ;;64679096107
 ;;9002226.02101,"1033,64679096107 ",.02)
 ;;64679096107
 ;;9002226.02101,"1033,64679096108 ",.01)
 ;;64679096108
 ;;9002226.02101,"1033,64679096108 ",.02)
 ;;64679096108
 ;;9002226.02101,"1033,64679098301 ",.01)
 ;;64679098301
 ;;9002226.02101,"1033,64679098301 ",.02)
 ;;64679098301
 ;;9002226.02101,"1033,64679098302 ",.01)
 ;;64679098302
 ;;9002226.02101,"1033,64679098302 ",.02)
 ;;64679098302
 ;;9002226.02101,"1033,64720015201 ",.01)
 ;;64720015201
 ;;9002226.02101,"1033,64720015201 ",.02)
 ;;64720015201
 ;;9002226.02101,"1033,64720015210 ",.01)
 ;;64720015210
 ;;9002226.02101,"1033,64720015210 ",.02)
 ;;64720015210
 ;;9002226.02101,"1033,64720015310 ",.01)
 ;;64720015310
 ;;9002226.02101,"1033,64720015310 ",.02)
 ;;64720015310
 ;;9002226.02101,"1033,64720015316 ",.01)
 ;;64720015316
 ;;9002226.02101,"1033,64720015316 ",.02)
 ;;64720015316
 ;;9002226.02101,"1033,64720015410 ",.01)
 ;;64720015410
 ;;9002226.02101,"1033,64720015410 ",.02)
 ;;64720015410
 ;;9002226.02101,"1033,64720015416 ",.01)
 ;;64720015416
 ;;9002226.02101,"1033,64720015416 ",.02)
 ;;64720015416
 ;;9002226.02101,"1033,64725002402 ",.01)
 ;;64725002402
 ;;9002226.02101,"1033,64725002402 ",.02)
 ;;64725002402
 ;;9002226.02101,"1033,64725002403 ",.01)
 ;;64725002403
 ;;9002226.02101,"1033,64725002403 ",.02)
 ;;64725002403
 ;;9002226.02101,"1033,64725002404 ",.01)
 ;;64725002404
 ;;9002226.02101,"1033,64725002404 ",.02)
 ;;64725002404
 ;;9002226.02101,"1033,64725007202 ",.01)
 ;;64725007202
 ;;9002226.02101,"1033,64725007202 ",.02)
 ;;64725007202
 ;;9002226.02101,"1033,64725007203 ",.01)
 ;;64725007203
 ;;9002226.02101,"1033,64725007203 ",.02)
 ;;64725007203
 ;;9002226.02101,"1033,64725007204 ",.01)
 ;;64725007204
 ;;9002226.02101,"1033,64725007204 ",.02)
 ;;64725007204
 ;;9002226.02101,"1033,64725011302 ",.01)
 ;;64725011302
 ;;9002226.02101,"1033,64725011302 ",.02)
 ;;64725011302
 ;;9002226.02101,"1033,64725011303 ",.01)
 ;;64725011303
 ;;9002226.02101,"1033,64725011303 ",.02)
 ;;64725011303
 ;;9002226.02101,"1033,64725030402 ",.01)
 ;;64725030402
 ;;9002226.02101,"1033,64725030402 ",.02)
 ;;64725030402
 ;;9002226.02101,"1033,64725030403 ",.01)
 ;;64725030403
 ;;9002226.02101,"1033,64725030403 ",.02)
 ;;64725030403
 ;;9002226.02101,"1033,64725032503 ",.01)
 ;;64725032503
 ;;9002226.02101,"1033,64725032503 ",.02)
 ;;64725032503
 ;;9002226.02101,"1033,64725038702 ",.01)
 ;;64725038702
 ;;9002226.02101,"1033,64725038702 ",.02)
 ;;64725038702
 ;;9002226.02101,"1033,64725038802 ",.01)
 ;;64725038802
 ;;9002226.02101,"1033,64725038802 ",.02)
 ;;64725038802
 ;;9002226.02101,"1033,64860010407 ",.01)
 ;;64860010407
 ;;9002226.02101,"1033,64860010407 ",.02)
 ;;64860010407
 ;;9002226.02101,"1033,64860010408 ",.01)
 ;;64860010408
 ;;9002226.02101,"1033,64860010408 ",.02)
 ;;64860010408
 ;;9002226.02101,"1033,64860010500 ",.01)
 ;;64860010500
 ;;9002226.02101,"1033,64860010500 ",.02)
 ;;64860010500
 ;;9002226.02101,"1033,64860010501 ",.01)
 ;;64860010501
 ;;9002226.02101,"1033,64860010501 ",.02)
 ;;64860010501
 ;;9002226.02101,"1033,64860010504 ",.01)
 ;;64860010504
 ;;9002226.02101,"1033,64860010504 ",.02)
 ;;64860010504
 ;;9002226.02101,"1033,64860010506 ",.01)
 ;;64860010506
 ;;9002226.02101,"1033,64860010506 ",.02)
 ;;64860010506
 ;;9002226.02101,"1033,64860010507 ",.01)
 ;;64860010507
 ;;9002226.02101,"1033,64860010507 ",.02)
 ;;64860010507
 ;;9002226.02101,"1033,64860010509 ",.01)
 ;;64860010509
 ;;9002226.02101,"1033,64860010509 ",.02)
 ;;64860010509
 ;;9002226.02101,"1033,64860011107 ",.01)
 ;;64860011107
 ;;9002226.02101,"1033,64860011107 ",.02)
 ;;64860011107
 ;;9002226.02101,"1033,64860011207 ",.01)
 ;;64860011207
 ;;9002226.02101,"1033,64860011207 ",.02)
 ;;64860011207
 ;;9002226.02101,"1033,64860011208 ",.01)
 ;;64860011208
 ;;9002226.02101,"1033,64860011208 ",.02)
 ;;64860011208
 ;;9002226.02101,"1033,64860011808 ",.01)
 ;;64860011808
 ;;9002226.02101,"1033,64860011808 ",.02)
 ;;64860011808
 ;;9002226.02101,"1033,64860011908 ",.01)
 ;;64860011908
 ;;9002226.02101,"1033,64860011908 ",.02)
 ;;64860011908
 ;;9002226.02101,"1033,64860030613 ",.01)
 ;;64860030613
 ;;9002226.02101,"1033,64860030613 ",.02)
 ;;64860030613
 ;;9002226.02101,"1033,64860030640 ",.01)
 ;;64860030640
 ;;9002226.02101,"1033,64860030640 ",.02)
 ;;64860030640
 ;;9002226.02101,"1033,64860030713 ",.01)
 ;;64860030713
 ;;9002226.02101,"1033,64860030713 ",.02)
 ;;64860030713
 ;;9002226.02101,"1033,64860030740 ",.01)
 ;;64860030740
 ;;9002226.02101,"1033,64860030740 ",.02)
 ;;64860030740
 ;;9002226.02101,"1033,64860031113 ",.01)
 ;;64860031113
 ;;9002226.02101,"1033,64860031113 ",.02)
 ;;64860031113
 ;;9002226.02101,"1033,64860031140 ",.01)
 ;;64860031140
 ;;9002226.02101,"1033,64860031140 ",.02)
 ;;64860031140
 ;;9002226.02101,"1033,64860031213 ",.01)
 ;;64860031213
 ;;9002226.02101,"1033,64860031213 ",.02)
 ;;64860031213
 ;;9002226.02101,"1033,64860031240 ",.01)
 ;;64860031240
 ;;9002226.02101,"1033,64860031240 ",.02)
 ;;64860031240
 ;;9002226.02101,"1033,64896124500 ",.01)
 ;;64896124500
 ;;9002226.02101,"1033,64896124500 ",.02)
 ;;64896124500
 ;;9002226.02101,"1033,64896124501 ",.01)
 ;;64896124501
 ;;9002226.02101,"1033,64896124501 ",.02)
 ;;64896124501
 ;;9002226.02101,"1033,64896124502 ",.01)
 ;;64896124502
 ;;9002226.02101,"1033,64896124502 ",.02)
 ;;64896124502
 ;;9002226.02101,"1033,64896124503 ",.01)
 ;;64896124503
 ;;9002226.02101,"1033,64896124503 ",.02)
 ;;64896124503
 ;;9002226.02101,"1033,64896124508 ",.01)
 ;;64896124508
 ;;9002226.02101,"1033,64896124508 ",.02)
 ;;64896124508
 ;;9002226.02101,"1033,64896124600 ",.01)
 ;;64896124600
 ;;9002226.02101,"1033,64896124600 ",.02)
 ;;64896124600
 ;;9002226.02101,"1033,64896124601 ",.01)
 ;;64896124601
 ;;9002226.02101,"1033,64896124601 ",.02)
 ;;64896124601
 ;;9002226.02101,"1033,64896124602 ",.01)
 ;;64896124602
 ;;9002226.02101,"1033,64896124602 ",.02)
 ;;64896124602
 ;;9002226.02101,"1033,64896124603 ",.01)
 ;;64896124603
 ;;9002226.02101,"1033,64896124603 ",.02)
 ;;64896124603
 ;;9002226.02101,"1033,64896124608 ",.01)
 ;;64896124608
 ;;9002226.02101,"1033,64896124608 ",.02)
 ;;64896124608
 ;;9002226.02101,"1033,64896124700 ",.01)
 ;;64896124700
 ;;9002226.02101,"1033,64896124700 ",.02)
 ;;64896124700
 ;;9002226.02101,"1033,64896124701 ",.01)
 ;;64896124701
 ;;9002226.02101,"1033,64896124701 ",.02)
 ;;64896124701
 ;;9002226.02101,"1033,64896124702 ",.01)
 ;;64896124702
 ;;9002226.02101,"1033,64896124702 ",.02)
 ;;64896124702
 ;;9002226.02101,"1033,64896124703 ",.01)
 ;;64896124703
 ;;9002226.02101,"1033,64896124703 ",.02)
 ;;64896124703
 ;;9002226.02101,"1033,64896124708 ",.01)
 ;;64896124708
 ;;9002226.02101,"1033,64896124708 ",.02)
 ;;64896124708
 ;;9002226.02101,"1033,65015010811 ",.01)
 ;;65015010811
 ;;9002226.02101,"1033,65015010811 ",.02)
 ;;65015010811
 ;;9002226.02101,"1033,65015010911 ",.01)
 ;;65015010911
 ;;9002226.02101,"1033,65015010911 ",.02)
 ;;65015010911
 ;;9002226.02101,"1033,65015011011 ",.01)
 ;;65015011011
 ;;9002226.02101,"1033,65015011011 ",.02)
 ;;65015011011
 ;;9002226.02101,"1033,65162020201 ",.01)
 ;;65162020201
 ;;9002226.02101,"1033,65162020201 ",.02)
 ;;65162020201
 ;;9002226.02101,"1033,65162020202 ",.01)
 ;;65162020202
 ;;9002226.02101,"1033,65162020202 ",.02)
 ;;65162020202
 ;;9002226.02101,"1033,65162020208 ",.01)
 ;;65162020208
 ;;9002226.02101,"1033,65162020208 ",.02)
 ;;65162020208
 ;;9002226.02101,"1033,65162020214 ",.01)
 ;;65162020214
 ;;9002226.02101,"1033,65162020214 ",.02)
 ;;65162020214
 ;;9002226.02101,"1033,65162031301 ",.01)
 ;;65162031301
 ;;9002226.02101,"1033,65162031301 ",.02)
 ;;65162031301
 ;;9002226.02101,"1033,65162031302 ",.01)
 ;;65162031302
 ;;9002226.02101,"1033,65162031302 ",.02)
 ;;65162031302
 ;;9002226.02101,"1033,65162031308 ",.01)
 ;;65162031308
 ;;9002226.02101,"1033,65162031308 ",.02)
 ;;65162031308
 ;;9002226.02101,"1033,65162031314 ",.01)
 ;;65162031314
 ;;9002226.02101,"1033,65162031314 ",.02)
 ;;65162031314
 ;;9002226.02101,"1033,65162052705 ",.01)
 ;;65162052705
 ;;9002226.02101,"1033,65162052705 ",.02)
 ;;65162052705
 ;;9002226.02101,"1033,65243006702 ",.01)
 ;;65243006702
 ;;9002226.02101,"1033,65243006702 ",.02)
 ;;65243006702
 ;;9002226.02101,"1033,65415101101 ",.01)
 ;;65415101101
 ;;9002226.02101,"1033,65415101101 ",.02)
 ;;65415101101
 ;;9002226.02101,"1033,65415101201 ",.01)
 ;;65415101201
 ;;9002226.02101,"1033,65415101201 ",.02)
 ;;65415101201
 ;;9002226.02101,"1033,65415101301 ",.01)
 ;;65415101301
 ;;9002226.02101,"1033,65415101301 ",.02)
 ;;65415101301
 ;;9002226.02101,"1033,65415101401 ",.01)
 ;;65415101401
 ;;9002226.02101,"1033,65415101401 ",.02)
 ;;65415101401
 ;;9002226.02101,"1033,65427030901 ",.01)
 ;;65427030901
 ;;9002226.02101,"1033,65427030901 ",.02)
 ;;65427030901
 ;;9002226.02101,"1033,65427030902 ",.01)
 ;;65427030902
 ;;9002226.02101,"1033,65427030902 ",.02)
 ;;65427030902
 ;;9002226.02101,"1033,65427030903 ",.01)
 ;;65427030903
 ;;9002226.02101,"1033,65427030903 ",.02)
 ;;65427030903
 ;;9002226.02101,"1033,65427030930 ",.01)
 ;;65427030930
 ;;9002226.02101,"1033,65427030930 ",.02)
 ;;65427030930