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

BGPM5AJD.m

Go to the documentation of this file.
  1. BGPM5AJD ;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,"889,00591578201 ",.01)
  1. ;;00591578201
  1. ;;9002226.02101,"889,00591578201 ",.02)
  1. ;;00591578201
  1. ;;9002226.02101,"889,00591578300 ",.01)
  1. ;;00591578300
  1. ;;9002226.02101,"889,00591578300 ",.02)
  1. ;;00591578300
  1. ;;9002226.02101,"889,00591578301 ",.01)
  1. ;;00591578301
  1. ;;9002226.02101,"889,00591578301 ",.02)
  1. ;;00591578301
  1. ;;9002226.02101,"889,00603237121 ",.01)
  1. ;;00603237121
  1. ;;9002226.02101,"889,00603237121 ",.02)
  1. ;;00603237121
  1. ;;9002226.02101,"889,00603237132 ",.01)
  1. ;;00603237132
  1. ;;9002226.02101,"889,00603237132 ",.02)
  1. ;;00603237132
  1. ;;9002226.02101,"889,00603237221 ",.01)
  1. ;;00603237221
  1. ;;9002226.02101,"889,00603237221 ",.02)
  1. ;;00603237221
  1. ;;9002226.02101,"889,00603462721 ",.01)
  1. ;;00603462721
  1. ;;9002226.02101,"889,00603462721 ",.02)
  1. ;;00603462721
  1. ;;9002226.02101,"889,00603462732 ",.01)
  1. ;;00603462732
  1. ;;9002226.02101,"889,00603462732 ",.02)
  1. ;;00603462732
  1. ;;9002226.02101,"889,00603462821 ",.01)
  1. ;;00603462821
  1. ;;9002226.02101,"889,00603462821 ",.02)
  1. ;;00603462821
  1. ;;9002226.02101,"889,00603462832 ",.01)
  1. ;;00603462832
  1. ;;9002226.02101,"889,00603462832 ",.02)
  1. ;;00603462832
  1. ;;9002226.02101,"889,00603474221 ",.01)
  1. ;;00603474221
  1. ;;9002226.02101,"889,00603474221 ",.02)
  1. ;;00603474221
  1. ;;9002226.02101,"889,00603522021 ",.01)
  1. ;;00603522021
  1. ;;9002226.02101,"889,00603522021 ",.02)
  1. ;;00603522021
  1. ;;9002226.02101,"889,00603522121 ",.01)
  1. ;;00603522121
  1. ;;9002226.02101,"889,00603522121 ",.02)
  1. ;;00603522121
  1. ;;9002226.02101,"889,00603548221 ",.01)
  1. ;;00603548221
  1. ;;9002226.02101,"889,00603548221 ",.02)
  1. ;;00603548221
  1. ;;9002226.02101,"889,00603548232 ",.01)
  1. ;;00603548232
  1. ;;9002226.02101,"889,00603548232 ",.02)
  1. ;;00603548232
  1. ;;9002226.02101,"889,00603548321 ",.01)
  1. ;;00603548321
  1. ;;9002226.02101,"889,00603548321 ",.02)
  1. ;;00603548321
  1. ;;9002226.02101,"889,00603548332 ",.01)
  1. ;;00603548332
  1. ;;9002226.02101,"889,00603548332 ",.02)
  1. ;;00603548332
  1. ;;9002226.02101,"889,00603548421 ",.01)
  1. ;;00603548421
  1. ;;9002226.02101,"889,00603548421 ",.02)
  1. ;;00603548421
  1. ;;9002226.02101,"889,00603548432 ",.01)
  1. ;;00603548432
  1. ;;9002226.02101,"889,00603548432 ",.02)
  1. ;;00603548432
  1. ;;9002226.02101,"889,00603548521 ",.01)
  1. ;;00603548521
  1. ;;9002226.02101,"889,00603548521 ",.02)
  1. ;;00603548521
  1. ;;9002226.02101,"889,00603548621 ",.01)
  1. ;;00603548621
  1. ;;9002226.02101,"889,00603548621 ",.02)
  1. ;;00603548621
  1. ;;9002226.02101,"889,00603548628 ",.01)
  1. ;;00603548628
  1. ;;9002226.02101,"889,00603548628 ",.02)
  1. ;;00603548628
  1. ;;9002226.02101,"889,00603548921 ",.01)
  1. ;;00603548921
  1. ;;9002226.02101,"889,00603548921 ",.02)
  1. ;;00603548921
  1. ;;9002226.02101,"889,00603548932 ",.01)
  1. ;;00603548932
  1. ;;9002226.02101,"889,00603548932 ",.02)
  1. ;;00603548932
  1. ;;9002226.02101,"889,00603549021 ",.01)
  1. ;;00603549021
  1. ;;9002226.02101,"889,00603549021 ",.02)
  1. ;;00603549021
  1. ;;9002226.02101,"889,00603549032 ",.01)
  1. ;;00603549032
  1. ;;9002226.02101,"889,00603549032 ",.02)
  1. ;;00603549032
  1. ;;9002226.02101,"889,00603549132 ",.01)
  1. ;;00603549132
  1. ;;9002226.02101,"889,00603549132 ",.02)
  1. ;;00603549132
  1. ;;9002226.02101,"889,00603549221 ",.01)
  1. ;;00603549221
  1. ;;9002226.02101,"889,00603549221 ",.02)
  1. ;;00603549221
  1. ;;9002226.02101,"889,00603549228 ",.01)
  1. ;;00603549228
  1. ;;9002226.02101,"889,00603549228 ",.02)
  1. ;;00603549228
  1. ;;9002226.02101,"889,00603549321 ",.01)
  1. ;;00603549321
  1. ;;9002226.02101,"889,00603549321 ",.02)
  1. ;;00603549321
  1. ;;9002226.02101,"889,00603549328 ",.01)
  1. ;;00603549328
  1. ;;9002226.02101,"889,00603549328 ",.02)
  1. ;;00603549328
  1. ;;9002226.02101,"889,00603550321 ",.01)
  1. ;;00603550321
  1. ;;9002226.02101,"889,00603550321 ",.02)
  1. ;;00603550321
  1. ;;9002226.02101,"889,00603550328 ",.01)
  1. ;;00603550328
  1. ;;9002226.02101,"889,00603550328 ",.02)
  1. ;;00603550328
  1. ;;9002226.02101,"889,00603550421 ",.01)
  1. ;;00603550421
  1. ;;9002226.02101,"889,00603550421 ",.02)
  1. ;;00603550421
  1. ;;9002226.02101,"889,00615256131 ",.01)
  1. ;;00615256131
  1. ;;9002226.02101,"889,00615256131 ",.02)
  1. ;;00615256131
  1. ;;9002226.02101,"889,00615256139 ",.01)
  1. ;;00615256139
  1. ;;9002226.02101,"889,00615256139 ",.02)
  1. ;;00615256139
  1. ;;9002226.02101,"889,00615256231 ",.01)
  1. ;;00615256231
  1. ;;9002226.02101,"889,00615256231 ",.02)
  1. ;;00615256231
  1. ;;9002226.02101,"889,00615256239 ",.01)
  1. ;;00615256239
  1. ;;9002226.02101,"889,00615256239 ",.02)
  1. ;;00615256239
  1. ;;9002226.02101,"889,00615256331 ",.01)
  1. ;;00615256331
  1. ;;9002226.02101,"889,00615256331 ",.02)
  1. ;;00615256331
  1. ;;9002226.02101,"889,00615256339 ",.01)
  1. ;;00615256339
  1. ;;9002226.02101,"889,00615256339 ",.02)
  1. ;;00615256339
  1. ;;9002226.02101,"889,00615353205 ",.01)
  1. ;;00615353205
  1. ;;9002226.02101,"889,00615353205 ",.02)
  1. ;;00615353205
  1. ;;9002226.02101,"889,00615353231 ",.01)
  1. ;;00615353231
  1. ;;9002226.02101,"889,00615353231 ",.02)
  1. ;;00615353231
  1. ;;9002226.02101,"889,00615353239 ",.01)
  1. ;;00615353239
  1. ;;9002226.02101,"889,00615353239 ",.02)
  1. ;;00615353239
  1. ;;9002226.02101,"889,00615353331 ",.01)
  1. ;;00615353331
  1. ;;9002226.02101,"889,00615353331 ",.02)
  1. ;;00615353331
  1. ;;9002226.02101,"889,00615353339 ",.01)
  1. ;;00615353339
  1. ;;9002226.02101,"889,00615353339 ",.02)
  1. ;;00615353339
  1. ;;9002226.02101,"889,00615354405 ",.01)
  1. ;;00615354405
  1. ;;9002226.02101,"889,00615354405 ",.02)
  1. ;;00615354405
  1. ;;9002226.02101,"889,00615354431 ",.01)
  1. ;;00615354431
  1. ;;9002226.02101,"889,00615354431 ",.02)
  1. ;;00615354431
  1. ;;9002226.02101,"889,00615354439 ",.01)
  1. ;;00615354439
  1. ;;9002226.02101,"889,00615354439 ",.02)
  1. ;;00615354439
  1. ;;9002226.02101,"889,00615355205 ",.01)
  1. ;;00615355205
  1. ;;9002226.02101,"889,00615355205 ",.02)
  1. ;;00615355205
  1. ;;9002226.02101,"889,00615355231 ",.01)
  1. ;;00615355231
  1. ;;9002226.02101,"889,00615355231 ",.02)
  1. ;;00615355231
  1. ;;9002226.02101,"889,00615355239 ",.01)
  1. ;;00615355239
  1. ;;9002226.02101,"889,00615355239 ",.02)
  1. ;;00615355239
  1. ;;9002226.02101,"889,00615355331 ",.01)
  1. ;;00615355331
  1. ;;9002226.02101,"889,00615355331 ",.02)
  1. ;;00615355331
  1. ;;9002226.02101,"889,00615355339 ",.01)
  1. ;;00615355339
  1. ;;9002226.02101,"889,00615355339 ",.02)
  1. ;;00615355339
  1. ;;9002226.02101,"889,00615453831 ",.01)
  1. ;;00615453831
  1. ;;9002226.02101,"889,00615453831 ",.02)
  1. ;;00615453831
  1. ;;9002226.02101,"889,00615453839 ",.01)
  1. ;;00615453839
  1. ;;9002226.02101,"889,00615453839 ",.02)
  1. ;;00615453839
  1. ;;9002226.02101,"889,00615453931 ",.01)
  1. ;;00615453931
  1. ;;9002226.02101,"889,00615453931 ",.02)
  1. ;;00615453931
  1. ;;9002226.02101,"889,00615453939 ",.01)
  1. ;;00615453939
  1. ;;9002226.02101,"889,00615453939 ",.02)
  1. ;;00615453939
  1. ;;9002226.02101,"889,00615454031 ",.01)
  1. ;;00615454031
  1. ;;9002226.02101,"889,00615454031 ",.02)
  1. ;;00615454031
  1. ;;9002226.02101,"889,00615454039 ",.01)
  1. ;;00615454039
  1. ;;9002226.02101,"889,00615454039 ",.02)
  1. ;;00615454039
  1. ;;9002226.02101,"889,00615555631 ",.01)
  1. ;;00615555631
  1. ;;9002226.02101,"889,00615555631 ",.02)
  1. ;;00615555631
  1. ;;9002226.02101,"889,00615555639 ",.01)
  1. ;;00615555639
  1. ;;9002226.02101,"889,00615555639 ",.02)
  1. ;;00615555639
  1. ;;9002226.02101,"889,00615555731 ",.01)
  1. ;;00615555731
  1. ;;9002226.02101,"889,00615555731 ",.02)
  1. ;;00615555731
  1. ;;9002226.02101,"889,00615555739 ",.01)
  1. ;;00615555739
  1. ;;9002226.02101,"889,00615555739 ",.02)
  1. ;;00615555739
  1. ;;9002226.02101,"889,00615560631 ",.01)
  1. ;;00615560631
  1. ;;9002226.02101,"889,00615560631 ",.02)
  1. ;;00615560631
  1. ;;9002226.02101,"889,00615560639 ",.01)
  1. ;;00615560639
  1. ;;9002226.02101,"889,00615560639 ",.02)
  1. ;;00615560639
  1. ;;9002226.02101,"889,00615560731 ",.01)
  1. ;;00615560731
  1. ;;9002226.02101,"889,00615560731 ",.02)
  1. ;;00615560731
  1. ;;9002226.02101,"889,00615560739 ",.01)
  1. ;;00615560739
  1. ;;9002226.02101,"889,00615560739 ",.02)
  1. ;;00615560739
  1. ;;9002226.02101,"889,00615652231 ",.01)
  1. ;;00615652231
  1. ;;9002226.02101,"889,00615652231 ",.02)
  1. ;;00615652231
  1. ;;9002226.02101,"889,00615652239 ",.01)
  1. ;;00615652239
  1. ;;9002226.02101,"889,00615652239 ",.02)
  1. ;;00615652239
  1. ;;9002226.02101,"889,00615652931 ",.01)
  1. ;;00615652931
  1. ;;9002226.02101,"889,00615652931 ",.02)
  1. ;;00615652931
  1. ;;9002226.02101,"889,00615652939 ",.01)
  1. ;;00615652939
  1. ;;9002226.02101,"889,00615652939 ",.02)
  1. ;;00615652939
  1. ;;9002226.02101,"889,00615654705 ",.01)
  1. ;;00615654705
  1. ;;9002226.02101,"889,00615654705 ",.02)
  1. ;;00615654705
  1. ;;9002226.02101,"889,00615654731 ",.01)
  1. ;;00615654731
  1. ;;9002226.02101,"889,00615654731 ",.02)
  1. ;;00615654731
  1. ;;9002226.02101,"889,00615654739 ",.01)
  1. ;;00615654739
  1. ;;9002226.02101,"889,00615654739 ",.02)
  1. ;;00615654739
  1. ;;9002226.02101,"889,00641014501 ",.01)
  1. ;;00641014501
  1. ;;9002226.02101,"889,00641014501 ",.02)
  1. ;;00641014501
  1. ;;9002226.02101,"889,00641014543 ",.01)
  1. ;;00641014543
  1. ;;9002226.02101,"889,00641014543 ",.02)
  1. ;;00641014543
  1. ;;9002226.02101,"889,00677136301 ",.01)
  1. ;;00677136301
  1. ;;9002226.02101,"889,00677136301 ",.02)
  1. ;;00677136301
  1. ;;9002226.02101,"889,00677136401 ",.01)
  1. ;;00677136401
  1. ;;9002226.02101,"889,00677136401 ",.02)
  1. ;;00677136401
  1. ;;9002226.02101,"889,00677136501 ",.01)
  1. ;;00677136501
  1. ;;9002226.02101,"889,00677136501 ",.02)
  1. ;;00677136501
  1. ;;9002226.02101,"889,00677136601 ",.01)
  1. ;;00677136601
  1. ;;9002226.02101,"889,00677136601 ",.02)
  1. ;;00677136601
  1. ;;9002226.02101,"889,00677147801 ",.01)
  1. ;;00677147801
  1. ;;9002226.02101,"889,00677147801 ",.02)
  1. ;;00677147801
  1. ;;9002226.02101,"889,00677147810 ",.01)
  1. ;;00677147810
  1. ;;9002226.02101,"889,00677147810 ",.02)
  1. ;;00677147810
  1. ;;9002226.02101,"889,00677147901 ",.01)
  1. ;;00677147901
  1. ;;9002226.02101,"889,00677147901 ",.02)
  1. ;;00677147901
  1. ;;9002226.02101,"889,00677147910 ",.01)
  1. ;;00677147910
  1. ;;9002226.02101,"889,00677147910 ",.02)
  1. ;;00677147910
  1. ;;9002226.02101,"889,00677163301 ",.01)
  1. ;;00677163301
  1. ;;9002226.02101,"889,00677163301 ",.02)
  1. ;;00677163301
  1. ;;9002226.02101,"889,00677170101 ",.01)
  1. ;;00677170101
  1. ;;9002226.02101,"889,00677170101 ",.02)
  1. ;;00677170101
  1. ;;9002226.02101,"889,00677170105 ",.01)
  1. ;;00677170105
  1. ;;9002226.02101,"889,00677170105 ",.02)
  1. ;;00677170105
  1. ;;9002226.02101,"889,00677170106 ",.01)
  1. ;;00677170106
  1. ;;9002226.02101,"889,00677170106 ",.02)
  1. ;;00677170106
  1. ;;9002226.02101,"889,00677170206 ",.01)
  1. ;;00677170206
  1. ;;9002226.02101,"889,00677170206 ",.02)
  1. ;;00677170206
  1. ;;9002226.02101,"889,00677170301 ",.01)
  1. ;;00677170301
  1. ;;9002226.02101,"889,00677170301 ",.02)
  1. ;;00677170301
  1. ;;9002226.02101,"889,00781046005 ",.01)
  1. ;;00781046005
  1. ;;9002226.02101,"889,00781046005 ",.02)
  1. ;;00781046005
  1. ;;9002226.02101,"889,00781046105 ",.01)
  1. ;;00781046105
  1. ;;9002226.02101,"889,00781046105 ",.02)
  1. ;;00781046105
  1. ;;9002226.02101,"889,00781107801 ",.01)
  1. ;;00781107801
  1. ;;9002226.02101,"889,00781107801 ",.02)
  1. ;;00781107801
  1. ;;9002226.02101,"889,00781107805 ",.01)
  1. ;;00781107805
  1. ;;9002226.02101,"889,00781107805 ",.02)
  1. ;;00781107805
  1. ;;9002226.02101,"889,00781107810 ",.01)
  1. ;;00781107810
  1. ;;9002226.02101,"889,00781107810 ",.02)
  1. ;;00781107810
  1. ;;9002226.02101,"889,00781118101 ",.01)
  1. ;;00781118101
  1. ;;9002226.02101,"889,00781118101 ",.02)
  1. ;;00781118101
  1. ;;9002226.02101,"889,00781118110 ",.01)
  1. ;;00781118110
  1. ;;9002226.02101,"889,00781118110 ",.02)
  1. ;;00781118110
  1. ;;9002226.02101,"889,00781118176 ",.01)
  1. ;;00781118176
  1. ;;9002226.02101,"889,00781118176 ",.02)
  1. ;;00781118176
  1. ;;9002226.02101,"889,00781118192 ",.01)
  1. ;;00781118192
  1. ;;9002226.02101,"889,00781118192 ",.02)
  1. ;;00781118192
  1. ;;9002226.02101,"889,00781118201 ",.01)
  1. ;;00781118201
  1. ;;9002226.02101,"889,00781118201 ",.02)
  1. ;;00781118201
  1. ;;9002226.02101,"889,00781118210 ",.01)
  1. ;;00781118210
  1. ;;9002226.02101,"889,00781118210 ",.02)
  1. ;;00781118210
  1. ;;9002226.02101,"889,00781118276 ",.01)
  1. ;;00781118276
  1. ;;9002226.02101,"889,00781118276 ",.02)
  1. ;;00781118276