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