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

BGPM5AFD.m

Go to the documentation of this file.
BGPM5AFD ;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,"881,60505018809 ",.01)
 ;;60505018809
 ;;9002226.02101,"881,60505018809 ",.02)
 ;;60505018809
 ;;9002226.02101,"881,60505018900 ",.01)
 ;;60505018900
 ;;9002226.02101,"881,60505018900 ",.02)
 ;;60505018900
 ;;9002226.02101,"881,60505018901 ",.01)
 ;;60505018901
 ;;9002226.02101,"881,60505018901 ",.02)
 ;;60505018901
 ;;9002226.02101,"881,60505018908 ",.01)
 ;;60505018908
 ;;9002226.02101,"881,60505018908 ",.02)
 ;;60505018908
 ;;9002226.02101,"881,60505018909 ",.01)
 ;;60505018909
 ;;9002226.02101,"881,60505018909 ",.02)
 ;;60505018909
 ;;9002226.02101,"881,60505020501 ",.01)
 ;;60505020501
 ;;9002226.02101,"881,60505020501 ",.02)
 ;;60505020501
 ;;9002226.02101,"881,60505020502 ",.01)
 ;;60505020502
 ;;9002226.02101,"881,60505020502 ",.02)
 ;;60505020502
 ;;9002226.02101,"881,60505020503 ",.01)
 ;;60505020503
 ;;9002226.02101,"881,60505020503 ",.02)
 ;;60505020503
 ;;9002226.02101,"881,60505020505 ",.01)
 ;;60505020505
 ;;9002226.02101,"881,60505020505 ",.02)
 ;;60505020505
 ;;9002226.02101,"881,60505020507 ",.01)
 ;;60505020507
 ;;9002226.02101,"881,60505020507 ",.02)
 ;;60505020507
 ;;9002226.02101,"881,60505020601 ",.01)
 ;;60505020601
 ;;9002226.02101,"881,60505020601 ",.02)
 ;;60505020601
 ;;9002226.02101,"881,60505020602 ",.01)
 ;;60505020602
 ;;9002226.02101,"881,60505020602 ",.02)
 ;;60505020602
 ;;9002226.02101,"881,60505020603 ",.01)
 ;;60505020603
 ;;9002226.02101,"881,60505020603 ",.02)
 ;;60505020603
 ;;9002226.02101,"881,60505020605 ",.01)
 ;;60505020605
 ;;9002226.02101,"881,60505020605 ",.02)
 ;;60505020605
 ;;9002226.02101,"881,60505020607 ",.01)
 ;;60505020607
 ;;9002226.02101,"881,60505020607 ",.02)
 ;;60505020607
 ;;9002226.02101,"881,60505020701 ",.01)
 ;;60505020701
 ;;9002226.02101,"881,60505020701 ",.02)
 ;;60505020701
 ;;9002226.02101,"881,60505020702 ",.01)
 ;;60505020702
 ;;9002226.02101,"881,60505020702 ",.02)
 ;;60505020702
 ;;9002226.02101,"881,60505020703 ",.01)
 ;;60505020703
 ;;9002226.02101,"881,60505020703 ",.02)
 ;;60505020703
 ;;9002226.02101,"881,60505020705 ",.01)
 ;;60505020705
 ;;9002226.02101,"881,60505020705 ",.02)
 ;;60505020705
 ;;9002226.02101,"881,60505020707 ",.01)
 ;;60505020707
 ;;9002226.02101,"881,60505020707 ",.02)
 ;;60505020707
 ;;9002226.02101,"881,60505020801 ",.01)
 ;;60505020801
 ;;9002226.02101,"881,60505020801 ",.02)
 ;;60505020801
 ;;9002226.02101,"881,60505020802 ",.01)
 ;;60505020802
 ;;9002226.02101,"881,60505020802 ",.02)
 ;;60505020802
 ;;9002226.02101,"881,60505020901 ",.01)
 ;;60505020901
 ;;9002226.02101,"881,60505020901 ",.02)
 ;;60505020901
 ;;9002226.02101,"881,60505020902 ",.01)
 ;;60505020902
 ;;9002226.02101,"881,60505020902 ",.02)
 ;;60505020902
 ;;9002226.02101,"881,60505027101 ",.01)
 ;;60505027101
 ;;9002226.02101,"881,60505027101 ",.02)
 ;;60505027101
 ;;9002226.02101,"881,60505027103 ",.01)
 ;;60505027103
 ;;9002226.02101,"881,60505027103 ",.02)
 ;;60505027103
 ;;9002226.02101,"881,60505027105 ",.01)
 ;;60505027105
 ;;9002226.02101,"881,60505027105 ",.02)
 ;;60505027105
 ;;9002226.02101,"881,60505027108 ",.01)
 ;;60505027108
 ;;9002226.02101,"881,60505027108 ",.02)
 ;;60505027108
 ;;9002226.02101,"881,60505027201 ",.01)
 ;;60505027201
 ;;9002226.02101,"881,60505027201 ",.02)
 ;;60505027201
 ;;9002226.02101,"881,60505027203 ",.01)
 ;;60505027203
 ;;9002226.02101,"881,60505027203 ",.02)
 ;;60505027203
 ;;9002226.02101,"881,60505027205 ",.01)
 ;;60505027205
 ;;9002226.02101,"881,60505027205 ",.02)
 ;;60505027205
 ;;9002226.02101,"881,60505027208 ",.01)
 ;;60505027208
 ;;9002226.02101,"881,60505027208 ",.02)
 ;;60505027208
 ;;9002226.02101,"881,60505251002 ",.01)
 ;;60505251002
 ;;9002226.02101,"881,60505251002 ",.02)
 ;;60505251002
 ;;9002226.02101,"881,60505251003 ",.01)
 ;;60505251003
 ;;9002226.02101,"881,60505251003 ",.02)
 ;;60505251003
 ;;9002226.02101,"881,60505251004 ",.01)
 ;;60505251004
 ;;9002226.02101,"881,60505251004 ",.02)
 ;;60505251004
 ;;9002226.02101,"881,60505251102 ",.01)
 ;;60505251102
 ;;9002226.02101,"881,60505251102 ",.02)
 ;;60505251102
 ;;9002226.02101,"881,60505251103 ",.01)
 ;;60505251103
 ;;9002226.02101,"881,60505251103 ",.02)
 ;;60505251103
 ;;9002226.02101,"881,60505251104 ",.01)
 ;;60505251104
 ;;9002226.02101,"881,60505251104 ",.02)
 ;;60505251104
 ;;9002226.02101,"881,60505251202 ",.01)
 ;;60505251202
 ;;9002226.02101,"881,60505251202 ",.02)
 ;;60505251202
 ;;9002226.02101,"881,60505251203 ",.01)
 ;;60505251203
 ;;9002226.02101,"881,60505251203 ",.02)
 ;;60505251203
 ;;9002226.02101,"881,60505251204 ",.01)
 ;;60505251204
 ;;9002226.02101,"881,60505251204 ",.02)
 ;;60505251204
 ;;9002226.02101,"881,60505251208 ",.01)
 ;;60505251208
 ;;9002226.02101,"881,60505251208 ",.02)
 ;;60505251208
 ;;9002226.02101,"881,60505268301 ",.01)
 ;;60505268301
 ;;9002226.02101,"881,60505268301 ",.02)
 ;;60505268301
 ;;9002226.02101,"881,60505268401 ",.01)
 ;;60505268401
 ;;9002226.02101,"881,60505268401 ",.02)
 ;;60505268401
 ;;9002226.02101,"881,60505268408 ",.01)
 ;;60505268408
 ;;9002226.02101,"881,60505268408 ",.02)
 ;;60505268408
 ;;9002226.02101,"881,60505268409 ",.01)
 ;;60505268409
 ;;9002226.02101,"881,60505268409 ",.02)
 ;;60505268409
 ;;9002226.02101,"881,60505268501 ",.01)
 ;;60505268501
 ;;9002226.02101,"881,60505268501 ",.02)
 ;;60505268501
 ;;9002226.02101,"881,60505268508 ",.01)
 ;;60505268508
 ;;9002226.02101,"881,60505268508 ",.02)
 ;;60505268508
 ;;9002226.02101,"881,60505268509 ",.01)
 ;;60505268509
 ;;9002226.02101,"881,60505268509 ",.02)
 ;;60505268509
 ;;9002226.02101,"881,60505268601 ",.01)
 ;;60505268601
 ;;9002226.02101,"881,60505268601 ",.02)
 ;;60505268601
 ;;9002226.02101,"881,60505268608 ",.01)
 ;;60505268608
 ;;9002226.02101,"881,60505268608 ",.02)
 ;;60505268608
 ;;9002226.02101,"881,60505268609 ",.01)
 ;;60505268609
 ;;9002226.02101,"881,60505268609 ",.02)
 ;;60505268609
 ;;9002226.02101,"881,60505268801 ",.01)
 ;;60505268801
 ;;9002226.02101,"881,60505268801 ",.02)
 ;;60505268801
 ;;9002226.02101,"881,60505268808 ",.01)
 ;;60505268808
 ;;9002226.02101,"881,60505268808 ",.02)
 ;;60505268808
 ;;9002226.02101,"881,60505268809 ",.01)
 ;;60505268809
 ;;9002226.02101,"881,60505268809 ",.02)
 ;;60505268809
 ;;9002226.02101,"881,60505268901 ",.01)
 ;;60505268901
 ;;9002226.02101,"881,60505268901 ",.02)
 ;;60505268901
 ;;9002226.02101,"881,60505269001 ",.01)
 ;;60505269001
 ;;9002226.02101,"881,60505269001 ",.02)
 ;;60505269001
 ;;9002226.02101,"881,60505269101 ",.01)
 ;;60505269101
 ;;9002226.02101,"881,60505269101 ",.02)
 ;;60505269101
 ;;9002226.02101,"881,60505287501 ",.01)
 ;;60505287501
 ;;9002226.02101,"881,60505287501 ",.02)
 ;;60505287501
 ;;9002226.02101,"881,60505287503 ",.01)
 ;;60505287503
 ;;9002226.02101,"881,60505287503 ",.02)
 ;;60505287503
 ;;9002226.02101,"881,60505287505 ",.01)
 ;;60505287505
 ;;9002226.02101,"881,60505287505 ",.02)
 ;;60505287505
 ;;9002226.02101,"881,60505287508 ",.01)
 ;;60505287508
 ;;9002226.02101,"881,60505287508 ",.02)
 ;;60505287508
 ;;9002226.02101,"881,60505287600 ",.01)
 ;;60505287600
 ;;9002226.02101,"881,60505287600 ",.02)
 ;;60505287600
 ;;9002226.02101,"881,60505287601 ",.01)
 ;;60505287601
 ;;9002226.02101,"881,60505287601 ",.02)
 ;;60505287601
 ;;9002226.02101,"881,60505287603 ",.01)
 ;;60505287603
 ;;9002226.02101,"881,60505287603 ",.02)
 ;;60505287603
 ;;9002226.02101,"881,60505287605 ",.01)
 ;;60505287605
 ;;9002226.02101,"881,60505287605 ",.02)
 ;;60505287605
 ;;9002226.02101,"881,60505287608 ",.01)
 ;;60505287608
 ;;9002226.02101,"881,60505287608 ",.02)
 ;;60505287608
 ;;9002226.02101,"881,60505287700 ",.01)
 ;;60505287700
 ;;9002226.02101,"881,60505287700 ",.02)
 ;;60505287700
 ;;9002226.02101,"881,60505287701 ",.01)
 ;;60505287701
 ;;9002226.02101,"881,60505287701 ",.02)
 ;;60505287701
 ;;9002226.02101,"881,60505287703 ",.01)
 ;;60505287703
 ;;9002226.02101,"881,60505287703 ",.02)
 ;;60505287703
 ;;9002226.02101,"881,60505287705 ",.01)
 ;;60505287705
 ;;9002226.02101,"881,60505287705 ",.02)
 ;;60505287705
 ;;9002226.02101,"881,60505287708 ",.01)
 ;;60505287708
 ;;9002226.02101,"881,60505287708 ",.02)
 ;;60505287708
 ;;9002226.02101,"881,60505287800 ",.01)
 ;;60505287800
 ;;9002226.02101,"881,60505287800 ",.02)
 ;;60505287800
 ;;9002226.02101,"881,60505287801 ",.01)
 ;;60505287801
 ;;9002226.02101,"881,60505287801 ",.02)
 ;;60505287801
 ;;9002226.02101,"881,60505287803 ",.01)
 ;;60505287803
 ;;9002226.02101,"881,60505287803 ",.02)
 ;;60505287803
 ;;9002226.02101,"881,60505287805 ",.01)
 ;;60505287805
 ;;9002226.02101,"881,60505287805 ",.02)
 ;;60505287805
 ;;9002226.02101,"881,60505287808 ",.01)
 ;;60505287808
 ;;9002226.02101,"881,60505287808 ",.02)
 ;;60505287808
 ;;9002226.02101,"881,60763101100 ",.01)
 ;;60763101100
 ;;9002226.02101,"881,60763101100 ",.02)
 ;;60763101100
 ;;9002226.02101,"881,60763101102 ",.01)
 ;;60763101102
 ;;9002226.02101,"881,60763101102 ",.02)
 ;;60763101102
 ;;9002226.02101,"881,60763101200 ",.01)
 ;;60763101200
 ;;9002226.02101,"881,60763101200 ",.02)
 ;;60763101200
 ;;9002226.02101,"881,60763101202 ",.01)
 ;;60763101202
 ;;9002226.02101,"881,60763101202 ",.02)
 ;;60763101202
 ;;9002226.02101,"881,60763101300 ",.01)
 ;;60763101300
 ;;9002226.02101,"881,60763101300 ",.02)
 ;;60763101300
 ;;9002226.02101,"881,60763101302 ",.01)
 ;;60763101302
 ;;9002226.02101,"881,60763101302 ",.02)
 ;;60763101302
 ;;9002226.02101,"881,60763101400 ",.01)
 ;;60763101400
 ;;9002226.02101,"881,60763101400 ",.02)
 ;;60763101400
 ;;9002226.02101,"881,60951072170 ",.01)
 ;;60951072170
 ;;9002226.02101,"881,60951072170 ",.02)
 ;;60951072170
 ;;9002226.02101,"881,60951072270 ",.01)
 ;;60951072270
 ;;9002226.02101,"881,60951072270 ",.02)
 ;;60951072270
 ;;9002226.02101,"881,60951072470 ",.01)
 ;;60951072470
 ;;9002226.02101,"881,60951072470 ",.02)
 ;;60951072470
 ;;9002226.02101,"881,60951072770 ",.01)
 ;;60951072770
 ;;9002226.02101,"881,60951072770 ",.02)
 ;;60951072770
 ;;9002226.02101,"881,60951073170 ",.01)
 ;;60951073170
 ;;9002226.02101,"881,60951073170 ",.02)
 ;;60951073170
 ;;9002226.02101,"881,60951073370 ",.01)
 ;;60951073370
 ;;9002226.02101,"881,60951073370 ",.02)
 ;;60951073370
 ;;9002226.02101,"881,60951073970 ",.01)
 ;;60951073970
 ;;9002226.02101,"881,60951073970 ",.02)
 ;;60951073970
 ;;9002226.02101,"881,60951074170 ",.01)
 ;;60951074170
 ;;9002226.02101,"881,60951074170 ",.02)
 ;;60951074170
 ;;9002226.02101,"881,61392045425 ",.01)
 ;;61392045425
 ;;9002226.02101,"881,61392045425 ",.02)
 ;;61392045425
 ;;9002226.02101,"881,61392045430 ",.01)
 ;;61392045430
 ;;9002226.02101,"881,61392045430 ",.02)
 ;;61392045430
 ;;9002226.02101,"881,61392045431 ",.01)
 ;;61392045431
 ;;9002226.02101,"881,61392045431 ",.02)
 ;;61392045431
 ;;9002226.02101,"881,61392045439 ",.01)
 ;;61392045439
 ;;9002226.02101,"881,61392045439 ",.02)
 ;;61392045439
 ;;9002226.02101,"881,61392047425 ",.01)
 ;;61392047425
 ;;9002226.02101,"881,61392047425 ",.02)
 ;;61392047425
 ;;9002226.02101,"881,61392047430 ",.01)
 ;;61392047430
 ;;9002226.02101,"881,61392047430 ",.02)
 ;;61392047430
 ;;9002226.02101,"881,61392047431 ",.01)
 ;;61392047431
 ;;9002226.02101,"881,61392047431 ",.02)
 ;;61392047431
 ;;9002226.02101,"881,61392047439 ",.01)
 ;;61392047439
 ;;9002226.02101,"881,61392047439 ",.02)
 ;;61392047439
 ;;9002226.02101,"881,61392060425 ",.01)
 ;;61392060425
 ;;9002226.02101,"881,61392060425 ",.02)
 ;;61392060425
 ;;9002226.02101,"881,61392060430 ",.01)
 ;;61392060430
 ;;9002226.02101,"881,61392060430 ",.02)
 ;;61392060430