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

BGPM5BFU.m

Go to the documentation of this file.
BGPM5BFU ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 12, 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,"1084,63874043281 ",.01)
 ;;63874043281
 ;;9002226.02101,"1084,63874043281 ",.02)
 ;;63874043281
 ;;9002226.02101,"1084,63874043290 ",.01)
 ;;63874043290
 ;;9002226.02101,"1084,63874043290 ",.02)
 ;;63874043290
 ;;9002226.02101,"1084,63874050101 ",.01)
 ;;63874050101
 ;;9002226.02101,"1084,63874050101 ",.02)
 ;;63874050101
 ;;9002226.02101,"1084,63874050130 ",.01)
 ;;63874050130
 ;;9002226.02101,"1084,63874050130 ",.02)
 ;;63874050130
 ;;9002226.02101,"1084,63874050160 ",.01)
 ;;63874050160
 ;;9002226.02101,"1084,63874050160 ",.02)
 ;;63874050160
 ;;9002226.02101,"1084,63874058801 ",.01)
 ;;63874058801
 ;;9002226.02101,"1084,63874058801 ",.02)
 ;;63874058801
 ;;9002226.02101,"1084,63874058804 ",.01)
 ;;63874058804
 ;;9002226.02101,"1084,63874058804 ",.02)
 ;;63874058804
 ;;9002226.02101,"1084,63874058810 ",.01)
 ;;63874058810
 ;;9002226.02101,"1084,63874058810 ",.02)
 ;;63874058810
 ;;9002226.02101,"1084,63874058814 ",.01)
 ;;63874058814
 ;;9002226.02101,"1084,63874058814 ",.02)
 ;;63874058814
 ;;9002226.02101,"1084,63874058820 ",.01)
 ;;63874058820
 ;;9002226.02101,"1084,63874058820 ",.02)
 ;;63874058820
 ;;9002226.02101,"1084,63874058830 ",.01)
 ;;63874058830
 ;;9002226.02101,"1084,63874058830 ",.02)
 ;;63874058830
 ;;9002226.02101,"1084,63874058860 ",.01)
 ;;63874058860
 ;;9002226.02101,"1084,63874058860 ",.02)
 ;;63874058860
 ;;9002226.02101,"1084,63874058880 ",.01)
 ;;63874058880
 ;;9002226.02101,"1084,63874058880 ",.02)
 ;;63874058880
 ;;9002226.02101,"1084,63874058890 ",.01)
 ;;63874058890
 ;;9002226.02101,"1084,63874058890 ",.02)
 ;;63874058890
 ;;9002226.02101,"1084,63874063501 ",.01)
 ;;63874063501
 ;;9002226.02101,"1084,63874063501 ",.02)
 ;;63874063501
 ;;9002226.02101,"1084,63874063510 ",.01)
 ;;63874063510
 ;;9002226.02101,"1084,63874063510 ",.02)
 ;;63874063510
 ;;9002226.02101,"1084,63874063520 ",.01)
 ;;63874063520
 ;;9002226.02101,"1084,63874063520 ",.02)
 ;;63874063520
 ;;9002226.02101,"1084,63874063528 ",.01)
 ;;63874063528
 ;;9002226.02101,"1084,63874063528 ",.02)
 ;;63874063528
 ;;9002226.02101,"1084,63874063530 ",.01)
 ;;63874063530
 ;;9002226.02101,"1084,63874063530 ",.02)
 ;;63874063530
 ;;9002226.02101,"1084,63874063560 ",.01)
 ;;63874063560
 ;;9002226.02101,"1084,63874063560 ",.02)
 ;;63874063560
 ;;9002226.02101,"1084,63874063590 ",.01)
 ;;63874063590
 ;;9002226.02101,"1084,63874063590 ",.02)
 ;;63874063590
 ;;9002226.02101,"1084,63874066501 ",.01)
 ;;63874066501
 ;;9002226.02101,"1084,63874066501 ",.02)
 ;;63874066501
 ;;9002226.02101,"1084,63874066504 ",.01)
 ;;63874066504
 ;;9002226.02101,"1084,63874066504 ",.02)
 ;;63874066504
 ;;9002226.02101,"1084,63874066510 ",.01)
 ;;63874066510
 ;;9002226.02101,"1084,63874066510 ",.02)
 ;;63874066510
 ;;9002226.02101,"1084,63874066514 ",.01)
 ;;63874066514
 ;;9002226.02101,"1084,63874066514 ",.02)
 ;;63874066514
 ;;9002226.02101,"1084,63874066530 ",.01)
 ;;63874066530
 ;;9002226.02101,"1084,63874066530 ",.02)
 ;;63874066530
 ;;9002226.02101,"1084,63874066560 ",.01)
 ;;63874066560
 ;;9002226.02101,"1084,63874066560 ",.02)
 ;;63874066560
 ;;9002226.02101,"1084,63874066590 ",.01)
 ;;63874066590
 ;;9002226.02101,"1084,63874066590 ",.02)
 ;;63874066590
 ;;9002226.02101,"1084,63874093901 ",.01)
 ;;63874093901
 ;;9002226.02101,"1084,63874093901 ",.02)
 ;;63874093901
 ;;9002226.02101,"1084,63874093910 ",.01)
 ;;63874093910
 ;;9002226.02101,"1084,63874093910 ",.02)
 ;;63874093910
 ;;9002226.02101,"1084,63874093930 ",.01)
 ;;63874093930
 ;;9002226.02101,"1084,63874093930 ",.02)
 ;;63874093930
 ;;9002226.02101,"1084,63874093960 ",.01)
 ;;63874093960
 ;;9002226.02101,"1084,63874093960 ",.02)
 ;;63874093960
 ;;9002226.02101,"1084,63874097460 ",.01)
 ;;63874097460
 ;;9002226.02101,"1084,63874097460 ",.02)
 ;;63874097460
 ;;9002226.02101,"1084,64679052804 ",.01)
 ;;64679052804
 ;;9002226.02101,"1084,64679052804 ",.02)
 ;;64679052804
 ;;9002226.02101,"1084,64679052805 ",.01)
 ;;64679052805
 ;;9002226.02101,"1084,64679052805 ",.02)
 ;;64679052805
 ;;9002226.02101,"1084,64679052904 ",.01)
 ;;64679052904
 ;;9002226.02101,"1084,64679052904 ",.02)
 ;;64679052904
 ;;9002226.02101,"1084,64679052905 ",.01)
 ;;64679052905
 ;;9002226.02101,"1084,64679052905 ",.02)
 ;;64679052905
 ;;9002226.02101,"1084,64679053004 ",.01)
 ;;64679053004
 ;;9002226.02101,"1084,64679053004 ",.02)
 ;;64679053004
 ;;9002226.02101,"1084,64679053005 ",.01)
 ;;64679053005
 ;;9002226.02101,"1084,64679053005 ",.02)
 ;;64679053005
 ;;9002226.02101,"1084,64720012310 ",.01)
 ;;64720012310
 ;;9002226.02101,"1084,64720012310 ",.02)
 ;;64720012310
 ;;9002226.02101,"1084,64720012410 ",.01)
 ;;64720012410
 ;;9002226.02101,"1084,64720012410 ",.02)
 ;;64720012410
 ;;9002226.02101,"1084,64720012411 ",.01)
 ;;64720012411
 ;;9002226.02101,"1084,64720012411 ",.02)
 ;;64720012411
 ;;9002226.02101,"1084,64720012510 ",.01)
 ;;64720012510
 ;;9002226.02101,"1084,64720012510 ",.02)
 ;;64720012510
 ;;9002226.02101,"1084,64720012511 ",.01)
 ;;64720012511
 ;;9002226.02101,"1084,64720012511 ",.02)
 ;;64720012511
 ;;9002226.02101,"1084,64720014010 ",.01)
 ;;64720014010
 ;;9002226.02101,"1084,64720014010 ",.02)
 ;;64720014010
 ;;9002226.02101,"1084,64720014011 ",.01)
 ;;64720014011
 ;;9002226.02101,"1084,64720014011 ",.02)
 ;;64720014011
 ;;9002226.02101,"1084,64720014050 ",.01)
 ;;64720014050
 ;;9002226.02101,"1084,64720014050 ",.02)
 ;;64720014050
 ;;9002226.02101,"1084,64720014110 ",.01)
 ;;64720014110
 ;;9002226.02101,"1084,64720014110 ",.02)
 ;;64720014110
 ;;9002226.02101,"1084,64720014111 ",.01)
 ;;64720014111
 ;;9002226.02101,"1084,64720014111 ",.02)
 ;;64720014111
 ;;9002226.02101,"1084,64720014150 ",.01)
 ;;64720014150
 ;;9002226.02101,"1084,64720014150 ",.02)
 ;;64720014150
 ;;9002226.02101,"1084,64720014210 ",.01)
 ;;64720014210
 ;;9002226.02101,"1084,64720014210 ",.02)
 ;;64720014210
 ;;9002226.02101,"1084,64720014211 ",.01)
 ;;64720014211
 ;;9002226.02101,"1084,64720014211 ",.02)
 ;;64720014211
 ;;9002226.02101,"1084,64720014250 ",.01)
 ;;64720014250
 ;;9002226.02101,"1084,64720014250 ",.02)
 ;;64720014250
 ;;9002226.02101,"1084,64720016410 ",.01)
 ;;64720016410
 ;;9002226.02101,"1084,64720016410 ",.02)
 ;;64720016410
 ;;9002226.02101,"1084,64720016411 ",.01)
 ;;64720016411
 ;;9002226.02101,"1084,64720016411 ",.02)
 ;;64720016411
 ;;9002226.02101,"1084,64720016510 ",.01)
 ;;64720016510
 ;;9002226.02101,"1084,64720016510 ",.02)
 ;;64720016510
 ;;9002226.02101,"1084,64720016511 ",.01)
 ;;64720016511
 ;;9002226.02101,"1084,64720016511 ",.02)
 ;;64720016511
 ;;9002226.02101,"1084,64720016610 ",.01)
 ;;64720016610
 ;;9002226.02101,"1084,64720016610 ",.02)
 ;;64720016610
 ;;9002226.02101,"1084,64720016611 ",.01)
 ;;64720016611
 ;;9002226.02101,"1084,64720016611 ",.02)
 ;;64720016611
 ;;9002226.02101,"1084,64720016710 ",.01)
 ;;64720016710
 ;;9002226.02101,"1084,64720016710 ",.02)
 ;;64720016710
 ;;9002226.02101,"1084,64720016711 ",.01)
 ;;64720016711
 ;;9002226.02101,"1084,64720016711 ",.02)
 ;;64720016711
 ;;9002226.02101,"1084,64720016750 ",.01)
 ;;64720016750
 ;;9002226.02101,"1084,64720016750 ",.02)
 ;;64720016750
 ;;9002226.02101,"1084,64720016810 ",.01)
 ;;64720016810
 ;;9002226.02101,"1084,64720016810 ",.02)
 ;;64720016810
 ;;9002226.02101,"1084,64720016811 ",.01)
 ;;64720016811
 ;;9002226.02101,"1084,64720016811 ",.02)
 ;;64720016811
 ;;9002226.02101,"1084,64720016850 ",.01)
 ;;64720016850
 ;;9002226.02101,"1084,64720016850 ",.02)
 ;;64720016850
 ;;9002226.02101,"1084,64720016910 ",.01)
 ;;64720016910
 ;;9002226.02101,"1084,64720016910 ",.02)
 ;;64720016910
 ;;9002226.02101,"1084,64720016911 ",.01)
 ;;64720016911
 ;;9002226.02101,"1084,64720016911 ",.02)
 ;;64720016911
 ;;9002226.02101,"1084,64720016950 ",.01)
 ;;64720016950
 ;;9002226.02101,"1084,64720016950 ",.02)
 ;;64720016950
 ;;9002226.02101,"1084,64725020703 ",.01)
 ;;64725020703
 ;;9002226.02101,"1084,64725020703 ",.02)
 ;;64725020703
 ;;9002226.02101,"1084,64725020803 ",.01)
 ;;64725020803
 ;;9002226.02101,"1084,64725020803 ",.02)
 ;;64725020803
 ;;9002226.02101,"1084,64725020903 ",.01)
 ;;64725020903
 ;;9002226.02101,"1084,64725020903 ",.02)
 ;;64725020903
 ;;9002226.02101,"1084,64896115001 ",.01)
 ;;64896115001
 ;;9002226.02101,"1084,64896115001 ",.02)
 ;;64896115001
 ;;9002226.02101,"1084,64896115003 ",.01)
 ;;64896115003
 ;;9002226.02101,"1084,64896115003 ",.02)
 ;;64896115003
 ;;9002226.02101,"1084,64896115101 ",.01)
 ;;64896115101
 ;;9002226.02101,"1084,64896115101 ",.02)
 ;;64896115101
 ;;9002226.02101,"1084,64896115103 ",.01)
 ;;64896115103
 ;;9002226.02101,"1084,64896115103 ",.02)
 ;;64896115103
 ;;9002226.02101,"1084,64896115201 ",.01)
 ;;64896115201
 ;;9002226.02101,"1084,64896115201 ",.02)
 ;;64896115201
 ;;9002226.02101,"1084,64896115203 ",.01)
 ;;64896115203
 ;;9002226.02101,"1084,64896115203 ",.02)
 ;;64896115203
 ;;9002226.02101,"1084,65084041618 ",.01)
 ;;65084041618
 ;;9002226.02101,"1084,65084041618 ",.02)
 ;;65084041618
 ;;9002226.02101,"1084,65084041620 ",.01)
 ;;65084041620
 ;;9002226.02101,"1084,65084041620 ",.02)
 ;;65084041620
 ;;9002226.02101,"1084,65162017410 ",.01)
 ;;65162017410
 ;;9002226.02101,"1084,65162017410 ",.02)
 ;;65162017410
 ;;9002226.02101,"1084,65162017411 ",.01)
 ;;65162017411
 ;;9002226.02101,"1084,65162017411 ",.02)
 ;;65162017411
 ;;9002226.02101,"1084,65162017450 ",.01)
 ;;65162017450
 ;;9002226.02101,"1084,65162017450 ",.02)
 ;;65162017450
 ;;9002226.02101,"1084,65162017510 ",.01)
 ;;65162017510
 ;;9002226.02101,"1084,65162017510 ",.02)
 ;;65162017510
 ;;9002226.02101,"1084,65162017511 ",.01)
 ;;65162017511
 ;;9002226.02101,"1084,65162017511 ",.02)
 ;;65162017511
 ;;9002226.02101,"1084,65162017550 ",.01)
 ;;65162017550
 ;;9002226.02101,"1084,65162017550 ",.02)
 ;;65162017550
 ;;9002226.02101,"1084,65162017710 ",.01)
 ;;65162017710
 ;;9002226.02101,"1084,65162017710 ",.02)
 ;;65162017710
 ;;9002226.02101,"1084,65162017711 ",.01)
 ;;65162017711
 ;;9002226.02101,"1084,65162017711 ",.02)
 ;;65162017711
 ;;9002226.02101,"1084,65162017750 ",.01)
 ;;65162017750
 ;;9002226.02101,"1084,65162017750 ",.02)
 ;;65162017750
 ;;9002226.02101,"1084,65243017609 ",.01)
 ;;65243017609
 ;;9002226.02101,"1084,65243017609 ",.02)
 ;;65243017609
 ;;9002226.02101,"1084,65243017618 ",.01)
 ;;65243017618
 ;;9002226.02101,"1084,65243017618 ",.02)
 ;;65243017618
 ;;9002226.02101,"1084,65243017636 ",.01)
 ;;65243017636
 ;;9002226.02101,"1084,65243017636 ",.02)
 ;;65243017636
 ;;9002226.02101,"1084,65243018318 ",.01)
 ;;65243018318
 ;;9002226.02101,"1084,65243018318 ",.02)
 ;;65243018318
 ;;9002226.02101,"1084,65243018509 ",.01)
 ;;65243018509
 ;;9002226.02101,"1084,65243018509 ",.02)
 ;;65243018509
 ;;9002226.02101,"1084,65243018512 ",.01)
 ;;65243018512
 ;;9002226.02101,"1084,65243018512 ",.02)
 ;;65243018512
 ;;9002226.02101,"1084,65243018518 ",.01)
 ;;65243018518
 ;;9002226.02101,"1084,65243018518 ",.02)
 ;;65243018518
 ;;9002226.02101,"1084,65243018527 ",.01)
 ;;65243018527
 ;;9002226.02101,"1084,65243018527 ",.02)
 ;;65243018527
 ;;9002226.02101,"1084,65243018536 ",.01)
 ;;65243018536
 ;;9002226.02101,"1084,65243018536 ",.02)
 ;;65243018536
 ;;9002226.02101,"1084,65243023906 ",.01)
 ;;65243023906
 ;;9002226.02101,"1084,65243023906 ",.02)
 ;;65243023906
 ;;9002226.02101,"1084,65243023909 ",.01)
 ;;65243023909
 ;;9002226.02101,"1084,65243023909 ",.02)
 ;;65243023909
 ;;9002226.02101,"1084,65243023912 ",.01)
 ;;65243023912
 ;;9002226.02101,"1084,65243023912 ",.02)
 ;;65243023912
 ;;9002226.02101,"1084,65243023918 ",.01)
 ;;65243023918