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

BGPM5ALO.m

Go to the documentation of this file.
BGPM5ALO ;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,00904523552 ",.01)
 ;;00904523552
 ;;9002226.02101,"900,00904523552 ",.02)
 ;;00904523552
 ;;9002226.02101,"900,00904537940 ",.01)
 ;;00904537940
 ;;9002226.02101,"900,00904537940 ",.02)
 ;;00904537940
 ;;9002226.02101,"900,00904537952 ",.01)
 ;;00904537952
 ;;9002226.02101,"900,00904537952 ",.02)
 ;;00904537952
 ;;9002226.02101,"900,00904537960 ",.01)
 ;;00904537960
 ;;9002226.02101,"900,00904537960 ",.02)
 ;;00904537960
 ;;9002226.02101,"900,00904537961 ",.01)
 ;;00904537961
 ;;9002226.02101,"900,00904537961 ",.02)
 ;;00904537961
 ;;9002226.02101,"900,00904558152 ",.01)
 ;;00904558152
 ;;9002226.02101,"900,00904558152 ",.02)
 ;;00904558152
 ;;9002226.02101,"900,00904558161 ",.01)
 ;;00904558161
 ;;9002226.02101,"900,00904558161 ",.02)
 ;;00904558161
 ;;9002226.02101,"900,00904558252 ",.01)
 ;;00904558252
 ;;9002226.02101,"900,00904558252 ",.02)
 ;;00904558252
 ;;9002226.02101,"900,00904558261 ",.01)
 ;;00904558261
 ;;9002226.02101,"900,00904558261 ",.02)
 ;;00904558261
 ;;9002226.02101,"900,00904558352 ",.01)
 ;;00904558352
 ;;9002226.02101,"900,00904558352 ",.02)
 ;;00904558352
 ;;9002226.02101,"900,00904558361 ",.01)
 ;;00904558361
 ;;9002226.02101,"900,00904558361 ",.02)
 ;;00904558361
 ;;9002226.02101,"900,00904598840 ",.01)
 ;;00904598840
 ;;9002226.02101,"900,00904598840 ",.02)
 ;;00904598840
 ;;9002226.02101,"900,00904598852 ",.01)
 ;;00904598852
 ;;9002226.02101,"900,00904598852 ",.02)
 ;;00904598852
 ;;9002226.02101,"900,00904598861 ",.01)
 ;;00904598861
 ;;9002226.02101,"900,00904598861 ",.02)
 ;;00904598861
 ;;9002226.02101,"900,00904773240 ",.01)
 ;;00904773240
 ;;9002226.02101,"900,00904773240 ",.02)
 ;;00904773240
 ;;9002226.02101,"900,00904773252 ",.01)
 ;;00904773252
 ;;9002226.02101,"900,00904773252 ",.02)
 ;;00904773252
 ;;9002226.02101,"900,10135018601 ",.01)
 ;;10135018601
 ;;9002226.02101,"900,10135018601 ",.02)
 ;;10135018601
 ;;9002226.02101,"900,10135018610 ",.01)
 ;;10135018610
 ;;9002226.02101,"900,10135018610 ",.02)
 ;;10135018610
 ;;9002226.02101,"900,10135018701 ",.01)
 ;;10135018701
 ;;9002226.02101,"900,10135018701 ",.02)
 ;;10135018701
 ;;9002226.02101,"900,10135018705 ",.01)
 ;;10135018705
 ;;9002226.02101,"900,10135018705 ",.02)
 ;;10135018705
 ;;9002226.02101,"900,10135018710 ",.01)
 ;;10135018710
 ;;9002226.02101,"900,10135018710 ",.02)
 ;;10135018710
 ;;9002226.02101,"900,10135018769 ",.01)
 ;;10135018769
 ;;9002226.02101,"900,10135018769 ",.02)
 ;;10135018769
 ;;9002226.02101,"900,10135018801 ",.01)
 ;;10135018801
 ;;9002226.02101,"900,10135018801 ",.02)
 ;;10135018801
 ;;9002226.02101,"900,10135018805 ",.01)
 ;;10135018805
 ;;9002226.02101,"900,10135018805 ",.02)
 ;;10135018805
 ;;9002226.02101,"900,10135018810 ",.01)
 ;;10135018810
 ;;9002226.02101,"900,10135018810 ",.02)
 ;;10135018810
 ;;9002226.02101,"900,10135018869 ",.01)
 ;;10135018869
 ;;9002226.02101,"900,10135018869 ",.02)
 ;;10135018869
 ;;9002226.02101,"900,10135018901 ",.01)
 ;;10135018901
 ;;9002226.02101,"900,10135018901 ",.02)
 ;;10135018901
 ;;9002226.02101,"900,10135018910 ",.01)
 ;;10135018910
 ;;9002226.02101,"900,10135018910 ",.02)
 ;;10135018910
 ;;9002226.02101,"900,10135019001 ",.01)
 ;;10135019001
 ;;9002226.02101,"900,10135019001 ",.02)
 ;;10135019001
 ;;9002226.02101,"900,10135019010 ",.01)
 ;;10135019010
 ;;9002226.02101,"900,10135019010 ",.02)
 ;;10135019010
 ;;9002226.02101,"900,10135019069 ",.01)
 ;;10135019069
 ;;9002226.02101,"900,10135019069 ",.02)
 ;;10135019069
 ;;9002226.02101,"900,10135019101 ",.01)
 ;;10135019101
 ;;9002226.02101,"900,10135019101 ",.02)
 ;;10135019101
 ;;9002226.02101,"900,10135019110 ",.01)
 ;;10135019110
 ;;9002226.02101,"900,10135019110 ",.02)
 ;;10135019110
 ;;9002226.02101,"900,10135019160 ",.01)
 ;;10135019160
 ;;9002226.02101,"900,10135019160 ",.02)
 ;;10135019160
 ;;9002226.02101,"900,10135019168 ",.01)
 ;;10135019168
 ;;9002226.02101,"900,10135019168 ",.02)
 ;;10135019168
 ;;9002226.02101,"900,10135019190 ",.01)
 ;;10135019190
 ;;9002226.02101,"900,10135019190 ",.02)
 ;;10135019190
 ;;9002226.02101,"900,10135019199 ",.01)
 ;;10135019199
 ;;9002226.02101,"900,10135019199 ",.02)
 ;;10135019199
 ;;9002226.02101,"900,10135019201 ",.01)
 ;;10135019201
 ;;9002226.02101,"900,10135019201 ",.02)
 ;;10135019201
 ;;9002226.02101,"900,10135019210 ",.01)
 ;;10135019210
 ;;9002226.02101,"900,10135019210 ",.02)
 ;;10135019210
 ;;9002226.02101,"900,10267001201 ",.01)
 ;;10267001201
 ;;9002226.02101,"900,10267001201 ",.02)
 ;;10267001201
 ;;9002226.02101,"900,10267001204 ",.01)
 ;;10267001204
 ;;9002226.02101,"900,10267001204 ",.02)
 ;;10267001204
 ;;9002226.02101,"900,10267005300 ",.01)
 ;;10267005300
 ;;9002226.02101,"900,10267005300 ",.02)
 ;;10267005300
 ;;9002226.02101,"900,10267005301 ",.01)
 ;;10267005301
 ;;9002226.02101,"900,10267005301 ",.02)
 ;;10267005301
 ;;9002226.02101,"900,10432003801 ",.01)
 ;;10432003801
 ;;9002226.02101,"900,10432003801 ",.02)
 ;;10432003801
 ;;9002226.02101,"900,10432013301 ",.01)
 ;;10432013301
 ;;9002226.02101,"900,10432013301 ",.02)
 ;;10432013301
 ;;9002226.02101,"900,10432030201 ",.01)
 ;;10432030201
 ;;9002226.02101,"900,10432030201 ",.02)
 ;;10432030201
 ;;9002226.02101,"900,11370015523 ",.01)
 ;;11370015523
 ;;9002226.02101,"900,11370015523 ",.02)
 ;;11370015523
 ;;9002226.02101,"900,11370015530 ",.01)
 ;;11370015530
 ;;9002226.02101,"900,11370015530 ",.02)
 ;;11370015530
 ;;9002226.02101,"900,11370015534 ",.01)
 ;;11370015534
 ;;9002226.02101,"900,11370015534 ",.02)
 ;;11370015534
 ;;9002226.02101,"900,11370015540 ",.01)
 ;;11370015540
 ;;9002226.02101,"900,11370015540 ",.02)
 ;;11370015540
 ;;9002226.02101,"900,11370015597 ",.01)
 ;;11370015597
 ;;9002226.02101,"900,11370015597 ",.02)
 ;;11370015597
 ;;9002226.02101,"900,11370015623 ",.01)
 ;;11370015623
 ;;9002226.02101,"900,11370015623 ",.02)
 ;;11370015623
 ;;9002226.02101,"900,11370015630 ",.01)
 ;;11370015630
 ;;9002226.02101,"900,11370015630 ",.02)
 ;;11370015630
 ;;9002226.02101,"900,11370015640 ",.01)
 ;;11370015640
 ;;9002226.02101,"900,11370015640 ",.02)
 ;;11370015640
 ;;9002226.02101,"900,11370015694 ",.01)
 ;;11370015694
 ;;9002226.02101,"900,11370015694 ",.02)
 ;;11370015694
 ;;9002226.02101,"900,11370015696 ",.01)
 ;;11370015696
 ;;9002226.02101,"900,11370015696 ",.02)
 ;;11370015696
 ;;9002226.02101,"900,11370015723 ",.01)
 ;;11370015723
 ;;9002226.02101,"900,11370015723 ",.02)
 ;;11370015723
 ;;9002226.02101,"900,11370015730 ",.01)
 ;;11370015730
 ;;9002226.02101,"900,11370015730 ",.02)
 ;;11370015730
 ;;9002226.02101,"900,11370015773 ",.01)
 ;;11370015773
 ;;9002226.02101,"900,11370015773 ",.02)
 ;;11370015773
 ;;9002226.02101,"900,11370015797 ",.01)
 ;;11370015797
 ;;9002226.02101,"900,11370015797 ",.02)
 ;;11370015797
 ;;9002226.02101,"900,11383012323 ",.01)
 ;;11383012323
 ;;9002226.02101,"900,11383012323 ",.02)
 ;;11383012323
 ;;9002226.02101,"900,11383014711 ",.01)
 ;;11383014711
 ;;9002226.02101,"900,11383014711 ",.02)
 ;;11383014711
 ;;9002226.02101,"900,11694074201 ",.01)
 ;;11694074201
 ;;9002226.02101,"900,11694074201 ",.02)
 ;;11694074201
 ;;9002226.02101,"900,11694086101 ",.01)
 ;;11694086101
 ;;9002226.02101,"900,11694086101 ",.02)
 ;;11694086101
 ;;9002226.02101,"900,11694086104 ",.01)
 ;;11694086104
 ;;9002226.02101,"900,11694086104 ",.02)
 ;;11694086104
 ;;9002226.02101,"900,11694088101 ",.01)
 ;;11694088101
 ;;9002226.02101,"900,11694088101 ",.02)
 ;;11694088101
 ;;9002226.02101,"900,11819011395 ",.01)
 ;;11819011395
 ;;9002226.02101,"900,11819011395 ",.02)
 ;;11819011395
 ;;9002226.02101,"900,11819025630 ",.01)
 ;;11819025630
 ;;9002226.02101,"900,11819025630 ",.02)
 ;;11819025630
 ;;9002226.02101,"900,11819025645 ",.01)
 ;;11819025645
 ;;9002226.02101,"900,11819025645 ",.02)
 ;;11819025645
 ;;9002226.02101,"900,11819025690 ",.01)
 ;;11819025690
 ;;9002226.02101,"900,11819025690 ",.02)
 ;;11819025690
 ;;9002226.02101,"900,11845005781 ",.01)
 ;;11845005781
 ;;9002226.02101,"900,11845005781 ",.02)
 ;;11845005781
 ;;9002226.02101,"900,11845008825 ",.01)
 ;;11845008825
 ;;9002226.02101,"900,11845008825 ",.02)
 ;;11845008825
 ;;9002226.02101,"900,11845009401 ",.01)
 ;;11845009401
 ;;9002226.02101,"900,11845009401 ",.02)
 ;;11845009401
 ;;9002226.02101,"900,11845057701 ",.01)
 ;;11845057701
 ;;9002226.02101,"900,11845057701 ",.02)
 ;;11845057701
 ;;9002226.02101,"900,11845057801 ",.01)
 ;;11845057801
 ;;9002226.02101,"900,11845057801 ",.02)
 ;;11845057801
 ;;9002226.02101,"900,11845074201 ",.01)
 ;;11845074201
 ;;9002226.02101,"900,11845074201 ",.02)
 ;;11845074201
 ;;9002226.02101,"900,11845094101 ",.01)
 ;;11845094101
 ;;9002226.02101,"900,11845094101 ",.02)
 ;;11845094101
 ;;9002226.02101,"900,11845095201 ",.01)
 ;;11845095201
 ;;9002226.02101,"900,11845095201 ",.02)
 ;;11845095201
 ;;9002226.02101,"900,11845107501 ",.01)
 ;;11845107501
 ;;9002226.02101,"900,11845107501 ",.02)
 ;;11845107501
 ;;9002226.02101,"900,12280015030 ",.01)
 ;;12280015030
 ;;9002226.02101,"900,12280015030 ",.02)
 ;;12280015030
 ;;9002226.02101,"900,12634082390 ",.01)
 ;;12634082390
 ;;9002226.02101,"900,12634082390 ",.02)
 ;;12634082390
 ;;9002226.02101,"900,12634085471 ",.01)
 ;;12634085471
 ;;9002226.02101,"900,12634085471 ",.02)
 ;;12634085471
 ;;9002226.02101,"900,12634086971 ",.01)
 ;;12634086971
 ;;9002226.02101,"900,12634086971 ",.02)
 ;;12634086971
 ;;9002226.02101,"900,13411011101 ",.01)
 ;;13411011101
 ;;9002226.02101,"900,13411011101 ",.02)
 ;;13411011101
 ;;9002226.02101,"900,13411011102 ",.01)
 ;;13411011102
 ;;9002226.02101,"900,13411011102 ",.02)
 ;;13411011102
 ;;9002226.02101,"900,13411011103 ",.01)
 ;;13411011103
 ;;9002226.02101,"900,13411011103 ",.02)
 ;;13411011103
 ;;9002226.02101,"900,13411011106 ",.01)
 ;;13411011106
 ;;9002226.02101,"900,13411011106 ",.02)
 ;;13411011106
 ;;9002226.02101,"900,13411011109 ",.01)
 ;;13411011109
 ;;9002226.02101,"900,13411011109 ",.02)
 ;;13411011109
 ;;9002226.02101,"900,13411011110 ",.01)
 ;;13411011110
 ;;9002226.02101,"900,13411011110 ",.02)
 ;;13411011110
 ;;9002226.02101,"900,13411011301 ",.01)
 ;;13411011301
 ;;9002226.02101,"900,13411011301 ",.02)
 ;;13411011301
 ;;9002226.02101,"900,13411011303 ",.01)
 ;;13411011303
 ;;9002226.02101,"900,13411011303 ",.02)
 ;;13411011303
 ;;9002226.02101,"900,13411011306 ",.01)
 ;;13411011306
 ;;9002226.02101,"900,13411011306 ",.02)
 ;;13411011306
 ;;9002226.02101,"900,13411011309 ",.01)
 ;;13411011309
 ;;9002226.02101,"900,13411011309 ",.02)
 ;;13411011309
 ;;9002226.02101,"900,13411011315 ",.01)
 ;;13411011315
 ;;9002226.02101,"900,13411011315 ",.02)
 ;;13411011315
 ;;9002226.02101,"900,13411011401 ",.01)
 ;;13411011401
 ;;9002226.02101,"900,13411011401 ",.02)
 ;;13411011401
 ;;9002226.02101,"900,13411011403 ",.01)
 ;;13411011403
 ;;9002226.02101,"900,13411011403 ",.02)
 ;;13411011403
 ;;9002226.02101,"900,13411011406 ",.01)
 ;;13411011406
 ;;9002226.02101,"900,13411011406 ",.02)
 ;;13411011406
 ;;9002226.02101,"900,13411011409 ",.01)
 ;;13411011409
 ;;9002226.02101,"900,13411011409 ",.02)
 ;;13411011409
 ;;9002226.02101,"900,13411011415 ",.01)
 ;;13411011415
 ;;9002226.02101,"900,13411011415 ",.02)
 ;;13411011415
 ;;9002226.02101,"900,13411011501 ",.01)
 ;;13411011501
 ;;9002226.02101,"900,13411011501 ",.02)
 ;;13411011501
 ;;9002226.02101,"900,13411011503 ",.01)
 ;;13411011503
 ;;9002226.02101,"900,13411011503 ",.02)
 ;;13411011503
 ;;9002226.02101,"900,13411011506 ",.01)
 ;;13411011506
 ;;9002226.02101,"900,13411011506 ",.02)
 ;;13411011506