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

BGPM5ABV.m

Go to the documentation of this file.
BGPM5ABV ;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,"830,49884073705 ",.02)
 ;;49884073705
 ;;9002226.02101,"830,49884073801 ",.01)
 ;;49884073801
 ;;9002226.02101,"830,49884073801 ",.02)
 ;;49884073801
 ;;9002226.02101,"830,49884073805 ",.01)
 ;;49884073805
 ;;9002226.02101,"830,49884073805 ",.02)
 ;;49884073805
 ;;9002226.02101,"830,49884073901 ",.01)
 ;;49884073901
 ;;9002226.02101,"830,49884073901 ",.02)
 ;;49884073901
 ;;9002226.02101,"830,49884073905 ",.01)
 ;;49884073905
 ;;9002226.02101,"830,49884073905 ",.02)
 ;;49884073905
 ;;9002226.02101,"830,49884074001 ",.01)
 ;;49884074001
 ;;9002226.02101,"830,49884074001 ",.02)
 ;;49884074001
 ;;9002226.02101,"830,49884074005 ",.01)
 ;;49884074005
 ;;9002226.02101,"830,49884074005 ",.02)
 ;;49884074005
 ;;9002226.02101,"830,49884074101 ",.01)
 ;;49884074101
 ;;9002226.02101,"830,49884074101 ",.02)
 ;;49884074101
 ;;9002226.02101,"830,49884074105 ",.01)
 ;;49884074105
 ;;9002226.02101,"830,49884074105 ",.02)
 ;;49884074105
 ;;9002226.02101,"830,49999010600 ",.01)
 ;;49999010600
 ;;9002226.02101,"830,49999010600 ",.02)
 ;;49999010600
 ;;9002226.02101,"830,49999010601 ",.01)
 ;;49999010601
 ;;9002226.02101,"830,49999010601 ",.02)
 ;;49999010601
 ;;9002226.02101,"830,49999010628 ",.01)
 ;;49999010628
 ;;9002226.02101,"830,49999010628 ",.02)
 ;;49999010628
 ;;9002226.02101,"830,49999010630 ",.01)
 ;;49999010630
 ;;9002226.02101,"830,49999010630 ",.02)
 ;;49999010630
 ;;9002226.02101,"830,49999010660 ",.01)
 ;;49999010660
 ;;9002226.02101,"830,49999010660 ",.02)
 ;;49999010660
 ;;9002226.02101,"830,49999010690 ",.01)
 ;;49999010690
 ;;9002226.02101,"830,49999010690 ",.02)
 ;;49999010690
 ;;9002226.02101,"830,49999011600 ",.01)
 ;;49999011600
 ;;9002226.02101,"830,49999011600 ",.02)
 ;;49999011600
 ;;9002226.02101,"830,49999011630 ",.01)
 ;;49999011630
 ;;9002226.02101,"830,49999011630 ",.02)
 ;;49999011630
 ;;9002226.02101,"830,49999011660 ",.01)
 ;;49999011660
 ;;9002226.02101,"830,49999011660 ",.02)
 ;;49999011660
 ;;9002226.02101,"830,49999040130 ",.01)
 ;;49999040130
 ;;9002226.02101,"830,49999040130 ",.02)
 ;;49999040130
 ;;9002226.02101,"830,49999040160 ",.01)
 ;;49999040160
 ;;9002226.02101,"830,49999040160 ",.02)
 ;;49999040160
 ;;9002226.02101,"830,49999049530 ",.01)
 ;;49999049530
 ;;9002226.02101,"830,49999049530 ",.02)
 ;;49999049530
 ;;9002226.02101,"830,49999049560 ",.01)
 ;;49999049560
 ;;9002226.02101,"830,49999049560 ",.02)
 ;;49999049560
 ;;9002226.02101,"830,49999082060 ",.01)
 ;;49999082060
 ;;9002226.02101,"830,49999082060 ",.02)
 ;;49999082060
 ;;9002226.02101,"830,50268053115 ",.01)
 ;;50268053115
 ;;9002226.02101,"830,50268053115 ",.02)
 ;;50268053115
 ;;9002226.02101,"830,51079062620 ",.01)
 ;;51079062620
 ;;9002226.02101,"830,51079062620 ",.02)
 ;;51079062620
 ;;9002226.02101,"830,51079062720 ",.01)
 ;;51079062720
 ;;9002226.02101,"830,51079062720 ",.02)
 ;;51079062720
 ;;9002226.02101,"830,51079097201 ",.01)
 ;;51079097201
 ;;9002226.02101,"830,51079097201 ",.02)
 ;;51079097201
 ;;9002226.02101,"830,51079097217 ",.01)
 ;;51079097217
 ;;9002226.02101,"830,51079097217 ",.02)
 ;;51079097217
 ;;9002226.02101,"830,51079097219 ",.01)
 ;;51079097219
 ;;9002226.02101,"830,51079097219 ",.02)
 ;;51079097219
 ;;9002226.02101,"830,51079097220 ",.01)
 ;;51079097220
 ;;9002226.02101,"830,51079097220 ",.02)
 ;;51079097220
 ;;9002226.02101,"830,51079097230 ",.01)
 ;;51079097230
 ;;9002226.02101,"830,51079097230 ",.02)
 ;;51079097230
 ;;9002226.02101,"830,51079097256 ",.01)
 ;;51079097256
 ;;9002226.02101,"830,51079097256 ",.02)
 ;;51079097256
 ;;9002226.02101,"830,51079097257 ",.01)
 ;;51079097257
 ;;9002226.02101,"830,51079097257 ",.02)
 ;;51079097257
 ;;9002226.02101,"830,51079097301 ",.01)
 ;;51079097301
 ;;9002226.02101,"830,51079097301 ",.02)
 ;;51079097301
 ;;9002226.02101,"830,51079097320 ",.01)
 ;;51079097320
 ;;9002226.02101,"830,51079097320 ",.02)
 ;;51079097320
 ;;9002226.02101,"830,51079099501 ",.01)
 ;;51079099501
 ;;9002226.02101,"830,51079099501 ",.02)
 ;;51079099501
 ;;9002226.02101,"830,51079099520 ",.01)
 ;;51079099520
 ;;9002226.02101,"830,51079099520 ",.02)
 ;;51079099520
 ;;9002226.02101,"830,51129206201 ",.01)
 ;;51129206201
 ;;9002226.02101,"830,51129206201 ",.02)
 ;;51129206201
 ;;9002226.02101,"830,51129207401 ",.01)
 ;;51129207401
 ;;9002226.02101,"830,51129207401 ",.02)
 ;;51129207401
 ;;9002226.02101,"830,51129212701 ",.01)
 ;;51129212701
 ;;9002226.02101,"830,51129212701 ",.02)
 ;;51129212701
 ;;9002226.02101,"830,51129231501 ",.01)
 ;;51129231501
 ;;9002226.02101,"830,51129231501 ",.02)
 ;;51129231501
 ;;9002226.02101,"830,51129246001 ",.01)
 ;;51129246001
 ;;9002226.02101,"830,51129246001 ",.02)
 ;;51129246001
 ;;9002226.02101,"830,51129246101 ",.01)
 ;;51129246101
 ;;9002226.02101,"830,51129246101 ",.02)
 ;;51129246101
 ;;9002226.02101,"830,51129261001 ",.01)
 ;;51129261001
 ;;9002226.02101,"830,51129261001 ",.02)
 ;;51129261001
 ;;9002226.02101,"830,51129262701 ",.01)
 ;;51129262701
 ;;9002226.02101,"830,51129262701 ",.02)
 ;;51129262701
 ;;9002226.02101,"830,51129268701 ",.01)
 ;;51129268701
 ;;9002226.02101,"830,51129268701 ",.02)
 ;;51129268701
 ;;9002226.02101,"830,51129274501 ",.01)
 ;;51129274501
 ;;9002226.02101,"830,51129274501 ",.02)
 ;;51129274501
 ;;9002226.02101,"830,51129292201 ",.01)
 ;;51129292201
 ;;9002226.02101,"830,51129292201 ",.02)
 ;;51129292201
 ;;9002226.02101,"830,51129306001 ",.01)
 ;;51129306001
 ;;9002226.02101,"830,51129306001 ",.02)
 ;;51129306001
 ;;9002226.02101,"830,51129306002 ",.01)
 ;;51129306002
 ;;9002226.02101,"830,51129306002 ",.02)
 ;;51129306002
 ;;9002226.02101,"830,51129320701 ",.01)
 ;;51129320701
 ;;9002226.02101,"830,51129320701 ",.02)
 ;;51129320701
 ;;9002226.02101,"830,51129320702 ",.01)
 ;;51129320702
 ;;9002226.02101,"830,51129320702 ",.02)
 ;;51129320702
 ;;9002226.02101,"830,51129329601 ",.01)
 ;;51129329601
 ;;9002226.02101,"830,51129329601 ",.02)
 ;;51129329601
 ;;9002226.02101,"830,51129329602 ",.01)
 ;;51129329602
 ;;9002226.02101,"830,51129329602 ",.02)
 ;;51129329602
 ;;9002226.02101,"830,51129348401 ",.01)
 ;;51129348401
 ;;9002226.02101,"830,51129348401 ",.02)
 ;;51129348401
 ;;9002226.02101,"830,51129348402 ",.01)
 ;;51129348402
 ;;9002226.02101,"830,51129348402 ",.02)
 ;;51129348402
 ;;9002226.02101,"830,51129359401 ",.01)
 ;;51129359401
 ;;9002226.02101,"830,51129359401 ",.02)
 ;;51129359401
 ;;9002226.02101,"830,51129359402 ",.01)
 ;;51129359402
 ;;9002226.02101,"830,51129359402 ",.02)
 ;;51129359402
 ;;9002226.02101,"830,51129363601 ",.01)
 ;;51129363601
 ;;9002226.02101,"830,51129363601 ",.02)
 ;;51129363601
 ;;9002226.02101,"830,51129363602 ",.01)
 ;;51129363602
 ;;9002226.02101,"830,51129363602 ",.02)
 ;;51129363602
 ;;9002226.02101,"830,51129364901 ",.01)
 ;;51129364901
 ;;9002226.02101,"830,51129364901 ",.02)
 ;;51129364901
 ;;9002226.02101,"830,51129364902 ",.01)
 ;;51129364902
 ;;9002226.02101,"830,51129364902 ",.02)
 ;;51129364902
 ;;9002226.02101,"830,51129375201 ",.01)
 ;;51129375201
 ;;9002226.02101,"830,51129375201 ",.02)
 ;;51129375201
 ;;9002226.02101,"830,51129375202 ",.01)
 ;;51129375202
 ;;9002226.02101,"830,51129375202 ",.02)
 ;;51129375202
 ;;9002226.02101,"830,51129381001 ",.01)
 ;;51129381001
 ;;9002226.02101,"830,51129381001 ",.02)
 ;;51129381001
 ;;9002226.02101,"830,51129381801 ",.01)
 ;;51129381801
 ;;9002226.02101,"830,51129381801 ",.02)
 ;;51129381801
 ;;9002226.02101,"830,51129381802 ",.01)
 ;;51129381802
 ;;9002226.02101,"830,51129381802 ",.02)
 ;;51129381802
 ;;9002226.02101,"830,51129384101 ",.01)
 ;;51129384101
 ;;9002226.02101,"830,51129384101 ",.02)
 ;;51129384101
 ;;9002226.02101,"830,51129384102 ",.01)
 ;;51129384102
 ;;9002226.02101,"830,51129384102 ",.02)
 ;;51129384102
 ;;9002226.02101,"830,51129394301 ",.01)
 ;;51129394301
 ;;9002226.02101,"830,51129394301 ",.02)
 ;;51129394301
 ;;9002226.02101,"830,51129394302 ",.01)
 ;;51129394302
 ;;9002226.02101,"830,51129394302 ",.02)
 ;;51129394302
 ;;9002226.02101,"830,51129403401 ",.01)
 ;;51129403401
 ;;9002226.02101,"830,51129403401 ",.02)
 ;;51129403401
 ;;9002226.02101,"830,51129403402 ",.01)
 ;;51129403402
 ;;9002226.02101,"830,51129403402 ",.02)
 ;;51129403402
 ;;9002226.02101,"830,51129413001 ",.01)
 ;;51129413001
 ;;9002226.02101,"830,51129413001 ",.02)
 ;;51129413001
 ;;9002226.02101,"830,51129413002 ",.01)
 ;;51129413002
 ;;9002226.02101,"830,51129413002 ",.02)
 ;;51129413002
 ;;9002226.02101,"830,51129413101 ",.01)
 ;;51129413101
 ;;9002226.02101,"830,51129413101 ",.02)
 ;;51129413101
 ;;9002226.02101,"830,51129413102 ",.01)
 ;;51129413102
 ;;9002226.02101,"830,51129413102 ",.02)
 ;;51129413102
 ;;9002226.02101,"830,51129433301 ",.01)
 ;;51129433301
 ;;9002226.02101,"830,51129433301 ",.02)
 ;;51129433301
 ;;9002226.02101,"830,51129433302 ",.01)
 ;;51129433302
 ;;9002226.02101,"830,51129433302 ",.02)
 ;;51129433302
 ;;9002226.02101,"830,51129446701 ",.01)
 ;;51129446701
 ;;9002226.02101,"830,51129446701 ",.02)
 ;;51129446701
 ;;9002226.02101,"830,51129469201 ",.01)
 ;;51129469201
 ;;9002226.02101,"830,51129469201 ",.02)
 ;;51129469201
 ;;9002226.02101,"830,51129469202 ",.01)
 ;;51129469202
 ;;9002226.02101,"830,51129469202 ",.02)
 ;;51129469202
 ;;9002226.02101,"830,51138007430 ",.01)
 ;;51138007430
 ;;9002226.02101,"830,51138007430 ",.02)
 ;;51138007430
 ;;9002226.02101,"830,51138007530 ",.01)
 ;;51138007530
 ;;9002226.02101,"830,51138007530 ",.02)
 ;;51138007530
 ;;9002226.02101,"830,51138007630 ",.01)
 ;;51138007630
 ;;9002226.02101,"830,51138007630 ",.02)
 ;;51138007630
 ;;9002226.02101,"830,51138008330 ",.01)
 ;;51138008330
 ;;9002226.02101,"830,51138008330 ",.02)
 ;;51138008330
 ;;9002226.02101,"830,51138008430 ",.01)
 ;;51138008430
 ;;9002226.02101,"830,51138008430 ",.02)
 ;;51138008430
 ;;9002226.02101,"830,51138008530 ",.01)
 ;;51138008530
 ;;9002226.02101,"830,51138008530 ",.02)
 ;;51138008530
 ;;9002226.02101,"830,51138047030 ",.01)
 ;;51138047030
 ;;9002226.02101,"830,51138047030 ",.02)
 ;;51138047030
 ;;9002226.02101,"830,51138047130 ",.01)
 ;;51138047130
 ;;9002226.02101,"830,51138047130 ",.02)
 ;;51138047130
 ;;9002226.02101,"830,51138047230 ",.01)
 ;;51138047230
 ;;9002226.02101,"830,51138047230 ",.02)
 ;;51138047230
 ;;9002226.02101,"830,51138047330 ",.01)
 ;;51138047330
 ;;9002226.02101,"830,51138047330 ",.02)
 ;;51138047330
 ;;9002226.02101,"830,51138047430 ",.01)
 ;;51138047430
 ;;9002226.02101,"830,51138047430 ",.02)
 ;;51138047430
 ;;9002226.02101,"830,51138047530 ",.01)
 ;;51138047530
 ;;9002226.02101,"830,51138047530 ",.02)
 ;;51138047530
 ;;9002226.02101,"830,51655004504 ",.01)
 ;;51655004504
 ;;9002226.02101,"830,51655004504 ",.02)
 ;;51655004504
 ;;9002226.02101,"830,51655004524 ",.01)
 ;;51655004524
 ;;9002226.02101,"830,51655004524 ",.02)
 ;;51655004524
 ;;9002226.02101,"830,51655004528 ",.01)
 ;;51655004528
 ;;9002226.02101,"830,51655004528 ",.02)
 ;;51655004528
 ;;9002226.02101,"830,51655004552 ",.01)
 ;;51655004552
 ;;9002226.02101,"830,51655004552 ",.02)
 ;;51655004552
 ;;9002226.02101,"830,51655004553 ",.01)
 ;;51655004553
 ;;9002226.02101,"830,51655004553 ",.02)
 ;;51655004553
 ;;9002226.02101,"830,51655029124 ",.01)
 ;;51655029124
 ;;9002226.02101,"830,51655029124 ",.02)
 ;;51655029124
 ;;9002226.02101,"830,51655029125 ",.01)
 ;;51655029125
 ;;9002226.02101,"830,51655029125 ",.02)
 ;;51655029125
 ;;9002226.02101,"830,51655029152 ",.01)
 ;;51655029152
 ;;9002226.02101,"830,51655029152 ",.02)
 ;;51655029152
 ;;9002226.02101,"830,51655029153 ",.01)
 ;;51655029153