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

BGPM3AFG.m

Go to the documentation of this file.
BGPM3AFG ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
 ;
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,"791,54868442201 ",.02)
 ;;54868442201
 ;;9002226.02101,"791,54868442202 ",.01)
 ;;54868442202
 ;;9002226.02101,"791,54868442202 ",.02)
 ;;54868442202
 ;;9002226.02101,"791,54868487100 ",.01)
 ;;54868487100
 ;;9002226.02101,"791,54868487100 ",.02)
 ;;54868487100
 ;;9002226.02101,"791,54868487101 ",.01)
 ;;54868487101
 ;;9002226.02101,"791,54868487101 ",.02)
 ;;54868487101
 ;;9002226.02101,"791,54868487102 ",.01)
 ;;54868487102
 ;;9002226.02101,"791,54868487102 ",.02)
 ;;54868487102
 ;;9002226.02101,"791,54868487300 ",.01)
 ;;54868487300
 ;;9002226.02101,"791,54868487300 ",.02)
 ;;54868487300
 ;;9002226.02101,"791,54868487301 ",.01)
 ;;54868487301
 ;;9002226.02101,"791,54868487301 ",.02)
 ;;54868487301
 ;;9002226.02101,"791,54868487302 ",.01)
 ;;54868487302
 ;;9002226.02101,"791,54868487302 ",.02)
 ;;54868487302
 ;;9002226.02101,"791,54868525800 ",.01)
 ;;54868525800
 ;;9002226.02101,"791,54868525800 ",.02)
 ;;54868525800
 ;;9002226.02101,"791,55045288108 ",.01)
 ;;55045288108
 ;;9002226.02101,"791,55045288108 ",.02)
 ;;55045288108
 ;;9002226.02101,"791,55045290100 ",.01)
 ;;55045290100
 ;;9002226.02101,"791,55045290100 ",.02)
 ;;55045290100
 ;;9002226.02101,"791,55045290108 ",.01)
 ;;55045290108
 ;;9002226.02101,"791,55045290108 ",.02)
 ;;55045290108
 ;;9002226.02101,"791,55045290200 ",.01)
 ;;55045290200
 ;;9002226.02101,"791,55045290200 ",.02)
 ;;55045290200
 ;;9002226.02101,"791,55045290202 ",.01)
 ;;55045290202
 ;;9002226.02101,"791,55045290202 ",.02)
 ;;55045290202
 ;;9002226.02101,"791,55045290208 ",.01)
 ;;55045290208
 ;;9002226.02101,"791,55045290208 ",.02)
 ;;55045290208
 ;;9002226.02101,"791,55045290300 ",.01)
 ;;55045290300
 ;;9002226.02101,"791,55045290300 ",.02)
 ;;55045290300
 ;;9002226.02101,"791,55045329201 ",.01)
 ;;55045329201
 ;;9002226.02101,"791,55045329201 ",.02)
 ;;55045329201
 ;;9002226.02101,"791,55154087609 ",.01)
 ;;55154087609
 ;;9002226.02101,"791,55154087609 ",.02)
 ;;55154087609
 ;;9002226.02101,"791,55154087709 ",.01)
 ;;55154087709
 ;;9002226.02101,"791,55154087709 ",.02)
 ;;55154087709
 ;;9002226.02101,"791,55154087809 ",.01)
 ;;55154087809
 ;;9002226.02101,"791,55154087809 ",.02)
 ;;55154087809
 ;;9002226.02101,"791,55154087909 ",.01)
 ;;55154087909
 ;;9002226.02101,"791,55154087909 ",.02)
 ;;55154087909
 ;;9002226.02101,"791,55154088009 ",.01)
 ;;55154088009
 ;;9002226.02101,"791,55154088009 ",.02)
 ;;55154088009
 ;;9002226.02101,"791,55154088309 ",.01)
 ;;55154088309
 ;;9002226.02101,"791,55154088309 ",.02)
 ;;55154088309
 ;;9002226.02101,"791,55154088409 ",.01)
 ;;55154088409
 ;;9002226.02101,"791,55154088409 ",.02)
 ;;55154088409
 ;;9002226.02101,"791,55289034030 ",.01)
 ;;55289034030
 ;;9002226.02101,"791,55289034030 ",.02)
 ;;55289034030
 ;;9002226.02101,"791,55289077314 ",.01)
 ;;55289077314
 ;;9002226.02101,"791,55289077314 ",.02)
 ;;55289077314
 ;;9002226.02101,"791,55289077330 ",.01)
 ;;55289077330
 ;;9002226.02101,"791,55289077330 ",.02)
 ;;55289077330
 ;;9002226.02101,"791,55289077360 ",.01)
 ;;55289077360
 ;;9002226.02101,"791,55289077360 ",.02)
 ;;55289077360
 ;;9002226.02101,"791,55289077390 ",.01)
 ;;55289077390
 ;;9002226.02101,"791,55289077390 ",.02)
 ;;55289077390
 ;;9002226.02101,"791,55567010000 ",.01)
 ;;55567010000
 ;;9002226.02101,"791,55567010000 ",.02)
 ;;55567010000
 ;;9002226.02101,"791,55567010001 ",.01)
 ;;55567010001
 ;;9002226.02101,"791,55567010001 ",.02)
 ;;55567010001
 ;;9002226.02101,"791,55567010010 ",.01)
 ;;55567010010
 ;;9002226.02101,"791,55567010010 ",.02)
 ;;55567010010
 ;;9002226.02101,"791,55567010100 ",.01)
 ;;55567010100
 ;;9002226.02101,"791,55567010100 ",.02)
 ;;55567010100
 ;;9002226.02101,"791,55567010101 ",.01)
 ;;55567010101
 ;;9002226.02101,"791,55567010101 ",.02)
 ;;55567010101
 ;;9002226.02101,"791,55567010110 ",.01)
 ;;55567010110
 ;;9002226.02101,"791,55567010110 ",.02)
 ;;55567010110
 ;;9002226.02101,"791,55567010118 ",.01)
 ;;55567010118
 ;;9002226.02101,"791,55567010118 ",.02)
 ;;55567010118
 ;;9002226.02101,"791,55567010135 ",.01)
 ;;55567010135
 ;;9002226.02101,"791,55567010135 ",.02)
 ;;55567010135
 ;;9002226.02101,"791,55567010200 ",.01)
 ;;55567010200
 ;;9002226.02101,"791,55567010200 ",.02)
 ;;55567010200
 ;;9002226.02101,"791,55567010201 ",.01)
 ;;55567010201
 ;;9002226.02101,"791,55567010201 ",.02)
 ;;55567010201
 ;;9002226.02101,"791,55567010210 ",.01)
 ;;55567010210
 ;;9002226.02101,"791,55567010210 ",.02)
 ;;55567010210
 ;;9002226.02101,"791,55567010218 ",.01)
 ;;55567010218
 ;;9002226.02101,"791,55567010218 ",.02)
 ;;55567010218
 ;;9002226.02101,"791,55567010235 ",.01)
 ;;55567010235
 ;;9002226.02101,"791,55567010235 ",.02)
 ;;55567010235
 ;;9002226.02101,"791,55567010600 ",.01)
 ;;55567010600
 ;;9002226.02101,"791,55567010600 ",.02)
 ;;55567010600
 ;;9002226.02101,"791,55567010601 ",.01)
 ;;55567010601
 ;;9002226.02101,"791,55567010601 ",.02)
 ;;55567010601
 ;;9002226.02101,"791,55567010610 ",.01)
 ;;55567010610
 ;;9002226.02101,"791,55567010610 ",.02)
 ;;55567010610
 ;;9002226.02101,"791,55567010618 ",.01)
 ;;55567010618
 ;;9002226.02101,"791,55567010618 ",.02)
 ;;55567010618
 ;;9002226.02101,"791,55567010635 ",.01)
 ;;55567010635
 ;;9002226.02101,"791,55567010635 ",.02)
 ;;55567010635
 ;;9002226.02101,"791,55567010800 ",.01)
 ;;55567010800
 ;;9002226.02101,"791,55567010800 ",.02)
 ;;55567010800
 ;;9002226.02101,"791,55567010801 ",.01)
 ;;55567010801
 ;;9002226.02101,"791,55567010801 ",.02)
 ;;55567010801
 ;;9002226.02101,"791,55567010810 ",.01)
 ;;55567010810
 ;;9002226.02101,"791,55567010810 ",.02)
 ;;55567010810
 ;;9002226.02101,"791,55567010818 ",.01)
 ;;55567010818
 ;;9002226.02101,"791,55567010818 ",.02)
 ;;55567010818
 ;;9002226.02101,"791,55567010835 ",.01)
 ;;55567010835
 ;;9002226.02101,"791,55567010835 ",.02)
 ;;55567010835
 ;;9002226.02101,"791,55567026600 ",.01)
 ;;55567026600
 ;;9002226.02101,"791,55567026600 ",.02)
 ;;55567026600
 ;;9002226.02101,"791,55567026601 ",.01)
 ;;55567026601
 ;;9002226.02101,"791,55567026601 ",.02)
 ;;55567026601
 ;;9002226.02101,"791,55567026610 ",.01)
 ;;55567026610
 ;;9002226.02101,"791,55567026610 ",.02)
 ;;55567026610
 ;;9002226.02101,"791,55567026700 ",.01)
 ;;55567026700
 ;;9002226.02101,"791,55567026700 ",.02)
 ;;55567026700
 ;;9002226.02101,"791,55567026701 ",.01)
 ;;55567026701
 ;;9002226.02101,"791,55567026701 ",.02)
 ;;55567026701
 ;;9002226.02101,"791,55567026710 ",.01)
 ;;55567026710
 ;;9002226.02101,"791,55567026710 ",.02)
 ;;55567026710
 ;;9002226.02101,"791,55567026800 ",.01)
 ;;55567026800
 ;;9002226.02101,"791,55567026800 ",.02)
 ;;55567026800
 ;;9002226.02101,"791,55567026801 ",.01)
 ;;55567026801
 ;;9002226.02101,"791,55567026801 ",.02)
 ;;55567026801
 ;;9002226.02101,"791,55567026810 ",.01)
 ;;55567026810
 ;;9002226.02101,"791,55567026810 ",.02)
 ;;55567026810
 ;;9002226.02101,"791,55587057810 ",.01)
 ;;55587057810
 ;;9002226.02101,"791,55587057810 ",.02)
 ;;55587057810
 ;;9002226.02101,"791,55587057830 ",.01)
 ;;55587057830
 ;;9002226.02101,"791,55587057830 ",.02)
 ;;55587057830
 ;;9002226.02101,"791,55587057845 ",.01)
 ;;55587057845
 ;;9002226.02101,"791,55587057845 ",.02)
 ;;55587057845
 ;;9002226.02101,"791,55587057860 ",.01)
 ;;55587057860
 ;;9002226.02101,"791,55587057860 ",.02)
 ;;55587057860
 ;;9002226.02101,"791,55587057886 ",.01)
 ;;55587057886
 ;;9002226.02101,"791,55587057886 ",.02)
 ;;55587057886
 ;;9002226.02101,"791,55587057890 ",.01)
 ;;55587057890
 ;;9002226.02101,"791,55587057890 ",.02)
 ;;55587057890
 ;;9002226.02101,"791,55887004401 ",.01)
 ;;55887004401
 ;;9002226.02101,"791,55887004401 ",.02)
 ;;55887004401
 ;;9002226.02101,"791,55887004430 ",.01)
 ;;55887004430
 ;;9002226.02101,"791,55887004430 ",.02)
 ;;55887004430
 ;;9002226.02101,"791,55887004460 ",.01)
 ;;55887004460
 ;;9002226.02101,"791,55887004460 ",.02)
 ;;55887004460
 ;;9002226.02101,"791,55887004490 ",.01)
 ;;55887004490
 ;;9002226.02101,"791,55887004490 ",.02)
 ;;55887004490
 ;;9002226.02101,"791,55887026401 ",.01)
 ;;55887026401
 ;;9002226.02101,"791,55887026401 ",.02)
 ;;55887026401
 ;;9002226.02101,"791,55887026430 ",.01)
 ;;55887026430
 ;;9002226.02101,"791,55887026430 ",.02)
 ;;55887026430
 ;;9002226.02101,"791,55887026490 ",.01)
 ;;55887026490
 ;;9002226.02101,"791,55887026490 ",.02)
 ;;55887026490
 ;;9002226.02101,"791,55887046430 ",.01)
 ;;55887046430
 ;;9002226.02101,"791,55887046430 ",.02)
 ;;55887046430
 ;;9002226.02101,"791,55887046490 ",.01)
 ;;55887046490
 ;;9002226.02101,"791,55887046490 ",.02)
 ;;55887046490
 ;;9002226.02101,"791,55887057710 ",.01)
 ;;55887057710
 ;;9002226.02101,"791,55887057710 ",.02)
 ;;55887057710
 ;;9002226.02101,"791,55887057730 ",.01)
 ;;55887057730
 ;;9002226.02101,"791,55887057730 ",.02)
 ;;55887057730
 ;;9002226.02101,"791,55887057760 ",.01)
 ;;55887057760
 ;;9002226.02101,"791,55887057760 ",.02)
 ;;55887057760
 ;;9002226.02101,"791,55887057790 ",.01)
 ;;55887057790
 ;;9002226.02101,"791,55887057790 ",.02)
 ;;55887057790
 ;;9002226.02101,"791,55887057810 ",.01)
 ;;55887057810
 ;;9002226.02101,"791,55887057810 ",.02)
 ;;55887057810
 ;;9002226.02101,"791,55887057830 ",.01)
 ;;55887057830
 ;;9002226.02101,"791,55887057830 ",.02)
 ;;55887057830
 ;;9002226.02101,"791,55887057860 ",.01)
 ;;55887057860
 ;;9002226.02101,"791,55887057860 ",.02)
 ;;55887057860
 ;;9002226.02101,"791,55887057886 ",.01)
 ;;55887057886
 ;;9002226.02101,"791,55887057886 ",.02)
 ;;55887057886
 ;;9002226.02101,"791,55887057890 ",.01)
 ;;55887057890
 ;;9002226.02101,"791,55887057890 ",.02)
 ;;55887057890
 ;;9002226.02101,"791,55887092630 ",.01)
 ;;55887092630
 ;;9002226.02101,"791,55887092630 ",.02)
 ;;55887092630
 ;;9002226.02101,"791,55887092690 ",.01)
 ;;55887092690
 ;;9002226.02101,"791,55887092690 ",.02)
 ;;55887092690
 ;;9002226.02101,"791,57866994601 ",.01)
 ;;57866994601
 ;;9002226.02101,"791,57866994601 ",.02)
 ;;57866994601
 ;;9002226.02101,"791,57866994602 ",.01)
 ;;57866994602
 ;;9002226.02101,"791,57866994602 ",.02)
 ;;57866994602
 ;;9002226.02101,"791,58016008300 ",.01)
 ;;58016008300
 ;;9002226.02101,"791,58016008300 ",.02)
 ;;58016008300
 ;;9002226.02101,"791,58016008301 ",.01)
 ;;58016008301
 ;;9002226.02101,"791,58016008301 ",.02)
 ;;58016008301
 ;;9002226.02101,"791,58016008302 ",.01)
 ;;58016008302
 ;;9002226.02101,"791,58016008302 ",.02)
 ;;58016008302
 ;;9002226.02101,"791,58016008303 ",.01)
 ;;58016008303
 ;;9002226.02101,"791,58016008303 ",.02)
 ;;58016008303
 ;;9002226.02101,"791,58016008304 ",.01)
 ;;58016008304
 ;;9002226.02101,"791,58016008304 ",.02)
 ;;58016008304
 ;;9002226.02101,"791,58016008305 ",.01)
 ;;58016008305
 ;;9002226.02101,"791,58016008305 ",.02)
 ;;58016008305
 ;;9002226.02101,"791,58016008306 ",.01)
 ;;58016008306
 ;;9002226.02101,"791,58016008306 ",.02)
 ;;58016008306
 ;;9002226.02101,"791,58016008307 ",.01)
 ;;58016008307
 ;;9002226.02101,"791,58016008307 ",.02)
 ;;58016008307
 ;;9002226.02101,"791,58016008308 ",.01)
 ;;58016008308
 ;;9002226.02101,"791,58016008308 ",.02)
 ;;58016008308
 ;;9002226.02101,"791,58016008309 ",.01)
 ;;58016008309
 ;;9002226.02101,"791,58016008309 ",.02)
 ;;58016008309
 ;;9002226.02101,"791,58016008310 ",.01)
 ;;58016008310
 ;;9002226.02101,"791,58016008310 ",.02)
 ;;58016008310
 ;;9002226.02101,"791,58016008312 ",.01)
 ;;58016008312
 ;;9002226.02101,"791,58016008312 ",.02)
 ;;58016008312
 ;;9002226.02101,"791,58016008314 ",.01)
 ;;58016008314
 ;;9002226.02101,"791,58016008314 ",.02)
 ;;58016008314
 ;;9002226.02101,"791,58016008315 ",.01)
 ;;58016008315