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

BGPM5BCB.m

Go to the documentation of this file.
  1. BGPM5BCB ;IHS/MSC/SAT-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,"1044,31722021305 ",.02)
  1. ;;31722021305
  1. ;;9002226.02101,"1044,31722021330 ",.01)
  1. ;;31722021330
  1. ;;9002226.02101,"1044,31722021330 ",.02)
  1. ;;31722021330
  1. ;;9002226.02101,"1044,31722021390 ",.01)
  1. ;;31722021390
  1. ;;9002226.02101,"1044,31722021390 ",.02)
  1. ;;31722021390
  1. ;;9002226.02101,"1044,31722021405 ",.01)
  1. ;;31722021405
  1. ;;9002226.02101,"1044,31722021405 ",.02)
  1. ;;31722021405
  1. ;;9002226.02101,"1044,31722021430 ",.01)
  1. ;;31722021430
  1. ;;9002226.02101,"1044,31722021430 ",.02)
  1. ;;31722021430
  1. ;;9002226.02101,"1044,31722021490 ",.01)
  1. ;;31722021490
  1. ;;9002226.02101,"1044,31722021490 ",.02)
  1. ;;31722021490
  1. ;;9002226.02101,"1044,33261000714 ",.01)
  1. ;;33261000714
  1. ;;9002226.02101,"1044,33261000714 ",.02)
  1. ;;33261000714
  1. ;;9002226.02101,"1044,33261000720 ",.01)
  1. ;;33261000720
  1. ;;9002226.02101,"1044,33261000720 ",.02)
  1. ;;33261000720
  1. ;;9002226.02101,"1044,33261000721 ",.01)
  1. ;;33261000721
  1. ;;9002226.02101,"1044,33261000721 ",.02)
  1. ;;33261000721
  1. ;;9002226.02101,"1044,33261000728 ",.01)
  1. ;;33261000728
  1. ;;9002226.02101,"1044,33261000728 ",.02)
  1. ;;33261000728
  1. ;;9002226.02101,"1044,33261000730 ",.01)
  1. ;;33261000730
  1. ;;9002226.02101,"1044,33261000730 ",.02)
  1. ;;33261000730
  1. ;;9002226.02101,"1044,33261000760 ",.01)
  1. ;;33261000760
  1. ;;9002226.02101,"1044,33261000760 ",.02)
  1. ;;33261000760
  1. ;;9002226.02101,"1044,33261000790 ",.01)
  1. ;;33261000790
  1. ;;9002226.02101,"1044,33261000790 ",.02)
  1. ;;33261000790
  1. ;;9002226.02101,"1044,33261002607 ",.01)
  1. ;;33261002607
  1. ;;9002226.02101,"1044,33261002607 ",.02)
  1. ;;33261002607
  1. ;;9002226.02101,"1044,33261002614 ",.01)
  1. ;;33261002614
  1. ;;9002226.02101,"1044,33261002614 ",.02)
  1. ;;33261002614
  1. ;;9002226.02101,"1044,33261002620 ",.01)
  1. ;;33261002620
  1. ;;9002226.02101,"1044,33261002620 ",.02)
  1. ;;33261002620
  1. ;;9002226.02101,"1044,33261002621 ",.01)
  1. ;;33261002621
  1. ;;9002226.02101,"1044,33261002621 ",.02)
  1. ;;33261002621
  1. ;;9002226.02101,"1044,33261002628 ",.01)
  1. ;;33261002628
  1. ;;9002226.02101,"1044,33261002628 ",.02)
  1. ;;33261002628
  1. ;;9002226.02101,"1044,33261002630 ",.01)
  1. ;;33261002630
  1. ;;9002226.02101,"1044,33261002630 ",.02)
  1. ;;33261002630
  1. ;;9002226.02101,"1044,33261002660 ",.01)
  1. ;;33261002660
  1. ;;9002226.02101,"1044,33261002660 ",.02)
  1. ;;33261002660
  1. ;;9002226.02101,"1044,33261002690 ",.01)
  1. ;;33261002690
  1. ;;9002226.02101,"1044,33261002690 ",.02)
  1. ;;33261002690
  1. ;;9002226.02101,"1044,33261002700 ",.01)
  1. ;;33261002700
  1. ;;9002226.02101,"1044,33261002700 ",.02)
  1. ;;33261002700
  1. ;;9002226.02101,"1044,33261002702 ",.01)
  1. ;;33261002702
  1. ;;9002226.02101,"1044,33261002702 ",.02)
  1. ;;33261002702
  1. ;;9002226.02101,"1044,33261002705 ",.01)
  1. ;;33261002705
  1. ;;9002226.02101,"1044,33261002705 ",.02)
  1. ;;33261002705
  1. ;;9002226.02101,"1044,33261002710 ",.01)
  1. ;;33261002710
  1. ;;9002226.02101,"1044,33261002710 ",.02)
  1. ;;33261002710
  1. ;;9002226.02101,"1044,33261002711 ",.01)
  1. ;;33261002711
  1. ;;9002226.02101,"1044,33261002711 ",.02)
  1. ;;33261002711
  1. ;;9002226.02101,"1044,33261002712 ",.01)
  1. ;;33261002712
  1. ;;9002226.02101,"1044,33261002712 ",.02)
  1. ;;33261002712
  1. ;;9002226.02101,"1044,33261002714 ",.01)
  1. ;;33261002714
  1. ;;9002226.02101,"1044,33261002714 ",.02)
  1. ;;33261002714
  1. ;;9002226.02101,"1044,33261002720 ",.01)
  1. ;;33261002720
  1. ;;9002226.02101,"1044,33261002720 ",.02)
  1. ;;33261002720
  1. ;;9002226.02101,"1044,33261002721 ",.01)
  1. ;;33261002721
  1. ;;9002226.02101,"1044,33261002721 ",.02)
  1. ;;33261002721
  1. ;;9002226.02101,"1044,33261002728 ",.01)
  1. ;;33261002728
  1. ;;9002226.02101,"1044,33261002728 ",.02)
  1. ;;33261002728
  1. ;;9002226.02101,"1044,33261002730 ",.01)
  1. ;;33261002730
  1. ;;9002226.02101,"1044,33261002730 ",.02)
  1. ;;33261002730
  1. ;;9002226.02101,"1044,33261002736 ",.01)
  1. ;;33261002736
  1. ;;9002226.02101,"1044,33261002736 ",.02)
  1. ;;33261002736
  1. ;;9002226.02101,"1044,33261002760 ",.01)
  1. ;;33261002760
  1. ;;9002226.02101,"1044,33261002760 ",.02)
  1. ;;33261002760
  1. ;;9002226.02101,"1044,33261002790 ",.01)
  1. ;;33261002790
  1. ;;9002226.02101,"1044,33261002790 ",.02)
  1. ;;33261002790
  1. ;;9002226.02101,"1044,33261002814 ",.01)
  1. ;;33261002814
  1. ;;9002226.02101,"1044,33261002814 ",.02)
  1. ;;33261002814
  1. ;;9002226.02101,"1044,33261002830 ",.01)
  1. ;;33261002830
  1. ;;9002226.02101,"1044,33261002830 ",.02)
  1. ;;33261002830
  1. ;;9002226.02101,"1044,33261002860 ",.01)
  1. ;;33261002860
  1. ;;9002226.02101,"1044,33261002860 ",.02)
  1. ;;33261002860
  1. ;;9002226.02101,"1044,33261002890 ",.01)
  1. ;;33261002890
  1. ;;9002226.02101,"1044,33261002890 ",.02)
  1. ;;33261002890
  1. ;;9002226.02101,"1044,33261004500 ",.01)
  1. ;;33261004500
  1. ;;9002226.02101,"1044,33261004500 ",.02)
  1. ;;33261004500
  1. ;;9002226.02101,"1044,33261004502 ",.01)
  1. ;;33261004502
  1. ;;9002226.02101,"1044,33261004502 ",.02)
  1. ;;33261004502
  1. ;;9002226.02101,"1044,33261004503 ",.01)
  1. ;;33261004503
  1. ;;9002226.02101,"1044,33261004503 ",.02)
  1. ;;33261004503
  1. ;;9002226.02101,"1044,33261004507 ",.01)
  1. ;;33261004507
  1. ;;9002226.02101,"1044,33261004507 ",.02)
  1. ;;33261004507
  1. ;;9002226.02101,"1044,33261004514 ",.01)
  1. ;;33261004514
  1. ;;9002226.02101,"1044,33261004514 ",.02)
  1. ;;33261004514
  1. ;;9002226.02101,"1044,33261004520 ",.01)
  1. ;;33261004520
  1. ;;9002226.02101,"1044,33261004520 ",.02)
  1. ;;33261004520
  1. ;;9002226.02101,"1044,33261004521 ",.01)
  1. ;;33261004521
  1. ;;9002226.02101,"1044,33261004521 ",.02)
  1. ;;33261004521
  1. ;;9002226.02101,"1044,33261004528 ",.01)
  1. ;;33261004528
  1. ;;9002226.02101,"1044,33261004528 ",.02)
  1. ;;33261004528
  1. ;;9002226.02101,"1044,33261004530 ",.01)
  1. ;;33261004530
  1. ;;9002226.02101,"1044,33261004530 ",.02)
  1. ;;33261004530
  1. ;;9002226.02101,"1044,33261004540 ",.01)
  1. ;;33261004540
  1. ;;9002226.02101,"1044,33261004540 ",.02)
  1. ;;33261004540
  1. ;;9002226.02101,"1044,33261004560 ",.01)
  1. ;;33261004560
  1. ;;9002226.02101,"1044,33261004560 ",.02)
  1. ;;33261004560
  1. ;;9002226.02101,"1044,33261004590 ",.01)
  1. ;;33261004590
  1. ;;9002226.02101,"1044,33261004590 ",.02)
  1. ;;33261004590
  1. ;;9002226.02101,"1044,33261007307 ",.01)
  1. ;;33261007307
  1. ;;9002226.02101,"1044,33261007307 ",.02)
  1. ;;33261007307
  1. ;;9002226.02101,"1044,33261007314 ",.01)
  1. ;;33261007314
  1. ;;9002226.02101,"1044,33261007314 ",.02)
  1. ;;33261007314
  1. ;;9002226.02101,"1044,33261007320 ",.01)
  1. ;;33261007320
  1. ;;9002226.02101,"1044,33261007320 ",.02)
  1. ;;33261007320
  1. ;;9002226.02101,"1044,33261007321 ",.01)
  1. ;;33261007321
  1. ;;9002226.02101,"1044,33261007321 ",.02)
  1. ;;33261007321
  1. ;;9002226.02101,"1044,33261007328 ",.01)
  1. ;;33261007328
  1. ;;9002226.02101,"1044,33261007328 ",.02)
  1. ;;33261007328
  1. ;;9002226.02101,"1044,33261007330 ",.01)
  1. ;;33261007330
  1. ;;9002226.02101,"1044,33261007330 ",.02)
  1. ;;33261007330
  1. ;;9002226.02101,"1044,33261007360 ",.01)
  1. ;;33261007360
  1. ;;9002226.02101,"1044,33261007360 ",.02)
  1. ;;33261007360
  1. ;;9002226.02101,"1044,33261007390 ",.01)
  1. ;;33261007390
  1. ;;9002226.02101,"1044,33261007390 ",.02)
  1. ;;33261007390
  1. ;;9002226.02101,"1044,33261007407 ",.01)
  1. ;;33261007407
  1. ;;9002226.02101,"1044,33261007407 ",.02)
  1. ;;33261007407
  1. ;;9002226.02101,"1044,33261007410 ",.01)
  1. ;;33261007410
  1. ;;9002226.02101,"1044,33261007410 ",.02)
  1. ;;33261007410
  1. ;;9002226.02101,"1044,33261007414 ",.01)
  1. ;;33261007414
  1. ;;9002226.02101,"1044,33261007414 ",.02)
  1. ;;33261007414
  1. ;;9002226.02101,"1044,33261007420 ",.01)
  1. ;;33261007420
  1. ;;9002226.02101,"1044,33261007420 ",.02)
  1. ;;33261007420
  1. ;;9002226.02101,"1044,33261007430 ",.01)
  1. ;;33261007430
  1. ;;9002226.02101,"1044,33261007430 ",.02)
  1. ;;33261007430
  1. ;;9002226.02101,"1044,33261007440 ",.01)
  1. ;;33261007440
  1. ;;9002226.02101,"1044,33261007440 ",.02)
  1. ;;33261007440
  1. ;;9002226.02101,"1044,33261007460 ",.01)
  1. ;;33261007460
  1. ;;9002226.02101,"1044,33261007460 ",.02)
  1. ;;33261007460
  1. ;;9002226.02101,"1044,33261009001 ",.01)
  1. ;;33261009001
  1. ;;9002226.02101,"1044,33261009001 ",.02)
  1. ;;33261009001
  1. ;;9002226.02101,"1044,33261009002 ",.01)
  1. ;;33261009002
  1. ;;9002226.02101,"1044,33261009002 ",.02)
  1. ;;33261009002
  1. ;;9002226.02101,"1044,33261009007 ",.01)
  1. ;;33261009007
  1. ;;9002226.02101,"1044,33261009007 ",.02)
  1. ;;33261009007
  1. ;;9002226.02101,"1044,33261009010 ",.01)
  1. ;;33261009010
  1. ;;9002226.02101,"1044,33261009010 ",.02)
  1. ;;33261009010
  1. ;;9002226.02101,"1044,33261009014 ",.01)
  1. ;;33261009014
  1. ;;9002226.02101,"1044,33261009014 ",.02)
  1. ;;33261009014
  1. ;;9002226.02101,"1044,33261009020 ",.01)
  1. ;;33261009020
  1. ;;9002226.02101,"1044,33261009020 ",.02)
  1. ;;33261009020
  1. ;;9002226.02101,"1044,33261009021 ",.01)
  1. ;;33261009021
  1. ;;9002226.02101,"1044,33261009021 ",.02)
  1. ;;33261009021
  1. ;;9002226.02101,"1044,33261009028 ",.01)
  1. ;;33261009028
  1. ;;9002226.02101,"1044,33261009028 ",.02)
  1. ;;33261009028
  1. ;;9002226.02101,"1044,33261009030 ",.01)
  1. ;;33261009030
  1. ;;9002226.02101,"1044,33261009030 ",.02)
  1. ;;33261009030
  1. ;;9002226.02101,"1044,33261009036 ",.01)
  1. ;;33261009036
  1. ;;9002226.02101,"1044,33261009036 ",.02)
  1. ;;33261009036
  1. ;;9002226.02101,"1044,33261009060 ",.01)
  1. ;;33261009060
  1. ;;9002226.02101,"1044,33261009060 ",.02)
  1. ;;33261009060
  1. ;;9002226.02101,"1044,33261009090 ",.01)
  1. ;;33261009090
  1. ;;9002226.02101,"1044,33261009090 ",.02)
  1. ;;33261009090
  1. ;;9002226.02101,"1044,33261009110 ",.01)
  1. ;;33261009110
  1. ;;9002226.02101,"1044,33261009110 ",.02)
  1. ;;33261009110
  1. ;;9002226.02101,"1044,33261009114 ",.01)
  1. ;;33261009114
  1. ;;9002226.02101,"1044,33261009114 ",.02)
  1. ;;33261009114
  1. ;;9002226.02101,"1044,33261009121 ",.01)
  1. ;;33261009121
  1. ;;9002226.02101,"1044,33261009121 ",.02)
  1. ;;33261009121
  1. ;;9002226.02101,"1044,33261009128 ",.01)
  1. ;;33261009128
  1. ;;9002226.02101,"1044,33261009128 ",.02)
  1. ;;33261009128
  1. ;;9002226.02101,"1044,33261009130 ",.01)
  1. ;;33261009130
  1. ;;9002226.02101,"1044,33261009130 ",.02)
  1. ;;33261009130
  1. ;;9002226.02101,"1044,33261009140 ",.01)
  1. ;;33261009140
  1. ;;9002226.02101,"1044,33261009140 ",.02)
  1. ;;33261009140
  1. ;;9002226.02101,"1044,33261009160 ",.01)
  1. ;;33261009160
  1. ;;9002226.02101,"1044,33261009160 ",.02)
  1. ;;33261009160
  1. ;;9002226.02101,"1044,33261009190 ",.01)
  1. ;;33261009190
  1. ;;9002226.02101,"1044,33261009190 ",.02)
  1. ;;33261009190
  1. ;;9002226.02101,"1044,33261009307 ",.01)
  1. ;;33261009307
  1. ;;9002226.02101,"1044,33261009307 ",.02)
  1. ;;33261009307
  1. ;;9002226.02101,"1044,33261009314 ",.01)
  1. ;;33261009314
  1. ;;9002226.02101,"1044,33261009314 ",.02)
  1. ;;33261009314
  1. ;;9002226.02101,"1044,33261009320 ",.01)
  1. ;;33261009320
  1. ;;9002226.02101,"1044,33261009320 ",.02)
  1. ;;33261009320
  1. ;;9002226.02101,"1044,33261009321 ",.01)
  1. ;;33261009321
  1. ;;9002226.02101,"1044,33261009321 ",.02)
  1. ;;33261009321
  1. ;;9002226.02101,"1044,33261009328 ",.01)
  1. ;;33261009328
  1. ;;9002226.02101,"1044,33261009328 ",.02)
  1. ;;33261009328
  1. ;;9002226.02101,"1044,33261009330 ",.01)
  1. ;;33261009330
  1. ;;9002226.02101,"1044,33261009330 ",.02)
  1. ;;33261009330
  1. ;;9002226.02101,"1044,33261009340 ",.01)
  1. ;;33261009340
  1. ;;9002226.02101,"1044,33261009340 ",.02)
  1. ;;33261009340
  1. ;;9002226.02101,"1044,33261009360 ",.01)
  1. ;;33261009360
  1. ;;9002226.02101,"1044,33261009360 ",.02)
  1. ;;33261009360
  1. ;;9002226.02101,"1044,33261010714 ",.01)
  1. ;;33261010714
  1. ;;9002226.02101,"1044,33261010714 ",.02)
  1. ;;33261010714
  1. ;;9002226.02101,"1044,33261010720 ",.01)
  1. ;;33261010720
  1. ;;9002226.02101,"1044,33261010720 ",.02)
  1. ;;33261010720
  1. ;;9002226.02101,"1044,33261010721 ",.01)
  1. ;;33261010721
  1. ;;9002226.02101,"1044,33261010721 ",.02)
  1. ;;33261010721
  1. ;;9002226.02101,"1044,33261010728 ",.01)
  1. ;;33261010728
  1. ;;9002226.02101,"1044,33261010728 ",.02)
  1. ;;33261010728
  1. ;;9002226.02101,"1044,33261010730 ",.01)
  1. ;;33261010730
  1. ;;9002226.02101,"1044,33261010730 ",.02)
  1. ;;33261010730
  1. ;;9002226.02101,"1044,33261010740 ",.01)
  1. ;;33261010740
  1. ;;9002226.02101,"1044,33261010740 ",.02)
  1. ;;33261010740
  1. ;;9002226.02101,"1044,33261010760 ",.01)
  1. ;;33261010760
  1. ;;9002226.02101,"1044,33261010760 ",.02)
  1. ;;33261010760