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