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