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

BGPM5AQI.m

Go to the documentation of this file.
  1. BGPM5AQI ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,00039010407 ",.01)
  1. ;;00039010407
  1. ;;9002226.02101,"1005,00039010407 ",.02)
  1. ;;00039010407
  1. ;;9002226.02101,"1005,00039010410 ",.01)
  1. ;;00039010410
  1. ;;9002226.02101,"1005,00039010410 ",.02)
  1. ;;00039010410
  1. ;;9002226.02101,"1005,00039010411 ",.01)
  1. ;;00039010411
  1. ;;9002226.02101,"1005,00039010411 ",.02)
  1. ;;00039010411
  1. ;;9002226.02101,"1005,00039010507 ",.01)
  1. ;;00039010507
  1. ;;9002226.02101,"1005,00039010507 ",.02)
  1. ;;00039010507
  1. ;;9002226.02101,"1005,00039010510 ",.01)
  1. ;;00039010510
  1. ;;9002226.02101,"1005,00039010510 ",.02)
  1. ;;00039010510
  1. ;;9002226.02101,"1005,00039010610 ",.01)
  1. ;;00039010610
  1. ;;9002226.02101,"1005,00039010610 ",.02)
  1. ;;00039010610
  1. ;;9002226.02101,"1005,00048580501 ",.01)
  1. ;;00048580501
  1. ;;9002226.02101,"1005,00048580501 ",.02)
  1. ;;00048580501
  1. ;;9002226.02101,"1005,00048580541 ",.01)
  1. ;;00048580541
  1. ;;9002226.02101,"1005,00048580541 ",.02)
  1. ;;00048580541
  1. ;;9002226.02101,"1005,00048580596 ",.01)
  1. ;;00048580596
  1. ;;9002226.02101,"1005,00048580596 ",.02)
  1. ;;00048580596
  1. ;;9002226.02101,"1005,00048580601 ",.01)
  1. ;;00048580601
  1. ;;9002226.02101,"1005,00048580601 ",.02)
  1. ;;00048580601
  1. ;;9002226.02101,"1005,00048580641 ",.01)
  1. ;;00048580641
  1. ;;9002226.02101,"1005,00048580641 ",.02)
  1. ;;00048580641
  1. ;;9002226.02101,"1005,00048580696 ",.01)
  1. ;;00048580696
  1. ;;9002226.02101,"1005,00048580696 ",.02)
  1. ;;00048580696
  1. ;;9002226.02101,"1005,00048580701 ",.01)
  1. ;;00048580701
  1. ;;9002226.02101,"1005,00048580701 ",.02)
  1. ;;00048580701
  1. ;;9002226.02101,"1005,00048580741 ",.01)
  1. ;;00048580741
  1. ;;9002226.02101,"1005,00048580741 ",.02)
  1. ;;00048580741
  1. ;;9002226.02101,"1005,00048580796 ",.01)
  1. ;;00048580796
  1. ;;9002226.02101,"1005,00048580796 ",.02)
  1. ;;00048580796
  1. ;;9002226.02101,"1005,00056072170 ",.01)
  1. ;;00056072170
  1. ;;9002226.02101,"1005,00056072170 ",.02)
  1. ;;00056072170
  1. ;;9002226.02101,"1005,00056072190 ",.01)
  1. ;;00056072190
  1. ;;9002226.02101,"1005,00056072190 ",.02)
  1. ;;00056072190
  1. ;;9002226.02101,"1005,00056072270 ",.01)
  1. ;;00056072270
  1. ;;9002226.02101,"1005,00056072270 ",.02)
  1. ;;00056072270
  1. ;;9002226.02101,"1005,00056072290 ",.01)
  1. ;;00056072290
  1. ;;9002226.02101,"1005,00056072290 ",.02)
  1. ;;00056072290
  1. ;;9002226.02101,"1005,00056072470 ",.01)
  1. ;;00056072470
  1. ;;9002226.02101,"1005,00056072470 ",.02)
  1. ;;00056072470
  1. ;;9002226.02101,"1005,00056072490 ",.01)
  1. ;;00056072490
  1. ;;9002226.02101,"1005,00056072490 ",.02)
  1. ;;00056072490
  1. ;;9002226.02101,"1005,00056072770 ",.01)
  1. ;;00056072770
  1. ;;9002226.02101,"1005,00056072770 ",.02)
  1. ;;00056072770
  1. ;;9002226.02101,"1005,00056072790 ",.01)
  1. ;;00056072790
  1. ;;9002226.02101,"1005,00056072790 ",.02)
  1. ;;00056072790
  1. ;;9002226.02101,"1005,00056073170 ",.01)
  1. ;;00056073170
  1. ;;9002226.02101,"1005,00056073170 ",.02)
  1. ;;00056073170
  1. ;;9002226.02101,"1005,00056073370 ",.01)
  1. ;;00056073370
  1. ;;9002226.02101,"1005,00056073370 ",.02)
  1. ;;00056073370
  1. ;;9002226.02101,"1005,00056073970 ",.01)
  1. ;;00056073970
  1. ;;9002226.02101,"1005,00056073970 ",.02)
  1. ;;00056073970
  1. ;;9002226.02101,"1005,00056074170 ",.01)
  1. ;;00056074170
  1. ;;9002226.02101,"1005,00056074170 ",.02)
  1. ;;00056074170
  1. ;;9002226.02101,"1005,00068070061 ",.01)
  1. ;;00068070061
  1. ;;9002226.02101,"1005,00068070061 ",.02)
  1. ;;00068070061
  1. ;;9002226.02101,"1005,00068070065 ",.01)
  1. ;;00068070065
  1. ;;9002226.02101,"1005,00068070065 ",.02)
  1. ;;00068070065
  1. ;;9002226.02101,"1005,00068070361 ",.01)
  1. ;;00068070361
  1. ;;9002226.02101,"1005,00068070361 ",.02)
  1. ;;00068070361
  1. ;;9002226.02101,"1005,00068070365 ",.01)
  1. ;;00068070365
  1. ;;9002226.02101,"1005,00068070365 ",.02)
  1. ;;00068070365
  1. ;;9002226.02101,"1005,00068070561 ",.01)
  1. ;;00068070561
  1. ;;9002226.02101,"1005,00068070561 ",.02)
  1. ;;00068070561
  1. ;;9002226.02101,"1005,00068070565 ",.01)
  1. ;;00068070565
  1. ;;9002226.02101,"1005,00068070565 ",.02)
  1. ;;00068070565
  1. ;;9002226.02101,"1005,00071022006 ",.01)
  1. ;;00071022006
  1. ;;9002226.02101,"1005,00071022006 ",.02)
  1. ;;00071022006
  1. ;;9002226.02101,"1005,00071022023 ",.01)
  1. ;;00071022023
  1. ;;9002226.02101,"1005,00071022023 ",.02)
  1. ;;00071022023
  1. ;;9002226.02101,"1005,00071022095 ",.01)
  1. ;;00071022095
  1. ;;9002226.02101,"1005,00071022095 ",.02)
  1. ;;00071022095
  1. ;;9002226.02101,"1005,00071022206 ",.01)
  1. ;;00071022206
  1. ;;9002226.02101,"1005,00071022206 ",.02)
  1. ;;00071022206
  1. ;;9002226.02101,"1005,00071022223 ",.01)
  1. ;;00071022223
  1. ;;9002226.02101,"1005,00071022223 ",.02)
  1. ;;00071022223
  1. ;;9002226.02101,"1005,00071022306 ",.01)
  1. ;;00071022306
  1. ;;9002226.02101,"1005,00071022306 ",.02)
  1. ;;00071022306
  1. ;;9002226.02101,"1005,00071022323 ",.01)
  1. ;;00071022323
  1. ;;9002226.02101,"1005,00071022323 ",.02)
  1. ;;00071022323
  1. ;;9002226.02101,"1005,00071052723 ",.01)
  1. ;;00071052723
  1. ;;9002226.02101,"1005,00071052723 ",.02)
  1. ;;00071052723
  1. ;;9002226.02101,"1005,00071052740 ",.01)
  1. ;;00071052740
  1. ;;9002226.02101,"1005,00071052740 ",.02)
  1. ;;00071052740
  1. ;;9002226.02101,"1005,00071053023 ",.01)
  1. ;;00071053023
  1. ;;9002226.02101,"1005,00071053023 ",.02)
  1. ;;00071053023
  1. ;;9002226.02101,"1005,00071053040 ",.01)
  1. ;;00071053040
  1. ;;9002226.02101,"1005,00071053040 ",.02)
  1. ;;00071053040
  1. ;;9002226.02101,"1005,00071053223 ",.01)
  1. ;;00071053223
  1. ;;9002226.02101,"1005,00071053223 ",.02)
  1. ;;00071053223
  1. ;;9002226.02101,"1005,00071053240 ",.01)
  1. ;;00071053240
  1. ;;9002226.02101,"1005,00071053240 ",.02)
  1. ;;00071053240
  1. ;;9002226.02101,"1005,00071053523 ",.01)
  1. ;;00071053523
  1. ;;9002226.02101,"1005,00071053523 ",.02)
  1. ;;00071053523
  1. ;;9002226.02101,"1005,00074210931 ",.01)
  1. ;;00074210931
  1. ;;9002226.02101,"1005,00074210931 ",.02)
  1. ;;00074210931
  1. ;;9002226.02101,"1005,00074227811 ",.01)
  1. ;;00074227811
  1. ;;9002226.02101,"1005,00074227811 ",.02)
  1. ;;00074227811
  1. ;;9002226.02101,"1005,00074227813 ",.01)
  1. ;;00074227813
  1. ;;9002226.02101,"1005,00074227813 ",.02)
  1. ;;00074227813
  1. ;;9002226.02101,"1005,00074227871 ",.01)
  1. ;;00074227871
  1. ;;9002226.02101,"1005,00074227871 ",.02)
  1. ;;00074227871
  1. ;;9002226.02101,"1005,00074227911 ",.01)
  1. ;;00074227911
  1. ;;9002226.02101,"1005,00074227911 ",.02)
  1. ;;00074227911
  1. ;;9002226.02101,"1005,00074227913 ",.01)
  1. ;;00074227913
  1. ;;9002226.02101,"1005,00074227913 ",.02)
  1. ;;00074227913
  1. ;;9002226.02101,"1005,00074227971 ",.01)
  1. ;;00074227971
  1. ;;9002226.02101,"1005,00074227971 ",.02)
  1. ;;00074227971
  1. ;;9002226.02101,"1005,00074228011 ",.01)
  1. ;;00074228011
  1. ;;9002226.02101,"1005,00074228011 ",.02)
  1. ;;00074228011
  1. ;;9002226.02101,"1005,00074228013 ",.01)
  1. ;;00074228013
  1. ;;9002226.02101,"1005,00074228013 ",.02)
  1. ;;00074228013
  1. ;;9002226.02101,"1005,00074228071 ",.01)
  1. ;;00074228071
  1. ;;9002226.02101,"1005,00074228071 ",.02)
  1. ;;00074228071
  1. ;;9002226.02101,"1005,00074301511 ",.01)
  1. ;;00074301511
  1. ;;9002226.02101,"1005,00074301511 ",.02)
  1. ;;00074301511
  1. ;;9002226.02101,"1005,00074302511 ",.01)
  1. ;;00074302511
  1. ;;9002226.02101,"1005,00074302511 ",.02)
  1. ;;00074302511
  1. ;;9002226.02101,"1005,00074304011 ",.01)
  1. ;;00074304011
  1. ;;9002226.02101,"1005,00074304011 ",.02)
  1. ;;00074304011
  1. ;;9002226.02101,"1005,00078031406 ",.01)
  1. ;;00078031406
  1. ;;9002226.02101,"1005,00078031406 ",.02)
  1. ;;00078031406
  1. ;;9002226.02101,"1005,00078031433 ",.01)
  1. ;;00078031433
  1. ;;9002226.02101,"1005,00078031433 ",.02)
  1. ;;00078031433
  1. ;;9002226.02101,"1005,00078031434 ",.01)
  1. ;;00078031434
  1. ;;9002226.02101,"1005,00078031434 ",.02)
  1. ;;00078031434
  1. ;;9002226.02101,"1005,00078031461 ",.01)
  1. ;;00078031461
  1. ;;9002226.02101,"1005,00078031461 ",.02)
  1. ;;00078031461
  1. ;;9002226.02101,"1005,00078031506 ",.01)
  1. ;;00078031506
  1. ;;9002226.02101,"1005,00078031506 ",.02)
  1. ;;00078031506
  1. ;;9002226.02101,"1005,00078031515 ",.01)
  1. ;;00078031515
  1. ;;9002226.02101,"1005,00078031515 ",.02)
  1. ;;00078031515
  1. ;;9002226.02101,"1005,00078031517 ",.01)
  1. ;;00078031517
  1. ;;9002226.02101,"1005,00078031517 ",.02)
  1. ;;00078031517
  1. ;;9002226.02101,"1005,00078031534 ",.01)
  1. ;;00078031534
  1. ;;9002226.02101,"1005,00078031534 ",.02)
  1. ;;00078031534
  1. ;;9002226.02101,"1005,00078031561 ",.01)
  1. ;;00078031561
  1. ;;9002226.02101,"1005,00078031561 ",.02)
  1. ;;00078031561
  1. ;;9002226.02101,"1005,00078031567 ",.01)
  1. ;;00078031567
  1. ;;9002226.02101,"1005,00078031567 ",.02)
  1. ;;00078031567
  1. ;;9002226.02101,"1005,00078035806 ",.01)
  1. ;;00078035806
  1. ;;9002226.02101,"1005,00078035806 ",.02)
  1. ;;00078035806
  1. ;;9002226.02101,"1005,00078035833 ",.01)
  1. ;;00078035833
  1. ;;9002226.02101,"1005,00078035833 ",.02)
  1. ;;00078035833
  1. ;;9002226.02101,"1005,00078035834 ",.01)
  1. ;;00078035834
  1. ;;9002226.02101,"1005,00078035834 ",.02)
  1. ;;00078035834
  1. ;;9002226.02101,"1005,00078035861 ",.01)
  1. ;;00078035861
  1. ;;9002226.02101,"1005,00078035861 ",.02)
  1. ;;00078035861
  1. ;;9002226.02101,"1005,00078035905 ",.01)
  1. ;;00078035905
  1. ;;9002226.02101,"1005,00078035905 ",.02)
  1. ;;00078035905
  1. ;;9002226.02101,"1005,00078035906 ",.01)
  1. ;;00078035906
  1. ;;9002226.02101,"1005,00078035906 ",.02)
  1. ;;00078035906
  1. ;;9002226.02101,"1005,00078035917 ",.01)
  1. ;;00078035917
  1. ;;9002226.02101,"1005,00078035917 ",.02)
  1. ;;00078035917
  1. ;;9002226.02101,"1005,00078035934 ",.01)
  1. ;;00078035934
  1. ;;9002226.02101,"1005,00078035934 ",.02)
  1. ;;00078035934
  1. ;;9002226.02101,"1005,00078035961 ",.01)
  1. ;;00078035961
  1. ;;9002226.02101,"1005,00078035961 ",.02)
  1. ;;00078035961
  1. ;;9002226.02101,"1005,00078036006 ",.01)
  1. ;;00078036006
  1. ;;9002226.02101,"1005,00078036006 ",.02)
  1. ;;00078036006
  1. ;;9002226.02101,"1005,00078036011 ",.01)
  1. ;;00078036011
  1. ;;9002226.02101,"1005,00078036011 ",.02)
  1. ;;00078036011
  1. ;;9002226.02101,"1005,00078036034 ",.01)
  1. ;;00078036034
  1. ;;9002226.02101,"1005,00078036034 ",.02)
  1. ;;00078036034
  1. ;;9002226.02101,"1005,00078036061 ",.01)
  1. ;;00078036061
  1. ;;9002226.02101,"1005,00078036061 ",.02)
  1. ;;00078036061
  1. ;;9002226.02101,"1005,00078037615 ",.01)
  1. ;;00078037615
  1. ;;9002226.02101,"1005,00078037615 ",.02)
  1. ;;00078037615
  1. ;;9002226.02101,"1005,00078038306 ",.01)
  1. ;;00078038306
  1. ;;9002226.02101,"1005,00078038306 ",.02)
  1. ;;00078038306
  1. ;;9002226.02101,"1005,00078038315 ",.01)
  1. ;;00078038315
  1. ;;9002226.02101,"1005,00078038315 ",.02)
  1. ;;00078038315
  1. ;;9002226.02101,"1005,00078038317 ",.01)
  1. ;;00078038317
  1. ;;9002226.02101,"1005,00078038317 ",.02)
  1. ;;00078038317
  1. ;;9002226.02101,"1005,00078038334 ",.01)
  1. ;;00078038334
  1. ;;9002226.02101,"1005,00078038334 ",.02)
  1. ;;00078038334
  1. ;;9002226.02101,"1005,00078038361 ",.01)
  1. ;;00078038361
  1. ;;9002226.02101,"1005,00078038361 ",.02)
  1. ;;00078038361
  1. ;;9002226.02101,"1005,00078038367 ",.01)
  1. ;;00078038367
  1. ;;9002226.02101,"1005,00078038367 ",.02)
  1. ;;00078038367
  1. ;;9002226.02101,"1005,00078042306 ",.01)
  1. ;;00078042306
  1. ;;9002226.02101,"1005,00078042306 ",.02)
  1. ;;00078042306
  1. ;;9002226.02101,"1005,00078042315 ",.01)
  1. ;;00078042315
  1. ;;9002226.02101,"1005,00078042315 ",.02)
  1. ;;00078042315
  1. ;;9002226.02101,"1005,00078042361 ",.01)
  1. ;;00078042361
  1. ;;9002226.02101,"1005,00078042361 ",.02)
  1. ;;00078042361
  1. ;;9002226.02101,"1005,00078167301 ",.01)
  1. ;;00078167301
  1. ;;9002226.02101,"1005,00078167301 ",.02)
  1. ;;00078167301
  1. ;;9002226.02101,"1005,00078167331 ",.01)
  1. ;;00078167331
  1. ;;9002226.02101,"1005,00078167331 ",.02)
  1. ;;00078167331
  1. ;;9002226.02101,"1005,00078167334 ",.01)
  1. ;;00078167334
  1. ;;9002226.02101,"1005,00078167334 ",.02)
  1. ;;00078167334
  1. ;;9002226.02101,"1005,00083400001 ",.01)
  1. ;;00083400001
  1. ;;9002226.02101,"1005,00083400001 ",.02)
  1. ;;00083400001
  1. ;;9002226.02101,"1005,00083400003 ",.01)
  1. ;;00083400003
  1. ;;9002226.02101,"1005,00083400003 ",.02)
  1. ;;00083400003
  1. ;;9002226.02101,"1005,00083400041 ",.01)
  1. ;;00083400041
  1. ;;9002226.02101,"1005,00083400041 ",.02)
  1. ;;00083400041
  1. ;;9002226.02101,"1005,00083400061 ",.01)
  1. ;;00083400061
  1. ;;9002226.02101,"1005,00083400061 ",.02)
  1. ;;00083400061
  1. ;;9002226.02101,"1005,00083400101 ",.01)
  1. ;;00083400101