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

BGPM5ASF.m

Go to the documentation of this file.
BGPM5ASF ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,65243009303 ",.02)
 ;;65243009303
 ;;9002226.02101,"1005,65243009306 ",.01)
 ;;65243009306
 ;;9002226.02101,"1005,65243009306 ",.02)
 ;;65243009306
 ;;9002226.02101,"1005,65243009403 ",.01)
 ;;65243009403
 ;;9002226.02101,"1005,65243009403 ",.02)
 ;;65243009403
 ;;9002226.02101,"1005,65243009406 ",.01)
 ;;65243009406
 ;;9002226.02101,"1005,65243009406 ",.02)
 ;;65243009406
 ;;9002226.02101,"1005,65243012103 ",.01)
 ;;65243012103
 ;;9002226.02101,"1005,65243012103 ",.02)
 ;;65243012103
 ;;9002226.02101,"1005,65243012109 ",.01)
 ;;65243012109
 ;;9002226.02101,"1005,65243012109 ",.02)
 ;;65243012109
 ;;9002226.02101,"1005,65243012145 ",.01)
 ;;65243012145
 ;;9002226.02101,"1005,65243012145 ",.02)
 ;;65243012145
 ;;9002226.02101,"1005,65243030303 ",.01)
 ;;65243030303
 ;;9002226.02101,"1005,65243030303 ",.02)
 ;;65243030303
 ;;9002226.02101,"1005,65243030306 ",.01)
 ;;65243030306
 ;;9002226.02101,"1005,65243030306 ",.02)
 ;;65243030306
 ;;9002226.02101,"1005,65243030309 ",.01)
 ;;65243030309
 ;;9002226.02101,"1005,65243030309 ",.02)
 ;;65243030309
 ;;9002226.02101,"1005,65243030312 ",.01)
 ;;65243030312
 ;;9002226.02101,"1005,65243030312 ",.02)
 ;;65243030312
 ;;9002226.02101,"1005,65243030318 ",.01)
 ;;65243030318
 ;;9002226.02101,"1005,65243030318 ",.02)
 ;;65243030318
 ;;9002226.02101,"1005,65243031403 ",.01)
 ;;65243031403
 ;;9002226.02101,"1005,65243031403 ",.02)
 ;;65243031403
 ;;9002226.02101,"1005,65243031406 ",.01)
 ;;65243031406
 ;;9002226.02101,"1005,65243031406 ",.02)
 ;;65243031406
 ;;9002226.02101,"1005,65243031409 ",.01)
 ;;65243031409
 ;;9002226.02101,"1005,65243031409 ",.02)
 ;;65243031409
 ;;9002226.02101,"1005,65243031412 ",.01)
 ;;65243031412
 ;;9002226.02101,"1005,65243031412 ",.02)
 ;;65243031412
 ;;9002226.02101,"1005,65243031445 ",.01)
 ;;65243031445
 ;;9002226.02101,"1005,65243031445 ",.02)
 ;;65243031445
 ;;9002226.02101,"1005,65243034103 ",.01)
 ;;65243034103
 ;;9002226.02101,"1005,65243034103 ",.02)
 ;;65243034103
 ;;9002226.02101,"1005,65243034106 ",.01)
 ;;65243034106
 ;;9002226.02101,"1005,65243034106 ",.02)
 ;;65243034106
 ;;9002226.02101,"1005,65243034109 ",.01)
 ;;65243034109
 ;;9002226.02101,"1005,65243034109 ",.02)
 ;;65243034109
 ;;9002226.02101,"1005,65243034112 ",.01)
 ;;65243034112
 ;;9002226.02101,"1005,65243034112 ",.02)
 ;;65243034112
 ;;9002226.02101,"1005,65243034145 ",.01)
 ;;65243034145
 ;;9002226.02101,"1005,65243034145 ",.02)
 ;;65243034145
 ;;9002226.02101,"1005,65427001901 ",.01)
 ;;65427001901
 ;;9002226.02101,"1005,65427001901 ",.02)
 ;;65427001901
 ;;9002226.02101,"1005,65427002001 ",.01)
 ;;65427002001
 ;;9002226.02101,"1005,65427002001 ",.02)
 ;;65427002001
 ;;9002226.02101,"1005,65427002101 ",.01)
 ;;65427002101
 ;;9002226.02101,"1005,65427002101 ",.02)
 ;;65427002101
 ;;9002226.02101,"1005,65427002201 ",.01)
 ;;65427002201
 ;;9002226.02101,"1005,65427002201 ",.02)
 ;;65427002201
 ;;9002226.02101,"1005,65427052723 ",.01)
 ;;65427052723
 ;;9002226.02101,"1005,65427052723 ",.02)
 ;;65427052723
 ;;9002226.02101,"1005,65427052740 ",.01)
 ;;65427052740
 ;;9002226.02101,"1005,65427052740 ",.02)
 ;;65427052740
 ;;9002226.02101,"1005,65427052798 ",.01)
 ;;65427052798
 ;;9002226.02101,"1005,65427052798 ",.02)
 ;;65427052798
 ;;9002226.02101,"1005,65427053023 ",.01)
 ;;65427053023
 ;;9002226.02101,"1005,65427053023 ",.02)
 ;;65427053023
 ;;9002226.02101,"1005,65427053040 ",.01)
 ;;65427053040
 ;;9002226.02101,"1005,65427053040 ",.02)
 ;;65427053040
 ;;9002226.02101,"1005,65427053099 ",.01)
 ;;65427053099
 ;;9002226.02101,"1005,65427053099 ",.02)
 ;;65427053099
 ;;9002226.02101,"1005,65427053223 ",.01)
 ;;65427053223
 ;;9002226.02101,"1005,65427053223 ",.02)
 ;;65427053223
 ;;9002226.02101,"1005,65427053240 ",.01)
 ;;65427053240
 ;;9002226.02101,"1005,65427053240 ",.02)
 ;;65427053240
 ;;9002226.02101,"1005,65427053299 ",.01)
 ;;65427053299
 ;;9002226.02101,"1005,65427053299 ",.02)
 ;;65427053299
 ;;9002226.02101,"1005,65597010130 ",.01)
 ;;65597010130
 ;;9002226.02101,"1005,65597010130 ",.02)
 ;;65597010130
 ;;9002226.02101,"1005,65597010310 ",.01)
 ;;65597010310
 ;;9002226.02101,"1005,65597010310 ",.02)
 ;;65597010310
 ;;9002226.02101,"1005,65597010330 ",.01)
 ;;65597010330
 ;;9002226.02101,"1005,65597010330 ",.02)
 ;;65597010330
 ;;9002226.02101,"1005,65597010377 ",.01)
 ;;65597010377
 ;;9002226.02101,"1005,65597010377 ",.02)
 ;;65597010377
 ;;9002226.02101,"1005,65597010390 ",.01)
 ;;65597010390
 ;;9002226.02101,"1005,65597010390 ",.02)
 ;;65597010390
 ;;9002226.02101,"1005,65597010410 ",.01)
 ;;65597010410
 ;;9002226.02101,"1005,65597010410 ",.02)
 ;;65597010410
 ;;9002226.02101,"1005,65597010430 ",.01)
 ;;65597010430
 ;;9002226.02101,"1005,65597010430 ",.02)
 ;;65597010430
 ;;9002226.02101,"1005,65597010477 ",.01)
 ;;65597010477
 ;;9002226.02101,"1005,65597010477 ",.02)
 ;;65597010477
 ;;9002226.02101,"1005,65597010490 ",.01)
 ;;65597010490
 ;;9002226.02101,"1005,65597010490 ",.02)
 ;;65597010490
 ;;9002226.02101,"1005,65597010501 ",.01)
 ;;65597010501
 ;;9002226.02101,"1005,65597010501 ",.02)
 ;;65597010501
 ;;9002226.02101,"1005,65597010507 ",.01)
 ;;65597010507
 ;;9002226.02101,"1005,65597010507 ",.02)
 ;;65597010507
 ;;9002226.02101,"1005,65597010510 ",.01)
 ;;65597010510
 ;;9002226.02101,"1005,65597010510 ",.02)
 ;;65597010510
 ;;9002226.02101,"1005,65597010511 ",.01)
 ;;65597010511
 ;;9002226.02101,"1005,65597010511 ",.02)
 ;;65597010511
 ;;9002226.02101,"1005,65597010530 ",.01)
 ;;65597010530
 ;;9002226.02101,"1005,65597010530 ",.02)
 ;;65597010530
 ;;9002226.02101,"1005,65597010550 ",.01)
 ;;65597010550
 ;;9002226.02101,"1005,65597010550 ",.02)
 ;;65597010550
 ;;9002226.02101,"1005,65597010590 ",.01)
 ;;65597010590
 ;;9002226.02101,"1005,65597010590 ",.02)
 ;;65597010590
 ;;9002226.02101,"1005,65597010601 ",.01)
 ;;65597010601
 ;;9002226.02101,"1005,65597010601 ",.02)
 ;;65597010601
 ;;9002226.02101,"1005,65597010607 ",.01)
 ;;65597010607
 ;;9002226.02101,"1005,65597010607 ",.02)
 ;;65597010607
 ;;9002226.02101,"1005,65597010610 ",.01)
 ;;65597010610
 ;;9002226.02101,"1005,65597010610 ",.02)
 ;;65597010610
 ;;9002226.02101,"1005,65597010611 ",.01)
 ;;65597010611
 ;;9002226.02101,"1005,65597010611 ",.02)
 ;;65597010611
 ;;9002226.02101,"1005,65597010630 ",.01)
 ;;65597010630
 ;;9002226.02101,"1005,65597010630 ",.02)
 ;;65597010630
 ;;9002226.02101,"1005,65597010650 ",.01)
 ;;65597010650
 ;;9002226.02101,"1005,65597010650 ",.02)
 ;;65597010650
 ;;9002226.02101,"1005,65597010690 ",.01)
 ;;65597010690
 ;;9002226.02101,"1005,65597010690 ",.02)
 ;;65597010690
 ;;9002226.02101,"1005,65597010701 ",.01)
 ;;65597010701
 ;;9002226.02101,"1005,65597010701 ",.02)
 ;;65597010701
 ;;9002226.02101,"1005,65597010707 ",.01)
 ;;65597010707
 ;;9002226.02101,"1005,65597010707 ",.02)
 ;;65597010707
 ;;9002226.02101,"1005,65597010710 ",.01)
 ;;65597010710
 ;;9002226.02101,"1005,65597010710 ",.02)
 ;;65597010710
 ;;9002226.02101,"1005,65597010711 ",.01)
 ;;65597010711
 ;;9002226.02101,"1005,65597010711 ",.02)
 ;;65597010711
 ;;9002226.02101,"1005,65597010730 ",.01)
 ;;65597010730
 ;;9002226.02101,"1005,65597010730 ",.02)
 ;;65597010730
 ;;9002226.02101,"1005,65597010750 ",.01)
 ;;65597010750
 ;;9002226.02101,"1005,65597010750 ",.02)
 ;;65597010750
 ;;9002226.02101,"1005,65597010790 ",.01)
 ;;65597010790
 ;;9002226.02101,"1005,65597010790 ",.02)
 ;;65597010790
 ;;9002226.02101,"1005,65862003700 ",.01)
 ;;65862003700
 ;;9002226.02101,"1005,65862003700 ",.02)
 ;;65862003700
 ;;9002226.02101,"1005,65862003701 ",.01)
 ;;65862003701
 ;;9002226.02101,"1005,65862003701 ",.02)
 ;;65862003701
 ;;9002226.02101,"1005,65862003705 ",.01)
 ;;65862003705
 ;;9002226.02101,"1005,65862003705 ",.02)
 ;;65862003705
 ;;9002226.02101,"1005,65862003713 ",.01)
 ;;65862003713
 ;;9002226.02101,"1005,65862003713 ",.02)
 ;;65862003713
 ;;9002226.02101,"1005,65862003730 ",.01)
 ;;65862003730
 ;;9002226.02101,"1005,65862003730 ",.02)
 ;;65862003730
 ;;9002226.02101,"1005,65862003800 ",.01)
 ;;65862003800
 ;;9002226.02101,"1005,65862003800 ",.02)
 ;;65862003800
 ;;9002226.02101,"1005,65862003801 ",.01)
 ;;65862003801
 ;;9002226.02101,"1005,65862003801 ",.02)
 ;;65862003801
 ;;9002226.02101,"1005,65862003805 ",.01)
 ;;65862003805
 ;;9002226.02101,"1005,65862003805 ",.02)
 ;;65862003805
 ;;9002226.02101,"1005,65862003813 ",.01)
 ;;65862003813
 ;;9002226.02101,"1005,65862003813 ",.02)
 ;;65862003813
 ;;9002226.02101,"1005,65862003830 ",.01)
 ;;65862003830
 ;;9002226.02101,"1005,65862003830 ",.02)
 ;;65862003830
 ;;9002226.02101,"1005,65862003900 ",.01)
 ;;65862003900
 ;;9002226.02101,"1005,65862003900 ",.02)
 ;;65862003900
 ;;9002226.02101,"1005,65862003901 ",.01)
 ;;65862003901
 ;;9002226.02101,"1005,65862003901 ",.02)
 ;;65862003901
 ;;9002226.02101,"1005,65862003905 ",.01)
 ;;65862003905
 ;;9002226.02101,"1005,65862003905 ",.02)
 ;;65862003905
 ;;9002226.02101,"1005,65862003913 ",.01)
 ;;65862003913
 ;;9002226.02101,"1005,65862003913 ",.02)
 ;;65862003913
 ;;9002226.02101,"1005,65862003930 ",.01)
 ;;65862003930
 ;;9002226.02101,"1005,65862003930 ",.02)
 ;;65862003930
 ;;9002226.02101,"1005,65862004000 ",.01)
 ;;65862004000
 ;;9002226.02101,"1005,65862004000 ",.02)
 ;;65862004000
 ;;9002226.02101,"1005,65862004001 ",.01)
 ;;65862004001
 ;;9002226.02101,"1005,65862004001 ",.02)
 ;;65862004001
 ;;9002226.02101,"1005,65862004005 ",.01)
 ;;65862004005
 ;;9002226.02101,"1005,65862004005 ",.02)
 ;;65862004005
 ;;9002226.02101,"1005,65862004030 ",.01)
 ;;65862004030
 ;;9002226.02101,"1005,65862004030 ",.02)
 ;;65862004030
 ;;9002226.02101,"1005,65862004065 ",.01)
 ;;65862004065
 ;;9002226.02101,"1005,65862004065 ",.02)
 ;;65862004065
 ;;9002226.02101,"1005,65862004100 ",.01)
 ;;65862004100
 ;;9002226.02101,"1005,65862004100 ",.02)
 ;;65862004100
 ;;9002226.02101,"1005,65862004101 ",.01)
 ;;65862004101
 ;;9002226.02101,"1005,65862004101 ",.02)
 ;;65862004101
 ;;9002226.02101,"1005,65862004105 ",.01)
 ;;65862004105
 ;;9002226.02101,"1005,65862004105 ",.02)
 ;;65862004105
 ;;9002226.02101,"1005,65862004130 ",.01)
 ;;65862004130
 ;;9002226.02101,"1005,65862004130 ",.02)
 ;;65862004130
 ;;9002226.02101,"1005,65862004159 ",.01)
 ;;65862004159
 ;;9002226.02101,"1005,65862004159 ",.02)
 ;;65862004159
 ;;9002226.02101,"1005,65862004200 ",.01)
 ;;65862004200
 ;;9002226.02101,"1005,65862004200 ",.02)
 ;;65862004200
 ;;9002226.02101,"1005,65862004201 ",.01)
 ;;65862004201
 ;;9002226.02101,"1005,65862004201 ",.02)
 ;;65862004201
 ;;9002226.02101,"1005,65862004205 ",.01)
 ;;65862004205
 ;;9002226.02101,"1005,65862004205 ",.02)
 ;;65862004205
 ;;9002226.02101,"1005,65862004230 ",.01)
 ;;65862004230
 ;;9002226.02101,"1005,65862004230 ",.02)
 ;;65862004230
 ;;9002226.02101,"1005,65862004249 ",.01)
 ;;65862004249
 ;;9002226.02101,"1005,65862004249 ",.02)
 ;;65862004249
 ;;9002226.02101,"1005,65862004300 ",.01)
 ;;65862004300
 ;;9002226.02101,"1005,65862004300 ",.02)
 ;;65862004300
 ;;9002226.02101,"1005,65862004301 ",.01)
 ;;65862004301
 ;;9002226.02101,"1005,65862004301 ",.02)
 ;;65862004301
 ;;9002226.02101,"1005,65862004305 ",.01)
 ;;65862004305
 ;;9002226.02101,"1005,65862004305 ",.02)
 ;;65862004305
 ;;9002226.02101,"1005,65862004319 ",.01)
 ;;65862004319
 ;;9002226.02101,"1005,65862004319 ",.02)
 ;;65862004319
 ;;9002226.02101,"1005,65862004330 ",.01)
 ;;65862004330
 ;;9002226.02101,"1005,65862004330 ",.02)
 ;;65862004330
 ;;9002226.02101,"1005,65862004399 ",.01)
 ;;65862004399
 ;;9002226.02101,"1005,65862004399 ",.02)
 ;;65862004399