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

BGPM5BFG.m

Go to the documentation of this file.
  1. BGPM5BFG ;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,54868521705 ",.01)
  1. ;;54868521705
  1. ;;9002226.02101,"1084,54868521705 ",.02)
  1. ;;54868521705
  1. ;;9002226.02101,"1084,54868524300 ",.01)
  1. ;;54868524300
  1. ;;9002226.02101,"1084,54868524300 ",.02)
  1. ;;54868524300
  1. ;;9002226.02101,"1084,54868524301 ",.01)
  1. ;;54868524301
  1. ;;9002226.02101,"1084,54868524301 ",.02)
  1. ;;54868524301
  1. ;;9002226.02101,"1084,54868524302 ",.01)
  1. ;;54868524302
  1. ;;9002226.02101,"1084,54868524302 ",.02)
  1. ;;54868524302
  1. ;;9002226.02101,"1084,54868524303 ",.01)
  1. ;;54868524303
  1. ;;9002226.02101,"1084,54868524303 ",.02)
  1. ;;54868524303
  1. ;;9002226.02101,"1084,54868524304 ",.01)
  1. ;;54868524304
  1. ;;9002226.02101,"1084,54868524304 ",.02)
  1. ;;54868524304
  1. ;;9002226.02101,"1084,54868536400 ",.01)
  1. ;;54868536400
  1. ;;9002226.02101,"1084,54868536400 ",.02)
  1. ;;54868536400
  1. ;;9002226.02101,"1084,54868536401 ",.01)
  1. ;;54868536401
  1. ;;9002226.02101,"1084,54868536401 ",.02)
  1. ;;54868536401
  1. ;;9002226.02101,"1084,54868536402 ",.01)
  1. ;;54868536402
  1. ;;9002226.02101,"1084,54868536402 ",.02)
  1. ;;54868536402
  1. ;;9002226.02101,"1084,54868545700 ",.01)
  1. ;;54868545700
  1. ;;9002226.02101,"1084,54868545700 ",.02)
  1. ;;54868545700
  1. ;;9002226.02101,"1084,54868545701 ",.01)
  1. ;;54868545701
  1. ;;9002226.02101,"1084,54868545701 ",.02)
  1. ;;54868545701
  1. ;;9002226.02101,"1084,54868545702 ",.01)
  1. ;;54868545702
  1. ;;9002226.02101,"1084,54868545702 ",.02)
  1. ;;54868545702
  1. ;;9002226.02101,"1084,54868546700 ",.01)
  1. ;;54868546700
  1. ;;9002226.02101,"1084,54868546700 ",.02)
  1. ;;54868546700
  1. ;;9002226.02101,"1084,54868546701 ",.01)
  1. ;;54868546701
  1. ;;9002226.02101,"1084,54868546701 ",.02)
  1. ;;54868546701
  1. ;;9002226.02101,"1084,54868546702 ",.01)
  1. ;;54868546702
  1. ;;9002226.02101,"1084,54868546702 ",.02)
  1. ;;54868546702
  1. ;;9002226.02101,"1084,54868550500 ",.01)
  1. ;;54868550500
  1. ;;9002226.02101,"1084,54868550500 ",.02)
  1. ;;54868550500
  1. ;;9002226.02101,"1084,54868550501 ",.01)
  1. ;;54868550501
  1. ;;9002226.02101,"1084,54868550501 ",.02)
  1. ;;54868550501
  1. ;;9002226.02101,"1084,54868550502 ",.01)
  1. ;;54868550502
  1. ;;9002226.02101,"1084,54868550502 ",.02)
  1. ;;54868550502
  1. ;;9002226.02101,"1084,54868571200 ",.01)
  1. ;;54868571200
  1. ;;9002226.02101,"1084,54868571200 ",.02)
  1. ;;54868571200
  1. ;;9002226.02101,"1084,54868589900 ",.01)
  1. ;;54868589900
  1. ;;9002226.02101,"1084,54868589900 ",.02)
  1. ;;54868589900
  1. ;;9002226.02101,"1084,54868594500 ",.01)
  1. ;;54868594500
  1. ;;9002226.02101,"1084,54868594500 ",.02)
  1. ;;54868594500
  1. ;;9002226.02101,"1084,54868625500 ",.01)
  1. ;;54868625500
  1. ;;9002226.02101,"1084,54868625500 ",.02)
  1. ;;54868625500
  1. ;;9002226.02101,"1084,54868625501 ",.01)
  1. ;;54868625501
  1. ;;9002226.02101,"1084,54868625501 ",.02)
  1. ;;54868625501
  1. ;;9002226.02101,"1084,54907042501 ",.01)
  1. ;;54907042501
  1. ;;9002226.02101,"1084,54907042501 ",.02)
  1. ;;54907042501
  1. ;;9002226.02101,"1084,54907042601 ",.01)
  1. ;;54907042601
  1. ;;9002226.02101,"1084,54907042601 ",.02)
  1. ;;54907042601
  1. ;;9002226.02101,"1084,54907042701 ",.01)
  1. ;;54907042701
  1. ;;9002226.02101,"1084,54907042701 ",.02)
  1. ;;54907042701
  1. ;;9002226.02101,"1084,54907076701 ",.01)
  1. ;;54907076701
  1. ;;9002226.02101,"1084,54907076701 ",.02)
  1. ;;54907076701
  1. ;;9002226.02101,"1084,54907086001 ",.01)
  1. ;;54907086001
  1. ;;9002226.02101,"1084,54907086001 ",.02)
  1. ;;54907086001
  1. ;;9002226.02101,"1084,54907086003 ",.01)
  1. ;;54907086003
  1. ;;9002226.02101,"1084,54907086003 ",.02)
  1. ;;54907086003
  1. ;;9002226.02101,"1084,54907086004 ",.01)
  1. ;;54907086004
  1. ;;9002226.02101,"1084,54907086004 ",.02)
  1. ;;54907086004
  1. ;;9002226.02101,"1084,54907086005 ",.01)
  1. ;;54907086005
  1. ;;9002226.02101,"1084,54907086005 ",.02)
  1. ;;54907086005
  1. ;;9002226.02101,"1084,55045121101 ",.01)
  1. ;;55045121101
  1. ;;9002226.02101,"1084,55045121101 ",.02)
  1. ;;55045121101
  1. ;;9002226.02101,"1084,55045156809 ",.01)
  1. ;;55045156809
  1. ;;9002226.02101,"1084,55045156809 ",.02)
  1. ;;55045156809
  1. ;;9002226.02101,"1084,55045213800 ",.01)
  1. ;;55045213800
  1. ;;9002226.02101,"1084,55045213800 ",.02)
  1. ;;55045213800
  1. ;;9002226.02101,"1084,55045213801 ",.01)
  1. ;;55045213801
  1. ;;9002226.02101,"1084,55045213801 ",.02)
  1. ;;55045213801
  1. ;;9002226.02101,"1084,55045213802 ",.01)
  1. ;;55045213802
  1. ;;9002226.02101,"1084,55045213802 ",.02)
  1. ;;55045213802
  1. ;;9002226.02101,"1084,55045213806 ",.01)
  1. ;;55045213806
  1. ;;9002226.02101,"1084,55045213806 ",.02)
  1. ;;55045213806
  1. ;;9002226.02101,"1084,55045213808 ",.01)
  1. ;;55045213808
  1. ;;9002226.02101,"1084,55045213808 ",.02)
  1. ;;55045213808
  1. ;;9002226.02101,"1084,55045226501 ",.01)
  1. ;;55045226501
  1. ;;9002226.02101,"1084,55045226501 ",.02)
  1. ;;55045226501
  1. ;;9002226.02101,"1084,55045226601 ",.01)
  1. ;;55045226601
  1. ;;9002226.02101,"1084,55045226601 ",.02)
  1. ;;55045226601
  1. ;;9002226.02101,"1084,55045226606 ",.01)
  1. ;;55045226606
  1. ;;9002226.02101,"1084,55045226606 ",.02)
  1. ;;55045226606
  1. ;;9002226.02101,"1084,55045226608 ",.01)
  1. ;;55045226608
  1. ;;9002226.02101,"1084,55045226608 ",.02)
  1. ;;55045226608
  1. ;;9002226.02101,"1084,55045226609 ",.01)
  1. ;;55045226609
  1. ;;9002226.02101,"1084,55045226609 ",.02)
  1. ;;55045226609
  1. ;;9002226.02101,"1084,55045226700 ",.01)
  1. ;;55045226700
  1. ;;9002226.02101,"1084,55045226700 ",.02)
  1. ;;55045226700
  1. ;;9002226.02101,"1084,55045226708 ",.01)
  1. ;;55045226708
  1. ;;9002226.02101,"1084,55045226708 ",.02)
  1. ;;55045226708
  1. ;;9002226.02101,"1084,55045232201 ",.01)
  1. ;;55045232201
  1. ;;9002226.02101,"1084,55045232201 ",.02)
  1. ;;55045232201
  1. ;;9002226.02101,"1084,55045232208 ",.01)
  1. ;;55045232208
  1. ;;9002226.02101,"1084,55045232208 ",.02)
  1. ;;55045232208
  1. ;;9002226.02101,"1084,55045261700 ",.01)
  1. ;;55045261700
  1. ;;9002226.02101,"1084,55045261700 ",.02)
  1. ;;55045261700
  1. ;;9002226.02101,"1084,55045290400 ",.01)
  1. ;;55045290400
  1. ;;9002226.02101,"1084,55045290400 ",.02)
  1. ;;55045290400
  1. ;;9002226.02101,"1084,55045290402 ",.01)
  1. ;;55045290402
  1. ;;9002226.02101,"1084,55045290402 ",.02)
  1. ;;55045290402
  1. ;;9002226.02101,"1084,55045290409 ",.01)
  1. ;;55045290409
  1. ;;9002226.02101,"1084,55045290409 ",.02)
  1. ;;55045290409
  1. ;;9002226.02101,"1084,55045290500 ",.01)
  1. ;;55045290500
  1. ;;9002226.02101,"1084,55045290500 ",.02)
  1. ;;55045290500
  1. ;;9002226.02101,"1084,55045290503 ",.01)
  1. ;;55045290503
  1. ;;9002226.02101,"1084,55045290503 ",.02)
  1. ;;55045290503
  1. ;;9002226.02101,"1084,55045290506 ",.01)
  1. ;;55045290506
  1. ;;9002226.02101,"1084,55045290506 ",.02)
  1. ;;55045290506
  1. ;;9002226.02101,"1084,55045290508 ",.01)
  1. ;;55045290508
  1. ;;9002226.02101,"1084,55045290508 ",.02)
  1. ;;55045290508
  1. ;;9002226.02101,"1084,55045290600 ",.01)
  1. ;;55045290600
  1. ;;9002226.02101,"1084,55045290600 ",.02)
  1. ;;55045290600
  1. ;;9002226.02101,"1084,55045290601 ",.01)
  1. ;;55045290601
  1. ;;9002226.02101,"1084,55045290601 ",.02)
  1. ;;55045290601
  1. ;;9002226.02101,"1084,55045290602 ",.01)
  1. ;;55045290602
  1. ;;9002226.02101,"1084,55045290602 ",.02)
  1. ;;55045290602
  1. ;;9002226.02101,"1084,55045290606 ",.01)
  1. ;;55045290606
  1. ;;9002226.02101,"1084,55045290606 ",.02)
  1. ;;55045290606
  1. ;;9002226.02101,"1084,55045290609 ",.01)
  1. ;;55045290609
  1. ;;9002226.02101,"1084,55045290609 ",.02)
  1. ;;55045290609
  1. ;;9002226.02101,"1084,55045328701 ",.01)
  1. ;;55045328701
  1. ;;9002226.02101,"1084,55045328701 ",.02)
  1. ;;55045328701
  1. ;;9002226.02101,"1084,55045330001 ",.01)
  1. ;;55045330001
  1. ;;9002226.02101,"1084,55045330001 ",.02)
  1. ;;55045330001
  1. ;;9002226.02101,"1084,55045360702 ",.01)
  1. ;;55045360702
  1. ;;9002226.02101,"1084,55045360702 ",.02)
  1. ;;55045360702
  1. ;;9002226.02101,"1084,55045361304 ",.01)
  1. ;;55045361304
  1. ;;9002226.02101,"1084,55045361304 ",.02)
  1. ;;55045361304
  1. ;;9002226.02101,"1084,55111032001 ",.01)
  1. ;;55111032001
  1. ;;9002226.02101,"1084,55111032001 ",.02)
  1. ;;55111032001
  1. ;;9002226.02101,"1084,55111032005 ",.01)
  1. ;;55111032005
  1. ;;9002226.02101,"1084,55111032005 ",.02)
  1. ;;55111032005
  1. ;;9002226.02101,"1084,55111032030 ",.01)
  1. ;;55111032030
  1. ;;9002226.02101,"1084,55111032030 ",.02)
  1. ;;55111032030
  1. ;;9002226.02101,"1084,55111032078 ",.01)
  1. ;;55111032078
  1. ;;9002226.02101,"1084,55111032078 ",.02)
  1. ;;55111032078
  1. ;;9002226.02101,"1084,55111032101 ",.01)
  1. ;;55111032101
  1. ;;9002226.02101,"1084,55111032101 ",.02)
  1. ;;55111032101
  1. ;;9002226.02101,"1084,55111032105 ",.01)
  1. ;;55111032105
  1. ;;9002226.02101,"1084,55111032105 ",.02)
  1. ;;55111032105
  1. ;;9002226.02101,"1084,55111032130 ",.01)
  1. ;;55111032130
  1. ;;9002226.02101,"1084,55111032130 ",.02)
  1. ;;55111032130
  1. ;;9002226.02101,"1084,55111032178 ",.01)
  1. ;;55111032178
  1. ;;9002226.02101,"1084,55111032178 ",.02)
  1. ;;55111032178
  1. ;;9002226.02101,"1084,55111032179 ",.01)
  1. ;;55111032179
  1. ;;9002226.02101,"1084,55111032179 ",.02)
  1. ;;55111032179
  1. ;;9002226.02101,"1084,55111032201 ",.01)
  1. ;;55111032201
  1. ;;9002226.02101,"1084,55111032201 ",.02)
  1. ;;55111032201
  1. ;;9002226.02101,"1084,55111032205 ",.01)
  1. ;;55111032205
  1. ;;9002226.02101,"1084,55111032205 ",.02)
  1. ;;55111032205
  1. ;;9002226.02101,"1084,55111032230 ",.01)
  1. ;;55111032230
  1. ;;9002226.02101,"1084,55111032230 ",.02)
  1. ;;55111032230
  1. ;;9002226.02101,"1084,55111032278 ",.01)
  1. ;;55111032278
  1. ;;9002226.02101,"1084,55111032278 ",.02)
  1. ;;55111032278
  1. ;;9002226.02101,"1084,55111032279 ",.01)
  1. ;;55111032279
  1. ;;9002226.02101,"1084,55111032279 ",.02)
  1. ;;55111032279
  1. ;;9002226.02101,"1084,55111032801 ",.01)
  1. ;;55111032801
  1. ;;9002226.02101,"1084,55111032801 ",.02)
  1. ;;55111032801
  1. ;;9002226.02101,"1084,55111032805 ",.01)
  1. ;;55111032805
  1. ;;9002226.02101,"1084,55111032805 ",.02)
  1. ;;55111032805
  1. ;;9002226.02101,"1084,55111032830 ",.01)
  1. ;;55111032830
  1. ;;9002226.02101,"1084,55111032830 ",.02)
  1. ;;55111032830
  1. ;;9002226.02101,"1084,55111032878 ",.01)
  1. ;;55111032878
  1. ;;9002226.02101,"1084,55111032878 ",.02)
  1. ;;55111032878
  1. ;;9002226.02101,"1084,55111032879 ",.01)
  1. ;;55111032879
  1. ;;9002226.02101,"1084,55111032879 ",.02)
  1. ;;55111032879
  1. ;;9002226.02101,"1084,55111032890 ",.01)
  1. ;;55111032890
  1. ;;9002226.02101,"1084,55111032890 ",.02)
  1. ;;55111032890
  1. ;;9002226.02101,"1084,55111032901 ",.01)
  1. ;;55111032901
  1. ;;9002226.02101,"1084,55111032901 ",.02)
  1. ;;55111032901
  1. ;;9002226.02101,"1084,55111032905 ",.01)
  1. ;;55111032905
  1. ;;9002226.02101,"1084,55111032905 ",.02)
  1. ;;55111032905
  1. ;;9002226.02101,"1084,55111032930 ",.01)
  1. ;;55111032930
  1. ;;9002226.02101,"1084,55111032930 ",.02)
  1. ;;55111032930
  1. ;;9002226.02101,"1084,55111032978 ",.01)
  1. ;;55111032978
  1. ;;9002226.02101,"1084,55111032978 ",.02)
  1. ;;55111032978
  1. ;;9002226.02101,"1084,55111032979 ",.01)
  1. ;;55111032979
  1. ;;9002226.02101,"1084,55111032979 ",.02)
  1. ;;55111032979
  1. ;;9002226.02101,"1084,55111032990 ",.01)
  1. ;;55111032990
  1. ;;9002226.02101,"1084,55111032990 ",.02)
  1. ;;55111032990
  1. ;;9002226.02101,"1084,55111042901 ",.01)
  1. ;;55111042901
  1. ;;9002226.02101,"1084,55111042901 ",.02)
  1. ;;55111042901
  1. ;;9002226.02101,"1084,55111042905 ",.01)
  1. ;;55111042905
  1. ;;9002226.02101,"1084,55111042905 ",.02)
  1. ;;55111042905
  1. ;;9002226.02101,"1084,55111042910 ",.01)
  1. ;;55111042910
  1. ;;9002226.02101,"1084,55111042910 ",.02)
  1. ;;55111042910
  1. ;;9002226.02101,"1084,55111042930 ",.01)
  1. ;;55111042930
  1. ;;9002226.02101,"1084,55111042930 ",.02)
  1. ;;55111042930
  1. ;;9002226.02101,"1084,55111042960 ",.01)
  1. ;;55111042960
  1. ;;9002226.02101,"1084,55111042960 ",.02)
  1. ;;55111042960
  1. ;;9002226.02101,"1084,55111042978 ",.01)
  1. ;;55111042978
  1. ;;9002226.02101,"1084,55111042978 ",.02)
  1. ;;55111042978
  1. ;;9002226.02101,"1084,55111043001 ",.01)
  1. ;;55111043001
  1. ;;9002226.02101,"1084,55111043001 ",.02)
  1. ;;55111043001
  1. ;;9002226.02101,"1084,55111043005 ",.01)
  1. ;;55111043005
  1. ;;9002226.02101,"1084,55111043005 ",.02)
  1. ;;55111043005
  1. ;;9002226.02101,"1084,55111043030 ",.01)
  1. ;;55111043030
  1. ;;9002226.02101,"1084,55111043030 ",.02)
  1. ;;55111043030
  1. ;;9002226.02101,"1084,55111043060 ",.01)
  1. ;;55111043060
  1. ;;9002226.02101,"1084,55111043060 ",.02)
  1. ;;55111043060
  1. ;;9002226.02101,"1084,55111043078 ",.01)
  1. ;;55111043078