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

BGPM3ADQ.m

Go to the documentation of this file.
  1. BGPM3ADQ ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
  1. ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
  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,"785,00179152150 ",.01)
  1. ;;00179152150
  1. ;;9002226.02101,"785,00179152150 ",.02)
  1. ;;00179152150
  1. ;;9002226.02101,"785,00179152160 ",.01)
  1. ;;00179152160
  1. ;;9002226.02101,"785,00179152160 ",.02)
  1. ;;00179152160
  1. ;;9002226.02101,"785,00179152190 ",.01)
  1. ;;00179152190
  1. ;;9002226.02101,"785,00179152190 ",.02)
  1. ;;00179152190
  1. ;;9002226.02101,"785,00179152701 ",.01)
  1. ;;00179152701
  1. ;;9002226.02101,"785,00179152701 ",.02)
  1. ;;00179152701
  1. ;;9002226.02101,"785,00179152730 ",.01)
  1. ;;00179152730
  1. ;;9002226.02101,"785,00179152730 ",.02)
  1. ;;00179152730
  1. ;;9002226.02101,"785,00179152750 ",.01)
  1. ;;00179152750
  1. ;;9002226.02101,"785,00179152750 ",.02)
  1. ;;00179152750
  1. ;;9002226.02101,"785,00179152760 ",.01)
  1. ;;00179152760
  1. ;;9002226.02101,"785,00179152760 ",.02)
  1. ;;00179152760
  1. ;;9002226.02101,"785,00179152790 ",.01)
  1. ;;00179152790
  1. ;;9002226.02101,"785,00179152790 ",.02)
  1. ;;00179152790
  1. ;;9002226.02101,"785,00179189670 ",.01)
  1. ;;00179189670
  1. ;;9002226.02101,"785,00179189670 ",.02)
  1. ;;00179189670
  1. ;;9002226.02101,"785,00179189671 ",.01)
  1. ;;00179189671
  1. ;;9002226.02101,"785,00179189671 ",.02)
  1. ;;00179189671
  1. ;;9002226.02101,"785,00179189672 ",.01)
  1. ;;00179189672
  1. ;;9002226.02101,"785,00179189672 ",.02)
  1. ;;00179189672
  1. ;;9002226.02101,"785,00179189701 ",.01)
  1. ;;00179189701
  1. ;;9002226.02101,"785,00179189701 ",.02)
  1. ;;00179189701
  1. ;;9002226.02101,"785,00179189730 ",.01)
  1. ;;00179189730
  1. ;;9002226.02101,"785,00179189730 ",.02)
  1. ;;00179189730
  1. ;;9002226.02101,"785,00179189750 ",.01)
  1. ;;00179189750
  1. ;;9002226.02101,"785,00179189750 ",.02)
  1. ;;00179189750
  1. ;;9002226.02101,"785,00179189760 ",.01)
  1. ;;00179189760
  1. ;;9002226.02101,"785,00179189760 ",.02)
  1. ;;00179189760
  1. ;;9002226.02101,"785,00179189770 ",.01)
  1. ;;00179189770
  1. ;;9002226.02101,"785,00179189770 ",.02)
  1. ;;00179189770
  1. ;;9002226.02101,"785,00179189771 ",.01)
  1. ;;00179189771
  1. ;;9002226.02101,"785,00179189771 ",.02)
  1. ;;00179189771
  1. ;;9002226.02101,"785,00179189772 ",.01)
  1. ;;00179189772
  1. ;;9002226.02101,"785,00179189772 ",.02)
  1. ;;00179189772
  1. ;;9002226.02101,"785,00179189790 ",.01)
  1. ;;00179189790
  1. ;;9002226.02101,"785,00179189790 ",.02)
  1. ;;00179189790
  1. ;;9002226.02101,"785,00179189870 ",.01)
  1. ;;00179189870
  1. ;;9002226.02101,"785,00179189870 ",.02)
  1. ;;00179189870
  1. ;;9002226.02101,"785,00179189871 ",.01)
  1. ;;00179189871
  1. ;;9002226.02101,"785,00179189871 ",.02)
  1. ;;00179189871
  1. ;;9002226.02101,"785,00179189872 ",.01)
  1. ;;00179189872
  1. ;;9002226.02101,"785,00179189872 ",.02)
  1. ;;00179189872
  1. ;;9002226.02101,"785,00179189970 ",.01)
  1. ;;00179189970
  1. ;;9002226.02101,"785,00179189970 ",.02)
  1. ;;00179189970
  1. ;;9002226.02101,"785,00179189971 ",.01)
  1. ;;00179189971
  1. ;;9002226.02101,"785,00179189971 ",.02)
  1. ;;00179189971
  1. ;;9002226.02101,"785,00179189972 ",.01)
  1. ;;00179189972
  1. ;;9002226.02101,"785,00179189972 ",.02)
  1. ;;00179189972
  1. ;;9002226.02101,"785,00179193301 ",.01)
  1. ;;00179193301
  1. ;;9002226.02101,"785,00179193301 ",.02)
  1. ;;00179193301
  1. ;;9002226.02101,"785,00179193330 ",.01)
  1. ;;00179193330
  1. ;;9002226.02101,"785,00179193330 ",.02)
  1. ;;00179193330
  1. ;;9002226.02101,"785,00179193350 ",.01)
  1. ;;00179193350
  1. ;;9002226.02101,"785,00179193350 ",.02)
  1. ;;00179193350
  1. ;;9002226.02101,"785,00179193360 ",.01)
  1. ;;00179193360
  1. ;;9002226.02101,"785,00179193360 ",.02)
  1. ;;00179193360
  1. ;;9002226.02101,"785,00179193601 ",.01)
  1. ;;00179193601
  1. ;;9002226.02101,"785,00179193601 ",.02)
  1. ;;00179193601
  1. ;;9002226.02101,"785,00179193630 ",.01)
  1. ;;00179193630
  1. ;;9002226.02101,"785,00179193630 ",.02)
  1. ;;00179193630
  1. ;;9002226.02101,"785,00179193650 ",.01)
  1. ;;00179193650
  1. ;;9002226.02101,"785,00179193650 ",.02)
  1. ;;00179193650
  1. ;;9002226.02101,"785,00179193660 ",.01)
  1. ;;00179193660
  1. ;;9002226.02101,"785,00179193660 ",.02)
  1. ;;00179193660
  1. ;;9002226.02101,"785,00185007001 ",.01)
  1. ;;00185007001
  1. ;;9002226.02101,"785,00185007001 ",.02)
  1. ;;00185007001
  1. ;;9002226.02101,"785,00185007005 ",.01)
  1. ;;00185007005
  1. ;;9002226.02101,"785,00185007005 ",.02)
  1. ;;00185007005
  1. ;;9002226.02101,"785,00185007009 ",.01)
  1. ;;00185007009
  1. ;;9002226.02101,"785,00185007009 ",.02)
  1. ;;00185007009
  1. ;;9002226.02101,"785,00185007010 ",.01)
  1. ;;00185007010
  1. ;;9002226.02101,"785,00185007010 ",.02)
  1. ;;00185007010
  1. ;;9002226.02101,"785,00185007060 ",.01)
  1. ;;00185007060
  1. ;;9002226.02101,"785,00185007060 ",.02)
  1. ;;00185007060
  1. ;;9002226.02101,"785,00185007201 ",.01)
  1. ;;00185007201
  1. ;;9002226.02101,"785,00185007201 ",.02)
  1. ;;00185007201
  1. ;;9002226.02101,"785,00185007205 ",.01)
  1. ;;00185007205
  1. ;;9002226.02101,"785,00185007205 ",.02)
  1. ;;00185007205
  1. ;;9002226.02101,"785,00185007209 ",.01)
  1. ;;00185007209
  1. ;;9002226.02101,"785,00185007209 ",.02)
  1. ;;00185007209
  1. ;;9002226.02101,"785,00185007210 ",.01)
  1. ;;00185007210
  1. ;;9002226.02101,"785,00185007210 ",.02)
  1. ;;00185007210
  1. ;;9002226.02101,"785,00185007260 ",.01)
  1. ;;00185007260
  1. ;;9002226.02101,"785,00185007260 ",.02)
  1. ;;00185007260
  1. ;;9002226.02101,"785,00185007401 ",.01)
  1. ;;00185007401
  1. ;;9002226.02101,"785,00185007401 ",.02)
  1. ;;00185007401
  1. ;;9002226.02101,"785,00185007405 ",.01)
  1. ;;00185007405
  1. ;;9002226.02101,"785,00185007405 ",.02)
  1. ;;00185007405
  1. ;;9002226.02101,"785,00185007409 ",.01)
  1. ;;00185007409
  1. ;;9002226.02101,"785,00185007409 ",.02)
  1. ;;00185007409
  1. ;;9002226.02101,"785,00185007410 ",.01)
  1. ;;00185007410
  1. ;;9002226.02101,"785,00185007410 ",.02)
  1. ;;00185007410
  1. ;;9002226.02101,"785,00185007460 ",.01)
  1. ;;00185007460
  1. ;;9002226.02101,"785,00185007460 ",.02)
  1. ;;00185007460
  1. ;;9002226.02101,"785,00228263306 ",.01)
  1. ;;00228263306
  1. ;;9002226.02101,"785,00228263306 ",.02)
  1. ;;00228263306
  1. ;;9002226.02101,"785,00228263350 ",.01)
  1. ;;00228263350
  1. ;;9002226.02101,"785,00228263350 ",.02)
  1. ;;00228263350
  1. ;;9002226.02101,"785,00228263406 ",.01)
  1. ;;00228263406
  1. ;;9002226.02101,"785,00228263406 ",.02)
  1. ;;00228263406
  1. ;;9002226.02101,"785,00228263450 ",.01)
  1. ;;00228263450
  1. ;;9002226.02101,"785,00228263450 ",.02)
  1. ;;00228263450
  1. ;;9002226.02101,"785,00228263506 ",.01)
  1. ;;00228263506
  1. ;;9002226.02101,"785,00228263506 ",.02)
  1. ;;00228263506
  1. ;;9002226.02101,"785,00228263550 ",.01)
  1. ;;00228263550
  1. ;;9002226.02101,"785,00228263550 ",.02)
  1. ;;00228263550
  1. ;;9002226.02101,"785,00247205330 ",.01)
  1. ;;00247205330
  1. ;;9002226.02101,"785,00247205330 ",.02)
  1. ;;00247205330
  1. ;;9002226.02101,"785,00247205360 ",.01)
  1. ;;00247205360
  1. ;;9002226.02101,"785,00247205360 ",.02)
  1. ;;00247205360
  1. ;;9002226.02101,"785,00247205430 ",.01)
  1. ;;00247205430
  1. ;;9002226.02101,"785,00247205430 ",.02)
  1. ;;00247205430
  1. ;;9002226.02101,"785,00247205433 ",.01)
  1. ;;00247205433
  1. ;;9002226.02101,"785,00247205433 ",.02)
  1. ;;00247205433
  1. ;;9002226.02101,"785,00247205459 ",.01)
  1. ;;00247205459
  1. ;;9002226.02101,"785,00247205459 ",.02)
  1. ;;00247205459
  1. ;;9002226.02101,"785,00247205460 ",.01)
  1. ;;00247205460
  1. ;;9002226.02101,"785,00247205460 ",.02)
  1. ;;00247205460
  1. ;;9002226.02101,"785,00247205530 ",.01)
  1. ;;00247205530
  1. ;;9002226.02101,"785,00247205530 ",.02)
  1. ;;00247205530
  1. ;;9002226.02101,"785,00247205560 ",.01)
  1. ;;00247205560
  1. ;;9002226.02101,"785,00247205560 ",.02)
  1. ;;00247205560
  1. ;;9002226.02101,"785,00378540105 ",.01)
  1. ;;00378540105
  1. ;;9002226.02101,"785,00378540105 ",.02)
  1. ;;00378540105
  1. ;;9002226.02101,"785,00378540177 ",.01)
  1. ;;00378540177
  1. ;;9002226.02101,"785,00378540177 ",.02)
  1. ;;00378540177
  1. ;;9002226.02101,"785,00378540193 ",.01)
  1. ;;00378540193
  1. ;;9002226.02101,"785,00378540193 ",.02)
  1. ;;00378540193
  1. ;;9002226.02101,"785,00378540205 ",.01)
  1. ;;00378540205
  1. ;;9002226.02101,"785,00378540205 ",.02)
  1. ;;00378540205
  1. ;;9002226.02101,"785,00378540277 ",.01)
  1. ;;00378540277
  1. ;;9002226.02101,"785,00378540277 ",.02)
  1. ;;00378540277
  1. ;;9002226.02101,"785,00378540293 ",.01)
  1. ;;00378540293
  1. ;;9002226.02101,"785,00378540293 ",.02)
  1. ;;00378540293
  1. ;;9002226.02101,"785,00378540305 ",.01)
  1. ;;00378540305
  1. ;;9002226.02101,"785,00378540305 ",.02)
  1. ;;00378540305
  1. ;;9002226.02101,"785,00378540377 ",.01)
  1. ;;00378540377
  1. ;;9002226.02101,"785,00378540377 ",.02)
  1. ;;00378540377
  1. ;;9002226.02101,"785,00378540393 ",.01)
  1. ;;00378540393
  1. ;;9002226.02101,"785,00378540393 ",.02)
  1. ;;00378540393
  1. ;;9002226.02101,"785,00378540405 ",.01)
  1. ;;00378540405
  1. ;;9002226.02101,"785,00378540405 ",.02)
  1. ;;00378540405
  1. ;;9002226.02101,"785,00378540477 ",.01)
  1. ;;00378540477
  1. ;;9002226.02101,"785,00378540477 ",.02)
  1. ;;00378540477
  1. ;;9002226.02101,"785,00378540493 ",.01)
  1. ;;00378540493
  1. ;;9002226.02101,"785,00378540493 ",.02)
  1. ;;00378540493
  1. ;;9002226.02101,"785,00378540505 ",.01)
  1. ;;00378540505
  1. ;;9002226.02101,"785,00378540505 ",.02)
  1. ;;00378540505
  1. ;;9002226.02101,"785,00378540577 ",.01)
  1. ;;00378540577
  1. ;;9002226.02101,"785,00378540577 ",.02)
  1. ;;00378540577
  1. ;;9002226.02101,"785,00378540593 ",.01)
  1. ;;00378540593
  1. ;;9002226.02101,"785,00378540593 ",.02)
  1. ;;00378540593
  1. ;;9002226.02101,"785,00378651091 ",.01)
  1. ;;00378651091
  1. ;;9002226.02101,"785,00378651091 ",.02)
  1. ;;00378651091
  1. ;;9002226.02101,"785,00378652005 ",.01)
  1. ;;00378652005
  1. ;;9002226.02101,"785,00378652005 ",.02)
  1. ;;00378652005
  1. ;;9002226.02101,"785,00378652091 ",.01)
  1. ;;00378652091
  1. ;;9002226.02101,"785,00378652091 ",.02)
  1. ;;00378652091
  1. ;;9002226.02101,"785,00378654005 ",.01)
  1. ;;00378654005
  1. ;;9002226.02101,"785,00378654005 ",.02)
  1. ;;00378654005
  1. ;;9002226.02101,"785,00378654091 ",.01)
  1. ;;00378654091
  1. ;;9002226.02101,"785,00378654091 ",.02)
  1. ;;00378654091
  1. ;;9002226.02101,"785,00406206503 ",.01)
  1. ;;00406206503
  1. ;;9002226.02101,"785,00406206503 ",.02)
  1. ;;00406206503
  1. ;;9002226.02101,"785,00406206505 ",.01)
  1. ;;00406206505
  1. ;;9002226.02101,"785,00406206505 ",.02)
  1. ;;00406206505
  1. ;;9002226.02101,"785,00406206510 ",.01)
  1. ;;00406206510
  1. ;;9002226.02101,"785,00406206510 ",.02)
  1. ;;00406206510
  1. ;;9002226.02101,"785,00406206560 ",.01)
  1. ;;00406206560
  1. ;;9002226.02101,"785,00406206560 ",.02)
  1. ;;00406206560
  1. ;;9002226.02101,"785,00406206590 ",.01)
  1. ;;00406206590
  1. ;;9002226.02101,"785,00406206590 ",.02)
  1. ;;00406206590
  1. ;;9002226.02101,"785,00406206603 ",.01)
  1. ;;00406206603
  1. ;;9002226.02101,"785,00406206603 ",.02)
  1. ;;00406206603
  1. ;;9002226.02101,"785,00406206605 ",.01)
  1. ;;00406206605
  1. ;;9002226.02101,"785,00406206605 ",.02)
  1. ;;00406206605
  1. ;;9002226.02101,"785,00406206610 ",.01)
  1. ;;00406206610
  1. ;;9002226.02101,"785,00406206610 ",.02)
  1. ;;00406206610
  1. ;;9002226.02101,"785,00406206660 ",.01)
  1. ;;00406206660
  1. ;;9002226.02101,"785,00406206660 ",.02)
  1. ;;00406206660
  1. ;;9002226.02101,"785,00406206690 ",.01)
  1. ;;00406206690
  1. ;;9002226.02101,"785,00406206690 ",.02)
  1. ;;00406206690
  1. ;;9002226.02101,"785,00406206692 ",.01)
  1. ;;00406206692
  1. ;;9002226.02101,"785,00406206692 ",.02)
  1. ;;00406206692
  1. ;;9002226.02101,"785,00406206703 ",.01)
  1. ;;00406206703
  1. ;;9002226.02101,"785,00406206703 ",.02)
  1. ;;00406206703
  1. ;;9002226.02101,"785,00406206705 ",.01)
  1. ;;00406206705
  1. ;;9002226.02101,"785,00406206705 ",.02)
  1. ;;00406206705
  1. ;;9002226.02101,"785,00406206710 ",.01)
  1. ;;00406206710
  1. ;;9002226.02101,"785,00406206710 ",.02)
  1. ;;00406206710
  1. ;;9002226.02101,"785,00406206760 ",.01)
  1. ;;00406206760
  1. ;;9002226.02101,"785,00406206760 ",.02)
  1. ;;00406206760
  1. ;;9002226.02101,"785,00406206790 ",.01)
  1. ;;00406206790
  1. ;;9002226.02101,"785,00406206790 ",.02)
  1. ;;00406206790
  1. ;;9002226.02101,"785,00406206792 ",.01)
  1. ;;00406206792
  1. ;;9002226.02101,"785,00406206792 ",.02)
  1. ;;00406206792
  1. ;;9002226.02101,"785,00406206803 ",.01)
  1. ;;00406206803
  1. ;;9002226.02101,"785,00406206803 ",.02)
  1. ;;00406206803
  1. ;;9002226.02101,"785,00406206805 ",.01)
  1. ;;00406206805
  1. ;;9002226.02101,"785,00406206805 ",.02)
  1. ;;00406206805
  1. ;;9002226.02101,"785,00406206810 ",.01)
  1. ;;00406206810
  1. ;;9002226.02101,"785,00406206810 ",.02)
  1. ;;00406206810