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

BGPM5ALS.m

Go to the documentation of this file.
BGPM5ALS ;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,"900,51129275401 ",.01)
 ;;51129275401
 ;;9002226.02101,"900,51129275401 ",.02)
 ;;51129275401
 ;;9002226.02101,"900,51129289201 ",.01)
 ;;51129289201
 ;;9002226.02101,"900,51129289201 ",.02)
 ;;51129289201
 ;;9002226.02101,"900,51129289901 ",.01)
 ;;51129289901
 ;;9002226.02101,"900,51129289901 ",.02)
 ;;51129289901
 ;;9002226.02101,"900,51129289902 ",.01)
 ;;51129289902
 ;;9002226.02101,"900,51129289902 ",.02)
 ;;51129289902
 ;;9002226.02101,"900,51129291101 ",.01)
 ;;51129291101
 ;;9002226.02101,"900,51129291101 ",.02)
 ;;51129291101
 ;;9002226.02101,"900,51129291102 ",.01)
 ;;51129291102
 ;;9002226.02101,"900,51129291102 ",.02)
 ;;51129291102
 ;;9002226.02101,"900,51129295201 ",.01)
 ;;51129295201
 ;;9002226.02101,"900,51129295201 ",.02)
 ;;51129295201
 ;;9002226.02101,"900,51129295202 ",.01)
 ;;51129295202
 ;;9002226.02101,"900,51129295202 ",.02)
 ;;51129295202
 ;;9002226.02101,"900,51129307801 ",.01)
 ;;51129307801
 ;;9002226.02101,"900,51129307801 ",.02)
 ;;51129307801
 ;;9002226.02101,"900,51129307802 ",.01)
 ;;51129307802
 ;;9002226.02101,"900,51129307802 ",.02)
 ;;51129307802
 ;;9002226.02101,"900,51129307901 ",.01)
 ;;51129307901
 ;;9002226.02101,"900,51129307901 ",.02)
 ;;51129307901
 ;;9002226.02101,"900,51129307902 ",.01)
 ;;51129307902
 ;;9002226.02101,"900,51129307902 ",.02)
 ;;51129307902
 ;;9002226.02101,"900,51129308201 ",.01)
 ;;51129308201
 ;;9002226.02101,"900,51129308201 ",.02)
 ;;51129308201
 ;;9002226.02101,"900,51129308202 ",.01)
 ;;51129308202
 ;;9002226.02101,"900,51129308202 ",.02)
 ;;51129308202
 ;;9002226.02101,"900,51129308301 ",.01)
 ;;51129308301
 ;;9002226.02101,"900,51129308301 ",.02)
 ;;51129308301
 ;;9002226.02101,"900,51129308302 ",.01)
 ;;51129308302
 ;;9002226.02101,"900,51129308302 ",.02)
 ;;51129308302
 ;;9002226.02101,"900,51129308401 ",.01)
 ;;51129308401
 ;;9002226.02101,"900,51129308401 ",.02)
 ;;51129308401
 ;;9002226.02101,"900,51129308402 ",.01)
 ;;51129308402
 ;;9002226.02101,"900,51129308402 ",.02)
 ;;51129308402
 ;;9002226.02101,"900,51129313301 ",.01)
 ;;51129313301
 ;;9002226.02101,"900,51129313301 ",.02)
 ;;51129313301
 ;;9002226.02101,"900,51129313302 ",.01)
 ;;51129313302
 ;;9002226.02101,"900,51129313302 ",.02)
 ;;51129313302
 ;;9002226.02101,"900,51129323601 ",.01)
 ;;51129323601
 ;;9002226.02101,"900,51129323601 ",.02)
 ;;51129323601
 ;;9002226.02101,"900,51129323602 ",.01)
 ;;51129323602
 ;;9002226.02101,"900,51129323602 ",.02)
 ;;51129323602
 ;;9002226.02101,"900,51129325001 ",.01)
 ;;51129325001
 ;;9002226.02101,"900,51129325001 ",.02)
 ;;51129325001
 ;;9002226.02101,"900,51129325002 ",.01)
 ;;51129325002
 ;;9002226.02101,"900,51129325002 ",.02)
 ;;51129325002
 ;;9002226.02101,"900,51129336701 ",.01)
 ;;51129336701
 ;;9002226.02101,"900,51129336701 ",.02)
 ;;51129336701
 ;;9002226.02101,"900,51129336702 ",.01)
 ;;51129336702
 ;;9002226.02101,"900,51129336702 ",.02)
 ;;51129336702
 ;;9002226.02101,"900,51129341001 ",.01)
 ;;51129341001
 ;;9002226.02101,"900,51129341001 ",.02)
 ;;51129341001
 ;;9002226.02101,"900,51129341002 ",.01)
 ;;51129341002
 ;;9002226.02101,"900,51129341002 ",.02)
 ;;51129341002
 ;;9002226.02101,"900,51129351401 ",.01)
 ;;51129351401
 ;;9002226.02101,"900,51129351401 ",.02)
 ;;51129351401
 ;;9002226.02101,"900,51129351402 ",.01)
 ;;51129351402
 ;;9002226.02101,"900,51129351402 ",.02)
 ;;51129351402
 ;;9002226.02101,"900,51129351601 ",.01)
 ;;51129351601
 ;;9002226.02101,"900,51129351601 ",.02)
 ;;51129351601
 ;;9002226.02101,"900,51129351602 ",.01)
 ;;51129351602
 ;;9002226.02101,"900,51129351602 ",.02)
 ;;51129351602
 ;;9002226.02101,"900,51129354101 ",.01)
 ;;51129354101
 ;;9002226.02101,"900,51129354101 ",.02)
 ;;51129354101
 ;;9002226.02101,"900,51129354102 ",.01)
 ;;51129354102
 ;;9002226.02101,"900,51129354102 ",.02)
 ;;51129354102
 ;;9002226.02101,"900,51129354201 ",.01)
 ;;51129354201
 ;;9002226.02101,"900,51129354201 ",.02)
 ;;51129354201
 ;;9002226.02101,"900,51129354202 ",.01)
 ;;51129354202
 ;;9002226.02101,"900,51129354202 ",.02)
 ;;51129354202
 ;;9002226.02101,"900,51129359201 ",.01)
 ;;51129359201
 ;;9002226.02101,"900,51129359201 ",.02)
 ;;51129359201
 ;;9002226.02101,"900,51129359202 ",.01)
 ;;51129359202
 ;;9002226.02101,"900,51129359202 ",.02)
 ;;51129359202
 ;;9002226.02101,"900,51129360601 ",.01)
 ;;51129360601
 ;;9002226.02101,"900,51129360601 ",.02)
 ;;51129360601
 ;;9002226.02101,"900,51129360602 ",.01)
 ;;51129360602
 ;;9002226.02101,"900,51129360602 ",.02)
 ;;51129360602
 ;;9002226.02101,"900,51129366701 ",.01)
 ;;51129366701
 ;;9002226.02101,"900,51129366701 ",.02)
 ;;51129366701
 ;;9002226.02101,"900,51129366702 ",.01)
 ;;51129366702
 ;;9002226.02101,"900,51129366702 ",.02)
 ;;51129366702
 ;;9002226.02101,"900,51129367401 ",.01)
 ;;51129367401
 ;;9002226.02101,"900,51129367401 ",.02)
 ;;51129367401
 ;;9002226.02101,"900,51129367402 ",.01)
 ;;51129367402
 ;;9002226.02101,"900,51129367402 ",.02)
 ;;51129367402
 ;;9002226.02101,"900,51129367701 ",.01)
 ;;51129367701
 ;;9002226.02101,"900,51129367701 ",.02)
 ;;51129367701
 ;;9002226.02101,"900,51129367702 ",.01)
 ;;51129367702
 ;;9002226.02101,"900,51129367702 ",.02)
 ;;51129367702
 ;;9002226.02101,"900,51129368101 ",.01)
 ;;51129368101
 ;;9002226.02101,"900,51129368101 ",.02)
 ;;51129368101
 ;;9002226.02101,"900,51129368102 ",.01)
 ;;51129368102
 ;;9002226.02101,"900,51129368102 ",.02)
 ;;51129368102
 ;;9002226.02101,"900,51129373701 ",.01)
 ;;51129373701
 ;;9002226.02101,"900,51129373701 ",.02)
 ;;51129373701
 ;;9002226.02101,"900,51129373702 ",.01)
 ;;51129373702
 ;;9002226.02101,"900,51129373702 ",.02)
 ;;51129373702
 ;;9002226.02101,"900,51129377001 ",.01)
 ;;51129377001
 ;;9002226.02101,"900,51129377001 ",.02)
 ;;51129377001
 ;;9002226.02101,"900,51129377002 ",.01)
 ;;51129377002
 ;;9002226.02101,"900,51129377002 ",.02)
 ;;51129377002
 ;;9002226.02101,"900,51129389101 ",.01)
 ;;51129389101
 ;;9002226.02101,"900,51129389101 ",.02)
 ;;51129389101
 ;;9002226.02101,"900,51129389102 ",.01)
 ;;51129389102
 ;;9002226.02101,"900,51129389102 ",.02)
 ;;51129389102
 ;;9002226.02101,"900,51129396601 ",.01)
 ;;51129396601
 ;;9002226.02101,"900,51129396601 ",.02)
 ;;51129396601
 ;;9002226.02101,"900,51129396602 ",.01)
 ;;51129396602
 ;;9002226.02101,"900,51129396602 ",.02)
 ;;51129396602
 ;;9002226.02101,"900,51129405501 ",.01)
 ;;51129405501
 ;;9002226.02101,"900,51129405501 ",.02)
 ;;51129405501
 ;;9002226.02101,"900,51129405502 ",.01)
 ;;51129405502
 ;;9002226.02101,"900,51129405502 ",.02)
 ;;51129405502
 ;;9002226.02101,"900,51129411201 ",.01)
 ;;51129411201
 ;;9002226.02101,"900,51129411201 ",.02)
 ;;51129411201
 ;;9002226.02101,"900,51129411202 ",.01)
 ;;51129411202
 ;;9002226.02101,"900,51129411202 ",.02)
 ;;51129411202
 ;;9002226.02101,"900,51129437101 ",.01)
 ;;51129437101
 ;;9002226.02101,"900,51129437101 ",.02)
 ;;51129437101
 ;;9002226.02101,"900,51129437102 ",.01)
 ;;51129437102
 ;;9002226.02101,"900,51129437102 ",.02)
 ;;51129437102
 ;;9002226.02101,"900,51129438501 ",.01)
 ;;51129438501
 ;;9002226.02101,"900,51129438501 ",.02)
 ;;51129438501
 ;;9002226.02101,"900,51129438502 ",.01)
 ;;51129438502
 ;;9002226.02101,"900,51129438502 ",.02)
 ;;51129438502
 ;;9002226.02101,"900,51129469001 ",.01)
 ;;51129469001
 ;;9002226.02101,"900,51129469001 ",.02)
 ;;51129469001
 ;;9002226.02101,"900,51129469002 ",.01)
 ;;51129469002
 ;;9002226.02101,"900,51129469002 ",.02)
 ;;51129469002
 ;;9002226.02101,"900,51129469501 ",.01)
 ;;51129469501
 ;;9002226.02101,"900,51129469501 ",.02)
 ;;51129469501
 ;;9002226.02101,"900,51129469502 ",.01)
 ;;51129469502
 ;;9002226.02101,"900,51129469502 ",.02)
 ;;51129469502
 ;;9002226.02101,"900,51138022010 ",.01)
 ;;51138022010
 ;;9002226.02101,"900,51138022010 ",.02)
 ;;51138022010
 ;;9002226.02101,"900,51138022030 ",.01)
 ;;51138022030
 ;;9002226.02101,"900,51138022030 ",.02)
 ;;51138022030
 ;;9002226.02101,"900,51138022045 ",.01)
 ;;51138022045
 ;;9002226.02101,"900,51138022045 ",.02)
 ;;51138022045
 ;;9002226.02101,"900,51138022060 ",.01)
 ;;51138022060
 ;;9002226.02101,"900,51138022060 ",.02)
 ;;51138022060
 ;;9002226.02101,"900,51138022110 ",.01)
 ;;51138022110
 ;;9002226.02101,"900,51138022110 ",.02)
 ;;51138022110
 ;;9002226.02101,"900,51138022115 ",.01)
 ;;51138022115
 ;;9002226.02101,"900,51138022115 ",.02)
 ;;51138022115
 ;;9002226.02101,"900,51138022130 ",.01)
 ;;51138022130
 ;;9002226.02101,"900,51138022130 ",.02)
 ;;51138022130
 ;;9002226.02101,"900,51138022145 ",.01)
 ;;51138022145
 ;;9002226.02101,"900,51138022145 ",.02)
 ;;51138022145
 ;;9002226.02101,"900,51138022160 ",.01)
 ;;51138022160
 ;;9002226.02101,"900,51138022160 ",.02)
 ;;51138022160
 ;;9002226.02101,"900,51138022215 ",.01)
 ;;51138022215
 ;;9002226.02101,"900,51138022215 ",.02)
 ;;51138022215
 ;;9002226.02101,"900,51138022230 ",.01)
 ;;51138022230
 ;;9002226.02101,"900,51138022230 ",.02)
 ;;51138022230
 ;;9002226.02101,"900,51138022245 ",.01)
 ;;51138022245
 ;;9002226.02101,"900,51138022245 ",.02)
 ;;51138022245
 ;;9002226.02101,"900,51138022330 ",.01)
 ;;51138022330
 ;;9002226.02101,"900,51138022330 ",.02)
 ;;51138022330
 ;;9002226.02101,"900,51138024730 ",.01)
 ;;51138024730
 ;;9002226.02101,"900,51138024730 ",.02)
 ;;51138024730
 ;;9002226.02101,"900,51138024830 ",.01)
 ;;51138024830
 ;;9002226.02101,"900,51138024830 ",.02)
 ;;51138024830
 ;;9002226.02101,"900,51138024930 ",.01)
 ;;51138024930
 ;;9002226.02101,"900,51138024930 ",.02)
 ;;51138024930
 ;;9002226.02101,"900,51138025020 ",.01)
 ;;51138025020
 ;;9002226.02101,"900,51138025020 ",.02)
 ;;51138025020
 ;;9002226.02101,"900,51138025030 ",.01)
 ;;51138025030
 ;;9002226.02101,"900,51138025030 ",.02)
 ;;51138025030
 ;;9002226.02101,"900,51138025620 ",.01)
 ;;51138025620
 ;;9002226.02101,"900,51138025620 ",.02)
 ;;51138025620
 ;;9002226.02101,"900,51138025630 ",.01)
 ;;51138025630
 ;;9002226.02101,"900,51138025630 ",.02)
 ;;51138025630
 ;;9002226.02101,"900,51138025730 ",.01)
 ;;51138025730
 ;;9002226.02101,"900,51138025730 ",.02)
 ;;51138025730
 ;;9002226.02101,"900,51138025815 ",.01)
 ;;51138025815
 ;;9002226.02101,"900,51138025815 ",.02)
 ;;51138025815
 ;;9002226.02101,"900,51138025830 ",.01)
 ;;51138025830
 ;;9002226.02101,"900,51138025830 ",.02)
 ;;51138025830
 ;;9002226.02101,"900,51138025930 ",.01)
 ;;51138025930
 ;;9002226.02101,"900,51138025930 ",.02)
 ;;51138025930
 ;;9002226.02101,"900,51138027430 ",.01)
 ;;51138027430
 ;;9002226.02101,"900,51138027430 ",.02)
 ;;51138027430
 ;;9002226.02101,"900,51138027530 ",.01)
 ;;51138027530
 ;;9002226.02101,"900,51138027530 ",.02)
 ;;51138027530
 ;;9002226.02101,"900,51138027630 ",.01)
 ;;51138027630
 ;;9002226.02101,"900,51138027630 ",.02)
 ;;51138027630
 ;;9002226.02101,"900,51138035630 ",.01)
 ;;51138035630
 ;;9002226.02101,"900,51138035630 ",.02)
 ;;51138035630
 ;;9002226.02101,"900,51138036330 ",.01)
 ;;51138036330
 ;;9002226.02101,"900,51138036330 ",.02)
 ;;51138036330
 ;;9002226.02101,"900,51138036430 ",.01)
 ;;51138036430
 ;;9002226.02101,"900,51138036430 ",.02)
 ;;51138036430
 ;;9002226.02101,"900,51138036530 ",.01)
 ;;51138036530
 ;;9002226.02101,"900,51138036530 ",.02)
 ;;51138036530
 ;;9002226.02101,"900,51138036630 ",.01)
 ;;51138036630
 ;;9002226.02101,"900,51138036630 ",.02)
 ;;51138036630
 ;;9002226.02101,"900,51138045610 ",.01)
 ;;51138045610
 ;;9002226.02101,"900,51138045610 ",.02)
 ;;51138045610
 ;;9002226.02101,"900,51138045630 ",.01)
 ;;51138045630
 ;;9002226.02101,"900,51138045630 ",.02)
 ;;51138045630