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