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

BGPM5AHN.m

Go to the documentation of this file.
BGPM5AHN ;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,65862004301 ",.02)
 ;;65862004301
 ;;9002226.02101,"882,65862004305 ",.01)
 ;;65862004305
 ;;9002226.02101,"882,65862004305 ",.02)
 ;;65862004305
 ;;9002226.02101,"882,65862004319 ",.01)
 ;;65862004319
 ;;9002226.02101,"882,65862004319 ",.02)
 ;;65862004319
 ;;9002226.02101,"882,65862004330 ",.01)
 ;;65862004330
 ;;9002226.02101,"882,65862004330 ",.02)
 ;;65862004330
 ;;9002226.02101,"882,65862004399 ",.01)
 ;;65862004399
 ;;9002226.02101,"882,65862004399 ",.02)
 ;;65862004399
 ;;9002226.02101,"882,65862004400 ",.01)
 ;;65862004400
 ;;9002226.02101,"882,65862004400 ",.02)
 ;;65862004400
 ;;9002226.02101,"882,65862004401 ",.01)
 ;;65862004401
 ;;9002226.02101,"882,65862004401 ",.02)
 ;;65862004401
 ;;9002226.02101,"882,65862004405 ",.01)
 ;;65862004405
 ;;9002226.02101,"882,65862004405 ",.02)
 ;;65862004405
 ;;9002226.02101,"882,65862004430 ",.01)
 ;;65862004430
 ;;9002226.02101,"882,65862004430 ",.02)
 ;;65862004430
 ;;9002226.02101,"882,65862004459 ",.01)
 ;;65862004459
 ;;9002226.02101,"882,65862004459 ",.02)
 ;;65862004459
 ;;9002226.02101,"882,65862004499 ",.01)
 ;;65862004499
 ;;9002226.02101,"882,65862004499 ",.02)
 ;;65862004499
 ;;9002226.02101,"882,65862004500 ",.01)
 ;;65862004500
 ;;9002226.02101,"882,65862004500 ",.02)
 ;;65862004500
 ;;9002226.02101,"882,65862004501 ",.01)
 ;;65862004501
 ;;9002226.02101,"882,65862004501 ",.02)
 ;;65862004501
 ;;9002226.02101,"882,65862004505 ",.01)
 ;;65862004505
 ;;9002226.02101,"882,65862004505 ",.02)
 ;;65862004505
 ;;9002226.02101,"882,65862004530 ",.01)
 ;;65862004530
 ;;9002226.02101,"882,65862004530 ",.02)
 ;;65862004530
 ;;9002226.02101,"882,65862004559 ",.01)
 ;;65862004559
 ;;9002226.02101,"882,65862004559 ",.02)
 ;;65862004559
 ;;9002226.02101,"882,65862004599 ",.01)
 ;;65862004599
 ;;9002226.02101,"882,65862004599 ",.02)
 ;;65862004599
 ;;9002226.02101,"882,65862016171 ",.01)
 ;;65862016171
 ;;9002226.02101,"882,65862016171 ",.02)
 ;;65862016171
 ;;9002226.02101,"882,65862016190 ",.01)
 ;;65862016190
 ;;9002226.02101,"882,65862016190 ",.02)
 ;;65862016190
 ;;9002226.02101,"882,65862016230 ",.01)
 ;;65862016230
 ;;9002226.02101,"882,65862016230 ",.02)
 ;;65862016230
 ;;9002226.02101,"882,65862016259 ",.01)
 ;;65862016259
 ;;9002226.02101,"882,65862016259 ",.02)
 ;;65862016259
 ;;9002226.02101,"882,65862016290 ",.01)
 ;;65862016290
 ;;9002226.02101,"882,65862016290 ",.02)
 ;;65862016290
 ;;9002226.02101,"882,65862016359 ",.01)
 ;;65862016359
 ;;9002226.02101,"882,65862016359 ",.02)
 ;;65862016359
 ;;9002226.02101,"882,65862016390 ",.01)
 ;;65862016390
 ;;9002226.02101,"882,65862016390 ",.02)
 ;;65862016390
 ;;9002226.02101,"882,65862016401 ",.01)
 ;;65862016401
 ;;9002226.02101,"882,65862016401 ",.02)
 ;;65862016401
 ;;9002226.02101,"882,65862016453 ",.01)
 ;;65862016453
 ;;9002226.02101,"882,65862016453 ",.02)
 ;;65862016453
 ;;9002226.02101,"882,65862016499 ",.01)
 ;;65862016499
 ;;9002226.02101,"882,65862016499 ",.02)
 ;;65862016499
 ;;9002226.02101,"882,65862016501 ",.01)
 ;;65862016501
 ;;9002226.02101,"882,65862016501 ",.02)
 ;;65862016501
 ;;9002226.02101,"882,65862016581 ",.01)
 ;;65862016581
 ;;9002226.02101,"882,65862016581 ",.02)
 ;;65862016581
 ;;9002226.02101,"882,65862016599 ",.01)
 ;;65862016599
 ;;9002226.02101,"882,65862016599 ",.02)
 ;;65862016599
 ;;9002226.02101,"882,65862028601 ",.01)
 ;;65862028601
 ;;9002226.02101,"882,65862028601 ",.02)
 ;;65862028601
 ;;9002226.02101,"882,65862028653 ",.01)
 ;;65862028653
 ;;9002226.02101,"882,65862028653 ",.02)
 ;;65862028653
 ;;9002226.02101,"882,65862028701 ",.01)
 ;;65862028701
 ;;9002226.02101,"882,65862028701 ",.02)
 ;;65862028701
 ;;9002226.02101,"882,65862028719 ",.01)
 ;;65862028719
 ;;9002226.02101,"882,65862028719 ",.02)
 ;;65862028719
 ;;9002226.02101,"882,65862028801 ",.01)
 ;;65862028801
 ;;9002226.02101,"882,65862028801 ",.02)
 ;;65862028801
 ;;9002226.02101,"882,65862028859 ",.01)
 ;;65862028859
 ;;9002226.02101,"882,65862028859 ",.02)
 ;;65862028859
 ;;9002226.02101,"882,65862030801 ",.01)
 ;;65862030801
 ;;9002226.02101,"882,65862030801 ",.02)
 ;;65862030801
 ;;9002226.02101,"882,65862030830 ",.01)
 ;;65862030830
 ;;9002226.02101,"882,65862030830 ",.02)
 ;;65862030830
 ;;9002226.02101,"882,65862030849 ",.01)
 ;;65862030849
 ;;9002226.02101,"882,65862030849 ",.02)
 ;;65862030849
 ;;9002226.02101,"882,65862030899 ",.01)
 ;;65862030899
 ;;9002226.02101,"882,65862030899 ",.02)
 ;;65862030899
 ;;9002226.02101,"882,65862030901 ",.01)
 ;;65862030901
 ;;9002226.02101,"882,65862030901 ",.02)
 ;;65862030901
 ;;9002226.02101,"882,65862030926 ",.01)
 ;;65862030926
 ;;9002226.02101,"882,65862030926 ",.02)
 ;;65862030926
 ;;9002226.02101,"882,65862030930 ",.01)
 ;;65862030930
 ;;9002226.02101,"882,65862030930 ",.02)
 ;;65862030930
 ;;9002226.02101,"882,65862030999 ",.01)
 ;;65862030999
 ;;9002226.02101,"882,65862030999 ",.02)
 ;;65862030999
 ;;9002226.02101,"882,65862047130 ",.01)
 ;;65862047130
 ;;9002226.02101,"882,65862047130 ",.02)
 ;;65862047130
 ;;9002226.02101,"882,65862047149 ",.01)
 ;;65862047149
 ;;9002226.02101,"882,65862047149 ",.02)
 ;;65862047149
 ;;9002226.02101,"882,65862047190 ",.01)
 ;;65862047190
 ;;9002226.02101,"882,65862047190 ",.02)
 ;;65862047190
 ;;9002226.02101,"882,65862047199 ",.01)
 ;;65862047199
 ;;9002226.02101,"882,65862047199 ",.02)
 ;;65862047199
 ;;9002226.02101,"882,65862047230 ",.01)
 ;;65862047230
 ;;9002226.02101,"882,65862047230 ",.02)
 ;;65862047230
 ;;9002226.02101,"882,65862047239 ",.01)
 ;;65862047239
 ;;9002226.02101,"882,65862047239 ",.02)
 ;;65862047239
 ;;9002226.02101,"882,65862047290 ",.01)
 ;;65862047290
 ;;9002226.02101,"882,65862047290 ",.02)
 ;;65862047290
 ;;9002226.02101,"882,65862047299 ",.01)
 ;;65862047299
 ;;9002226.02101,"882,65862047299 ",.02)
 ;;65862047299
 ;;9002226.02101,"882,65862047322 ",.01)
 ;;65862047322
 ;;9002226.02101,"882,65862047322 ",.02)
 ;;65862047322
 ;;9002226.02101,"882,65862047330 ",.01)
 ;;65862047330
 ;;9002226.02101,"882,65862047330 ",.02)
 ;;65862047330
 ;;9002226.02101,"882,65862047390 ",.01)
 ;;65862047390
 ;;9002226.02101,"882,65862047390 ",.02)
 ;;65862047390
 ;;9002226.02101,"882,65862047399 ",.01)
 ;;65862047399
 ;;9002226.02101,"882,65862047399 ",.02)
 ;;65862047399
 ;;9002226.02101,"882,65862047401 ",.01)
 ;;65862047401
 ;;9002226.02101,"882,65862047401 ",.02)
 ;;65862047401
 ;;9002226.02101,"882,65862047410 ",.01)
 ;;65862047410
 ;;9002226.02101,"882,65862047410 ",.02)
 ;;65862047410
 ;;9002226.02101,"882,65862047430 ",.01)
 ;;65862047430
 ;;9002226.02101,"882,65862047430 ",.02)
 ;;65862047430
 ;;9002226.02101,"882,65862047449 ",.01)
 ;;65862047449
 ;;9002226.02101,"882,65862047449 ",.02)
 ;;65862047449
 ;;9002226.02101,"882,65862047499 ",.01)
 ;;65862047499
 ;;9002226.02101,"882,65862047499 ",.02)
 ;;65862047499
 ;;9002226.02101,"882,65862047501 ",.01)
 ;;65862047501
 ;;9002226.02101,"882,65862047501 ",.02)
 ;;65862047501
 ;;9002226.02101,"882,65862047510 ",.01)
 ;;65862047510
 ;;9002226.02101,"882,65862047510 ",.02)
 ;;65862047510
 ;;9002226.02101,"882,65862047530 ",.01)
 ;;65862047530
 ;;9002226.02101,"882,65862047530 ",.02)
 ;;65862047530
 ;;9002226.02101,"882,65862047549 ",.01)
 ;;65862047549
 ;;9002226.02101,"882,65862047549 ",.02)
 ;;65862047549
 ;;9002226.02101,"882,65862047599 ",.01)
 ;;65862047599
 ;;9002226.02101,"882,65862047599 ",.02)
 ;;65862047599
 ;;9002226.02101,"882,65862047601 ",.01)
 ;;65862047601
 ;;9002226.02101,"882,65862047601 ",.02)
 ;;65862047601
 ;;9002226.02101,"882,65862047610 ",.01)
 ;;65862047610
 ;;9002226.02101,"882,65862047610 ",.02)
 ;;65862047610
 ;;9002226.02101,"882,65862047630 ",.01)
 ;;65862047630
 ;;9002226.02101,"882,65862047630 ",.02)
 ;;65862047630
 ;;9002226.02101,"882,65862047649 ",.01)
 ;;65862047649
 ;;9002226.02101,"882,65862047649 ",.02)
 ;;65862047649
 ;;9002226.02101,"882,65862047699 ",.01)
 ;;65862047699
 ;;9002226.02101,"882,65862047699 ",.02)
 ;;65862047699
 ;;9002226.02101,"882,65862047701 ",.01)
 ;;65862047701
 ;;9002226.02101,"882,65862047701 ",.02)
 ;;65862047701
 ;;9002226.02101,"882,65862047710 ",.01)
 ;;65862047710
 ;;9002226.02101,"882,65862047710 ",.02)
 ;;65862047710
 ;;9002226.02101,"882,65862047730 ",.01)
 ;;65862047730
 ;;9002226.02101,"882,65862047730 ",.02)
 ;;65862047730
 ;;9002226.02101,"882,65862047749 ",.01)
 ;;65862047749
 ;;9002226.02101,"882,65862047749 ",.02)
 ;;65862047749
 ;;9002226.02101,"882,65862047799 ",.01)
 ;;65862047799
 ;;9002226.02101,"882,65862047799 ",.02)
 ;;65862047799
 ;;9002226.02101,"882,66003010101 ",.01)
 ;;66003010101
 ;;9002226.02101,"882,66003010101 ",.02)
 ;;66003010101
 ;;9002226.02101,"882,66003010301 ",.01)
 ;;66003010301
 ;;9002226.02101,"882,66003010301 ",.02)
 ;;66003010301
 ;;9002226.02101,"882,66003010401 ",.01)
 ;;66003010401
 ;;9002226.02101,"882,66003010401 ",.02)
 ;;66003010401
 ;;9002226.02101,"882,66003010601 ",.01)
 ;;66003010601
 ;;9002226.02101,"882,66003010601 ",.02)
 ;;66003010601
 ;;9002226.02101,"882,66003010701 ",.01)
 ;;66003010701
 ;;9002226.02101,"882,66003010701 ",.02)
 ;;66003010701
 ;;9002226.02101,"882,66105066602 ",.01)
 ;;66105066602
 ;;9002226.02101,"882,66105066602 ",.02)
 ;;66105066602
 ;;9002226.02101,"882,66105066603 ",.01)
 ;;66105066603
 ;;9002226.02101,"882,66105066603 ",.02)
 ;;66105066603
 ;;9002226.02101,"882,66105066606 ",.01)
 ;;66105066606
 ;;9002226.02101,"882,66105066606 ",.02)
 ;;66105066606
 ;;9002226.02101,"882,66105066609 ",.01)
 ;;66105066609
 ;;9002226.02101,"882,66105066609 ",.02)
 ;;66105066609
 ;;9002226.02101,"882,66105066610 ",.01)
 ;;66105066610
 ;;9002226.02101,"882,66105066610 ",.02)
 ;;66105066610
 ;;9002226.02101,"882,66105069402 ",.01)
 ;;66105069402
 ;;9002226.02101,"882,66105069402 ",.02)
 ;;66105069402
 ;;9002226.02101,"882,66105069403 ",.01)
 ;;66105069403
 ;;9002226.02101,"882,66105069403 ",.02)
 ;;66105069403
 ;;9002226.02101,"882,66105069406 ",.01)
 ;;66105069406
 ;;9002226.02101,"882,66105069406 ",.02)
 ;;66105069406
 ;;9002226.02101,"882,66105069409 ",.01)
 ;;66105069409
 ;;9002226.02101,"882,66105069409 ",.02)
 ;;66105069409
 ;;9002226.02101,"882,66105069410 ",.01)
 ;;66105069410
 ;;9002226.02101,"882,66105069410 ",.02)
 ;;66105069410
 ;;9002226.02101,"882,66105069502 ",.01)
 ;;66105069502
 ;;9002226.02101,"882,66105069502 ",.02)
 ;;66105069502
 ;;9002226.02101,"882,66105069503 ",.01)
 ;;66105069503
 ;;9002226.02101,"882,66105069503 ",.02)
 ;;66105069503
 ;;9002226.02101,"882,66105069506 ",.01)
 ;;66105069506
 ;;9002226.02101,"882,66105069506 ",.02)
 ;;66105069506
 ;;9002226.02101,"882,66105069509 ",.01)
 ;;66105069509
 ;;9002226.02101,"882,66105069509 ",.02)
 ;;66105069509
 ;;9002226.02101,"882,66105069510 ",.01)
 ;;66105069510
 ;;9002226.02101,"882,66105069510 ",.02)
 ;;66105069510
 ;;9002226.02101,"882,66105078223 ",.01)
 ;;66105078223
 ;;9002226.02101,"882,66105078223 ",.02)
 ;;66105078223
 ;;9002226.02101,"882,66116030030 ",.01)
 ;;66116030030
 ;;9002226.02101,"882,66116030030 ",.02)
 ;;66116030030
 ;;9002226.02101,"882,66116030430 ",.01)
 ;;66116030430
 ;;9002226.02101,"882,66116030430 ",.02)
 ;;66116030430
 ;;9002226.02101,"882,66116031030 ",.01)
 ;;66116031030
 ;;9002226.02101,"882,66116031030 ",.02)
 ;;66116031030
 ;;9002226.02101,"882,66116032530 ",.01)
 ;;66116032530
 ;;9002226.02101,"882,66116032530 ",.02)
 ;;66116032530
 ;;9002226.02101,"882,66116032630 ",.01)
 ;;66116032630
 ;;9002226.02101,"882,66116032630 ",.02)
 ;;66116032630
 ;;9002226.02101,"882,66116050030 ",.01)
 ;;66116050030