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

BGPM5APD.m

Go to the documentation of this file.
BGPM5APD ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 09, 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,"998,00363022714 ",.02)
 ;;00363022714
 ;;9002226.02101,"998,00363022717 ",.01)
 ;;00363022717
 ;;9002226.02101,"998,00363022717 ",.02)
 ;;00363022717
 ;;9002226.02101,"998,00363022757 ",.01)
 ;;00363022757
 ;;9002226.02101,"998,00363022757 ",.02)
 ;;00363022757
 ;;9002226.02101,"998,00363025514 ",.01)
 ;;00363025514
 ;;9002226.02101,"998,00363025514 ",.02)
 ;;00363025514
 ;;9002226.02101,"998,00363025517 ",.01)
 ;;00363025517
 ;;9002226.02101,"998,00363025517 ",.02)
 ;;00363025517
 ;;9002226.02101,"998,00363025532 ",.01)
 ;;00363025532
 ;;9002226.02101,"998,00363025532 ",.02)
 ;;00363025532
 ;;9002226.02101,"998,00363039707 ",.01)
 ;;00363039707
 ;;9002226.02101,"998,00363039707 ",.02)
 ;;00363039707
 ;;9002226.02101,"998,00363041412 ",.01)
 ;;00363041412
 ;;9002226.02101,"998,00363041412 ",.02)
 ;;00363041412
 ;;9002226.02101,"998,00363056314 ",.01)
 ;;00363056314
 ;;9002226.02101,"998,00363056314 ",.02)
 ;;00363056314
 ;;9002226.02101,"998,00363058732 ",.01)
 ;;00363058732
 ;;9002226.02101,"998,00363058732 ",.02)
 ;;00363058732
 ;;9002226.02101,"998,00404071013 ",.01)
 ;;00404071013
 ;;9002226.02101,"998,00404071013 ",.02)
 ;;00404071013
 ;;9002226.02101,"998,00404071099 ",.01)
 ;;00404071099
 ;;9002226.02101,"998,00404071099 ",.02)
 ;;00404071099
 ;;9002226.02101,"998,00404071213 ",.01)
 ;;00404071213
 ;;9002226.02101,"998,00404071213 ",.02)
 ;;00404071213
 ;;9002226.02101,"998,00404071299 ",.01)
 ;;00404071299
 ;;9002226.02101,"998,00404071299 ",.02)
 ;;00404071299
 ;;9002226.02101,"998,00440113090 ",.01)
 ;;00440113090
 ;;9002226.02101,"998,00440113090 ",.02)
 ;;00440113090
 ;;9002226.02101,"998,00440113590 ",.01)
 ;;00440113590
 ;;9002226.02101,"998,00440113590 ",.02)
 ;;00440113590
 ;;9002226.02101,"998,00480015401 ",.01)
 ;;00480015401
 ;;9002226.02101,"998,00480015401 ",.02)
 ;;00480015401
 ;;9002226.02101,"998,00480015405 ",.01)
 ;;00480015405
 ;;9002226.02101,"998,00480015405 ",.02)
 ;;00480015405
 ;;9002226.02101,"998,00536308610 ",.01)
 ;;00536308610
 ;;9002226.02101,"998,00536308610 ",.02)
 ;;00536308610
 ;;9002226.02101,"998,00536308641 ",.01)
 ;;00536308641
 ;;9002226.02101,"998,00536308641 ",.02)
 ;;00536308641
 ;;9002226.02101,"998,00536329736 ",.01)
 ;;00536329736
 ;;9002226.02101,"998,00536329736 ",.02)
 ;;00536329736
 ;;9002226.02101,"998,00536330501 ",.01)
 ;;00536330501
 ;;9002226.02101,"998,00536330501 ",.02)
 ;;00536330501
 ;;9002226.02101,"998,00536330510 ",.01)
 ;;00536330510
 ;;9002226.02101,"998,00536330510 ",.02)
 ;;00536330510
 ;;9002226.02101,"998,00536331301 ",.01)
 ;;00536331301
 ;;9002226.02101,"998,00536331301 ",.02)
 ;;00536331301
 ;;9002226.02101,"998,00536331310 ",.01)
 ;;00536331310
 ;;9002226.02101,"998,00536331310 ",.02)
 ;;00536331310
 ;;9002226.02101,"998,00536331810 ",.01)
 ;;00536331810
 ;;9002226.02101,"998,00536331810 ",.02)
 ;;00536331810
 ;;9002226.02101,"998,00573027110 ",.01)
 ;;00573027110
 ;;9002226.02101,"998,00573027110 ",.02)
 ;;00573027110
 ;;9002226.02101,"998,00573027120 ",.01)
 ;;00573027120
 ;;9002226.02101,"998,00573027120 ",.02)
 ;;00573027120
 ;;9002226.02101,"998,00574000201 ",.01)
 ;;00574000201
 ;;9002226.02101,"998,00574000201 ",.02)
 ;;00574000201
 ;;9002226.02101,"998,00574000211 ",.01)
 ;;00574000211
 ;;9002226.02101,"998,00574000211 ",.02)
 ;;00574000211
 ;;9002226.02101,"998,00603002436 ",.01)
 ;;00603002436
 ;;9002226.02101,"998,00603002436 ",.02)
 ;;00603002436
 ;;9002226.02101,"998,00603002522 ",.01)
 ;;00603002522
 ;;9002226.02101,"998,00603002522 ",.02)
 ;;00603002522
 ;;9002226.02101,"998,00603002532 ",.01)
 ;;00603002532
 ;;9002226.02101,"998,00603002532 ",.02)
 ;;00603002532
 ;;9002226.02101,"998,00603002622 ",.01)
 ;;00603002622
 ;;9002226.02101,"998,00603002622 ",.02)
 ;;00603002622
 ;;9002226.02101,"998,00603002632 ",.01)
 ;;00603002632
 ;;9002226.02101,"998,00603002632 ",.02)
 ;;00603002632
 ;;9002226.02101,"998,00603003121 ",.01)
 ;;00603003121
 ;;9002226.02101,"998,00603003121 ",.02)
 ;;00603003121
 ;;9002226.02101,"998,00603003125 ",.01)
 ;;00603003125
 ;;9002226.02101,"998,00603003125 ",.02)
 ;;00603003125
 ;;9002226.02101,"998,00603016621 ",.01)
 ;;00603016621
 ;;9002226.02101,"998,00603016621 ",.02)
 ;;00603016621
 ;;9002226.02101,"998,00603016702 ",.01)
 ;;00603016702
 ;;9002226.02101,"998,00603016702 ",.02)
 ;;00603016702
 ;;9002226.02101,"998,00603016721 ",.01)
 ;;00603016721
 ;;9002226.02101,"998,00603016721 ",.02)
 ;;00603016721
 ;;9002226.02101,"998,00603016732 ",.01)
 ;;00603016732
 ;;9002226.02101,"998,00603016732 ",.02)
 ;;00603016732
 ;;9002226.02101,"998,00603016821 ",.01)
 ;;00603016821
 ;;9002226.02101,"998,00603016821 ",.02)
 ;;00603016821
 ;;9002226.02101,"998,00603016902 ",.01)
 ;;00603016902
 ;;9002226.02101,"998,00603016902 ",.02)
 ;;00603016902
 ;;9002226.02101,"998,00603016921 ",.01)
 ;;00603016921
 ;;9002226.02101,"998,00603016921 ",.02)
 ;;00603016921
 ;;9002226.02101,"998,00603016932 ",.01)
 ;;00603016932
 ;;9002226.02101,"998,00603016932 ",.02)
 ;;00603016932
 ;;9002226.02101,"998,00615052231 ",.01)
 ;;00615052231
 ;;9002226.02101,"998,00615052231 ",.02)
 ;;00615052231
 ;;9002226.02101,"998,00615052239 ",.01)
 ;;00615052239
 ;;9002226.02101,"998,00615052239 ",.02)
 ;;00615052239
 ;;9002226.02101,"998,00615350831 ",.01)
 ;;00615350831
 ;;9002226.02101,"998,00615350831 ",.02)
 ;;00615350831
 ;;9002226.02101,"998,00615350839 ",.01)
 ;;00615350839
 ;;9002226.02101,"998,00615350839 ",.02)
 ;;00615350839
 ;;9002226.02101,"998,00615356831 ",.01)
 ;;00615356831
 ;;9002226.02101,"998,00615356831 ",.02)
 ;;00615356831
 ;;9002226.02101,"998,00615356839 ",.01)
 ;;00615356839
 ;;9002226.02101,"998,00615356839 ",.02)
 ;;00615356839
 ;;9002226.02101,"998,00677117201 ",.01)
 ;;00677117201
 ;;9002226.02101,"998,00677117201 ",.02)
 ;;00677117201
 ;;9002226.02101,"998,00820013401 ",.01)
 ;;00820013401
 ;;9002226.02101,"998,00820013401 ",.02)
 ;;00820013401
 ;;9002226.02101,"998,00820013410 ",.01)
 ;;00820013410
 ;;9002226.02101,"998,00820013410 ",.02)
 ;;00820013410
 ;;9002226.02101,"998,00820013701 ",.01)
 ;;00820013701
 ;;9002226.02101,"998,00820013701 ",.02)
 ;;00820013701
 ;;9002226.02101,"998,00820013710 ",.01)
 ;;00820013710
 ;;9002226.02101,"998,00820013710 ",.02)
 ;;00820013710
 ;;9002226.02101,"998,00820014301 ",.01)
 ;;00820014301
 ;;9002226.02101,"998,00820014301 ",.02)
 ;;00820014301
 ;;9002226.02101,"998,00820014304 ",.01)
 ;;00820014304
 ;;9002226.02101,"998,00820014304 ",.02)
 ;;00820014304
 ;;9002226.02101,"998,00820014310 ",.01)
 ;;00820014310
 ;;9002226.02101,"998,00820014310 ",.02)
 ;;00820014310
 ;;9002226.02101,"998,00869153009 ",.01)
 ;;00869153009
 ;;9002226.02101,"998,00869153009 ",.02)
 ;;00869153009
 ;;9002226.02101,"998,00904034759 ",.01)
 ;;00904034759
 ;;9002226.02101,"998,00904034759 ",.02)
 ;;00904034759
 ;;9002226.02101,"998,00904058260 ",.01)
 ;;00904058260
 ;;9002226.02101,"998,00904058260 ",.02)
 ;;00904058260
 ;;9002226.02101,"998,00904058560 ",.01)
 ;;00904058560
 ;;9002226.02101,"998,00904058560 ",.02)
 ;;00904058560
 ;;9002226.02101,"998,00904200940 ",.01)
 ;;00904200940
 ;;9002226.02101,"998,00904200940 ",.02)
 ;;00904200940
 ;;9002226.02101,"998,00904200960 ",.01)
 ;;00904200960
 ;;9002226.02101,"998,00904200960 ",.02)
 ;;00904200960
 ;;9002226.02101,"998,00904200970 ",.01)
 ;;00904200970
 ;;9002226.02101,"998,00904200970 ",.02)
 ;;00904200970
 ;;9002226.02101,"998,00904200980 ",.01)
 ;;00904200980
 ;;9002226.02101,"998,00904200980 ",.02)
 ;;00904200980
 ;;9002226.02101,"998,00904201159 ",.01)
 ;;00904201159
 ;;9002226.02101,"998,00904201159 ",.02)
 ;;00904201159
 ;;9002226.02101,"998,00904201360 ",.01)
 ;;00904201360
 ;;9002226.02101,"998,00904201360 ",.02)
 ;;00904201360
 ;;9002226.02101,"998,00904201372 ",.01)
 ;;00904201372
 ;;9002226.02101,"998,00904201372 ",.02)
 ;;00904201372
 ;;9002226.02101,"998,00904201380 ",.01)
 ;;00904201380
 ;;9002226.02101,"998,00904201380 ",.02)
 ;;00904201380
 ;;9002226.02101,"998,00904201559 ",.01)
 ;;00904201559
 ;;9002226.02101,"998,00904201559 ",.02)
 ;;00904201559
 ;;9002226.02101,"998,00904201959 ",.01)
 ;;00904201959
 ;;9002226.02101,"998,00904201959 ",.02)
 ;;00904201959
 ;;9002226.02101,"998,00904201980 ",.01)
 ;;00904201980
 ;;9002226.02101,"998,00904201980 ",.02)
 ;;00904201980
 ;;9002226.02101,"998,00904404061 ",.01)
 ;;00904404061
 ;;9002226.02101,"998,00904404061 ",.02)
 ;;00904404061
 ;;9002226.02101,"998,00904404073 ",.01)
 ;;00904404073
 ;;9002226.02101,"998,00904404073 ",.02)
 ;;00904404073
 ;;9002226.02101,"998,00904537840 ",.01)
 ;;00904537840
 ;;9002226.02101,"998,00904537840 ",.02)
 ;;00904537840
 ;;9002226.02101,"998,00904537846 ",.01)
 ;;00904537846
 ;;9002226.02101,"998,00904537846 ",.02)
 ;;00904537846
 ;;9002226.02101,"998,00904537852 ",.01)
 ;;00904537852
 ;;9002226.02101,"998,00904537852 ",.02)
 ;;00904537852
 ;;9002226.02101,"998,00904537860 ",.01)
 ;;00904537860
 ;;9002226.02101,"998,00904537860 ",.02)
 ;;00904537860
 ;;9002226.02101,"998,00904537861 ",.01)
 ;;00904537861
 ;;9002226.02101,"998,00904537861 ",.02)
 ;;00904537861
 ;;9002226.02101,"998,04116709325 ",.01)
 ;;04116709325
 ;;9002226.02101,"998,04116709325 ",.02)
 ;;04116709325
 ;;9002226.02101,"998,10056053576 ",.01)
 ;;10056053576
 ;;9002226.02101,"998,10056053576 ",.02)
 ;;10056053576
 ;;9002226.02101,"998,10135012601 ",.01)
 ;;10135012601
 ;;9002226.02101,"998,10135012601 ",.02)
 ;;10135012601
 ;;9002226.02101,"998,10135012603 ",.01)
 ;;10135012603
 ;;9002226.02101,"998,10135012603 ",.02)
 ;;10135012603
 ;;9002226.02101,"998,10135012610 ",.01)
 ;;10135012610
 ;;9002226.02101,"998,10135012610 ",.02)
 ;;10135012610
 ;;9002226.02101,"998,10135012613 ",.01)
 ;;10135012613
 ;;9002226.02101,"998,10135012613 ",.02)
 ;;10135012613
 ;;9002226.02101,"998,10135012616 ",.01)
 ;;10135012616
 ;;9002226.02101,"998,10135012616 ",.02)
 ;;10135012616
 ;;9002226.02101,"998,10135012620 ",.01)
 ;;10135012620
 ;;9002226.02101,"998,10135012620 ",.02)
 ;;10135012620
 ;;9002226.02101,"998,10135012627 ",.01)
 ;;10135012627
 ;;9002226.02101,"998,10135012627 ",.02)
 ;;10135012627
 ;;9002226.02101,"998,10135012630 ",.01)
 ;;10135012630
 ;;9002226.02101,"998,10135012630 ",.02)
 ;;10135012630
 ;;9002226.02101,"998,10135012650 ",.01)
 ;;10135012650
 ;;9002226.02101,"998,10135012650 ",.02)
 ;;10135012650
 ;;9002226.02101,"998,10135012657 ",.01)
 ;;10135012657
 ;;9002226.02101,"998,10135012657 ",.02)
 ;;10135012657
 ;;9002226.02101,"998,10135012660 ",.01)
 ;;10135012660
 ;;9002226.02101,"998,10135012660 ",.02)
 ;;10135012660
 ;;9002226.02101,"998,10135012669 ",.01)
 ;;10135012669
 ;;9002226.02101,"998,10135012669 ",.02)
 ;;10135012669
 ;;9002226.02101,"998,10135012675 ",.01)
 ;;10135012675
 ;;9002226.02101,"998,10135012675 ",.02)
 ;;10135012675
 ;;9002226.02101,"998,10135012690 ",.01)
 ;;10135012690
 ;;9002226.02101,"998,10135012690 ",.02)
 ;;10135012690
 ;;9002226.02101,"998,10135012699 ",.01)
 ;;10135012699
 ;;9002226.02101,"998,10135012699 ",.02)
 ;;10135012699
 ;;9002226.02101,"998,10135015001 ",.01)
 ;;10135015001
 ;;9002226.02101,"998,10135015001 ",.02)
 ;;10135015001
 ;;9002226.02101,"998,10135015005 ",.01)
 ;;10135015005
 ;;9002226.02101,"998,10135015005 ",.02)
 ;;10135015005
 ;;9002226.02101,"998,10135015010 ",.01)
 ;;10135015010
 ;;9002226.02101,"998,10135015010 ",.02)
 ;;10135015010
 ;;9002226.02101,"998,10135015013 ",.01)
 ;;10135015013
 ;;9002226.02101,"998,10135015013 ",.02)
 ;;10135015013
 ;;9002226.02101,"998,10135015020 ",.01)
 ;;10135015020