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