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