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

BGPM3ACP.m

Go to the documentation of this file.
BGPM3ACP ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
 ;
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,"786,00179004801 ",.02)
 ;;00179004801
 ;;9002226.02101,"786,00179117101 ",.01)
 ;;00179117101
 ;;9002226.02101,"786,00179117101 ",.02)
 ;;00179117101
 ;;9002226.02101,"786,00179117160 ",.01)
 ;;00179117160
 ;;9002226.02101,"786,00179117160 ",.02)
 ;;00179117160
 ;;9002226.02101,"786,00179143401 ",.01)
 ;;00179143401
 ;;9002226.02101,"786,00179143401 ",.02)
 ;;00179143401
 ;;9002226.02101,"786,00179143430 ",.01)
 ;;00179143430
 ;;9002226.02101,"786,00179143430 ",.02)
 ;;00179143430
 ;;9002226.02101,"786,00179143450 ",.01)
 ;;00179143450
 ;;9002226.02101,"786,00179143450 ",.02)
 ;;00179143450
 ;;9002226.02101,"786,00179143460 ",.01)
 ;;00179143460
 ;;9002226.02101,"786,00179143460 ",.02)
 ;;00179143460
 ;;9002226.02101,"786,00179143490 ",.01)
 ;;00179143490
 ;;9002226.02101,"786,00179143490 ",.02)
 ;;00179143490
 ;;9002226.02101,"786,00179143501 ",.01)
 ;;00179143501
 ;;9002226.02101,"786,00179143501 ",.02)
 ;;00179143501
 ;;9002226.02101,"786,00179143530 ",.01)
 ;;00179143530
 ;;9002226.02101,"786,00179143530 ",.02)
 ;;00179143530
 ;;9002226.02101,"786,00179143550 ",.01)
 ;;00179143550
 ;;9002226.02101,"786,00179143550 ",.02)
 ;;00179143550
 ;;9002226.02101,"786,00179143560 ",.01)
 ;;00179143560
 ;;9002226.02101,"786,00179143560 ",.02)
 ;;00179143560
 ;;9002226.02101,"786,00179143590 ",.01)
 ;;00179143590
 ;;9002226.02101,"786,00179143590 ",.02)
 ;;00179143590
 ;;9002226.02101,"786,00179152101 ",.01)
 ;;00179152101
 ;;9002226.02101,"786,00179152101 ",.02)
 ;;00179152101
 ;;9002226.02101,"786,00179152111 ",.01)
 ;;00179152111
 ;;9002226.02101,"786,00179152111 ",.02)
 ;;00179152111
 ;;9002226.02101,"786,00179152130 ",.01)
 ;;00179152130
 ;;9002226.02101,"786,00179152130 ",.02)
 ;;00179152130
 ;;9002226.02101,"786,00179152150 ",.01)
 ;;00179152150
 ;;9002226.02101,"786,00179152150 ",.02)
 ;;00179152150
 ;;9002226.02101,"786,00179152160 ",.01)
 ;;00179152160
 ;;9002226.02101,"786,00179152160 ",.02)
 ;;00179152160
 ;;9002226.02101,"786,00179152190 ",.01)
 ;;00179152190
 ;;9002226.02101,"786,00179152190 ",.02)
 ;;00179152190
 ;;9002226.02101,"786,00179152701 ",.01)
 ;;00179152701
 ;;9002226.02101,"786,00179152701 ",.02)
 ;;00179152701
 ;;9002226.02101,"786,00179152730 ",.01)
 ;;00179152730
 ;;9002226.02101,"786,00179152730 ",.02)
 ;;00179152730
 ;;9002226.02101,"786,00179152750 ",.01)
 ;;00179152750
 ;;9002226.02101,"786,00179152750 ",.02)
 ;;00179152750
 ;;9002226.02101,"786,00179152760 ",.01)
 ;;00179152760
 ;;9002226.02101,"786,00179152760 ",.02)
 ;;00179152760
 ;;9002226.02101,"786,00179152790 ",.01)
 ;;00179152790
 ;;9002226.02101,"786,00179152790 ",.02)
 ;;00179152790
 ;;9002226.02101,"786,00179189670 ",.01)
 ;;00179189670
 ;;9002226.02101,"786,00179189670 ",.02)
 ;;00179189670
 ;;9002226.02101,"786,00179189671 ",.01)
 ;;00179189671
 ;;9002226.02101,"786,00179189671 ",.02)
 ;;00179189671
 ;;9002226.02101,"786,00179189672 ",.01)
 ;;00179189672
 ;;9002226.02101,"786,00179189672 ",.02)
 ;;00179189672
 ;;9002226.02101,"786,00179189701 ",.01)
 ;;00179189701
 ;;9002226.02101,"786,00179189701 ",.02)
 ;;00179189701
 ;;9002226.02101,"786,00179189730 ",.01)
 ;;00179189730
 ;;9002226.02101,"786,00179189730 ",.02)
 ;;00179189730
 ;;9002226.02101,"786,00179189750 ",.01)
 ;;00179189750
 ;;9002226.02101,"786,00179189750 ",.02)
 ;;00179189750
 ;;9002226.02101,"786,00179189760 ",.01)
 ;;00179189760
 ;;9002226.02101,"786,00179189760 ",.02)
 ;;00179189760
 ;;9002226.02101,"786,00179189770 ",.01)
 ;;00179189770
 ;;9002226.02101,"786,00179189770 ",.02)
 ;;00179189770
 ;;9002226.02101,"786,00179189771 ",.01)
 ;;00179189771
 ;;9002226.02101,"786,00179189771 ",.02)
 ;;00179189771
 ;;9002226.02101,"786,00179189772 ",.01)
 ;;00179189772
 ;;9002226.02101,"786,00179189772 ",.02)
 ;;00179189772
 ;;9002226.02101,"786,00179189790 ",.01)
 ;;00179189790
 ;;9002226.02101,"786,00179189790 ",.02)
 ;;00179189790
 ;;9002226.02101,"786,00179189870 ",.01)
 ;;00179189870
 ;;9002226.02101,"786,00179189870 ",.02)
 ;;00179189870
 ;;9002226.02101,"786,00179189871 ",.01)
 ;;00179189871
 ;;9002226.02101,"786,00179189871 ",.02)
 ;;00179189871
 ;;9002226.02101,"786,00179189872 ",.01)
 ;;00179189872
 ;;9002226.02101,"786,00179189872 ",.02)
 ;;00179189872
 ;;9002226.02101,"786,00179189970 ",.01)
 ;;00179189970
 ;;9002226.02101,"786,00179189970 ",.02)
 ;;00179189970
 ;;9002226.02101,"786,00179189971 ",.01)
 ;;00179189971
 ;;9002226.02101,"786,00179189971 ",.02)
 ;;00179189971
 ;;9002226.02101,"786,00179189972 ",.01)
 ;;00179189972
 ;;9002226.02101,"786,00179189972 ",.02)
 ;;00179189972
 ;;9002226.02101,"786,00179193301 ",.01)
 ;;00179193301
 ;;9002226.02101,"786,00179193301 ",.02)
 ;;00179193301
 ;;9002226.02101,"786,00179193330 ",.01)
 ;;00179193330
 ;;9002226.02101,"786,00179193330 ",.02)
 ;;00179193330
 ;;9002226.02101,"786,00179193350 ",.01)
 ;;00179193350
 ;;9002226.02101,"786,00179193350 ",.02)
 ;;00179193350
 ;;9002226.02101,"786,00179193360 ",.01)
 ;;00179193360
 ;;9002226.02101,"786,00179193360 ",.02)
 ;;00179193360
 ;;9002226.02101,"786,00179193601 ",.01)
 ;;00179193601
 ;;9002226.02101,"786,00179193601 ",.02)
 ;;00179193601
 ;;9002226.02101,"786,00179193630 ",.01)
 ;;00179193630
 ;;9002226.02101,"786,00179193630 ",.02)
 ;;00179193630
 ;;9002226.02101,"786,00179193650 ",.01)
 ;;00179193650
 ;;9002226.02101,"786,00179193650 ",.02)
 ;;00179193650
 ;;9002226.02101,"786,00179193660 ",.01)
 ;;00179193660
 ;;9002226.02101,"786,00179193660 ",.02)
 ;;00179193660
 ;;9002226.02101,"786,00182000101 ",.01)
 ;;00182000101
 ;;9002226.02101,"786,00182000101 ",.02)
 ;;00182000101
 ;;9002226.02101,"786,00182000110 ",.01)
 ;;00182000110
 ;;9002226.02101,"786,00182000110 ",.02)
 ;;00182000110
 ;;9002226.02101,"786,00182005301 ",.01)
 ;;00182005301
 ;;9002226.02101,"786,00182005301 ",.02)
 ;;00182005301
 ;;9002226.02101,"786,00182005310 ",.01)
 ;;00182005310
 ;;9002226.02101,"786,00182005310 ",.02)
 ;;00182005310
 ;;9002226.02101,"786,00182081101 ",.01)
 ;;00182081101
 ;;9002226.02101,"786,00182081101 ",.02)
 ;;00182081101
 ;;9002226.02101,"786,00182081110 ",.01)
 ;;00182081110
 ;;9002226.02101,"786,00182081110 ",.02)
 ;;00182081110
 ;;9002226.02101,"786,00182126901 ",.01)
 ;;00182126901
 ;;9002226.02101,"786,00182126901 ",.02)
 ;;00182126901
 ;;9002226.02101,"786,00182195605 ",.01)
 ;;00182195605
 ;;9002226.02101,"786,00182195605 ",.02)
 ;;00182195605
 ;;9002226.02101,"786,00182195626 ",.01)
 ;;00182195626
 ;;9002226.02101,"786,00182195626 ",.02)
 ;;00182195626
 ;;9002226.02101,"786,00182195689 ",.01)
 ;;00182195689
 ;;9002226.02101,"786,00182195689 ",.02)
 ;;00182195689
 ;;9002226.02101,"786,00182440101 ",.01)
 ;;00182440101
 ;;9002226.02101,"786,00182440101 ",.02)
 ;;00182440101
 ;;9002226.02101,"786,00182440401 ",.01)
 ;;00182440401
 ;;9002226.02101,"786,00182440401 ",.02)
 ;;00182440401
 ;;9002226.02101,"786,00182441701 ",.01)
 ;;00182441701
 ;;9002226.02101,"786,00182441701 ",.02)
 ;;00182441701
 ;;9002226.02101,"786,00182441710 ",.01)
 ;;00182441710
 ;;9002226.02101,"786,00182441710 ",.02)
 ;;00182441710
 ;;9002226.02101,"786,00182441801 ",.01)
 ;;00182441801
 ;;9002226.02101,"786,00182441801 ",.02)
 ;;00182441801
 ;;9002226.02101,"786,00182441810 ",.01)
 ;;00182441810
 ;;9002226.02101,"786,00182441810 ",.02)
 ;;00182441810
 ;;9002226.02101,"786,00182709142 ",.01)
 ;;00182709142
 ;;9002226.02101,"786,00182709142 ",.02)
 ;;00182709142
 ;;9002226.02101,"786,00185007001 ",.01)
 ;;00185007001
 ;;9002226.02101,"786,00185007001 ",.02)
 ;;00185007001
 ;;9002226.02101,"786,00185007005 ",.01)
 ;;00185007005
 ;;9002226.02101,"786,00185007005 ",.02)
 ;;00185007005
 ;;9002226.02101,"786,00185007009 ",.01)
 ;;00185007009
 ;;9002226.02101,"786,00185007009 ",.02)
 ;;00185007009
 ;;9002226.02101,"786,00185007010 ",.01)
 ;;00185007010
 ;;9002226.02101,"786,00185007010 ",.02)
 ;;00185007010
 ;;9002226.02101,"786,00185007060 ",.01)
 ;;00185007060
 ;;9002226.02101,"786,00185007060 ",.02)
 ;;00185007060
 ;;9002226.02101,"786,00185007201 ",.01)
 ;;00185007201
 ;;9002226.02101,"786,00185007201 ",.02)
 ;;00185007201
 ;;9002226.02101,"786,00185007205 ",.01)
 ;;00185007205
 ;;9002226.02101,"786,00185007205 ",.02)
 ;;00185007205
 ;;9002226.02101,"786,00185007209 ",.01)
 ;;00185007209
 ;;9002226.02101,"786,00185007209 ",.02)
 ;;00185007209
 ;;9002226.02101,"786,00185007210 ",.01)
 ;;00185007210
 ;;9002226.02101,"786,00185007210 ",.02)
 ;;00185007210
 ;;9002226.02101,"786,00185007260 ",.01)
 ;;00185007260
 ;;9002226.02101,"786,00185007260 ",.02)
 ;;00185007260
 ;;9002226.02101,"786,00185007401 ",.01)
 ;;00185007401
 ;;9002226.02101,"786,00185007401 ",.02)
 ;;00185007401
 ;;9002226.02101,"786,00185007405 ",.01)
 ;;00185007405
 ;;9002226.02101,"786,00185007405 ",.02)
 ;;00185007405
 ;;9002226.02101,"786,00185007409 ",.01)
 ;;00185007409
 ;;9002226.02101,"786,00185007409 ",.02)
 ;;00185007409
 ;;9002226.02101,"786,00185007410 ",.01)
 ;;00185007410
 ;;9002226.02101,"786,00185007410 ",.02)
 ;;00185007410
 ;;9002226.02101,"786,00185007460 ",.01)
 ;;00185007460
 ;;9002226.02101,"786,00185007460 ",.02)
 ;;00185007460
 ;;9002226.02101,"786,00185074201 ",.01)
 ;;00185074201
 ;;9002226.02101,"786,00185074201 ",.02)
 ;;00185074201
 ;;9002226.02101,"786,00185074210 ",.01)
 ;;00185074210
 ;;9002226.02101,"786,00185074210 ",.02)
 ;;00185074210
 ;;9002226.02101,"786,00185074301 ",.01)
 ;;00185074301
 ;;9002226.02101,"786,00185074301 ",.02)
 ;;00185074301
 ;;9002226.02101,"786,00185074401 ",.01)
 ;;00185074401
 ;;9002226.02101,"786,00185074401 ",.02)
 ;;00185074401
 ;;9002226.02101,"786,00185074410 ",.01)
 ;;00185074410
 ;;9002226.02101,"786,00185074410 ",.02)
 ;;00185074410
 ;;9002226.02101,"786,00185093997 ",.01)
 ;;00185093997
 ;;9002226.02101,"786,00185093997 ",.02)
 ;;00185093997
 ;;9002226.02101,"786,00185093998 ",.01)
 ;;00185093998
 ;;9002226.02101,"786,00185093998 ",.02)
 ;;00185093998
 ;;9002226.02101,"786,00185094097 ",.01)
 ;;00185094097
 ;;9002226.02101,"786,00185094097 ",.02)
 ;;00185094097
 ;;9002226.02101,"786,00185094098 ",.01)
 ;;00185094098
 ;;9002226.02101,"786,00185094098 ",.02)
 ;;00185094098
 ;;9002226.02101,"786,00223135101 ",.01)
 ;;00223135101
 ;;9002226.02101,"786,00223135101 ",.02)
 ;;00223135101
 ;;9002226.02101,"786,00223135102 ",.01)
 ;;00223135102
 ;;9002226.02101,"786,00223135102 ",.02)
 ;;00223135102
 ;;9002226.02101,"786,00223135201 ",.01)
 ;;00223135201
 ;;9002226.02101,"786,00223135201 ",.02)
 ;;00223135201
 ;;9002226.02101,"786,00223135202 ",.01)
 ;;00223135202
 ;;9002226.02101,"786,00223135202 ",.02)
 ;;00223135202
 ;;9002226.02101,"786,00228255206 ",.01)
 ;;00228255206
 ;;9002226.02101,"786,00228255206 ",.02)
 ;;00228255206
 ;;9002226.02101,"786,00228255210 ",.01)
 ;;00228255210
 ;;9002226.02101,"786,00228255210 ",.02)
 ;;00228255210
 ;;9002226.02101,"786,00228255250 ",.01)
 ;;00228255250
 ;;9002226.02101,"786,00228255250 ",.02)
 ;;00228255250
 ;;9002226.02101,"786,00228255296 ",.01)
 ;;00228255296
 ;;9002226.02101,"786,00228255296 ",.02)
 ;;00228255296
 ;;9002226.02101,"786,00228263306 ",.01)
 ;;00228263306
 ;;9002226.02101,"786,00228263306 ",.02)
 ;;00228263306
 ;;9002226.02101,"786,00228263350 ",.01)
 ;;00228263350
 ;;9002226.02101,"786,00228263350 ",.02)
 ;;00228263350
 ;;9002226.02101,"786,00228263406 ",.01)
 ;;00228263406
 ;;9002226.02101,"786,00228263406 ",.02)
 ;;00228263406
 ;;9002226.02101,"786,00228263450 ",.01)
 ;;00228263450
 ;;9002226.02101,"786,00228263450 ",.02)
 ;;00228263450
 ;;9002226.02101,"786,00228263506 ",.01)
 ;;00228263506