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