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

BGPM5BFZ.m

Go to the documentation of this file.
BGPM5BFZ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 12, 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,"1084,67544075660 ",.02)
 ;;67544075660
 ;;9002226.02101,"1084,67544075680 ",.01)
 ;;67544075680
 ;;9002226.02101,"1084,67544075680 ",.02)
 ;;67544075680
 ;;9002226.02101,"1084,67544076432 ",.01)
 ;;67544076432
 ;;9002226.02101,"1084,67544076432 ",.02)
 ;;67544076432
 ;;9002226.02101,"1084,67544076460 ",.01)
 ;;67544076460
 ;;9002226.02101,"1084,67544076460 ",.02)
 ;;67544076460
 ;;9002226.02101,"1084,67544080860 ",.01)
 ;;67544080860
 ;;9002226.02101,"1084,67544080860 ",.02)
 ;;67544080860
 ;;9002226.02101,"1084,67544087532 ",.01)
 ;;67544087532
 ;;9002226.02101,"1084,67544087532 ",.02)
 ;;67544087532
 ;;9002226.02101,"1084,67544087560 ",.01)
 ;;67544087560
 ;;9002226.02101,"1084,67544087560 ",.02)
 ;;67544087560
 ;;9002226.02101,"1084,67544087580 ",.01)
 ;;67544087580
 ;;9002226.02101,"1084,67544087580 ",.02)
 ;;67544087580
 ;;9002226.02101,"1084,67544092732 ",.01)
 ;;67544092732
 ;;9002226.02101,"1084,67544092732 ",.02)
 ;;67544092732
 ;;9002226.02101,"1084,67544092760 ",.01)
 ;;67544092760
 ;;9002226.02101,"1084,67544092760 ",.02)
 ;;67544092760
 ;;9002226.02101,"1084,67544092780 ",.01)
 ;;67544092780
 ;;9002226.02101,"1084,67544092780 ",.02)
 ;;67544092780
 ;;9002226.02101,"1084,67651002300 ",.01)
 ;;67651002300
 ;;9002226.02101,"1084,67651002300 ",.02)
 ;;67651002300
 ;;9002226.02101,"1084,67651002301 ",.01)
 ;;67651002301
 ;;9002226.02101,"1084,67651002301 ",.02)
 ;;67651002301
 ;;9002226.02101,"1084,67651002400 ",.01)
 ;;67651002400
 ;;9002226.02101,"1084,67651002400 ",.02)
 ;;67651002400
 ;;9002226.02101,"1084,67651002401 ",.01)
 ;;67651002401
 ;;9002226.02101,"1084,67651002401 ",.02)
 ;;67651002401
 ;;9002226.02101,"1084,67651004803 ",.01)
 ;;67651004803
 ;;9002226.02101,"1084,67651004803 ",.02)
 ;;67651004803
 ;;9002226.02101,"1084,67651032005 ",.01)
 ;;67651032005
 ;;9002226.02101,"1084,67651032005 ",.02)
 ;;67651032005
 ;;9002226.02101,"1084,67651032100 ",.01)
 ;;67651032100
 ;;9002226.02101,"1084,67651032100 ",.02)
 ;;67651032100
 ;;9002226.02101,"1084,67651032200 ",.01)
 ;;67651032200
 ;;9002226.02101,"1084,67651032200 ",.02)
 ;;67651032200
 ;;9002226.02101,"1084,67651032207 ",.01)
 ;;67651032207
 ;;9002226.02101,"1084,67651032207 ",.02)
 ;;67651032207
 ;;9002226.02101,"1084,67767011501 ",.01)
 ;;67767011501
 ;;9002226.02101,"1084,67767011501 ",.02)
 ;;67767011501
 ;;9002226.02101,"1084,67787020301 ",.01)
 ;;67787020301
 ;;9002226.02101,"1084,67787020301 ",.02)
 ;;67787020301
 ;;9002226.02101,"1084,67787020401 ",.01)
 ;;67787020401
 ;;9002226.02101,"1084,67787020401 ",.02)
 ;;67787020401
 ;;9002226.02101,"1084,67787020501 ",.01)
 ;;67787020501
 ;;9002226.02101,"1084,67787020501 ",.02)
 ;;67787020501
 ;;9002226.02101,"1084,67877021701 ",.01)
 ;;67877021701
 ;;9002226.02101,"1084,67877021701 ",.02)
 ;;67877021701
 ;;9002226.02101,"1084,67877021705 ",.01)
 ;;67877021705
 ;;9002226.02101,"1084,67877021705 ",.02)
 ;;67877021705
 ;;9002226.02101,"1084,67877021801 ",.01)
 ;;67877021801
 ;;9002226.02101,"1084,67877021801 ",.02)
 ;;67877021801
 ;;9002226.02101,"1084,67877022101 ",.01)
 ;;67877022101
 ;;9002226.02101,"1084,67877022101 ",.02)
 ;;67877022101
 ;;9002226.02101,"1084,68071000830 ",.01)
 ;;68071000830
 ;;9002226.02101,"1084,68071000830 ",.02)
 ;;68071000830
 ;;9002226.02101,"1084,68071000860 ",.01)
 ;;68071000860
 ;;9002226.02101,"1084,68071000860 ",.02)
 ;;68071000860
 ;;9002226.02101,"1084,68071001730 ",.01)
 ;;68071001730
 ;;9002226.02101,"1084,68071001730 ",.02)
 ;;68071001730
 ;;9002226.02101,"1084,68071002805 ",.01)
 ;;68071002805
 ;;9002226.02101,"1084,68071002805 ",.02)
 ;;68071002805
 ;;9002226.02101,"1084,68071002830 ",.01)
 ;;68071002830
 ;;9002226.02101,"1084,68071002830 ",.02)
 ;;68071002830
 ;;9002226.02101,"1084,68071002860 ",.01)
 ;;68071002860
 ;;9002226.02101,"1084,68071002860 ",.02)
 ;;68071002860
 ;;9002226.02101,"1084,68071009430 ",.01)
 ;;68071009430
 ;;9002226.02101,"1084,68071009430 ",.02)
 ;;68071009430
 ;;9002226.02101,"1084,68071010730 ",.01)
 ;;68071010730
 ;;9002226.02101,"1084,68071010730 ",.02)
 ;;68071010730
 ;;9002226.02101,"1084,68071016530 ",.01)
 ;;68071016530
 ;;9002226.02101,"1084,68071016530 ",.02)
 ;;68071016530
 ;;9002226.02101,"1084,68071038830 ",.01)
 ;;68071038830
 ;;9002226.02101,"1084,68071038830 ",.02)
 ;;68071038830
 ;;9002226.02101,"1084,68071038860 ",.01)
 ;;68071038860
 ;;9002226.02101,"1084,68071038860 ",.02)
 ;;68071038860
 ;;9002226.02101,"1084,68071043412 ",.01)
 ;;68071043412
 ;;9002226.02101,"1084,68071043412 ",.02)
 ;;68071043412
 ;;9002226.02101,"1084,68071043506 ",.01)
 ;;68071043506
 ;;9002226.02101,"1084,68071043506 ",.02)
 ;;68071043506
 ;;9002226.02101,"1084,68071048830 ",.01)
 ;;68071048830
 ;;9002226.02101,"1084,68071048830 ",.02)
 ;;68071048830
 ;;9002226.02101,"1084,68071050190 ",.01)
 ;;68071050190
 ;;9002226.02101,"1084,68071050190 ",.02)
 ;;68071050190
 ;;9002226.02101,"1084,68071074190 ",.01)
 ;;68071074190
 ;;9002226.02101,"1084,68071074190 ",.02)
 ;;68071074190
 ;;9002226.02101,"1084,68084007201 ",.01)
 ;;68084007201
 ;;9002226.02101,"1084,68084007201 ",.02)
 ;;68084007201
 ;;9002226.02101,"1084,68084007211 ",.01)
 ;;68084007211
 ;;9002226.02101,"1084,68084007211 ",.02)
 ;;68084007211
 ;;9002226.02101,"1084,68084011101 ",.01)
 ;;68084011101
 ;;9002226.02101,"1084,68084011101 ",.02)
 ;;68084011101
 ;;9002226.02101,"1084,68084011111 ",.01)
 ;;68084011111
 ;;9002226.02101,"1084,68084011111 ",.02)
 ;;68084011111
 ;;9002226.02101,"1084,68084011201 ",.01)
 ;;68084011201
 ;;9002226.02101,"1084,68084011201 ",.02)
 ;;68084011201
 ;;9002226.02101,"1084,68084011211 ",.01)
 ;;68084011211
 ;;9002226.02101,"1084,68084011211 ",.02)
 ;;68084011211
 ;;9002226.02101,"1084,68084013601 ",.01)
 ;;68084013601
 ;;9002226.02101,"1084,68084013601 ",.02)
 ;;68084013601
 ;;9002226.02101,"1084,68084013701 ",.01)
 ;;68084013701
 ;;9002226.02101,"1084,68084013701 ",.02)
 ;;68084013701
 ;;9002226.02101,"1084,68084013801 ",.01)
 ;;68084013801
 ;;9002226.02101,"1084,68084013801 ",.02)
 ;;68084013801
 ;;9002226.02101,"1084,68084029511 ",.01)
 ;;68084029511
 ;;9002226.02101,"1084,68084029511 ",.02)
 ;;68084029511
 ;;9002226.02101,"1084,68084029521 ",.01)
 ;;68084029521
 ;;9002226.02101,"1084,68084029521 ",.02)
 ;;68084029521
 ;;9002226.02101,"1084,68084032601 ",.01)
 ;;68084032601
 ;;9002226.02101,"1084,68084032601 ",.02)
 ;;68084032601
 ;;9002226.02101,"1084,68084032611 ",.01)
 ;;68084032611
 ;;9002226.02101,"1084,68084032611 ",.02)
 ;;68084032611
 ;;9002226.02101,"1084,68084032701 ",.01)
 ;;68084032701
 ;;9002226.02101,"1084,68084032701 ",.02)
 ;;68084032701
 ;;9002226.02101,"1084,68084032711 ",.01)
 ;;68084032711
 ;;9002226.02101,"1084,68084032711 ",.02)
 ;;68084032711
 ;;9002226.02101,"1084,68084045811 ",.01)
 ;;68084045811
 ;;9002226.02101,"1084,68084045811 ",.02)
 ;;68084045811
 ;;9002226.02101,"1084,68084045821 ",.01)
 ;;68084045821
 ;;9002226.02101,"1084,68084045821 ",.02)
 ;;68084045821
 ;;9002226.02101,"1084,68084045911 ",.01)
 ;;68084045911
 ;;9002226.02101,"1084,68084045911 ",.02)
 ;;68084045911
 ;;9002226.02101,"1084,68084045921 ",.01)
 ;;68084045921
 ;;9002226.02101,"1084,68084045921 ",.02)
 ;;68084045921
 ;;9002226.02101,"1084,68115015490 ",.01)
 ;;68115015490
 ;;9002226.02101,"1084,68115015490 ",.02)
 ;;68115015490
 ;;9002226.02101,"1084,68115016090 ",.01)
 ;;68115016090
 ;;9002226.02101,"1084,68115016090 ",.02)
 ;;68115016090
 ;;9002226.02101,"1084,68115016190 ",.01)
 ;;68115016190
 ;;9002226.02101,"1084,68115016190 ",.02)
 ;;68115016190
 ;;9002226.02101,"1084,68115023100 ",.01)
 ;;68115023100
 ;;9002226.02101,"1084,68115023100 ",.02)
 ;;68115023100
 ;;9002226.02101,"1084,68382002701 ",.01)
 ;;68382002701
 ;;9002226.02101,"1084,68382002701 ",.02)
 ;;68382002701
 ;;9002226.02101,"1084,68382002705 ",.01)
 ;;68382002705
 ;;9002226.02101,"1084,68382002705 ",.02)
 ;;68382002705
 ;;9002226.02101,"1084,68382002801 ",.01)
 ;;68382002801
 ;;9002226.02101,"1084,68382002801 ",.02)
 ;;68382002801
 ;;9002226.02101,"1084,68382002805 ",.01)
 ;;68382002805
 ;;9002226.02101,"1084,68382002805 ",.02)
 ;;68382002805
 ;;9002226.02101,"1084,68382002810 ",.01)
 ;;68382002810
 ;;9002226.02101,"1084,68382002810 ",.02)
 ;;68382002810
 ;;9002226.02101,"1084,68382002816 ",.01)
 ;;68382002816
 ;;9002226.02101,"1084,68382002816 ",.02)
 ;;68382002816
 ;;9002226.02101,"1084,68382002830 ",.01)
 ;;68382002830
 ;;9002226.02101,"1084,68382002830 ",.02)
 ;;68382002830
 ;;9002226.02101,"1084,68382002861 ",.01)
 ;;68382002861
 ;;9002226.02101,"1084,68382002861 ",.02)
 ;;68382002861
 ;;9002226.02101,"1084,68382002901 ",.01)
 ;;68382002901
 ;;9002226.02101,"1084,68382002901 ",.02)
 ;;68382002901
 ;;9002226.02101,"1084,68382002905 ",.01)
 ;;68382002905
 ;;9002226.02101,"1084,68382002905 ",.02)
 ;;68382002905
 ;;9002226.02101,"1084,68382002910 ",.01)
 ;;68382002910
 ;;9002226.02101,"1084,68382002910 ",.02)
 ;;68382002910
 ;;9002226.02101,"1084,68382002916 ",.01)
 ;;68382002916
 ;;9002226.02101,"1084,68382002916 ",.02)
 ;;68382002916
 ;;9002226.02101,"1084,68382002930 ",.01)
 ;;68382002930
 ;;9002226.02101,"1084,68382002930 ",.02)
 ;;68382002930
 ;;9002226.02101,"1084,68382002961 ",.01)
 ;;68382002961
 ;;9002226.02101,"1084,68382002961 ",.02)
 ;;68382002961
 ;;9002226.02101,"1084,68382003001 ",.01)
 ;;68382003001
 ;;9002226.02101,"1084,68382003001 ",.02)
 ;;68382003001
 ;;9002226.02101,"1084,68382003005 ",.01)
 ;;68382003005
 ;;9002226.02101,"1084,68382003005 ",.02)
 ;;68382003005
 ;;9002226.02101,"1084,68382003010 ",.01)
 ;;68382003010
 ;;9002226.02101,"1084,68382003010 ",.02)
 ;;68382003010
 ;;9002226.02101,"1084,68382003016 ",.01)
 ;;68382003016
 ;;9002226.02101,"1084,68382003016 ",.02)
 ;;68382003016
 ;;9002226.02101,"1084,68382003030 ",.01)
 ;;68382003030
 ;;9002226.02101,"1084,68382003030 ",.02)
 ;;68382003030
 ;;9002226.02101,"1084,68382003061 ",.01)
 ;;68382003061
 ;;9002226.02101,"1084,68382003061 ",.02)
 ;;68382003061
 ;;9002226.02101,"1084,68382003901 ",.01)
 ;;68382003901
 ;;9002226.02101,"1084,68382003901 ",.02)
 ;;68382003901
 ;;9002226.02101,"1084,68382003905 ",.01)
 ;;68382003905
 ;;9002226.02101,"1084,68382003905 ",.02)
 ;;68382003905
 ;;9002226.02101,"1084,68462015901 ",.01)
 ;;68462015901
 ;;9002226.02101,"1084,68462015901 ",.02)
 ;;68462015901
 ;;9002226.02101,"1084,68462015905 ",.01)
 ;;68462015905
 ;;9002226.02101,"1084,68462015905 ",.02)
 ;;68462015905
 ;;9002226.02101,"1084,68462015910 ",.01)
 ;;68462015910
 ;;9002226.02101,"1084,68462015910 ",.02)
 ;;68462015910
 ;;9002226.02101,"1084,68462015918 ",.01)
 ;;68462015918
 ;;9002226.02101,"1084,68462015918 ",.02)
 ;;68462015918
 ;;9002226.02101,"1084,68462015990 ",.01)
 ;;68462015990
 ;;9002226.02101,"1084,68462015990 ",.02)
 ;;68462015990
 ;;9002226.02101,"1084,68462016001 ",.01)
 ;;68462016001
 ;;9002226.02101,"1084,68462016001 ",.02)
 ;;68462016001
 ;;9002226.02101,"1084,68462016005 ",.01)
 ;;68462016005
 ;;9002226.02101,"1084,68462016005 ",.02)
 ;;68462016005
 ;;9002226.02101,"1084,68462016010 ",.01)
 ;;68462016010
 ;;9002226.02101,"1084,68462016010 ",.02)
 ;;68462016010
 ;;9002226.02101,"1084,68462016018 ",.01)
 ;;68462016018
 ;;9002226.02101,"1084,68462016018 ",.02)
 ;;68462016018
 ;;9002226.02101,"1084,68462016090 ",.01)
 ;;68462016090
 ;;9002226.02101,"1084,68462016090 ",.02)
 ;;68462016090
 ;;9002226.02101,"1084,68462016101 ",.01)
 ;;68462016101
 ;;9002226.02101,"1084,68462016101 ",.02)
 ;;68462016101
 ;;9002226.02101,"1084,68462016105 ",.01)
 ;;68462016105
 ;;9002226.02101,"1084,68462016105 ",.02)
 ;;68462016105