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

BGPM3ADD.m

Go to the documentation of this file.
BGPM3ADD ;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,60312036600 ",.02)
 ;;60312036600
 ;;9002226.02101,"786,60312054300 ",.01)
 ;;60312054300
 ;;9002226.02101,"786,60312054300 ",.02)
 ;;60312054300
 ;;9002226.02101,"786,60312054307 ",.01)
 ;;60312054307
 ;;9002226.02101,"786,60312054307 ",.02)
 ;;60312054307
 ;;9002226.02101,"786,60312054328 ",.01)
 ;;60312054328
 ;;9002226.02101,"786,60312054328 ",.02)
 ;;60312054328
 ;;9002226.02101,"786,60312054330 ",.01)
 ;;60312054330
 ;;9002226.02101,"786,60312054330 ",.02)
 ;;60312054330
 ;;9002226.02101,"786,60312054331 ",.01)
 ;;60312054331
 ;;9002226.02101,"786,60312054331 ",.02)
 ;;60312054331
 ;;9002226.02101,"786,60312054340 ",.01)
 ;;60312054340
 ;;9002226.02101,"786,60312054340 ",.02)
 ;;60312054340
 ;;9002226.02101,"786,60312054354 ",.01)
 ;;60312054354
 ;;9002226.02101,"786,60312054354 ",.02)
 ;;60312054354
 ;;9002226.02101,"786,60312054382 ",.01)
 ;;60312054382
 ;;9002226.02101,"786,60312054382 ",.02)
 ;;60312054382
 ;;9002226.02101,"786,60312080000 ",.01)
 ;;60312080000
 ;;9002226.02101,"786,60312080000 ",.02)
 ;;60312080000
 ;;9002226.02101,"786,60312080100 ",.01)
 ;;60312080100
 ;;9002226.02101,"786,60312080100 ",.02)
 ;;60312080100
 ;;9002226.02101,"786,60312080200 ",.01)
 ;;60312080200
 ;;9002226.02101,"786,60312080200 ",.02)
 ;;60312080200
 ;;9002226.02101,"786,60312080300 ",.01)
 ;;60312080300
 ;;9002226.02101,"786,60312080300 ",.02)
 ;;60312080300
 ;;9002226.02101,"786,60312089200 ",.01)
 ;;60312089200
 ;;9002226.02101,"786,60312089200 ",.02)
 ;;60312089200
 ;;9002226.02101,"786,60312089210 ",.01)
 ;;60312089210
 ;;9002226.02101,"786,60312089210 ",.02)
 ;;60312089210
 ;;9002226.02101,"786,60312089230 ",.01)
 ;;60312089230
 ;;9002226.02101,"786,60312089230 ",.02)
 ;;60312089230
 ;;9002226.02101,"786,60312089290 ",.01)
 ;;60312089290
 ;;9002226.02101,"786,60312089290 ",.02)
 ;;60312089290
 ;;9002226.02101,"786,60346036798 ",.01)
 ;;60346036798
 ;;9002226.02101,"786,60346036798 ",.02)
 ;;60346036798
 ;;9002226.02101,"786,60429008105 ",.01)
 ;;60429008105
 ;;9002226.02101,"786,60429008105 ",.02)
 ;;60429008105
 ;;9002226.02101,"786,60429008118 ",.01)
 ;;60429008118
 ;;9002226.02101,"786,60429008118 ",.02)
 ;;60429008118
 ;;9002226.02101,"786,60429008160 ",.01)
 ;;60429008160
 ;;9002226.02101,"786,60429008160 ",.02)
 ;;60429008160
 ;;9002226.02101,"786,60505003400 ",.01)
 ;;60505003400
 ;;9002226.02101,"786,60505003400 ",.02)
 ;;60505003400
 ;;9002226.02101,"786,60505003401 ",.01)
 ;;60505003401
 ;;9002226.02101,"786,60505003401 ",.02)
 ;;60505003401
 ;;9002226.02101,"786,60505003402 ",.01)
 ;;60505003402
 ;;9002226.02101,"786,60505003402 ",.02)
 ;;60505003402
 ;;9002226.02101,"786,60505003404 ",.01)
 ;;60505003404
 ;;9002226.02101,"786,60505003404 ",.02)
 ;;60505003404
 ;;9002226.02101,"786,60505003406 ",.01)
 ;;60505003406
 ;;9002226.02101,"786,60505003406 ",.02)
 ;;60505003406
 ;;9002226.02101,"786,60505003408 ",.01)
 ;;60505003408
 ;;9002226.02101,"786,60505003408 ",.02)
 ;;60505003408
 ;;9002226.02101,"786,60505017700 ",.01)
 ;;60505017700
 ;;9002226.02101,"786,60505017700 ",.02)
 ;;60505017700
 ;;9002226.02101,"786,60505017701 ",.01)
 ;;60505017701
 ;;9002226.02101,"786,60505017701 ",.02)
 ;;60505017701
 ;;9002226.02101,"786,60505017703 ",.01)
 ;;60505017703
 ;;9002226.02101,"786,60505017703 ",.02)
 ;;60505017703
 ;;9002226.02101,"786,60505017709 ",.01)
 ;;60505017709
 ;;9002226.02101,"786,60505017709 ",.02)
 ;;60505017709
 ;;9002226.02101,"786,60505017800 ",.01)
 ;;60505017800
 ;;9002226.02101,"786,60505017800 ",.02)
 ;;60505017800
 ;;9002226.02101,"786,60505017801 ",.01)
 ;;60505017801
 ;;9002226.02101,"786,60505017801 ",.02)
 ;;60505017801
 ;;9002226.02101,"786,60505017803 ",.01)
 ;;60505017803
 ;;9002226.02101,"786,60505017803 ",.02)
 ;;60505017803
 ;;9002226.02101,"786,60505017809 ",.01)
 ;;60505017809
 ;;9002226.02101,"786,60505017809 ",.02)
 ;;60505017809
 ;;9002226.02101,"786,60505017900 ",.01)
 ;;60505017900
 ;;9002226.02101,"786,60505017900 ",.02)
 ;;60505017900
 ;;9002226.02101,"786,60505017901 ",.01)
 ;;60505017901
 ;;9002226.02101,"786,60505017901 ",.02)
 ;;60505017901
 ;;9002226.02101,"786,60505017903 ",.01)
 ;;60505017903
 ;;9002226.02101,"786,60505017903 ",.02)
 ;;60505017903
 ;;9002226.02101,"786,60505017909 ",.01)
 ;;60505017909
 ;;9002226.02101,"786,60505017909 ",.02)
 ;;60505017909
 ;;9002226.02101,"786,60809012255 ",.01)
 ;;60809012255
 ;;9002226.02101,"786,60809012255 ",.02)
 ;;60809012255
 ;;9002226.02101,"786,60809012272 ",.01)
 ;;60809012272
 ;;9002226.02101,"786,60809012272 ",.02)
 ;;60809012272
 ;;9002226.02101,"786,60814056701 ",.01)
 ;;60814056701
 ;;9002226.02101,"786,60814056701 ",.02)
 ;;60814056701
 ;;9002226.02101,"786,60814056801 ",.01)
 ;;60814056801
 ;;9002226.02101,"786,60814056801 ",.02)
 ;;60814056801
 ;;9002226.02101,"786,60935001000 ",.01)
 ;;60935001000
 ;;9002226.02101,"786,60935001000 ",.02)
 ;;60935001000
 ;;9002226.02101,"786,60935001001 ",.01)
 ;;60935001001
 ;;9002226.02101,"786,60935001001 ",.02)
 ;;60935001001
 ;;9002226.02101,"786,61258336901 ",.01)
 ;;61258336901
 ;;9002226.02101,"786,61258336901 ",.02)
 ;;61258336901
 ;;9002226.02101,"786,61258337000 ",.01)
 ;;61258337000
 ;;9002226.02101,"786,61258337000 ",.02)
 ;;61258337000
 ;;9002226.02101,"786,61258337100 ",.01)
 ;;61258337100
 ;;9002226.02101,"786,61258337100 ",.02)
 ;;61258337100
 ;;9002226.02101,"786,61392009325 ",.01)
 ;;61392009325
 ;;9002226.02101,"786,61392009325 ",.02)
 ;;61392009325
 ;;9002226.02101,"786,61392009330 ",.01)
 ;;61392009330
 ;;9002226.02101,"786,61392009330 ",.02)
 ;;61392009330
 ;;9002226.02101,"786,61392009331 ",.01)
 ;;61392009331
 ;;9002226.02101,"786,61392009331 ",.02)
 ;;61392009331
 ;;9002226.02101,"786,61392009339 ",.01)
 ;;61392009339
 ;;9002226.02101,"786,61392009339 ",.02)
 ;;61392009339
 ;;9002226.02101,"786,61392009360 ",.01)
 ;;61392009360
 ;;9002226.02101,"786,61392009360 ",.02)
 ;;61392009360
 ;;9002226.02101,"786,61392009365 ",.01)
 ;;61392009365
 ;;9002226.02101,"786,61392009365 ",.02)
 ;;61392009365
 ;;9002226.02101,"786,61392009390 ",.01)
 ;;61392009390
 ;;9002226.02101,"786,61392009390 ",.02)
 ;;61392009390
 ;;9002226.02101,"786,61392011630 ",.01)
 ;;61392011630
 ;;9002226.02101,"786,61392011630 ",.02)
 ;;61392011630
 ;;9002226.02101,"786,61392011631 ",.01)
 ;;61392011631
 ;;9002226.02101,"786,61392011631 ",.02)
 ;;61392011631
 ;;9002226.02101,"786,61392011632 ",.01)
 ;;61392011632
 ;;9002226.02101,"786,61392011632 ",.02)
 ;;61392011632
 ;;9002226.02101,"786,61392011639 ",.01)
 ;;61392011639
 ;;9002226.02101,"786,61392011639 ",.02)
 ;;61392011639
 ;;9002226.02101,"786,61392011645 ",.01)
 ;;61392011645
 ;;9002226.02101,"786,61392011645 ",.02)
 ;;61392011645
 ;;9002226.02101,"786,61392011651 ",.01)
 ;;61392011651
 ;;9002226.02101,"786,61392011651 ",.02)
 ;;61392011651
 ;;9002226.02101,"786,61392011654 ",.01)
 ;;61392011654
 ;;9002226.02101,"786,61392011654 ",.02)
 ;;61392011654
 ;;9002226.02101,"786,61392011660 ",.01)
 ;;61392011660
 ;;9002226.02101,"786,61392011660 ",.02)
 ;;61392011660
 ;;9002226.02101,"786,61392011690 ",.01)
 ;;61392011690
 ;;9002226.02101,"786,61392011690 ",.02)
 ;;61392011690
 ;;9002226.02101,"786,61392011691 ",.01)
 ;;61392011691
 ;;9002226.02101,"786,61392011691 ",.02)
 ;;61392011691
 ;;9002226.02101,"786,61392073731 ",.01)
 ;;61392073731
 ;;9002226.02101,"786,61392073731 ",.02)
 ;;61392073731
 ;;9002226.02101,"786,61392073739 ",.01)
 ;;61392073739
 ;;9002226.02101,"786,61392073739 ",.02)
 ;;61392073739
 ;;9002226.02101,"786,61392079725 ",.01)
 ;;61392079725
 ;;9002226.02101,"786,61392079725 ",.02)
 ;;61392079725
 ;;9002226.02101,"786,61392079730 ",.01)
 ;;61392079730
 ;;9002226.02101,"786,61392079730 ",.02)
 ;;61392079730
 ;;9002226.02101,"786,61392079731 ",.01)
 ;;61392079731
 ;;9002226.02101,"786,61392079731 ",.02)
 ;;61392079731
 ;;9002226.02101,"786,61392079739 ",.01)
 ;;61392079739
 ;;9002226.02101,"786,61392079739 ",.02)
 ;;61392079739
 ;;9002226.02101,"786,61442014101 ",.01)
 ;;61442014101
 ;;9002226.02101,"786,61442014101 ",.02)
 ;;61442014101
 ;;9002226.02101,"786,61442014110 ",.01)
 ;;61442014110
 ;;9002226.02101,"786,61442014110 ",.02)
 ;;61442014110
 ;;9002226.02101,"786,61442014201 ",.01)
 ;;61442014201
 ;;9002226.02101,"786,61442014201 ",.02)
 ;;61442014201
 ;;9002226.02101,"786,61442014210 ",.01)
 ;;61442014210
 ;;9002226.02101,"786,61442014210 ",.02)
 ;;61442014210
 ;;9002226.02101,"786,61442014301 ",.01)
 ;;61442014301
 ;;9002226.02101,"786,61442014301 ",.02)
 ;;61442014301
 ;;9002226.02101,"786,61442014310 ",.01)
 ;;61442014310
 ;;9002226.02101,"786,61442014310 ",.02)
 ;;61442014310
 ;;9002226.02101,"786,61947000600 ",.01)
 ;;61947000600
 ;;9002226.02101,"786,61947000600 ",.02)
 ;;61947000600
 ;;9002226.02101,"786,61947000700 ",.01)
 ;;61947000700
 ;;9002226.02101,"786,61947000700 ",.02)
 ;;61947000700
 ;;9002226.02101,"786,62037079101 ",.01)
 ;;62037079101
 ;;9002226.02101,"786,62037079101 ",.02)
 ;;62037079101
 ;;9002226.02101,"786,62037079105 ",.01)
 ;;62037079105
 ;;9002226.02101,"786,62037079105 ",.02)
 ;;62037079105
 ;;9002226.02101,"786,62037079160 ",.01)
 ;;62037079160
 ;;9002226.02101,"786,62037079160 ",.02)
 ;;62037079160
 ;;9002226.02101,"786,62037079201 ",.01)
 ;;62037079201
 ;;9002226.02101,"786,62037079201 ",.02)
 ;;62037079201
 ;;9002226.02101,"786,62037079205 ",.01)
 ;;62037079205
 ;;9002226.02101,"786,62037079205 ",.02)
 ;;62037079205
 ;;9002226.02101,"786,62037079210 ",.01)
 ;;62037079210
 ;;9002226.02101,"786,62037079210 ",.02)
 ;;62037079210
 ;;9002226.02101,"786,62037079260 ",.01)
 ;;62037079260
 ;;9002226.02101,"786,62037079260 ",.02)
 ;;62037079260
 ;;9002226.02101,"786,62037079301 ",.01)
 ;;62037079301
 ;;9002226.02101,"786,62037079301 ",.02)
 ;;62037079301
 ;;9002226.02101,"786,62037079305 ",.01)
 ;;62037079305
 ;;9002226.02101,"786,62037079305 ",.02)
 ;;62037079305
 ;;9002226.02101,"786,62037079310 ",.01)
 ;;62037079310
 ;;9002226.02101,"786,62037079310 ",.02)
 ;;62037079310
 ;;9002226.02101,"786,62037079360 ",.01)
 ;;62037079360
 ;;9002226.02101,"786,62037079360 ",.02)
 ;;62037079360
 ;;9002226.02101,"786,62269032029 ",.01)
 ;;62269032029
 ;;9002226.02101,"786,62269032029 ",.02)
 ;;62269032029
 ;;9002226.02101,"786,62269032060 ",.01)
 ;;62269032060
 ;;9002226.02101,"786,62269032060 ",.02)
 ;;62269032060
 ;;9002226.02101,"786,62318003404 ",.01)
 ;;62318003404
 ;;9002226.02101,"786,62318003404 ",.02)
 ;;62318003404
 ;;9002226.02101,"786,62318003408 ",.01)
 ;;62318003408
 ;;9002226.02101,"786,62318003408 ",.02)
 ;;62318003408
 ;;9002226.02101,"786,63126028110 ",.01)
 ;;63126028110
 ;;9002226.02101,"786,63126028110 ",.02)
 ;;63126028110
 ;;9002226.02101,"786,63126028160 ",.01)
 ;;63126028160
 ;;9002226.02101,"786,63126028160 ",.02)
 ;;63126028160
 ;;9002226.02101,"786,63126028210 ",.01)
 ;;63126028210
 ;;9002226.02101,"786,63126028210 ",.02)
 ;;63126028210
 ;;9002226.02101,"786,63126028260 ",.01)
 ;;63126028260
 ;;9002226.02101,"786,63126028260 ",.02)
 ;;63126028260
 ;;9002226.02101,"786,63126028310 ",.01)
 ;;63126028310
 ;;9002226.02101,"786,63126028310 ",.02)
 ;;63126028310
 ;;9002226.02101,"786,63126028360 ",.01)
 ;;63126028360
 ;;9002226.02101,"786,63126028360 ",.02)
 ;;63126028360
 ;;9002226.02101,"786,63304078910 ",.01)
 ;;63304078910
 ;;9002226.02101,"786,63304078910 ",.02)
 ;;63304078910
 ;;9002226.02101,"786,63304078930 ",.01)
 ;;63304078930
 ;;9002226.02101,"786,63304078930 ",.02)
 ;;63304078930
 ;;9002226.02101,"786,63304078990 ",.01)
 ;;63304078990