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