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

BGPM5ADH.m

Go to the documentation of this file.
BGPM5ADH ;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,"846,67253046110 ",.02)
 ;;67253046110
 ;;9002226.02101,"846,67253046111 ",.01)
 ;;67253046111
 ;;9002226.02101,"846,67253046111 ",.02)
 ;;67253046111
 ;;9002226.02101,"846,67253046150 ",.01)
 ;;67253046150
 ;;9002226.02101,"846,67253046150 ",.02)
 ;;67253046150
 ;;9002226.02101,"846,67253046210 ",.01)
 ;;67253046210
 ;;9002226.02101,"846,67253046210 ",.02)
 ;;67253046210
 ;;9002226.02101,"846,67253046211 ",.01)
 ;;67253046211
 ;;9002226.02101,"846,67253046211 ",.02)
 ;;67253046211
 ;;9002226.02101,"846,67253046250 ",.01)
 ;;67253046250
 ;;9002226.02101,"846,67253046250 ",.02)
 ;;67253046250
 ;;9002226.02101,"846,67263019301 ",.01)
 ;;67263019301
 ;;9002226.02101,"846,67263019301 ",.02)
 ;;67263019301
 ;;9002226.02101,"846,67544009732 ",.01)
 ;;67544009732
 ;;9002226.02101,"846,67544009732 ",.02)
 ;;67544009732
 ;;9002226.02101,"846,67544009753 ",.01)
 ;;67544009753
 ;;9002226.02101,"846,67544009753 ",.02)
 ;;67544009753
 ;;9002226.02101,"846,67544009760 ",.01)
 ;;67544009760
 ;;9002226.02101,"846,67544009760 ",.02)
 ;;67544009760
 ;;9002226.02101,"846,67544009770 ",.01)
 ;;67544009770
 ;;9002226.02101,"846,67544009770 ",.02)
 ;;67544009770
 ;;9002226.02101,"846,67544009780 ",.01)
 ;;67544009780
 ;;9002226.02101,"846,67544009780 ",.02)
 ;;67544009780
 ;;9002226.02101,"846,67544009794 ",.01)
 ;;67544009794
 ;;9002226.02101,"846,67544009794 ",.02)
 ;;67544009794
 ;;9002226.02101,"846,67544012930 ",.01)
 ;;67544012930
 ;;9002226.02101,"846,67544012930 ",.02)
 ;;67544012930
 ;;9002226.02101,"846,67544012953 ",.01)
 ;;67544012953
 ;;9002226.02101,"846,67544012953 ",.02)
 ;;67544012953
 ;;9002226.02101,"846,67544012970 ",.01)
 ;;67544012970
 ;;9002226.02101,"846,67544012970 ",.02)
 ;;67544012970
 ;;9002226.02101,"846,67544012980 ",.01)
 ;;67544012980
 ;;9002226.02101,"846,67544012980 ",.02)
 ;;67544012980
 ;;9002226.02101,"846,67544012994 ",.01)
 ;;67544012994
 ;;9002226.02101,"846,67544012994 ",.02)
 ;;67544012994
 ;;9002226.02101,"846,67544030232 ",.01)
 ;;67544030232
 ;;9002226.02101,"846,67544030232 ",.02)
 ;;67544030232
 ;;9002226.02101,"846,67544030260 ",.01)
 ;;67544030260
 ;;9002226.02101,"846,67544030260 ",.02)
 ;;67544030260
 ;;9002226.02101,"846,67544030280 ",.01)
 ;;67544030280
 ;;9002226.02101,"846,67544030280 ",.02)
 ;;67544030280
 ;;9002226.02101,"846,67544036470 ",.01)
 ;;67544036470
 ;;9002226.02101,"846,67544036470 ",.02)
 ;;67544036470
 ;;9002226.02101,"846,67544041770 ",.01)
 ;;67544041770
 ;;9002226.02101,"846,67544041770 ",.02)
 ;;67544041770
 ;;9002226.02101,"846,67544051130 ",.01)
 ;;67544051130
 ;;9002226.02101,"846,67544051130 ",.02)
 ;;67544051130
 ;;9002226.02101,"846,67544051170 ",.01)
 ;;67544051170
 ;;9002226.02101,"846,67544051170 ",.02)
 ;;67544051170
 ;;9002226.02101,"846,67544051194 ",.01)
 ;;67544051194
 ;;9002226.02101,"846,67544051194 ",.02)
 ;;67544051194
 ;;9002226.02101,"846,67544054882 ",.01)
 ;;67544054882
 ;;9002226.02101,"846,67544054882 ",.02)
 ;;67544054882
 ;;9002226.02101,"846,67544056631 ",.01)
 ;;67544056631
 ;;9002226.02101,"846,67544056631 ",.02)
 ;;67544056631
 ;;9002226.02101,"846,67544056632 ",.01)
 ;;67544056632
 ;;9002226.02101,"846,67544056632 ",.02)
 ;;67544056632
 ;;9002226.02101,"846,67544056653 ",.01)
 ;;67544056653
 ;;9002226.02101,"846,67544056653 ",.02)
 ;;67544056653
 ;;9002226.02101,"846,67544056660 ",.01)
 ;;67544056660
 ;;9002226.02101,"846,67544056660 ",.02)
 ;;67544056660
 ;;9002226.02101,"846,67544056670 ",.01)
 ;;67544056670
 ;;9002226.02101,"846,67544056670 ",.02)
 ;;67544056670
 ;;9002226.02101,"846,67544056680 ",.01)
 ;;67544056680
 ;;9002226.02101,"846,67544056680 ",.02)
 ;;67544056680
 ;;9002226.02101,"846,67544056690 ",.01)
 ;;67544056690
 ;;9002226.02101,"846,67544056690 ",.02)
 ;;67544056690
 ;;9002226.02101,"846,67544056692 ",.01)
 ;;67544056692
 ;;9002226.02101,"846,67544056692 ",.02)
 ;;67544056692
 ;;9002226.02101,"846,67544056694 ",.01)
 ;;67544056694
 ;;9002226.02101,"846,67544056694 ",.02)
 ;;67544056694
 ;;9002226.02101,"846,67544061353 ",.01)
 ;;67544061353
 ;;9002226.02101,"846,67544061353 ",.02)
 ;;67544061353
 ;;9002226.02101,"846,67544061360 ",.01)
 ;;67544061360
 ;;9002226.02101,"846,67544061360 ",.02)
 ;;67544061360
 ;;9002226.02101,"846,67544061370 ",.01)
 ;;67544061370
 ;;9002226.02101,"846,67544061370 ",.02)
 ;;67544061370
 ;;9002226.02101,"846,67544061380 ",.01)
 ;;67544061380
 ;;9002226.02101,"846,67544061380 ",.02)
 ;;67544061380
 ;;9002226.02101,"846,67544061390 ",.01)
 ;;67544061390
 ;;9002226.02101,"846,67544061390 ",.02)
 ;;67544061390
 ;;9002226.02101,"846,67544061392 ",.01)
 ;;67544061392
 ;;9002226.02101,"846,67544061392 ",.02)
 ;;67544061392
 ;;9002226.02101,"846,67544061394 ",.01)
 ;;67544061394
 ;;9002226.02101,"846,67544061394 ",.02)
 ;;67544061394
 ;;9002226.02101,"846,67544064332 ",.01)
 ;;67544064332
 ;;9002226.02101,"846,67544064332 ",.02)
 ;;67544064332
 ;;9002226.02101,"846,67544064360 ",.01)
 ;;67544064360
 ;;9002226.02101,"846,67544064360 ",.02)
 ;;67544064360
 ;;9002226.02101,"846,67544064380 ",.01)
 ;;67544064380
 ;;9002226.02101,"846,67544064380 ",.02)
 ;;67544064380
 ;;9002226.02101,"846,67544064392 ",.01)
 ;;67544064392
 ;;9002226.02101,"846,67544064392 ",.02)
 ;;67544064392
 ;;9002226.02101,"846,67544064394 ",.01)
 ;;67544064394
 ;;9002226.02101,"846,67544064394 ",.02)
 ;;67544064394
 ;;9002226.02101,"846,67544065353 ",.01)
 ;;67544065353
 ;;9002226.02101,"846,67544065353 ",.02)
 ;;67544065353
 ;;9002226.02101,"846,67544065360 ",.01)
 ;;67544065360
 ;;9002226.02101,"846,67544065360 ",.02)
 ;;67544065360
 ;;9002226.02101,"846,67544065370 ",.01)
 ;;67544065370
 ;;9002226.02101,"846,67544065370 ",.02)
 ;;67544065370
 ;;9002226.02101,"846,67544065380 ",.01)
 ;;67544065380
 ;;9002226.02101,"846,67544065380 ",.02)
 ;;67544065380
 ;;9002226.02101,"846,67544065390 ",.01)
 ;;67544065390
 ;;9002226.02101,"846,67544065390 ",.02)
 ;;67544065390
 ;;9002226.02101,"846,67544065392 ",.01)
 ;;67544065392
 ;;9002226.02101,"846,67544065392 ",.02)
 ;;67544065392
 ;;9002226.02101,"846,67544065394 ",.01)
 ;;67544065394
 ;;9002226.02101,"846,67544065394 ",.02)
 ;;67544065394
 ;;9002226.02101,"846,67544065398 ",.01)
 ;;67544065398
 ;;9002226.02101,"846,67544065398 ",.02)
 ;;67544065398
 ;;9002226.02101,"846,67544066141 ",.01)
 ;;67544066141
 ;;9002226.02101,"846,67544066141 ",.02)
 ;;67544066141
 ;;9002226.02101,"846,67544066181 ",.01)
 ;;67544066181
 ;;9002226.02101,"846,67544066181 ",.02)
 ;;67544066181
 ;;9002226.02101,"846,67544069031 ",.01)
 ;;67544069031
 ;;9002226.02101,"846,67544069031 ",.02)
 ;;67544069031
 ;;9002226.02101,"846,67544075153 ",.01)
 ;;67544075153
 ;;9002226.02101,"846,67544075153 ",.02)
 ;;67544075153
 ;;9002226.02101,"846,67544075160 ",.01)
 ;;67544075160
 ;;9002226.02101,"846,67544075160 ",.02)
 ;;67544075160
 ;;9002226.02101,"846,67544075180 ",.01)
 ;;67544075180
 ;;9002226.02101,"846,67544075180 ",.02)
 ;;67544075180
 ;;9002226.02101,"846,67544075645 ",.01)
 ;;67544075645
 ;;9002226.02101,"846,67544075645 ",.02)
 ;;67544075645
 ;;9002226.02101,"846,67544075660 ",.01)
 ;;67544075660
 ;;9002226.02101,"846,67544075660 ",.02)
 ;;67544075660
 ;;9002226.02101,"846,67544075680 ",.01)
 ;;67544075680
 ;;9002226.02101,"846,67544075680 ",.02)
 ;;67544075680
 ;;9002226.02101,"846,67544076432 ",.01)
 ;;67544076432
 ;;9002226.02101,"846,67544076432 ",.02)
 ;;67544076432
 ;;9002226.02101,"846,67544076460 ",.01)
 ;;67544076460
 ;;9002226.02101,"846,67544076460 ",.02)
 ;;67544076460
 ;;9002226.02101,"846,67544080860 ",.01)
 ;;67544080860
 ;;9002226.02101,"846,67544080860 ",.02)
 ;;67544080860
 ;;9002226.02101,"846,67544087532 ",.01)
 ;;67544087532
 ;;9002226.02101,"846,67544087532 ",.02)
 ;;67544087532
 ;;9002226.02101,"846,67544087560 ",.01)
 ;;67544087560
 ;;9002226.02101,"846,67544087560 ",.02)
 ;;67544087560
 ;;9002226.02101,"846,67544087580 ",.01)
 ;;67544087580
 ;;9002226.02101,"846,67544087580 ",.02)
 ;;67544087580
 ;;9002226.02101,"846,67544092732 ",.01)
 ;;67544092732
 ;;9002226.02101,"846,67544092732 ",.02)
 ;;67544092732
 ;;9002226.02101,"846,67544092760 ",.01)
 ;;67544092760
 ;;9002226.02101,"846,67544092760 ",.02)
 ;;67544092760
 ;;9002226.02101,"846,67544092780 ",.01)
 ;;67544092780
 ;;9002226.02101,"846,67544092780 ",.02)
 ;;67544092780
 ;;9002226.02101,"846,67651002300 ",.01)
 ;;67651002300
 ;;9002226.02101,"846,67651002300 ",.02)
 ;;67651002300
 ;;9002226.02101,"846,67651002301 ",.01)
 ;;67651002301
 ;;9002226.02101,"846,67651002301 ",.02)
 ;;67651002301
 ;;9002226.02101,"846,67651002400 ",.01)
 ;;67651002400
 ;;9002226.02101,"846,67651002400 ",.02)
 ;;67651002400
 ;;9002226.02101,"846,67651002401 ",.01)
 ;;67651002401
 ;;9002226.02101,"846,67651002401 ",.02)
 ;;67651002401
 ;;9002226.02101,"846,67651004803 ",.01)
 ;;67651004803
 ;;9002226.02101,"846,67651004803 ",.02)
 ;;67651004803
 ;;9002226.02101,"846,67651032005 ",.01)
 ;;67651032005
 ;;9002226.02101,"846,67651032005 ",.02)
 ;;67651032005
 ;;9002226.02101,"846,67651032100 ",.01)
 ;;67651032100
 ;;9002226.02101,"846,67651032100 ",.02)
 ;;67651032100
 ;;9002226.02101,"846,67651032200 ",.01)
 ;;67651032200
 ;;9002226.02101,"846,67651032200 ",.02)
 ;;67651032200
 ;;9002226.02101,"846,67651032207 ",.01)
 ;;67651032207
 ;;9002226.02101,"846,67651032207 ",.02)
 ;;67651032207
 ;;9002226.02101,"846,67787020301 ",.01)
 ;;67787020301
 ;;9002226.02101,"846,67787020301 ",.02)
 ;;67787020301
 ;;9002226.02101,"846,67787020401 ",.01)
 ;;67787020401
 ;;9002226.02101,"846,67787020401 ",.02)
 ;;67787020401
 ;;9002226.02101,"846,67787020501 ",.01)
 ;;67787020501
 ;;9002226.02101,"846,67787020501 ",.02)
 ;;67787020501
 ;;9002226.02101,"846,68071000830 ",.01)
 ;;68071000830
 ;;9002226.02101,"846,68071000830 ",.02)
 ;;68071000830
 ;;9002226.02101,"846,68071000860 ",.01)
 ;;68071000860
 ;;9002226.02101,"846,68071000860 ",.02)
 ;;68071000860
 ;;9002226.02101,"846,68071001730 ",.01)
 ;;68071001730
 ;;9002226.02101,"846,68071001730 ",.02)
 ;;68071001730
 ;;9002226.02101,"846,68071002805 ",.01)
 ;;68071002805
 ;;9002226.02101,"846,68071002805 ",.02)
 ;;68071002805
 ;;9002226.02101,"846,68071002830 ",.01)
 ;;68071002830
 ;;9002226.02101,"846,68071002830 ",.02)
 ;;68071002830
 ;;9002226.02101,"846,68071002860 ",.01)
 ;;68071002860
 ;;9002226.02101,"846,68071002860 ",.02)
 ;;68071002860
 ;;9002226.02101,"846,68071009430 ",.01)
 ;;68071009430
 ;;9002226.02101,"846,68071009430 ",.02)
 ;;68071009430
 ;;9002226.02101,"846,68071016530 ",.01)
 ;;68071016530
 ;;9002226.02101,"846,68071016530 ",.02)
 ;;68071016530
 ;;9002226.02101,"846,68071038830 ",.01)
 ;;68071038830
 ;;9002226.02101,"846,68071038830 ",.02)
 ;;68071038830
 ;;9002226.02101,"846,68071038860 ",.01)
 ;;68071038860
 ;;9002226.02101,"846,68071038860 ",.02)
 ;;68071038860
 ;;9002226.02101,"846,68071043506 ",.01)
 ;;68071043506
 ;;9002226.02101,"846,68071043506 ",.02)
 ;;68071043506
 ;;9002226.02101,"846,68071074190 ",.01)
 ;;68071074190
 ;;9002226.02101,"846,68071074190 ",.02)
 ;;68071074190
 ;;9002226.02101,"846,68084011101 ",.01)
 ;;68084011101
 ;;9002226.02101,"846,68084011101 ",.02)
 ;;68084011101
 ;;9002226.02101,"846,68084011111 ",.01)
 ;;68084011111
 ;;9002226.02101,"846,68084011111 ",.02)
 ;;68084011111
 ;;9002226.02101,"846,68084011201 ",.01)
 ;;68084011201
 ;;9002226.02101,"846,68084011201 ",.02)
 ;;68084011201
 ;;9002226.02101,"846,68084011211 ",.01)
 ;;68084011211
 ;;9002226.02101,"846,68084011211 ",.02)
 ;;68084011211
 ;;9002226.02101,"846,68084013601 ",.01)
 ;;68084013601