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

BGPM3AFB.m

Go to the documentation of this file.
BGPM3AFB ;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,00056017170 ",.02)
 ;;00056017170
 ;;9002226.02101,"791,00056017175 ",.01)
 ;;00056017175
 ;;9002226.02101,"791,00056017175 ",.02)
 ;;00056017175
 ;;9002226.02101,"791,00056017190 ",.01)
 ;;00056017190
 ;;9002226.02101,"791,00056017190 ",.02)
 ;;00056017190
 ;;9002226.02101,"791,00074662603 ",.01)
 ;;00074662603
 ;;9002226.02101,"791,00074662603 ",.02)
 ;;00074662603
 ;;9002226.02101,"791,00074662607 ",.01)
 ;;00074662607
 ;;9002226.02101,"791,00074662607 ",.02)
 ;;00074662607
 ;;9002226.02101,"791,00074720201 ",.01)
 ;;00074720201
 ;;9002226.02101,"791,00074720201 ",.02)
 ;;00074720201
 ;;9002226.02101,"791,00074720205 ",.01)
 ;;00074720205
 ;;9002226.02101,"791,00074720205 ",.02)
 ;;00074720205
 ;;9002226.02101,"791,00074721001 ",.01)
 ;;00074721001
 ;;9002226.02101,"791,00074721001 ",.02)
 ;;00074721001
 ;;9002226.02101,"791,00074721005 ",.01)
 ;;00074721005
 ;;9002226.02101,"791,00074721005 ",.02)
 ;;00074721005
 ;;9002226.02101,"791,00074721009 ",.01)
 ;;00074721009
 ;;9002226.02101,"791,00074721009 ",.02)
 ;;00074721009
 ;;9002226.02101,"791,00074721801 ",.01)
 ;;00074721801
 ;;9002226.02101,"791,00074721801 ",.02)
 ;;00074721801
 ;;9002226.02101,"791,00074721805 ",.01)
 ;;00074721805
 ;;9002226.02101,"791,00074721805 ",.02)
 ;;00074721805
 ;;9002226.02101,"791,00085016875 ",.01)
 ;;00085016875
 ;;9002226.02101,"791,00085016875 ",.02)
 ;;00085016875
 ;;9002226.02101,"791,00093014301 ",.01)
 ;;00093014301
 ;;9002226.02101,"791,00093014301 ",.02)
 ;;00093014301
 ;;9002226.02101,"791,00093014401 ",.01)
 ;;00093014401
 ;;9002226.02101,"791,00093014401 ",.02)
 ;;00093014401
 ;;9002226.02101,"791,00093014501 ",.01)
 ;;00093014501
 ;;9002226.02101,"791,00093014501 ",.02)
 ;;00093014501
 ;;9002226.02101,"791,00093014510 ",.01)
 ;;00093014510
 ;;9002226.02101,"791,00093014510 ",.02)
 ;;00093014510
 ;;9002226.02101,"791,00094014501 ",.01)
 ;;00094014501
 ;;9002226.02101,"791,00094014501 ",.02)
 ;;00094014501
 ;;9002226.02101,"791,00094014510 ",.01)
 ;;00094014510
 ;;9002226.02101,"791,00094014510 ",.02)
 ;;00094014510
 ;;9002226.02101,"791,00094014561 ",.01)
 ;;00094014561
 ;;9002226.02101,"791,00094014561 ",.02)
 ;;00094014561
 ;;9002226.02101,"791,00106143030 ",.01)
 ;;00106143030
 ;;9002226.02101,"791,00106143030 ",.02)
 ;;00106143030
 ;;9002226.02101,"791,00157028301 ",.01)
 ;;00157028301
 ;;9002226.02101,"791,00157028301 ",.02)
 ;;00157028301
 ;;9002226.02101,"791,00157028401 ",.01)
 ;;00157028401
 ;;9002226.02101,"791,00157028401 ",.02)
 ;;00157028401
 ;;9002226.02101,"791,00157028510 ",.01)
 ;;00157028510
 ;;9002226.02101,"791,00157028510 ",.02)
 ;;00157028510
 ;;9002226.02101,"791,00157028701 ",.01)
 ;;00157028701
 ;;9002226.02101,"791,00157028701 ",.02)
 ;;00157028701
 ;;9002226.02101,"791,00179136401 ",.01)
 ;;00179136401
 ;;9002226.02101,"791,00179136401 ",.02)
 ;;00179136401
 ;;9002226.02101,"791,00179136470 ",.01)
 ;;00179136470
 ;;9002226.02101,"791,00179136470 ",.02)
 ;;00179136470
 ;;9002226.02101,"791,00179136570 ",.01)
 ;;00179136570
 ;;9002226.02101,"791,00179136570 ",.02)
 ;;00179136570
 ;;9002226.02101,"791,00179136650 ",.01)
 ;;00179136650
 ;;9002226.02101,"791,00179136650 ",.02)
 ;;00179136650
 ;;9002226.02101,"791,00179136660 ",.01)
 ;;00179136660
 ;;9002226.02101,"791,00179136660 ",.02)
 ;;00179136660
 ;;9002226.02101,"791,00179136670 ",.01)
 ;;00179136670
 ;;9002226.02101,"791,00179136670 ",.02)
 ;;00179136670
 ;;9002226.02101,"791,00179136690 ",.01)
 ;;00179136690
 ;;9002226.02101,"791,00179136690 ",.02)
 ;;00179136690
 ;;9002226.02101,"791,00179139070 ",.01)
 ;;00179139070
 ;;9002226.02101,"791,00179139070 ",.02)
 ;;00179139070
 ;;9002226.02101,"791,00179139170 ",.01)
 ;;00179139170
 ;;9002226.02101,"791,00179139170 ",.02)
 ;;00179139170
 ;;9002226.02101,"791,00179139270 ",.01)
 ;;00179139270
 ;;9002226.02101,"791,00179139270 ",.02)
 ;;00179139270
 ;;9002226.02101,"791,00179139370 ",.01)
 ;;00179139370
 ;;9002226.02101,"791,00179139370 ",.02)
 ;;00179139370
 ;;9002226.02101,"791,00179139570 ",.01)
 ;;00179139570
 ;;9002226.02101,"791,00179139570 ",.02)
 ;;00179139570
 ;;9002226.02101,"791,00179196170 ",.01)
 ;;00179196170
 ;;9002226.02101,"791,00179196170 ",.02)
 ;;00179196170
 ;;9002226.02101,"791,00179196171 ",.01)
 ;;00179196171
 ;;9002226.02101,"791,00179196171 ",.02)
 ;;00179196171
 ;;9002226.02101,"791,00179196172 ",.01)
 ;;00179196172
 ;;9002226.02101,"791,00179196172 ",.02)
 ;;00179196172
 ;;9002226.02101,"791,00179196370 ",.01)
 ;;00179196370
 ;;9002226.02101,"791,00179196370 ",.02)
 ;;00179196370
 ;;9002226.02101,"791,00179196371 ",.01)
 ;;00179196371
 ;;9002226.02101,"791,00179196371 ",.02)
 ;;00179196371
 ;;9002226.02101,"791,00179196372 ",.01)
 ;;00179196372
 ;;9002226.02101,"791,00179196372 ",.02)
 ;;00179196372
 ;;9002226.02101,"791,00179196870 ",.01)
 ;;00179196870
 ;;9002226.02101,"791,00179196870 ",.02)
 ;;00179196870
 ;;9002226.02101,"791,00179196871 ",.01)
 ;;00179196871
 ;;9002226.02101,"791,00179196871 ",.02)
 ;;00179196871
 ;;9002226.02101,"791,00179196872 ",.01)
 ;;00179196872
 ;;9002226.02101,"791,00179196872 ",.02)
 ;;00179196872
 ;;9002226.02101,"791,00179200270 ",.01)
 ;;00179200270
 ;;9002226.02101,"791,00179200270 ",.02)
 ;;00179200270
 ;;9002226.02101,"791,00179200271 ",.01)
 ;;00179200271
 ;;9002226.02101,"791,00179200271 ",.02)
 ;;00179200271
 ;;9002226.02101,"791,00179200272 ",.01)
 ;;00179200272
 ;;9002226.02101,"791,00179200272 ",.02)
 ;;00179200272
 ;;9002226.02101,"791,00182152201 ",.01)
 ;;00182152201
 ;;9002226.02101,"791,00182152201 ",.02)
 ;;00182152201
 ;;9002226.02101,"791,00182152210 ",.01)
 ;;00182152210
 ;;9002226.02101,"791,00182152210 ",.02)
 ;;00182152210
 ;;9002226.02101,"791,00182267101 ",.01)
 ;;00182267101
 ;;9002226.02101,"791,00182267101 ",.02)
 ;;00182267101
 ;;9002226.02101,"791,00182267110 ",.01)
 ;;00182267110
 ;;9002226.02101,"791,00182267110 ",.02)
 ;;00182267110
 ;;9002226.02101,"791,00182267189 ",.01)
 ;;00182267189
 ;;9002226.02101,"791,00182267189 ",.02)
 ;;00182267189
 ;;9002226.02101,"791,00182267201 ",.01)
 ;;00182267201
 ;;9002226.02101,"791,00182267201 ",.02)
 ;;00182267201
 ;;9002226.02101,"791,00182267210 ",.01)
 ;;00182267210
 ;;9002226.02101,"791,00182267210 ",.02)
 ;;00182267210
 ;;9002226.02101,"791,00182267289 ",.01)
 ;;00182267289
 ;;9002226.02101,"791,00182267289 ",.02)
 ;;00182267289
 ;;9002226.02101,"791,00182267301 ",.01)
 ;;00182267301
 ;;9002226.02101,"791,00182267301 ",.02)
 ;;00182267301
 ;;9002226.02101,"791,00182267310 ",.01)
 ;;00182267310
 ;;9002226.02101,"791,00182267310 ",.02)
 ;;00182267310
 ;;9002226.02101,"791,00182267389 ",.01)
 ;;00182267389
 ;;9002226.02101,"791,00182267389 ",.02)
 ;;00182267389
 ;;9002226.02101,"791,00182267401 ",.01)
 ;;00182267401
 ;;9002226.02101,"791,00182267401 ",.02)
 ;;00182267401
 ;;9002226.02101,"791,00182267410 ",.01)
 ;;00182267410
 ;;9002226.02101,"791,00182267410 ",.02)
 ;;00182267410
 ;;9002226.02101,"791,00182267489 ",.01)
 ;;00182267489
 ;;9002226.02101,"791,00182267489 ",.02)
 ;;00182267489
 ;;9002226.02101,"791,00182267501 ",.01)
 ;;00182267501
 ;;9002226.02101,"791,00182267501 ",.02)
 ;;00182267501
 ;;9002226.02101,"791,00182267510 ",.01)
 ;;00182267510
 ;;9002226.02101,"791,00182267510 ",.02)
 ;;00182267510
 ;;9002226.02101,"791,00182267589 ",.01)
 ;;00182267589
 ;;9002226.02101,"791,00182267589 ",.02)
 ;;00182267589
 ;;9002226.02101,"791,00182267601 ",.01)
 ;;00182267601
 ;;9002226.02101,"791,00182267601 ",.02)
 ;;00182267601
 ;;9002226.02101,"791,00182267610 ",.01)
 ;;00182267610
 ;;9002226.02101,"791,00182267610 ",.02)
 ;;00182267610
 ;;9002226.02101,"791,00182267689 ",.01)
 ;;00182267689
 ;;9002226.02101,"791,00182267689 ",.02)
 ;;00182267689
 ;;9002226.02101,"791,00182267701 ",.01)
 ;;00182267701
 ;;9002226.02101,"791,00182267701 ",.02)
 ;;00182267701
 ;;9002226.02101,"791,00182267789 ",.01)
 ;;00182267789
 ;;9002226.02101,"791,00182267789 ",.02)
 ;;00182267789
 ;;9002226.02101,"791,00182267901 ",.01)
 ;;00182267901
 ;;9002226.02101,"791,00182267901 ",.02)
 ;;00182267901
 ;;9002226.02101,"791,00182267989 ",.01)
 ;;00182267989
 ;;9002226.02101,"791,00182267989 ",.02)
 ;;00182267989
 ;;9002226.02101,"791,00182276301 ",.01)
 ;;00182276301
 ;;9002226.02101,"791,00182276301 ",.02)
 ;;00182276301
 ;;9002226.02101,"791,00223237501 ",.01)
 ;;00223237501
 ;;9002226.02101,"791,00223237501 ",.02)
 ;;00223237501
 ;;9002226.02101,"791,00223237502 ",.01)
 ;;00223237502
 ;;9002226.02101,"791,00223237502 ",.02)
 ;;00223237502
 ;;9002226.02101,"791,00223237601 ",.01)
 ;;00223237601
 ;;9002226.02101,"791,00223237601 ",.02)
 ;;00223237601
 ;;9002226.02101,"791,00223237602 ",.01)
 ;;00223237602
 ;;9002226.02101,"791,00223237602 ",.02)
 ;;00223237602
 ;;9002226.02101,"791,00223237701 ",.01)
 ;;00223237701
 ;;9002226.02101,"791,00223237701 ",.02)
 ;;00223237701
 ;;9002226.02101,"791,00223237702 ",.01)
 ;;00223237702
 ;;9002226.02101,"791,00223237702 ",.02)
 ;;00223237702
 ;;9002226.02101,"791,00223237901 ",.01)
 ;;00223237901
 ;;9002226.02101,"791,00223237901 ",.02)
 ;;00223237901
 ;;9002226.02101,"791,00223237902 ",.01)
 ;;00223237902
 ;;9002226.02101,"791,00223237902 ",.02)
 ;;00223237902
 ;;9002226.02101,"791,00247225203 ",.01)
 ;;00247225203
 ;;9002226.02101,"791,00247225203 ",.02)
 ;;00247225203
 ;;9002226.02101,"791,00247225206 ",.01)
 ;;00247225206
 ;;9002226.02101,"791,00247225206 ",.02)
 ;;00247225206
 ;;9002226.02101,"791,00302820001 ",.01)
 ;;00302820001
 ;;9002226.02101,"791,00302820001 ",.02)
 ;;00302820001
 ;;9002226.02101,"791,00302820201 ",.01)
 ;;00302820201
 ;;9002226.02101,"791,00302820201 ",.02)
 ;;00302820201
 ;;9002226.02101,"791,00302820401 ",.01)
 ;;00302820401
 ;;9002226.02101,"791,00302820401 ",.02)
 ;;00302820401
 ;;9002226.02101,"791,00308618030 ",.01)
 ;;00308618030
 ;;9002226.02101,"791,00308618030 ",.02)
 ;;00308618030
 ;;9002226.02101,"791,00308618099 ",.01)
 ;;00308618099
 ;;9002226.02101,"791,00308618099 ",.02)
 ;;00308618099
 ;;9002226.02101,"791,00308620030 ",.01)
 ;;00308620030
 ;;9002226.02101,"791,00308620030 ",.02)
 ;;00308620030
 ;;9002226.02101,"791,00308620099 ",.01)
 ;;00308620099
 ;;9002226.02101,"791,00308620099 ",.02)
 ;;00308620099
 ;;9002226.02101,"791,00339653712 ",.01)
 ;;00339653712
 ;;9002226.02101,"791,00339653712 ",.02)
 ;;00339653712
 ;;9002226.02101,"791,00339653812 ",.01)
 ;;00339653812
 ;;9002226.02101,"791,00339653812 ",.02)
 ;;00339653812
 ;;9002226.02101,"791,00339653912 ",.01)
 ;;00339653912
 ;;9002226.02101,"791,00339653912 ",.02)
 ;;00339653912
 ;;9002226.02101,"791,00339654012 ",.01)
 ;;00339654012
 ;;9002226.02101,"791,00339654012 ",.02)
 ;;00339654012
 ;;9002226.02101,"791,00339654112 ",.01)
 ;;00339654112
 ;;9002226.02101,"791,00339654112 ",.02)
 ;;00339654112
 ;;9002226.02101,"791,00339654212 ",.01)
 ;;00339654212
 ;;9002226.02101,"791,00339654212 ",.02)
 ;;00339654212
 ;;9002226.02101,"791,00339654312 ",.01)
 ;;00339654312
 ;;9002226.02101,"791,00339654312 ",.02)
 ;;00339654312
 ;;9002226.02101,"791,00339654512 ",.01)
 ;;00339654512
 ;;9002226.02101,"791,00339654512 ",.02)
 ;;00339654512
 ;;9002226.02101,"791,00349839001 ",.01)
 ;;00349839001
 ;;9002226.02101,"791,00349839001 ",.02)
 ;;00349839001
 ;;9002226.02101,"791,00349839101 ",.01)
 ;;00349839101
 ;;9002226.02101,"791,00349839101 ",.02)
 ;;00349839101
 ;;9002226.02101,"791,00349839201 ",.01)
 ;;00349839201
 ;;9002226.02101,"791,00349839201 ",.02)
 ;;00349839201
 ;;9002226.02101,"791,00364064001 ",.01)
 ;;00364064001