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