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

BGPM5BAI.m

Go to the documentation of this file.
BGPM5BAI ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 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,"1072,16729003510 ",.01)
 ;;16729003510
 ;;9002226.02101,"1072,16729003510 ",.02)
 ;;16729003510
 ;;9002226.02101,"1072,16729003515 ",.01)
 ;;16729003515
 ;;9002226.02101,"1072,16729003515 ",.02)
 ;;16729003515
 ;;9002226.02101,"1072,16729003516 ",.01)
 ;;16729003516
 ;;9002226.02101,"1072,16729003516 ",.02)
 ;;16729003516
 ;;9002226.02101,"1072,17856048402 ",.01)
 ;;17856048402
 ;;9002226.02101,"1072,17856048402 ",.02)
 ;;17856048402
 ;;9002226.02101,"1072,21695099030 ",.01)
 ;;21695099030
 ;;9002226.02101,"1072,21695099030 ",.02)
 ;;21695099030
 ;;9002226.02101,"1072,26053000601 ",.01)
 ;;26053000601
 ;;9002226.02101,"1072,26053000601 ",.02)
 ;;26053000601
 ;;9002226.02101,"1072,26053002601 ",.01)
 ;;26053002601
 ;;9002226.02101,"1072,26053002601 ",.02)
 ;;26053002601
 ;;9002226.02101,"1072,42043018003 ",.01)
 ;;42043018003
 ;;9002226.02101,"1072,42043018003 ",.02)
 ;;42043018003
 ;;9002226.02101,"1072,42291010530 ",.01)
 ;;42291010530
 ;;9002226.02101,"1072,42291010530 ",.02)
 ;;42291010530
 ;;9002226.02101,"1072,43547025801 ",.01)
 ;;43547025801
 ;;9002226.02101,"1072,43547025801 ",.02)
 ;;43547025801
 ;;9002226.02101,"1072,43547025901 ",.01)
 ;;43547025901
 ;;9002226.02101,"1072,43547025901 ",.02)
 ;;43547025901
 ;;9002226.02101,"1072,51079032301 ",.01)
 ;;51079032301
 ;;9002226.02101,"1072,51079032301 ",.02)
 ;;51079032301
 ;;9002226.02101,"1072,51079032306 ",.01)
 ;;51079032306
 ;;9002226.02101,"1072,51079032306 ",.02)
 ;;51079032306
 ;;9002226.02101,"1072,51079058101 ",.01)
 ;;51079058101
 ;;9002226.02101,"1072,51079058101 ",.02)
 ;;51079058101
 ;;9002226.02101,"1072,51079058106 ",.01)
 ;;51079058106
 ;;9002226.02101,"1072,51079058106 ",.02)
 ;;51079058106
 ;;9002226.02101,"1072,51079058201 ",.01)
 ;;51079058201
 ;;9002226.02101,"1072,51079058201 ",.02)
 ;;51079058201
 ;;9002226.02101,"1072,51079058205 ",.01)
 ;;51079058205
 ;;9002226.02101,"1072,51079058205 ",.02)
 ;;51079058205
 ;;9002226.02101,"1072,51672406201 ",.01)
 ;;51672406201
 ;;9002226.02101,"1072,51672406201 ",.02)
 ;;51672406201
 ;;9002226.02101,"1072,51672406301 ",.01)
 ;;51672406301
 ;;9002226.02101,"1072,51672406301 ",.02)
 ;;51672406301
 ;;9002226.02101,"1072,51672411802 ",.01)
 ;;51672411802
 ;;9002226.02101,"1072,51672411802 ",.02)
 ;;51672411802
 ;;9002226.02101,"1072,51672411805 ",.01)
 ;;51672411805
 ;;9002226.02101,"1072,51672411805 ",.02)
 ;;51672411805
 ;;9002226.02101,"1072,51672411806 ",.01)
 ;;51672411806
 ;;9002226.02101,"1072,51672411806 ",.02)
 ;;51672411806
 ;;9002226.02101,"1072,51991062010 ",.01)
 ;;51991062010
 ;;9002226.02101,"1072,51991062010 ",.02)
 ;;51991062010
 ;;9002226.02101,"1072,51991062033 ",.01)
 ;;51991062033
 ;;9002226.02101,"1072,51991062033 ",.02)
 ;;51991062033
 ;;9002226.02101,"1072,52549406201 ",.01)
 ;;52549406201
 ;;9002226.02101,"1072,52549406201 ",.02)
 ;;52549406201
 ;;9002226.02101,"1072,52549406301 ",.01)
 ;;52549406301
 ;;9002226.02101,"1072,52549406301 ",.02)
 ;;52549406301
 ;;9002226.02101,"1072,52549411802 ",.01)
 ;;52549411802
 ;;9002226.02101,"1072,52549411802 ",.02)
 ;;52549411802
 ;;9002226.02101,"1072,52549411805 ",.01)
 ;;52549411805
 ;;9002226.02101,"1072,52549411805 ",.02)
 ;;52549411805
 ;;9002226.02101,"1072,52549411806 ",.01)
 ;;52549411806
 ;;9002226.02101,"1072,52549411806 ",.02)
 ;;52549411806
 ;;9002226.02101,"1072,54569619800 ",.01)
 ;;54569619800
 ;;9002226.02101,"1072,54569619800 ",.02)
 ;;54569619800
 ;;9002226.02101,"1072,54868331000 ",.01)
 ;;54868331000
 ;;9002226.02101,"1072,54868331000 ",.02)
 ;;54868331000
 ;;9002226.02101,"1072,54868331001 ",.01)
 ;;54868331001
 ;;9002226.02101,"1072,54868331001 ",.02)
 ;;54868331001
 ;;9002226.02101,"1072,54868331002 ",.01)
 ;;54868331002
 ;;9002226.02101,"1072,54868331002 ",.02)
 ;;54868331002
 ;;9002226.02101,"1072,54868331003 ",.01)
 ;;54868331003
 ;;9002226.02101,"1072,54868331003 ",.02)
 ;;54868331003
 ;;9002226.02101,"1072,54868331004 ",.01)
 ;;54868331004
 ;;9002226.02101,"1072,54868331004 ",.02)
 ;;54868331004
 ;;9002226.02101,"1072,54868591500 ",.01)
 ;;54868591500
 ;;9002226.02101,"1072,54868591500 ",.02)
 ;;54868591500
 ;;9002226.02101,"1072,54868613000 ",.01)
 ;;54868613000
 ;;9002226.02101,"1072,54868613000 ",.02)
 ;;54868613000
 ;;9002226.02101,"1072,54868613001 ",.01)
 ;;54868613001
 ;;9002226.02101,"1072,54868613001 ",.02)
 ;;54868613001
 ;;9002226.02101,"1072,55111064730 ",.01)
 ;;55111064730
 ;;9002226.02101,"1072,55111064730 ",.02)
 ;;55111064730
 ;;9002226.02101,"1072,55390000901 ",.01)
 ;;55390000901
 ;;9002226.02101,"1072,55390000901 ",.02)
 ;;55390000901
 ;;9002226.02101,"1072,55390005110 ",.01)
 ;;55390005110
 ;;9002226.02101,"1072,55390005110 ",.02)
 ;;55390005110
 ;;9002226.02101,"1072,55390005210 ",.01)
 ;;55390005210
 ;;9002226.02101,"1072,55390005210 ",.02)
 ;;55390005210
 ;;9002226.02101,"1072,55390005301 ",.01)
 ;;55390005301
 ;;9002226.02101,"1072,55390005301 ",.02)
 ;;55390005301
 ;;9002226.02101,"1072,55390005401 ",.01)
 ;;55390005401
 ;;9002226.02101,"1072,55390005401 ",.02)
 ;;55390005401
 ;;9002226.02101,"1072,55390081810 ",.01)
 ;;55390081810
 ;;9002226.02101,"1072,55390081810 ",.02)
 ;;55390081810
 ;;9002226.02101,"1072,55390082401 ",.01)
 ;;55390082401
 ;;9002226.02101,"1072,55390082401 ",.02)
 ;;55390082401
 ;;9002226.02101,"1072,55390082501 ",.01)
 ;;55390082501
 ;;9002226.02101,"1072,55390082501 ",.02)
 ;;55390082501
 ;;9002226.02101,"1072,55390082601 ",.01)
 ;;55390082601
 ;;9002226.02101,"1072,55390082601 ",.02)
 ;;55390082601
 ;;9002226.02101,"1072,59260024904 ",.01)
 ;;59260024904
 ;;9002226.02101,"1072,59260024904 ",.02)
 ;;59260024904
 ;;9002226.02101,"1072,59762285801 ",.01)
 ;;59762285801
 ;;9002226.02101,"1072,59762285801 ",.02)
 ;;59762285801
 ;;9002226.02101,"1072,60258086603 ",.01)
 ;;60258086603
 ;;9002226.02101,"1072,60258086603 ",.02)
 ;;60258086603
 ;;9002226.02101,"1072,61703040932 ",.01)
 ;;61703040932
 ;;9002226.02101,"1072,61703040932 ",.02)
 ;;61703040932
 ;;9002226.02101,"1072,61703040953 ",.01)
 ;;61703040953
 ;;9002226.02101,"1072,61703040953 ",.02)
 ;;61703040953
 ;;9002226.02101,"1072,61703040967 ",.01)
 ;;61703040967
 ;;9002226.02101,"1072,61703040967 ",.02)
 ;;61703040967
 ;;9002226.02101,"1072,61703041050 ",.01)
 ;;61703041050
 ;;9002226.02101,"1072,61703041050 ",.02)
 ;;61703041050
 ;;9002226.02101,"1072,62033037606 ",.01)
 ;;62033037606
 ;;9002226.02101,"1072,62033037606 ",.02)
 ;;62033037606
 ;;9002226.02101,"1072,62175071032 ",.01)
 ;;62175071032
 ;;9002226.02101,"1072,62175071032 ",.02)
 ;;62175071032
 ;;9002226.02101,"1072,62756025013 ",.01)
 ;;62756025013
 ;;9002226.02101,"1072,62756025013 ",.02)
 ;;62756025013
 ;;9002226.02101,"1072,62756025018 ",.01)
 ;;62756025018
 ;;9002226.02101,"1072,62756025018 ",.02)
 ;;62756025018
 ;;9002226.02101,"1072,62756025083 ",.01)
 ;;62756025083
 ;;9002226.02101,"1072,62756025083 ",.02)
 ;;62756025083
 ;;9002226.02101,"1072,62756025088 ",.01)
 ;;62756025088
 ;;9002226.02101,"1072,62756025088 ",.02)
 ;;62756025088
 ;;9002226.02101,"1072,63323011710 ",.01)
 ;;63323011710
 ;;9002226.02101,"1072,63323011710 ",.02)
 ;;63323011710
 ;;9002226.02101,"1072,63323011720 ",.01)
 ;;63323011720
 ;;9002226.02101,"1072,63323011720 ",.02)
 ;;63323011720
 ;;9002226.02101,"1072,63323011751 ",.01)
 ;;63323011751
 ;;9002226.02101,"1072,63323011751 ",.02)
 ;;63323011751
 ;;9002226.02101,"1072,63323011761 ",.01)
 ;;63323011761
 ;;9002226.02101,"1072,63323011761 ",.02)
 ;;63323011761
 ;;9002226.02101,"1072,63323011765 ",.01)
 ;;63323011765
 ;;9002226.02101,"1072,63323011765 ",.02)
 ;;63323011765
 ;;9002226.02101,"1072,63323012930 ",.01)
 ;;63323012930
 ;;9002226.02101,"1072,63323012930 ",.02)
 ;;63323012930
 ;;9002226.02101,"1072,63323071050 ",.01)
 ;;63323071050
 ;;9002226.02101,"1072,63323071050 ",.02)
 ;;63323071050
 ;;9002226.02101,"1072,63323071100 ",.01)
 ;;63323071100
 ;;9002226.02101,"1072,63323071100 ",.02)
 ;;63323071100
 ;;9002226.02101,"1072,63672001500 ",.01)
 ;;63672001500
 ;;9002226.02101,"1072,63672001500 ",.02)
 ;;63672001500
 ;;9002226.02101,"1072,64158060810 ",.01)
 ;;64158060810
 ;;9002226.02101,"1072,64158060810 ",.02)
 ;;64158060810
 ;;9002226.02101,"1072,64886012001 ",.01)
 ;;64886012001
 ;;9002226.02101,"1072,64886012001 ",.02)
 ;;64886012001
 ;;9002226.02101,"1072,64886012101 ",.01)
 ;;64886012101
 ;;9002226.02101,"1072,64886012101 ",.02)
 ;;64886012101
 ;;9002226.02101,"1072,64886020001 ",.01)
 ;;64886020001
 ;;9002226.02101,"1072,64886020001 ",.02)
 ;;64886020001
 ;;9002226.02101,"1072,64886020002 ",.01)
 ;;64886020002
 ;;9002226.02101,"1072,64886020002 ",.02)
 ;;64886020002
 ;;9002226.02101,"1072,65219011710 ",.01)
 ;;65219011710
 ;;9002226.02101,"1072,65219011710 ",.02)
 ;;65219011710
 ;;9002226.02101,"1072,65219011720 ",.01)
 ;;65219011720
 ;;9002226.02101,"1072,65219011720 ",.02)
 ;;65219011720
 ;;9002226.02101,"1072,65219011751 ",.01)
 ;;65219011751
 ;;9002226.02101,"1072,65219011751 ",.02)
 ;;65219011751
 ;;9002226.02101,"1072,65219011761 ",.01)
 ;;65219011761
 ;;9002226.02101,"1072,65219011761 ",.02)
 ;;65219011761
 ;;9002226.02101,"1072,65841074306 ",.01)
 ;;65841074306
 ;;9002226.02101,"1072,65841074306 ",.02)
 ;;65841074306
 ;;9002226.02101,"1072,65841074310 ",.01)
 ;;65841074310
 ;;9002226.02101,"1072,65841074310 ",.02)
 ;;65841074310
 ;;9002226.02101,"1072,66435041530 ",.01)
 ;;66435041530
 ;;9002226.02101,"1072,66435041530 ",.02)
 ;;66435041530
 ;;9002226.02101,"1072,66530024940 ",.01)
 ;;66530024940
 ;;9002226.02101,"1072,66530024940 ",.02)
 ;;66530024940
 ;;9002226.02101,"1072,66758004401 ",.01)
 ;;66758004401
 ;;9002226.02101,"1072,66758004401 ",.02)
 ;;66758004401
 ;;9002226.02101,"1072,66758004403 ",.01)
 ;;66758004403
 ;;9002226.02101,"1072,66758004403 ",.02)
 ;;66758004403
 ;;9002226.02101,"1072,66758005401 ",.01)
 ;;66758005401
 ;;9002226.02101,"1072,66758005401 ",.02)
 ;;66758005401
 ;;9002226.02101,"1072,66758005402 ",.01)
 ;;66758005402
 ;;9002226.02101,"1072,66758005402 ",.02)
 ;;66758005402
 ;;9002226.02101,"1072,67263034583 ",.01)
 ;;67263034583
 ;;9002226.02101,"1072,67263034583 ",.02)
 ;;67263034583
 ;;9002226.02101,"1072,67263046683 ",.01)
 ;;67263046683
 ;;9002226.02101,"1072,67263046683 ",.02)
 ;;67263046683
 ;;9002226.02101,"1072,67263050686 ",.01)
 ;;67263050686
 ;;9002226.02101,"1072,67263050686 ",.02)
 ;;67263050686
 ;;9002226.02101,"1072,67877017110 ",.01)
 ;;67877017110
 ;;9002226.02101,"1072,67877017110 ",.02)
 ;;67877017110
 ;;9002226.02101,"1072,67877017130 ",.01)
 ;;67877017130
 ;;9002226.02101,"1072,67877017130 ",.02)
 ;;67877017130
 ;;9002226.02101,"1072,68084044811 ",.01)
 ;;68084044811
 ;;9002226.02101,"1072,68084044811 ",.02)
 ;;68084044811
 ;;9002226.02101,"1072,68084044821 ",.01)
 ;;68084044821
 ;;9002226.02101,"1072,68084044821 ",.02)
 ;;68084044821
 ;;9002226.02101,"1072,68382020906 ",.01)
 ;;68382020906
 ;;9002226.02101,"1072,68382020906 ",.02)
 ;;68382020906
 ;;9002226.02101,"1072,68382020910 ",.01)
 ;;68382020910
 ;;9002226.02101,"1072,68382020910 ",.02)
 ;;68382020910
 ;;9002226.02101,"1072,68682000431 ",.01)
 ;;68682000431
 ;;9002226.02101,"1072,68682000431 ",.02)
 ;;68682000431
 ;;9002226.02101,"1072,68682008531 ",.01)
 ;;68682008531
 ;;9002226.02101,"1072,68682008531 ",.02)
 ;;68682008531
 ;;9002226.02101,"1072,68842004401 ",.01)
 ;;68842004401
 ;;9002226.02101,"1072,68842004401 ",.02)
 ;;68842004401
 ;;9002226.02101,"1072,68882060810 ",.01)
 ;;68882060810
 ;;9002226.02101,"1072,68882060810 ",.02)
 ;;68882060810