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

BGPM5ADC.m

Go to the documentation of this file.
  1. BGPM5ADC ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"846,58016069196 ",.02)
  1. ;;58016069196
  1. ;;9002226.02101,"846,58016069197 ",.01)
  1. ;;58016069197
  1. ;;9002226.02101,"846,58016069197 ",.02)
  1. ;;58016069197
  1. ;;9002226.02101,"846,58016069198 ",.01)
  1. ;;58016069198
  1. ;;9002226.02101,"846,58016069198 ",.02)
  1. ;;58016069198
  1. ;;9002226.02101,"846,58016069199 ",.01)
  1. ;;58016069199
  1. ;;9002226.02101,"846,58016069199 ",.02)
  1. ;;58016069199
  1. ;;9002226.02101,"846,58016079630 ",.01)
  1. ;;58016079630
  1. ;;9002226.02101,"846,58016079630 ",.02)
  1. ;;58016079630
  1. ;;9002226.02101,"846,58016084400 ",.01)
  1. ;;58016084400
  1. ;;9002226.02101,"846,58016084400 ",.02)
  1. ;;58016084400
  1. ;;9002226.02101,"846,58016084430 ",.01)
  1. ;;58016084430
  1. ;;9002226.02101,"846,58016084430 ",.02)
  1. ;;58016084430
  1. ;;9002226.02101,"846,58016084460 ",.01)
  1. ;;58016084460
  1. ;;9002226.02101,"846,58016084460 ",.02)
  1. ;;58016084460
  1. ;;9002226.02101,"846,58016084490 ",.01)
  1. ;;58016084490
  1. ;;9002226.02101,"846,58016084490 ",.02)
  1. ;;58016084490
  1. ;;9002226.02101,"846,58016087600 ",.01)
  1. ;;58016087600
  1. ;;9002226.02101,"846,58016087600 ",.02)
  1. ;;58016087600
  1. ;;9002226.02101,"846,58016087610 ",.01)
  1. ;;58016087610
  1. ;;9002226.02101,"846,58016087610 ",.02)
  1. ;;58016087610
  1. ;;9002226.02101,"846,58016087612 ",.01)
  1. ;;58016087612
  1. ;;9002226.02101,"846,58016087612 ",.02)
  1. ;;58016087612
  1. ;;9002226.02101,"846,58016087614 ",.01)
  1. ;;58016087614
  1. ;;9002226.02101,"846,58016087614 ",.02)
  1. ;;58016087614
  1. ;;9002226.02101,"846,58016087615 ",.01)
  1. ;;58016087615
  1. ;;9002226.02101,"846,58016087615 ",.02)
  1. ;;58016087615
  1. ;;9002226.02101,"846,58016087620 ",.01)
  1. ;;58016087620
  1. ;;9002226.02101,"846,58016087620 ",.02)
  1. ;;58016087620
  1. ;;9002226.02101,"846,58016087621 ",.01)
  1. ;;58016087621
  1. ;;9002226.02101,"846,58016087621 ",.02)
  1. ;;58016087621
  1. ;;9002226.02101,"846,58016087624 ",.01)
  1. ;;58016087624
  1. ;;9002226.02101,"846,58016087624 ",.02)
  1. ;;58016087624
  1. ;;9002226.02101,"846,58016087628 ",.01)
  1. ;;58016087628
  1. ;;9002226.02101,"846,58016087628 ",.02)
  1. ;;58016087628
  1. ;;9002226.02101,"846,58016087630 ",.01)
  1. ;;58016087630
  1. ;;9002226.02101,"846,58016087630 ",.02)
  1. ;;58016087630
  1. ;;9002226.02101,"846,58016087640 ",.01)
  1. ;;58016087640
  1. ;;9002226.02101,"846,58016087640 ",.02)
  1. ;;58016087640
  1. ;;9002226.02101,"846,58016087650 ",.01)
  1. ;;58016087650
  1. ;;9002226.02101,"846,58016087650 ",.02)
  1. ;;58016087650
  1. ;;9002226.02101,"846,58016087660 ",.01)
  1. ;;58016087660
  1. ;;9002226.02101,"846,58016087660 ",.02)
  1. ;;58016087660
  1. ;;9002226.02101,"846,58864002714 ",.01)
  1. ;;58864002714
  1. ;;9002226.02101,"846,58864002714 ",.02)
  1. ;;58864002714
  1. ;;9002226.02101,"846,58864002730 ",.01)
  1. ;;58864002730
  1. ;;9002226.02101,"846,58864002730 ",.02)
  1. ;;58864002730
  1. ;;9002226.02101,"846,58864002760 ",.01)
  1. ;;58864002760
  1. ;;9002226.02101,"846,58864002760 ",.02)
  1. ;;58864002760
  1. ;;9002226.02101,"846,58864002790 ",.01)
  1. ;;58864002790
  1. ;;9002226.02101,"846,58864002790 ",.02)
  1. ;;58864002790
  1. ;;9002226.02101,"846,58864010030 ",.01)
  1. ;;58864010030
  1. ;;9002226.02101,"846,58864010030 ",.02)
  1. ;;58864010030
  1. ;;9002226.02101,"846,58864016130 ",.01)
  1. ;;58864016130
  1. ;;9002226.02101,"846,58864016130 ",.02)
  1. ;;58864016130
  1. ;;9002226.02101,"846,58864016160 ",.01)
  1. ;;58864016160
  1. ;;9002226.02101,"846,58864016160 ",.02)
  1. ;;58864016160
  1. ;;9002226.02101,"846,58864022430 ",.01)
  1. ;;58864022430
  1. ;;9002226.02101,"846,58864022430 ",.02)
  1. ;;58864022430
  1. ;;9002226.02101,"846,58864022460 ",.01)
  1. ;;58864022460
  1. ;;9002226.02101,"846,58864022460 ",.02)
  1. ;;58864022460
  1. ;;9002226.02101,"846,58864022493 ",.01)
  1. ;;58864022493
  1. ;;9002226.02101,"846,58864022493 ",.02)
  1. ;;58864022493
  1. ;;9002226.02101,"846,58864095230 ",.01)
  1. ;;58864095230
  1. ;;9002226.02101,"846,58864095230 ",.02)
  1. ;;58864095230
  1. ;;9002226.02101,"846,58864095330 ",.01)
  1. ;;58864095330
  1. ;;9002226.02101,"846,58864095330 ",.02)
  1. ;;58864095330
  1. ;;9002226.02101,"846,58864095630 ",.01)
  1. ;;58864095630
  1. ;;9002226.02101,"846,58864095630 ",.02)
  1. ;;58864095630
  1. ;;9002226.02101,"846,58864095730 ",.01)
  1. ;;58864095730
  1. ;;9002226.02101,"846,58864095730 ",.02)
  1. ;;58864095730
  1. ;;9002226.02101,"846,59115001201 ",.01)
  1. ;;59115001201
  1. ;;9002226.02101,"846,59115001201 ",.02)
  1. ;;59115001201
  1. ;;9002226.02101,"846,59115001210 ",.01)
  1. ;;59115001210
  1. ;;9002226.02101,"846,59115001210 ",.02)
  1. ;;59115001210
  1. ;;9002226.02101,"846,59115001255 ",.01)
  1. ;;59115001255
  1. ;;9002226.02101,"846,59115001255 ",.02)
  1. ;;59115001255
  1. ;;9002226.02101,"846,59115001299 ",.01)
  1. ;;59115001299
  1. ;;9002226.02101,"846,59115001299 ",.02)
  1. ;;59115001299
  1. ;;9002226.02101,"846,59115001301 ",.01)
  1. ;;59115001301
  1. ;;9002226.02101,"846,59115001301 ",.02)
  1. ;;59115001301
  1. ;;9002226.02101,"846,59115001310 ",.01)
  1. ;;59115001310
  1. ;;9002226.02101,"846,59115001310 ",.02)
  1. ;;59115001310
  1. ;;9002226.02101,"846,59115001355 ",.01)
  1. ;;59115001355
  1. ;;9002226.02101,"846,59115001355 ",.02)
  1. ;;59115001355
  1. ;;9002226.02101,"846,59115001399 ",.01)
  1. ;;59115001399
  1. ;;9002226.02101,"846,59115001399 ",.02)
  1. ;;59115001399
  1. ;;9002226.02101,"846,59115001401 ",.01)
  1. ;;59115001401
  1. ;;9002226.02101,"846,59115001401 ",.02)
  1. ;;59115001401
  1. ;;9002226.02101,"846,59115001455 ",.01)
  1. ;;59115001455
  1. ;;9002226.02101,"846,59115001455 ",.02)
  1. ;;59115001455
  1. ;;9002226.02101,"846,59115001499 ",.01)
  1. ;;59115001499
  1. ;;9002226.02101,"846,59115001499 ",.02)
  1. ;;59115001499
  1. ;;9002226.02101,"846,59762233003 ",.01)
  1. ;;59762233003
  1. ;;9002226.02101,"846,59762233003 ",.02)
  1. ;;59762233003
  1. ;;9002226.02101,"846,59762233005 ",.01)
  1. ;;59762233005
  1. ;;9002226.02101,"846,59762233005 ",.02)
  1. ;;59762233005
  1. ;;9002226.02101,"846,59762233007 ",.01)
  1. ;;59762233007
  1. ;;9002226.02101,"846,59762233007 ",.02)
  1. ;;59762233007
  1. ;;9002226.02101,"846,59762233103 ",.01)
  1. ;;59762233103
  1. ;;9002226.02101,"846,59762233103 ",.02)
  1. ;;59762233103
  1. ;;9002226.02101,"846,59762233106 ",.01)
  1. ;;59762233106
  1. ;;9002226.02101,"846,59762233106 ",.02)
  1. ;;59762233106
  1. ;;9002226.02101,"846,59762233108 ",.01)
  1. ;;59762233108
  1. ;;9002226.02101,"846,59762233108 ",.02)
  1. ;;59762233108
  1. ;;9002226.02101,"846,59762233203 ",.01)
  1. ;;59762233203
  1. ;;9002226.02101,"846,59762233203 ",.02)
  1. ;;59762233203
  1. ;;9002226.02101,"846,59762233206 ",.01)
  1. ;;59762233206
  1. ;;9002226.02101,"846,59762233206 ",.02)
  1. ;;59762233206
  1. ;;9002226.02101,"846,59762233208 ",.01)
  1. ;;59762233208
  1. ;;9002226.02101,"846,59762233208 ",.02)
  1. ;;59762233208
  1. ;;9002226.02101,"846,59762372501 ",.01)
  1. ;;59762372501
  1. ;;9002226.02101,"846,59762372501 ",.02)
  1. ;;59762372501
  1. ;;9002226.02101,"846,59762372603 ",.01)
  1. ;;59762372603
  1. ;;9002226.02101,"846,59762372603 ",.02)
  1. ;;59762372603
  1. ;;9002226.02101,"846,59762372704 ",.01)
  1. ;;59762372704
  1. ;;9002226.02101,"846,59762372704 ",.02)
  1. ;;59762372704
  1. ;;9002226.02101,"846,59762372706 ",.01)
  1. ;;59762372706
  1. ;;9002226.02101,"846,59762372706 ",.02)
  1. ;;59762372706
  1. ;;9002226.02101,"846,59762372707 ",.01)
  1. ;;59762372707
  1. ;;9002226.02101,"846,59762372707 ",.02)
  1. ;;59762372707
  1. ;;9002226.02101,"846,59762375704 ",.01)
  1. ;;59762375704
  1. ;;9002226.02101,"846,59762375704 ",.02)
  1. ;;59762375704
  1. ;;9002226.02101,"846,59762375706 ",.01)
  1. ;;59762375706
  1. ;;9002226.02101,"846,59762375706 ",.02)
  1. ;;59762375706
  1. ;;9002226.02101,"846,59762375707 ",.01)
  1. ;;59762375707
  1. ;;9002226.02101,"846,59762375707 ",.02)
  1. ;;59762375707
  1. ;;9002226.02101,"846,59762378101 ",.01)
  1. ;;59762378101
  1. ;;9002226.02101,"846,59762378101 ",.02)
  1. ;;59762378101
  1. ;;9002226.02101,"846,59762378201 ",.01)
  1. ;;59762378201
  1. ;;9002226.02101,"846,59762378201 ",.02)
  1. ;;59762378201
  1. ;;9002226.02101,"846,59762378203 ",.01)
  1. ;;59762378203
  1. ;;9002226.02101,"846,59762378203 ",.02)
  1. ;;59762378203
  1. ;;9002226.02101,"846,59762378301 ",.01)
  1. ;;59762378301
  1. ;;9002226.02101,"846,59762378301 ",.02)
  1. ;;59762378301
  1. ;;9002226.02101,"846,59762378302 ",.01)
  1. ;;59762378302
  1. ;;9002226.02101,"846,59762378302 ",.02)
  1. ;;59762378302
  1. ;;9002226.02101,"846,59762378303 ",.01)
  1. ;;59762378303
  1. ;;9002226.02101,"846,59762378303 ",.02)
  1. ;;59762378303
  1. ;;9002226.02101,"846,59762503101 ",.01)
  1. ;;59762503101
  1. ;;9002226.02101,"846,59762503101 ",.02)
  1. ;;59762503101
  1. ;;9002226.02101,"846,59762503201 ",.01)
  1. ;;59762503201
  1. ;;9002226.02101,"846,59762503201 ",.02)
  1. ;;59762503201
  1. ;;9002226.02101,"846,59762503202 ",.01)
  1. ;;59762503202
  1. ;;9002226.02101,"846,59762503202 ",.02)
  1. ;;59762503202
  1. ;;9002226.02101,"846,59762503301 ",.01)
  1. ;;59762503301
  1. ;;9002226.02101,"846,59762503301 ",.02)
  1. ;;59762503301
  1. ;;9002226.02101,"846,59762503302 ",.01)
  1. ;;59762503302
  1. ;;9002226.02101,"846,59762503302 ",.02)
  1. ;;59762503302
  1. ;;9002226.02101,"846,59762702009 ",.01)
  1. ;;59762702009
  1. ;;9002226.02101,"846,59762702009 ",.02)
  1. ;;59762702009
  1. ;;9002226.02101,"846,59762702101 ",.01)
  1. ;;59762702101
  1. ;;9002226.02101,"846,59762702101 ",.02)
  1. ;;59762702101
  1. ;;9002226.02101,"846,59762702105 ",.01)
  1. ;;59762702105
  1. ;;9002226.02101,"846,59762702105 ",.02)
  1. ;;59762702105
  1. ;;9002226.02101,"846,59762702109 ",.01)
  1. ;;59762702109
  1. ;;9002226.02101,"846,59762702109 ",.02)
  1. ;;59762702109
  1. ;;9002226.02101,"846,59762702201 ",.01)
  1. ;;59762702201
  1. ;;9002226.02101,"846,59762702201 ",.02)
  1. ;;59762702201
  1. ;;9002226.02101,"846,59762702205 ",.01)
  1. ;;59762702205
  1. ;;9002226.02101,"846,59762702205 ",.02)
  1. ;;59762702205
  1. ;;9002226.02101,"846,59762702209 ",.01)
  1. ;;59762702209
  1. ;;9002226.02101,"846,59762702209 ",.02)
  1. ;;59762702209
  1. ;;9002226.02101,"846,59930159202 ",.01)
  1. ;;59930159202
  1. ;;9002226.02101,"846,59930159202 ",.02)
  1. ;;59930159202
  1. ;;9002226.02101,"846,59930162202 ",.01)
  1. ;;59930162202
  1. ;;9002226.02101,"846,59930162202 ",.02)
  1. ;;59930162202
  1. ;;9002226.02101,"846,59930162203 ",.01)
  1. ;;59930162203
  1. ;;9002226.02101,"846,59930162203 ",.02)
  1. ;;59930162203
  1. ;;9002226.02101,"846,59930163902 ",.01)
  1. ;;59930163902
  1. ;;9002226.02101,"846,59930163902 ",.02)
  1. ;;59930163902
  1. ;;9002226.02101,"846,60429008512 ",.01)
  1. ;;60429008512
  1. ;;9002226.02101,"846,60429008512 ",.02)
  1. ;;60429008512
  1. ;;9002226.02101,"846,60429008518 ",.01)
  1. ;;60429008518
  1. ;;9002226.02101,"846,60429008518 ",.02)
  1. ;;60429008518
  1. ;;9002226.02101,"846,60429008527 ",.01)
  1. ;;60429008527
  1. ;;9002226.02101,"846,60429008527 ",.02)
  1. ;;60429008527
  1. ;;9002226.02101,"846,60429008530 ",.01)
  1. ;;60429008530
  1. ;;9002226.02101,"846,60429008530 ",.02)
  1. ;;60429008530
  1. ;;9002226.02101,"846,60429008536 ",.01)
  1. ;;60429008536
  1. ;;9002226.02101,"846,60429008536 ",.02)
  1. ;;60429008536
  1. ;;9002226.02101,"846,60429008560 ",.01)
  1. ;;60429008560
  1. ;;9002226.02101,"846,60429008560 ",.02)
  1. ;;60429008560
  1. ;;9002226.02101,"846,60429008590 ",.01)
  1. ;;60429008590
  1. ;;9002226.02101,"846,60429008590 ",.02)
  1. ;;60429008590
  1. ;;9002226.02101,"846,60505014100 ",.01)
  1. ;;60505014100
  1. ;;9002226.02101,"846,60505014100 ",.02)
  1. ;;60505014100
  1. ;;9002226.02101,"846,60505014101 ",.01)
  1. ;;60505014101
  1. ;;9002226.02101,"846,60505014101 ",.02)
  1. ;;60505014101
  1. ;;9002226.02101,"846,60505014102 ",.01)
  1. ;;60505014102
  1. ;;9002226.02101,"846,60505014102 ",.02)
  1. ;;60505014102
  1. ;;9002226.02101,"846,60505014108 ",.01)
  1. ;;60505014108
  1. ;;9002226.02101,"846,60505014108 ",.02)
  1. ;;60505014108
  1. ;;9002226.02101,"846,60505014200 ",.01)
  1. ;;60505014200
  1. ;;9002226.02101,"846,60505014200 ",.02)
  1. ;;60505014200
  1. ;;9002226.02101,"846,60505014201 ",.01)
  1. ;;60505014201
  1. ;;9002226.02101,"846,60505014201 ",.02)
  1. ;;60505014201
  1. ;;9002226.02101,"846,60505014202 ",.01)
  1. ;;60505014202
  1. ;;9002226.02101,"846,60505014202 ",.02)
  1. ;;60505014202
  1. ;;9002226.02101,"846,60505014204 ",.01)
  1. ;;60505014204
  1. ;;9002226.02101,"846,60505014204 ",.02)
  1. ;;60505014204
  1. ;;9002226.02101,"846,60951071170 ",.01)
  1. ;;60951071170
  1. ;;9002226.02101,"846,60951071170 ",.02)
  1. ;;60951071170
  1. ;;9002226.02101,"846,60951071185 ",.01)
  1. ;;60951071185