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