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

BGPM5BCZ.m

Go to the documentation of this file.
BGPM5BCZ ;IHS/MSC/SAT-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,"1044,58016007302 ",.02)
 ;;58016007302
 ;;9002226.02101,"1044,58016007303 ",.01)
 ;;58016007303
 ;;9002226.02101,"1044,58016007303 ",.02)
 ;;58016007303
 ;;9002226.02101,"1044,58016007304 ",.01)
 ;;58016007304
 ;;9002226.02101,"1044,58016007304 ",.02)
 ;;58016007304
 ;;9002226.02101,"1044,58016007305 ",.01)
 ;;58016007305
 ;;9002226.02101,"1044,58016007305 ",.02)
 ;;58016007305
 ;;9002226.02101,"1044,58016007330 ",.01)
 ;;58016007330
 ;;9002226.02101,"1044,58016007330 ",.02)
 ;;58016007330
 ;;9002226.02101,"1044,58016007360 ",.01)
 ;;58016007360
 ;;9002226.02101,"1044,58016007360 ",.02)
 ;;58016007360
 ;;9002226.02101,"1044,58016007390 ",.01)
 ;;58016007390
 ;;9002226.02101,"1044,58016007390 ",.02)
 ;;58016007390
 ;;9002226.02101,"1044,58016011330 ",.01)
 ;;58016011330
 ;;9002226.02101,"1044,58016011330 ",.02)
 ;;58016011330
 ;;9002226.02101,"1044,58016017800 ",.01)
 ;;58016017800
 ;;9002226.02101,"1044,58016017800 ",.02)
 ;;58016017800
 ;;9002226.02101,"1044,58016017801 ",.01)
 ;;58016017801
 ;;9002226.02101,"1044,58016017801 ",.02)
 ;;58016017801
 ;;9002226.02101,"1044,58016017802 ",.01)
 ;;58016017802
 ;;9002226.02101,"1044,58016017802 ",.02)
 ;;58016017802
 ;;9002226.02101,"1044,58016017803 ",.01)
 ;;58016017803
 ;;9002226.02101,"1044,58016017803 ",.02)
 ;;58016017803
 ;;9002226.02101,"1044,58016017804 ",.01)
 ;;58016017804
 ;;9002226.02101,"1044,58016017804 ",.02)
 ;;58016017804
 ;;9002226.02101,"1044,58016017805 ",.01)
 ;;58016017805
 ;;9002226.02101,"1044,58016017805 ",.02)
 ;;58016017805
 ;;9002226.02101,"1044,58016017806 ",.01)
 ;;58016017806
 ;;9002226.02101,"1044,58016017806 ",.02)
 ;;58016017806
 ;;9002226.02101,"1044,58016017807 ",.01)
 ;;58016017807
 ;;9002226.02101,"1044,58016017807 ",.02)
 ;;58016017807
 ;;9002226.02101,"1044,58016017808 ",.01)
 ;;58016017808
 ;;9002226.02101,"1044,58016017808 ",.02)
 ;;58016017808
 ;;9002226.02101,"1044,58016017809 ",.01)
 ;;58016017809
 ;;9002226.02101,"1044,58016017809 ",.02)
 ;;58016017809
 ;;9002226.02101,"1044,58016017810 ",.01)
 ;;58016017810
 ;;9002226.02101,"1044,58016017810 ",.02)
 ;;58016017810
 ;;9002226.02101,"1044,58016017812 ",.01)
 ;;58016017812
 ;;9002226.02101,"1044,58016017812 ",.02)
 ;;58016017812
 ;;9002226.02101,"1044,58016017814 ",.01)
 ;;58016017814
 ;;9002226.02101,"1044,58016017814 ",.02)
 ;;58016017814
 ;;9002226.02101,"1044,58016017815 ",.01)
 ;;58016017815
 ;;9002226.02101,"1044,58016017815 ",.02)
 ;;58016017815
 ;;9002226.02101,"1044,58016017816 ",.01)
 ;;58016017816
 ;;9002226.02101,"1044,58016017816 ",.02)
 ;;58016017816
 ;;9002226.02101,"1044,58016017818 ",.01)
 ;;58016017818
 ;;9002226.02101,"1044,58016017818 ",.02)
 ;;58016017818
 ;;9002226.02101,"1044,58016017820 ",.01)
 ;;58016017820
 ;;9002226.02101,"1044,58016017820 ",.02)
 ;;58016017820
 ;;9002226.02101,"1044,58016017821 ",.01)
 ;;58016017821
 ;;9002226.02101,"1044,58016017821 ",.02)
 ;;58016017821
 ;;9002226.02101,"1044,58016017824 ",.01)
 ;;58016017824
 ;;9002226.02101,"1044,58016017824 ",.02)
 ;;58016017824
 ;;9002226.02101,"1044,58016017825 ",.01)
 ;;58016017825
 ;;9002226.02101,"1044,58016017825 ",.02)
 ;;58016017825
 ;;9002226.02101,"1044,58016017826 ",.01)
 ;;58016017826
 ;;9002226.02101,"1044,58016017826 ",.02)
 ;;58016017826
 ;;9002226.02101,"1044,58016017827 ",.01)
 ;;58016017827
 ;;9002226.02101,"1044,58016017827 ",.02)
 ;;58016017827
 ;;9002226.02101,"1044,58016017828 ",.01)
 ;;58016017828
 ;;9002226.02101,"1044,58016017828 ",.02)
 ;;58016017828
 ;;9002226.02101,"1044,58016017830 ",.01)
 ;;58016017830
 ;;9002226.02101,"1044,58016017830 ",.02)
 ;;58016017830
 ;;9002226.02101,"1044,58016017832 ",.01)
 ;;58016017832
 ;;9002226.02101,"1044,58016017832 ",.02)
 ;;58016017832
 ;;9002226.02101,"1044,58016017835 ",.01)
 ;;58016017835
 ;;9002226.02101,"1044,58016017835 ",.02)
 ;;58016017835
 ;;9002226.02101,"1044,58016017836 ",.01)
 ;;58016017836
 ;;9002226.02101,"1044,58016017836 ",.02)
 ;;58016017836
 ;;9002226.02101,"1044,58016017840 ",.01)
 ;;58016017840
 ;;9002226.02101,"1044,58016017840 ",.02)
 ;;58016017840
 ;;9002226.02101,"1044,58016017842 ",.01)
 ;;58016017842
 ;;9002226.02101,"1044,58016017842 ",.02)
 ;;58016017842
 ;;9002226.02101,"1044,58016017844 ",.01)
 ;;58016017844
 ;;9002226.02101,"1044,58016017844 ",.02)
 ;;58016017844
 ;;9002226.02101,"1044,58016017845 ",.01)
 ;;58016017845
 ;;9002226.02101,"1044,58016017845 ",.02)
 ;;58016017845
 ;;9002226.02101,"1044,58016017848 ",.01)
 ;;58016017848
 ;;9002226.02101,"1044,58016017848 ",.02)
 ;;58016017848
 ;;9002226.02101,"1044,58016017850 ",.01)
 ;;58016017850
 ;;9002226.02101,"1044,58016017850 ",.02)
 ;;58016017850
 ;;9002226.02101,"1044,58016017856 ",.01)
 ;;58016017856
 ;;9002226.02101,"1044,58016017856 ",.02)
 ;;58016017856
 ;;9002226.02101,"1044,58016017860 ",.01)
 ;;58016017860
 ;;9002226.02101,"1044,58016017860 ",.02)
 ;;58016017860
 ;;9002226.02101,"1044,58016017867 ",.01)
 ;;58016017867
 ;;9002226.02101,"1044,58016017867 ",.02)
 ;;58016017867
 ;;9002226.02101,"1044,58016017869 ",.01)
 ;;58016017869
 ;;9002226.02101,"1044,58016017869 ",.02)
 ;;58016017869
 ;;9002226.02101,"1044,58016017870 ",.01)
 ;;58016017870
 ;;9002226.02101,"1044,58016017870 ",.02)
 ;;58016017870
 ;;9002226.02101,"1044,58016017871 ",.01)
 ;;58016017871
 ;;9002226.02101,"1044,58016017871 ",.02)
 ;;58016017871
 ;;9002226.02101,"1044,58016017872 ",.01)
 ;;58016017872
 ;;9002226.02101,"1044,58016017872 ",.02)
 ;;58016017872
 ;;9002226.02101,"1044,58016017873 ",.01)
 ;;58016017873
 ;;9002226.02101,"1044,58016017873 ",.02)
 ;;58016017873
 ;;9002226.02101,"1044,58016017875 ",.01)
 ;;58016017875
 ;;9002226.02101,"1044,58016017875 ",.02)
 ;;58016017875
 ;;9002226.02101,"1044,58016017876 ",.01)
 ;;58016017876
 ;;9002226.02101,"1044,58016017876 ",.02)
 ;;58016017876
 ;;9002226.02101,"1044,58016017877 ",.01)
 ;;58016017877
 ;;9002226.02101,"1044,58016017877 ",.02)
 ;;58016017877
 ;;9002226.02101,"1044,58016017879 ",.01)
 ;;58016017879
 ;;9002226.02101,"1044,58016017879 ",.02)
 ;;58016017879
 ;;9002226.02101,"1044,58016017880 ",.01)
 ;;58016017880
 ;;9002226.02101,"1044,58016017880 ",.02)
 ;;58016017880
 ;;9002226.02101,"1044,58016017881 ",.01)
 ;;58016017881
 ;;9002226.02101,"1044,58016017881 ",.02)
 ;;58016017881
 ;;9002226.02101,"1044,58016017882 ",.01)
 ;;58016017882
 ;;9002226.02101,"1044,58016017882 ",.02)
 ;;58016017882
 ;;9002226.02101,"1044,58016017883 ",.01)
 ;;58016017883
 ;;9002226.02101,"1044,58016017883 ",.02)
 ;;58016017883
 ;;9002226.02101,"1044,58016017884 ",.01)
 ;;58016017884
 ;;9002226.02101,"1044,58016017884 ",.02)
 ;;58016017884
 ;;9002226.02101,"1044,58016017887 ",.01)
 ;;58016017887
 ;;9002226.02101,"1044,58016017887 ",.02)
 ;;58016017887
 ;;9002226.02101,"1044,58016017889 ",.01)
 ;;58016017889
 ;;9002226.02101,"1044,58016017889 ",.02)
 ;;58016017889
 ;;9002226.02101,"1044,58016017890 ",.01)
 ;;58016017890
 ;;9002226.02101,"1044,58016017890 ",.02)
 ;;58016017890
 ;;9002226.02101,"1044,58016017891 ",.01)
 ;;58016017891
 ;;9002226.02101,"1044,58016017891 ",.02)
 ;;58016017891
 ;;9002226.02101,"1044,58016017892 ",.01)
 ;;58016017892
 ;;9002226.02101,"1044,58016017892 ",.02)
 ;;58016017892
 ;;9002226.02101,"1044,58016017893 ",.01)
 ;;58016017893
 ;;9002226.02101,"1044,58016017893 ",.02)
 ;;58016017893
 ;;9002226.02101,"1044,58016017896 ",.01)
 ;;58016017896
 ;;9002226.02101,"1044,58016017896 ",.02)
 ;;58016017896
 ;;9002226.02101,"1044,58016017897 ",.01)
 ;;58016017897
 ;;9002226.02101,"1044,58016017897 ",.02)
 ;;58016017897
 ;;9002226.02101,"1044,58016017898 ",.01)
 ;;58016017898
 ;;9002226.02101,"1044,58016017898 ",.02)
 ;;58016017898
 ;;9002226.02101,"1044,58016017899 ",.01)
 ;;58016017899
 ;;9002226.02101,"1044,58016017899 ",.02)
 ;;58016017899
 ;;9002226.02101,"1044,58016022400 ",.01)
 ;;58016022400
 ;;9002226.02101,"1044,58016022400 ",.02)
 ;;58016022400
 ;;9002226.02101,"1044,58016022401 ",.01)
 ;;58016022401
 ;;9002226.02101,"1044,58016022401 ",.02)
 ;;58016022401
 ;;9002226.02101,"1044,58016022402 ",.01)
 ;;58016022402
 ;;9002226.02101,"1044,58016022402 ",.02)
 ;;58016022402
 ;;9002226.02101,"1044,58016022403 ",.01)
 ;;58016022403
 ;;9002226.02101,"1044,58016022403 ",.02)
 ;;58016022403
 ;;9002226.02101,"1044,58016022404 ",.01)
 ;;58016022404
 ;;9002226.02101,"1044,58016022404 ",.02)
 ;;58016022404
 ;;9002226.02101,"1044,58016022405 ",.01)
 ;;58016022405
 ;;9002226.02101,"1044,58016022405 ",.02)
 ;;58016022405
 ;;9002226.02101,"1044,58016022406 ",.01)
 ;;58016022406
 ;;9002226.02101,"1044,58016022406 ",.02)
 ;;58016022406
 ;;9002226.02101,"1044,58016022407 ",.01)
 ;;58016022407
 ;;9002226.02101,"1044,58016022407 ",.02)
 ;;58016022407
 ;;9002226.02101,"1044,58016022408 ",.01)
 ;;58016022408
 ;;9002226.02101,"1044,58016022408 ",.02)
 ;;58016022408
 ;;9002226.02101,"1044,58016022409 ",.01)
 ;;58016022409
 ;;9002226.02101,"1044,58016022409 ",.02)
 ;;58016022409
 ;;9002226.02101,"1044,58016022410 ",.01)
 ;;58016022410
 ;;9002226.02101,"1044,58016022410 ",.02)
 ;;58016022410
 ;;9002226.02101,"1044,58016022412 ",.01)
 ;;58016022412
 ;;9002226.02101,"1044,58016022412 ",.02)
 ;;58016022412
 ;;9002226.02101,"1044,58016022414 ",.01)
 ;;58016022414
 ;;9002226.02101,"1044,58016022414 ",.02)
 ;;58016022414
 ;;9002226.02101,"1044,58016022415 ",.01)
 ;;58016022415
 ;;9002226.02101,"1044,58016022415 ",.02)
 ;;58016022415
 ;;9002226.02101,"1044,58016022416 ",.01)
 ;;58016022416
 ;;9002226.02101,"1044,58016022416 ",.02)
 ;;58016022416
 ;;9002226.02101,"1044,58016022418 ",.01)
 ;;58016022418
 ;;9002226.02101,"1044,58016022418 ",.02)
 ;;58016022418
 ;;9002226.02101,"1044,58016022420 ",.01)
 ;;58016022420
 ;;9002226.02101,"1044,58016022420 ",.02)
 ;;58016022420
 ;;9002226.02101,"1044,58016022421 ",.01)
 ;;58016022421
 ;;9002226.02101,"1044,58016022421 ",.02)
 ;;58016022421
 ;;9002226.02101,"1044,58016022424 ",.01)
 ;;58016022424
 ;;9002226.02101,"1044,58016022424 ",.02)
 ;;58016022424
 ;;9002226.02101,"1044,58016022425 ",.01)
 ;;58016022425
 ;;9002226.02101,"1044,58016022425 ",.02)
 ;;58016022425
 ;;9002226.02101,"1044,58016022426 ",.01)
 ;;58016022426
 ;;9002226.02101,"1044,58016022426 ",.02)
 ;;58016022426
 ;;9002226.02101,"1044,58016022427 ",.01)
 ;;58016022427
 ;;9002226.02101,"1044,58016022427 ",.02)
 ;;58016022427
 ;;9002226.02101,"1044,58016022428 ",.01)
 ;;58016022428
 ;;9002226.02101,"1044,58016022428 ",.02)
 ;;58016022428
 ;;9002226.02101,"1044,58016022430 ",.01)
 ;;58016022430
 ;;9002226.02101,"1044,58016022430 ",.02)
 ;;58016022430
 ;;9002226.02101,"1044,58016022432 ",.01)
 ;;58016022432
 ;;9002226.02101,"1044,58016022432 ",.02)
 ;;58016022432
 ;;9002226.02101,"1044,58016022435 ",.01)
 ;;58016022435
 ;;9002226.02101,"1044,58016022435 ",.02)
 ;;58016022435
 ;;9002226.02101,"1044,58016022436 ",.01)
 ;;58016022436
 ;;9002226.02101,"1044,58016022436 ",.02)
 ;;58016022436
 ;;9002226.02101,"1044,58016022440 ",.01)
 ;;58016022440
 ;;9002226.02101,"1044,58016022440 ",.02)
 ;;58016022440
 ;;9002226.02101,"1044,58016022442 ",.01)
 ;;58016022442
 ;;9002226.02101,"1044,58016022442 ",.02)
 ;;58016022442
 ;;9002226.02101,"1044,58016022444 ",.01)
 ;;58016022444
 ;;9002226.02101,"1044,58016022444 ",.02)
 ;;58016022444
 ;;9002226.02101,"1044,58016022445 ",.01)
 ;;58016022445
 ;;9002226.02101,"1044,58016022445 ",.02)
 ;;58016022445
 ;;9002226.02101,"1044,58016022448 ",.01)
 ;;58016022448
 ;;9002226.02101,"1044,58016022448 ",.02)
 ;;58016022448
 ;;9002226.02101,"1044,58016022450 ",.01)
 ;;58016022450
 ;;9002226.02101,"1044,58016022450 ",.02)
 ;;58016022450