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