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

BGPM5ADD.m

Go to the documentation of this file.
BGPM5ADD ;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,60951071185 ",.02)
 ;;60951071185
 ;;9002226.02101,"846,60951071470 ",.01)
 ;;60951071470
 ;;9002226.02101,"846,60951071470 ",.02)
 ;;60951071470
 ;;9002226.02101,"846,60951071485 ",.01)
 ;;60951071485
 ;;9002226.02101,"846,60951071485 ",.02)
 ;;60951071485
 ;;9002226.02101,"846,61392006325 ",.01)
 ;;61392006325
 ;;9002226.02101,"846,61392006325 ",.02)
 ;;61392006325
 ;;9002226.02101,"846,61392006330 ",.01)
 ;;61392006330
 ;;9002226.02101,"846,61392006330 ",.02)
 ;;61392006330
 ;;9002226.02101,"846,61392006339 ",.01)
 ;;61392006339
 ;;9002226.02101,"846,61392006339 ",.02)
 ;;61392006339
 ;;9002226.02101,"846,61392006345 ",.01)
 ;;61392006345
 ;;9002226.02101,"846,61392006345 ",.02)
 ;;61392006345
 ;;9002226.02101,"846,61392006354 ",.01)
 ;;61392006354
 ;;9002226.02101,"846,61392006354 ",.02)
 ;;61392006354
 ;;9002226.02101,"846,61392006391 ",.01)
 ;;61392006391
 ;;9002226.02101,"846,61392006391 ",.02)
 ;;61392006391
 ;;9002226.02101,"846,61392006425 ",.01)
 ;;61392006425
 ;;9002226.02101,"846,61392006425 ",.02)
 ;;61392006425
 ;;9002226.02101,"846,61392006430 ",.01)
 ;;61392006430
 ;;9002226.02101,"846,61392006430 ",.02)
 ;;61392006430
 ;;9002226.02101,"846,61392006439 ",.01)
 ;;61392006439
 ;;9002226.02101,"846,61392006439 ",.02)
 ;;61392006439
 ;;9002226.02101,"846,61392006445 ",.01)
 ;;61392006445
 ;;9002226.02101,"846,61392006445 ",.02)
 ;;61392006445
 ;;9002226.02101,"846,61392006451 ",.01)
 ;;61392006451
 ;;9002226.02101,"846,61392006451 ",.02)
 ;;61392006451
 ;;9002226.02101,"846,61392006454 ",.01)
 ;;61392006454
 ;;9002226.02101,"846,61392006454 ",.02)
 ;;61392006454
 ;;9002226.02101,"846,61392006491 ",.01)
 ;;61392006491
 ;;9002226.02101,"846,61392006491 ",.02)
 ;;61392006491
 ;;9002226.02101,"846,61392011730 ",.01)
 ;;61392011730
 ;;9002226.02101,"846,61392011730 ",.02)
 ;;61392011730
 ;;9002226.02101,"846,61392011731 ",.01)
 ;;61392011731
 ;;9002226.02101,"846,61392011731 ",.02)
 ;;61392011731
 ;;9002226.02101,"846,61392011732 ",.01)
 ;;61392011732
 ;;9002226.02101,"846,61392011732 ",.02)
 ;;61392011732
 ;;9002226.02101,"846,61392011739 ",.01)
 ;;61392011739
 ;;9002226.02101,"846,61392011739 ",.02)
 ;;61392011739
 ;;9002226.02101,"846,61392011745 ",.01)
 ;;61392011745
 ;;9002226.02101,"846,61392011745 ",.02)
 ;;61392011745
 ;;9002226.02101,"846,61392011751 ",.01)
 ;;61392011751
 ;;9002226.02101,"846,61392011751 ",.02)
 ;;61392011751
 ;;9002226.02101,"846,61392011754 ",.01)
 ;;61392011754
 ;;9002226.02101,"846,61392011754 ",.02)
 ;;61392011754
 ;;9002226.02101,"846,61392011760 ",.01)
 ;;61392011760
 ;;9002226.02101,"846,61392011760 ",.02)
 ;;61392011760
 ;;9002226.02101,"846,61392011790 ",.01)
 ;;61392011790
 ;;9002226.02101,"846,61392011790 ",.02)
 ;;61392011790
 ;;9002226.02101,"846,61392011791 ",.01)
 ;;61392011791
 ;;9002226.02101,"846,61392011791 ",.02)
 ;;61392011791
 ;;9002226.02101,"846,61392011930 ",.01)
 ;;61392011930
 ;;9002226.02101,"846,61392011930 ",.02)
 ;;61392011930
 ;;9002226.02101,"846,61392011931 ",.01)
 ;;61392011931
 ;;9002226.02101,"846,61392011931 ",.02)
 ;;61392011931
 ;;9002226.02101,"846,61392011932 ",.01)
 ;;61392011932
 ;;9002226.02101,"846,61392011932 ",.02)
 ;;61392011932
 ;;9002226.02101,"846,61392011939 ",.01)
 ;;61392011939
 ;;9002226.02101,"846,61392011939 ",.02)
 ;;61392011939
 ;;9002226.02101,"846,61392011945 ",.01)
 ;;61392011945
 ;;9002226.02101,"846,61392011945 ",.02)
 ;;61392011945
 ;;9002226.02101,"846,61392011951 ",.01)
 ;;61392011951
 ;;9002226.02101,"846,61392011951 ",.02)
 ;;61392011951
 ;;9002226.02101,"846,61392011954 ",.01)
 ;;61392011954
 ;;9002226.02101,"846,61392011954 ",.02)
 ;;61392011954
 ;;9002226.02101,"846,61392011960 ",.01)
 ;;61392011960
 ;;9002226.02101,"846,61392011960 ",.02)
 ;;61392011960
 ;;9002226.02101,"846,61392011990 ",.01)
 ;;61392011990
 ;;9002226.02101,"846,61392011990 ",.02)
 ;;61392011990
 ;;9002226.02101,"846,61392011991 ",.01)
 ;;61392011991
 ;;9002226.02101,"846,61392011991 ",.02)
 ;;61392011991
 ;;9002226.02101,"846,61392012045 ",.01)
 ;;61392012045
 ;;9002226.02101,"846,61392012045 ",.02)
 ;;61392012045
 ;;9002226.02101,"846,61392012051 ",.01)
 ;;61392012051
 ;;9002226.02101,"846,61392012051 ",.02)
 ;;61392012051
 ;;9002226.02101,"846,61392012054 ",.01)
 ;;61392012054
 ;;9002226.02101,"846,61392012054 ",.02)
 ;;61392012054
 ;;9002226.02101,"846,61392012091 ",.01)
 ;;61392012091
 ;;9002226.02101,"846,61392012091 ",.02)
 ;;61392012091
 ;;9002226.02101,"846,61392059225 ",.01)
 ;;61392059225
 ;;9002226.02101,"846,61392059225 ",.02)
 ;;61392059225
 ;;9002226.02101,"846,61392059230 ",.01)
 ;;61392059230
 ;;9002226.02101,"846,61392059230 ",.02)
 ;;61392059230
 ;;9002226.02101,"846,61392059231 ",.01)
 ;;61392059231
 ;;9002226.02101,"846,61392059231 ",.02)
 ;;61392059231
 ;;9002226.02101,"846,61392059239 ",.01)
 ;;61392059239
 ;;9002226.02101,"846,61392059239 ",.02)
 ;;61392059239
 ;;9002226.02101,"846,61392059325 ",.01)
 ;;61392059325
 ;;9002226.02101,"846,61392059325 ",.02)
 ;;61392059325
 ;;9002226.02101,"846,61392059330 ",.01)
 ;;61392059330
 ;;9002226.02101,"846,61392059330 ",.02)
 ;;61392059330
 ;;9002226.02101,"846,61392059331 ",.01)
 ;;61392059331
 ;;9002226.02101,"846,61392059331 ",.02)
 ;;61392059331
 ;;9002226.02101,"846,61392059339 ",.01)
 ;;61392059339
 ;;9002226.02101,"846,61392059339 ",.02)
 ;;61392059339
 ;;9002226.02101,"846,61392059425 ",.01)
 ;;61392059425
 ;;9002226.02101,"846,61392059425 ",.02)
 ;;61392059425
 ;;9002226.02101,"846,61392059430 ",.01)
 ;;61392059430
 ;;9002226.02101,"846,61392059430 ",.02)
 ;;61392059430
 ;;9002226.02101,"846,61392059431 ",.01)
 ;;61392059431
 ;;9002226.02101,"846,61392059431 ",.02)
 ;;61392059431
 ;;9002226.02101,"846,61392059439 ",.01)
 ;;61392059439
 ;;9002226.02101,"846,61392059439 ",.02)
 ;;61392059439
 ;;9002226.02101,"846,61392059460 ",.01)
 ;;61392059460
 ;;9002226.02101,"846,61392059460 ",.02)
 ;;61392059460
 ;;9002226.02101,"846,61392059525 ",.01)
 ;;61392059525
 ;;9002226.02101,"846,61392059525 ",.02)
 ;;61392059525
 ;;9002226.02101,"846,61392059530 ",.01)
 ;;61392059530
 ;;9002226.02101,"846,61392059530 ",.02)
 ;;61392059530
 ;;9002226.02101,"846,61392059531 ",.01)
 ;;61392059531
 ;;9002226.02101,"846,61392059531 ",.02)
 ;;61392059531
 ;;9002226.02101,"846,61392059539 ",.01)
 ;;61392059539
 ;;9002226.02101,"846,61392059539 ",.02)
 ;;61392059539
 ;;9002226.02101,"846,61392059560 ",.01)
 ;;61392059560
 ;;9002226.02101,"846,61392059560 ",.02)
 ;;61392059560
 ;;9002226.02101,"846,61392059625 ",.01)
 ;;61392059625
 ;;9002226.02101,"846,61392059625 ",.02)
 ;;61392059625
 ;;9002226.02101,"846,61392059630 ",.01)
 ;;61392059630
 ;;9002226.02101,"846,61392059630 ",.02)
 ;;61392059630
 ;;9002226.02101,"846,61392059631 ",.01)
 ;;61392059631
 ;;9002226.02101,"846,61392059631 ",.02)
 ;;61392059631
 ;;9002226.02101,"846,61392059660 ",.01)
 ;;61392059660
 ;;9002226.02101,"846,61392059660 ",.02)
 ;;61392059660
 ;;9002226.02101,"846,61392059690 ",.01)
 ;;61392059690
 ;;9002226.02101,"846,61392059690 ",.02)
 ;;61392059690
 ;;9002226.02101,"846,61392070925 ",.01)
 ;;61392070925
 ;;9002226.02101,"846,61392070925 ",.02)
 ;;61392070925
 ;;9002226.02101,"846,61392070930 ",.01)
 ;;61392070930
 ;;9002226.02101,"846,61392070930 ",.02)
 ;;61392070930
 ;;9002226.02101,"846,61392070931 ",.01)
 ;;61392070931
 ;;9002226.02101,"846,61392070931 ",.02)
 ;;61392070931
 ;;9002226.02101,"846,61392070939 ",.01)
 ;;61392070939
 ;;9002226.02101,"846,61392070939 ",.02)
 ;;61392070939
 ;;9002226.02101,"846,61392070960 ",.01)
 ;;61392070960
 ;;9002226.02101,"846,61392070960 ",.02)
 ;;61392070960
 ;;9002226.02101,"846,61392070965 ",.01)
 ;;61392070965
 ;;9002226.02101,"846,61392070965 ",.02)
 ;;61392070965
 ;;9002226.02101,"846,61392070990 ",.01)
 ;;61392070990
 ;;9002226.02101,"846,61392070990 ",.02)
 ;;61392070990
 ;;9002226.02101,"846,61392070995 ",.01)
 ;;61392070995
 ;;9002226.02101,"846,61392070995 ",.02)
 ;;61392070995
 ;;9002226.02101,"846,61392072425 ",.01)
 ;;61392072425
 ;;9002226.02101,"846,61392072425 ",.02)
 ;;61392072425
 ;;9002226.02101,"846,61392072430 ",.01)
 ;;61392072430
 ;;9002226.02101,"846,61392072430 ",.02)
 ;;61392072430
 ;;9002226.02101,"846,61392072431 ",.01)
 ;;61392072431
 ;;9002226.02101,"846,61392072431 ",.02)
 ;;61392072431
 ;;9002226.02101,"846,61392072439 ",.01)
 ;;61392072439
 ;;9002226.02101,"846,61392072439 ",.02)
 ;;61392072439
 ;;9002226.02101,"846,61392072460 ",.01)
 ;;61392072460
 ;;9002226.02101,"846,61392072460 ",.02)
 ;;61392072460
 ;;9002226.02101,"846,61392072465 ",.01)
 ;;61392072465
 ;;9002226.02101,"846,61392072465 ",.02)
 ;;61392072465
 ;;9002226.02101,"846,61392072490 ",.01)
 ;;61392072490
 ;;9002226.02101,"846,61392072490 ",.02)
 ;;61392072490
 ;;9002226.02101,"846,61392072495 ",.01)
 ;;61392072495
 ;;9002226.02101,"846,61392072495 ",.02)
 ;;61392072495
 ;;9002226.02101,"846,61392083425 ",.01)
 ;;61392083425
 ;;9002226.02101,"846,61392083425 ",.02)
 ;;61392083425
 ;;9002226.02101,"846,61392083430 ",.01)
 ;;61392083430
 ;;9002226.02101,"846,61392083430 ",.02)
 ;;61392083430
 ;;9002226.02101,"846,61392083431 ",.01)
 ;;61392083431
 ;;9002226.02101,"846,61392083431 ",.02)
 ;;61392083431
 ;;9002226.02101,"846,61392083439 ",.01)
 ;;61392083439
 ;;9002226.02101,"846,61392083439 ",.02)
 ;;61392083439
 ;;9002226.02101,"846,61392083460 ",.01)
 ;;61392083460
 ;;9002226.02101,"846,61392083460 ",.02)
 ;;61392083460
 ;;9002226.02101,"846,61392083465 ",.01)
 ;;61392083465
 ;;9002226.02101,"846,61392083465 ",.02)
 ;;61392083465
 ;;9002226.02101,"846,61392083490 ",.01)
 ;;61392083490
 ;;9002226.02101,"846,61392083490 ",.02)
 ;;61392083490
 ;;9002226.02101,"846,61392083495 ",.01)
 ;;61392083495
 ;;9002226.02101,"846,61392083495 ",.02)
 ;;61392083495
 ;;9002226.02101,"846,61442011501 ",.01)
 ;;61442011501
 ;;9002226.02101,"846,61442011501 ",.02)
 ;;61442011501
 ;;9002226.02101,"846,61442011505 ",.01)
 ;;61442011505
 ;;9002226.02101,"846,61442011505 ",.02)
 ;;61442011505
 ;;9002226.02101,"846,61442011510 ",.01)
 ;;61442011510
 ;;9002226.02101,"846,61442011510 ",.02)
 ;;61442011510
 ;;9002226.02101,"846,61442011525 ",.01)
 ;;61442011525
 ;;9002226.02101,"846,61442011525 ",.02)
 ;;61442011525
 ;;9002226.02101,"846,61442011601 ",.01)
 ;;61442011601
 ;;9002226.02101,"846,61442011601 ",.02)
 ;;61442011601
 ;;9002226.02101,"846,61442011605 ",.01)
 ;;61442011605
 ;;9002226.02101,"846,61442011605 ",.02)
 ;;61442011605
 ;;9002226.02101,"846,61442011610 ",.01)
 ;;61442011610
 ;;9002226.02101,"846,61442011610 ",.02)
 ;;61442011610
 ;;9002226.02101,"846,61442011625 ",.01)
 ;;61442011625
 ;;9002226.02101,"846,61442011625 ",.02)
 ;;61442011625
 ;;9002226.02101,"846,61442011701 ",.01)
 ;;61442011701
 ;;9002226.02101,"846,61442011701 ",.02)
 ;;61442011701
 ;;9002226.02101,"846,61442011705 ",.01)
 ;;61442011705
 ;;9002226.02101,"846,61442011705 ",.02)
 ;;61442011705
 ;;9002226.02101,"846,61442011710 ",.01)
 ;;61442011710
 ;;9002226.02101,"846,61442011710 ",.02)
 ;;61442011710
 ;;9002226.02101,"846,61442011725 ",.01)
 ;;61442011725
 ;;9002226.02101,"846,61442011725 ",.02)
 ;;61442011725
 ;;9002226.02101,"846,62037087130 ",.01)
 ;;62037087130
 ;;9002226.02101,"846,62037087130 ",.02)
 ;;62037087130
 ;;9002226.02101,"846,62037087201 ",.01)
 ;;62037087201
 ;;9002226.02101,"846,62037087201 ",.02)
 ;;62037087201
 ;;9002226.02101,"846,62037087205 ",.01)
 ;;62037087205
 ;;9002226.02101,"846,62037087205 ",.02)
 ;;62037087205
 ;;9002226.02101,"846,62037087301 ",.01)
 ;;62037087301