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

BGPM5AHO.m

Go to the documentation of this file.
BGPM5AHO ;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,66116050030 ",.02)
 ;;66116050030
 ;;9002226.02101,"882,66116050230 ",.01)
 ;;66116050230
 ;;9002226.02101,"882,66116050230 ",.02)
 ;;66116050230
 ;;9002226.02101,"882,66116071830 ",.01)
 ;;66116071830
 ;;9002226.02101,"882,66116071830 ",.02)
 ;;66116071830
 ;;9002226.02101,"882,66116081330 ",.01)
 ;;66116081330
 ;;9002226.02101,"882,66116081330 ",.02)
 ;;66116081330
 ;;9002226.02101,"882,66116081930 ",.01)
 ;;66116081930
 ;;9002226.02101,"882,66116081930 ",.02)
 ;;66116081930
 ;;9002226.02101,"882,66116082930 ",.01)
 ;;66116082930
 ;;9002226.02101,"882,66116082930 ",.02)
 ;;66116082930
 ;;9002226.02101,"882,66116083030 ",.01)
 ;;66116083030
 ;;9002226.02101,"882,66116083030 ",.02)
 ;;66116083030
 ;;9002226.02101,"882,66116083130 ",.01)
 ;;66116083130
 ;;9002226.02101,"882,66116083130 ",.02)
 ;;66116083130
 ;;9002226.02101,"882,66116086130 ",.01)
 ;;66116086130
 ;;9002226.02101,"882,66116086130 ",.02)
 ;;66116086130
 ;;9002226.02101,"882,66116087230 ",.01)
 ;;66116087230
 ;;9002226.02101,"882,66116087230 ",.02)
 ;;66116087230
 ;;9002226.02101,"882,66116087430 ",.01)
 ;;66116087430
 ;;9002226.02101,"882,66116087430 ",.02)
 ;;66116087430
 ;;9002226.02101,"882,66267004020 ",.01)
 ;;66267004020
 ;;9002226.02101,"882,66267004020 ",.02)
 ;;66267004020
 ;;9002226.02101,"882,66267004030 ",.01)
 ;;66267004030
 ;;9002226.02101,"882,66267004030 ",.02)
 ;;66267004030
 ;;9002226.02101,"882,66267004040 ",.01)
 ;;66267004040
 ;;9002226.02101,"882,66267004040 ",.02)
 ;;66267004040
 ;;9002226.02101,"882,66267004060 ",.01)
 ;;66267004060
 ;;9002226.02101,"882,66267004060 ",.02)
 ;;66267004060
 ;;9002226.02101,"882,66267004090 ",.01)
 ;;66267004090
 ;;9002226.02101,"882,66267004090 ",.02)
 ;;66267004090
 ;;9002226.02101,"882,66267004230 ",.01)
 ;;66267004230
 ;;9002226.02101,"882,66267004230 ",.02)
 ;;66267004230
 ;;9002226.02101,"882,66267004260 ",.01)
 ;;66267004260
 ;;9002226.02101,"882,66267004260 ",.02)
 ;;66267004260
 ;;9002226.02101,"882,66267004290 ",.01)
 ;;66267004290
 ;;9002226.02101,"882,66267004290 ",.02)
 ;;66267004290
 ;;9002226.02101,"882,66267029310 ",.01)
 ;;66267029310
 ;;9002226.02101,"882,66267029310 ",.02)
 ;;66267029310
 ;;9002226.02101,"882,66267029320 ",.01)
 ;;66267029320
 ;;9002226.02101,"882,66267029320 ",.02)
 ;;66267029320
 ;;9002226.02101,"882,66267029330 ",.01)
 ;;66267029330
 ;;9002226.02101,"882,66267029330 ",.02)
 ;;66267029330
 ;;9002226.02101,"882,66267029340 ",.01)
 ;;66267029340
 ;;9002226.02101,"882,66267029340 ",.02)
 ;;66267029340
 ;;9002226.02101,"882,66267029360 ",.01)
 ;;66267029360
 ;;9002226.02101,"882,66267029360 ",.02)
 ;;66267029360
 ;;9002226.02101,"882,66267029390 ",.01)
 ;;66267029390
 ;;9002226.02101,"882,66267029390 ",.02)
 ;;66267029390
 ;;9002226.02101,"882,66267032310 ",.01)
 ;;66267032310
 ;;9002226.02101,"882,66267032310 ",.02)
 ;;66267032310
 ;;9002226.02101,"882,66267032320 ",.01)
 ;;66267032320
 ;;9002226.02101,"882,66267032320 ",.02)
 ;;66267032320
 ;;9002226.02101,"882,66267032330 ",.01)
 ;;66267032330
 ;;9002226.02101,"882,66267032330 ",.02)
 ;;66267032330
 ;;9002226.02101,"882,66267032340 ",.01)
 ;;66267032340
 ;;9002226.02101,"882,66267032340 ",.02)
 ;;66267032340
 ;;9002226.02101,"882,66267032360 ",.01)
 ;;66267032360
 ;;9002226.02101,"882,66267032360 ",.02)
 ;;66267032360
 ;;9002226.02101,"882,66267032390 ",.01)
 ;;66267032390
 ;;9002226.02101,"882,66267032390 ",.02)
 ;;66267032390
 ;;9002226.02101,"882,66267032391 ",.01)
 ;;66267032391
 ;;9002226.02101,"882,66267032391 ",.02)
 ;;66267032391
 ;;9002226.02101,"882,66267038010 ",.01)
 ;;66267038010
 ;;9002226.02101,"882,66267038010 ",.02)
 ;;66267038010
 ;;9002226.02101,"882,66267038020 ",.01)
 ;;66267038020
 ;;9002226.02101,"882,66267038020 ",.02)
 ;;66267038020
 ;;9002226.02101,"882,66267038030 ",.01)
 ;;66267038030
 ;;9002226.02101,"882,66267038030 ",.02)
 ;;66267038030
 ;;9002226.02101,"882,66267038040 ",.01)
 ;;66267038040
 ;;9002226.02101,"882,66267038040 ",.02)
 ;;66267038040
 ;;9002226.02101,"882,66267038060 ",.01)
 ;;66267038060
 ;;9002226.02101,"882,66267038060 ",.02)
 ;;66267038060
 ;;9002226.02101,"882,66267038090 ",.01)
 ;;66267038090
 ;;9002226.02101,"882,66267038090 ",.02)
 ;;66267038090
 ;;9002226.02101,"882,66267038091 ",.01)
 ;;66267038091
 ;;9002226.02101,"882,66267038091 ",.02)
 ;;66267038091
 ;;9002226.02101,"882,66267041310 ",.01)
 ;;66267041310
 ;;9002226.02101,"882,66267041310 ",.02)
 ;;66267041310
 ;;9002226.02101,"882,66267041315 ",.01)
 ;;66267041315
 ;;9002226.02101,"882,66267041315 ",.02)
 ;;66267041315
 ;;9002226.02101,"882,66267041320 ",.01)
 ;;66267041320
 ;;9002226.02101,"882,66267041320 ",.02)
 ;;66267041320
 ;;9002226.02101,"882,66267041330 ",.01)
 ;;66267041330
 ;;9002226.02101,"882,66267041330 ",.02)
 ;;66267041330
 ;;9002226.02101,"882,66267041335 ",.01)
 ;;66267041335
 ;;9002226.02101,"882,66267041335 ",.02)
 ;;66267041335
 ;;9002226.02101,"882,66267041340 ",.01)
 ;;66267041340
 ;;9002226.02101,"882,66267041340 ",.02)
 ;;66267041340
 ;;9002226.02101,"882,66267041360 ",.01)
 ;;66267041360
 ;;9002226.02101,"882,66267041360 ",.02)
 ;;66267041360
 ;;9002226.02101,"882,66267041390 ",.01)
 ;;66267041390
 ;;9002226.02101,"882,66267041390 ",.02)
 ;;66267041390
 ;;9002226.02101,"882,66267041392 ",.01)
 ;;66267041392
 ;;9002226.02101,"882,66267041392 ",.02)
 ;;66267041392
 ;;9002226.02101,"882,66267050730 ",.01)
 ;;66267050730
 ;;9002226.02101,"882,66267050730 ",.02)
 ;;66267050730
 ;;9002226.02101,"882,66267054010 ",.01)
 ;;66267054010
 ;;9002226.02101,"882,66267054010 ",.02)
 ;;66267054010
 ;;9002226.02101,"882,66267054020 ",.01)
 ;;66267054020
 ;;9002226.02101,"882,66267054020 ",.02)
 ;;66267054020
 ;;9002226.02101,"882,66267054030 ",.01)
 ;;66267054030
 ;;9002226.02101,"882,66267054030 ",.02)
 ;;66267054030
 ;;9002226.02101,"882,66267054040 ",.01)
 ;;66267054040
 ;;9002226.02101,"882,66267054040 ",.02)
 ;;66267054040
 ;;9002226.02101,"882,66267054060 ",.01)
 ;;66267054060
 ;;9002226.02101,"882,66267054060 ",.02)
 ;;66267054060
 ;;9002226.02101,"882,66267054090 ",.01)
 ;;66267054090
 ;;9002226.02101,"882,66267054090 ",.02)
 ;;66267054090
 ;;9002226.02101,"882,66267057010 ",.01)
 ;;66267057010
 ;;9002226.02101,"882,66267057010 ",.02)
 ;;66267057010
 ;;9002226.02101,"882,66267057020 ",.01)
 ;;66267057020
 ;;9002226.02101,"882,66267057020 ",.02)
 ;;66267057020
 ;;9002226.02101,"882,66267057030 ",.01)
 ;;66267057030
 ;;9002226.02101,"882,66267057030 ",.02)
 ;;66267057030
 ;;9002226.02101,"882,66267057040 ",.01)
 ;;66267057040
 ;;9002226.02101,"882,66267057040 ",.02)
 ;;66267057040
 ;;9002226.02101,"882,66267057060 ",.01)
 ;;66267057060
 ;;9002226.02101,"882,66267057060 ",.02)
 ;;66267057060
 ;;9002226.02101,"882,66267057090 ",.01)
 ;;66267057090
 ;;9002226.02101,"882,66267057090 ",.02)
 ;;66267057090
 ;;9002226.02101,"882,66267057705 ",.01)
 ;;66267057705
 ;;9002226.02101,"882,66267057705 ",.02)
 ;;66267057705
 ;;9002226.02101,"882,66267057710 ",.01)
 ;;66267057710
 ;;9002226.02101,"882,66267057710 ",.02)
 ;;66267057710
 ;;9002226.02101,"882,66267057715 ",.01)
 ;;66267057715
 ;;9002226.02101,"882,66267057715 ",.02)
 ;;66267057715
 ;;9002226.02101,"882,66267057720 ",.01)
 ;;66267057720
 ;;9002226.02101,"882,66267057720 ",.02)
 ;;66267057720
 ;;9002226.02101,"882,66267057730 ",.01)
 ;;66267057730
 ;;9002226.02101,"882,66267057730 ",.02)
 ;;66267057730
 ;;9002226.02101,"882,66267057740 ",.01)
 ;;66267057740
 ;;9002226.02101,"882,66267057740 ",.02)
 ;;66267057740
 ;;9002226.02101,"882,66267057760 ",.01)
 ;;66267057760
 ;;9002226.02101,"882,66267057760 ",.02)
 ;;66267057760
 ;;9002226.02101,"882,66267057790 ",.01)
 ;;66267057790
 ;;9002226.02101,"882,66267057790 ",.02)
 ;;66267057790
 ;;9002226.02101,"882,66267057810 ",.01)
 ;;66267057810
 ;;9002226.02101,"882,66267057810 ",.02)
 ;;66267057810
 ;;9002226.02101,"882,66267057820 ",.01)
 ;;66267057820
 ;;9002226.02101,"882,66267057820 ",.02)
 ;;66267057820
 ;;9002226.02101,"882,66267057830 ",.01)
 ;;66267057830
 ;;9002226.02101,"882,66267057830 ",.02)
 ;;66267057830
 ;;9002226.02101,"882,66267057840 ",.01)
 ;;66267057840
 ;;9002226.02101,"882,66267057840 ",.02)
 ;;66267057840
 ;;9002226.02101,"882,66267057860 ",.01)
 ;;66267057860
 ;;9002226.02101,"882,66267057860 ",.02)
 ;;66267057860
 ;;9002226.02101,"882,66267058305 ",.01)
 ;;66267058305
 ;;9002226.02101,"882,66267058305 ",.02)
 ;;66267058305
 ;;9002226.02101,"882,66267058310 ",.01)
 ;;66267058310
 ;;9002226.02101,"882,66267058310 ",.02)
 ;;66267058310
 ;;9002226.02101,"882,66267058320 ",.01)
 ;;66267058320
 ;;9002226.02101,"882,66267058320 ",.02)
 ;;66267058320
 ;;9002226.02101,"882,66267058330 ",.01)
 ;;66267058330
 ;;9002226.02101,"882,66267058330 ",.02)
 ;;66267058330
 ;;9002226.02101,"882,66267058340 ",.01)
 ;;66267058340
 ;;9002226.02101,"882,66267058340 ",.02)
 ;;66267058340
 ;;9002226.02101,"882,66267058360 ",.01)
 ;;66267058360
 ;;9002226.02101,"882,66267058360 ",.02)
 ;;66267058360
 ;;9002226.02101,"882,66267075130 ",.01)
 ;;66267075130
 ;;9002226.02101,"882,66267075130 ",.02)
 ;;66267075130
 ;;9002226.02101,"882,66267075190 ",.01)
 ;;66267075190
 ;;9002226.02101,"882,66267075190 ",.02)
 ;;66267075190
 ;;9002226.02101,"882,66267075230 ",.01)
 ;;66267075230
 ;;9002226.02101,"882,66267075230 ",.02)
 ;;66267075230
 ;;9002226.02101,"882,66267075290 ",.01)
 ;;66267075290
 ;;9002226.02101,"882,66267075290 ",.02)
 ;;66267075290
 ;;9002226.02101,"882,66267100900 ",.01)
 ;;66267100900
 ;;9002226.02101,"882,66267100900 ",.02)
 ;;66267100900
 ;;9002226.02101,"882,66336038930 ",.01)
 ;;66336038930
 ;;9002226.02101,"882,66336038930 ",.02)
 ;;66336038930
 ;;9002226.02101,"882,66336038960 ",.01)
 ;;66336038960
 ;;9002226.02101,"882,66336038960 ",.02)
 ;;66336038960
 ;;9002226.02101,"882,66336039130 ",.01)
 ;;66336039130
 ;;9002226.02101,"882,66336039130 ",.02)
 ;;66336039130
 ;;9002226.02101,"882,66336039160 ",.01)
 ;;66336039160
 ;;9002226.02101,"882,66336039160 ",.02)
 ;;66336039160
 ;;9002226.02101,"882,66336039330 ",.01)
 ;;66336039330
 ;;9002226.02101,"882,66336039330 ",.02)
 ;;66336039330
 ;;9002226.02101,"882,66336039360 ",.01)
 ;;66336039360
 ;;9002226.02101,"882,66336039360 ",.02)
 ;;66336039360
 ;;9002226.02101,"882,66336057230 ",.01)
 ;;66336057230
 ;;9002226.02101,"882,66336057230 ",.02)
 ;;66336057230
 ;;9002226.02101,"882,66336061860 ",.01)
 ;;66336061860
 ;;9002226.02101,"882,66336061860 ",.02)
 ;;66336061860
 ;;9002226.02101,"882,66336074130 ",.01)
 ;;66336074130
 ;;9002226.02101,"882,66336074130 ",.02)
 ;;66336074130
 ;;9002226.02101,"882,66336075060 ",.01)
 ;;66336075060
 ;;9002226.02101,"882,66336075060 ",.02)
 ;;66336075060
 ;;9002226.02101,"882,66336075090 ",.01)
 ;;66336075090
 ;;9002226.02101,"882,66336075090 ",.02)
 ;;66336075090
 ;;9002226.02101,"882,66336079460 ",.01)
 ;;66336079460
 ;;9002226.02101,"882,66336079460 ",.02)
 ;;66336079460
 ;;9002226.02101,"882,66336080530 ",.01)
 ;;66336080530
 ;;9002226.02101,"882,66336080530 ",.02)
 ;;66336080530
 ;;9002226.02101,"882,66336080590 ",.01)
 ;;66336080590
 ;;9002226.02101,"882,66336080590 ",.02)
 ;;66336080590
 ;;9002226.02101,"882,66336086730 ",.01)
 ;;66336086730
 ;;9002226.02101,"882,66336086730 ",.02)
 ;;66336086730
 ;;9002226.02101,"882,66336094630 ",.01)
 ;;66336094630
 ;;9002226.02101,"882,66336094630 ",.02)
 ;;66336094630
 ;;9002226.02101,"882,66336094660 ",.01)
 ;;66336094660
 ;;9002226.02101,"882,66336094660 ",.02)
 ;;66336094660
 ;;9002226.02101,"882,66336094690 ",.01)
 ;;66336094690