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

BGPM5AMA.m

Go to the documentation of this file.
BGPM5AMA ;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,"900,58016087480 ",.01)
 ;;58016087480
 ;;9002226.02101,"900,58016087480 ",.02)
 ;;58016087480
 ;;9002226.02101,"900,58016087481 ",.01)
 ;;58016087481
 ;;9002226.02101,"900,58016087481 ",.02)
 ;;58016087481
 ;;9002226.02101,"900,58016087482 ",.01)
 ;;58016087482
 ;;9002226.02101,"900,58016087482 ",.02)
 ;;58016087482
 ;;9002226.02101,"900,58016087483 ",.01)
 ;;58016087483
 ;;9002226.02101,"900,58016087483 ",.02)
 ;;58016087483
 ;;9002226.02101,"900,58016087484 ",.01)
 ;;58016087484
 ;;9002226.02101,"900,58016087484 ",.02)
 ;;58016087484
 ;;9002226.02101,"900,58016087487 ",.01)
 ;;58016087487
 ;;9002226.02101,"900,58016087487 ",.02)
 ;;58016087487
 ;;9002226.02101,"900,58016087489 ",.01)
 ;;58016087489
 ;;9002226.02101,"900,58016087489 ",.02)
 ;;58016087489
 ;;9002226.02101,"900,58016087490 ",.01)
 ;;58016087490
 ;;9002226.02101,"900,58016087490 ",.02)
 ;;58016087490
 ;;9002226.02101,"900,58016087491 ",.01)
 ;;58016087491
 ;;9002226.02101,"900,58016087491 ",.02)
 ;;58016087491
 ;;9002226.02101,"900,58016087492 ",.01)
 ;;58016087492
 ;;9002226.02101,"900,58016087492 ",.02)
 ;;58016087492
 ;;9002226.02101,"900,58016087493 ",.01)
 ;;58016087493
 ;;9002226.02101,"900,58016087493 ",.02)
 ;;58016087493
 ;;9002226.02101,"900,58016087496 ",.01)
 ;;58016087496
 ;;9002226.02101,"900,58016087496 ",.02)
 ;;58016087496
 ;;9002226.02101,"900,58016087497 ",.01)
 ;;58016087497
 ;;9002226.02101,"900,58016087497 ",.02)
 ;;58016087497
 ;;9002226.02101,"900,58016087498 ",.01)
 ;;58016087498
 ;;9002226.02101,"900,58016087498 ",.02)
 ;;58016087498
 ;;9002226.02101,"900,58016087499 ",.01)
 ;;58016087499
 ;;9002226.02101,"900,58016087499 ",.02)
 ;;58016087499
 ;;9002226.02101,"900,58016090000 ",.01)
 ;;58016090000
 ;;9002226.02101,"900,58016090000 ",.02)
 ;;58016090000
 ;;9002226.02101,"900,58016090001 ",.01)
 ;;58016090001
 ;;9002226.02101,"900,58016090001 ",.02)
 ;;58016090001
 ;;9002226.02101,"900,58016090002 ",.01)
 ;;58016090002
 ;;9002226.02101,"900,58016090002 ",.02)
 ;;58016090002
 ;;9002226.02101,"900,58016090003 ",.01)
 ;;58016090003
 ;;9002226.02101,"900,58016090003 ",.02)
 ;;58016090003
 ;;9002226.02101,"900,58016090004 ",.01)
 ;;58016090004
 ;;9002226.02101,"900,58016090004 ",.02)
 ;;58016090004
 ;;9002226.02101,"900,58016090005 ",.01)
 ;;58016090005
 ;;9002226.02101,"900,58016090005 ",.02)
 ;;58016090005
 ;;9002226.02101,"900,58016090006 ",.01)
 ;;58016090006
 ;;9002226.02101,"900,58016090006 ",.02)
 ;;58016090006
 ;;9002226.02101,"900,58016090007 ",.01)
 ;;58016090007
 ;;9002226.02101,"900,58016090007 ",.02)
 ;;58016090007
 ;;9002226.02101,"900,58016090008 ",.01)
 ;;58016090008
 ;;9002226.02101,"900,58016090008 ",.02)
 ;;58016090008
 ;;9002226.02101,"900,58016090009 ",.01)
 ;;58016090009
 ;;9002226.02101,"900,58016090009 ",.02)
 ;;58016090009
 ;;9002226.02101,"900,58016090010 ",.01)
 ;;58016090010
 ;;9002226.02101,"900,58016090010 ",.02)
 ;;58016090010
 ;;9002226.02101,"900,58016090012 ",.01)
 ;;58016090012
 ;;9002226.02101,"900,58016090012 ",.02)
 ;;58016090012
 ;;9002226.02101,"900,58016090014 ",.01)
 ;;58016090014
 ;;9002226.02101,"900,58016090014 ",.02)
 ;;58016090014
 ;;9002226.02101,"900,58016090015 ",.01)
 ;;58016090015
 ;;9002226.02101,"900,58016090015 ",.02)
 ;;58016090015
 ;;9002226.02101,"900,58016090016 ",.01)
 ;;58016090016
 ;;9002226.02101,"900,58016090016 ",.02)
 ;;58016090016
 ;;9002226.02101,"900,58016090018 ",.01)
 ;;58016090018
 ;;9002226.02101,"900,58016090018 ",.02)
 ;;58016090018
 ;;9002226.02101,"900,58016090020 ",.01)
 ;;58016090020
 ;;9002226.02101,"900,58016090020 ",.02)
 ;;58016090020
 ;;9002226.02101,"900,58016090021 ",.01)
 ;;58016090021
 ;;9002226.02101,"900,58016090021 ",.02)
 ;;58016090021
 ;;9002226.02101,"900,58016090024 ",.01)
 ;;58016090024
 ;;9002226.02101,"900,58016090024 ",.02)
 ;;58016090024
 ;;9002226.02101,"900,58016090025 ",.01)
 ;;58016090025
 ;;9002226.02101,"900,58016090025 ",.02)
 ;;58016090025
 ;;9002226.02101,"900,58016090026 ",.01)
 ;;58016090026
 ;;9002226.02101,"900,58016090026 ",.02)
 ;;58016090026
 ;;9002226.02101,"900,58016090027 ",.01)
 ;;58016090027
 ;;9002226.02101,"900,58016090027 ",.02)
 ;;58016090027
 ;;9002226.02101,"900,58016090028 ",.01)
 ;;58016090028
 ;;9002226.02101,"900,58016090028 ",.02)
 ;;58016090028
 ;;9002226.02101,"900,58016090030 ",.01)
 ;;58016090030
 ;;9002226.02101,"900,58016090030 ",.02)
 ;;58016090030
 ;;9002226.02101,"900,58016090032 ",.01)
 ;;58016090032
 ;;9002226.02101,"900,58016090032 ",.02)
 ;;58016090032
 ;;9002226.02101,"900,58016090035 ",.01)
 ;;58016090035
 ;;9002226.02101,"900,58016090035 ",.02)
 ;;58016090035
 ;;9002226.02101,"900,58016090036 ",.01)
 ;;58016090036
 ;;9002226.02101,"900,58016090036 ",.02)
 ;;58016090036
 ;;9002226.02101,"900,58016090040 ",.01)
 ;;58016090040
 ;;9002226.02101,"900,58016090040 ",.02)
 ;;58016090040
 ;;9002226.02101,"900,58016090042 ",.01)
 ;;58016090042
 ;;9002226.02101,"900,58016090042 ",.02)
 ;;58016090042
 ;;9002226.02101,"900,58016090044 ",.01)
 ;;58016090044
 ;;9002226.02101,"900,58016090044 ",.02)
 ;;58016090044
 ;;9002226.02101,"900,58016090045 ",.01)
 ;;58016090045
 ;;9002226.02101,"900,58016090045 ",.02)
 ;;58016090045
 ;;9002226.02101,"900,58016090056 ",.01)
 ;;58016090056
 ;;9002226.02101,"900,58016090056 ",.02)
 ;;58016090056
 ;;9002226.02101,"900,58016090060 ",.01)
 ;;58016090060
 ;;9002226.02101,"900,58016090060 ",.02)
 ;;58016090060
 ;;9002226.02101,"900,58016090067 ",.01)
 ;;58016090067
 ;;9002226.02101,"900,58016090067 ",.02)
 ;;58016090067
 ;;9002226.02101,"900,58016090069 ",.01)
 ;;58016090069
 ;;9002226.02101,"900,58016090069 ",.02)
 ;;58016090069
 ;;9002226.02101,"900,58016090070 ",.01)
 ;;58016090070
 ;;9002226.02101,"900,58016090070 ",.02)
 ;;58016090070
 ;;9002226.02101,"900,58016090071 ",.01)
 ;;58016090071
 ;;9002226.02101,"900,58016090071 ",.02)
 ;;58016090071
 ;;9002226.02101,"900,58016090072 ",.01)
 ;;58016090072
 ;;9002226.02101,"900,58016090072 ",.02)
 ;;58016090072
 ;;9002226.02101,"900,58016090073 ",.01)
 ;;58016090073
 ;;9002226.02101,"900,58016090073 ",.02)
 ;;58016090073
 ;;9002226.02101,"900,58016090075 ",.01)
 ;;58016090075
 ;;9002226.02101,"900,58016090075 ",.02)
 ;;58016090075
 ;;9002226.02101,"900,58016090076 ",.01)
 ;;58016090076
 ;;9002226.02101,"900,58016090076 ",.02)
 ;;58016090076
 ;;9002226.02101,"900,58016090077 ",.01)
 ;;58016090077
 ;;9002226.02101,"900,58016090077 ",.02)
 ;;58016090077
 ;;9002226.02101,"900,58016090079 ",.01)
 ;;58016090079
 ;;9002226.02101,"900,58016090079 ",.02)
 ;;58016090079
 ;;9002226.02101,"900,58016090080 ",.01)
 ;;58016090080
 ;;9002226.02101,"900,58016090080 ",.02)
 ;;58016090080
 ;;9002226.02101,"900,58016090081 ",.01)
 ;;58016090081
 ;;9002226.02101,"900,58016090081 ",.02)
 ;;58016090081
 ;;9002226.02101,"900,58016090083 ",.01)
 ;;58016090083
 ;;9002226.02101,"900,58016090083 ",.02)
 ;;58016090083
 ;;9002226.02101,"900,58016090084 ",.01)
 ;;58016090084
 ;;9002226.02101,"900,58016090084 ",.02)
 ;;58016090084
 ;;9002226.02101,"900,58016090087 ",.01)
 ;;58016090087
 ;;9002226.02101,"900,58016090087 ",.02)
 ;;58016090087
 ;;9002226.02101,"900,58016090089 ",.01)
 ;;58016090089
 ;;9002226.02101,"900,58016090089 ",.02)
 ;;58016090089
 ;;9002226.02101,"900,58016090090 ",.01)
 ;;58016090090
 ;;9002226.02101,"900,58016090090 ",.02)
 ;;58016090090
 ;;9002226.02101,"900,58016090091 ",.01)
 ;;58016090091
 ;;9002226.02101,"900,58016090091 ",.02)
 ;;58016090091
 ;;9002226.02101,"900,58016090092 ",.01)
 ;;58016090092
 ;;9002226.02101,"900,58016090092 ",.02)
 ;;58016090092
 ;;9002226.02101,"900,58016090093 ",.01)
 ;;58016090093
 ;;9002226.02101,"900,58016090093 ",.02)
 ;;58016090093
 ;;9002226.02101,"900,58016090096 ",.01)
 ;;58016090096
 ;;9002226.02101,"900,58016090096 ",.02)
 ;;58016090096
 ;;9002226.02101,"900,58016090097 ",.01)
 ;;58016090097
 ;;9002226.02101,"900,58016090097 ",.02)
 ;;58016090097
 ;;9002226.02101,"900,58016090098 ",.01)
 ;;58016090098
 ;;9002226.02101,"900,58016090098 ",.02)
 ;;58016090098
 ;;9002226.02101,"900,58016090099 ",.01)
 ;;58016090099
 ;;9002226.02101,"900,58016090099 ",.02)
 ;;58016090099
 ;;9002226.02101,"900,58016091600 ",.01)
 ;;58016091600
 ;;9002226.02101,"900,58016091600 ",.02)
 ;;58016091600
 ;;9002226.02101,"900,58016091601 ",.01)
 ;;58016091601
 ;;9002226.02101,"900,58016091601 ",.02)
 ;;58016091601
 ;;9002226.02101,"900,58016091602 ",.01)
 ;;58016091602
 ;;9002226.02101,"900,58016091602 ",.02)
 ;;58016091602
 ;;9002226.02101,"900,58016091603 ",.01)
 ;;58016091603
 ;;9002226.02101,"900,58016091603 ",.02)
 ;;58016091603
 ;;9002226.02101,"900,58016091604 ",.01)
 ;;58016091604
 ;;9002226.02101,"900,58016091604 ",.02)
 ;;58016091604
 ;;9002226.02101,"900,58016091605 ",.01)
 ;;58016091605
 ;;9002226.02101,"900,58016091605 ",.02)
 ;;58016091605
 ;;9002226.02101,"900,58016091606 ",.01)
 ;;58016091606
 ;;9002226.02101,"900,58016091606 ",.02)
 ;;58016091606
 ;;9002226.02101,"900,58016091607 ",.01)
 ;;58016091607
 ;;9002226.02101,"900,58016091607 ",.02)
 ;;58016091607
 ;;9002226.02101,"900,58016091608 ",.01)
 ;;58016091608
 ;;9002226.02101,"900,58016091608 ",.02)
 ;;58016091608
 ;;9002226.02101,"900,58016091609 ",.01)
 ;;58016091609
 ;;9002226.02101,"900,58016091609 ",.02)
 ;;58016091609
 ;;9002226.02101,"900,58016091610 ",.01)
 ;;58016091610
 ;;9002226.02101,"900,58016091610 ",.02)
 ;;58016091610
 ;;9002226.02101,"900,58016091612 ",.01)
 ;;58016091612
 ;;9002226.02101,"900,58016091612 ",.02)
 ;;58016091612
 ;;9002226.02101,"900,58016091615 ",.01)
 ;;58016091615
 ;;9002226.02101,"900,58016091615 ",.02)
 ;;58016091615
 ;;9002226.02101,"900,58016091616 ",.01)
 ;;58016091616
 ;;9002226.02101,"900,58016091616 ",.02)
 ;;58016091616
 ;;9002226.02101,"900,58016091618 ",.01)
 ;;58016091618
 ;;9002226.02101,"900,58016091618 ",.02)
 ;;58016091618
 ;;9002226.02101,"900,58016091620 ",.01)
 ;;58016091620
 ;;9002226.02101,"900,58016091620 ",.02)
 ;;58016091620
 ;;9002226.02101,"900,58016091621 ",.01)
 ;;58016091621
 ;;9002226.02101,"900,58016091621 ",.02)
 ;;58016091621
 ;;9002226.02101,"900,58016091624 ",.01)
 ;;58016091624
 ;;9002226.02101,"900,58016091624 ",.02)
 ;;58016091624
 ;;9002226.02101,"900,58016091625 ",.01)
 ;;58016091625
 ;;9002226.02101,"900,58016091625 ",.02)
 ;;58016091625
 ;;9002226.02101,"900,58016091626 ",.01)
 ;;58016091626
 ;;9002226.02101,"900,58016091626 ",.02)
 ;;58016091626
 ;;9002226.02101,"900,58016091627 ",.01)
 ;;58016091627
 ;;9002226.02101,"900,58016091627 ",.02)
 ;;58016091627
 ;;9002226.02101,"900,58016091628 ",.01)
 ;;58016091628
 ;;9002226.02101,"900,58016091628 ",.02)
 ;;58016091628
 ;;9002226.02101,"900,58016091630 ",.01)
 ;;58016091630
 ;;9002226.02101,"900,58016091630 ",.02)
 ;;58016091630
 ;;9002226.02101,"900,58016091632 ",.01)
 ;;58016091632
 ;;9002226.02101,"900,58016091632 ",.02)
 ;;58016091632
 ;;9002226.02101,"900,58016091635 ",.01)
 ;;58016091635
 ;;9002226.02101,"900,58016091635 ",.02)
 ;;58016091635
 ;;9002226.02101,"900,58016091636 ",.01)
 ;;58016091636
 ;;9002226.02101,"900,58016091636 ",.02)
 ;;58016091636
 ;;9002226.02101,"900,58016091640 ",.01)
 ;;58016091640
 ;;9002226.02101,"900,58016091640 ",.02)
 ;;58016091640
 ;;9002226.02101,"900,58016091642 ",.01)
 ;;58016091642
 ;;9002226.02101,"900,58016091642 ",.02)
 ;;58016091642
 ;;9002226.02101,"900,58016091644 ",.01)
 ;;58016091644
 ;;9002226.02101,"900,58016091644 ",.02)
 ;;58016091644
 ;;9002226.02101,"900,58016091645 ",.01)
 ;;58016091645
 ;;9002226.02101,"900,58016091645 ",.02)
 ;;58016091645