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

BGPM3ABD.m

Go to the documentation of this file.
  1. BGPM3ABD ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
  1. ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
  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,"775,00402051905 ",.01)
  1. ;;00402051905
  1. ;;9002226.02101,"775,00402051905 ",.02)
  1. ;;00402051905
  1. ;;9002226.02101,"775,00405410001 ",.01)
  1. ;;00405410001
  1. ;;9002226.02101,"775,00405410001 ",.02)
  1. ;;00405410001
  1. ;;9002226.02101,"775,00406205201 ",.01)
  1. ;;00406205201
  1. ;;9002226.02101,"775,00406205201 ",.02)
  1. ;;00406205201
  1. ;;9002226.02101,"775,00406205210 ",.01)
  1. ;;00406205210
  1. ;;9002226.02101,"775,00406205210 ",.02)
  1. ;;00406205210
  1. ;;9002226.02101,"775,00406205301 ",.01)
  1. ;;00406205301
  1. ;;9002226.02101,"775,00406205301 ",.02)
  1. ;;00406205301
  1. ;;9002226.02101,"775,00406205310 ",.01)
  1. ;;00406205310
  1. ;;9002226.02101,"775,00406205310 ",.02)
  1. ;;00406205310
  1. ;;9002226.02101,"775,00406205401 ",.01)
  1. ;;00406205401
  1. ;;9002226.02101,"775,00406205401 ",.02)
  1. ;;00406205401
  1. ;;9002226.02101,"775,00406205410 ",.01)
  1. ;;00406205410
  1. ;;9002226.02101,"775,00406205410 ",.02)
  1. ;;00406205410
  1. ;;9002226.02101,"775,00406205501 ",.01)
  1. ;;00406205501
  1. ;;9002226.02101,"775,00406205501 ",.02)
  1. ;;00406205501
  1. ;;9002226.02101,"775,00406205510 ",.01)
  1. ;;00406205510
  1. ;;9002226.02101,"775,00406205510 ",.02)
  1. ;;00406205510
  1. ;;9002226.02101,"775,00406205601 ",.01)
  1. ;;00406205601
  1. ;;9002226.02101,"775,00406205601 ",.02)
  1. ;;00406205601
  1. ;;9002226.02101,"775,00406205610 ",.01)
  1. ;;00406205610
  1. ;;9002226.02101,"775,00406205610 ",.02)
  1. ;;00406205610
  1. ;;9002226.02101,"775,00406205701 ",.01)
  1. ;;00406205701
  1. ;;9002226.02101,"775,00406205701 ",.02)
  1. ;;00406205701
  1. ;;9002226.02101,"775,00406205801 ",.01)
  1. ;;00406205801
  1. ;;9002226.02101,"775,00406205801 ",.02)
  1. ;;00406205801
  1. ;;9002226.02101,"775,00406205901 ",.01)
  1. ;;00406205901
  1. ;;9002226.02101,"775,00406205901 ",.02)
  1. ;;00406205901
  1. ;;9002226.02101,"775,00406206401 ",.01)
  1. ;;00406206401
  1. ;;9002226.02101,"775,00406206401 ",.02)
  1. ;;00406206401
  1. ;;9002226.02101,"775,00406206410 ",.01)
  1. ;;00406206410
  1. ;;9002226.02101,"775,00406206410 ",.02)
  1. ;;00406206410
  1. ;;9002226.02101,"775,00406506410 ",.01)
  1. ;;00406506410
  1. ;;9002226.02101,"775,00406506410 ",.02)
  1. ;;00406506410
  1. ;;9002226.02101,"775,00409115212 ",.01)
  1. ;;00409115212
  1. ;;9002226.02101,"775,00409115212 ",.02)
  1. ;;00409115212
  1. ;;9002226.02101,"775,00409115214 ",.01)
  1. ;;00409115214
  1. ;;9002226.02101,"775,00409115214 ",.02)
  1. ;;00409115214
  1. ;;9002226.02101,"775,00409115270 ",.01)
  1. ;;00409115270
  1. ;;9002226.02101,"775,00409115270 ",.02)
  1. ;;00409115270
  1. ;;9002226.02101,"775,00409115278 ",.01)
  1. ;;00409115278
  1. ;;9002226.02101,"775,00409115278 ",.02)
  1. ;;00409115278
  1. ;;9002226.02101,"775,00409131625 ",.01)
  1. ;;00409131625
  1. ;;9002226.02101,"775,00409131625 ",.02)
  1. ;;00409131625
  1. ;;9002226.02101,"775,00409131632 ",.01)
  1. ;;00409131632
  1. ;;9002226.02101,"775,00409131632 ",.02)
  1. ;;00409131632
  1. ;;9002226.02101,"775,00409131666 ",.01)
  1. ;;00409131666
  1. ;;9002226.02101,"775,00409131666 ",.02)
  1. ;;00409131666
  1. ;;9002226.02101,"775,00409140231 ",.01)
  1. ;;00409140231
  1. ;;9002226.02101,"775,00409140231 ",.02)
  1. ;;00409140231
  1. ;;9002226.02101,"775,00409258102 ",.01)
  1. ;;00409258102
  1. ;;9002226.02101,"775,00409258102 ",.02)
  1. ;;00409258102
  1. ;;9002226.02101,"775,00409258402 ",.01)
  1. ;;00409258402
  1. ;;9002226.02101,"775,00409258402 ",.02)
  1. ;;00409258402
  1. ;;9002226.02101,"775,00409272001 ",.01)
  1. ;;00409272001
  1. ;;9002226.02101,"775,00409272001 ",.02)
  1. ;;00409272001
  1. ;;9002226.02101,"775,00409272002 ",.01)
  1. ;;00409272002
  1. ;;9002226.02101,"775,00409272002 ",.02)
  1. ;;00409272002
  1. ;;9002226.02101,"775,00409272003 ",.01)
  1. ;;00409272003
  1. ;;9002226.02101,"775,00409272003 ",.02)
  1. ;;00409272003
  1. ;;9002226.02101,"775,00409272101 ",.01)
  1. ;;00409272101
  1. ;;9002226.02101,"775,00409272101 ",.02)
  1. ;;00409272101
  1. ;;9002226.02101,"775,00409272301 ",.01)
  1. ;;00409272301
  1. ;;9002226.02101,"775,00409272301 ",.02)
  1. ;;00409272301
  1. ;;9002226.02101,"775,00409272302 ",.01)
  1. ;;00409272302
  1. ;;9002226.02101,"775,00409272302 ",.02)
  1. ;;00409272302
  1. ;;9002226.02101,"775,00409765062 ",.01)
  1. ;;00409765062
  1. ;;9002226.02101,"775,00409765062 ",.02)
  1. ;;00409765062
  1. ;;9002226.02101,"775,00409765103 ",.01)
  1. ;;00409765103
  1. ;;9002226.02101,"775,00409765103 ",.02)
  1. ;;00409765103
  1. ;;9002226.02101,"775,00409765162 ",.01)
  1. ;;00409765162
  1. ;;9002226.02101,"775,00409765162 ",.02)
  1. ;;00409765162
  1. ;;9002226.02101,"775,00409776003 ",.01)
  1. ;;00409776003
  1. ;;9002226.02101,"775,00409776003 ",.02)
  1. ;;00409776003
  1. ;;9002226.02101,"775,00409776103 ",.01)
  1. ;;00409776103
  1. ;;9002226.02101,"775,00409776103 ",.02)
  1. ;;00409776103
  1. ;;9002226.02101,"775,00409776130 ",.01)
  1. ;;00409776130
  1. ;;9002226.02101,"775,00409776130 ",.02)
  1. ;;00409776130
  1. ;;9002226.02101,"775,00409779323 ",.01)
  1. ;;00409779323
  1. ;;9002226.02101,"775,00409779323 ",.02)
  1. ;;00409779323
  1. ;;9002226.02101,"775,00409779362 ",.01)
  1. ;;00409779362
  1. ;;9002226.02101,"775,00409779362 ",.02)
  1. ;;00409779362
  1. ;;9002226.02101,"775,00409779462 ",.01)
  1. ;;00409779462
  1. ;;9002226.02101,"775,00409779462 ",.02)
  1. ;;00409779462
  1. ;;9002226.02101,"775,00418434105 ",.01)
  1. ;;00418434105
  1. ;;9002226.02101,"775,00418434105 ",.02)
  1. ;;00418434105
  1. ;;9002226.02101,"775,00418435105 ",.01)
  1. ;;00418435105
  1. ;;9002226.02101,"775,00418435105 ",.02)
  1. ;;00418435105
  1. ;;9002226.02101,"775,00418435141 ",.01)
  1. ;;00418435141
  1. ;;9002226.02101,"775,00418435141 ",.02)
  1. ;;00418435141
  1. ;;9002226.02101,"775,00418446105 ",.01)
  1. ;;00418446105
  1. ;;9002226.02101,"775,00418446105 ",.02)
  1. ;;00418446105
  1. ;;9002226.02101,"775,00436022070 ",.01)
  1. ;;00436022070
  1. ;;9002226.02101,"775,00436022070 ",.02)
  1. ;;00436022070
  1. ;;9002226.02101,"775,00436022145 ",.01)
  1. ;;00436022145
  1. ;;9002226.02101,"775,00436022145 ",.02)
  1. ;;00436022145
  1. ;;9002226.02101,"775,00436022170 ",.01)
  1. ;;00436022170
  1. ;;9002226.02101,"775,00436022170 ",.02)
  1. ;;00436022170
  1. ;;9002226.02101,"775,00436022175 ",.01)
  1. ;;00436022175
  1. ;;9002226.02101,"775,00436022175 ",.02)
  1. ;;00436022175
  1. ;;9002226.02101,"775,00436027570 ",.01)
  1. ;;00436027570
  1. ;;9002226.02101,"775,00436027570 ",.02)
  1. ;;00436027570
  1. ;;9002226.02101,"775,00436041601 ",.01)
  1. ;;00436041601
  1. ;;9002226.02101,"775,00436041601 ",.02)
  1. ;;00436041601
  1. ;;9002226.02101,"775,00436041610 ",.01)
  1. ;;00436041610
  1. ;;9002226.02101,"775,00436041610 ",.02)
  1. ;;00436041610
  1. ;;9002226.02101,"775,00440713016 ",.01)
  1. ;;00440713016
  1. ;;9002226.02101,"775,00440713016 ",.02)
  1. ;;00440713016
  1. ;;9002226.02101,"775,00454091330 ",.01)
  1. ;;00454091330
  1. ;;9002226.02101,"775,00454091330 ",.02)
  1. ;;00454091330
  1. ;;9002226.02101,"775,00456077826 ",.01)
  1. ;;00456077826
  1. ;;9002226.02101,"775,00456077826 ",.02)
  1. ;;00456077826
  1. ;;9002226.02101,"775,00463103410 ",.01)
  1. ;;00463103410
  1. ;;9002226.02101,"775,00463103410 ",.02)
  1. ;;00463103410
  1. ;;9002226.02101,"775,00463602010 ",.01)
  1. ;;00463602010
  1. ;;9002226.02101,"775,00463602010 ",.02)
  1. ;;00463602010
  1. ;;9002226.02101,"775,00463602110 ",.01)
  1. ;;00463602110
  1. ;;9002226.02101,"775,00463602110 ",.02)
  1. ;;00463602110
  1. ;;9002226.02101,"775,00463602310 ",.01)
  1. ;;00463602310
  1. ;;9002226.02101,"775,00463602310 ",.02)
  1. ;;00463602310
  1. ;;9002226.02101,"775,00463602610 ",.01)
  1. ;;00463602610
  1. ;;9002226.02101,"775,00463602610 ",.02)
  1. ;;00463602610
  1. ;;9002226.02101,"775,00463624910 ",.01)
  1. ;;00463624910
  1. ;;9002226.02101,"775,00463624910 ",.02)
  1. ;;00463624910
  1. ;;9002226.02101,"775,00467103325 ",.01)
  1. ;;00467103325
  1. ;;9002226.02101,"775,00467103325 ",.02)
  1. ;;00467103325
  1. ;;9002226.02101,"775,00467126225 ",.01)
  1. ;;00467126225
  1. ;;9002226.02101,"775,00467126225 ",.02)
  1. ;;00467126225
  1. ;;9002226.02101,"775,00467203325 ",.01)
  1. ;;00467203325
  1. ;;9002226.02101,"775,00467203325 ",.02)
  1. ;;00467203325
  1. ;;9002226.02101,"775,00467215225 ",.01)
  1. ;;00467215225
  1. ;;9002226.02101,"775,00467215225 ",.02)
  1. ;;00467215225
  1. ;;9002226.02101,"775,00467750710 ",.01)
  1. ;;00467750710
  1. ;;9002226.02101,"775,00467750710 ",.02)
  1. ;;00467750710
  1. ;;9002226.02101,"775,00469003115 ",.01)
  1. ;;00469003115
  1. ;;9002226.02101,"775,00469003115 ",.02)
  1. ;;00469003115
  1. ;;9002226.02101,"775,00469003325 ",.01)
  1. ;;00469003325
  1. ;;9002226.02101,"775,00469003325 ",.02)
  1. ;;00469003325
  1. ;;9002226.02101,"775,00469015225 ",.01)
  1. ;;00469015225
  1. ;;9002226.02101,"775,00469015225 ",.02)
  1. ;;00469015225
  1. ;;9002226.02101,"775,00469081330 ",.01)
  1. ;;00469081330
  1. ;;9002226.02101,"775,00469081330 ",.02)
  1. ;;00469081330
  1. ;;9002226.02101,"775,00469081350 ",.01)
  1. ;;00469081350
  1. ;;9002226.02101,"775,00469081350 ",.02)
  1. ;;00469081350
  1. ;;9002226.02101,"775,00469083300 ",.01)
  1. ;;00469083300
  1. ;;9002226.02101,"775,00469083300 ",.02)
  1. ;;00469083300
  1. ;;9002226.02101,"775,00469083303 ",.01)
  1. ;;00469083303
  1. ;;9002226.02101,"775,00469083303 ",.02)
  1. ;;00469083303
  1. ;;9002226.02101,"775,00469083370 ",.01)
  1. ;;00469083370
  1. ;;9002226.02101,"775,00469083370 ",.02)
  1. ;;00469083370
  1. ;;9002226.02101,"775,00469091300 ",.01)
  1. ;;00469091300
  1. ;;9002226.02101,"775,00469091300 ",.02)
  1. ;;00469091300
  1. ;;9002226.02101,"775,00469091330 ",.01)
  1. ;;00469091330
  1. ;;9002226.02101,"775,00469091330 ",.02)
  1. ;;00469091330
  1. ;;9002226.02101,"775,00469091350 ",.01)
  1. ;;00469091350
  1. ;;9002226.02101,"775,00469091350 ",.02)
  1. ;;00469091350
  1. ;;9002226.02101,"775,00469092300 ",.01)
  1. ;;00469092300
  1. ;;9002226.02101,"775,00469092300 ",.02)
  1. ;;00469092300
  1. ;;9002226.02101,"775,00469092303 ",.01)
  1. ;;00469092303
  1. ;;9002226.02101,"775,00469092303 ",.02)
  1. ;;00469092303
  1. ;;9002226.02101,"775,00469092330 ",.01)
  1. ;;00469092330
  1. ;;9002226.02101,"775,00469092330 ",.02)
  1. ;;00469092330
  1. ;;9002226.02101,"775,00469093300 ",.01)
  1. ;;00469093300
  1. ;;9002226.02101,"775,00469093300 ",.02)
  1. ;;00469093300
  1. ;;9002226.02101,"775,00469093320 ",.01)
  1. ;;00469093320
  1. ;;9002226.02101,"775,00469093320 ",.02)
  1. ;;00469093320
  1. ;;9002226.02101,"775,00469103315 ",.01)
  1. ;;00469103315
  1. ;;9002226.02101,"775,00469103315 ",.02)
  1. ;;00469103315
  1. ;;9002226.02101,"775,00469115515 ",.01)
  1. ;;00469115515
  1. ;;9002226.02101,"775,00469115515 ",.02)
  1. ;;00469115515
  1. ;;9002226.02101,"775,00469126215 ",.01)
  1. ;;00469126215
  1. ;;9002226.02101,"775,00469126215 ",.02)
  1. ;;00469126215
  1. ;;9002226.02101,"775,00469190300 ",.01)
  1. ;;00469190300
  1. ;;9002226.02101,"775,00469190300 ",.02)
  1. ;;00469190300
  1. ;;9002226.02101,"775,00469190303 ",.01)
  1. ;;00469190303
  1. ;;9002226.02101,"775,00469190303 ",.02)
  1. ;;00469190303
  1. ;;9002226.02101,"775,00469203325 ",.01)
  1. ;;00469203325
  1. ;;9002226.02101,"775,00469203325 ",.02)
  1. ;;00469203325
  1. ;;9002226.02101,"775,00469215215 ",.01)
  1. ;;00469215215
  1. ;;9002226.02101,"775,00469215215 ",.02)
  1. ;;00469215215
  1. ;;9002226.02101,"775,00469276010 ",.01)
  1. ;;00469276010
  1. ;;9002226.02101,"775,00469276010 ",.02)
  1. ;;00469276010
  1. ;;9002226.02101,"775,00469276025 ",.01)
  1. ;;00469276025
  1. ;;9002226.02101,"775,00469276025 ",.02)
  1. ;;00469276025
  1. ;;9002226.02101,"775,00469310115 ",.01)
  1. ;;00469310115
  1. ;;9002226.02101,"775,00469310115 ",.02)
  1. ;;00469310115
  1. ;;9002226.02101,"775,00469310525 ",.01)
  1. ;;00469310525
  1. ;;9002226.02101,"775,00469310525 ",.02)
  1. ;;00469310525
  1. ;;9002226.02101,"775,00469504001 ",.01)
  1. ;;00469504001
  1. ;;9002226.02101,"775,00469504001 ",.02)
  1. ;;00469504001
  1. ;;9002226.02101,"775,00469504501 ",.01)
  1. ;;00469504501
  1. ;;9002226.02101,"775,00469504501 ",.02)
  1. ;;00469504501
  1. ;;9002226.02101,"775,00469504505 ",.01)
  1. ;;00469504505
  1. ;;9002226.02101,"775,00469504505 ",.02)
  1. ;;00469504505
  1. ;;9002226.02101,"775,00480015401 ",.01)
  1. ;;00480015401
  1. ;;9002226.02101,"775,00480015401 ",.02)
  1. ;;00480015401
  1. ;;9002226.02101,"775,00480015405 ",.01)
  1. ;;00480015405
  1. ;;9002226.02101,"775,00480015405 ",.02)
  1. ;;00480015405
  1. ;;9002226.02101,"775,00517430101 ",.01)
  1. ;;00517430101
  1. ;;9002226.02101,"775,00517430101 ",.02)
  1. ;;00517430101
  1. ;;9002226.02101,"775,00524005701 ",.01)
  1. ;;00524005701
  1. ;;9002226.02101,"775,00524005701 ",.02)
  1. ;;00524005701