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