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

BGPM5AWP.m

Go to the documentation of this file.
BGPM5AWP ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,63874023306 ",.01)
 ;;63874023306
 ;;9002226.02101,"1033,63874023306 ",.02)
 ;;63874023306
 ;;9002226.02101,"1033,63874023310 ",.01)
 ;;63874023310
 ;;9002226.02101,"1033,63874023310 ",.02)
 ;;63874023310
 ;;9002226.02101,"1033,63874023312 ",.01)
 ;;63874023312
 ;;9002226.02101,"1033,63874023312 ",.02)
 ;;63874023312
 ;;9002226.02101,"1033,63874023315 ",.01)
 ;;63874023315
 ;;9002226.02101,"1033,63874023315 ",.02)
 ;;63874023315
 ;;9002226.02101,"1033,63874023316 ",.01)
 ;;63874023316
 ;;9002226.02101,"1033,63874023316 ",.02)
 ;;63874023316
 ;;9002226.02101,"1033,63874023320 ",.01)
 ;;63874023320
 ;;9002226.02101,"1033,63874023320 ",.02)
 ;;63874023320
 ;;9002226.02101,"1033,63874023324 ",.01)
 ;;63874023324
 ;;9002226.02101,"1033,63874023324 ",.02)
 ;;63874023324
 ;;9002226.02101,"1033,63874023328 ",.01)
 ;;63874023328
 ;;9002226.02101,"1033,63874023328 ",.02)
 ;;63874023328
 ;;9002226.02101,"1033,63874023330 ",.01)
 ;;63874023330
 ;;9002226.02101,"1033,63874023330 ",.02)
 ;;63874023330
 ;;9002226.02101,"1033,63874023336 ",.01)
 ;;63874023336
 ;;9002226.02101,"1033,63874023336 ",.02)
 ;;63874023336
 ;;9002226.02101,"1033,63874023340 ",.01)
 ;;63874023340
 ;;9002226.02101,"1033,63874023340 ",.02)
 ;;63874023340
 ;;9002226.02101,"1033,63874023350 ",.01)
 ;;63874023350
 ;;9002226.02101,"1033,63874023350 ",.02)
 ;;63874023350
 ;;9002226.02101,"1033,63874023360 ",.01)
 ;;63874023360
 ;;9002226.02101,"1033,63874023360 ",.02)
 ;;63874023360
 ;;9002226.02101,"1033,63874023501 ",.01)
 ;;63874023501
 ;;9002226.02101,"1033,63874023501 ",.02)
 ;;63874023501
 ;;9002226.02101,"1033,63874023504 ",.01)
 ;;63874023504
 ;;9002226.02101,"1033,63874023504 ",.02)
 ;;63874023504
 ;;9002226.02101,"1033,63874023510 ",.01)
 ;;63874023510
 ;;9002226.02101,"1033,63874023510 ",.02)
 ;;63874023510
 ;;9002226.02101,"1033,63874023512 ",.01)
 ;;63874023512
 ;;9002226.02101,"1033,63874023512 ",.02)
 ;;63874023512
 ;;9002226.02101,"1033,63874023515 ",.01)
 ;;63874023515
 ;;9002226.02101,"1033,63874023515 ",.02)
 ;;63874023515
 ;;9002226.02101,"1033,63874023516 ",.01)
 ;;63874023516
 ;;9002226.02101,"1033,63874023516 ",.02)
 ;;63874023516
 ;;9002226.02101,"1033,63874023520 ",.01)
 ;;63874023520
 ;;9002226.02101,"1033,63874023520 ",.02)
 ;;63874023520
 ;;9002226.02101,"1033,63874023521 ",.01)
 ;;63874023521
 ;;9002226.02101,"1033,63874023521 ",.02)
 ;;63874023521
 ;;9002226.02101,"1033,63874023528 ",.01)
 ;;63874023528
 ;;9002226.02101,"1033,63874023528 ",.02)
 ;;63874023528
 ;;9002226.02101,"1033,63874023530 ",.01)
 ;;63874023530
 ;;9002226.02101,"1033,63874023530 ",.02)
 ;;63874023530
 ;;9002226.02101,"1033,63874023540 ",.01)
 ;;63874023540
 ;;9002226.02101,"1033,63874023540 ",.02)
 ;;63874023540
 ;;9002226.02101,"1033,63874023556 ",.01)
 ;;63874023556
 ;;9002226.02101,"1033,63874023556 ",.02)
 ;;63874023556
 ;;9002226.02101,"1033,63874023580 ",.01)
 ;;63874023580
 ;;9002226.02101,"1033,63874023580 ",.02)
 ;;63874023580
 ;;9002226.02101,"1033,63874023701 ",.01)
 ;;63874023701
 ;;9002226.02101,"1033,63874023701 ",.02)
 ;;63874023701
 ;;9002226.02101,"1033,63874023704 ",.01)
 ;;63874023704
 ;;9002226.02101,"1033,63874023704 ",.02)
 ;;63874023704
 ;;9002226.02101,"1033,63874023705 ",.01)
 ;;63874023705
 ;;9002226.02101,"1033,63874023705 ",.02)
 ;;63874023705
 ;;9002226.02101,"1033,63874023706 ",.01)
 ;;63874023706
 ;;9002226.02101,"1033,63874023706 ",.02)
 ;;63874023706
 ;;9002226.02101,"1033,63874023707 ",.01)
 ;;63874023707
 ;;9002226.02101,"1033,63874023707 ",.02)
 ;;63874023707
 ;;9002226.02101,"1033,63874023710 ",.01)
 ;;63874023710
 ;;9002226.02101,"1033,63874023710 ",.02)
 ;;63874023710
 ;;9002226.02101,"1033,63874023712 ",.01)
 ;;63874023712
 ;;9002226.02101,"1033,63874023712 ",.02)
 ;;63874023712
 ;;9002226.02101,"1033,63874023714 ",.01)
 ;;63874023714
 ;;9002226.02101,"1033,63874023714 ",.02)
 ;;63874023714
 ;;9002226.02101,"1033,63874023715 ",.01)
 ;;63874023715
 ;;9002226.02101,"1033,63874023715 ",.02)
 ;;63874023715
 ;;9002226.02101,"1033,63874023716 ",.01)
 ;;63874023716
 ;;9002226.02101,"1033,63874023716 ",.02)
 ;;63874023716
 ;;9002226.02101,"1033,63874023720 ",.01)
 ;;63874023720
 ;;9002226.02101,"1033,63874023720 ",.02)
 ;;63874023720
 ;;9002226.02101,"1033,63874023721 ",.01)
 ;;63874023721
 ;;9002226.02101,"1033,63874023721 ",.02)
 ;;63874023721
 ;;9002226.02101,"1033,63874023724 ",.01)
 ;;63874023724
 ;;9002226.02101,"1033,63874023724 ",.02)
 ;;63874023724
 ;;9002226.02101,"1033,63874023728 ",.01)
 ;;63874023728
 ;;9002226.02101,"1033,63874023728 ",.02)
 ;;63874023728
 ;;9002226.02101,"1033,63874023730 ",.01)
 ;;63874023730
 ;;9002226.02101,"1033,63874023730 ",.02)
 ;;63874023730
 ;;9002226.02101,"1033,63874023740 ",.01)
 ;;63874023740
 ;;9002226.02101,"1033,63874023740 ",.02)
 ;;63874023740
 ;;9002226.02101,"1033,63874023750 ",.01)
 ;;63874023750
 ;;9002226.02101,"1033,63874023750 ",.02)
 ;;63874023750
 ;;9002226.02101,"1033,63874023760 ",.01)
 ;;63874023760
 ;;9002226.02101,"1033,63874023760 ",.02)
 ;;63874023760
 ;;9002226.02101,"1033,63874023772 ",.01)
 ;;63874023772
 ;;9002226.02101,"1033,63874023772 ",.02)
 ;;63874023772
 ;;9002226.02101,"1033,63874023774 ",.01)
 ;;63874023774
 ;;9002226.02101,"1033,63874023774 ",.02)
 ;;63874023774
 ;;9002226.02101,"1033,63874023777 ",.01)
 ;;63874023777
 ;;9002226.02101,"1033,63874023777 ",.02)
 ;;63874023777
 ;;9002226.02101,"1033,63874023901 ",.01)
 ;;63874023901
 ;;9002226.02101,"1033,63874023901 ",.02)
 ;;63874023901
 ;;9002226.02101,"1033,63874023920 ",.01)
 ;;63874023920
 ;;9002226.02101,"1033,63874023920 ",.02)
 ;;63874023920
 ;;9002226.02101,"1033,63874023930 ",.01)
 ;;63874023930
 ;;9002226.02101,"1033,63874023930 ",.02)
 ;;63874023930
 ;;9002226.02101,"1033,63874024001 ",.01)
 ;;63874024001
 ;;9002226.02101,"1033,63874024001 ",.02)
 ;;63874024001
 ;;9002226.02101,"1033,63874024020 ",.01)
 ;;63874024020
 ;;9002226.02101,"1033,63874024020 ",.02)
 ;;63874024020
 ;;9002226.02101,"1033,63874024030 ",.01)
 ;;63874024030
 ;;9002226.02101,"1033,63874024030 ",.02)
 ;;63874024030
 ;;9002226.02101,"1033,63874024050 ",.01)
 ;;63874024050
 ;;9002226.02101,"1033,63874024050 ",.02)
 ;;63874024050
 ;;9002226.02101,"1033,63874024115 ",.01)
 ;;63874024115
 ;;9002226.02101,"1033,63874024115 ",.02)
 ;;63874024115
 ;;9002226.02101,"1033,63874024120 ",.01)
 ;;63874024120
 ;;9002226.02101,"1033,63874024120 ",.02)
 ;;63874024120
 ;;9002226.02101,"1033,63874024130 ",.01)
 ;;63874024130
 ;;9002226.02101,"1033,63874024130 ",.02)
 ;;63874024130
 ;;9002226.02101,"1033,63874024150 ",.01)
 ;;63874024150
 ;;9002226.02101,"1033,63874024150 ",.02)
 ;;63874024150
 ;;9002226.02101,"1033,63874024160 ",.01)
 ;;63874024160
 ;;9002226.02101,"1033,63874024160 ",.02)
 ;;63874024160
 ;;9002226.02101,"1033,63874053301 ",.01)
 ;;63874053301
 ;;9002226.02101,"1033,63874053301 ",.02)
 ;;63874053301
 ;;9002226.02101,"1033,63874053304 ",.01)
 ;;63874053304
 ;;9002226.02101,"1033,63874053304 ",.02)
 ;;63874053304
 ;;9002226.02101,"1033,63874053310 ",.01)
 ;;63874053310
 ;;9002226.02101,"1033,63874053310 ",.02)
 ;;63874053310
 ;;9002226.02101,"1033,63874053312 ",.01)
 ;;63874053312
 ;;9002226.02101,"1033,63874053312 ",.02)
 ;;63874053312
 ;;9002226.02101,"1033,63874053314 ",.01)
 ;;63874053314
 ;;9002226.02101,"1033,63874053314 ",.02)
 ;;63874053314
 ;;9002226.02101,"1033,63874053315 ",.01)
 ;;63874053315
 ;;9002226.02101,"1033,63874053315 ",.02)
 ;;63874053315
 ;;9002226.02101,"1033,63874053320 ",.01)
 ;;63874053320
 ;;9002226.02101,"1033,63874053320 ",.02)
 ;;63874053320
 ;;9002226.02101,"1033,63874053325 ",.01)
 ;;63874053325
 ;;9002226.02101,"1033,63874053325 ",.02)
 ;;63874053325
 ;;9002226.02101,"1033,63874053328 ",.01)
 ;;63874053328
 ;;9002226.02101,"1033,63874053328 ",.02)
 ;;63874053328
 ;;9002226.02101,"1033,63874053330 ",.01)
 ;;63874053330
 ;;9002226.02101,"1033,63874053330 ",.02)
 ;;63874053330
 ;;9002226.02101,"1033,63874053340 ",.01)
 ;;63874053340
 ;;9002226.02101,"1033,63874053340 ",.02)
 ;;63874053340
 ;;9002226.02101,"1033,63874053344 ",.01)
 ;;63874053344
 ;;9002226.02101,"1033,63874053344 ",.02)
 ;;63874053344
 ;;9002226.02101,"1033,63874053360 ",.01)
 ;;63874053360
 ;;9002226.02101,"1033,63874053360 ",.02)
 ;;63874053360
 ;;9002226.02101,"1033,63874053372 ",.01)
 ;;63874053372
 ;;9002226.02101,"1033,63874053372 ",.02)
 ;;63874053372
 ;;9002226.02101,"1033,63874053374 ",.01)
 ;;63874053374
 ;;9002226.02101,"1033,63874053374 ",.02)
 ;;63874053374
 ;;9002226.02101,"1033,63874053377 ",.01)
 ;;63874053377
 ;;9002226.02101,"1033,63874053377 ",.02)
 ;;63874053377
 ;;9002226.02101,"1033,63874053390 ",.01)
 ;;63874053390
 ;;9002226.02101,"1033,63874053390 ",.02)
 ;;63874053390
 ;;9002226.02101,"1033,63874108601 ",.01)
 ;;63874108601
 ;;9002226.02101,"1033,63874108601 ",.02)
 ;;63874108601
 ;;9002226.02101,"1033,63874108602 ",.01)
 ;;63874108602
 ;;9002226.02101,"1033,63874108602 ",.02)
 ;;63874108602
 ;;9002226.02101,"1033,63874108603 ",.01)
 ;;63874108603
 ;;9002226.02101,"1033,63874108603 ",.02)
 ;;63874108603
 ;;9002226.02101,"1033,63874108604 ",.01)
 ;;63874108604
 ;;9002226.02101,"1033,63874108604 ",.02)
 ;;63874108604
 ;;9002226.02101,"1033,63874108605 ",.01)
 ;;63874108605
 ;;9002226.02101,"1033,63874108605 ",.02)
 ;;63874108605
 ;;9002226.02101,"1033,63874108606 ",.01)
 ;;63874108606
 ;;9002226.02101,"1033,63874108606 ",.02)
 ;;63874108606
 ;;9002226.02101,"1033,63874111202 ",.01)
 ;;63874111202
 ;;9002226.02101,"1033,63874111202 ",.02)
 ;;63874111202
 ;;9002226.02101,"1033,63874122602 ",.01)
 ;;63874122602
 ;;9002226.02101,"1033,63874122602 ",.02)
 ;;63874122602
 ;;9002226.02101,"1033,64038003301 ",.01)
 ;;64038003301
 ;;9002226.02101,"1033,64038003301 ",.02)
 ;;64038003301
 ;;9002226.02101,"1033,64038003340 ",.01)
 ;;64038003340
 ;;9002226.02101,"1033,64038003340 ",.02)
 ;;64038003340
 ;;9002226.02101,"1033,64380000510 ",.01)
 ;;64380000510
 ;;9002226.02101,"1033,64380000510 ",.02)
 ;;64380000510
 ;;9002226.02101,"1033,64579001600 ",.01)
 ;;64579001600
 ;;9002226.02101,"1033,64579001600 ",.02)
 ;;64579001600
 ;;9002226.02101,"1033,64579001601 ",.01)
 ;;64579001601
 ;;9002226.02101,"1033,64579001601 ",.02)
 ;;64579001601
 ;;9002226.02101,"1033,64679054701 ",.01)
 ;;64679054701
 ;;9002226.02101,"1033,64679054701 ",.02)
 ;;64679054701
 ;;9002226.02101,"1033,64679054702 ",.01)
 ;;64679054702
 ;;9002226.02101,"1033,64679054702 ",.02)
 ;;64679054702
 ;;9002226.02101,"1033,64679054703 ",.01)
 ;;64679054703
 ;;9002226.02101,"1033,64679054703 ",.02)
 ;;64679054703
 ;;9002226.02101,"1033,64679054704 ",.01)
 ;;64679054704
 ;;9002226.02101,"1033,64679054704 ",.02)
 ;;64679054704
 ;;9002226.02101,"1033,64679054705 ",.01)
 ;;64679054705
 ;;9002226.02101,"1033,64679054705 ",.02)
 ;;64679054705
 ;;9002226.02101,"1033,64679070101 ",.01)
 ;;64679070101
 ;;9002226.02101,"1033,64679070101 ",.02)
 ;;64679070101
 ;;9002226.02101,"1033,64679070102 ",.01)
 ;;64679070102
 ;;9002226.02101,"1033,64679070102 ",.02)
 ;;64679070102
 ;;9002226.02101,"1033,64679070103 ",.01)
 ;;64679070103
 ;;9002226.02101,"1033,64679070103 ",.02)
 ;;64679070103
 ;;9002226.02101,"1033,64679070201 ",.01)
 ;;64679070201
 ;;9002226.02101,"1033,64679070201 ",.02)
 ;;64679070201
 ;;9002226.02101,"1033,64679070202 ",.01)
 ;;64679070202
 ;;9002226.02101,"1033,64679070202 ",.02)
 ;;64679070202
 ;;9002226.02101,"1033,64679070301 ",.01)
 ;;64679070301
 ;;9002226.02101,"1033,64679070301 ",.02)
 ;;64679070301
 ;;9002226.02101,"1033,64679070302 ",.01)
 ;;64679070302