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

BGPM5ACY.m

Go to the documentation of this file.
BGPM5ACY ;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,55289080630 ",.02)
 ;;55289080630
 ;;9002226.02101,"846,55289080660 ",.01)
 ;;55289080660
 ;;9002226.02101,"846,55289080660 ",.02)
 ;;55289080660
 ;;9002226.02101,"846,55289080686 ",.01)
 ;;55289080686
 ;;9002226.02101,"846,55289080686 ",.02)
 ;;55289080686
 ;;9002226.02101,"846,55289080690 ",.01)
 ;;55289080690
 ;;9002226.02101,"846,55289080690 ",.02)
 ;;55289080690
 ;;9002226.02101,"846,55289089201 ",.01)
 ;;55289089201
 ;;9002226.02101,"846,55289089201 ",.02)
 ;;55289089201
 ;;9002226.02101,"846,55289089214 ",.01)
 ;;55289089214
 ;;9002226.02101,"846,55289089214 ",.02)
 ;;55289089214
 ;;9002226.02101,"846,55289089215 ",.01)
 ;;55289089215
 ;;9002226.02101,"846,55289089215 ",.02)
 ;;55289089215
 ;;9002226.02101,"846,55289089230 ",.01)
 ;;55289089230
 ;;9002226.02101,"846,55289089230 ",.02)
 ;;55289089230
 ;;9002226.02101,"846,55289089260 ",.01)
 ;;55289089260
 ;;9002226.02101,"846,55289089260 ",.02)
 ;;55289089260
 ;;9002226.02101,"846,55289089286 ",.01)
 ;;55289089286
 ;;9002226.02101,"846,55289089286 ",.02)
 ;;55289089286
 ;;9002226.02101,"846,55289089290 ",.01)
 ;;55289089290
 ;;9002226.02101,"846,55289089290 ",.02)
 ;;55289089290
 ;;9002226.02101,"846,55289089293 ",.01)
 ;;55289089293
 ;;9002226.02101,"846,55289089293 ",.02)
 ;;55289089293
 ;;9002226.02101,"846,55289089297 ",.01)
 ;;55289089297
 ;;9002226.02101,"846,55289089297 ",.02)
 ;;55289089297
 ;;9002226.02101,"846,55289089298 ",.01)
 ;;55289089298
 ;;9002226.02101,"846,55289089298 ",.02)
 ;;55289089298
 ;;9002226.02101,"846,55289097601 ",.01)
 ;;55289097601
 ;;9002226.02101,"846,55289097601 ",.02)
 ;;55289097601
 ;;9002226.02101,"846,55289097614 ",.01)
 ;;55289097614
 ;;9002226.02101,"846,55289097614 ",.02)
 ;;55289097614
 ;;9002226.02101,"846,55289097630 ",.01)
 ;;55289097630
 ;;9002226.02101,"846,55289097630 ",.02)
 ;;55289097630
 ;;9002226.02101,"846,55289097660 ",.01)
 ;;55289097660
 ;;9002226.02101,"846,55289097660 ",.02)
 ;;55289097660
 ;;9002226.02101,"846,55289097693 ",.01)
 ;;55289097693
 ;;9002226.02101,"846,55289097693 ",.02)
 ;;55289097693
 ;;9002226.02101,"846,55370014607 ",.01)
 ;;55370014607
 ;;9002226.02101,"846,55370014607 ",.02)
 ;;55370014607
 ;;9002226.02101,"846,55370014608 ",.01)
 ;;55370014608
 ;;9002226.02101,"846,55370014608 ",.02)
 ;;55370014608
 ;;9002226.02101,"846,55370014609 ",.01)
 ;;55370014609
 ;;9002226.02101,"846,55370014609 ",.02)
 ;;55370014609
 ;;9002226.02101,"846,55370014707 ",.01)
 ;;55370014707
 ;;9002226.02101,"846,55370014707 ",.02)
 ;;55370014707
 ;;9002226.02101,"846,55370014708 ",.01)
 ;;55370014708
 ;;9002226.02101,"846,55370014708 ",.02)
 ;;55370014708
 ;;9002226.02101,"846,55370014709 ",.01)
 ;;55370014709
 ;;9002226.02101,"846,55370014709 ",.02)
 ;;55370014709
 ;;9002226.02101,"846,55370014907 ",.01)
 ;;55370014907
 ;;9002226.02101,"846,55370014907 ",.02)
 ;;55370014907
 ;;9002226.02101,"846,55370014909 ",.01)
 ;;55370014909
 ;;9002226.02101,"846,55370014909 ",.02)
 ;;55370014909
 ;;9002226.02101,"846,55370046010 ",.01)
 ;;55370046010
 ;;9002226.02101,"846,55370046010 ",.02)
 ;;55370046010
 ;;9002226.02101,"846,55370046011 ",.01)
 ;;55370046011
 ;;9002226.02101,"846,55370046011 ",.02)
 ;;55370046011
 ;;9002226.02101,"846,55370046050 ",.01)
 ;;55370046050
 ;;9002226.02101,"846,55370046050 ",.02)
 ;;55370046050
 ;;9002226.02101,"846,55370046110 ",.01)
 ;;55370046110
 ;;9002226.02101,"846,55370046110 ",.02)
 ;;55370046110
 ;;9002226.02101,"846,55370046111 ",.01)
 ;;55370046111
 ;;9002226.02101,"846,55370046111 ",.02)
 ;;55370046111
 ;;9002226.02101,"846,55370046150 ",.01)
 ;;55370046150
 ;;9002226.02101,"846,55370046150 ",.02)
 ;;55370046150
 ;;9002226.02101,"846,55370046210 ",.01)
 ;;55370046210
 ;;9002226.02101,"846,55370046210 ",.02)
 ;;55370046210
 ;;9002226.02101,"846,55370046211 ",.01)
 ;;55370046211
 ;;9002226.02101,"846,55370046211 ",.02)
 ;;55370046211
 ;;9002226.02101,"846,55370046250 ",.01)
 ;;55370046250
 ;;9002226.02101,"846,55370046250 ",.02)
 ;;55370046250
 ;;9002226.02101,"846,55370050607 ",.01)
 ;;55370050607
 ;;9002226.02101,"846,55370050607 ",.02)
 ;;55370050607
 ;;9002226.02101,"846,55370050608 ",.01)
 ;;55370050608
 ;;9002226.02101,"846,55370050608 ",.02)
 ;;55370050608
 ;;9002226.02101,"846,55370050609 ",.01)
 ;;55370050609
 ;;9002226.02101,"846,55370050609 ",.02)
 ;;55370050609
 ;;9002226.02101,"846,55370059207 ",.01)
 ;;55370059207
 ;;9002226.02101,"846,55370059207 ",.02)
 ;;55370059207
 ;;9002226.02101,"846,55370059407 ",.01)
 ;;55370059407
 ;;9002226.02101,"846,55370059407 ",.02)
 ;;55370059407
 ;;9002226.02101,"846,55370059408 ",.01)
 ;;55370059408
 ;;9002226.02101,"846,55370059408 ",.02)
 ;;55370059408
 ;;9002226.02101,"846,55370059507 ",.01)
 ;;55370059507
 ;;9002226.02101,"846,55370059507 ",.02)
 ;;55370059507
 ;;9002226.02101,"846,55370059607 ",.01)
 ;;55370059607
 ;;9002226.02101,"846,55370059607 ",.02)
 ;;55370059607
 ;;9002226.02101,"846,55370059608 ",.01)
 ;;55370059608
 ;;9002226.02101,"846,55370059608 ",.02)
 ;;55370059608
 ;;9002226.02101,"846,55887017330 ",.01)
 ;;55887017330
 ;;9002226.02101,"846,55887017330 ",.02)
 ;;55887017330
 ;;9002226.02101,"846,55887017990 ",.01)
 ;;55887017990
 ;;9002226.02101,"846,55887017990 ",.02)
 ;;55887017990
 ;;9002226.02101,"846,55887021230 ",.01)
 ;;55887021230
 ;;9002226.02101,"846,55887021230 ",.02)
 ;;55887021230
 ;;9002226.02101,"846,55887022230 ",.01)
 ;;55887022230
 ;;9002226.02101,"846,55887022230 ",.02)
 ;;55887022230
 ;;9002226.02101,"846,55887022260 ",.01)
 ;;55887022260
 ;;9002226.02101,"846,55887022260 ",.02)
 ;;55887022260
 ;;9002226.02101,"846,55887022290 ",.01)
 ;;55887022290
 ;;9002226.02101,"846,55887022290 ",.02)
 ;;55887022290
 ;;9002226.02101,"846,55887033930 ",.01)
 ;;55887033930
 ;;9002226.02101,"846,55887033930 ",.02)
 ;;55887033930
 ;;9002226.02101,"846,55887033960 ",.01)
 ;;55887033960
 ;;9002226.02101,"846,55887033960 ",.02)
 ;;55887033960
 ;;9002226.02101,"846,55887033990 ",.01)
 ;;55887033990
 ;;9002226.02101,"846,55887033990 ",.02)
 ;;55887033990
 ;;9002226.02101,"846,55887036830 ",.01)
 ;;55887036830
 ;;9002226.02101,"846,55887036830 ",.02)
 ;;55887036830
 ;;9002226.02101,"846,55887036860 ",.01)
 ;;55887036860
 ;;9002226.02101,"846,55887036860 ",.02)
 ;;55887036860
 ;;9002226.02101,"846,55887036890 ",.01)
 ;;55887036890
 ;;9002226.02101,"846,55887036890 ",.02)
 ;;55887036890
 ;;9002226.02101,"846,55887036896 ",.01)
 ;;55887036896
 ;;9002226.02101,"846,55887036896 ",.02)
 ;;55887036896
 ;;9002226.02101,"846,55887053501 ",.01)
 ;;55887053501
 ;;9002226.02101,"846,55887053501 ",.02)
 ;;55887053501
 ;;9002226.02101,"846,55887053530 ",.01)
 ;;55887053530
 ;;9002226.02101,"846,55887053530 ",.02)
 ;;55887053530
 ;;9002226.02101,"846,55887053560 ",.01)
 ;;55887053560
 ;;9002226.02101,"846,55887053560 ",.02)
 ;;55887053560
 ;;9002226.02101,"846,55887053590 ",.01)
 ;;55887053590
 ;;9002226.02101,"846,55887053590 ",.02)
 ;;55887053590
 ;;9002226.02101,"846,55887053601 ",.01)
 ;;55887053601
 ;;9002226.02101,"846,55887053601 ",.02)
 ;;55887053601
 ;;9002226.02101,"846,55887053630 ",.01)
 ;;55887053630
 ;;9002226.02101,"846,55887053630 ",.02)
 ;;55887053630
 ;;9002226.02101,"846,55887053660 ",.01)
 ;;55887053660
 ;;9002226.02101,"846,55887053660 ",.02)
 ;;55887053660
 ;;9002226.02101,"846,55887053690 ",.01)
 ;;55887053690
 ;;9002226.02101,"846,55887053690 ",.02)
 ;;55887053690
 ;;9002226.02101,"846,55887053699 ",.01)
 ;;55887053699
 ;;9002226.02101,"846,55887053699 ",.02)
 ;;55887053699
 ;;9002226.02101,"846,55887065730 ",.01)
 ;;55887065730
 ;;9002226.02101,"846,55887065730 ",.02)
 ;;55887065730
 ;;9002226.02101,"846,55887065760 ",.01)
 ;;55887065760
 ;;9002226.02101,"846,55887065760 ",.02)
 ;;55887065760
 ;;9002226.02101,"846,55887069301 ",.01)
 ;;55887069301
 ;;9002226.02101,"846,55887069301 ",.02)
 ;;55887069301
 ;;9002226.02101,"846,55887069330 ",.01)
 ;;55887069330
 ;;9002226.02101,"846,55887069330 ",.02)
 ;;55887069330
 ;;9002226.02101,"846,55887069360 ",.01)
 ;;55887069360
 ;;9002226.02101,"846,55887069360 ",.02)
 ;;55887069360
 ;;9002226.02101,"846,55887069390 ",.01)
 ;;55887069390
 ;;9002226.02101,"846,55887069390 ",.02)
 ;;55887069390
 ;;9002226.02101,"846,55887072701 ",.01)
 ;;55887072701
 ;;9002226.02101,"846,55887072701 ",.02)
 ;;55887072701
 ;;9002226.02101,"846,55887072730 ",.01)
 ;;55887072730
 ;;9002226.02101,"846,55887072730 ",.02)
 ;;55887072730
 ;;9002226.02101,"846,55887072760 ",.01)
 ;;55887072760
 ;;9002226.02101,"846,55887072760 ",.02)
 ;;55887072760
 ;;9002226.02101,"846,55887072790 ",.01)
 ;;55887072790
 ;;9002226.02101,"846,55887072790 ",.02)
 ;;55887072790
 ;;9002226.02101,"846,55887084530 ",.01)
 ;;55887084530
 ;;9002226.02101,"846,55887084530 ",.02)
 ;;55887084530
 ;;9002226.02101,"846,55887084560 ",.01)
 ;;55887084560
 ;;9002226.02101,"846,55887084560 ",.02)
 ;;55887084560
 ;;9002226.02101,"846,55887096530 ",.01)
 ;;55887096530
 ;;9002226.02101,"846,55887096530 ",.02)
 ;;55887096530
 ;;9002226.02101,"846,57315001001 ",.01)
 ;;57315001001
 ;;9002226.02101,"846,57315001001 ",.02)
 ;;57315001001
 ;;9002226.02101,"846,57315001002 ",.01)
 ;;57315001002
 ;;9002226.02101,"846,57315001002 ",.02)
 ;;57315001002
 ;;9002226.02101,"846,57315001003 ",.01)
 ;;57315001003
 ;;9002226.02101,"846,57315001003 ",.02)
 ;;57315001003
 ;;9002226.02101,"846,57315001004 ",.01)
 ;;57315001004
 ;;9002226.02101,"846,57315001004 ",.02)
 ;;57315001004
 ;;9002226.02101,"846,57315001101 ",.01)
 ;;57315001101
 ;;9002226.02101,"846,57315001101 ",.02)
 ;;57315001101
 ;;9002226.02101,"846,57315001102 ",.01)
 ;;57315001102
 ;;9002226.02101,"846,57315001102 ",.02)
 ;;57315001102
 ;;9002226.02101,"846,57315001103 ",.01)
 ;;57315001103
 ;;9002226.02101,"846,57315001103 ",.02)
 ;;57315001103
 ;;9002226.02101,"846,57315001104 ",.01)
 ;;57315001104
 ;;9002226.02101,"846,57315001104 ",.02)
 ;;57315001104
 ;;9002226.02101,"846,57664039808 ",.01)
 ;;57664039808
 ;;9002226.02101,"846,57664039808 ",.02)
 ;;57664039808
 ;;9002226.02101,"846,57664039813 ",.01)
 ;;57664039813
 ;;9002226.02101,"846,57664039813 ",.02)
 ;;57664039813
 ;;9002226.02101,"846,57664039818 ",.01)
 ;;57664039818
 ;;9002226.02101,"846,57664039818 ",.02)
 ;;57664039818
 ;;9002226.02101,"846,57664039888 ",.01)
 ;;57664039888
 ;;9002226.02101,"846,57664039888 ",.02)
 ;;57664039888
 ;;9002226.02101,"846,57664039908 ",.01)
 ;;57664039908
 ;;9002226.02101,"846,57664039908 ",.02)
 ;;57664039908
 ;;9002226.02101,"846,57664039913 ",.01)
 ;;57664039913
 ;;9002226.02101,"846,57664039913 ",.02)
 ;;57664039913
 ;;9002226.02101,"846,57664039918 ",.01)
 ;;57664039918
 ;;9002226.02101,"846,57664039918 ",.02)
 ;;57664039918
 ;;9002226.02101,"846,57664039988 ",.01)
 ;;57664039988
 ;;9002226.02101,"846,57664039988 ",.02)
 ;;57664039988
 ;;9002226.02101,"846,57664072413 ",.01)
 ;;57664072413
 ;;9002226.02101,"846,57664072413 ",.02)
 ;;57664072413
 ;;9002226.02101,"846,57664072418 ",.01)
 ;;57664072418
 ;;9002226.02101,"846,57664072418 ",.02)
 ;;57664072418
 ;;9002226.02101,"846,57664072488 ",.01)
 ;;57664072488
 ;;9002226.02101,"846,57664072488 ",.02)
 ;;57664072488
 ;;9002226.02101,"846,57664072513 ",.01)
 ;;57664072513
 ;;9002226.02101,"846,57664072513 ",.02)
 ;;57664072513
 ;;9002226.02101,"846,57664072518 ",.01)
 ;;57664072518
 ;;9002226.02101,"846,57664072518 ",.02)
 ;;57664072518
 ;;9002226.02101,"846,57664072588 ",.01)
 ;;57664072588
 ;;9002226.02101,"846,57664072588 ",.02)
 ;;57664072588
 ;;9002226.02101,"846,57664072713 ",.01)
 ;;57664072713