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

BGPM5AMB.m

Go to the documentation of this file.
BGPM5AMB ;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,"900,58016091648 ",.01)
 ;;58016091648
 ;;9002226.02101,"900,58016091648 ",.02)
 ;;58016091648
 ;;9002226.02101,"900,58016091650 ",.01)
 ;;58016091650
 ;;9002226.02101,"900,58016091650 ",.02)
 ;;58016091650
 ;;9002226.02101,"900,58016091656 ",.01)
 ;;58016091656
 ;;9002226.02101,"900,58016091656 ",.02)
 ;;58016091656
 ;;9002226.02101,"900,58016091660 ",.01)
 ;;58016091660
 ;;9002226.02101,"900,58016091660 ",.02)
 ;;58016091660
 ;;9002226.02101,"900,58016091667 ",.01)
 ;;58016091667
 ;;9002226.02101,"900,58016091667 ",.02)
 ;;58016091667
 ;;9002226.02101,"900,58016091669 ",.01)
 ;;58016091669
 ;;9002226.02101,"900,58016091669 ",.02)
 ;;58016091669
 ;;9002226.02101,"900,58016091670 ",.01)
 ;;58016091670
 ;;9002226.02101,"900,58016091670 ",.02)
 ;;58016091670
 ;;9002226.02101,"900,58016091671 ",.01)
 ;;58016091671
 ;;9002226.02101,"900,58016091671 ",.02)
 ;;58016091671
 ;;9002226.02101,"900,58016091672 ",.01)
 ;;58016091672
 ;;9002226.02101,"900,58016091672 ",.02)
 ;;58016091672
 ;;9002226.02101,"900,58016091673 ",.01)
 ;;58016091673
 ;;9002226.02101,"900,58016091673 ",.02)
 ;;58016091673
 ;;9002226.02101,"900,58016091675 ",.01)
 ;;58016091675
 ;;9002226.02101,"900,58016091675 ",.02)
 ;;58016091675
 ;;9002226.02101,"900,58016091676 ",.01)
 ;;58016091676
 ;;9002226.02101,"900,58016091676 ",.02)
 ;;58016091676
 ;;9002226.02101,"900,58016091677 ",.01)
 ;;58016091677
 ;;9002226.02101,"900,58016091677 ",.02)
 ;;58016091677
 ;;9002226.02101,"900,58016091679 ",.01)
 ;;58016091679
 ;;9002226.02101,"900,58016091679 ",.02)
 ;;58016091679
 ;;9002226.02101,"900,58016091680 ",.01)
 ;;58016091680
 ;;9002226.02101,"900,58016091680 ",.02)
 ;;58016091680
 ;;9002226.02101,"900,58016091681 ",.01)
 ;;58016091681
 ;;9002226.02101,"900,58016091681 ",.02)
 ;;58016091681
 ;;9002226.02101,"900,58016091682 ",.01)
 ;;58016091682
 ;;9002226.02101,"900,58016091682 ",.02)
 ;;58016091682
 ;;9002226.02101,"900,58016091683 ",.01)
 ;;58016091683
 ;;9002226.02101,"900,58016091683 ",.02)
 ;;58016091683
 ;;9002226.02101,"900,58016091684 ",.01)
 ;;58016091684
 ;;9002226.02101,"900,58016091684 ",.02)
 ;;58016091684
 ;;9002226.02101,"900,58016091687 ",.01)
 ;;58016091687
 ;;9002226.02101,"900,58016091687 ",.02)
 ;;58016091687
 ;;9002226.02101,"900,58016091689 ",.01)
 ;;58016091689
 ;;9002226.02101,"900,58016091689 ",.02)
 ;;58016091689
 ;;9002226.02101,"900,58016091690 ",.01)
 ;;58016091690
 ;;9002226.02101,"900,58016091690 ",.02)
 ;;58016091690
 ;;9002226.02101,"900,58016091691 ",.01)
 ;;58016091691
 ;;9002226.02101,"900,58016091691 ",.02)
 ;;58016091691
 ;;9002226.02101,"900,58016091692 ",.01)
 ;;58016091692
 ;;9002226.02101,"900,58016091692 ",.02)
 ;;58016091692
 ;;9002226.02101,"900,58016091693 ",.01)
 ;;58016091693
 ;;9002226.02101,"900,58016091693 ",.02)
 ;;58016091693
 ;;9002226.02101,"900,58016091696 ",.01)
 ;;58016091696
 ;;9002226.02101,"900,58016091696 ",.02)
 ;;58016091696
 ;;9002226.02101,"900,58016091697 ",.01)
 ;;58016091697
 ;;9002226.02101,"900,58016091697 ",.02)
 ;;58016091697
 ;;9002226.02101,"900,58016091698 ",.01)
 ;;58016091698
 ;;9002226.02101,"900,58016091698 ",.02)
 ;;58016091698
 ;;9002226.02101,"900,58016091699 ",.01)
 ;;58016091699
 ;;9002226.02101,"900,58016091699 ",.02)
 ;;58016091699
 ;;9002226.02101,"900,58016092200 ",.01)
 ;;58016092200
 ;;9002226.02101,"900,58016092200 ",.02)
 ;;58016092200
 ;;9002226.02101,"900,58016092201 ",.01)
 ;;58016092201
 ;;9002226.02101,"900,58016092201 ",.02)
 ;;58016092201
 ;;9002226.02101,"900,58016092202 ",.01)
 ;;58016092202
 ;;9002226.02101,"900,58016092202 ",.02)
 ;;58016092202
 ;;9002226.02101,"900,58016092203 ",.01)
 ;;58016092203
 ;;9002226.02101,"900,58016092203 ",.02)
 ;;58016092203
 ;;9002226.02101,"900,58016092204 ",.01)
 ;;58016092204
 ;;9002226.02101,"900,58016092204 ",.02)
 ;;58016092204
 ;;9002226.02101,"900,58016092205 ",.01)
 ;;58016092205
 ;;9002226.02101,"900,58016092205 ",.02)
 ;;58016092205
 ;;9002226.02101,"900,58016092206 ",.01)
 ;;58016092206
 ;;9002226.02101,"900,58016092206 ",.02)
 ;;58016092206
 ;;9002226.02101,"900,58016092207 ",.01)
 ;;58016092207
 ;;9002226.02101,"900,58016092207 ",.02)
 ;;58016092207
 ;;9002226.02101,"900,58016092208 ",.01)
 ;;58016092208
 ;;9002226.02101,"900,58016092208 ",.02)
 ;;58016092208
 ;;9002226.02101,"900,58016092209 ",.01)
 ;;58016092209
 ;;9002226.02101,"900,58016092209 ",.02)
 ;;58016092209
 ;;9002226.02101,"900,58016092210 ",.01)
 ;;58016092210
 ;;9002226.02101,"900,58016092210 ",.02)
 ;;58016092210
 ;;9002226.02101,"900,58016092212 ",.01)
 ;;58016092212
 ;;9002226.02101,"900,58016092212 ",.02)
 ;;58016092212
 ;;9002226.02101,"900,58016092214 ",.01)
 ;;58016092214
 ;;9002226.02101,"900,58016092214 ",.02)
 ;;58016092214
 ;;9002226.02101,"900,58016092215 ",.01)
 ;;58016092215
 ;;9002226.02101,"900,58016092215 ",.02)
 ;;58016092215
 ;;9002226.02101,"900,58016092216 ",.01)
 ;;58016092216
 ;;9002226.02101,"900,58016092216 ",.02)
 ;;58016092216
 ;;9002226.02101,"900,58016092218 ",.01)
 ;;58016092218
 ;;9002226.02101,"900,58016092218 ",.02)
 ;;58016092218
 ;;9002226.02101,"900,58016092220 ",.01)
 ;;58016092220
 ;;9002226.02101,"900,58016092220 ",.02)
 ;;58016092220
 ;;9002226.02101,"900,58016092221 ",.01)
 ;;58016092221
 ;;9002226.02101,"900,58016092221 ",.02)
 ;;58016092221
 ;;9002226.02101,"900,58016092224 ",.01)
 ;;58016092224
 ;;9002226.02101,"900,58016092224 ",.02)
 ;;58016092224
 ;;9002226.02101,"900,58016092225 ",.01)
 ;;58016092225
 ;;9002226.02101,"900,58016092225 ",.02)
 ;;58016092225
 ;;9002226.02101,"900,58016092226 ",.01)
 ;;58016092226
 ;;9002226.02101,"900,58016092226 ",.02)
 ;;58016092226
 ;;9002226.02101,"900,58016092227 ",.01)
 ;;58016092227
 ;;9002226.02101,"900,58016092227 ",.02)
 ;;58016092227
 ;;9002226.02101,"900,58016092228 ",.01)
 ;;58016092228
 ;;9002226.02101,"900,58016092228 ",.02)
 ;;58016092228
 ;;9002226.02101,"900,58016092230 ",.01)
 ;;58016092230
 ;;9002226.02101,"900,58016092230 ",.02)
 ;;58016092230
 ;;9002226.02101,"900,58016092232 ",.01)
 ;;58016092232
 ;;9002226.02101,"900,58016092232 ",.02)
 ;;58016092232
 ;;9002226.02101,"900,58016092235 ",.01)
 ;;58016092235
 ;;9002226.02101,"900,58016092235 ",.02)
 ;;58016092235
 ;;9002226.02101,"900,58016092236 ",.01)
 ;;58016092236
 ;;9002226.02101,"900,58016092236 ",.02)
 ;;58016092236
 ;;9002226.02101,"900,58016092240 ",.01)
 ;;58016092240
 ;;9002226.02101,"900,58016092240 ",.02)
 ;;58016092240
 ;;9002226.02101,"900,58016092242 ",.01)
 ;;58016092242
 ;;9002226.02101,"900,58016092242 ",.02)
 ;;58016092242
 ;;9002226.02101,"900,58016092244 ",.01)
 ;;58016092244
 ;;9002226.02101,"900,58016092244 ",.02)
 ;;58016092244
 ;;9002226.02101,"900,58016092245 ",.01)
 ;;58016092245
 ;;9002226.02101,"900,58016092245 ",.02)
 ;;58016092245
 ;;9002226.02101,"900,58016092248 ",.01)
 ;;58016092248
 ;;9002226.02101,"900,58016092248 ",.02)
 ;;58016092248
 ;;9002226.02101,"900,58016092256 ",.01)
 ;;58016092256
 ;;9002226.02101,"900,58016092256 ",.02)
 ;;58016092256
 ;;9002226.02101,"900,58016092260 ",.01)
 ;;58016092260
 ;;9002226.02101,"900,58016092260 ",.02)
 ;;58016092260
 ;;9002226.02101,"900,58016092267 ",.01)
 ;;58016092267
 ;;9002226.02101,"900,58016092267 ",.02)
 ;;58016092267
 ;;9002226.02101,"900,58016092269 ",.01)
 ;;58016092269
 ;;9002226.02101,"900,58016092269 ",.02)
 ;;58016092269
 ;;9002226.02101,"900,58016092270 ",.01)
 ;;58016092270
 ;;9002226.02101,"900,58016092270 ",.02)
 ;;58016092270
 ;;9002226.02101,"900,58016092271 ",.01)
 ;;58016092271
 ;;9002226.02101,"900,58016092271 ",.02)
 ;;58016092271
 ;;9002226.02101,"900,58016092272 ",.01)
 ;;58016092272
 ;;9002226.02101,"900,58016092272 ",.02)
 ;;58016092272
 ;;9002226.02101,"900,58016092273 ",.01)
 ;;58016092273
 ;;9002226.02101,"900,58016092273 ",.02)
 ;;58016092273
 ;;9002226.02101,"900,58016092275 ",.01)
 ;;58016092275
 ;;9002226.02101,"900,58016092275 ",.02)
 ;;58016092275
 ;;9002226.02101,"900,58016092276 ",.01)
 ;;58016092276
 ;;9002226.02101,"900,58016092276 ",.02)
 ;;58016092276
 ;;9002226.02101,"900,58016092277 ",.01)
 ;;58016092277
 ;;9002226.02101,"900,58016092277 ",.02)
 ;;58016092277
 ;;9002226.02101,"900,58016092279 ",.01)
 ;;58016092279
 ;;9002226.02101,"900,58016092279 ",.02)
 ;;58016092279
 ;;9002226.02101,"900,58016092280 ",.01)
 ;;58016092280
 ;;9002226.02101,"900,58016092280 ",.02)
 ;;58016092280
 ;;9002226.02101,"900,58016092281 ",.01)
 ;;58016092281
 ;;9002226.02101,"900,58016092281 ",.02)
 ;;58016092281
 ;;9002226.02101,"900,58016092282 ",.01)
 ;;58016092282
 ;;9002226.02101,"900,58016092282 ",.02)
 ;;58016092282
 ;;9002226.02101,"900,58016092283 ",.01)
 ;;58016092283
 ;;9002226.02101,"900,58016092283 ",.02)
 ;;58016092283
 ;;9002226.02101,"900,58016092284 ",.01)
 ;;58016092284
 ;;9002226.02101,"900,58016092284 ",.02)
 ;;58016092284
 ;;9002226.02101,"900,58016092287 ",.01)
 ;;58016092287
 ;;9002226.02101,"900,58016092287 ",.02)
 ;;58016092287
 ;;9002226.02101,"900,58016092289 ",.01)
 ;;58016092289
 ;;9002226.02101,"900,58016092289 ",.02)
 ;;58016092289
 ;;9002226.02101,"900,58016092290 ",.01)
 ;;58016092290
 ;;9002226.02101,"900,58016092290 ",.02)
 ;;58016092290
 ;;9002226.02101,"900,58016092291 ",.01)
 ;;58016092291
 ;;9002226.02101,"900,58016092291 ",.02)
 ;;58016092291
 ;;9002226.02101,"900,58016092292 ",.01)
 ;;58016092292
 ;;9002226.02101,"900,58016092292 ",.02)
 ;;58016092292
 ;;9002226.02101,"900,58016092293 ",.01)
 ;;58016092293
 ;;9002226.02101,"900,58016092293 ",.02)
 ;;58016092293
 ;;9002226.02101,"900,58016092296 ",.01)
 ;;58016092296
 ;;9002226.02101,"900,58016092296 ",.02)
 ;;58016092296
 ;;9002226.02101,"900,58016092297 ",.01)
 ;;58016092297
 ;;9002226.02101,"900,58016092297 ",.02)
 ;;58016092297
 ;;9002226.02101,"900,58016092298 ",.01)
 ;;58016092298
 ;;9002226.02101,"900,58016092298 ",.02)
 ;;58016092298
 ;;9002226.02101,"900,58016092299 ",.01)
 ;;58016092299
 ;;9002226.02101,"900,58016092299 ",.02)
 ;;58016092299
 ;;9002226.02101,"900,58016097900 ",.01)
 ;;58016097900
 ;;9002226.02101,"900,58016097900 ",.02)
 ;;58016097900
 ;;9002226.02101,"900,58016097901 ",.01)
 ;;58016097901
 ;;9002226.02101,"900,58016097901 ",.02)
 ;;58016097901
 ;;9002226.02101,"900,58016097902 ",.01)
 ;;58016097902
 ;;9002226.02101,"900,58016097902 ",.02)
 ;;58016097902
 ;;9002226.02101,"900,58016097903 ",.01)
 ;;58016097903
 ;;9002226.02101,"900,58016097903 ",.02)
 ;;58016097903
 ;;9002226.02101,"900,58016097904 ",.01)
 ;;58016097904
 ;;9002226.02101,"900,58016097904 ",.02)
 ;;58016097904
 ;;9002226.02101,"900,58016097905 ",.01)
 ;;58016097905
 ;;9002226.02101,"900,58016097905 ",.02)
 ;;58016097905
 ;;9002226.02101,"900,58016097906 ",.01)
 ;;58016097906
 ;;9002226.02101,"900,58016097906 ",.02)
 ;;58016097906
 ;;9002226.02101,"900,58016097907 ",.01)
 ;;58016097907
 ;;9002226.02101,"900,58016097907 ",.02)
 ;;58016097907
 ;;9002226.02101,"900,58016097908 ",.01)
 ;;58016097908
 ;;9002226.02101,"900,58016097908 ",.02)
 ;;58016097908
 ;;9002226.02101,"900,58016097909 ",.01)
 ;;58016097909
 ;;9002226.02101,"900,58016097909 ",.02)
 ;;58016097909
 ;;9002226.02101,"900,58016097910 ",.01)
 ;;58016097910
 ;;9002226.02101,"900,58016097910 ",.02)
 ;;58016097910
 ;;9002226.02101,"900,58016097912 ",.01)
 ;;58016097912
 ;;9002226.02101,"900,58016097912 ",.02)
 ;;58016097912
 ;;9002226.02101,"900,58016097914 ",.01)
 ;;58016097914
 ;;9002226.02101,"900,58016097914 ",.02)
 ;;58016097914
 ;;9002226.02101,"900,58016097915 ",.01)
 ;;58016097915
 ;;9002226.02101,"900,58016097915 ",.02)
 ;;58016097915