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

BGPM5AKK.m

Go to the documentation of this file.
BGPM5AKK ;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,"889,67544037680 ",.01)
 ;;67544037680
 ;;9002226.02101,"889,67544037680 ",.02)
 ;;67544037680
 ;;9002226.02101,"889,67544037860 ",.01)
 ;;67544037860
 ;;9002226.02101,"889,67544037860 ",.02)
 ;;67544037860
 ;;9002226.02101,"889,67544038730 ",.01)
 ;;67544038730
 ;;9002226.02101,"889,67544038730 ",.02)
 ;;67544038730
 ;;9002226.02101,"889,67544038731 ",.01)
 ;;67544038731
 ;;9002226.02101,"889,67544038731 ",.02)
 ;;67544038731
 ;;9002226.02101,"889,67544038732 ",.01)
 ;;67544038732
 ;;9002226.02101,"889,67544038732 ",.02)
 ;;67544038732
 ;;9002226.02101,"889,67544038753 ",.01)
 ;;67544038753
 ;;9002226.02101,"889,67544038753 ",.02)
 ;;67544038753
 ;;9002226.02101,"889,67544038760 ",.01)
 ;;67544038760
 ;;9002226.02101,"889,67544038760 ",.02)
 ;;67544038760
 ;;9002226.02101,"889,67544038780 ",.01)
 ;;67544038780
 ;;9002226.02101,"889,67544038780 ",.02)
 ;;67544038780
 ;;9002226.02101,"889,67544049145 ",.01)
 ;;67544049145
 ;;9002226.02101,"889,67544049145 ",.02)
 ;;67544049145
 ;;9002226.02101,"889,67544049153 ",.01)
 ;;67544049153
 ;;9002226.02101,"889,67544049153 ",.02)
 ;;67544049153
 ;;9002226.02101,"889,67544049160 ",.01)
 ;;67544049160
 ;;9002226.02101,"889,67544049160 ",.02)
 ;;67544049160
 ;;9002226.02101,"889,67544049180 ",.01)
 ;;67544049180
 ;;9002226.02101,"889,67544049180 ",.02)
 ;;67544049180
 ;;9002226.02101,"889,67544049182 ",.01)
 ;;67544049182
 ;;9002226.02101,"889,67544049182 ",.02)
 ;;67544049182
 ;;9002226.02101,"889,67544049199 ",.01)
 ;;67544049199
 ;;9002226.02101,"889,67544049199 ",.02)
 ;;67544049199
 ;;9002226.02101,"889,67544056531 ",.01)
 ;;67544056531
 ;;9002226.02101,"889,67544056531 ",.02)
 ;;67544056531
 ;;9002226.02101,"889,67544056560 ",.01)
 ;;67544056560
 ;;9002226.02101,"889,67544056560 ",.02)
 ;;67544056560
 ;;9002226.02101,"889,67544056730 ",.01)
 ;;67544056730
 ;;9002226.02101,"889,67544056730 ",.02)
 ;;67544056730
 ;;9002226.02101,"889,67544056731 ",.01)
 ;;67544056731
 ;;9002226.02101,"889,67544056731 ",.02)
 ;;67544056731
 ;;9002226.02101,"889,67544056732 ",.01)
 ;;67544056732
 ;;9002226.02101,"889,67544056732 ",.02)
 ;;67544056732
 ;;9002226.02101,"889,67544056753 ",.01)
 ;;67544056753
 ;;9002226.02101,"889,67544056753 ",.02)
 ;;67544056753
 ;;9002226.02101,"889,67544056760 ",.01)
 ;;67544056760
 ;;9002226.02101,"889,67544056760 ",.02)
 ;;67544056760
 ;;9002226.02101,"889,67544056780 ",.01)
 ;;67544056780
 ;;9002226.02101,"889,67544056780 ",.02)
 ;;67544056780
 ;;9002226.02101,"889,67544057382 ",.01)
 ;;67544057382
 ;;9002226.02101,"889,67544057382 ",.02)
 ;;67544057382
 ;;9002226.02101,"889,67544057399 ",.01)
 ;;67544057399
 ;;9002226.02101,"889,67544057399 ",.02)
 ;;67544057399
 ;;9002226.02101,"889,67544062731 ",.01)
 ;;67544062731
 ;;9002226.02101,"889,67544062731 ",.02)
 ;;67544062731
 ;;9002226.02101,"889,67544062753 ",.01)
 ;;67544062753
 ;;9002226.02101,"889,67544062753 ",.02)
 ;;67544062753
 ;;9002226.02101,"889,67544062760 ",.01)
 ;;67544062760
 ;;9002226.02101,"889,67544062760 ",.02)
 ;;67544062760
 ;;9002226.02101,"889,67544062780 ",.01)
 ;;67544062780
 ;;9002226.02101,"889,67544062780 ",.02)
 ;;67544062780
 ;;9002226.02101,"889,67544077360 ",.01)
 ;;67544077360
 ;;9002226.02101,"889,67544077360 ",.02)
 ;;67544077360
 ;;9002226.02101,"889,67544078632 ",.01)
 ;;67544078632
 ;;9002226.02101,"889,67544078632 ",.02)
 ;;67544078632
 ;;9002226.02101,"889,67544080231 ",.01)
 ;;67544080231
 ;;9002226.02101,"889,67544080231 ",.02)
 ;;67544080231
 ;;9002226.02101,"889,67544080232 ",.01)
 ;;67544080232
 ;;9002226.02101,"889,67544080232 ",.02)
 ;;67544080232
 ;;9002226.02101,"889,67544091108 ",.01)
 ;;67544091108
 ;;9002226.02101,"889,67544091108 ",.02)
 ;;67544091108
 ;;9002226.02101,"889,67544091130 ",.01)
 ;;67544091130
 ;;9002226.02101,"889,67544091130 ",.02)
 ;;67544091130
 ;;9002226.02101,"889,67544091145 ",.01)
 ;;67544091145
 ;;9002226.02101,"889,67544091145 ",.02)
 ;;67544091145
 ;;9002226.02101,"889,67544091153 ",.01)
 ;;67544091153
 ;;9002226.02101,"889,67544091153 ",.02)
 ;;67544091153
 ;;9002226.02101,"889,67544091160 ",.01)
 ;;67544091160
 ;;9002226.02101,"889,67544091160 ",.02)
 ;;67544091160
 ;;9002226.02101,"889,67544091170 ",.01)
 ;;67544091170
 ;;9002226.02101,"889,67544091170 ",.02)
 ;;67544091170
 ;;9002226.02101,"889,67544091173 ",.01)
 ;;67544091173
 ;;9002226.02101,"889,67544091173 ",.02)
 ;;67544091173
 ;;9002226.02101,"889,67544091180 ",.01)
 ;;67544091180
 ;;9002226.02101,"889,67544091180 ",.02)
 ;;67544091180
 ;;9002226.02101,"889,67544091192 ",.01)
 ;;67544091192
 ;;9002226.02101,"889,67544091192 ",.02)
 ;;67544091192
 ;;9002226.02101,"889,67544091194 ",.01)
 ;;67544091194
 ;;9002226.02101,"889,67544091194 ",.02)
 ;;67544091194
 ;;9002226.02101,"889,67544091198 ",.01)
 ;;67544091198
 ;;9002226.02101,"889,67544091198 ",.02)
 ;;67544091198
 ;;9002226.02101,"889,67544092932 ",.01)
 ;;67544092932
 ;;9002226.02101,"889,67544092932 ",.02)
 ;;67544092932
 ;;9002226.02101,"889,67651000101 ",.01)
 ;;67651000101
 ;;9002226.02101,"889,67651000101 ",.02)
 ;;67651000101
 ;;9002226.02101,"889,67651000103 ",.01)
 ;;67651000103
 ;;9002226.02101,"889,67651000103 ",.02)
 ;;67651000103
 ;;9002226.02101,"889,67651000105 ",.01)
 ;;67651000105
 ;;9002226.02101,"889,67651000105 ",.02)
 ;;67651000105
 ;;9002226.02101,"889,67651000201 ",.01)
 ;;67651000201
 ;;9002226.02101,"889,67651000201 ",.02)
 ;;67651000201
 ;;9002226.02101,"889,67651000203 ",.01)
 ;;67651000203
 ;;9002226.02101,"889,67651000203 ",.02)
 ;;67651000203
 ;;9002226.02101,"889,67651000205 ",.01)
 ;;67651000205
 ;;9002226.02101,"889,67651000205 ",.02)
 ;;67651000205
 ;;9002226.02101,"889,67651000301 ",.01)
 ;;67651000301
 ;;9002226.02101,"889,67651000301 ",.02)
 ;;67651000301
 ;;9002226.02101,"889,67651000303 ",.01)
 ;;67651000303
 ;;9002226.02101,"889,67651000303 ",.02)
 ;;67651000303
 ;;9002226.02101,"889,67801030430 ",.01)
 ;;67801030430
 ;;9002226.02101,"889,67801030430 ",.02)
 ;;67801030430
 ;;9002226.02101,"889,67801030435 ",.01)
 ;;67801030435
 ;;9002226.02101,"889,67801030435 ",.02)
 ;;67801030435
 ;;9002226.02101,"889,67801031503 ",.01)
 ;;67801031503
 ;;9002226.02101,"889,67801031503 ",.02)
 ;;67801031503
 ;;9002226.02101,"889,67801031530 ",.01)
 ;;67801031530
 ;;9002226.02101,"889,67801031530 ",.02)
 ;;67801031530
 ;;9002226.02101,"889,67801031603 ",.01)
 ;;67801031603
 ;;9002226.02101,"889,67801031603 ",.02)
 ;;67801031603
 ;;9002226.02101,"889,67801031635 ",.01)
 ;;67801031635
 ;;9002226.02101,"889,67801031635 ",.02)
 ;;67801031635
 ;;9002226.02101,"889,67801040409 ",.01)
 ;;67801040409
 ;;9002226.02101,"889,67801040409 ",.02)
 ;;67801040409
 ;;9002226.02101,"889,67801041503 ",.01)
 ;;67801041503
 ;;9002226.02101,"889,67801041503 ",.02)
 ;;67801041503
 ;;9002226.02101,"889,68071002430 ",.01)
 ;;68071002430
 ;;9002226.02101,"889,68071002430 ",.02)
 ;;68071002430
 ;;9002226.02101,"889,68071002460 ",.01)
 ;;68071002460
 ;;9002226.02101,"889,68071002460 ",.02)
 ;;68071002460
 ;;9002226.02101,"889,68071004404 ",.01)
 ;;68071004404
 ;;9002226.02101,"889,68071004404 ",.02)
 ;;68071004404
 ;;9002226.02101,"889,68071007830 ",.01)
 ;;68071007830
 ;;9002226.02101,"889,68071007830 ",.02)
 ;;68071007830
 ;;9002226.02101,"889,68071012930 ",.01)
 ;;68071012930
 ;;9002226.02101,"889,68071012930 ",.02)
 ;;68071012930
 ;;9002226.02101,"889,68071013230 ",.01)
 ;;68071013230
 ;;9002226.02101,"889,68071013230 ",.02)
 ;;68071013230
 ;;9002226.02101,"889,68071013730 ",.01)
 ;;68071013730
 ;;9002226.02101,"889,68071013730 ",.02)
 ;;68071013730
 ;;9002226.02101,"889,68071025090 ",.01)
 ;;68071025090
 ;;9002226.02101,"889,68071025090 ",.02)
 ;;68071025090
 ;;9002226.02101,"889,68071025130 ",.01)
 ;;68071025130
 ;;9002226.02101,"889,68071025130 ",.02)
 ;;68071025130
 ;;9002226.02101,"889,68071025190 ",.01)
 ;;68071025190
 ;;9002226.02101,"889,68071025190 ",.02)
 ;;68071025190
 ;;9002226.02101,"889,68071028890 ",.01)
 ;;68071028890
 ;;9002226.02101,"889,68071028890 ",.02)
 ;;68071028890
 ;;9002226.02101,"889,68071036860 ",.01)
 ;;68071036860
 ;;9002226.02101,"889,68071036860 ",.02)
 ;;68071036860
 ;;9002226.02101,"889,68071046960 ",.01)
 ;;68071046960
 ;;9002226.02101,"889,68071046960 ",.02)
 ;;68071046960
 ;;9002226.02101,"889,68071071992 ",.01)
 ;;68071071992
 ;;9002226.02101,"889,68071071992 ",.02)
 ;;68071071992
 ;;9002226.02101,"889,68084020901 ",.01)
 ;;68084020901
 ;;9002226.02101,"889,68084020901 ",.02)
 ;;68084020901
 ;;9002226.02101,"889,68084020910 ",.01)
 ;;68084020910
 ;;9002226.02101,"889,68084020910 ",.02)
 ;;68084020910
 ;;9002226.02101,"889,68084020911 ",.01)
 ;;68084020911
 ;;9002226.02101,"889,68084020911 ",.02)
 ;;68084020911
 ;;9002226.02101,"889,68084021001 ",.01)
 ;;68084021001
 ;;9002226.02101,"889,68084021001 ",.02)
 ;;68084021001
 ;;9002226.02101,"889,68084021010 ",.01)
 ;;68084021010
 ;;9002226.02101,"889,68084021010 ",.02)
 ;;68084021010
 ;;9002226.02101,"889,68084021011 ",.01)
 ;;68084021011
 ;;9002226.02101,"889,68084021011 ",.02)
 ;;68084021011
 ;;9002226.02101,"889,68084021101 ",.01)
 ;;68084021101
 ;;9002226.02101,"889,68084021101 ",.02)
 ;;68084021101
 ;;9002226.02101,"889,68084021110 ",.01)
 ;;68084021110
 ;;9002226.02101,"889,68084021110 ",.02)
 ;;68084021110
 ;;9002226.02101,"889,68084021111 ",.01)
 ;;68084021111
 ;;9002226.02101,"889,68084021111 ",.02)
 ;;68084021111
 ;;9002226.02101,"889,68084021201 ",.01)
 ;;68084021201
 ;;9002226.02101,"889,68084021201 ",.02)
 ;;68084021201
 ;;9002226.02101,"889,68084021210 ",.01)
 ;;68084021210
 ;;9002226.02101,"889,68084021210 ",.02)
 ;;68084021210
 ;;9002226.02101,"889,68084021211 ",.01)
 ;;68084021211
 ;;9002226.02101,"889,68084021211 ",.02)
 ;;68084021211
 ;;9002226.02101,"889,68084045601 ",.01)
 ;;68084045601
 ;;9002226.02101,"889,68084045601 ",.02)
 ;;68084045601
 ;;9002226.02101,"889,68084045611 ",.01)
 ;;68084045611
 ;;9002226.02101,"889,68084045611 ",.02)
 ;;68084045611
 ;;9002226.02101,"889,68084045701 ",.01)
 ;;68084045701
 ;;9002226.02101,"889,68084045701 ",.02)
 ;;68084045701
 ;;9002226.02101,"889,68084045711 ",.01)
 ;;68084045711
 ;;9002226.02101,"889,68084045711 ",.02)
 ;;68084045711
 ;;9002226.02101,"889,68115004015 ",.01)
 ;;68115004015
 ;;9002226.02101,"889,68115004015 ",.02)
 ;;68115004015
 ;;9002226.02101,"889,68115023890 ",.01)
 ;;68115023890
 ;;9002226.02101,"889,68115023890 ",.02)
 ;;68115023890
 ;;9002226.02101,"889,68115023990 ",.01)
 ;;68115023990
 ;;9002226.02101,"889,68115023990 ",.02)
 ;;68115023990
 ;;9002226.02101,"889,68115031030 ",.01)
 ;;68115031030
 ;;9002226.02101,"889,68115031030 ",.02)
 ;;68115031030
 ;;9002226.02101,"889,68115072730 ",.01)
 ;;68115072730
 ;;9002226.02101,"889,68115072730 ",.02)
 ;;68115072730
 ;;9002226.02101,"889,68382002201 ",.01)
 ;;68382002201
 ;;9002226.02101,"889,68382002201 ",.02)
 ;;68382002201
 ;;9002226.02101,"889,68382002210 ",.01)
 ;;68382002210
 ;;9002226.02101,"889,68382002210 ",.02)
 ;;68382002210
 ;;9002226.02101,"889,68382002216 ",.01)
 ;;68382002216
 ;;9002226.02101,"889,68382002216 ",.02)
 ;;68382002216
 ;;9002226.02101,"889,68382002224 ",.01)
 ;;68382002224
 ;;9002226.02101,"889,68382002224 ",.02)
 ;;68382002224
 ;;9002226.02101,"889,68382002240 ",.01)
 ;;68382002240
 ;;9002226.02101,"889,68382002240 ",.02)
 ;;68382002240
 ;;9002226.02101,"889,68382002301 ",.01)
 ;;68382002301
 ;;9002226.02101,"889,68382002301 ",.02)
 ;;68382002301
 ;;9002226.02101,"889,68382002302 ",.01)
 ;;68382002302
 ;;9002226.02101,"889,68382002302 ",.02)
 ;;68382002302