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