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

BGPM5AQY.m

Go to the documentation of this file.
  1. BGPM5AQY ;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,48866070304 ",.01)
  1. ;;48866070304
  1. ;;9002226.02101,"1005,48866070304 ",.02)
  1. ;;48866070304
  1. ;;9002226.02101,"1005,48866070400 ",.01)
  1. ;;48866070400
  1. ;;9002226.02101,"1005,48866070400 ",.02)
  1. ;;48866070400
  1. ;;9002226.02101,"1005,48866070401 ",.01)
  1. ;;48866070401
  1. ;;9002226.02101,"1005,48866070401 ",.02)
  1. ;;48866070401
  1. ;;9002226.02101,"1005,48866070402 ",.01)
  1. ;;48866070402
  1. ;;9002226.02101,"1005,48866070402 ",.02)
  1. ;;48866070402
  1. ;;9002226.02101,"1005,48866070403 ",.01)
  1. ;;48866070403
  1. ;;9002226.02101,"1005,48866070403 ",.02)
  1. ;;48866070403
  1. ;;9002226.02101,"1005,48866070404 ",.01)
  1. ;;48866070404
  1. ;;9002226.02101,"1005,48866070404 ",.02)
  1. ;;48866070404
  1. ;;9002226.02101,"1005,48866070500 ",.01)
  1. ;;48866070500
  1. ;;9002226.02101,"1005,48866070500 ",.02)
  1. ;;48866070500
  1. ;;9002226.02101,"1005,48866070501 ",.01)
  1. ;;48866070501
  1. ;;9002226.02101,"1005,48866070501 ",.02)
  1. ;;48866070501
  1. ;;9002226.02101,"1005,48866070502 ",.01)
  1. ;;48866070502
  1. ;;9002226.02101,"1005,48866070502 ",.02)
  1. ;;48866070502
  1. ;;9002226.02101,"1005,48866070503 ",.01)
  1. ;;48866070503
  1. ;;9002226.02101,"1005,48866070503 ",.02)
  1. ;;48866070503
  1. ;;9002226.02101,"1005,48866070600 ",.01)
  1. ;;48866070600
  1. ;;9002226.02101,"1005,48866070600 ",.02)
  1. ;;48866070600
  1. ;;9002226.02101,"1005,48866070601 ",.01)
  1. ;;48866070601
  1. ;;9002226.02101,"1005,48866070601 ",.02)
  1. ;;48866070601
  1. ;;9002226.02101,"1005,48866070602 ",.01)
  1. ;;48866070602
  1. ;;9002226.02101,"1005,48866070602 ",.02)
  1. ;;48866070602
  1. ;;9002226.02101,"1005,48866070603 ",.01)
  1. ;;48866070603
  1. ;;9002226.02101,"1005,48866070603 ",.02)
  1. ;;48866070603
  1. ;;9002226.02101,"1005,48866070604 ",.01)
  1. ;;48866070604
  1. ;;9002226.02101,"1005,48866070604 ",.02)
  1. ;;48866070604
  1. ;;9002226.02101,"1005,49158050001 ",.01)
  1. ;;49158050001
  1. ;;9002226.02101,"1005,49158050001 ",.02)
  1. ;;49158050001
  1. ;;9002226.02101,"1005,49158050010 ",.01)
  1. ;;49158050010
  1. ;;9002226.02101,"1005,49158050010 ",.02)
  1. ;;49158050010
  1. ;;9002226.02101,"1005,49158050050 ",.01)
  1. ;;49158050050
  1. ;;9002226.02101,"1005,49158050050 ",.02)
  1. ;;49158050050
  1. ;;9002226.02101,"1005,49158050101 ",.01)
  1. ;;49158050101
  1. ;;9002226.02101,"1005,49158050101 ",.02)
  1. ;;49158050101
  1. ;;9002226.02101,"1005,49158050110 ",.01)
  1. ;;49158050110
  1. ;;9002226.02101,"1005,49158050110 ",.02)
  1. ;;49158050110
  1. ;;9002226.02101,"1005,49158050150 ",.01)
  1. ;;49158050150
  1. ;;9002226.02101,"1005,49158050150 ",.02)
  1. ;;49158050150
  1. ;;9002226.02101,"1005,49158050201 ",.01)
  1. ;;49158050201
  1. ;;9002226.02101,"1005,49158050201 ",.02)
  1. ;;49158050201
  1. ;;9002226.02101,"1005,49158050210 ",.01)
  1. ;;49158050210
  1. ;;9002226.02101,"1005,49158050210 ",.02)
  1. ;;49158050210
  1. ;;9002226.02101,"1005,49158050250 ",.01)
  1. ;;49158050250
  1. ;;9002226.02101,"1005,49158050250 ",.02)
  1. ;;49158050250
  1. ;;9002226.02101,"1005,49158050301 ",.01)
  1. ;;49158050301
  1. ;;9002226.02101,"1005,49158050301 ",.02)
  1. ;;49158050301
  1. ;;9002226.02101,"1005,49158050310 ",.01)
  1. ;;49158050310
  1. ;;9002226.02101,"1005,49158050310 ",.02)
  1. ;;49158050310
  1. ;;9002226.02101,"1005,49158050350 ",.01)
  1. ;;49158050350
  1. ;;9002226.02101,"1005,49158050350 ",.02)
  1. ;;49158050350
  1. ;;9002226.02101,"1005,49349001602 ",.01)
  1. ;;49349001602
  1. ;;9002226.02101,"1005,49349001602 ",.02)
  1. ;;49349001602
  1. ;;9002226.02101,"1005,49349006002 ",.01)
  1. ;;49349006002
  1. ;;9002226.02101,"1005,49349006002 ",.02)
  1. ;;49349006002
  1. ;;9002226.02101,"1005,49349006902 ",.01)
  1. ;;49349006902
  1. ;;9002226.02101,"1005,49349006902 ",.02)
  1. ;;49349006902
  1. ;;9002226.02101,"1005,49349012902 ",.01)
  1. ;;49349012902
  1. ;;9002226.02101,"1005,49349012902 ",.02)
  1. ;;49349012902
  1. ;;9002226.02101,"1005,49349014402 ",.01)
  1. ;;49349014402
  1. ;;9002226.02101,"1005,49349014402 ",.02)
  1. ;;49349014402
  1. ;;9002226.02101,"1005,49349015802 ",.01)
  1. ;;49349015802
  1. ;;9002226.02101,"1005,49349015802 ",.02)
  1. ;;49349015802
  1. ;;9002226.02101,"1005,49349015828 ",.01)
  1. ;;49349015828
  1. ;;9002226.02101,"1005,49349015828 ",.02)
  1. ;;49349015828
  1. ;;9002226.02101,"1005,49349016702 ",.01)
  1. ;;49349016702
  1. ;;9002226.02101,"1005,49349016702 ",.02)
  1. ;;49349016702
  1. ;;9002226.02101,"1005,49349020902 ",.01)
  1. ;;49349020902
  1. ;;9002226.02101,"1005,49349020902 ",.02)
  1. ;;49349020902
  1. ;;9002226.02101,"1005,49349024502 ",.01)
  1. ;;49349024502
  1. ;;9002226.02101,"1005,49349024502 ",.02)
  1. ;;49349024502
  1. ;;9002226.02101,"1005,49349024702 ",.01)
  1. ;;49349024702
  1. ;;9002226.02101,"1005,49349024702 ",.02)
  1. ;;49349024702
  1. ;;9002226.02101,"1005,49349024802 ",.01)
  1. ;;49349024802
  1. ;;9002226.02101,"1005,49349024802 ",.02)
  1. ;;49349024802
  1. ;;9002226.02101,"1005,49349025602 ",.01)
  1. ;;49349025602
  1. ;;9002226.02101,"1005,49349025602 ",.02)
  1. ;;49349025602
  1. ;;9002226.02101,"1005,49349028302 ",.01)
  1. ;;49349028302
  1. ;;9002226.02101,"1005,49349028302 ",.02)
  1. ;;49349028302
  1. ;;9002226.02101,"1005,49349030602 ",.01)
  1. ;;49349030602
  1. ;;9002226.02101,"1005,49349030602 ",.02)
  1. ;;49349030602
  1. ;;9002226.02101,"1005,49349031602 ",.01)
  1. ;;49349031602
  1. ;;9002226.02101,"1005,49349031602 ",.02)
  1. ;;49349031602
  1. ;;9002226.02101,"1005,49349037402 ",.01)
  1. ;;49349037402
  1. ;;9002226.02101,"1005,49349037402 ",.02)
  1. ;;49349037402
  1. ;;9002226.02101,"1005,49349039102 ",.01)
  1. ;;49349039102
  1. ;;9002226.02101,"1005,49349039102 ",.02)
  1. ;;49349039102
  1. ;;9002226.02101,"1005,49349054724 ",.01)
  1. ;;49349054724
  1. ;;9002226.02101,"1005,49349054724 ",.02)
  1. ;;49349054724
  1. ;;9002226.02101,"1005,49349054730 ",.01)
  1. ;;49349054730
  1. ;;9002226.02101,"1005,49349054730 ",.02)
  1. ;;49349054730
  1. ;;9002226.02101,"1005,49856000306 ",.01)
  1. ;;49856000306
  1. ;;9002226.02101,"1005,49856000306 ",.02)
  1. ;;49856000306
  1. ;;9002226.02101,"1005,49856000309 ",.01)
  1. ;;49856000309
  1. ;;9002226.02101,"1005,49856000309 ",.02)
  1. ;;49856000309
  1. ;;9002226.02101,"1005,49856000406 ",.01)
  1. ;;49856000406
  1. ;;9002226.02101,"1005,49856000406 ",.02)
  1. ;;49856000406
  1. ;;9002226.02101,"1005,49856000409 ",.01)
  1. ;;49856000409
  1. ;;9002226.02101,"1005,49856000409 ",.02)
  1. ;;49856000409
  1. ;;9002226.02101,"1005,49856000506 ",.01)
  1. ;;49856000506
  1. ;;9002226.02101,"1005,49856000506 ",.02)
  1. ;;49856000506
  1. ;;9002226.02101,"1005,49856000509 ",.01)
  1. ;;49856000509
  1. ;;9002226.02101,"1005,49856000509 ",.02)
  1. ;;49856000509
  1. ;;9002226.02101,"1005,49856000606 ",.01)
  1. ;;49856000606
  1. ;;9002226.02101,"1005,49856000606 ",.02)
  1. ;;49856000606
  1. ;;9002226.02101,"1005,49856000609 ",.01)
  1. ;;49856000609
  1. ;;9002226.02101,"1005,49856000609 ",.02)
  1. ;;49856000609
  1. ;;9002226.02101,"1005,49856017200 ",.01)
  1. ;;49856017200
  1. ;;9002226.02101,"1005,49856017200 ",.02)
  1. ;;49856017200
  1. ;;9002226.02101,"1005,49856017201 ",.01)
  1. ;;49856017201
  1. ;;9002226.02101,"1005,49856017201 ",.02)
  1. ;;49856017201
  1. ;;9002226.02101,"1005,49856017202 ",.01)
  1. ;;49856017202
  1. ;;9002226.02101,"1005,49856017202 ",.02)
  1. ;;49856017202
  1. ;;9002226.02101,"1005,49856017205 ",.01)
  1. ;;49856017205
  1. ;;9002226.02101,"1005,49856017205 ",.02)
  1. ;;49856017205
  1. ;;9002226.02101,"1005,49856017300 ",.01)
  1. ;;49856017300
  1. ;;9002226.02101,"1005,49856017300 ",.02)
  1. ;;49856017300
  1. ;;9002226.02101,"1005,49856017301 ",.01)
  1. ;;49856017301
  1. ;;9002226.02101,"1005,49856017301 ",.02)
  1. ;;49856017301
  1. ;;9002226.02101,"1005,49856017302 ",.01)
  1. ;;49856017302
  1. ;;9002226.02101,"1005,49856017302 ",.02)
  1. ;;49856017302
  1. ;;9002226.02101,"1005,49856017305 ",.01)
  1. ;;49856017305
  1. ;;9002226.02101,"1005,49856017305 ",.02)
  1. ;;49856017305
  1. ;;9002226.02101,"1005,49856017400 ",.01)
  1. ;;49856017400
  1. ;;9002226.02101,"1005,49856017400 ",.02)
  1. ;;49856017400
  1. ;;9002226.02101,"1005,49856017401 ",.01)
  1. ;;49856017401
  1. ;;9002226.02101,"1005,49856017401 ",.02)
  1. ;;49856017401
  1. ;;9002226.02101,"1005,49856017402 ",.01)
  1. ;;49856017402
  1. ;;9002226.02101,"1005,49856017402 ",.02)
  1. ;;49856017402
  1. ;;9002226.02101,"1005,49856017405 ",.01)
  1. ;;49856017405
  1. ;;9002226.02101,"1005,49856017405 ",.02)
  1. ;;49856017405
  1. ;;9002226.02101,"1005,49856017500 ",.01)
  1. ;;49856017500
  1. ;;9002226.02101,"1005,49856017500 ",.02)
  1. ;;49856017500
  1. ;;9002226.02101,"1005,49856017501 ",.01)
  1. ;;49856017501
  1. ;;9002226.02101,"1005,49856017501 ",.02)
  1. ;;49856017501
  1. ;;9002226.02101,"1005,49856017502 ",.01)
  1. ;;49856017502
  1. ;;9002226.02101,"1005,49856017502 ",.02)
  1. ;;49856017502
  1. ;;9002226.02101,"1005,49856017505 ",.01)
  1. ;;49856017505
  1. ;;9002226.02101,"1005,49856017505 ",.02)
  1. ;;49856017505
  1. ;;9002226.02101,"1005,49856018500 ",.01)
  1. ;;49856018500
  1. ;;9002226.02101,"1005,49856018500 ",.02)
  1. ;;49856018500
  1. ;;9002226.02101,"1005,49856018501 ",.01)
  1. ;;49856018501
  1. ;;9002226.02101,"1005,49856018501 ",.02)
  1. ;;49856018501
  1. ;;9002226.02101,"1005,49856018507 ",.01)
  1. ;;49856018507
  1. ;;9002226.02101,"1005,49856018507 ",.02)
  1. ;;49856018507
  1. ;;9002226.02101,"1005,49856018509 ",.01)
  1. ;;49856018509
  1. ;;9002226.02101,"1005,49856018509 ",.02)
  1. ;;49856018509
  1. ;;9002226.02101,"1005,49856018600 ",.01)
  1. ;;49856018600
  1. ;;9002226.02101,"1005,49856018600 ",.02)
  1. ;;49856018600
  1. ;;9002226.02101,"1005,49856018601 ",.01)
  1. ;;49856018601
  1. ;;9002226.02101,"1005,49856018601 ",.02)
  1. ;;49856018601
  1. ;;9002226.02101,"1005,49856018607 ",.01)
  1. ;;49856018607
  1. ;;9002226.02101,"1005,49856018607 ",.02)
  1. ;;49856018607
  1. ;;9002226.02101,"1005,49856018609 ",.01)
  1. ;;49856018609
  1. ;;9002226.02101,"1005,49856018609 ",.02)
  1. ;;49856018609
  1. ;;9002226.02101,"1005,49856018700 ",.01)
  1. ;;49856018700
  1. ;;9002226.02101,"1005,49856018700 ",.02)
  1. ;;49856018700
  1. ;;9002226.02101,"1005,49856018701 ",.01)
  1. ;;49856018701
  1. ;;9002226.02101,"1005,49856018701 ",.02)
  1. ;;49856018701
  1. ;;9002226.02101,"1005,49856018707 ",.01)
  1. ;;49856018707
  1. ;;9002226.02101,"1005,49856018707 ",.02)
  1. ;;49856018707
  1. ;;9002226.02101,"1005,49856018709 ",.01)
  1. ;;49856018709
  1. ;;9002226.02101,"1005,49856018709 ",.02)
  1. ;;49856018709
  1. ;;9002226.02101,"1005,49856018800 ",.01)
  1. ;;49856018800
  1. ;;9002226.02101,"1005,49856018800 ",.02)
  1. ;;49856018800
  1. ;;9002226.02101,"1005,49856018801 ",.01)
  1. ;;49856018801
  1. ;;9002226.02101,"1005,49856018801 ",.02)
  1. ;;49856018801
  1. ;;9002226.02101,"1005,49856018900 ",.01)
  1. ;;49856018900
  1. ;;9002226.02101,"1005,49856018900 ",.02)
  1. ;;49856018900
  1. ;;9002226.02101,"1005,49856018901 ",.01)
  1. ;;49856018901
  1. ;;9002226.02101,"1005,49856018901 ",.02)
  1. ;;49856018901
  1. ;;9002226.02101,"1005,49856018908 ",.01)
  1. ;;49856018908
  1. ;;9002226.02101,"1005,49856018908 ",.02)
  1. ;;49856018908
  1. ;;9002226.02101,"1005,49856018909 ",.01)
  1. ;;49856018909
  1. ;;9002226.02101,"1005,49856018909 ",.02)
  1. ;;49856018909
  1. ;;9002226.02101,"1005,49856020501 ",.01)
  1. ;;49856020501
  1. ;;9002226.02101,"1005,49856020501 ",.02)
  1. ;;49856020501
  1. ;;9002226.02101,"1005,49856020502 ",.01)
  1. ;;49856020502
  1. ;;9002226.02101,"1005,49856020502 ",.02)
  1. ;;49856020502
  1. ;;9002226.02101,"1005,49856020503 ",.01)
  1. ;;49856020503
  1. ;;9002226.02101,"1005,49856020503 ",.02)
  1. ;;49856020503
  1. ;;9002226.02101,"1005,49856020505 ",.01)
  1. ;;49856020505
  1. ;;9002226.02101,"1005,49856020505 ",.02)
  1. ;;49856020505
  1. ;;9002226.02101,"1005,49856020507 ",.01)
  1. ;;49856020507
  1. ;;9002226.02101,"1005,49856020507 ",.02)
  1. ;;49856020507
  1. ;;9002226.02101,"1005,49856020601 ",.01)
  1. ;;49856020601
  1. ;;9002226.02101,"1005,49856020601 ",.02)
  1. ;;49856020601
  1. ;;9002226.02101,"1005,49856020602 ",.01)
  1. ;;49856020602
  1. ;;9002226.02101,"1005,49856020602 ",.02)
  1. ;;49856020602
  1. ;;9002226.02101,"1005,49856020603 ",.01)
  1. ;;49856020603
  1. ;;9002226.02101,"1005,49856020603 ",.02)
  1. ;;49856020603
  1. ;;9002226.02101,"1005,49856020605 ",.01)
  1. ;;49856020605
  1. ;;9002226.02101,"1005,49856020605 ",.02)
  1. ;;49856020605
  1. ;;9002226.02101,"1005,49856020607 ",.01)
  1. ;;49856020607
  1. ;;9002226.02101,"1005,49856020607 ",.02)
  1. ;;49856020607
  1. ;;9002226.02101,"1005,49856020701 ",.01)
  1. ;;49856020701
  1. ;;9002226.02101,"1005,49856020701 ",.02)
  1. ;;49856020701
  1. ;;9002226.02101,"1005,49856020702 ",.01)
  1. ;;49856020702