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

BGPM5AGP.m

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