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

BGPM5AHM.m

Go to the documentation of this file.
BGPM5AHM ;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,"882,64679092810 ",.02)
 ;;64679092810
 ;;9002226.02101,"882,64679092901 ",.01)
 ;;64679092901
 ;;9002226.02101,"882,64679092901 ",.02)
 ;;64679092901
 ;;9002226.02101,"882,64679092902 ",.01)
 ;;64679092902
 ;;9002226.02101,"882,64679092902 ",.02)
 ;;64679092902
 ;;9002226.02101,"882,64679092905 ",.01)
 ;;64679092905
 ;;9002226.02101,"882,64679092905 ",.02)
 ;;64679092905
 ;;9002226.02101,"882,64679092906 ",.01)
 ;;64679092906
 ;;9002226.02101,"882,64679092906 ",.02)
 ;;64679092906
 ;;9002226.02101,"882,64679092910 ",.01)
 ;;64679092910
 ;;9002226.02101,"882,64679092910 ",.02)
 ;;64679092910
 ;;9002226.02101,"882,64679094101 ",.01)
 ;;64679094101
 ;;9002226.02101,"882,64679094101 ",.02)
 ;;64679094101
 ;;9002226.02101,"882,64679094102 ",.01)
 ;;64679094102
 ;;9002226.02101,"882,64679094102 ",.02)
 ;;64679094102
 ;;9002226.02101,"882,64679094105 ",.01)
 ;;64679094105
 ;;9002226.02101,"882,64679094105 ",.02)
 ;;64679094105
 ;;9002226.02101,"882,64679094106 ",.01)
 ;;64679094106
 ;;9002226.02101,"882,64679094106 ",.02)
 ;;64679094106
 ;;9002226.02101,"882,64679094110 ",.01)
 ;;64679094110
 ;;9002226.02101,"882,64679094110 ",.02)
 ;;64679094110
 ;;9002226.02101,"882,64679094201 ",.01)
 ;;64679094201
 ;;9002226.02101,"882,64679094201 ",.02)
 ;;64679094201
 ;;9002226.02101,"882,64679094202 ",.01)
 ;;64679094202
 ;;9002226.02101,"882,64679094202 ",.02)
 ;;64679094202
 ;;9002226.02101,"882,64679094205 ",.01)
 ;;64679094205
 ;;9002226.02101,"882,64679094205 ",.02)
 ;;64679094205
 ;;9002226.02101,"882,64679094209 ",.01)
 ;;64679094209
 ;;9002226.02101,"882,64679094209 ",.02)
 ;;64679094209
 ;;9002226.02101,"882,64679095301 ",.01)
 ;;64679095301
 ;;9002226.02101,"882,64679095301 ",.02)
 ;;64679095301
 ;;9002226.02101,"882,64679095302 ",.01)
 ;;64679095302
 ;;9002226.02101,"882,64679095302 ",.02)
 ;;64679095302
 ;;9002226.02101,"882,64679095305 ",.01)
 ;;64679095305
 ;;9002226.02101,"882,64679095305 ",.02)
 ;;64679095305
 ;;9002226.02101,"882,64679095309 ",.01)
 ;;64679095309
 ;;9002226.02101,"882,64679095309 ",.02)
 ;;64679095309
 ;;9002226.02101,"882,64720016110 ",.01)
 ;;64720016110
 ;;9002226.02101,"882,64720016110 ",.02)
 ;;64720016110
 ;;9002226.02101,"882,64720016111 ",.01)
 ;;64720016111
 ;;9002226.02101,"882,64720016111 ",.02)
 ;;64720016111
 ;;9002226.02101,"882,64720016210 ",.01)
 ;;64720016210
 ;;9002226.02101,"882,64720016210 ",.02)
 ;;64720016210
 ;;9002226.02101,"882,64720016211 ",.01)
 ;;64720016211
 ;;9002226.02101,"882,64720016211 ",.02)
 ;;64720016211
 ;;9002226.02101,"882,64725005003 ",.01)
 ;;64725005003
 ;;9002226.02101,"882,64725005003 ",.02)
 ;;64725005003
 ;;9002226.02101,"882,64725005203 ",.01)
 ;;64725005203
 ;;9002226.02101,"882,64725005203 ",.02)
 ;;64725005203
 ;;9002226.02101,"882,64725005303 ",.01)
 ;;64725005303
 ;;9002226.02101,"882,64725005303 ",.02)
 ;;64725005303
 ;;9002226.02101,"882,64725012303 ",.01)
 ;;64725012303
 ;;9002226.02101,"882,64725012303 ",.02)
 ;;64725012303
 ;;9002226.02101,"882,64725012503 ",.01)
 ;;64725012503
 ;;9002226.02101,"882,64725012503 ",.02)
 ;;64725012503
 ;;9002226.02101,"882,64725012603 ",.01)
 ;;64725012603
 ;;9002226.02101,"882,64725012603 ",.02)
 ;;64725012603
 ;;9002226.02101,"882,64725019803 ",.01)
 ;;64725019803
 ;;9002226.02101,"882,64725019803 ",.02)
 ;;64725019803
 ;;9002226.02101,"882,64725019903 ",.01)
 ;;64725019903
 ;;9002226.02101,"882,64725019903 ",.02)
 ;;64725019903
 ;;9002226.02101,"882,64725039403 ",.01)
 ;;64725039403
 ;;9002226.02101,"882,64725039403 ",.02)
 ;;64725039403
 ;;9002226.02101,"882,65243030303 ",.01)
 ;;65243030303
 ;;9002226.02101,"882,65243030303 ",.02)
 ;;65243030303
 ;;9002226.02101,"882,65243030306 ",.01)
 ;;65243030306
 ;;9002226.02101,"882,65243030306 ",.02)
 ;;65243030306
 ;;9002226.02101,"882,65243030309 ",.01)
 ;;65243030309
 ;;9002226.02101,"882,65243030309 ",.02)
 ;;65243030309
 ;;9002226.02101,"882,65243030312 ",.01)
 ;;65243030312
 ;;9002226.02101,"882,65243030312 ",.02)
 ;;65243030312
 ;;9002226.02101,"882,65243030318 ",.01)
 ;;65243030318
 ;;9002226.02101,"882,65243030318 ",.02)
 ;;65243030318
 ;;9002226.02101,"882,65243031403 ",.01)
 ;;65243031403
 ;;9002226.02101,"882,65243031403 ",.02)
 ;;65243031403
 ;;9002226.02101,"882,65243031406 ",.01)
 ;;65243031406
 ;;9002226.02101,"882,65243031406 ",.02)
 ;;65243031406
 ;;9002226.02101,"882,65243031409 ",.01)
 ;;65243031409
 ;;9002226.02101,"882,65243031409 ",.02)
 ;;65243031409
 ;;9002226.02101,"882,65243031412 ",.01)
 ;;65243031412
 ;;9002226.02101,"882,65243031412 ",.02)
 ;;65243031412
 ;;9002226.02101,"882,65243031445 ",.01)
 ;;65243031445
 ;;9002226.02101,"882,65243031445 ",.02)
 ;;65243031445
 ;;9002226.02101,"882,65243034103 ",.01)
 ;;65243034103
 ;;9002226.02101,"882,65243034103 ",.02)
 ;;65243034103
 ;;9002226.02101,"882,65243034106 ",.01)
 ;;65243034106
 ;;9002226.02101,"882,65243034106 ",.02)
 ;;65243034106
 ;;9002226.02101,"882,65243034109 ",.01)
 ;;65243034109
 ;;9002226.02101,"882,65243034109 ",.02)
 ;;65243034109
 ;;9002226.02101,"882,65243034112 ",.01)
 ;;65243034112
 ;;9002226.02101,"882,65243034112 ",.02)
 ;;65243034112
 ;;9002226.02101,"882,65243034145 ",.01)
 ;;65243034145
 ;;9002226.02101,"882,65243034145 ",.02)
 ;;65243034145
 ;;9002226.02101,"882,65427001901 ",.01)
 ;;65427001901
 ;;9002226.02101,"882,65427001901 ",.02)
 ;;65427001901
 ;;9002226.02101,"882,65427002001 ",.01)
 ;;65427002001
 ;;9002226.02101,"882,65427002001 ",.02)
 ;;65427002001
 ;;9002226.02101,"882,65427002101 ",.01)
 ;;65427002101
 ;;9002226.02101,"882,65427002101 ",.02)
 ;;65427002101
 ;;9002226.02101,"882,65427002201 ",.01)
 ;;65427002201
 ;;9002226.02101,"882,65427002201 ",.02)
 ;;65427002201
 ;;9002226.02101,"882,65841065501 ",.01)
 ;;65841065501
 ;;9002226.02101,"882,65841065501 ",.02)
 ;;65841065501
 ;;9002226.02101,"882,65841065505 ",.01)
 ;;65841065505
 ;;9002226.02101,"882,65841065505 ",.02)
 ;;65841065505
 ;;9002226.02101,"882,65841065506 ",.01)
 ;;65841065506
 ;;9002226.02101,"882,65841065506 ",.02)
 ;;65841065506
 ;;9002226.02101,"882,65841065516 ",.01)
 ;;65841065516
 ;;9002226.02101,"882,65841065516 ",.02)
 ;;65841065516
 ;;9002226.02101,"882,65841065530 ",.01)
 ;;65841065530
 ;;9002226.02101,"882,65841065530 ",.02)
 ;;65841065530
 ;;9002226.02101,"882,65841065601 ",.01)
 ;;65841065601
 ;;9002226.02101,"882,65841065601 ",.02)
 ;;65841065601
 ;;9002226.02101,"882,65841065605 ",.01)
 ;;65841065605
 ;;9002226.02101,"882,65841065605 ",.02)
 ;;65841065605
 ;;9002226.02101,"882,65841065606 ",.01)
 ;;65841065606
 ;;9002226.02101,"882,65841065606 ",.02)
 ;;65841065606
 ;;9002226.02101,"882,65841065616 ",.01)
 ;;65841065616
 ;;9002226.02101,"882,65841065616 ",.02)
 ;;65841065616
 ;;9002226.02101,"882,65841065630 ",.01)
 ;;65841065630
 ;;9002226.02101,"882,65841065630 ",.02)
 ;;65841065630
 ;;9002226.02101,"882,65841065701 ",.01)
 ;;65841065701
 ;;9002226.02101,"882,65841065701 ",.02)
 ;;65841065701
 ;;9002226.02101,"882,65841065705 ",.01)
 ;;65841065705
 ;;9002226.02101,"882,65841065705 ",.02)
 ;;65841065705
 ;;9002226.02101,"882,65841065706 ",.01)
 ;;65841065706
 ;;9002226.02101,"882,65841065706 ",.02)
 ;;65841065706
 ;;9002226.02101,"882,65841065716 ",.01)
 ;;65841065716
 ;;9002226.02101,"882,65841065716 ",.02)
 ;;65841065716
 ;;9002226.02101,"882,65841065730 ",.01)
 ;;65841065730
 ;;9002226.02101,"882,65841065730 ",.02)
 ;;65841065730
 ;;9002226.02101,"882,65841065801 ",.01)
 ;;65841065801
 ;;9002226.02101,"882,65841065801 ",.02)
 ;;65841065801
 ;;9002226.02101,"882,65841065805 ",.01)
 ;;65841065805
 ;;9002226.02101,"882,65841065805 ",.02)
 ;;65841065805
 ;;9002226.02101,"882,65841065806 ",.01)
 ;;65841065806
 ;;9002226.02101,"882,65841065806 ",.02)
 ;;65841065806
 ;;9002226.02101,"882,65841065816 ",.01)
 ;;65841065816
 ;;9002226.02101,"882,65841065816 ",.02)
 ;;65841065816
 ;;9002226.02101,"882,65841065830 ",.01)
 ;;65841065830
 ;;9002226.02101,"882,65841065830 ",.02)
 ;;65841065830
 ;;9002226.02101,"882,65862003700 ",.01)
 ;;65862003700
 ;;9002226.02101,"882,65862003700 ",.02)
 ;;65862003700
 ;;9002226.02101,"882,65862003701 ",.01)
 ;;65862003701
 ;;9002226.02101,"882,65862003701 ",.02)
 ;;65862003701
 ;;9002226.02101,"882,65862003705 ",.01)
 ;;65862003705
 ;;9002226.02101,"882,65862003705 ",.02)
 ;;65862003705
 ;;9002226.02101,"882,65862003713 ",.01)
 ;;65862003713
 ;;9002226.02101,"882,65862003713 ",.02)
 ;;65862003713
 ;;9002226.02101,"882,65862003730 ",.01)
 ;;65862003730
 ;;9002226.02101,"882,65862003730 ",.02)
 ;;65862003730
 ;;9002226.02101,"882,65862003800 ",.01)
 ;;65862003800
 ;;9002226.02101,"882,65862003800 ",.02)
 ;;65862003800
 ;;9002226.02101,"882,65862003801 ",.01)
 ;;65862003801
 ;;9002226.02101,"882,65862003801 ",.02)
 ;;65862003801
 ;;9002226.02101,"882,65862003805 ",.01)
 ;;65862003805
 ;;9002226.02101,"882,65862003805 ",.02)
 ;;65862003805
 ;;9002226.02101,"882,65862003813 ",.01)
 ;;65862003813
 ;;9002226.02101,"882,65862003813 ",.02)
 ;;65862003813
 ;;9002226.02101,"882,65862003830 ",.01)
 ;;65862003830
 ;;9002226.02101,"882,65862003830 ",.02)
 ;;65862003830
 ;;9002226.02101,"882,65862003900 ",.01)
 ;;65862003900
 ;;9002226.02101,"882,65862003900 ",.02)
 ;;65862003900
 ;;9002226.02101,"882,65862003901 ",.01)
 ;;65862003901
 ;;9002226.02101,"882,65862003901 ",.02)
 ;;65862003901
 ;;9002226.02101,"882,65862003905 ",.01)
 ;;65862003905
 ;;9002226.02101,"882,65862003905 ",.02)
 ;;65862003905
 ;;9002226.02101,"882,65862003913 ",.01)
 ;;65862003913
 ;;9002226.02101,"882,65862003913 ",.02)
 ;;65862003913
 ;;9002226.02101,"882,65862003930 ",.01)
 ;;65862003930
 ;;9002226.02101,"882,65862003930 ",.02)
 ;;65862003930
 ;;9002226.02101,"882,65862004000 ",.01)
 ;;65862004000
 ;;9002226.02101,"882,65862004000 ",.02)
 ;;65862004000
 ;;9002226.02101,"882,65862004001 ",.01)
 ;;65862004001
 ;;9002226.02101,"882,65862004001 ",.02)
 ;;65862004001
 ;;9002226.02101,"882,65862004005 ",.01)
 ;;65862004005
 ;;9002226.02101,"882,65862004005 ",.02)
 ;;65862004005
 ;;9002226.02101,"882,65862004030 ",.01)
 ;;65862004030
 ;;9002226.02101,"882,65862004030 ",.02)
 ;;65862004030
 ;;9002226.02101,"882,65862004065 ",.01)
 ;;65862004065
 ;;9002226.02101,"882,65862004065 ",.02)
 ;;65862004065
 ;;9002226.02101,"882,65862004100 ",.01)
 ;;65862004100
 ;;9002226.02101,"882,65862004100 ",.02)
 ;;65862004100
 ;;9002226.02101,"882,65862004101 ",.01)
 ;;65862004101
 ;;9002226.02101,"882,65862004101 ",.02)
 ;;65862004101
 ;;9002226.02101,"882,65862004105 ",.01)
 ;;65862004105
 ;;9002226.02101,"882,65862004105 ",.02)
 ;;65862004105
 ;;9002226.02101,"882,65862004130 ",.01)
 ;;65862004130
 ;;9002226.02101,"882,65862004130 ",.02)
 ;;65862004130
 ;;9002226.02101,"882,65862004159 ",.01)
 ;;65862004159
 ;;9002226.02101,"882,65862004159 ",.02)
 ;;65862004159
 ;;9002226.02101,"882,65862004200 ",.01)
 ;;65862004200
 ;;9002226.02101,"882,65862004200 ",.02)
 ;;65862004200
 ;;9002226.02101,"882,65862004201 ",.01)
 ;;65862004201
 ;;9002226.02101,"882,65862004201 ",.02)
 ;;65862004201
 ;;9002226.02101,"882,65862004205 ",.01)
 ;;65862004205
 ;;9002226.02101,"882,65862004205 ",.02)
 ;;65862004205
 ;;9002226.02101,"882,65862004230 ",.01)
 ;;65862004230
 ;;9002226.02101,"882,65862004230 ",.02)
 ;;65862004230
 ;;9002226.02101,"882,65862004249 ",.01)
 ;;65862004249
 ;;9002226.02101,"882,65862004249 ",.02)
 ;;65862004249
 ;;9002226.02101,"882,65862004300 ",.01)
 ;;65862004300
 ;;9002226.02101,"882,65862004300 ",.02)
 ;;65862004300
 ;;9002226.02101,"882,65862004301 ",.01)
 ;;65862004301