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

BGPM3ABA.m

Go to the documentation of this file.
BGPM3ABA ;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,"775,00166034706 ",.01)
 ;;00166034706
 ;;9002226.02101,"775,00166034706 ",.02)
 ;;00166034706
 ;;9002226.02101,"775,00166034751 ",.01)
 ;;00166034751
 ;;9002226.02101,"775,00166034751 ",.02)
 ;;00166034751
 ;;9002226.02101,"775,00179108150 ",.01)
 ;;00179108150
 ;;9002226.02101,"775,00179108150 ",.02)
 ;;00179108150
 ;;9002226.02101,"775,00179136401 ",.01)
 ;;00179136401
 ;;9002226.02101,"775,00179136401 ",.02)
 ;;00179136401
 ;;9002226.02101,"775,00179136470 ",.01)
 ;;00179136470
 ;;9002226.02101,"775,00179136470 ",.02)
 ;;00179136470
 ;;9002226.02101,"775,00179136570 ",.01)
 ;;00179136570
 ;;9002226.02101,"775,00179136570 ",.02)
 ;;00179136570
 ;;9002226.02101,"775,00179136650 ",.01)
 ;;00179136650
 ;;9002226.02101,"775,00179136650 ",.02)
 ;;00179136650
 ;;9002226.02101,"775,00179136660 ",.01)
 ;;00179136660
 ;;9002226.02101,"775,00179136660 ",.02)
 ;;00179136660
 ;;9002226.02101,"775,00179136670 ",.01)
 ;;00179136670
 ;;9002226.02101,"775,00179136670 ",.02)
 ;;00179136670
 ;;9002226.02101,"775,00179136690 ",.01)
 ;;00179136690
 ;;9002226.02101,"775,00179136690 ",.02)
 ;;00179136690
 ;;9002226.02101,"775,00179139070 ",.01)
 ;;00179139070
 ;;9002226.02101,"775,00179139070 ",.02)
 ;;00179139070
 ;;9002226.02101,"775,00179139170 ",.01)
 ;;00179139170
 ;;9002226.02101,"775,00179139170 ",.02)
 ;;00179139170
 ;;9002226.02101,"775,00179139270 ",.01)
 ;;00179139270
 ;;9002226.02101,"775,00179139270 ",.02)
 ;;00179139270
 ;;9002226.02101,"775,00179139370 ",.01)
 ;;00179139370
 ;;9002226.02101,"775,00179139370 ",.02)
 ;;00179139370
 ;;9002226.02101,"775,00179139470 ",.01)
 ;;00179139470
 ;;9002226.02101,"775,00179139470 ",.02)
 ;;00179139470
 ;;9002226.02101,"775,00179139570 ",.01)
 ;;00179139570
 ;;9002226.02101,"775,00179139570 ",.02)
 ;;00179139570
 ;;9002226.02101,"775,00179196170 ",.01)
 ;;00179196170
 ;;9002226.02101,"775,00179196170 ",.02)
 ;;00179196170
 ;;9002226.02101,"775,00179196171 ",.01)
 ;;00179196171
 ;;9002226.02101,"775,00179196171 ",.02)
 ;;00179196171
 ;;9002226.02101,"775,00179196172 ",.01)
 ;;00179196172
 ;;9002226.02101,"775,00179196172 ",.02)
 ;;00179196172
 ;;9002226.02101,"775,00179196270 ",.01)
 ;;00179196270
 ;;9002226.02101,"775,00179196270 ",.02)
 ;;00179196270
 ;;9002226.02101,"775,00179196271 ",.01)
 ;;00179196271
 ;;9002226.02101,"775,00179196271 ",.02)
 ;;00179196271
 ;;9002226.02101,"775,00179196272 ",.01)
 ;;00179196272
 ;;9002226.02101,"775,00179196272 ",.02)
 ;;00179196272
 ;;9002226.02101,"775,00179196370 ",.01)
 ;;00179196370
 ;;9002226.02101,"775,00179196370 ",.02)
 ;;00179196370
 ;;9002226.02101,"775,00179196371 ",.01)
 ;;00179196371
 ;;9002226.02101,"775,00179196371 ",.02)
 ;;00179196371
 ;;9002226.02101,"775,00179196372 ",.01)
 ;;00179196372
 ;;9002226.02101,"775,00179196372 ",.02)
 ;;00179196372
 ;;9002226.02101,"775,00179196870 ",.01)
 ;;00179196870
 ;;9002226.02101,"775,00179196870 ",.02)
 ;;00179196870
 ;;9002226.02101,"775,00179196871 ",.01)
 ;;00179196871
 ;;9002226.02101,"775,00179196871 ",.02)
 ;;00179196871
 ;;9002226.02101,"775,00179196872 ",.01)
 ;;00179196872
 ;;9002226.02101,"775,00179196872 ",.02)
 ;;00179196872
 ;;9002226.02101,"775,00179200270 ",.01)
 ;;00179200270
 ;;9002226.02101,"775,00179200270 ",.02)
 ;;00179200270
 ;;9002226.02101,"775,00179200271 ",.01)
 ;;00179200271
 ;;9002226.02101,"775,00179200271 ",.02)
 ;;00179200271
 ;;9002226.02101,"775,00179200272 ",.01)
 ;;00179200272
 ;;9002226.02101,"775,00179200272 ",.02)
 ;;00179200272
 ;;9002226.02101,"775,00182026411 ",.01)
 ;;00182026411
 ;;9002226.02101,"775,00182026411 ",.02)
 ;;00182026411
 ;;9002226.02101,"775,00182026611 ",.01)
 ;;00182026611
 ;;9002226.02101,"775,00182026611 ",.02)
 ;;00182026611
 ;;9002226.02101,"775,00182026711 ",.01)
 ;;00182026711
 ;;9002226.02101,"775,00182026711 ",.02)
 ;;00182026711
 ;;9002226.02101,"775,00182044401 ",.01)
 ;;00182044401
 ;;9002226.02101,"775,00182044401 ",.02)
 ;;00182044401
 ;;9002226.02101,"775,00182044410 ",.01)
 ;;00182044410
 ;;9002226.02101,"775,00182044410 ",.02)
 ;;00182044410
 ;;9002226.02101,"775,00182044801 ",.01)
 ;;00182044801
 ;;9002226.02101,"775,00182044801 ",.02)
 ;;00182044801
 ;;9002226.02101,"775,00182044810 ",.01)
 ;;00182044810
 ;;9002226.02101,"775,00182044810 ",.02)
 ;;00182044810
 ;;9002226.02101,"775,00182044817 ",.01)
 ;;00182044817
 ;;9002226.02101,"775,00182044817 ",.02)
 ;;00182044817
 ;;9002226.02101,"775,00182044889 ",.01)
 ;;00182044889
 ;;9002226.02101,"775,00182044889 ",.02)
 ;;00182044889
 ;;9002226.02101,"775,00182044901 ",.01)
 ;;00182044901
 ;;9002226.02101,"775,00182044901 ",.02)
 ;;00182044901
 ;;9002226.02101,"775,00182044910 ",.01)
 ;;00182044910
 ;;9002226.02101,"775,00182044910 ",.02)
 ;;00182044910
 ;;9002226.02101,"775,00182105801 ",.01)
 ;;00182105801
 ;;9002226.02101,"775,00182105801 ",.02)
 ;;00182105801
 ;;9002226.02101,"775,00182106001 ",.01)
 ;;00182106001
 ;;9002226.02101,"775,00182106001 ",.02)
 ;;00182106001
 ;;9002226.02101,"775,00182106105 ",.01)
 ;;00182106105
 ;;9002226.02101,"775,00182106105 ",.02)
 ;;00182106105
 ;;9002226.02101,"775,00182106501 ",.01)
 ;;00182106501
 ;;9002226.02101,"775,00182106501 ",.02)
 ;;00182106501
 ;;9002226.02101,"775,00182142095 ",.01)
 ;;00182142095
 ;;9002226.02101,"775,00182142095 ",.02)
 ;;00182142095
 ;;9002226.02101,"775,00182152201 ",.01)
 ;;00182152201
 ;;9002226.02101,"775,00182152201 ",.02)
 ;;00182152201
 ;;9002226.02101,"775,00182152210 ",.01)
 ;;00182152210
 ;;9002226.02101,"775,00182152210 ",.02)
 ;;00182152210
 ;;9002226.02101,"775,00182190801 ",.01)
 ;;00182190801
 ;;9002226.02101,"775,00182190801 ",.02)
 ;;00182190801
 ;;9002226.02101,"775,00182190901 ",.01)
 ;;00182190901
 ;;9002226.02101,"775,00182190901 ",.02)
 ;;00182190901
 ;;9002226.02101,"775,00182190910 ",.01)
 ;;00182190910
 ;;9002226.02101,"775,00182190910 ",.02)
 ;;00182190910
 ;;9002226.02101,"775,00182267101 ",.01)
 ;;00182267101
 ;;9002226.02101,"775,00182267101 ",.02)
 ;;00182267101
 ;;9002226.02101,"775,00182267110 ",.01)
 ;;00182267110
 ;;9002226.02101,"775,00182267110 ",.02)
 ;;00182267110
 ;;9002226.02101,"775,00182267189 ",.01)
 ;;00182267189
 ;;9002226.02101,"775,00182267189 ",.02)
 ;;00182267189
 ;;9002226.02101,"775,00182267201 ",.01)
 ;;00182267201
 ;;9002226.02101,"775,00182267201 ",.02)
 ;;00182267201
 ;;9002226.02101,"775,00182267210 ",.01)
 ;;00182267210
 ;;9002226.02101,"775,00182267210 ",.02)
 ;;00182267210
 ;;9002226.02101,"775,00182267289 ",.01)
 ;;00182267289
 ;;9002226.02101,"775,00182267289 ",.02)
 ;;00182267289
 ;;9002226.02101,"775,00182267301 ",.01)
 ;;00182267301
 ;;9002226.02101,"775,00182267301 ",.02)
 ;;00182267301
 ;;9002226.02101,"775,00182267310 ",.01)
 ;;00182267310
 ;;9002226.02101,"775,00182267310 ",.02)
 ;;00182267310
 ;;9002226.02101,"775,00182267389 ",.01)
 ;;00182267389
 ;;9002226.02101,"775,00182267389 ",.02)
 ;;00182267389
 ;;9002226.02101,"775,00182267401 ",.01)
 ;;00182267401
 ;;9002226.02101,"775,00182267401 ",.02)
 ;;00182267401
 ;;9002226.02101,"775,00182267410 ",.01)
 ;;00182267410
 ;;9002226.02101,"775,00182267410 ",.02)
 ;;00182267410
 ;;9002226.02101,"775,00182267489 ",.01)
 ;;00182267489
 ;;9002226.02101,"775,00182267489 ",.02)
 ;;00182267489
 ;;9002226.02101,"775,00182267501 ",.01)
 ;;00182267501
 ;;9002226.02101,"775,00182267501 ",.02)
 ;;00182267501
 ;;9002226.02101,"775,00182267510 ",.01)
 ;;00182267510
 ;;9002226.02101,"775,00182267510 ",.02)
 ;;00182267510
 ;;9002226.02101,"775,00182267589 ",.01)
 ;;00182267589
 ;;9002226.02101,"775,00182267589 ",.02)
 ;;00182267589
 ;;9002226.02101,"775,00182267601 ",.01)
 ;;00182267601
 ;;9002226.02101,"775,00182267601 ",.02)
 ;;00182267601
 ;;9002226.02101,"775,00182267610 ",.01)
 ;;00182267610
 ;;9002226.02101,"775,00182267610 ",.02)
 ;;00182267610
 ;;9002226.02101,"775,00182267689 ",.01)
 ;;00182267689
 ;;9002226.02101,"775,00182267689 ",.02)
 ;;00182267689
 ;;9002226.02101,"775,00182267701 ",.01)
 ;;00182267701
 ;;9002226.02101,"775,00182267701 ",.02)
 ;;00182267701
 ;;9002226.02101,"775,00182267789 ",.01)
 ;;00182267789
 ;;9002226.02101,"775,00182267789 ",.02)
 ;;00182267789
 ;;9002226.02101,"775,00182267801 ",.01)
 ;;00182267801
 ;;9002226.02101,"775,00182267801 ",.02)
 ;;00182267801
 ;;9002226.02101,"775,00182267889 ",.01)
 ;;00182267889
 ;;9002226.02101,"775,00182267889 ",.02)
 ;;00182267889
 ;;9002226.02101,"775,00182267901 ",.01)
 ;;00182267901
 ;;9002226.02101,"775,00182267901 ",.02)
 ;;00182267901
 ;;9002226.02101,"775,00182267989 ",.01)
 ;;00182267989
 ;;9002226.02101,"775,00182267989 ",.02)
 ;;00182267989
 ;;9002226.02101,"775,00182276301 ",.01)
 ;;00182276301
 ;;9002226.02101,"775,00182276301 ",.02)
 ;;00182276301
 ;;9002226.02101,"775,00182821789 ",.01)
 ;;00182821789
 ;;9002226.02101,"775,00182821789 ",.02)
 ;;00182821789
 ;;9002226.02101,"775,00185011505 ",.01)
 ;;00185011505
 ;;9002226.02101,"775,00185011505 ",.02)
 ;;00185011505
 ;;9002226.02101,"775,00185011530 ",.01)
 ;;00185011530
 ;;9002226.02101,"775,00185011530 ",.02)
 ;;00185011530
 ;;9002226.02101,"775,00185011560 ",.01)
 ;;00185011560
 ;;9002226.02101,"775,00185011560 ",.02)
 ;;00185011560
 ;;9002226.02101,"775,00209422014 ",.01)
 ;;00209422014
 ;;9002226.02101,"775,00209422014 ",.02)
 ;;00209422014
 ;;9002226.02101,"775,00223032801 ",.01)
 ;;00223032801
 ;;9002226.02101,"775,00223032801 ",.02)
 ;;00223032801
 ;;9002226.02101,"775,00223032802 ",.01)
 ;;00223032802
 ;;9002226.02101,"775,00223032802 ",.02)
 ;;00223032802
 ;;9002226.02101,"775,00223033036 ",.01)
 ;;00223033036
 ;;9002226.02101,"775,00223033036 ",.02)
 ;;00223033036
 ;;9002226.02101,"775,00223033101 ",.01)
 ;;00223033101
 ;;9002226.02101,"775,00223033101 ",.02)
 ;;00223033101
 ;;9002226.02101,"775,00223033103 ",.01)
 ;;00223033103
 ;;9002226.02101,"775,00223033103 ",.02)
 ;;00223033103
 ;;9002226.02101,"775,00223033200 ",.01)
 ;;00223033200
 ;;9002226.02101,"775,00223033200 ",.02)
 ;;00223033200
 ;;9002226.02101,"775,00223237501 ",.01)
 ;;00223237501
 ;;9002226.02101,"775,00223237501 ",.02)
 ;;00223237501
 ;;9002226.02101,"775,00223237502 ",.01)
 ;;00223237502
 ;;9002226.02101,"775,00223237502 ",.02)
 ;;00223237502
 ;;9002226.02101,"775,00223237601 ",.01)
 ;;00223237601
 ;;9002226.02101,"775,00223237601 ",.02)
 ;;00223237601
 ;;9002226.02101,"775,00223237602 ",.01)
 ;;00223237602
 ;;9002226.02101,"775,00223237602 ",.02)
 ;;00223237602
 ;;9002226.02101,"775,00223237701 ",.01)
 ;;00223237701
 ;;9002226.02101,"775,00223237701 ",.02)
 ;;00223237701
 ;;9002226.02101,"775,00223237702 ",.01)
 ;;00223237702
 ;;9002226.02101,"775,00223237702 ",.02)
 ;;00223237702
 ;;9002226.02101,"775,00223237801 ",.01)
 ;;00223237801
 ;;9002226.02101,"775,00223237801 ",.02)
 ;;00223237801
 ;;9002226.02101,"775,00223237802 ",.01)
 ;;00223237802
 ;;9002226.02101,"775,00223237802 ",.02)
 ;;00223237802
 ;;9002226.02101,"775,00223237901 ",.01)
 ;;00223237901
 ;;9002226.02101,"775,00223237901 ",.02)
 ;;00223237901
 ;;9002226.02101,"775,00223237902 ",.01)
 ;;00223237902
 ;;9002226.02101,"775,00223237902 ",.02)
 ;;00223237902
 ;;9002226.02101,"775,00223503000 ",.01)
 ;;00223503000
 ;;9002226.02101,"775,00223503000 ",.02)
 ;;00223503000
 ;;9002226.02101,"775,00223503002 ",.01)
 ;;00223503002
 ;;9002226.02101,"775,00223503002 ",.02)
 ;;00223503002
 ;;9002226.02101,"775,00223503012 ",.01)
 ;;00223503012
 ;;9002226.02101,"775,00223503012 ",.02)
 ;;00223503012
 ;;9002226.02101,"775,00223503100 ",.01)
 ;;00223503100
 ;;9002226.02101,"775,00223503100 ",.02)
 ;;00223503100