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

BGPM5ALB.m

Go to the documentation of this file.
  1. BGPM5ALB ;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,"885,58016091003 ",.02)
  1. ;;58016091003
  1. ;;9002226.02101,"885,58016091004 ",.01)
  1. ;;58016091004
  1. ;;9002226.02101,"885,58016091004 ",.02)
  1. ;;58016091004
  1. ;;9002226.02101,"885,58016091005 ",.01)
  1. ;;58016091005
  1. ;;9002226.02101,"885,58016091005 ",.02)
  1. ;;58016091005
  1. ;;9002226.02101,"885,58016091006 ",.01)
  1. ;;58016091006
  1. ;;9002226.02101,"885,58016091006 ",.02)
  1. ;;58016091006
  1. ;;9002226.02101,"885,58016091007 ",.01)
  1. ;;58016091007
  1. ;;9002226.02101,"885,58016091007 ",.02)
  1. ;;58016091007
  1. ;;9002226.02101,"885,58016091008 ",.01)
  1. ;;58016091008
  1. ;;9002226.02101,"885,58016091008 ",.02)
  1. ;;58016091008
  1. ;;9002226.02101,"885,58016091009 ",.01)
  1. ;;58016091009
  1. ;;9002226.02101,"885,58016091009 ",.02)
  1. ;;58016091009
  1. ;;9002226.02101,"885,58016091010 ",.01)
  1. ;;58016091010
  1. ;;9002226.02101,"885,58016091010 ",.02)
  1. ;;58016091010
  1. ;;9002226.02101,"885,58016091012 ",.01)
  1. ;;58016091012
  1. ;;9002226.02101,"885,58016091012 ",.02)
  1. ;;58016091012
  1. ;;9002226.02101,"885,58016091014 ",.01)
  1. ;;58016091014
  1. ;;9002226.02101,"885,58016091014 ",.02)
  1. ;;58016091014
  1. ;;9002226.02101,"885,58016091015 ",.01)
  1. ;;58016091015
  1. ;;9002226.02101,"885,58016091015 ",.02)
  1. ;;58016091015
  1. ;;9002226.02101,"885,58016091016 ",.01)
  1. ;;58016091016
  1. ;;9002226.02101,"885,58016091016 ",.02)
  1. ;;58016091016
  1. ;;9002226.02101,"885,58016091018 ",.01)
  1. ;;58016091018
  1. ;;9002226.02101,"885,58016091018 ",.02)
  1. ;;58016091018
  1. ;;9002226.02101,"885,58016091020 ",.01)
  1. ;;58016091020
  1. ;;9002226.02101,"885,58016091020 ",.02)
  1. ;;58016091020
  1. ;;9002226.02101,"885,58016091021 ",.01)
  1. ;;58016091021
  1. ;;9002226.02101,"885,58016091021 ",.02)
  1. ;;58016091021
  1. ;;9002226.02101,"885,58016091024 ",.01)
  1. ;;58016091024
  1. ;;9002226.02101,"885,58016091024 ",.02)
  1. ;;58016091024
  1. ;;9002226.02101,"885,58016091025 ",.01)
  1. ;;58016091025
  1. ;;9002226.02101,"885,58016091025 ",.02)
  1. ;;58016091025
  1. ;;9002226.02101,"885,58016091026 ",.01)
  1. ;;58016091026
  1. ;;9002226.02101,"885,58016091026 ",.02)
  1. ;;58016091026
  1. ;;9002226.02101,"885,58016091027 ",.01)
  1. ;;58016091027
  1. ;;9002226.02101,"885,58016091027 ",.02)
  1. ;;58016091027
  1. ;;9002226.02101,"885,58016091028 ",.01)
  1. ;;58016091028
  1. ;;9002226.02101,"885,58016091028 ",.02)
  1. ;;58016091028
  1. ;;9002226.02101,"885,58016091030 ",.01)
  1. ;;58016091030
  1. ;;9002226.02101,"885,58016091030 ",.02)
  1. ;;58016091030
  1. ;;9002226.02101,"885,58016091032 ",.01)
  1. ;;58016091032
  1. ;;9002226.02101,"885,58016091032 ",.02)
  1. ;;58016091032
  1. ;;9002226.02101,"885,58016091035 ",.01)
  1. ;;58016091035
  1. ;;9002226.02101,"885,58016091035 ",.02)
  1. ;;58016091035
  1. ;;9002226.02101,"885,58016091036 ",.01)
  1. ;;58016091036
  1. ;;9002226.02101,"885,58016091036 ",.02)
  1. ;;58016091036
  1. ;;9002226.02101,"885,58016091040 ",.01)
  1. ;;58016091040
  1. ;;9002226.02101,"885,58016091040 ",.02)
  1. ;;58016091040
  1. ;;9002226.02101,"885,58016091042 ",.01)
  1. ;;58016091042
  1. ;;9002226.02101,"885,58016091042 ",.02)
  1. ;;58016091042
  1. ;;9002226.02101,"885,58016091044 ",.01)
  1. ;;58016091044
  1. ;;9002226.02101,"885,58016091044 ",.02)
  1. ;;58016091044
  1. ;;9002226.02101,"885,58016091045 ",.01)
  1. ;;58016091045
  1. ;;9002226.02101,"885,58016091045 ",.02)
  1. ;;58016091045
  1. ;;9002226.02101,"885,58016091048 ",.01)
  1. ;;58016091048
  1. ;;9002226.02101,"885,58016091048 ",.02)
  1. ;;58016091048
  1. ;;9002226.02101,"885,58016091050 ",.01)
  1. ;;58016091050
  1. ;;9002226.02101,"885,58016091050 ",.02)
  1. ;;58016091050
  1. ;;9002226.02101,"885,58016091056 ",.01)
  1. ;;58016091056
  1. ;;9002226.02101,"885,58016091056 ",.02)
  1. ;;58016091056
  1. ;;9002226.02101,"885,58016091060 ",.01)
  1. ;;58016091060
  1. ;;9002226.02101,"885,58016091060 ",.02)
  1. ;;58016091060
  1. ;;9002226.02101,"885,58016091067 ",.01)
  1. ;;58016091067
  1. ;;9002226.02101,"885,58016091067 ",.02)
  1. ;;58016091067
  1. ;;9002226.02101,"885,58016091069 ",.01)
  1. ;;58016091069
  1. ;;9002226.02101,"885,58016091069 ",.02)
  1. ;;58016091069
  1. ;;9002226.02101,"885,58016091070 ",.01)
  1. ;;58016091070
  1. ;;9002226.02101,"885,58016091070 ",.02)
  1. ;;58016091070
  1. ;;9002226.02101,"885,58016091071 ",.01)
  1. ;;58016091071
  1. ;;9002226.02101,"885,58016091071 ",.02)
  1. ;;58016091071
  1. ;;9002226.02101,"885,58016091072 ",.01)
  1. ;;58016091072
  1. ;;9002226.02101,"885,58016091072 ",.02)
  1. ;;58016091072
  1. ;;9002226.02101,"885,58016091073 ",.01)
  1. ;;58016091073
  1. ;;9002226.02101,"885,58016091073 ",.02)
  1. ;;58016091073
  1. ;;9002226.02101,"885,58016091075 ",.01)
  1. ;;58016091075
  1. ;;9002226.02101,"885,58016091075 ",.02)
  1. ;;58016091075
  1. ;;9002226.02101,"885,58016091076 ",.01)
  1. ;;58016091076
  1. ;;9002226.02101,"885,58016091076 ",.02)
  1. ;;58016091076
  1. ;;9002226.02101,"885,58016091077 ",.01)
  1. ;;58016091077
  1. ;;9002226.02101,"885,58016091077 ",.02)
  1. ;;58016091077
  1. ;;9002226.02101,"885,58016091079 ",.01)
  1. ;;58016091079
  1. ;;9002226.02101,"885,58016091079 ",.02)
  1. ;;58016091079
  1. ;;9002226.02101,"885,58016091080 ",.01)
  1. ;;58016091080
  1. ;;9002226.02101,"885,58016091080 ",.02)
  1. ;;58016091080
  1. ;;9002226.02101,"885,58016091081 ",.01)
  1. ;;58016091081
  1. ;;9002226.02101,"885,58016091081 ",.02)
  1. ;;58016091081
  1. ;;9002226.02101,"885,58016091082 ",.01)
  1. ;;58016091082
  1. ;;9002226.02101,"885,58016091082 ",.02)
  1. ;;58016091082
  1. ;;9002226.02101,"885,58016091083 ",.01)
  1. ;;58016091083
  1. ;;9002226.02101,"885,58016091083 ",.02)
  1. ;;58016091083
  1. ;;9002226.02101,"885,58016091084 ",.01)
  1. ;;58016091084
  1. ;;9002226.02101,"885,58016091084 ",.02)
  1. ;;58016091084
  1. ;;9002226.02101,"885,58016091087 ",.01)
  1. ;;58016091087
  1. ;;9002226.02101,"885,58016091087 ",.02)
  1. ;;58016091087
  1. ;;9002226.02101,"885,58016091089 ",.01)
  1. ;;58016091089
  1. ;;9002226.02101,"885,58016091089 ",.02)
  1. ;;58016091089
  1. ;;9002226.02101,"885,58016091090 ",.01)
  1. ;;58016091090
  1. ;;9002226.02101,"885,58016091090 ",.02)
  1. ;;58016091090
  1. ;;9002226.02101,"885,58016091091 ",.01)
  1. ;;58016091091
  1. ;;9002226.02101,"885,58016091091 ",.02)
  1. ;;58016091091
  1. ;;9002226.02101,"885,58016091092 ",.01)
  1. ;;58016091092
  1. ;;9002226.02101,"885,58016091092 ",.02)
  1. ;;58016091092
  1. ;;9002226.02101,"885,58016091096 ",.01)
  1. ;;58016091096
  1. ;;9002226.02101,"885,58016091096 ",.02)
  1. ;;58016091096
  1. ;;9002226.02101,"885,58016091097 ",.01)
  1. ;;58016091097
  1. ;;9002226.02101,"885,58016091097 ",.02)
  1. ;;58016091097
  1. ;;9002226.02101,"885,58016091098 ",.01)
  1. ;;58016091098
  1. ;;9002226.02101,"885,58016091098 ",.02)
  1. ;;58016091098
  1. ;;9002226.02101,"885,58016091099 ",.01)
  1. ;;58016091099
  1. ;;9002226.02101,"885,58016091099 ",.02)
  1. ;;58016091099
  1. ;;9002226.02101,"885,58016201301 ",.01)
  1. ;;58016201301
  1. ;;9002226.02101,"885,58016201301 ",.02)
  1. ;;58016201301
  1. ;;9002226.02101,"885,58864074830 ",.01)
  1. ;;58864074830
  1. ;;9002226.02101,"885,58864074830 ",.02)
  1. ;;58864074830
  1. ;;9002226.02101,"885,59088012059 ",.01)
  1. ;;59088012059
  1. ;;9002226.02101,"885,59088012059 ",.02)
  1. ;;59088012059
  1. ;;9002226.02101,"885,59618009915 ",.01)
  1. ;;59618009915
  1. ;;9002226.02101,"885,59618009915 ",.02)
  1. ;;59618009915
  1. ;;9002226.02101,"885,59741030712 ",.01)
  1. ;;59741030712
  1. ;;9002226.02101,"885,59741030712 ",.02)
  1. ;;59741030712
  1. ;;9002226.02101,"885,59741030750 ",.01)
  1. ;;59741030750
  1. ;;9002226.02101,"885,59741030750 ",.02)
  1. ;;59741030750
  1. ;;9002226.02101,"885,59741030812 ",.01)
  1. ;;59741030812
  1. ;;9002226.02101,"885,59741030812 ",.02)
  1. ;;59741030812
  1. ;;9002226.02101,"885,59741030850 ",.01)
  1. ;;59741030850
  1. ;;9002226.02101,"885,59741030850 ",.02)
  1. ;;59741030850
  1. ;;9002226.02101,"885,59779016417 ",.01)
  1. ;;59779016417
  1. ;;9002226.02101,"885,59779016417 ",.02)
  1. ;;59779016417
  1. ;;9002226.02101,"885,59779021807 ",.01)
  1. ;;59779021807
  1. ;;9002226.02101,"885,59779021807 ",.02)
  1. ;;59779021807
  1. ;;9002226.02101,"885,59779022712 ",.01)
  1. ;;59779022712
  1. ;;9002226.02101,"885,59779022712 ",.02)
  1. ;;59779022712
  1. ;;9002226.02101,"885,59779022713 ",.01)
  1. ;;59779022713
  1. ;;9002226.02101,"885,59779022713 ",.02)
  1. ;;59779022713
  1. ;;9002226.02101,"885,59779024916 ",.01)
  1. ;;59779024916
  1. ;;9002226.02101,"885,59779024916 ",.02)
  1. ;;59779024916
  1. ;;9002226.02101,"885,59779027408 ",.01)
  1. ;;59779027408
  1. ;;9002226.02101,"885,59779027408 ",.02)
  1. ;;59779027408
  1. ;;9002226.02101,"885,59779027468 ",.01)
  1. ;;59779027468
  1. ;;9002226.02101,"885,59779027468 ",.02)
  1. ;;59779027468
  1. ;;9002226.02101,"885,59779033413 ",.01)
  1. ;;59779033413
  1. ;;9002226.02101,"885,59779033413 ",.02)
  1. ;;59779033413
  1. ;;9002226.02101,"885,59779038912 ",.01)
  1. ;;59779038912
  1. ;;9002226.02101,"885,59779038912 ",.02)
  1. ;;59779038912
  1. ;;9002226.02101,"885,59779041405 ",.01)
  1. ;;59779041405
  1. ;;9002226.02101,"885,59779041405 ",.02)
  1. ;;59779041405
  1. ;;9002226.02101,"885,59779041407 ",.01)
  1. ;;59779041407
  1. ;;9002226.02101,"885,59779041407 ",.02)
  1. ;;59779041407
  1. ;;9002226.02101,"885,59779041412 ",.01)
  1. ;;59779041412
  1. ;;9002226.02101,"885,59779041412 ",.02)
  1. ;;59779041412
  1. ;;9002226.02101,"885,59779041417 ",.01)
  1. ;;59779041417
  1. ;;9002226.02101,"885,59779041417 ",.02)
  1. ;;59779041417
  1. ;;9002226.02101,"885,59779041432 ",.01)
  1. ;;59779041432
  1. ;;9002226.02101,"885,59779041432 ",.02)
  1. ;;59779041432
  1. ;;9002226.02101,"885,59779046708 ",.01)
  1. ;;59779046708
  1. ;;9002226.02101,"885,59779046708 ",.02)
  1. ;;59779046708
  1. ;;9002226.02101,"885,59779046768 ",.01)
  1. ;;59779046768
  1. ;;9002226.02101,"885,59779046768 ",.02)
  1. ;;59779046768
  1. ;;9002226.02101,"885,60809010855 ",.01)
  1. ;;60809010855
  1. ;;9002226.02101,"885,60809010855 ",.02)
  1. ;;60809010855
  1. ;;9002226.02101,"885,60809010872 ",.01)
  1. ;;60809010872
  1. ;;9002226.02101,"885,60809010872 ",.02)
  1. ;;60809010872
  1. ;;9002226.02101,"885,60814010901 ",.01)
  1. ;;60814010901
  1. ;;9002226.02101,"885,60814010901 ",.02)
  1. ;;60814010901
  1. ;;9002226.02101,"885,60814010910 ",.01)
  1. ;;60814010910
  1. ;;9002226.02101,"885,60814010910 ",.02)
  1. ;;60814010910
  1. ;;9002226.02101,"885,60814010999 ",.01)
  1. ;;60814010999
  1. ;;9002226.02101,"885,60814010999 ",.02)
  1. ;;60814010999
  1. ;;9002226.02101,"885,60814011010 ",.01)
  1. ;;60814011010
  1. ;;9002226.02101,"885,60814011010 ",.02)
  1. ;;60814011010
  1. ;;9002226.02101,"885,60814011025 ",.01)
  1. ;;60814011025
  1. ;;9002226.02101,"885,60814011025 ",.02)
  1. ;;60814011025
  1. ;;9002226.02101,"885,60814011110 ",.01)
  1. ;;60814011110
  1. ;;9002226.02101,"885,60814011110 ",.02)
  1. ;;60814011110
  1. ;;9002226.02101,"885,60814017536 ",.01)
  1. ;;60814017536
  1. ;;9002226.02101,"885,60814017536 ",.02)
  1. ;;60814017536
  1. ;;9002226.02101,"885,61442050112 ",.01)
  1. ;;61442050112
  1. ;;9002226.02101,"885,61442050112 ",.02)
  1. ;;61442050112
  1. ;;9002226.02101,"885,62107002507 ",.01)
  1. ;;62107002507
  1. ;;9002226.02101,"885,62107002507 ",.02)
  1. ;;62107002507
  1. ;;9002226.02101,"885,62107002532 ",.01)
  1. ;;62107002532
  1. ;;9002226.02101,"885,62107002532 ",.02)
  1. ;;62107002532
  1. ;;9002226.02101,"885,62107002636 ",.01)
  1. ;;62107002636
  1. ;;9002226.02101,"885,62107002636 ",.02)
  1. ;;62107002636
  1. ;;9002226.02101,"885,62107002726 ",.01)
  1. ;;62107002726
  1. ;;9002226.02101,"885,62107002726 ",.02)
  1. ;;62107002726
  1. ;;9002226.02101,"885,62107002732 ",.01)
  1. ;;62107002732
  1. ;;9002226.02101,"885,62107002732 ",.02)
  1. ;;62107002732
  1. ;;9002226.02101,"885,62211022050 ",.01)
  1. ;;62211022050
  1. ;;9002226.02101,"885,62211022050 ",.02)
  1. ;;62211022050
  1. ;;9002226.02101,"885,62211022099 ",.01)
  1. ;;62211022099
  1. ;;9002226.02101,"885,62211022099 ",.02)
  1. ;;62211022099
  1. ;;9002226.02101,"885,62211022540 ",.01)
  1. ;;62211022540
  1. ;;9002226.02101,"885,62211022540 ",.02)
  1. ;;62211022540
  1. ;;9002226.02101,"885,62211022599 ",.01)
  1. ;;62211022599
  1. ;;9002226.02101,"885,62211022599 ",.02)
  1. ;;62211022599
  1. ;;9002226.02101,"885,62211031201 ",.01)
  1. ;;62211031201
  1. ;;9002226.02101,"885,62211031201 ",.02)
  1. ;;62211031201
  1. ;;9002226.02101,"885,62211031299 ",.01)
  1. ;;62211031299
  1. ;;9002226.02101,"885,62211031299 ",.02)
  1. ;;62211031299
  1. ;;9002226.02101,"885,62301007171 ",.01)
  1. ;;62301007171
  1. ;;9002226.02101,"885,62301007171 ",.02)
  1. ;;62301007171
  1. ;;9002226.02101,"885,62584012701 ",.01)
  1. ;;62584012701