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

BGPM5ASK.m

Go to the documentation of this file.
  1. BGPM5ASK ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"1005,67544038030 ",.01)
  1. ;;67544038030
  1. ;;9002226.02101,"1005,67544038030 ",.02)
  1. ;;67544038030
  1. ;;9002226.02101,"1005,67544038060 ",.01)
  1. ;;67544038060
  1. ;;9002226.02101,"1005,67544038060 ",.02)
  1. ;;67544038060
  1. ;;9002226.02101,"1005,67544038115 ",.01)
  1. ;;67544038115
  1. ;;9002226.02101,"1005,67544038115 ",.02)
  1. ;;67544038115
  1. ;;9002226.02101,"1005,67544038130 ",.01)
  1. ;;67544038130
  1. ;;9002226.02101,"1005,67544038130 ",.02)
  1. ;;67544038130
  1. ;;9002226.02101,"1005,67544038145 ",.01)
  1. ;;67544038145
  1. ;;9002226.02101,"1005,67544038145 ",.02)
  1. ;;67544038145
  1. ;;9002226.02101,"1005,67544038153 ",.01)
  1. ;;67544038153
  1. ;;9002226.02101,"1005,67544038153 ",.02)
  1. ;;67544038153
  1. ;;9002226.02101,"1005,67544038160 ",.01)
  1. ;;67544038160
  1. ;;9002226.02101,"1005,67544038160 ",.02)
  1. ;;67544038160
  1. ;;9002226.02101,"1005,67544038170 ",.01)
  1. ;;67544038170
  1. ;;9002226.02101,"1005,67544038170 ",.02)
  1. ;;67544038170
  1. ;;9002226.02101,"1005,67544038173 ",.01)
  1. ;;67544038173
  1. ;;9002226.02101,"1005,67544038173 ",.02)
  1. ;;67544038173
  1. ;;9002226.02101,"1005,67544038180 ",.01)
  1. ;;67544038180
  1. ;;9002226.02101,"1005,67544038180 ",.02)
  1. ;;67544038180
  1. ;;9002226.02101,"1005,67544038192 ",.01)
  1. ;;67544038192
  1. ;;9002226.02101,"1005,67544038192 ",.02)
  1. ;;67544038192
  1. ;;9002226.02101,"1005,67544038194 ",.01)
  1. ;;67544038194
  1. ;;9002226.02101,"1005,67544038194 ",.02)
  1. ;;67544038194
  1. ;;9002226.02101,"1005,67544040045 ",.01)
  1. ;;67544040045
  1. ;;9002226.02101,"1005,67544040045 ",.02)
  1. ;;67544040045
  1. ;;9002226.02101,"1005,67544040330 ",.01)
  1. ;;67544040330
  1. ;;9002226.02101,"1005,67544040330 ",.02)
  1. ;;67544040330
  1. ;;9002226.02101,"1005,67544040331 ",.01)
  1. ;;67544040331
  1. ;;9002226.02101,"1005,67544040331 ",.02)
  1. ;;67544040331
  1. ;;9002226.02101,"1005,67544040430 ",.01)
  1. ;;67544040430
  1. ;;9002226.02101,"1005,67544040430 ",.02)
  1. ;;67544040430
  1. ;;9002226.02101,"1005,67544040431 ",.01)
  1. ;;67544040431
  1. ;;9002226.02101,"1005,67544040431 ",.02)
  1. ;;67544040431
  1. ;;9002226.02101,"1005,67544041860 ",.01)
  1. ;;67544041860
  1. ;;9002226.02101,"1005,67544041860 ",.02)
  1. ;;67544041860
  1. ;;9002226.02101,"1005,67544043115 ",.01)
  1. ;;67544043115
  1. ;;9002226.02101,"1005,67544043115 ",.02)
  1. ;;67544043115
  1. ;;9002226.02101,"1005,67544043130 ",.01)
  1. ;;67544043130
  1. ;;9002226.02101,"1005,67544043130 ",.02)
  1. ;;67544043130
  1. ;;9002226.02101,"1005,67544043145 ",.01)
  1. ;;67544043145
  1. ;;9002226.02101,"1005,67544043145 ",.02)
  1. ;;67544043145
  1. ;;9002226.02101,"1005,67544043153 ",.01)
  1. ;;67544043153
  1. ;;9002226.02101,"1005,67544043153 ",.02)
  1. ;;67544043153
  1. ;;9002226.02101,"1005,67544043160 ",.01)
  1. ;;67544043160
  1. ;;9002226.02101,"1005,67544043160 ",.02)
  1. ;;67544043160
  1. ;;9002226.02101,"1005,67544043170 ",.01)
  1. ;;67544043170
  1. ;;9002226.02101,"1005,67544043170 ",.02)
  1. ;;67544043170
  1. ;;9002226.02101,"1005,67544043173 ",.01)
  1. ;;67544043173
  1. ;;9002226.02101,"1005,67544043173 ",.02)
  1. ;;67544043173
  1. ;;9002226.02101,"1005,67544043180 ",.01)
  1. ;;67544043180
  1. ;;9002226.02101,"1005,67544043180 ",.02)
  1. ;;67544043180
  1. ;;9002226.02101,"1005,67544043192 ",.01)
  1. ;;67544043192
  1. ;;9002226.02101,"1005,67544043192 ",.02)
  1. ;;67544043192
  1. ;;9002226.02101,"1005,67544043194 ",.01)
  1. ;;67544043194
  1. ;;9002226.02101,"1005,67544043194 ",.02)
  1. ;;67544043194
  1. ;;9002226.02101,"1005,67544045415 ",.01)
  1. ;;67544045415
  1. ;;9002226.02101,"1005,67544045415 ",.02)
  1. ;;67544045415
  1. ;;9002226.02101,"1005,67544045430 ",.01)
  1. ;;67544045430
  1. ;;9002226.02101,"1005,67544045430 ",.02)
  1. ;;67544045430
  1. ;;9002226.02101,"1005,67544045440 ",.01)
  1. ;;67544045440
  1. ;;9002226.02101,"1005,67544045440 ",.02)
  1. ;;67544045440
  1. ;;9002226.02101,"1005,67544045445 ",.01)
  1. ;;67544045445
  1. ;;9002226.02101,"1005,67544045445 ",.02)
  1. ;;67544045445
  1. ;;9002226.02101,"1005,67544045460 ",.01)
  1. ;;67544045460
  1. ;;9002226.02101,"1005,67544045460 ",.02)
  1. ;;67544045460
  1. ;;9002226.02101,"1005,67544048915 ",.01)
  1. ;;67544048915
  1. ;;9002226.02101,"1005,67544048915 ",.02)
  1. ;;67544048915
  1. ;;9002226.02101,"1005,67544048930 ",.01)
  1. ;;67544048930
  1. ;;9002226.02101,"1005,67544048930 ",.02)
  1. ;;67544048930
  1. ;;9002226.02101,"1005,67544048960 ",.01)
  1. ;;67544048960
  1. ;;9002226.02101,"1005,67544048960 ",.02)
  1. ;;67544048960
  1. ;;9002226.02101,"1005,67544051531 ",.01)
  1. ;;67544051531
  1. ;;9002226.02101,"1005,67544051531 ",.02)
  1. ;;67544051531
  1. ;;9002226.02101,"1005,67544055930 ",.01)
  1. ;;67544055930
  1. ;;9002226.02101,"1005,67544055930 ",.02)
  1. ;;67544055930
  1. ;;9002226.02101,"1005,67544055932 ",.01)
  1. ;;67544055932
  1. ;;9002226.02101,"1005,67544055932 ",.02)
  1. ;;67544055932
  1. ;;9002226.02101,"1005,67544062131 ",.01)
  1. ;;67544062131
  1. ;;9002226.02101,"1005,67544062131 ",.02)
  1. ;;67544062131
  1. ;;9002226.02101,"1005,67544062145 ",.01)
  1. ;;67544062145
  1. ;;9002226.02101,"1005,67544062145 ",.02)
  1. ;;67544062145
  1. ;;9002226.02101,"1005,67544062160 ",.01)
  1. ;;67544062160
  1. ;;9002226.02101,"1005,67544062160 ",.02)
  1. ;;67544062160
  1. ;;9002226.02101,"1005,67544066731 ",.01)
  1. ;;67544066731
  1. ;;9002226.02101,"1005,67544066731 ",.02)
  1. ;;67544066731
  1. ;;9002226.02101,"1005,67544066760 ",.01)
  1. ;;67544066760
  1. ;;9002226.02101,"1005,67544066760 ",.02)
  1. ;;67544066760
  1. ;;9002226.02101,"1005,67544067832 ",.01)
  1. ;;67544067832
  1. ;;9002226.02101,"1005,67544067832 ",.02)
  1. ;;67544067832
  1. ;;9002226.02101,"1005,67544067845 ",.01)
  1. ;;67544067845
  1. ;;9002226.02101,"1005,67544067845 ",.02)
  1. ;;67544067845
  1. ;;9002226.02101,"1005,67544067860 ",.01)
  1. ;;67544067860
  1. ;;9002226.02101,"1005,67544067860 ",.02)
  1. ;;67544067860
  1. ;;9002226.02101,"1005,67544068731 ",.01)
  1. ;;67544068731
  1. ;;9002226.02101,"1005,67544068731 ",.02)
  1. ;;67544068731
  1. ;;9002226.02101,"1005,67544068732 ",.01)
  1. ;;67544068732
  1. ;;9002226.02101,"1005,67544068732 ",.02)
  1. ;;67544068732
  1. ;;9002226.02101,"1005,67544070531 ",.01)
  1. ;;67544070531
  1. ;;9002226.02101,"1005,67544070531 ",.02)
  1. ;;67544070531
  1. ;;9002226.02101,"1005,67544070631 ",.01)
  1. ;;67544070631
  1. ;;9002226.02101,"1005,67544070631 ",.02)
  1. ;;67544070631
  1. ;;9002226.02101,"1005,67544071132 ",.01)
  1. ;;67544071132
  1. ;;9002226.02101,"1005,67544071132 ",.02)
  1. ;;67544071132
  1. ;;9002226.02101,"1005,67544071731 ",.01)
  1. ;;67544071731
  1. ;;9002226.02101,"1005,67544071731 ",.02)
  1. ;;67544071731
  1. ;;9002226.02101,"1005,67544072431 ",.01)
  1. ;;67544072431
  1. ;;9002226.02101,"1005,67544072431 ",.02)
  1. ;;67544072431
  1. ;;9002226.02101,"1005,67544077932 ",.01)
  1. ;;67544077932
  1. ;;9002226.02101,"1005,67544077932 ",.02)
  1. ;;67544077932
  1. ;;9002226.02101,"1005,67544081832 ",.01)
  1. ;;67544081832
  1. ;;9002226.02101,"1005,67544081832 ",.02)
  1. ;;67544081832
  1. ;;9002226.02101,"1005,67544086131 ",.01)
  1. ;;67544086131
  1. ;;9002226.02101,"1005,67544086131 ",.02)
  1. ;;67544086131
  1. ;;9002226.02101,"1005,67544086132 ",.01)
  1. ;;67544086132
  1. ;;9002226.02101,"1005,67544086132 ",.02)
  1. ;;67544086132
  1. ;;9002226.02101,"1005,67544086832 ",.01)
  1. ;;67544086832
  1. ;;9002226.02101,"1005,67544086832 ",.02)
  1. ;;67544086832
  1. ;;9002226.02101,"1005,67544093330 ",.01)
  1. ;;67544093330
  1. ;;9002226.02101,"1005,67544093330 ",.02)
  1. ;;67544093330
  1. ;;9002226.02101,"1005,67544096032 ",.01)
  1. ;;67544096032
  1. ;;9002226.02101,"1005,67544096032 ",.02)
  1. ;;67544096032
  1. ;;9002226.02101,"1005,67544099730 ",.01)
  1. ;;67544099730
  1. ;;9002226.02101,"1005,67544099730 ",.02)
  1. ;;67544099730
  1. ;;9002226.02101,"1005,67544099760 ",.01)
  1. ;;67544099760
  1. ;;9002226.02101,"1005,67544099760 ",.02)
  1. ;;67544099760
  1. ;;9002226.02101,"1005,67544099960 ",.01)
  1. ;;67544099960
  1. ;;9002226.02101,"1005,67544099960 ",.02)
  1. ;;67544099960
  1. ;;9002226.02101,"1005,67544099980 ",.01)
  1. ;;67544099980
  1. ;;9002226.02101,"1005,67544099980 ",.02)
  1. ;;67544099980
  1. ;;9002226.02101,"1005,67651001801 ",.01)
  1. ;;67651001801
  1. ;;9002226.02101,"1005,67651001801 ",.02)
  1. ;;67651001801
  1. ;;9002226.02101,"1005,67651001805 ",.01)
  1. ;;67651001805
  1. ;;9002226.02101,"1005,67651001805 ",.02)
  1. ;;67651001805
  1. ;;9002226.02101,"1005,67651001901 ",.01)
  1. ;;67651001901
  1. ;;9002226.02101,"1005,67651001901 ",.02)
  1. ;;67651001901
  1. ;;9002226.02101,"1005,67651001905 ",.01)
  1. ;;67651001905
  1. ;;9002226.02101,"1005,67651001905 ",.02)
  1. ;;67651001905
  1. ;;9002226.02101,"1005,67651002001 ",.01)
  1. ;;67651002001
  1. ;;9002226.02101,"1005,67651002001 ",.02)
  1. ;;67651002001
  1. ;;9002226.02101,"1005,67651002005 ",.01)
  1. ;;67651002005
  1. ;;9002226.02101,"1005,67651002005 ",.02)
  1. ;;67651002005
  1. ;;9002226.02101,"1005,67651002101 ",.01)
  1. ;;67651002101
  1. ;;9002226.02101,"1005,67651002101 ",.02)
  1. ;;67651002101
  1. ;;9002226.02101,"1005,67651002105 ",.01)
  1. ;;67651002105
  1. ;;9002226.02101,"1005,67651002105 ",.02)
  1. ;;67651002105
  1. ;;9002226.02101,"1005,67787020005 ",.01)
  1. ;;67787020005
  1. ;;9002226.02101,"1005,67787020005 ",.02)
  1. ;;67787020005
  1. ;;9002226.02101,"1005,67787020010 ",.01)
  1. ;;67787020010
  1. ;;9002226.02101,"1005,67787020010 ",.02)
  1. ;;67787020010
  1. ;;9002226.02101,"1005,67787020090 ",.01)
  1. ;;67787020090
  1. ;;9002226.02101,"1005,67787020090 ",.02)
  1. ;;67787020090
  1. ;;9002226.02101,"1005,67787020105 ",.01)
  1. ;;67787020105
  1. ;;9002226.02101,"1005,67787020105 ",.02)
  1. ;;67787020105
  1. ;;9002226.02101,"1005,67787020110 ",.01)
  1. ;;67787020110
  1. ;;9002226.02101,"1005,67787020110 ",.02)
  1. ;;67787020110
  1. ;;9002226.02101,"1005,67787020190 ",.01)
  1. ;;67787020190
  1. ;;9002226.02101,"1005,67787020190 ",.02)
  1. ;;67787020190
  1. ;;9002226.02101,"1005,67787020210 ",.01)
  1. ;;67787020210
  1. ;;9002226.02101,"1005,67787020210 ",.02)
  1. ;;67787020210
  1. ;;9002226.02101,"1005,67787020290 ",.01)
  1. ;;67787020290
  1. ;;9002226.02101,"1005,67787020290 ",.02)
  1. ;;67787020290
  1. ;;9002226.02101,"1005,67787026790 ",.01)
  1. ;;67787026790
  1. ;;9002226.02101,"1005,67787026790 ",.02)
  1. ;;67787026790
  1. ;;9002226.02101,"1005,67787026890 ",.01)
  1. ;;67787026890
  1. ;;9002226.02101,"1005,67787026890 ",.02)
  1. ;;67787026890
  1. ;;9002226.02101,"1005,67787026990 ",.01)
  1. ;;67787026990
  1. ;;9002226.02101,"1005,67787026990 ",.02)
  1. ;;67787026990
  1. ;;9002226.02101,"1005,67787027090 ",.01)
  1. ;;67787027090
  1. ;;9002226.02101,"1005,67787027090 ",.02)
  1. ;;67787027090
  1. ;;9002226.02101,"1005,68071004845 ",.01)
  1. ;;68071004845
  1. ;;9002226.02101,"1005,68071004845 ",.02)
  1. ;;68071004845
  1. ;;9002226.02101,"1005,68071009530 ",.01)
  1. ;;68071009530
  1. ;;9002226.02101,"1005,68071009530 ",.02)
  1. ;;68071009530
  1. ;;9002226.02101,"1005,68071010430 ",.01)
  1. ;;68071010430
  1. ;;9002226.02101,"1005,68071010430 ",.02)
  1. ;;68071010430
  1. ;;9002226.02101,"1005,68071015330 ",.01)
  1. ;;68071015330
  1. ;;9002226.02101,"1005,68071015330 ",.02)
  1. ;;68071015330
  1. ;;9002226.02101,"1005,68071015360 ",.01)
  1. ;;68071015360
  1. ;;9002226.02101,"1005,68071015360 ",.02)
  1. ;;68071015360
  1. ;;9002226.02101,"1005,68071015390 ",.01)
  1. ;;68071015390
  1. ;;9002226.02101,"1005,68071015390 ",.02)
  1. ;;68071015390
  1. ;;9002226.02101,"1005,68071015745 ",.01)
  1. ;;68071015745
  1. ;;9002226.02101,"1005,68071015745 ",.02)
  1. ;;68071015745
  1. ;;9002226.02101,"1005,68071015790 ",.01)
  1. ;;68071015790
  1. ;;9002226.02101,"1005,68071015790 ",.02)
  1. ;;68071015790
  1. ;;9002226.02101,"1005,68071015792 ",.01)
  1. ;;68071015792
  1. ;;9002226.02101,"1005,68071015792 ",.02)
  1. ;;68071015792
  1. ;;9002226.02101,"1005,68071021692 ",.01)
  1. ;;68071021692
  1. ;;9002226.02101,"1005,68071021692 ",.02)
  1. ;;68071021692
  1. ;;9002226.02101,"1005,68071039030 ",.01)
  1. ;;68071039030
  1. ;;9002226.02101,"1005,68071039030 ",.02)
  1. ;;68071039030
  1. ;;9002226.02101,"1005,68071043612 ",.01)
  1. ;;68071043612
  1. ;;9002226.02101,"1005,68071043612 ",.02)
  1. ;;68071043612
  1. ;;9002226.02101,"1005,68071049330 ",.01)
  1. ;;68071049330
  1. ;;9002226.02101,"1005,68071049330 ",.02)
  1. ;;68071049330
  1. ;;9002226.02101,"1005,68071076928 ",.01)
  1. ;;68071076928
  1. ;;9002226.02101,"1005,68071076928 ",.02)
  1. ;;68071076928
  1. ;;9002226.02101,"1005,68071077130 ",.01)
  1. ;;68071077130
  1. ;;9002226.02101,"1005,68071077130 ",.02)
  1. ;;68071077130
  1. ;;9002226.02101,"1005,68071078530 ",.01)
  1. ;;68071078530