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

BGPM5AHR.m

Go to the documentation of this file.
  1. BGPM5AHR ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"882,67544062131 ",.02)
  1. ;;67544062131
  1. ;;9002226.02101,"882,67544062145 ",.01)
  1. ;;67544062145
  1. ;;9002226.02101,"882,67544062145 ",.02)
  1. ;;67544062145
  1. ;;9002226.02101,"882,67544062160 ",.01)
  1. ;;67544062160
  1. ;;9002226.02101,"882,67544062160 ",.02)
  1. ;;67544062160
  1. ;;9002226.02101,"882,67544066731 ",.01)
  1. ;;67544066731
  1. ;;9002226.02101,"882,67544066731 ",.02)
  1. ;;67544066731
  1. ;;9002226.02101,"882,67544066760 ",.01)
  1. ;;67544066760
  1. ;;9002226.02101,"882,67544066760 ",.02)
  1. ;;67544066760
  1. ;;9002226.02101,"882,67544067832 ",.01)
  1. ;;67544067832
  1. ;;9002226.02101,"882,67544067832 ",.02)
  1. ;;67544067832
  1. ;;9002226.02101,"882,67544067845 ",.01)
  1. ;;67544067845
  1. ;;9002226.02101,"882,67544067845 ",.02)
  1. ;;67544067845
  1. ;;9002226.02101,"882,67544067860 ",.01)
  1. ;;67544067860
  1. ;;9002226.02101,"882,67544067860 ",.02)
  1. ;;67544067860
  1. ;;9002226.02101,"882,67544068731 ",.01)
  1. ;;67544068731
  1. ;;9002226.02101,"882,67544068731 ",.02)
  1. ;;67544068731
  1. ;;9002226.02101,"882,67544068732 ",.01)
  1. ;;67544068732
  1. ;;9002226.02101,"882,67544068732 ",.02)
  1. ;;67544068732
  1. ;;9002226.02101,"882,67544070531 ",.01)
  1. ;;67544070531
  1. ;;9002226.02101,"882,67544070531 ",.02)
  1. ;;67544070531
  1. ;;9002226.02101,"882,67544070631 ",.01)
  1. ;;67544070631
  1. ;;9002226.02101,"882,67544070631 ",.02)
  1. ;;67544070631
  1. ;;9002226.02101,"882,67544071132 ",.01)
  1. ;;67544071132
  1. ;;9002226.02101,"882,67544071132 ",.02)
  1. ;;67544071132
  1. ;;9002226.02101,"882,67544071731 ",.01)
  1. ;;67544071731
  1. ;;9002226.02101,"882,67544071731 ",.02)
  1. ;;67544071731
  1. ;;9002226.02101,"882,67544072431 ",.01)
  1. ;;67544072431
  1. ;;9002226.02101,"882,67544072431 ",.02)
  1. ;;67544072431
  1. ;;9002226.02101,"882,67544077932 ",.01)
  1. ;;67544077932
  1. ;;9002226.02101,"882,67544077932 ",.02)
  1. ;;67544077932
  1. ;;9002226.02101,"882,67544081832 ",.01)
  1. ;;67544081832
  1. ;;9002226.02101,"882,67544081832 ",.02)
  1. ;;67544081832
  1. ;;9002226.02101,"882,67544086131 ",.01)
  1. ;;67544086131
  1. ;;9002226.02101,"882,67544086131 ",.02)
  1. ;;67544086131
  1. ;;9002226.02101,"882,67544086132 ",.01)
  1. ;;67544086132
  1. ;;9002226.02101,"882,67544086132 ",.02)
  1. ;;67544086132
  1. ;;9002226.02101,"882,67544086832 ",.01)
  1. ;;67544086832
  1. ;;9002226.02101,"882,67544086832 ",.02)
  1. ;;67544086832
  1. ;;9002226.02101,"882,67544093330 ",.01)
  1. ;;67544093330
  1. ;;9002226.02101,"882,67544093330 ",.02)
  1. ;;67544093330
  1. ;;9002226.02101,"882,67544096032 ",.01)
  1. ;;67544096032
  1. ;;9002226.02101,"882,67544096032 ",.02)
  1. ;;67544096032
  1. ;;9002226.02101,"882,67544099730 ",.01)
  1. ;;67544099730
  1. ;;9002226.02101,"882,67544099730 ",.02)
  1. ;;67544099730
  1. ;;9002226.02101,"882,67544099760 ",.01)
  1. ;;67544099760
  1. ;;9002226.02101,"882,67544099760 ",.02)
  1. ;;67544099760
  1. ;;9002226.02101,"882,67544099960 ",.01)
  1. ;;67544099960
  1. ;;9002226.02101,"882,67544099960 ",.02)
  1. ;;67544099960
  1. ;;9002226.02101,"882,67544099980 ",.01)
  1. ;;67544099980
  1. ;;9002226.02101,"882,67544099980 ",.02)
  1. ;;67544099980
  1. ;;9002226.02101,"882,67651001801 ",.01)
  1. ;;67651001801
  1. ;;9002226.02101,"882,67651001801 ",.02)
  1. ;;67651001801
  1. ;;9002226.02101,"882,67651001805 ",.01)
  1. ;;67651001805
  1. ;;9002226.02101,"882,67651001805 ",.02)
  1. ;;67651001805
  1. ;;9002226.02101,"882,67651001901 ",.01)
  1. ;;67651001901
  1. ;;9002226.02101,"882,67651001901 ",.02)
  1. ;;67651001901
  1. ;;9002226.02101,"882,67651001905 ",.01)
  1. ;;67651001905
  1. ;;9002226.02101,"882,67651001905 ",.02)
  1. ;;67651001905
  1. ;;9002226.02101,"882,67651002001 ",.01)
  1. ;;67651002001
  1. ;;9002226.02101,"882,67651002001 ",.02)
  1. ;;67651002001
  1. ;;9002226.02101,"882,67651002005 ",.01)
  1. ;;67651002005
  1. ;;9002226.02101,"882,67651002005 ",.02)
  1. ;;67651002005
  1. ;;9002226.02101,"882,67651002101 ",.01)
  1. ;;67651002101
  1. ;;9002226.02101,"882,67651002101 ",.02)
  1. ;;67651002101
  1. ;;9002226.02101,"882,67651002105 ",.01)
  1. ;;67651002105
  1. ;;9002226.02101,"882,67651002105 ",.02)
  1. ;;67651002105
  1. ;;9002226.02101,"882,67787020005 ",.01)
  1. ;;67787020005
  1. ;;9002226.02101,"882,67787020005 ",.02)
  1. ;;67787020005
  1. ;;9002226.02101,"882,67787020010 ",.01)
  1. ;;67787020010
  1. ;;9002226.02101,"882,67787020010 ",.02)
  1. ;;67787020010
  1. ;;9002226.02101,"882,67787020090 ",.01)
  1. ;;67787020090
  1. ;;9002226.02101,"882,67787020090 ",.02)
  1. ;;67787020090
  1. ;;9002226.02101,"882,67787020105 ",.01)
  1. ;;67787020105
  1. ;;9002226.02101,"882,67787020105 ",.02)
  1. ;;67787020105
  1. ;;9002226.02101,"882,67787020110 ",.01)
  1. ;;67787020110
  1. ;;9002226.02101,"882,67787020110 ",.02)
  1. ;;67787020110
  1. ;;9002226.02101,"882,67787020190 ",.01)
  1. ;;67787020190
  1. ;;9002226.02101,"882,67787020190 ",.02)
  1. ;;67787020190
  1. ;;9002226.02101,"882,67787020210 ",.01)
  1. ;;67787020210
  1. ;;9002226.02101,"882,67787020210 ",.02)
  1. ;;67787020210
  1. ;;9002226.02101,"882,67787020290 ",.01)
  1. ;;67787020290
  1. ;;9002226.02101,"882,67787020290 ",.02)
  1. ;;67787020290
  1. ;;9002226.02101,"882,67787022901 ",.01)
  1. ;;67787022901
  1. ;;9002226.02101,"882,67787022901 ",.02)
  1. ;;67787022901
  1. ;;9002226.02101,"882,67787023001 ",.01)
  1. ;;67787023001
  1. ;;9002226.02101,"882,67787023001 ",.02)
  1. ;;67787023001
  1. ;;9002226.02101,"882,67787026790 ",.01)
  1. ;;67787026790
  1. ;;9002226.02101,"882,67787026790 ",.02)
  1. ;;67787026790
  1. ;;9002226.02101,"882,67787026890 ",.01)
  1. ;;67787026890
  1. ;;9002226.02101,"882,67787026890 ",.02)
  1. ;;67787026890
  1. ;;9002226.02101,"882,67787026990 ",.01)
  1. ;;67787026990
  1. ;;9002226.02101,"882,67787026990 ",.02)
  1. ;;67787026990
  1. ;;9002226.02101,"882,67787027090 ",.01)
  1. ;;67787027090
  1. ;;9002226.02101,"882,67787027090 ",.02)
  1. ;;67787027090
  1. ;;9002226.02101,"882,67787027101 ",.01)
  1. ;;67787027101
  1. ;;9002226.02101,"882,67787027101 ",.02)
  1. ;;67787027101
  1. ;;9002226.02101,"882,67787027110 ",.01)
  1. ;;67787027110
  1. ;;9002226.02101,"882,67787027110 ",.02)
  1. ;;67787027110
  1. ;;9002226.02101,"882,67787027201 ",.01)
  1. ;;67787027201
  1. ;;9002226.02101,"882,67787027201 ",.02)
  1. ;;67787027201
  1. ;;9002226.02101,"882,67787027210 ",.01)
  1. ;;67787027210
  1. ;;9002226.02101,"882,67787027210 ",.02)
  1. ;;67787027210
  1. ;;9002226.02101,"882,67787027301 ",.01)
  1. ;;67787027301
  1. ;;9002226.02101,"882,67787027301 ",.02)
  1. ;;67787027301
  1. ;;9002226.02101,"882,67787027305 ",.01)
  1. ;;67787027305
  1. ;;9002226.02101,"882,67787027305 ",.02)
  1. ;;67787027305
  1. ;;9002226.02101,"882,67787027310 ",.01)
  1. ;;67787027310
  1. ;;9002226.02101,"882,67787027310 ",.02)
  1. ;;67787027310
  1. ;;9002226.02101,"882,67787027401 ",.01)
  1. ;;67787027401
  1. ;;9002226.02101,"882,67787027401 ",.02)
  1. ;;67787027401
  1. ;;9002226.02101,"882,67787027405 ",.01)
  1. ;;67787027405
  1. ;;9002226.02101,"882,67787027405 ",.02)
  1. ;;67787027405
  1. ;;9002226.02101,"882,67787027410 ",.01)
  1. ;;67787027410
  1. ;;9002226.02101,"882,67787027410 ",.02)
  1. ;;67787027410
  1. ;;9002226.02101,"882,68071004845 ",.01)
  1. ;;68071004845
  1. ;;9002226.02101,"882,68071004845 ",.02)
  1. ;;68071004845
  1. ;;9002226.02101,"882,68071009530 ",.01)
  1. ;;68071009530
  1. ;;9002226.02101,"882,68071009530 ",.02)
  1. ;;68071009530
  1. ;;9002226.02101,"882,68071010430 ",.01)
  1. ;;68071010430
  1. ;;9002226.02101,"882,68071010430 ",.02)
  1. ;;68071010430
  1. ;;9002226.02101,"882,68071015330 ",.01)
  1. ;;68071015330
  1. ;;9002226.02101,"882,68071015330 ",.02)
  1. ;;68071015330
  1. ;;9002226.02101,"882,68071015360 ",.01)
  1. ;;68071015360
  1. ;;9002226.02101,"882,68071015360 ",.02)
  1. ;;68071015360
  1. ;;9002226.02101,"882,68071015390 ",.01)
  1. ;;68071015390
  1. ;;9002226.02101,"882,68071015390 ",.02)
  1. ;;68071015390
  1. ;;9002226.02101,"882,68071015745 ",.01)
  1. ;;68071015745
  1. ;;9002226.02101,"882,68071015745 ",.02)
  1. ;;68071015745
  1. ;;9002226.02101,"882,68071015790 ",.01)
  1. ;;68071015790
  1. ;;9002226.02101,"882,68071015790 ",.02)
  1. ;;68071015790
  1. ;;9002226.02101,"882,68071015792 ",.01)
  1. ;;68071015792
  1. ;;9002226.02101,"882,68071015792 ",.02)
  1. ;;68071015792
  1. ;;9002226.02101,"882,68071021692 ",.01)
  1. ;;68071021692
  1. ;;9002226.02101,"882,68071021692 ",.02)
  1. ;;68071021692
  1. ;;9002226.02101,"882,68071039030 ",.01)
  1. ;;68071039030
  1. ;;9002226.02101,"882,68071039030 ",.02)
  1. ;;68071039030
  1. ;;9002226.02101,"882,68071043612 ",.01)
  1. ;;68071043612
  1. ;;9002226.02101,"882,68071043612 ",.02)
  1. ;;68071043612
  1. ;;9002226.02101,"882,68071049330 ",.01)
  1. ;;68071049330
  1. ;;9002226.02101,"882,68071049330 ",.02)
  1. ;;68071049330
  1. ;;9002226.02101,"882,68071076928 ",.01)
  1. ;;68071076928
  1. ;;9002226.02101,"882,68071076928 ",.02)
  1. ;;68071076928
  1. ;;9002226.02101,"882,68071077130 ",.01)
  1. ;;68071077130
  1. ;;9002226.02101,"882,68071077130 ",.02)
  1. ;;68071077130
  1. ;;9002226.02101,"882,68084005801 ",.01)
  1. ;;68084005801
  1. ;;9002226.02101,"882,68084005801 ",.02)
  1. ;;68084005801
  1. ;;9002226.02101,"882,68084006001 ",.01)
  1. ;;68084006001
  1. ;;9002226.02101,"882,68084006001 ",.02)
  1. ;;68084006001
  1. ;;9002226.02101,"882,68084006011 ",.01)
  1. ;;68084006011
  1. ;;9002226.02101,"882,68084006011 ",.02)
  1. ;;68084006011
  1. ;;9002226.02101,"882,68084006101 ",.01)
  1. ;;68084006101
  1. ;;9002226.02101,"882,68084006101 ",.02)
  1. ;;68084006101
  1. ;;9002226.02101,"882,68084006111 ",.01)
  1. ;;68084006111
  1. ;;9002226.02101,"882,68084006111 ",.02)
  1. ;;68084006111
  1. ;;9002226.02101,"882,68084006201 ",.01)
  1. ;;68084006201
  1. ;;9002226.02101,"882,68084006201 ",.02)
  1. ;;68084006201
  1. ;;9002226.02101,"882,68084006211 ",.01)
  1. ;;68084006211
  1. ;;9002226.02101,"882,68084006211 ",.02)
  1. ;;68084006211
  1. ;;9002226.02101,"882,68084006401 ",.01)
  1. ;;68084006401
  1. ;;9002226.02101,"882,68084006401 ",.02)
  1. ;;68084006401
  1. ;;9002226.02101,"882,68084006411 ",.01)
  1. ;;68084006411
  1. ;;9002226.02101,"882,68084006411 ",.02)
  1. ;;68084006411
  1. ;;9002226.02101,"882,68084009800 ",.01)
  1. ;;68084009800
  1. ;;9002226.02101,"882,68084009800 ",.02)
  1. ;;68084009800
  1. ;;9002226.02101,"882,68084009806 ",.01)
  1. ;;68084009806
  1. ;;9002226.02101,"882,68084009806 ",.02)
  1. ;;68084009806
  1. ;;9002226.02101,"882,68084009900 ",.01)
  1. ;;68084009900
  1. ;;9002226.02101,"882,68084009900 ",.02)
  1. ;;68084009900
  1. ;;9002226.02101,"882,68084009906 ",.01)
  1. ;;68084009906
  1. ;;9002226.02101,"882,68084009906 ",.02)
  1. ;;68084009906
  1. ;;9002226.02101,"882,68084026601 ",.01)
  1. ;;68084026601
  1. ;;9002226.02101,"882,68084026601 ",.02)
  1. ;;68084026601
  1. ;;9002226.02101,"882,68084026611 ",.01)
  1. ;;68084026611
  1. ;;9002226.02101,"882,68084026611 ",.02)
  1. ;;68084026611
  1. ;;9002226.02101,"882,68084026701 ",.01)
  1. ;;68084026701
  1. ;;9002226.02101,"882,68084026701 ",.02)
  1. ;;68084026701
  1. ;;9002226.02101,"882,68084026711 ",.01)
  1. ;;68084026711
  1. ;;9002226.02101,"882,68084026711 ",.02)
  1. ;;68084026711
  1. ;;9002226.02101,"882,68084026801 ",.01)
  1. ;;68084026801
  1. ;;9002226.02101,"882,68084026801 ",.02)
  1. ;;68084026801
  1. ;;9002226.02101,"882,68084026811 ",.01)
  1. ;;68084026811
  1. ;;9002226.02101,"882,68084026811 ",.02)
  1. ;;68084026811
  1. ;;9002226.02101,"882,68084029411 ",.01)
  1. ;;68084029411
  1. ;;9002226.02101,"882,68084029411 ",.02)
  1. ;;68084029411
  1. ;;9002226.02101,"882,68084029421 ",.01)
  1. ;;68084029421
  1. ;;9002226.02101,"882,68084029421 ",.02)
  1. ;;68084029421
  1. ;;9002226.02101,"882,68084039001 ",.01)
  1. ;;68084039001
  1. ;;9002226.02101,"882,68084039001 ",.02)
  1. ;;68084039001
  1. ;;9002226.02101,"882,68084039011 ",.01)
  1. ;;68084039011
  1. ;;9002226.02101,"882,68084039011 ",.02)
  1. ;;68084039011
  1. ;;9002226.02101,"882,68084039101 ",.01)
  1. ;;68084039101
  1. ;;9002226.02101,"882,68084039101 ",.02)
  1. ;;68084039101
  1. ;;9002226.02101,"882,68084039111 ",.01)
  1. ;;68084039111
  1. ;;9002226.02101,"882,68084039111 ",.02)
  1. ;;68084039111
  1. ;;9002226.02101,"882,68084039201 ",.01)
  1. ;;68084039201
  1. ;;9002226.02101,"882,68084039201 ",.02)
  1. ;;68084039201
  1. ;;9002226.02101,"882,68084039211 ",.01)
  1. ;;68084039211
  1. ;;9002226.02101,"882,68084039211 ",.02)
  1. ;;68084039211
  1. ;;9002226.02101,"882,68115012715 ",.01)
  1. ;;68115012715
  1. ;;9002226.02101,"882,68115012715 ",.02)
  1. ;;68115012715
  1. ;;9002226.02101,"882,68115012860 ",.01)
  1. ;;68115012860
  1. ;;9002226.02101,"882,68115012860 ",.02)
  1. ;;68115012860
  1. ;;9002226.02101,"882,68115012890 ",.01)
  1. ;;68115012890