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

BGPM5AV.m

Go to the documentation of this file.
  1. BGPM5AV ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,54569014702 ",.01)
  1. ;;54569014702
  1. ;;9002226.02101,"1033,54569014702 ",.02)
  1. ;;54569014702
  1. ;;9002226.02101,"1033,54569014704 ",.01)
  1. ;;54569014704
  1. ;;9002226.02101,"1033,54569014704 ",.02)
  1. ;;54569014704
  1. ;;9002226.02101,"1033,54569026900 ",.01)
  1. ;;54569026900
  1. ;;9002226.02101,"1033,54569026900 ",.02)
  1. ;;54569026900
  1. ;;9002226.02101,"1033,54569030402 ",.01)
  1. ;;54569030402
  1. ;;9002226.02101,"1033,54569030402 ",.02)
  1. ;;54569030402
  1. ;;9002226.02101,"1033,54569030403 ",.01)
  1. ;;54569030403
  1. ;;9002226.02101,"1033,54569030403 ",.02)
  1. ;;54569030403
  1. ;;9002226.02101,"1033,54569030404 ",.01)
  1. ;;54569030404
  1. ;;9002226.02101,"1033,54569030404 ",.02)
  1. ;;54569030404
  1. ;;9002226.02101,"1033,54569030405 ",.01)
  1. ;;54569030405
  1. ;;9002226.02101,"1033,54569030405 ",.02)
  1. ;;54569030405
  1. ;;9002226.02101,"1033,54569030406 ",.01)
  1. ;;54569030406
  1. ;;9002226.02101,"1033,54569030406 ",.02)
  1. ;;54569030406
  1. ;;9002226.02101,"1033,54569030408 ",.01)
  1. ;;54569030408
  1. ;;9002226.02101,"1033,54569030408 ",.02)
  1. ;;54569030408
  1. ;;9002226.02101,"1033,54569030500 ",.01)
  1. ;;54569030500
  1. ;;9002226.02101,"1033,54569030500 ",.02)
  1. ;;54569030500
  1. ;;9002226.02101,"1033,54569030501 ",.01)
  1. ;;54569030501
  1. ;;9002226.02101,"1033,54569030501 ",.02)
  1. ;;54569030501
  1. ;;9002226.02101,"1033,54569030502 ",.01)
  1. ;;54569030502
  1. ;;9002226.02101,"1033,54569030502 ",.02)
  1. ;;54569030502
  1. ;;9002226.02101,"1033,54569030503 ",.01)
  1. ;;54569030503
  1. ;;9002226.02101,"1033,54569030503 ",.02)
  1. ;;54569030503
  1. ;;9002226.02101,"1033,54569030505 ",.01)
  1. ;;54569030505
  1. ;;9002226.02101,"1033,54569030505 ",.02)
  1. ;;54569030505
  1. ;;9002226.02101,"1033,54569030506 ",.01)
  1. ;;54569030506
  1. ;;9002226.02101,"1033,54569030506 ",.02)
  1. ;;54569030506
  1. ;;9002226.02101,"1033,54569030507 ",.01)
  1. ;;54569030507
  1. ;;9002226.02101,"1033,54569030507 ",.02)
  1. ;;54569030507
  1. ;;9002226.02101,"1033,54569030508 ",.01)
  1. ;;54569030508
  1. ;;9002226.02101,"1033,54569030508 ",.02)
  1. ;;54569030508
  1. ;;9002226.02101,"1033,54569038400 ",.01)
  1. ;;54569038400
  1. ;;9002226.02101,"1033,54569038400 ",.02)
  1. ;;54569038400
  1. ;;9002226.02101,"1033,54569038401 ",.01)
  1. ;;54569038401
  1. ;;9002226.02101,"1033,54569038401 ",.02)
  1. ;;54569038401
  1. ;;9002226.02101,"1033,54569038404 ",.01)
  1. ;;54569038404
  1. ;;9002226.02101,"1033,54569038404 ",.02)
  1. ;;54569038404
  1. ;;9002226.02101,"1033,54569038405 ",.01)
  1. ;;54569038405
  1. ;;9002226.02101,"1033,54569038405 ",.02)
  1. ;;54569038405
  1. ;;9002226.02101,"1033,54569102300 ",.01)
  1. ;;54569102300
  1. ;;9002226.02101,"1033,54569102300 ",.02)
  1. ;;54569102300
  1. ;;9002226.02101,"1033,54569102400 ",.01)
  1. ;;54569102400
  1. ;;9002226.02101,"1033,54569102400 ",.02)
  1. ;;54569102400
  1. ;;9002226.02101,"1033,54569102500 ",.01)
  1. ;;54569102500
  1. ;;9002226.02101,"1033,54569102500 ",.02)
  1. ;;54569102500
  1. ;;9002226.02101,"1033,54569171900 ",.01)
  1. ;;54569171900
  1. ;;9002226.02101,"1033,54569171900 ",.02)
  1. ;;54569171900
  1. ;;9002226.02101,"1033,54569171902 ",.01)
  1. ;;54569171902
  1. ;;9002226.02101,"1033,54569171902 ",.02)
  1. ;;54569171902
  1. ;;9002226.02101,"1033,54569174600 ",.01)
  1. ;;54569174600
  1. ;;9002226.02101,"1033,54569174600 ",.02)
  1. ;;54569174600
  1. ;;9002226.02101,"1033,54569174601 ",.01)
  1. ;;54569174601
  1. ;;9002226.02101,"1033,54569174601 ",.02)
  1. ;;54569174601
  1. ;;9002226.02101,"1033,54569174605 ",.01)
  1. ;;54569174605
  1. ;;9002226.02101,"1033,54569174605 ",.02)
  1. ;;54569174605
  1. ;;9002226.02101,"1033,54569174608 ",.01)
  1. ;;54569174608
  1. ;;9002226.02101,"1033,54569174608 ",.02)
  1. ;;54569174608
  1. ;;9002226.02101,"1033,54569174609 ",.01)
  1. ;;54569174609
  1. ;;9002226.02101,"1033,54569174609 ",.02)
  1. ;;54569174609
  1. ;;9002226.02101,"1033,54569184000 ",.01)
  1. ;;54569184000
  1. ;;9002226.02101,"1033,54569184000 ",.02)
  1. ;;54569184000
  1. ;;9002226.02101,"1033,54569184001 ",.01)
  1. ;;54569184001
  1. ;;9002226.02101,"1033,54569184001 ",.02)
  1. ;;54569184001
  1. ;;9002226.02101,"1033,54569184003 ",.01)
  1. ;;54569184003
  1. ;;9002226.02101,"1033,54569184003 ",.02)
  1. ;;54569184003
  1. ;;9002226.02101,"1033,54569184004 ",.01)
  1. ;;54569184004
  1. ;;9002226.02101,"1033,54569184004 ",.02)
  1. ;;54569184004
  1. ;;9002226.02101,"1033,54569184007 ",.01)
  1. ;;54569184007
  1. ;;9002226.02101,"1033,54569184007 ",.02)
  1. ;;54569184007
  1. ;;9002226.02101,"1033,54569186100 ",.01)
  1. ;;54569186100
  1. ;;9002226.02101,"1033,54569186100 ",.02)
  1. ;;54569186100
  1. ;;9002226.02101,"1033,54569186101 ",.01)
  1. ;;54569186101
  1. ;;9002226.02101,"1033,54569186101 ",.02)
  1. ;;54569186101
  1. ;;9002226.02101,"1033,54569186102 ",.01)
  1. ;;54569186102
  1. ;;9002226.02101,"1033,54569186102 ",.02)
  1. ;;54569186102
  1. ;;9002226.02101,"1033,54569186104 ",.01)
  1. ;;54569186104
  1. ;;9002226.02101,"1033,54569186104 ",.02)
  1. ;;54569186104
  1. ;;9002226.02101,"1033,54569186105 ",.01)
  1. ;;54569186105
  1. ;;9002226.02101,"1033,54569186105 ",.02)
  1. ;;54569186105
  1. ;;9002226.02101,"1033,54569186108 ",.01)
  1. ;;54569186108
  1. ;;9002226.02101,"1033,54569186108 ",.02)
  1. ;;54569186108
  1. ;;9002226.02101,"1033,54569186109 ",.01)
  1. ;;54569186109
  1. ;;9002226.02101,"1033,54569186109 ",.02)
  1. ;;54569186109
  1. ;;9002226.02101,"1033,54569188900 ",.01)
  1. ;;54569188900
  1. ;;9002226.02101,"1033,54569188900 ",.02)
  1. ;;54569188900
  1. ;;9002226.02101,"1033,54569188901 ",.01)
  1. ;;54569188901
  1. ;;9002226.02101,"1033,54569188901 ",.02)
  1. ;;54569188901
  1. ;;9002226.02101,"1033,54569188904 ",.01)
  1. ;;54569188904
  1. ;;9002226.02101,"1033,54569188904 ",.02)
  1. ;;54569188904
  1. ;;9002226.02101,"1033,54569200000 ",.01)
  1. ;;54569200000
  1. ;;9002226.02101,"1033,54569200000 ",.02)
  1. ;;54569200000
  1. ;;9002226.02101,"1033,54569200200 ",.01)
  1. ;;54569200200
  1. ;;9002226.02101,"1033,54569200200 ",.02)
  1. ;;54569200200
  1. ;;9002226.02101,"1033,54569218700 ",.01)
  1. ;;54569218700
  1. ;;9002226.02101,"1033,54569218700 ",.02)
  1. ;;54569218700
  1. ;;9002226.02101,"1033,54569227900 ",.01)
  1. ;;54569227900
  1. ;;9002226.02101,"1033,54569227900 ",.02)
  1. ;;54569227900
  1. ;;9002226.02101,"1033,54569227901 ",.01)
  1. ;;54569227901
  1. ;;9002226.02101,"1033,54569227901 ",.02)
  1. ;;54569227901
  1. ;;9002226.02101,"1033,54569227902 ",.01)
  1. ;;54569227902
  1. ;;9002226.02101,"1033,54569227902 ",.02)
  1. ;;54569227902
  1. ;;9002226.02101,"1033,54569227903 ",.01)
  1. ;;54569227903
  1. ;;9002226.02101,"1033,54569227903 ",.02)
  1. ;;54569227903
  1. ;;9002226.02101,"1033,54569227905 ",.01)
  1. ;;54569227905
  1. ;;9002226.02101,"1033,54569227905 ",.02)
  1. ;;54569227905
  1. ;;9002226.02101,"1033,54569227906 ",.01)
  1. ;;54569227906
  1. ;;9002226.02101,"1033,54569227906 ",.02)
  1. ;;54569227906
  1. ;;9002226.02101,"1033,54569227907 ",.01)
  1. ;;54569227907
  1. ;;9002226.02101,"1033,54569227907 ",.02)
  1. ;;54569227907
  1. ;;9002226.02101,"1033,54569227908 ",.01)
  1. ;;54569227908
  1. ;;9002226.02101,"1033,54569227908 ",.02)
  1. ;;54569227908
  1. ;;9002226.02101,"1033,54569241100 ",.01)
  1. ;;54569241100
  1. ;;9002226.02101,"1033,54569241100 ",.02)
  1. ;;54569241100
  1. ;;9002226.02101,"1033,54569241101 ",.01)
  1. ;;54569241101
  1. ;;9002226.02101,"1033,54569241101 ",.02)
  1. ;;54569241101
  1. ;;9002226.02101,"1033,54569241106 ",.01)
  1. ;;54569241106
  1. ;;9002226.02101,"1033,54569241106 ",.02)
  1. ;;54569241106
  1. ;;9002226.02101,"1033,54569250100 ",.01)
  1. ;;54569250100
  1. ;;9002226.02101,"1033,54569250100 ",.02)
  1. ;;54569250100
  1. ;;9002226.02101,"1033,54569250102 ",.01)
  1. ;;54569250102
  1. ;;9002226.02101,"1033,54569250102 ",.02)
  1. ;;54569250102
  1. ;;9002226.02101,"1033,54569250103 ",.01)
  1. ;;54569250103
  1. ;;9002226.02101,"1033,54569250103 ",.02)
  1. ;;54569250103
  1. ;;9002226.02101,"1033,54569250104 ",.01)
  1. ;;54569250104
  1. ;;9002226.02101,"1033,54569250104 ",.02)
  1. ;;54569250104
  1. ;;9002226.02101,"1033,54569250108 ",.01)
  1. ;;54569250108
  1. ;;9002226.02101,"1033,54569250108 ",.02)
  1. ;;54569250108
  1. ;;9002226.02101,"1033,54569250200 ",.01)
  1. ;;54569250200
  1. ;;9002226.02101,"1033,54569250200 ",.02)
  1. ;;54569250200
  1. ;;9002226.02101,"1033,54569250201 ",.01)
  1. ;;54569250201
  1. ;;9002226.02101,"1033,54569250201 ",.02)
  1. ;;54569250201
  1. ;;9002226.02101,"1033,54569250203 ",.01)
  1. ;;54569250203
  1. ;;9002226.02101,"1033,54569250203 ",.02)
  1. ;;54569250203
  1. ;;9002226.02101,"1033,54569250205 ",.01)
  1. ;;54569250205
  1. ;;9002226.02101,"1033,54569250205 ",.02)
  1. ;;54569250205
  1. ;;9002226.02101,"1033,54569250206 ",.01)
  1. ;;54569250206
  1. ;;9002226.02101,"1033,54569250206 ",.02)
  1. ;;54569250206
  1. ;;9002226.02101,"1033,54569250207 ",.01)
  1. ;;54569250207
  1. ;;9002226.02101,"1033,54569250207 ",.02)
  1. ;;54569250207
  1. ;;9002226.02101,"1033,54569250702 ",.01)
  1. ;;54569250702
  1. ;;9002226.02101,"1033,54569250702 ",.02)
  1. ;;54569250702
  1. ;;9002226.02101,"1033,54569250703 ",.01)
  1. ;;54569250703
  1. ;;9002226.02101,"1033,54569250703 ",.02)
  1. ;;54569250703
  1. ;;9002226.02101,"1033,54569250704 ",.01)
  1. ;;54569250704
  1. ;;9002226.02101,"1033,54569250704 ",.02)
  1. ;;54569250704
  1. ;;9002226.02101,"1033,54569250705 ",.01)
  1. ;;54569250705
  1. ;;9002226.02101,"1033,54569250705 ",.02)
  1. ;;54569250705
  1. ;;9002226.02101,"1033,54569250707 ",.01)
  1. ;;54569250707
  1. ;;9002226.02101,"1033,54569250707 ",.02)
  1. ;;54569250707
  1. ;;9002226.02101,"1033,54569250709 ",.01)
  1. ;;54569250709
  1. ;;9002226.02101,"1033,54569250709 ",.02)
  1. ;;54569250709
  1. ;;9002226.02101,"1033,54569270200 ",.01)
  1. ;;54569270200
  1. ;;9002226.02101,"1033,54569270200 ",.02)
  1. ;;54569270200
  1. ;;9002226.02101,"1033,54569270202 ",.01)
  1. ;;54569270202
  1. ;;9002226.02101,"1033,54569270202 ",.02)
  1. ;;54569270202
  1. ;;9002226.02101,"1033,54569270203 ",.01)
  1. ;;54569270203
  1. ;;9002226.02101,"1033,54569270203 ",.02)
  1. ;;54569270203
  1. ;;9002226.02101,"1033,54569270204 ",.01)
  1. ;;54569270204
  1. ;;9002226.02101,"1033,54569270204 ",.02)
  1. ;;54569270204
  1. ;;9002226.02101,"1033,54569270206 ",.01)
  1. ;;54569270206
  1. ;;9002226.02101,"1033,54569270206 ",.02)
  1. ;;54569270206
  1. ;;9002226.02101,"1033,54569270208 ",.01)
  1. ;;54569270208
  1. ;;9002226.02101,"1033,54569270208 ",.02)
  1. ;;54569270208
  1. ;;9002226.02101,"1033,54569271001 ",.01)
  1. ;;54569271001
  1. ;;9002226.02101,"1033,54569271001 ",.02)
  1. ;;54569271001
  1. ;;9002226.02101,"1033,54569271002 ",.01)
  1. ;;54569271002
  1. ;;9002226.02101,"1033,54569271002 ",.02)
  1. ;;54569271002
  1. ;;9002226.02101,"1033,54569271004 ",.01)
  1. ;;54569271004
  1. ;;9002226.02101,"1033,54569271004 ",.02)
  1. ;;54569271004
  1. ;;9002226.02101,"1033,54569271005 ",.01)
  1. ;;54569271005
  1. ;;9002226.02101,"1033,54569271005 ",.02)
  1. ;;54569271005
  1. ;;9002226.02101,"1033,54569271006 ",.01)
  1. ;;54569271006
  1. ;;9002226.02101,"1033,54569271006 ",.02)
  1. ;;54569271006
  1. ;;9002226.02101,"1033,54569282100 ",.01)
  1. ;;54569282100
  1. ;;9002226.02101,"1033,54569282100 ",.02)
  1. ;;54569282100
  1. ;;9002226.02101,"1033,54569292800 ",.01)
  1. ;;54569292800
  1. ;;9002226.02101,"1033,54569292800 ",.02)
  1. ;;54569292800
  1. ;;9002226.02101,"1033,54569292900 ",.01)
  1. ;;54569292900
  1. ;;9002226.02101,"1033,54569292900 ",.02)
  1. ;;54569292900
  1. ;;9002226.02101,"1033,54569293000 ",.01)
  1. ;;54569293000
  1. ;;9002226.02101,"1033,54569293000 ",.02)
  1. ;;54569293000
  1. ;;9002226.02101,"1033,54569293100 ",.01)
  1. ;;54569293100
  1. ;;9002226.02101,"1033,54569293100 ",.02)
  1. ;;54569293100
  1. ;;9002226.02101,"1033,54569293300 ",.01)
  1. ;;54569293300
  1. ;;9002226.02101,"1033,54569293300 ",.02)
  1. ;;54569293300
  1. ;;9002226.02101,"1033,54569293500 ",.01)
  1. ;;54569293500
  1. ;;9002226.02101,"1033,54569293500 ",.02)
  1. ;;54569293500
  1. ;;9002226.02101,"1033,54569295300 ",.01)
  1. ;;54569295300
  1. ;;9002226.02101,"1033,54569295300 ",.02)
  1. ;;54569295300
  1. ;;9002226.02101,"1033,54569295400 ",.01)
  1. ;;54569295400
  1. ;;9002226.02101,"1033,54569295400 ",.02)
  1. ;;54569295400
  1. ;;9002226.02101,"1033,54569298600 ",.01)
  1. ;;54569298600
  1. ;;9002226.02101,"1033,54569298600 ",.02)
  1. ;;54569298600
  1. ;;9002226.02101,"1033,54569298604 ",.01)
  1. ;;54569298604
  1. ;;9002226.02101,"1033,54569298604 ",.02)
  1. ;;54569298604
  1. ;;9002226.02101,"1033,54569298605 ",.01)
  1. ;;54569298605
  1. ;;9002226.02101,"1033,54569298605 ",.02)
  1. ;;54569298605
  1. ;;9002226.02101,"1033,54569307400 ",.01)
  1. ;;54569307400