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

BGPM5ACB.m

Go to the documentation of this file.
BGPM5ACB ;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,"830,63304076720 ",.02)
 ;;63304076720
 ;;9002226.02101,"830,63304086001 ",.01)
 ;;63304086001
 ;;9002226.02101,"830,63304086001 ",.02)
 ;;63304086001
 ;;9002226.02101,"830,63304086005 ",.01)
 ;;63304086005
 ;;9002226.02101,"830,63304086005 ",.02)
 ;;63304086005
 ;;9002226.02101,"830,63304086030 ",.01)
 ;;63304086030
 ;;9002226.02101,"830,63304086030 ",.02)
 ;;63304086030
 ;;9002226.02101,"830,63552033060 ",.01)
 ;;63552033060
 ;;9002226.02101,"830,63552033060 ",.02)
 ;;63552033060
 ;;9002226.02101,"830,63629139201 ",.01)
 ;;63629139201
 ;;9002226.02101,"830,63629139201 ",.02)
 ;;63629139201
 ;;9002226.02101,"830,63629139202 ",.01)
 ;;63629139202
 ;;9002226.02101,"830,63629139202 ",.02)
 ;;63629139202
 ;;9002226.02101,"830,63629139203 ",.01)
 ;;63629139203
 ;;9002226.02101,"830,63629139203 ",.02)
 ;;63629139203
 ;;9002226.02101,"830,63629139501 ",.01)
 ;;63629139501
 ;;9002226.02101,"830,63629139501 ",.02)
 ;;63629139501
 ;;9002226.02101,"830,63629139502 ",.01)
 ;;63629139502
 ;;9002226.02101,"830,63629139502 ",.02)
 ;;63629139502
 ;;9002226.02101,"830,63629139503 ",.01)
 ;;63629139503
 ;;9002226.02101,"830,63629139503 ",.02)
 ;;63629139503
 ;;9002226.02101,"830,63629139504 ",.01)
 ;;63629139504
 ;;9002226.02101,"830,63629139504 ",.02)
 ;;63629139504
 ;;9002226.02101,"830,63629139505 ",.01)
 ;;63629139505
 ;;9002226.02101,"830,63629139505 ",.02)
 ;;63629139505
 ;;9002226.02101,"830,63629139601 ",.01)
 ;;63629139601
 ;;9002226.02101,"830,63629139601 ",.02)
 ;;63629139601
 ;;9002226.02101,"830,63629139602 ",.01)
 ;;63629139602
 ;;9002226.02101,"830,63629139602 ",.02)
 ;;63629139602
 ;;9002226.02101,"830,63629139701 ",.01)
 ;;63629139701
 ;;9002226.02101,"830,63629139701 ",.02)
 ;;63629139701
 ;;9002226.02101,"830,63629139702 ",.01)
 ;;63629139702
 ;;9002226.02101,"830,63629139702 ",.02)
 ;;63629139702
 ;;9002226.02101,"830,63629139703 ",.01)
 ;;63629139703
 ;;9002226.02101,"830,63629139703 ",.02)
 ;;63629139703
 ;;9002226.02101,"830,63629139704 ",.01)
 ;;63629139704
 ;;9002226.02101,"830,63629139704 ",.02)
 ;;63629139704
 ;;9002226.02101,"830,63629139705 ",.01)
 ;;63629139705
 ;;9002226.02101,"830,63629139705 ",.02)
 ;;63629139705
 ;;9002226.02101,"830,63629139706 ",.01)
 ;;63629139706
 ;;9002226.02101,"830,63629139706 ",.02)
 ;;63629139706
 ;;9002226.02101,"830,63629139707 ",.01)
 ;;63629139707
 ;;9002226.02101,"830,63629139707 ",.02)
 ;;63629139707
 ;;9002226.02101,"830,63629279301 ",.01)
 ;;63629279301
 ;;9002226.02101,"830,63629279301 ",.02)
 ;;63629279301
 ;;9002226.02101,"830,63629279302 ",.01)
 ;;63629279302
 ;;9002226.02101,"830,63629279302 ",.02)
 ;;63629279302
 ;;9002226.02101,"830,63629279303 ",.01)
 ;;63629279303
 ;;9002226.02101,"830,63629279303 ",.02)
 ;;63629279303
 ;;9002226.02101,"830,63629279304 ",.01)
 ;;63629279304
 ;;9002226.02101,"830,63629279304 ",.02)
 ;;63629279304
 ;;9002226.02101,"830,63629279305 ",.01)
 ;;63629279305
 ;;9002226.02101,"830,63629279305 ",.02)
 ;;63629279305
 ;;9002226.02101,"830,63629288301 ",.01)
 ;;63629288301
 ;;9002226.02101,"830,63629288301 ",.02)
 ;;63629288301
 ;;9002226.02101,"830,63629288302 ",.01)
 ;;63629288302
 ;;9002226.02101,"830,63629288302 ",.02)
 ;;63629288302
 ;;9002226.02101,"830,63629288303 ",.01)
 ;;63629288303
 ;;9002226.02101,"830,63629288303 ",.02)
 ;;63629288303
 ;;9002226.02101,"830,63629288304 ",.01)
 ;;63629288304
 ;;9002226.02101,"830,63629288304 ",.02)
 ;;63629288304
 ;;9002226.02101,"830,63629288305 ",.01)
 ;;63629288305
 ;;9002226.02101,"830,63629288305 ",.02)
 ;;63629288305
 ;;9002226.02101,"830,63629399801 ",.01)
 ;;63629399801
 ;;9002226.02101,"830,63629399801 ",.02)
 ;;63629399801
 ;;9002226.02101,"830,63739029910 ",.01)
 ;;63739029910
 ;;9002226.02101,"830,63739029910 ",.02)
 ;;63739029910
 ;;9002226.02101,"830,63739030010 ",.01)
 ;;63739030010
 ;;9002226.02101,"830,63739030010 ",.02)
 ;;63739030010
 ;;9002226.02101,"830,63739030110 ",.01)
 ;;63739030110
 ;;9002226.02101,"830,63739030110 ",.02)
 ;;63739030110
 ;;9002226.02101,"830,63874050101 ",.01)
 ;;63874050101
 ;;9002226.02101,"830,63874050101 ",.02)
 ;;63874050101
 ;;9002226.02101,"830,63874050130 ",.01)
 ;;63874050130
 ;;9002226.02101,"830,63874050130 ",.02)
 ;;63874050130
 ;;9002226.02101,"830,63874050160 ",.01)
 ;;63874050160
 ;;9002226.02101,"830,63874050160 ",.02)
 ;;63874050160
 ;;9002226.02101,"830,63874063501 ",.01)
 ;;63874063501
 ;;9002226.02101,"830,63874063501 ",.02)
 ;;63874063501
 ;;9002226.02101,"830,63874063510 ",.01)
 ;;63874063510
 ;;9002226.02101,"830,63874063510 ",.02)
 ;;63874063510
 ;;9002226.02101,"830,63874063520 ",.01)
 ;;63874063520
 ;;9002226.02101,"830,63874063520 ",.02)
 ;;63874063520
 ;;9002226.02101,"830,63874063528 ",.01)
 ;;63874063528
 ;;9002226.02101,"830,63874063528 ",.02)
 ;;63874063528
 ;;9002226.02101,"830,63874063530 ",.01)
 ;;63874063530
 ;;9002226.02101,"830,63874063530 ",.02)
 ;;63874063530
 ;;9002226.02101,"830,63874063560 ",.01)
 ;;63874063560
 ;;9002226.02101,"830,63874063560 ",.02)
 ;;63874063560
 ;;9002226.02101,"830,63874063590 ",.01)
 ;;63874063590
 ;;9002226.02101,"830,63874063590 ",.02)
 ;;63874063590
 ;;9002226.02101,"830,63874093901 ",.01)
 ;;63874093901
 ;;9002226.02101,"830,63874093901 ",.02)
 ;;63874093901
 ;;9002226.02101,"830,63874093910 ",.01)
 ;;63874093910
 ;;9002226.02101,"830,63874093910 ",.02)
 ;;63874093910
 ;;9002226.02101,"830,63874093930 ",.01)
 ;;63874093930
 ;;9002226.02101,"830,63874093930 ",.02)
 ;;63874093930
 ;;9002226.02101,"830,63874093960 ",.01)
 ;;63874093960
 ;;9002226.02101,"830,63874093960 ",.02)
 ;;63874093960
 ;;9002226.02101,"830,63874097460 ",.01)
 ;;63874097460
 ;;9002226.02101,"830,63874097460 ",.02)
 ;;63874097460
 ;;9002226.02101,"830,64679052804 ",.01)
 ;;64679052804
 ;;9002226.02101,"830,64679052804 ",.02)
 ;;64679052804
 ;;9002226.02101,"830,64679052805 ",.01)
 ;;64679052805
 ;;9002226.02101,"830,64679052805 ",.02)
 ;;64679052805
 ;;9002226.02101,"830,64679052904 ",.01)
 ;;64679052904
 ;;9002226.02101,"830,64679052904 ",.02)
 ;;64679052904
 ;;9002226.02101,"830,64679052905 ",.01)
 ;;64679052905
 ;;9002226.02101,"830,64679052905 ",.02)
 ;;64679052905
 ;;9002226.02101,"830,64679053004 ",.01)
 ;;64679053004
 ;;9002226.02101,"830,64679053004 ",.02)
 ;;64679053004
 ;;9002226.02101,"830,64679053005 ",.01)
 ;;64679053005
 ;;9002226.02101,"830,64679053005 ",.02)
 ;;64679053005
 ;;9002226.02101,"830,64720014010 ",.01)
 ;;64720014010
 ;;9002226.02101,"830,64720014010 ",.02)
 ;;64720014010
 ;;9002226.02101,"830,64720014011 ",.01)
 ;;64720014011
 ;;9002226.02101,"830,64720014011 ",.02)
 ;;64720014011
 ;;9002226.02101,"830,64720014050 ",.01)
 ;;64720014050
 ;;9002226.02101,"830,64720014050 ",.02)
 ;;64720014050
 ;;9002226.02101,"830,64720014110 ",.01)
 ;;64720014110
 ;;9002226.02101,"830,64720014110 ",.02)
 ;;64720014110
 ;;9002226.02101,"830,64720014111 ",.01)
 ;;64720014111
 ;;9002226.02101,"830,64720014111 ",.02)
 ;;64720014111
 ;;9002226.02101,"830,64720014150 ",.01)
 ;;64720014150
 ;;9002226.02101,"830,64720014150 ",.02)
 ;;64720014150
 ;;9002226.02101,"830,64720014210 ",.01)
 ;;64720014210
 ;;9002226.02101,"830,64720014210 ",.02)
 ;;64720014210
 ;;9002226.02101,"830,64720014211 ",.01)
 ;;64720014211
 ;;9002226.02101,"830,64720014211 ",.02)
 ;;64720014211
 ;;9002226.02101,"830,64720014250 ",.01)
 ;;64720014250
 ;;9002226.02101,"830,64720014250 ",.02)
 ;;64720014250
 ;;9002226.02101,"830,64720016710 ",.01)
 ;;64720016710
 ;;9002226.02101,"830,64720016710 ",.02)
 ;;64720016710
 ;;9002226.02101,"830,64720016711 ",.01)
 ;;64720016711
 ;;9002226.02101,"830,64720016711 ",.02)
 ;;64720016711
 ;;9002226.02101,"830,64720016750 ",.01)
 ;;64720016750
 ;;9002226.02101,"830,64720016750 ",.02)
 ;;64720016750
 ;;9002226.02101,"830,64720016810 ",.01)
 ;;64720016810
 ;;9002226.02101,"830,64720016810 ",.02)
 ;;64720016810
 ;;9002226.02101,"830,64720016811 ",.01)
 ;;64720016811
 ;;9002226.02101,"830,64720016811 ",.02)
 ;;64720016811
 ;;9002226.02101,"830,64720016850 ",.01)
 ;;64720016850
 ;;9002226.02101,"830,64720016850 ",.02)
 ;;64720016850
 ;;9002226.02101,"830,64720016910 ",.01)
 ;;64720016910
 ;;9002226.02101,"830,64720016910 ",.02)
 ;;64720016910
 ;;9002226.02101,"830,64720016911 ",.01)
 ;;64720016911
 ;;9002226.02101,"830,64720016911 ",.02)
 ;;64720016911
 ;;9002226.02101,"830,64720016950 ",.01)
 ;;64720016950
 ;;9002226.02101,"830,64720016950 ",.02)
 ;;64720016950
 ;;9002226.02101,"830,64725020703 ",.01)
 ;;64725020703
 ;;9002226.02101,"830,64725020703 ",.02)
 ;;64725020703
 ;;9002226.02101,"830,64725020803 ",.01)
 ;;64725020803
 ;;9002226.02101,"830,64725020803 ",.02)
 ;;64725020803
 ;;9002226.02101,"830,64725020903 ",.01)
 ;;64725020903
 ;;9002226.02101,"830,64725020903 ",.02)
 ;;64725020903
 ;;9002226.02101,"830,65084041618 ",.01)
 ;;65084041618
 ;;9002226.02101,"830,65084041618 ",.02)
 ;;65084041618
 ;;9002226.02101,"830,65084041620 ",.01)
 ;;65084041620
 ;;9002226.02101,"830,65084041620 ",.02)
 ;;65084041620
 ;;9002226.02101,"830,65162017410 ",.01)
 ;;65162017410
 ;;9002226.02101,"830,65162017410 ",.02)
 ;;65162017410
 ;;9002226.02101,"830,65162017411 ",.01)
 ;;65162017411
 ;;9002226.02101,"830,65162017411 ",.02)
 ;;65162017411
 ;;9002226.02101,"830,65162017450 ",.01)
 ;;65162017450
 ;;9002226.02101,"830,65162017450 ",.02)
 ;;65162017450
 ;;9002226.02101,"830,65162017510 ",.01)
 ;;65162017510
 ;;9002226.02101,"830,65162017510 ",.02)
 ;;65162017510
 ;;9002226.02101,"830,65162017511 ",.01)
 ;;65162017511
 ;;9002226.02101,"830,65162017511 ",.02)
 ;;65162017511
 ;;9002226.02101,"830,65162017550 ",.01)
 ;;65162017550
 ;;9002226.02101,"830,65162017550 ",.02)
 ;;65162017550
 ;;9002226.02101,"830,65162017710 ",.01)
 ;;65162017710
 ;;9002226.02101,"830,65162017710 ",.02)
 ;;65162017710
 ;;9002226.02101,"830,65162017711 ",.01)
 ;;65162017711
 ;;9002226.02101,"830,65162017711 ",.02)
 ;;65162017711
 ;;9002226.02101,"830,65162017750 ",.01)
 ;;65162017750
 ;;9002226.02101,"830,65162017750 ",.02)
 ;;65162017750
 ;;9002226.02101,"830,65243023906 ",.01)
 ;;65243023906
 ;;9002226.02101,"830,65243023906 ",.02)
 ;;65243023906
 ;;9002226.02101,"830,65243023909 ",.01)
 ;;65243023909
 ;;9002226.02101,"830,65243023909 ",.02)
 ;;65243023909
 ;;9002226.02101,"830,65243023912 ",.01)
 ;;65243023912
 ;;9002226.02101,"830,65243023912 ",.02)
 ;;65243023912
 ;;9002226.02101,"830,65243023918 ",.01)
 ;;65243023918
 ;;9002226.02101,"830,65243023918 ",.02)
 ;;65243023918
 ;;9002226.02101,"830,65243023927 ",.01)
 ;;65243023927
 ;;9002226.02101,"830,65243023927 ",.02)
 ;;65243023927
 ;;9002226.02101,"830,65243028803 ",.01)
 ;;65243028803
 ;;9002226.02101,"830,65243028803 ",.02)
 ;;65243028803
 ;;9002226.02101,"830,65243028806 ",.01)
 ;;65243028806
 ;;9002226.02101,"830,65243028806 ",.02)
 ;;65243028806
 ;;9002226.02101,"830,65243028809 ",.01)
 ;;65243028809
 ;;9002226.02101,"830,65243028809 ",.02)
 ;;65243028809
 ;;9002226.02101,"830,65243028812 ",.01)
 ;;65243028812
 ;;9002226.02101,"830,65243028812 ",.02)
 ;;65243028812
 ;;9002226.02101,"830,65243028818 ",.01)
 ;;65243028818
 ;;9002226.02101,"830,65243028818 ",.02)
 ;;65243028818
 ;;9002226.02101,"830,65243028906 ",.01)
 ;;65243028906
 ;;9002226.02101,"830,65243028906 ",.02)
 ;;65243028906
 ;;9002226.02101,"830,65243028909 ",.01)
 ;;65243028909
 ;;9002226.02101,"830,65243028909 ",.02)
 ;;65243028909
 ;;9002226.02101,"830,65243028912 ",.01)
 ;;65243028912
 ;;9002226.02101,"830,65243028912 ",.02)
 ;;65243028912
 ;;9002226.02101,"830,65243028918 ",.01)
 ;;65243028918