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

BGP6EXBB.m

Go to the documentation of this file.
BGP6EXBB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 21, 2005 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
 ;;;BGP6;;AUG 21, 2005
 ;
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,"370,26600 ",.02)
 ;;26600 
 ;;9002226.02101,"370,26605 ",.01)
 ;;26605 
 ;;9002226.02101,"370,26605 ",.02)
 ;;26605 
 ;;9002226.02101,"370,26607 ",.01)
 ;;26607 
 ;;9002226.02101,"370,26607 ",.02)
 ;;26607 
 ;;9002226.02101,"370,26608 ",.01)
 ;;26608 
 ;;9002226.02101,"370,26608 ",.02)
 ;;26608 
 ;;9002226.02101,"370,26615 ",.01)
 ;;26615 
 ;;9002226.02101,"370,26615 ",.02)
 ;;26615 
 ;;9002226.02101,"370,27193 ",.01)
 ;;27193 
 ;;9002226.02101,"370,27193 ",.02)
 ;;27193 
 ;;9002226.02101,"370,27194 ",.01)
 ;;27194 
 ;;9002226.02101,"370,27194 ",.02)
 ;;27194 
 ;;9002226.02101,"370,27200 ",.01)
 ;;27200 
 ;;9002226.02101,"370,27200 ",.02)
 ;;27200 
 ;;9002226.02101,"370,27202 ",.01)
 ;;27202 
 ;;9002226.02101,"370,27202 ",.02)
 ;;27202 
 ;;9002226.02101,"370,27215 ",.01)
 ;;27215 
 ;;9002226.02101,"370,27215 ",.02)
 ;;27215 
 ;;9002226.02101,"370,27216 ",.01)
 ;;27216 
 ;;9002226.02101,"370,27216 ",.02)
 ;;27216 
 ;;9002226.02101,"370,27217 ",.01)
 ;;27217 
 ;;9002226.02101,"370,27217 ",.02)
 ;;27217 
 ;;9002226.02101,"370,27218 ",.01)
 ;;27218 
 ;;9002226.02101,"370,27218 ",.02)
 ;;27218 
 ;;9002226.02101,"370,27220 ",.01)
 ;;27220 
 ;;9002226.02101,"370,27220 ",.02)
 ;;27220 
 ;;9002226.02101,"370,27222 ",.01)
 ;;27222 
 ;;9002226.02101,"370,27222 ",.02)
 ;;27222 
 ;;9002226.02101,"370,27226 ",.01)
 ;;27226 
 ;;9002226.02101,"370,27226 ",.02)
 ;;27226 
 ;;9002226.02101,"370,27227 ",.01)
 ;;27227 
 ;;9002226.02101,"370,27227 ",.02)
 ;;27227 
 ;;9002226.02101,"370,27228 ",.01)
 ;;27228 
 ;;9002226.02101,"370,27228 ",.02)
 ;;27228 
 ;;9002226.02101,"370,27230 ",.01)
 ;;27230 
 ;;9002226.02101,"370,27230 ",.02)
 ;;27230 
 ;;9002226.02101,"370,27232 ",.01)
 ;;27232 
 ;;9002226.02101,"370,27232 ",.02)
 ;;27232 
 ;;9002226.02101,"370,27235 ",.01)
 ;;27235 
 ;;9002226.02101,"370,27235 ",.02)
 ;;27235 
 ;;9002226.02101,"370,27236 ",.01)
 ;;27236 
 ;;9002226.02101,"370,27236 ",.02)
 ;;27236 
 ;;9002226.02101,"370,27238 ",.01)
 ;;27238 
 ;;9002226.02101,"370,27238 ",.02)
 ;;27238 
 ;;9002226.02101,"370,27240 ",.01)
 ;;27240 
 ;;9002226.02101,"370,27240 ",.02)
 ;;27240 
 ;;9002226.02101,"370,27244 ",.01)
 ;;27244 
 ;;9002226.02101,"370,27244 ",.02)
 ;;27244 
 ;;9002226.02101,"370,27245 ",.01)
 ;;27245 
 ;;9002226.02101,"370,27245 ",.02)
 ;;27245 
 ;;9002226.02101,"370,27246 ",.01)
 ;;27246 
 ;;9002226.02101,"370,27246 ",.02)
 ;;27246 
 ;;9002226.02101,"370,27248 ",.01)
 ;;27248 
 ;;9002226.02101,"370,27248 ",.02)
 ;;27248 
 ;;9002226.02101,"370,27254 ",.01)
 ;;27254 
 ;;9002226.02101,"370,27254 ",.02)
 ;;27254 
 ;;9002226.02101,"370,27500 ",.01)
 ;;27500 
 ;;9002226.02101,"370,27500 ",.02)
 ;;27500 
 ;;9002226.02101,"370,27501 ",.01)
 ;;27501 
 ;;9002226.02101,"370,27501 ",.02)
 ;;27501 
 ;;9002226.02101,"370,27502 ",.01)
 ;;27502 
 ;;9002226.02101,"370,27502 ",.02)
 ;;27502 
 ;;9002226.02101,"370,27503 ",.01)
 ;;27503 
 ;;9002226.02101,"370,27503 ",.02)
 ;;27503 
 ;;9002226.02101,"370,27506 ",.01)
 ;;27506 
 ;;9002226.02101,"370,27506 ",.02)
 ;;27506 
 ;;9002226.02101,"370,27507 ",.01)
 ;;27507 
 ;;9002226.02101,"370,27507 ",.02)
 ;;27507 
 ;;9002226.02101,"370,27508 ",.01)
 ;;27508 
 ;;9002226.02101,"370,27508 ",.02)
 ;;27508 
 ;;9002226.02101,"370,27509 ",.01)
 ;;27509 
 ;;9002226.02101,"370,27509 ",.02)
 ;;27509 
 ;;9002226.02101,"370,27510 ",.01)
 ;;27510 
 ;;9002226.02101,"370,27510 ",.02)
 ;;27510 
 ;;9002226.02101,"370,27511 ",.01)
 ;;27511 
 ;;9002226.02101,"370,27511 ",.02)
 ;;27511 
 ;;9002226.02101,"370,27513 ",.01)
 ;;27513 
 ;;9002226.02101,"370,27513 ",.02)
 ;;27513 
 ;;9002226.02101,"370,27514 ",.01)
 ;;27514 
 ;;9002226.02101,"370,27514 ",.02)
 ;;27514 
 ;;9002226.02101,"370,27520 ",.01)
 ;;27520 
 ;;9002226.02101,"370,27520 ",.02)
 ;;27520 
 ;;9002226.02101,"370,27524 ",.01)
 ;;27524 
 ;;9002226.02101,"370,27524 ",.02)
 ;;27524 
 ;;9002226.02101,"370,27530 ",.01)
 ;;27530 
 ;;9002226.02101,"370,27530 ",.02)
 ;;27530 
 ;;9002226.02101,"370,27532 ",.01)
 ;;27532 
 ;;9002226.02101,"370,27532 ",.02)
 ;;27532 
 ;;9002226.02101,"370,27535 ",.01)
 ;;27535 
 ;;9002226.02101,"370,27535 ",.02)
 ;;27535 
 ;;9002226.02101,"370,27536 ",.01)
 ;;27536 
 ;;9002226.02101,"370,27536 ",.02)
 ;;27536 
 ;;9002226.02101,"370,27538 ",.01)
 ;;27538 
 ;;9002226.02101,"370,27538 ",.02)
 ;;27538 
 ;;9002226.02101,"370,27540 ",.01)
 ;;27540 
 ;;9002226.02101,"370,27540 ",.02)
 ;;27540 
 ;;9002226.02101,"370,27750 ",.01)
 ;;27750 
 ;;9002226.02101,"370,27750 ",.02)
 ;;27750 
 ;;9002226.02101,"370,27752 ",.01)
 ;;27752 
 ;;9002226.02101,"370,27752 ",.02)
 ;;27752 
 ;;9002226.02101,"370,27756 ",.01)
 ;;27756 
 ;;9002226.02101,"370,27756 ",.02)
 ;;27756 
 ;;9002226.02101,"370,27758 ",.01)
 ;;27758 
 ;;9002226.02101,"370,27758 ",.02)
 ;;27758 
 ;;9002226.02101,"370,27759 ",.01)
 ;;27759 
 ;;9002226.02101,"370,27759 ",.02)
 ;;27759 
 ;;9002226.02101,"370,27760 ",.01)
 ;;27760 
 ;;9002226.02101,"370,27760 ",.02)
 ;;27760 
 ;;9002226.02101,"370,27762 ",.01)
 ;;27762 
 ;;9002226.02101,"370,27762 ",.02)
 ;;27762 
 ;;9002226.02101,"370,27766 ",.01)
 ;;27766 
 ;;9002226.02101,"370,27766 ",.02)
 ;;27766 
 ;;9002226.02101,"370,27780 ",.01)
 ;;27780 
 ;;9002226.02101,"370,27780 ",.02)
 ;;27780 
 ;;9002226.02101,"370,27781 ",.01)
 ;;27781 
 ;;9002226.02101,"370,27781 ",.02)
 ;;27781 
 ;;9002226.02101,"370,27784 ",.01)
 ;;27784 
 ;;9002226.02101,"370,27784 ",.02)
 ;;27784 
 ;;9002226.02101,"370,27786 ",.01)
 ;;27786 
 ;;9002226.02101,"370,27786 ",.02)
 ;;27786 
 ;;9002226.02101,"370,27788 ",.01)
 ;;27788 
 ;;9002226.02101,"370,27788 ",.02)
 ;;27788 
 ;;9002226.02101,"370,27792 ",.01)
 ;;27792 
 ;;9002226.02101,"370,27792 ",.02)
 ;;27792 
 ;;9002226.02101,"370,27808 ",.01)
 ;;27808 
 ;;9002226.02101,"370,27808 ",.02)
 ;;27808 
 ;;9002226.02101,"370,27810 ",.01)
 ;;27810 
 ;;9002226.02101,"370,27810 ",.02)
 ;;27810 
 ;;9002226.02101,"370,27814 ",.01)
 ;;27814 
 ;;9002226.02101,"370,27814 ",.02)
 ;;27814 
 ;;9002226.02101,"370,27816 ",.01)
 ;;27816 
 ;;9002226.02101,"370,27816 ",.02)
 ;;27816 
 ;;9002226.02101,"370,27818 ",.01)
 ;;27818 
 ;;9002226.02101,"370,27818 ",.02)
 ;;27818 
 ;;9002226.02101,"370,27822 ",.01)
 ;;27822 
 ;;9002226.02101,"370,27822 ",.02)
 ;;27822 
 ;;9002226.02101,"370,27823 ",.01)
 ;;27823 
 ;;9002226.02101,"370,27823 ",.02)
 ;;27823 
 ;;9002226.02101,"370,27824 ",.01)
 ;;27824 
 ;;9002226.02101,"370,27824 ",.02)
 ;;27824 
 ;;9002226.02101,"370,27825 ",.01)
 ;;27825 
 ;;9002226.02101,"370,27825 ",.02)
 ;;27825 
 ;;9002226.02101,"370,27826 ",.01)
 ;;27826 
 ;;9002226.02101,"370,27826 ",.02)
 ;;27826 
 ;;9002226.02101,"370,27827 ",.01)
 ;;27827 
 ;;9002226.02101,"370,27827 ",.02)
 ;;27827 
 ;;9002226.02101,"370,27828 ",.01)
 ;;27828 
 ;;9002226.02101,"370,27828 ",.02)
 ;;27828 
 ;;9002226.02101,"370,28400 ",.01)
 ;;28400 
 ;;9002226.02101,"370,28400 ",.02)
 ;;28400 
 ;;9002226.02101,"370,28405 ",.01)
 ;;28405 
 ;;9002226.02101,"370,28405 ",.02)
 ;;28405 
 ;;9002226.02101,"370,28406 ",.01)
 ;;28406 
 ;;9002226.02101,"370,28406 ",.02)
 ;;28406 
 ;;9002226.02101,"370,28415 ",.01)
 ;;28415 
 ;;9002226.02101,"370,28415 ",.02)
 ;;28415 
 ;;9002226.02101,"370,28420 ",.01)
 ;;28420 
 ;;9002226.02101,"370,28420 ",.02)
 ;;28420 
 ;;9002226.02101,"370,28430 ",.01)
 ;;28430 
 ;;9002226.02101,"370,28430 ",.02)
 ;;28430 
 ;;9002226.02101,"370,28435 ",.01)
 ;;28435 
 ;;9002226.02101,"370,28435 ",.02)
 ;;28435 
 ;;9002226.02101,"370,28436 ",.01)
 ;;28436 
 ;;9002226.02101,"370,28436 ",.02)
 ;;28436 
 ;;9002226.02101,"370,28445 ",.01)
 ;;28445 
 ;;9002226.02101,"370,28445 ",.02)
 ;;28445 
 ;;9002226.02101,"370,28450 ",.01)
 ;;28450 
 ;;9002226.02101,"370,28450 ",.02)
 ;;28450 
 ;;9002226.02101,"370,28455 ",.01)
 ;;28455 
 ;;9002226.02101,"370,28455 ",.02)
 ;;28455 
 ;;9002226.02101,"370,28456 ",.01)
 ;;28456 
 ;;9002226.02101,"370,28456 ",.02)
 ;;28456 
 ;;9002226.02101,"370,28465 ",.01)
 ;;28465 
 ;;9002226.02101,"370,28465 ",.02)
 ;;28465 
 ;;9002226.02101,"370,28470 ",.01)
 ;;28470 
 ;;9002226.02101,"370,28470 ",.02)
 ;;28470 
 ;;9002226.02101,"370,28475 ",.01)
 ;;28475 
 ;;9002226.02101,"370,28475 ",.02)
 ;;28475 
 ;;9002226.02101,"370,28476 ",.01)
 ;;28476 
 ;;9002226.02101,"370,28476 ",.02)
 ;;28476 
 ;;9002226.02101,"370,28485 ",.01)
 ;;28485 
 ;;9002226.02101,"370,28485 ",.02)
 ;;28485