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