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

BGPM3ADZ.m

Go to the documentation of this file.
BGPM3ADZ ;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,"785,58016097944 ",.01)
 ;;58016097944
 ;;9002226.02101,"785,58016097944 ",.02)
 ;;58016097944
 ;;9002226.02101,"785,58016097945 ",.01)
 ;;58016097945
 ;;9002226.02101,"785,58016097945 ",.02)
 ;;58016097945
 ;;9002226.02101,"785,58016097948 ",.01)
 ;;58016097948
 ;;9002226.02101,"785,58016097948 ",.02)
 ;;58016097948
 ;;9002226.02101,"785,58016097950 ",.01)
 ;;58016097950
 ;;9002226.02101,"785,58016097950 ",.02)
 ;;58016097950
 ;;9002226.02101,"785,58016097956 ",.01)
 ;;58016097956
 ;;9002226.02101,"785,58016097956 ",.02)
 ;;58016097956
 ;;9002226.02101,"785,58016097960 ",.01)
 ;;58016097960
 ;;9002226.02101,"785,58016097960 ",.02)
 ;;58016097960
 ;;9002226.02101,"785,58016097967 ",.01)
 ;;58016097967
 ;;9002226.02101,"785,58016097967 ",.02)
 ;;58016097967
 ;;9002226.02101,"785,58016097969 ",.01)
 ;;58016097969
 ;;9002226.02101,"785,58016097969 ",.02)
 ;;58016097969
 ;;9002226.02101,"785,58016097970 ",.01)
 ;;58016097970
 ;;9002226.02101,"785,58016097970 ",.02)
 ;;58016097970
 ;;9002226.02101,"785,58016097971 ",.01)
 ;;58016097971
 ;;9002226.02101,"785,58016097971 ",.02)
 ;;58016097971
 ;;9002226.02101,"785,58016097972 ",.01)
 ;;58016097972
 ;;9002226.02101,"785,58016097972 ",.02)
 ;;58016097972
 ;;9002226.02101,"785,58016097973 ",.01)
 ;;58016097973
 ;;9002226.02101,"785,58016097973 ",.02)
 ;;58016097973
 ;;9002226.02101,"785,58016097975 ",.01)
 ;;58016097975
 ;;9002226.02101,"785,58016097975 ",.02)
 ;;58016097975
 ;;9002226.02101,"785,58016097976 ",.01)
 ;;58016097976
 ;;9002226.02101,"785,58016097976 ",.02)
 ;;58016097976
 ;;9002226.02101,"785,58016097977 ",.01)
 ;;58016097977
 ;;9002226.02101,"785,58016097977 ",.02)
 ;;58016097977
 ;;9002226.02101,"785,58016097979 ",.01)
 ;;58016097979
 ;;9002226.02101,"785,58016097979 ",.02)
 ;;58016097979
 ;;9002226.02101,"785,58016097980 ",.01)
 ;;58016097980
 ;;9002226.02101,"785,58016097980 ",.02)
 ;;58016097980
 ;;9002226.02101,"785,58016097981 ",.01)
 ;;58016097981
 ;;9002226.02101,"785,58016097981 ",.02)
 ;;58016097981
 ;;9002226.02101,"785,58016097982 ",.01)
 ;;58016097982
 ;;9002226.02101,"785,58016097982 ",.02)
 ;;58016097982
 ;;9002226.02101,"785,58016097983 ",.01)
 ;;58016097983
 ;;9002226.02101,"785,58016097983 ",.02)
 ;;58016097983
 ;;9002226.02101,"785,58016097984 ",.01)
 ;;58016097984
 ;;9002226.02101,"785,58016097984 ",.02)
 ;;58016097984
 ;;9002226.02101,"785,58016097987 ",.01)
 ;;58016097987
 ;;9002226.02101,"785,58016097987 ",.02)
 ;;58016097987
 ;;9002226.02101,"785,58016097989 ",.01)
 ;;58016097989
 ;;9002226.02101,"785,58016097989 ",.02)
 ;;58016097989
 ;;9002226.02101,"785,58016097990 ",.01)
 ;;58016097990
 ;;9002226.02101,"785,58016097990 ",.02)
 ;;58016097990
 ;;9002226.02101,"785,58016097991 ",.01)
 ;;58016097991
 ;;9002226.02101,"785,58016097991 ",.02)
 ;;58016097991
 ;;9002226.02101,"785,58016097992 ",.01)
 ;;58016097992
 ;;9002226.02101,"785,58016097992 ",.02)
 ;;58016097992
 ;;9002226.02101,"785,58016097993 ",.01)
 ;;58016097993
 ;;9002226.02101,"785,58016097993 ",.02)
 ;;58016097993
 ;;9002226.02101,"785,58016097996 ",.01)
 ;;58016097996
 ;;9002226.02101,"785,58016097996 ",.02)
 ;;58016097996
 ;;9002226.02101,"785,58016097997 ",.01)
 ;;58016097997
 ;;9002226.02101,"785,58016097997 ",.02)
 ;;58016097997
 ;;9002226.02101,"785,58016097998 ",.01)
 ;;58016097998
 ;;9002226.02101,"785,58016097998 ",.02)
 ;;58016097998
 ;;9002226.02101,"785,58016097999 ",.01)
 ;;58016097999
 ;;9002226.02101,"785,58016097999 ",.02)
 ;;58016097999
 ;;9002226.02101,"785,58864078030 ",.01)
 ;;58864078030
 ;;9002226.02101,"785,58864078030 ",.02)
 ;;58864078030
 ;;9002226.02101,"785,58864078060 ",.01)
 ;;58864078060
 ;;9002226.02101,"785,58864078060 ",.02)
 ;;58864078060
 ;;9002226.02101,"785,58864078130 ",.01)
 ;;58864078130
 ;;9002226.02101,"785,58864078130 ",.02)
 ;;58864078130
 ;;9002226.02101,"785,59630062899 ",.01)
 ;;59630062899
 ;;9002226.02101,"785,59630062899 ",.02)
 ;;59630062899
 ;;9002226.02101,"785,60312036300 ",.01)
 ;;60312036300
 ;;9002226.02101,"785,60312036300 ",.02)
 ;;60312036300
 ;;9002226.02101,"785,60312036400 ",.01)
 ;;60312036400
 ;;9002226.02101,"785,60312036400 ",.02)
 ;;60312036400
 ;;9002226.02101,"785,60312036500 ",.01)
 ;;60312036500
 ;;9002226.02101,"785,60312036500 ",.02)
 ;;60312036500
 ;;9002226.02101,"785,60312036600 ",.01)
 ;;60312036600
 ;;9002226.02101,"785,60312036600 ",.02)
 ;;60312036600
 ;;9002226.02101,"785,60312054300 ",.01)
 ;;60312054300
 ;;9002226.02101,"785,60312054300 ",.02)
 ;;60312054300
 ;;9002226.02101,"785,60312054307 ",.01)
 ;;60312054307
 ;;9002226.02101,"785,60312054307 ",.02)
 ;;60312054307
 ;;9002226.02101,"785,60312054328 ",.01)
 ;;60312054328
 ;;9002226.02101,"785,60312054328 ",.02)
 ;;60312054328
 ;;9002226.02101,"785,60312054330 ",.01)
 ;;60312054330
 ;;9002226.02101,"785,60312054330 ",.02)
 ;;60312054330
 ;;9002226.02101,"785,60312054331 ",.01)
 ;;60312054331
 ;;9002226.02101,"785,60312054331 ",.02)
 ;;60312054331
 ;;9002226.02101,"785,60312054340 ",.01)
 ;;60312054340
 ;;9002226.02101,"785,60312054340 ",.02)
 ;;60312054340
 ;;9002226.02101,"785,60312054354 ",.01)
 ;;60312054354
 ;;9002226.02101,"785,60312054354 ",.02)
 ;;60312054354
 ;;9002226.02101,"785,60312054382 ",.01)
 ;;60312054382
 ;;9002226.02101,"785,60312054382 ",.02)
 ;;60312054382
 ;;9002226.02101,"785,60312080000 ",.01)
 ;;60312080000
 ;;9002226.02101,"785,60312080000 ",.02)
 ;;60312080000
 ;;9002226.02101,"785,60312080100 ",.01)
 ;;60312080100
 ;;9002226.02101,"785,60312080100 ",.02)
 ;;60312080100
 ;;9002226.02101,"785,60312080200 ",.01)
 ;;60312080200
 ;;9002226.02101,"785,60312080200 ",.02)
 ;;60312080200
 ;;9002226.02101,"785,60312080300 ",.01)
 ;;60312080300
 ;;9002226.02101,"785,60312080300 ",.02)
 ;;60312080300
 ;;9002226.02101,"785,60312089200 ",.01)
 ;;60312089200
 ;;9002226.02101,"785,60312089200 ",.02)
 ;;60312089200
 ;;9002226.02101,"785,60312089210 ",.01)
 ;;60312089210
 ;;9002226.02101,"785,60312089210 ",.02)
 ;;60312089210
 ;;9002226.02101,"785,60312089230 ",.01)
 ;;60312089230
 ;;9002226.02101,"785,60312089230 ",.02)
 ;;60312089230
 ;;9002226.02101,"785,60312089290 ",.01)
 ;;60312089290
 ;;9002226.02101,"785,60312089290 ",.02)
 ;;60312089290
 ;;9002226.02101,"785,60505017700 ",.01)
 ;;60505017700
 ;;9002226.02101,"785,60505017700 ",.02)
 ;;60505017700
 ;;9002226.02101,"785,60505017701 ",.01)
 ;;60505017701
 ;;9002226.02101,"785,60505017701 ",.02)
 ;;60505017701
 ;;9002226.02101,"785,60505017703 ",.01)
 ;;60505017703
 ;;9002226.02101,"785,60505017703 ",.02)
 ;;60505017703
 ;;9002226.02101,"785,60505017709 ",.01)
 ;;60505017709
 ;;9002226.02101,"785,60505017709 ",.02)
 ;;60505017709
 ;;9002226.02101,"785,60505017800 ",.01)
 ;;60505017800
 ;;9002226.02101,"785,60505017800 ",.02)
 ;;60505017800
 ;;9002226.02101,"785,60505017801 ",.01)
 ;;60505017801
 ;;9002226.02101,"785,60505017801 ",.02)
 ;;60505017801
 ;;9002226.02101,"785,60505017803 ",.01)
 ;;60505017803
 ;;9002226.02101,"785,60505017803 ",.02)
 ;;60505017803
 ;;9002226.02101,"785,60505017809 ",.01)
 ;;60505017809
 ;;9002226.02101,"785,60505017809 ",.02)
 ;;60505017809
 ;;9002226.02101,"785,60505017900 ",.01)
 ;;60505017900
 ;;9002226.02101,"785,60505017900 ",.02)
 ;;60505017900
 ;;9002226.02101,"785,60505017901 ",.01)
 ;;60505017901
 ;;9002226.02101,"785,60505017901 ",.02)
 ;;60505017901
 ;;9002226.02101,"785,60505017903 ",.01)
 ;;60505017903
 ;;9002226.02101,"785,60505017903 ",.02)
 ;;60505017903
 ;;9002226.02101,"785,60505017909 ",.01)
 ;;60505017909
 ;;9002226.02101,"785,60505017909 ",.02)
 ;;60505017909
 ;;9002226.02101,"785,61258336901 ",.01)
 ;;61258336901
 ;;9002226.02101,"785,61258336901 ",.02)
 ;;61258336901
 ;;9002226.02101,"785,61258337000 ",.01)
 ;;61258337000
 ;;9002226.02101,"785,61258337000 ",.02)
 ;;61258337000
 ;;9002226.02101,"785,61258337100 ",.01)
 ;;61258337100
 ;;9002226.02101,"785,61258337100 ",.02)
 ;;61258337100
 ;;9002226.02101,"785,61392073731 ",.01)
 ;;61392073731
 ;;9002226.02101,"785,61392073731 ",.02)
 ;;61392073731
 ;;9002226.02101,"785,61392073739 ",.01)
 ;;61392073739
 ;;9002226.02101,"785,61392073739 ",.02)
 ;;61392073739
 ;;9002226.02101,"785,61392079725 ",.01)
 ;;61392079725
 ;;9002226.02101,"785,61392079725 ",.02)
 ;;61392079725
 ;;9002226.02101,"785,61392079730 ",.01)
 ;;61392079730
 ;;9002226.02101,"785,61392079730 ",.02)
 ;;61392079730
 ;;9002226.02101,"785,61392079731 ",.01)
 ;;61392079731
 ;;9002226.02101,"785,61392079731 ",.02)
 ;;61392079731
 ;;9002226.02101,"785,61392079739 ",.01)
 ;;61392079739
 ;;9002226.02101,"785,61392079739 ",.02)
 ;;61392079739
 ;;9002226.02101,"785,61442014101 ",.01)
 ;;61442014101
 ;;9002226.02101,"785,61442014101 ",.02)
 ;;61442014101
 ;;9002226.02101,"785,61442014110 ",.01)
 ;;61442014110
 ;;9002226.02101,"785,61442014110 ",.02)
 ;;61442014110
 ;;9002226.02101,"785,61442014201 ",.01)
 ;;61442014201
 ;;9002226.02101,"785,61442014201 ",.02)
 ;;61442014201
 ;;9002226.02101,"785,61442014210 ",.01)
 ;;61442014210
 ;;9002226.02101,"785,61442014210 ",.02)
 ;;61442014210
 ;;9002226.02101,"785,61442014301 ",.01)
 ;;61442014301
 ;;9002226.02101,"785,61442014301 ",.02)
 ;;61442014301
 ;;9002226.02101,"785,61442014310 ",.01)
 ;;61442014310
 ;;9002226.02101,"785,61442014310 ",.02)
 ;;61442014310
 ;;9002226.02101,"785,61947000600 ",.01)
 ;;61947000600
 ;;9002226.02101,"785,61947000600 ",.02)
 ;;61947000600
 ;;9002226.02101,"785,61947000700 ",.01)
 ;;61947000700
 ;;9002226.02101,"785,61947000700 ",.02)
 ;;61947000700
 ;;9002226.02101,"785,62037079101 ",.01)
 ;;62037079101
 ;;9002226.02101,"785,62037079101 ",.02)
 ;;62037079101
 ;;9002226.02101,"785,62037079105 ",.01)
 ;;62037079105
 ;;9002226.02101,"785,62037079105 ",.02)
 ;;62037079105
 ;;9002226.02101,"785,62037079160 ",.01)
 ;;62037079160
 ;;9002226.02101,"785,62037079160 ",.02)
 ;;62037079160
 ;;9002226.02101,"785,62037079201 ",.01)
 ;;62037079201
 ;;9002226.02101,"785,62037079201 ",.02)
 ;;62037079201
 ;;9002226.02101,"785,62037079205 ",.01)
 ;;62037079205
 ;;9002226.02101,"785,62037079205 ",.02)
 ;;62037079205
 ;;9002226.02101,"785,62037079210 ",.01)
 ;;62037079210
 ;;9002226.02101,"785,62037079210 ",.02)
 ;;62037079210
 ;;9002226.02101,"785,62037079260 ",.01)
 ;;62037079260
 ;;9002226.02101,"785,62037079260 ",.02)
 ;;62037079260
 ;;9002226.02101,"785,62037079301 ",.01)
 ;;62037079301
 ;;9002226.02101,"785,62037079301 ",.02)
 ;;62037079301
 ;;9002226.02101,"785,62037079305 ",.01)
 ;;62037079305
 ;;9002226.02101,"785,62037079305 ",.02)
 ;;62037079305
 ;;9002226.02101,"785,62037079310 ",.01)
 ;;62037079310
 ;;9002226.02101,"785,62037079310 ",.02)
 ;;62037079310
 ;;9002226.02101,"785,62037079360 ",.01)
 ;;62037079360
 ;;9002226.02101,"785,62037079360 ",.02)
 ;;62037079360
 ;;9002226.02101,"785,63126028110 ",.01)
 ;;63126028110
 ;;9002226.02101,"785,63126028110 ",.02)
 ;;63126028110
 ;;9002226.02101,"785,63126028160 ",.01)
 ;;63126028160
 ;;9002226.02101,"785,63126028160 ",.02)
 ;;63126028160
 ;;9002226.02101,"785,63126028210 ",.01)
 ;;63126028210
 ;;9002226.02101,"785,63126028210 ",.02)
 ;;63126028210
 ;;9002226.02101,"785,63126028260 ",.01)
 ;;63126028260
 ;;9002226.02101,"785,63126028260 ",.02)
 ;;63126028260
 ;;9002226.02101,"785,63126028310 ",.01)
 ;;63126028310
 ;;9002226.02101,"785,63126028310 ",.02)
 ;;63126028310
 ;;9002226.02101,"785,63126028360 ",.01)
 ;;63126028360
 ;;9002226.02101,"785,63126028360 ",.02)
 ;;63126028360
 ;;9002226.02101,"785,63304078910 ",.01)
 ;;63304078910
 ;;9002226.02101,"785,63304078910 ",.02)
 ;;63304078910