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