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

BGPM5ARL.m

Go to the documentation of this file.
BGPM5ARL ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,57297051502 ",.01)
 ;;57297051502
 ;;9002226.02101,"1005,57297051502 ",.02)
 ;;57297051502
 ;;9002226.02101,"1005,57297051503 ",.01)
 ;;57297051503
 ;;9002226.02101,"1005,57297051503 ",.02)
 ;;57297051503
 ;;9002226.02101,"1005,57297051504 ",.01)
 ;;57297051504
 ;;9002226.02101,"1005,57297051504 ",.02)
 ;;57297051504
 ;;9002226.02101,"1005,57297051601 ",.01)
 ;;57297051601
 ;;9002226.02101,"1005,57297051601 ",.02)
 ;;57297051601
 ;;9002226.02101,"1005,57297051602 ",.01)
 ;;57297051602
 ;;9002226.02101,"1005,57297051602 ",.02)
 ;;57297051602
 ;;9002226.02101,"1005,57297051603 ",.01)
 ;;57297051603
 ;;9002226.02101,"1005,57297051603 ",.02)
 ;;57297051603
 ;;9002226.02101,"1005,57297051701 ",.01)
 ;;57297051701
 ;;9002226.02101,"1005,57297051701 ",.02)
 ;;57297051701
 ;;9002226.02101,"1005,57297051702 ",.01)
 ;;57297051702
 ;;9002226.02101,"1005,57297051702 ",.02)
 ;;57297051702
 ;;9002226.02101,"1005,57297051703 ",.01)
 ;;57297051703
 ;;9002226.02101,"1005,57297051703 ",.02)
 ;;57297051703
 ;;9002226.02101,"1005,57297051704 ",.01)
 ;;57297051704
 ;;9002226.02101,"1005,57297051704 ",.02)
 ;;57297051704
 ;;9002226.02101,"1005,57297051801 ",.01)
 ;;57297051801
 ;;9002226.02101,"1005,57297051801 ",.02)
 ;;57297051801
 ;;9002226.02101,"1005,57297051802 ",.01)
 ;;57297051802
 ;;9002226.02101,"1005,57297051802 ",.02)
 ;;57297051802
 ;;9002226.02101,"1005,57297051901 ",.01)
 ;;57297051901
 ;;9002226.02101,"1005,57297051901 ",.02)
 ;;57297051901
 ;;9002226.02101,"1005,57297051902 ",.01)
 ;;57297051902
 ;;9002226.02101,"1005,57297051902 ",.02)
 ;;57297051902
 ;;9002226.02101,"1005,57297052001 ",.01)
 ;;57297052001
 ;;9002226.02101,"1005,57297052001 ",.02)
 ;;57297052001
 ;;9002226.02101,"1005,57297052002 ",.01)
 ;;57297052002
 ;;9002226.02101,"1005,57297052002 ",.02)
 ;;57297052002
 ;;9002226.02101,"1005,57297055609 ",.01)
 ;;57297055609
 ;;9002226.02101,"1005,57297055609 ",.02)
 ;;57297055609
 ;;9002226.02101,"1005,57297055703 ",.01)
 ;;57297055703
 ;;9002226.02101,"1005,57297055703 ",.02)
 ;;57297055703
 ;;9002226.02101,"1005,57297055709 ",.01)
 ;;57297055709
 ;;9002226.02101,"1005,57297055709 ",.02)
 ;;57297055709
 ;;9002226.02101,"1005,57297055803 ",.01)
 ;;57297055803
 ;;9002226.02101,"1005,57297055803 ",.02)
 ;;57297055803
 ;;9002226.02101,"1005,57297055809 ",.01)
 ;;57297055809
 ;;9002226.02101,"1005,57297055809 ",.02)
 ;;57297055809
 ;;9002226.02101,"1005,57297055903 ",.01)
 ;;57297055903
 ;;9002226.02101,"1005,57297055903 ",.02)
 ;;57297055903
 ;;9002226.02101,"1005,57297055909 ",.01)
 ;;57297055909
 ;;9002226.02101,"1005,57297055909 ",.02)
 ;;57297055909
 ;;9002226.02101,"1005,57783273703 ",.01)
 ;;57783273703
 ;;9002226.02101,"1005,57783273703 ",.02)
 ;;57783273703
 ;;9002226.02101,"1005,57866027401 ",.01)
 ;;57866027401
 ;;9002226.02101,"1005,57866027401 ",.02)
 ;;57866027401
 ;;9002226.02101,"1005,57866027502 ",.01)
 ;;57866027502
 ;;9002226.02101,"1005,57866027502 ",.02)
 ;;57866027502
 ;;9002226.02101,"1005,57866200001 ",.01)
 ;;57866200001
 ;;9002226.02101,"1005,57866200001 ",.02)
 ;;57866200001
 ;;9002226.02101,"1005,57866200002 ",.01)
 ;;57866200002
 ;;9002226.02101,"1005,57866200002 ",.02)
 ;;57866200002
 ;;9002226.02101,"1005,57866313801 ",.01)
 ;;57866313801
 ;;9002226.02101,"1005,57866313801 ",.02)
 ;;57866313801
 ;;9002226.02101,"1005,57866380001 ",.01)
 ;;57866380001
 ;;9002226.02101,"1005,57866380001 ",.02)
 ;;57866380001
 ;;9002226.02101,"1005,57866380301 ",.01)
 ;;57866380301
 ;;9002226.02101,"1005,57866380301 ",.02)
 ;;57866380301
 ;;9002226.02101,"1005,57866400001 ",.01)
 ;;57866400001
 ;;9002226.02101,"1005,57866400001 ",.02)
 ;;57866400001
 ;;9002226.02101,"1005,57866400002 ",.01)
 ;;57866400002
 ;;9002226.02101,"1005,57866400002 ",.02)
 ;;57866400002
 ;;9002226.02101,"1005,57866442001 ",.01)
 ;;57866442001
 ;;9002226.02101,"1005,57866442001 ",.02)
 ;;57866442001
 ;;9002226.02101,"1005,57866442101 ",.01)
 ;;57866442101
 ;;9002226.02101,"1005,57866442101 ",.02)
 ;;57866442101
 ;;9002226.02101,"1005,57866500001 ",.01)
 ;;57866500001
 ;;9002226.02101,"1005,57866500001 ",.02)
 ;;57866500001
 ;;9002226.02101,"1005,57866500002 ",.01)
 ;;57866500002
 ;;9002226.02101,"1005,57866500002 ",.02)
 ;;57866500002
 ;;9002226.02101,"1005,57866610301 ",.01)
 ;;57866610301
 ;;9002226.02101,"1005,57866610301 ",.02)
 ;;57866610301
 ;;9002226.02101,"1005,57866610302 ",.01)
 ;;57866610302
 ;;9002226.02101,"1005,57866610302 ",.02)
 ;;57866610302
 ;;9002226.02101,"1005,57866610303 ",.01)
 ;;57866610303
 ;;9002226.02101,"1005,57866610303 ",.02)
 ;;57866610303
 ;;9002226.02101,"1005,57866610304 ",.01)
 ;;57866610304
 ;;9002226.02101,"1005,57866610304 ",.02)
 ;;57866610304
 ;;9002226.02101,"1005,57866610601 ",.01)
 ;;57866610601
 ;;9002226.02101,"1005,57866610601 ",.02)
 ;;57866610601
 ;;9002226.02101,"1005,57866610602 ",.01)
 ;;57866610602
 ;;9002226.02101,"1005,57866610602 ",.02)
 ;;57866610602
 ;;9002226.02101,"1005,57866610603 ",.01)
 ;;57866610603
 ;;9002226.02101,"1005,57866610603 ",.02)
 ;;57866610603
 ;;9002226.02101,"1005,57866610604 ",.01)
 ;;57866610604
 ;;9002226.02101,"1005,57866610604 ",.02)
 ;;57866610604
 ;;9002226.02101,"1005,57866610702 ",.01)
 ;;57866610702
 ;;9002226.02101,"1005,57866610702 ",.02)
 ;;57866610702
 ;;9002226.02101,"1005,57866610703 ",.01)
 ;;57866610703
 ;;9002226.02101,"1005,57866610703 ",.02)
 ;;57866610703
 ;;9002226.02101,"1005,57866670001 ",.01)
 ;;57866670001
 ;;9002226.02101,"1005,57866670001 ",.02)
 ;;57866670001
 ;;9002226.02101,"1005,57866670101 ",.01)
 ;;57866670101
 ;;9002226.02101,"1005,57866670101 ",.02)
 ;;57866670101
 ;;9002226.02101,"1005,57866685901 ",.01)
 ;;57866685901
 ;;9002226.02101,"1005,57866685901 ",.02)
 ;;57866685901
 ;;9002226.02101,"1005,57866685902 ",.01)
 ;;57866685902
 ;;9002226.02101,"1005,57866685902 ",.02)
 ;;57866685902
 ;;9002226.02101,"1005,57866685903 ",.01)
 ;;57866685903
 ;;9002226.02101,"1005,57866685903 ",.02)
 ;;57866685903
 ;;9002226.02101,"1005,57866685904 ",.01)
 ;;57866685904
 ;;9002226.02101,"1005,57866685904 ",.02)
 ;;57866685904
 ;;9002226.02101,"1005,57866686101 ",.01)
 ;;57866686101
 ;;9002226.02101,"1005,57866686101 ",.02)
 ;;57866686101
 ;;9002226.02101,"1005,57866686201 ",.01)
 ;;57866686201
 ;;9002226.02101,"1005,57866686201 ",.02)
 ;;57866686201
 ;;9002226.02101,"1005,57866686202 ",.01)
 ;;57866686202
 ;;9002226.02101,"1005,57866686202 ",.02)
 ;;57866686202
 ;;9002226.02101,"1005,57866870001 ",.01)
 ;;57866870001
 ;;9002226.02101,"1005,57866870001 ",.02)
 ;;57866870001
 ;;9002226.02101,"1005,57868546600 ",.01)
 ;;57868546600
 ;;9002226.02101,"1005,57868546600 ",.02)
 ;;57868546600
 ;;9002226.02101,"1005,57868546601 ",.01)
 ;;57868546601
 ;;9002226.02101,"1005,57868546601 ",.02)
 ;;57868546601
 ;;9002226.02101,"1005,58016005300 ",.01)
 ;;58016005300
 ;;9002226.02101,"1005,58016005300 ",.02)
 ;;58016005300
 ;;9002226.02101,"1005,58016005301 ",.01)
 ;;58016005301
 ;;9002226.02101,"1005,58016005301 ",.02)
 ;;58016005301
 ;;9002226.02101,"1005,58016005302 ",.01)
 ;;58016005302
 ;;9002226.02101,"1005,58016005302 ",.02)
 ;;58016005302
 ;;9002226.02101,"1005,58016005303 ",.01)
 ;;58016005303
 ;;9002226.02101,"1005,58016005303 ",.02)
 ;;58016005303
 ;;9002226.02101,"1005,58016005304 ",.01)
 ;;58016005304
 ;;9002226.02101,"1005,58016005304 ",.02)
 ;;58016005304
 ;;9002226.02101,"1005,58016005305 ",.01)
 ;;58016005305
 ;;9002226.02101,"1005,58016005305 ",.02)
 ;;58016005305
 ;;9002226.02101,"1005,58016005330 ",.01)
 ;;58016005330
 ;;9002226.02101,"1005,58016005330 ",.02)
 ;;58016005330
 ;;9002226.02101,"1005,58016005360 ",.01)
 ;;58016005360
 ;;9002226.02101,"1005,58016005360 ",.02)
 ;;58016005360
 ;;9002226.02101,"1005,58016005390 ",.01)
 ;;58016005390
 ;;9002226.02101,"1005,58016005390 ",.02)
 ;;58016005390
 ;;9002226.02101,"1005,58016006600 ",.01)
 ;;58016006600
 ;;9002226.02101,"1005,58016006600 ",.02)
 ;;58016006600
 ;;9002226.02101,"1005,58016006630 ",.01)
 ;;58016006630
 ;;9002226.02101,"1005,58016006630 ",.02)
 ;;58016006630
 ;;9002226.02101,"1005,58016006660 ",.01)
 ;;58016006660
 ;;9002226.02101,"1005,58016006660 ",.02)
 ;;58016006660
 ;;9002226.02101,"1005,58016006690 ",.01)
 ;;58016006690
 ;;9002226.02101,"1005,58016006690 ",.02)
 ;;58016006690
 ;;9002226.02101,"1005,58016006900 ",.01)
 ;;58016006900
 ;;9002226.02101,"1005,58016006900 ",.02)
 ;;58016006900
 ;;9002226.02101,"1005,58016006901 ",.01)
 ;;58016006901
 ;;9002226.02101,"1005,58016006901 ",.02)
 ;;58016006901
 ;;9002226.02101,"1005,58016006902 ",.01)
 ;;58016006902
 ;;9002226.02101,"1005,58016006902 ",.02)
 ;;58016006902
 ;;9002226.02101,"1005,58016006903 ",.01)
 ;;58016006903
 ;;9002226.02101,"1005,58016006903 ",.02)
 ;;58016006903
 ;;9002226.02101,"1005,58016006904 ",.01)
 ;;58016006904
 ;;9002226.02101,"1005,58016006904 ",.02)
 ;;58016006904
 ;;9002226.02101,"1005,58016006905 ",.01)
 ;;58016006905
 ;;9002226.02101,"1005,58016006905 ",.02)
 ;;58016006905
 ;;9002226.02101,"1005,58016006906 ",.01)
 ;;58016006906
 ;;9002226.02101,"1005,58016006906 ",.02)
 ;;58016006906
 ;;9002226.02101,"1005,58016006907 ",.01)
 ;;58016006907
 ;;9002226.02101,"1005,58016006907 ",.02)
 ;;58016006907
 ;;9002226.02101,"1005,58016006908 ",.01)
 ;;58016006908
 ;;9002226.02101,"1005,58016006908 ",.02)
 ;;58016006908
 ;;9002226.02101,"1005,58016006909 ",.01)
 ;;58016006909
 ;;9002226.02101,"1005,58016006909 ",.02)
 ;;58016006909
 ;;9002226.02101,"1005,58016006910 ",.01)
 ;;58016006910
 ;;9002226.02101,"1005,58016006910 ",.02)
 ;;58016006910
 ;;9002226.02101,"1005,58016006912 ",.01)
 ;;58016006912
 ;;9002226.02101,"1005,58016006912 ",.02)
 ;;58016006912
 ;;9002226.02101,"1005,58016006914 ",.01)
 ;;58016006914
 ;;9002226.02101,"1005,58016006914 ",.02)
 ;;58016006914
 ;;9002226.02101,"1005,58016006915 ",.01)
 ;;58016006915
 ;;9002226.02101,"1005,58016006915 ",.02)
 ;;58016006915
 ;;9002226.02101,"1005,58016006916 ",.01)
 ;;58016006916
 ;;9002226.02101,"1005,58016006916 ",.02)
 ;;58016006916
 ;;9002226.02101,"1005,58016006918 ",.01)
 ;;58016006918
 ;;9002226.02101,"1005,58016006918 ",.02)
 ;;58016006918
 ;;9002226.02101,"1005,58016006920 ",.01)
 ;;58016006920
 ;;9002226.02101,"1005,58016006920 ",.02)
 ;;58016006920
 ;;9002226.02101,"1005,58016006921 ",.01)
 ;;58016006921
 ;;9002226.02101,"1005,58016006921 ",.02)
 ;;58016006921
 ;;9002226.02101,"1005,58016006924 ",.01)
 ;;58016006924
 ;;9002226.02101,"1005,58016006924 ",.02)
 ;;58016006924
 ;;9002226.02101,"1005,58016006925 ",.01)
 ;;58016006925
 ;;9002226.02101,"1005,58016006925 ",.02)
 ;;58016006925
 ;;9002226.02101,"1005,58016006926 ",.01)
 ;;58016006926
 ;;9002226.02101,"1005,58016006926 ",.02)
 ;;58016006926
 ;;9002226.02101,"1005,58016006927 ",.01)
 ;;58016006927
 ;;9002226.02101,"1005,58016006927 ",.02)
 ;;58016006927
 ;;9002226.02101,"1005,58016006928 ",.01)
 ;;58016006928
 ;;9002226.02101,"1005,58016006928 ",.02)
 ;;58016006928
 ;;9002226.02101,"1005,58016006930 ",.01)
 ;;58016006930
 ;;9002226.02101,"1005,58016006930 ",.02)
 ;;58016006930
 ;;9002226.02101,"1005,58016006932 ",.01)
 ;;58016006932
 ;;9002226.02101,"1005,58016006932 ",.02)
 ;;58016006932
 ;;9002226.02101,"1005,58016006935 ",.01)
 ;;58016006935
 ;;9002226.02101,"1005,58016006935 ",.02)
 ;;58016006935
 ;;9002226.02101,"1005,58016006936 ",.01)
 ;;58016006936
 ;;9002226.02101,"1005,58016006936 ",.02)
 ;;58016006936
 ;;9002226.02101,"1005,58016006940 ",.01)
 ;;58016006940
 ;;9002226.02101,"1005,58016006940 ",.02)
 ;;58016006940
 ;;9002226.02101,"1005,58016006942 ",.01)
 ;;58016006942