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

BGPM5ADF.m

Go to the documentation of this file.
BGPM5ADF ;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,63874043214 ",.02)
 ;;63874043214
 ;;9002226.02101,"846,63874043220 ",.01)
 ;;63874043220
 ;;9002226.02101,"846,63874043220 ",.02)
 ;;63874043220
 ;;9002226.02101,"846,63874043221 ",.01)
 ;;63874043221
 ;;9002226.02101,"846,63874043221 ",.02)
 ;;63874043221
 ;;9002226.02101,"846,63874043224 ",.01)
 ;;63874043224
 ;;9002226.02101,"846,63874043224 ",.02)
 ;;63874043224
 ;;9002226.02101,"846,63874043228 ",.01)
 ;;63874043228
 ;;9002226.02101,"846,63874043228 ",.02)
 ;;63874043228
 ;;9002226.02101,"846,63874043230 ",.01)
 ;;63874043230
 ;;9002226.02101,"846,63874043230 ",.02)
 ;;63874043230
 ;;9002226.02101,"846,63874043250 ",.01)
 ;;63874043250
 ;;9002226.02101,"846,63874043250 ",.02)
 ;;63874043250
 ;;9002226.02101,"846,63874043260 ",.01)
 ;;63874043260
 ;;9002226.02101,"846,63874043260 ",.02)
 ;;63874043260
 ;;9002226.02101,"846,63874043281 ",.01)
 ;;63874043281
 ;;9002226.02101,"846,63874043281 ",.02)
 ;;63874043281
 ;;9002226.02101,"846,63874043290 ",.01)
 ;;63874043290
 ;;9002226.02101,"846,63874043290 ",.02)
 ;;63874043290
 ;;9002226.02101,"846,63874058801 ",.01)
 ;;63874058801
 ;;9002226.02101,"846,63874058801 ",.02)
 ;;63874058801
 ;;9002226.02101,"846,63874058804 ",.01)
 ;;63874058804
 ;;9002226.02101,"846,63874058804 ",.02)
 ;;63874058804
 ;;9002226.02101,"846,63874058810 ",.01)
 ;;63874058810
 ;;9002226.02101,"846,63874058810 ",.02)
 ;;63874058810
 ;;9002226.02101,"846,63874058814 ",.01)
 ;;63874058814
 ;;9002226.02101,"846,63874058814 ",.02)
 ;;63874058814
 ;;9002226.02101,"846,63874058820 ",.01)
 ;;63874058820
 ;;9002226.02101,"846,63874058820 ",.02)
 ;;63874058820
 ;;9002226.02101,"846,63874058830 ",.01)
 ;;63874058830
 ;;9002226.02101,"846,63874058830 ",.02)
 ;;63874058830
 ;;9002226.02101,"846,63874058860 ",.01)
 ;;63874058860
 ;;9002226.02101,"846,63874058860 ",.02)
 ;;63874058860
 ;;9002226.02101,"846,63874058880 ",.01)
 ;;63874058880
 ;;9002226.02101,"846,63874058880 ",.02)
 ;;63874058880
 ;;9002226.02101,"846,63874058890 ",.01)
 ;;63874058890
 ;;9002226.02101,"846,63874058890 ",.02)
 ;;63874058890
 ;;9002226.02101,"846,63874066501 ",.01)
 ;;63874066501
 ;;9002226.02101,"846,63874066501 ",.02)
 ;;63874066501
 ;;9002226.02101,"846,63874066504 ",.01)
 ;;63874066504
 ;;9002226.02101,"846,63874066504 ",.02)
 ;;63874066504
 ;;9002226.02101,"846,63874066510 ",.01)
 ;;63874066510
 ;;9002226.02101,"846,63874066510 ",.02)
 ;;63874066510
 ;;9002226.02101,"846,63874066514 ",.01)
 ;;63874066514
 ;;9002226.02101,"846,63874066514 ",.02)
 ;;63874066514
 ;;9002226.02101,"846,63874066530 ",.01)
 ;;63874066530
 ;;9002226.02101,"846,63874066530 ",.02)
 ;;63874066530
 ;;9002226.02101,"846,63874066560 ",.01)
 ;;63874066560
 ;;9002226.02101,"846,63874066560 ",.02)
 ;;63874066560
 ;;9002226.02101,"846,63874066590 ",.01)
 ;;63874066590
 ;;9002226.02101,"846,63874066590 ",.02)
 ;;63874066590
 ;;9002226.02101,"846,63874093901 ",.01)
 ;;63874093901
 ;;9002226.02101,"846,63874093901 ",.02)
 ;;63874093901
 ;;9002226.02101,"846,63874093910 ",.01)
 ;;63874093910
 ;;9002226.02101,"846,63874093910 ",.02)
 ;;63874093910
 ;;9002226.02101,"846,63874093930 ",.01)
 ;;63874093930
 ;;9002226.02101,"846,63874093930 ",.02)
 ;;63874093930
 ;;9002226.02101,"846,63874093960 ",.01)
 ;;63874093960
 ;;9002226.02101,"846,63874093960 ",.02)
 ;;63874093960
 ;;9002226.02101,"846,64720012310 ",.01)
 ;;64720012310
 ;;9002226.02101,"846,64720012310 ",.02)
 ;;64720012310
 ;;9002226.02101,"846,64720012410 ",.01)
 ;;64720012410
 ;;9002226.02101,"846,64720012410 ",.02)
 ;;64720012410
 ;;9002226.02101,"846,64720012411 ",.01)
 ;;64720012411
 ;;9002226.02101,"846,64720012411 ",.02)
 ;;64720012411
 ;;9002226.02101,"846,64720012510 ",.01)
 ;;64720012510
 ;;9002226.02101,"846,64720012510 ",.02)
 ;;64720012510
 ;;9002226.02101,"846,64720012511 ",.01)
 ;;64720012511
 ;;9002226.02101,"846,64720012511 ",.02)
 ;;64720012511
 ;;9002226.02101,"846,64720014010 ",.01)
 ;;64720014010
 ;;9002226.02101,"846,64720014010 ",.02)
 ;;64720014010
 ;;9002226.02101,"846,64720014011 ",.01)
 ;;64720014011
 ;;9002226.02101,"846,64720014011 ",.02)
 ;;64720014011
 ;;9002226.02101,"846,64720014050 ",.01)
 ;;64720014050
 ;;9002226.02101,"846,64720014050 ",.02)
 ;;64720014050
 ;;9002226.02101,"846,64720014110 ",.01)
 ;;64720014110
 ;;9002226.02101,"846,64720014110 ",.02)
 ;;64720014110
 ;;9002226.02101,"846,64720014111 ",.01)
 ;;64720014111
 ;;9002226.02101,"846,64720014111 ",.02)
 ;;64720014111
 ;;9002226.02101,"846,64720014150 ",.01)
 ;;64720014150
 ;;9002226.02101,"846,64720014150 ",.02)
 ;;64720014150
 ;;9002226.02101,"846,64720014210 ",.01)
 ;;64720014210
 ;;9002226.02101,"846,64720014210 ",.02)
 ;;64720014210
 ;;9002226.02101,"846,64720014211 ",.01)
 ;;64720014211
 ;;9002226.02101,"846,64720014211 ",.02)
 ;;64720014211
 ;;9002226.02101,"846,64720014250 ",.01)
 ;;64720014250
 ;;9002226.02101,"846,64720014250 ",.02)
 ;;64720014250
 ;;9002226.02101,"846,64720016410 ",.01)
 ;;64720016410
 ;;9002226.02101,"846,64720016410 ",.02)
 ;;64720016410
 ;;9002226.02101,"846,64720016411 ",.01)
 ;;64720016411
 ;;9002226.02101,"846,64720016411 ",.02)
 ;;64720016411
 ;;9002226.02101,"846,64720016510 ",.01)
 ;;64720016510
 ;;9002226.02101,"846,64720016510 ",.02)
 ;;64720016510
 ;;9002226.02101,"846,64720016511 ",.01)
 ;;64720016511
 ;;9002226.02101,"846,64720016511 ",.02)
 ;;64720016511
 ;;9002226.02101,"846,64720016610 ",.01)
 ;;64720016610
 ;;9002226.02101,"846,64720016610 ",.02)
 ;;64720016610
 ;;9002226.02101,"846,64720016611 ",.01)
 ;;64720016611
 ;;9002226.02101,"846,64720016611 ",.02)
 ;;64720016611
 ;;9002226.02101,"846,64720016710 ",.01)
 ;;64720016710
 ;;9002226.02101,"846,64720016710 ",.02)
 ;;64720016710
 ;;9002226.02101,"846,64720016711 ",.01)
 ;;64720016711
 ;;9002226.02101,"846,64720016711 ",.02)
 ;;64720016711
 ;;9002226.02101,"846,64720016750 ",.01)
 ;;64720016750
 ;;9002226.02101,"846,64720016750 ",.02)
 ;;64720016750
 ;;9002226.02101,"846,64720016810 ",.01)
 ;;64720016810
 ;;9002226.02101,"846,64720016810 ",.02)
 ;;64720016810
 ;;9002226.02101,"846,64720016811 ",.01)
 ;;64720016811
 ;;9002226.02101,"846,64720016811 ",.02)
 ;;64720016811
 ;;9002226.02101,"846,64720016850 ",.01)
 ;;64720016850
 ;;9002226.02101,"846,64720016850 ",.02)
 ;;64720016850
 ;;9002226.02101,"846,64720016910 ",.01)
 ;;64720016910
 ;;9002226.02101,"846,64720016910 ",.02)
 ;;64720016910
 ;;9002226.02101,"846,64720016911 ",.01)
 ;;64720016911
 ;;9002226.02101,"846,64720016911 ",.02)
 ;;64720016911
 ;;9002226.02101,"846,64720016950 ",.01)
 ;;64720016950
 ;;9002226.02101,"846,64720016950 ",.02)
 ;;64720016950
 ;;9002226.02101,"846,65243017609 ",.01)
 ;;65243017609
 ;;9002226.02101,"846,65243017609 ",.02)
 ;;65243017609
 ;;9002226.02101,"846,65243017618 ",.01)
 ;;65243017618
 ;;9002226.02101,"846,65243017618 ",.02)
 ;;65243017618
 ;;9002226.02101,"846,65243017636 ",.01)
 ;;65243017636
 ;;9002226.02101,"846,65243017636 ",.02)
 ;;65243017636
 ;;9002226.02101,"846,65243018318 ",.01)
 ;;65243018318
 ;;9002226.02101,"846,65243018318 ",.02)
 ;;65243018318
 ;;9002226.02101,"846,65243018509 ",.01)
 ;;65243018509
 ;;9002226.02101,"846,65243018509 ",.02)
 ;;65243018509
 ;;9002226.02101,"846,65243018512 ",.01)
 ;;65243018512
 ;;9002226.02101,"846,65243018512 ",.02)
 ;;65243018512
 ;;9002226.02101,"846,65243018518 ",.01)
 ;;65243018518
 ;;9002226.02101,"846,65243018518 ",.02)
 ;;65243018518
 ;;9002226.02101,"846,65243018527 ",.01)
 ;;65243018527
 ;;9002226.02101,"846,65243018527 ",.02)
 ;;65243018527
 ;;9002226.02101,"846,65243018536 ",.01)
 ;;65243018536
 ;;9002226.02101,"846,65243018536 ",.02)
 ;;65243018536
 ;;9002226.02101,"846,65243028503 ",.01)
 ;;65243028503
 ;;9002226.02101,"846,65243028503 ",.02)
 ;;65243028503
 ;;9002226.02101,"846,65243028506 ",.01)
 ;;65243028506
 ;;9002226.02101,"846,65243028506 ",.02)
 ;;65243028506
 ;;9002226.02101,"846,65243028509 ",.01)
 ;;65243028509
 ;;9002226.02101,"846,65243028509 ",.02)
 ;;65243028509
 ;;9002226.02101,"846,65243028512 ",.01)
 ;;65243028512
 ;;9002226.02101,"846,65243028512 ",.02)
 ;;65243028512
 ;;9002226.02101,"846,65243028518 ",.01)
 ;;65243028518
 ;;9002226.02101,"846,65243028518 ",.02)
 ;;65243028518
 ;;9002226.02101,"846,65243032509 ",.01)
 ;;65243032509
 ;;9002226.02101,"846,65243032509 ",.02)
 ;;65243032509
 ;;9002226.02101,"846,65243032518 ",.01)
 ;;65243032518
 ;;9002226.02101,"846,65243032518 ",.02)
 ;;65243032518
 ;;9002226.02101,"846,65243037803 ",.01)
 ;;65243037803
 ;;9002226.02101,"846,65243037803 ",.02)
 ;;65243037803
 ;;9002226.02101,"846,65243037806 ",.01)
 ;;65243037806
 ;;9002226.02101,"846,65243037806 ",.02)
 ;;65243037806
 ;;9002226.02101,"846,65243037809 ",.01)
 ;;65243037809
 ;;9002226.02101,"846,65243037809 ",.02)
 ;;65243037809
 ;;9002226.02101,"846,65243037812 ",.01)
 ;;65243037812
 ;;9002226.02101,"846,65243037812 ",.02)
 ;;65243037812
 ;;9002226.02101,"846,65243037818 ",.01)
 ;;65243037818
 ;;9002226.02101,"846,65243037818 ",.02)
 ;;65243037818
 ;;9002226.02101,"846,65427003101 ",.01)
 ;;65427003101
 ;;9002226.02101,"846,65427003101 ",.02)
 ;;65427003101
 ;;9002226.02101,"846,65427003201 ",.01)
 ;;65427003201
 ;;9002226.02101,"846,65427003201 ",.02)
 ;;65427003201
 ;;9002226.02101,"846,65427003202 ",.01)
 ;;65427003202
 ;;9002226.02101,"846,65427003202 ",.02)
 ;;65427003202
 ;;9002226.02101,"846,65427003301 ",.01)
 ;;65427003301
 ;;9002226.02101,"846,65427003301 ",.02)
 ;;65427003301
 ;;9002226.02101,"846,65427003302 ",.01)
 ;;65427003302
 ;;9002226.02101,"846,65427003302 ",.02)
 ;;65427003302
 ;;9002226.02101,"846,65427037501 ",.01)
 ;;65427037501
 ;;9002226.02101,"846,65427037501 ",.02)
 ;;65427037501
 ;;9002226.02101,"846,65427037603 ",.01)
 ;;65427037603
 ;;9002226.02101,"846,65427037603 ",.02)
 ;;65427037603
 ;;9002226.02101,"846,65427037704 ",.01)
 ;;65427037704
 ;;9002226.02101,"846,65427037704 ",.02)
 ;;65427037704
 ;;9002226.02101,"846,65427037706 ",.01)
 ;;65427037706
 ;;9002226.02101,"846,65427037706 ",.02)
 ;;65427037706
 ;;9002226.02101,"846,65427037707 ",.01)
 ;;65427037707
 ;;9002226.02101,"846,65427037707 ",.02)
 ;;65427037707
 ;;9002226.02101,"846,65427087201 ",.01)
 ;;65427087201
 ;;9002226.02101,"846,65427087201 ",.02)
 ;;65427087201
 ;;9002226.02101,"846,65427087205 ",.01)
 ;;65427087205
 ;;9002226.02101,"846,65427087205 ",.02)
 ;;65427087205
 ;;9002226.02101,"846,65427087301 ",.01)
 ;;65427087301
 ;;9002226.02101,"846,65427087301 ",.02)
 ;;65427087301
 ;;9002226.02101,"846,65427087305 ",.01)
 ;;65427087305
 ;;9002226.02101,"846,65427087305 ",.02)
 ;;65427087305
 ;;9002226.02101,"846,65862002801 ",.01)
 ;;65862002801
 ;;9002226.02101,"846,65862002801 ",.02)
 ;;65862002801
 ;;9002226.02101,"846,65862002817 ",.01)
 ;;65862002817
 ;;9002226.02101,"846,65862002817 ",.02)
 ;;65862002817
 ;;9002226.02101,"846,65862002830 ",.01)
 ;;65862002830
 ;;9002226.02101,"846,65862002830 ",.02)
 ;;65862002830
 ;;9002226.02101,"846,65862002850 ",.01)
 ;;65862002850
 ;;9002226.02101,"846,65862002850 ",.02)
 ;;65862002850
 ;;9002226.02101,"846,65862002900 ",.01)
 ;;65862002900
 ;;9002226.02101,"846,65862002900 ",.02)
 ;;65862002900
 ;;9002226.02101,"846,65862002901 ",.01)
 ;;65862002901
 ;;9002226.02101,"846,65862002901 ",.02)
 ;;65862002901
 ;;9002226.02101,"846,65862002905 ",.01)
 ;;65862002905
 ;;9002226.02101,"846,65862002905 ",.02)
 ;;65862002905
 ;;9002226.02101,"846,65862002919 ",.01)
 ;;65862002919
 ;;9002226.02101,"846,65862002919 ",.02)
 ;;65862002919
 ;;9002226.02101,"846,65862002930 ",.01)
 ;;65862002930