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

BGPM5AJS.m

Go to the documentation of this file.
  1. BGPM5AJS ;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,"889,55154960800 ",.01)
  1. ;;55154960800
  1. ;;9002226.02101,"889,55154960800 ",.02)
  1. ;;55154960800
  1. ;;9002226.02101,"889,55154960900 ",.01)
  1. ;;55154960900
  1. ;;9002226.02101,"889,55154960900 ",.02)
  1. ;;55154960900
  1. ;;9002226.02101,"889,55154960908 ",.01)
  1. ;;55154960908
  1. ;;9002226.02101,"889,55154960908 ",.02)
  1. ;;55154960908
  1. ;;9002226.02101,"889,55154961208 ",.01)
  1. ;;55154961208
  1. ;;9002226.02101,"889,55154961208 ",.02)
  1. ;;55154961208
  1. ;;9002226.02101,"889,55160010601 ",.01)
  1. ;;55160010601
  1. ;;9002226.02101,"889,55160010601 ",.02)
  1. ;;55160010601
  1. ;;9002226.02101,"889,55160010610 ",.01)
  1. ;;55160010610
  1. ;;9002226.02101,"889,55160010610 ",.02)
  1. ;;55160010610
  1. ;;9002226.02101,"889,55160010701 ",.01)
  1. ;;55160010701
  1. ;;9002226.02101,"889,55160010701 ",.02)
  1. ;;55160010701
  1. ;;9002226.02101,"889,55160010710 ",.01)
  1. ;;55160010710
  1. ;;9002226.02101,"889,55160010710 ",.02)
  1. ;;55160010710
  1. ;;9002226.02101,"889,55160010801 ",.01)
  1. ;;55160010801
  1. ;;9002226.02101,"889,55160010801 ",.02)
  1. ;;55160010801
  1. ;;9002226.02101,"889,55160010810 ",.01)
  1. ;;55160010810
  1. ;;9002226.02101,"889,55160010810 ",.02)
  1. ;;55160010810
  1. ;;9002226.02101,"889,55160010901 ",.01)
  1. ;;55160010901
  1. ;;9002226.02101,"889,55160010901 ",.02)
  1. ;;55160010901
  1. ;;9002226.02101,"889,55160010905 ",.01)
  1. ;;55160010905
  1. ;;9002226.02101,"889,55160010905 ",.02)
  1. ;;55160010905
  1. ;;9002226.02101,"889,55160010910 ",.01)
  1. ;;55160010910
  1. ;;9002226.02101,"889,55160010910 ",.02)
  1. ;;55160010910
  1. ;;9002226.02101,"889,55160011801 ",.01)
  1. ;;55160011801
  1. ;;9002226.02101,"889,55160011801 ",.02)
  1. ;;55160011801
  1. ;;9002226.02101,"889,55160011901 ",.01)
  1. ;;55160011901
  1. ;;9002226.02101,"889,55160011901 ",.02)
  1. ;;55160011901
  1. ;;9002226.02101,"889,55160011910 ",.01)
  1. ;;55160011910
  1. ;;9002226.02101,"889,55160011910 ",.02)
  1. ;;55160011910
  1. ;;9002226.02101,"889,55160012001 ",.01)
  1. ;;55160012001
  1. ;;9002226.02101,"889,55160012001 ",.02)
  1. ;;55160012001
  1. ;;9002226.02101,"889,55160012010 ",.01)
  1. ;;55160012010
  1. ;;9002226.02101,"889,55160012010 ",.02)
  1. ;;55160012010
  1. ;;9002226.02101,"889,55160013201 ",.01)
  1. ;;55160013201
  1. ;;9002226.02101,"889,55160013201 ",.02)
  1. ;;55160013201
  1. ;;9002226.02101,"889,55160013301 ",.01)
  1. ;;55160013301
  1. ;;9002226.02101,"889,55160013301 ",.02)
  1. ;;55160013301
  1. ;;9002226.02101,"889,55289009330 ",.01)
  1. ;;55289009330
  1. ;;9002226.02101,"889,55289009330 ",.02)
  1. ;;55289009330
  1. ;;9002226.02101,"889,55289009360 ",.01)
  1. ;;55289009360
  1. ;;9002226.02101,"889,55289009360 ",.02)
  1. ;;55289009360
  1. ;;9002226.02101,"889,55289009390 ",.01)
  1. ;;55289009390
  1. ;;9002226.02101,"889,55289009390 ",.02)
  1. ;;55289009390
  1. ;;9002226.02101,"889,55289009393 ",.01)
  1. ;;55289009393
  1. ;;9002226.02101,"889,55289009393 ",.02)
  1. ;;55289009393
  1. ;;9002226.02101,"889,55289009397 ",.01)
  1. ;;55289009397
  1. ;;9002226.02101,"889,55289009397 ",.02)
  1. ;;55289009397
  1. ;;9002226.02101,"889,55289013197 ",.01)
  1. ;;55289013197
  1. ;;9002226.02101,"889,55289013197 ",.02)
  1. ;;55289013197
  1. ;;9002226.02101,"889,55289022701 ",.01)
  1. ;;55289022701
  1. ;;9002226.02101,"889,55289022701 ",.02)
  1. ;;55289022701
  1. ;;9002226.02101,"889,55289022730 ",.01)
  1. ;;55289022730
  1. ;;9002226.02101,"889,55289022730 ",.02)
  1. ;;55289022730
  1. ;;9002226.02101,"889,55289022790 ",.01)
  1. ;;55289022790
  1. ;;9002226.02101,"889,55289022790 ",.02)
  1. ;;55289022790
  1. ;;9002226.02101,"889,55289022797 ",.01)
  1. ;;55289022797
  1. ;;9002226.02101,"889,55289022797 ",.02)
  1. ;;55289022797
  1. ;;9002226.02101,"889,55289022801 ",.01)
  1. ;;55289022801
  1. ;;9002226.02101,"889,55289022801 ",.02)
  1. ;;55289022801
  1. ;;9002226.02101,"889,55289022803 ",.01)
  1. ;;55289022803
  1. ;;9002226.02101,"889,55289022803 ",.02)
  1. ;;55289022803
  1. ;;9002226.02101,"889,55289022806 ",.01)
  1. ;;55289022806
  1. ;;9002226.02101,"889,55289022806 ",.02)
  1. ;;55289022806
  1. ;;9002226.02101,"889,55289022814 ",.01)
  1. ;;55289022814
  1. ;;9002226.02101,"889,55289022814 ",.02)
  1. ;;55289022814
  1. ;;9002226.02101,"889,55289022830 ",.01)
  1. ;;55289022830
  1. ;;9002226.02101,"889,55289022830 ",.02)
  1. ;;55289022830
  1. ;;9002226.02101,"889,55289022860 ",.01)
  1. ;;55289022860
  1. ;;9002226.02101,"889,55289022860 ",.02)
  1. ;;55289022860
  1. ;;9002226.02101,"889,55289022890 ",.01)
  1. ;;55289022890
  1. ;;9002226.02101,"889,55289022890 ",.02)
  1. ;;55289022890
  1. ;;9002226.02101,"889,55289022897 ",.01)
  1. ;;55289022897
  1. ;;9002226.02101,"889,55289022897 ",.02)
  1. ;;55289022897
  1. ;;9002226.02101,"889,55289023301 ",.01)
  1. ;;55289023301
  1. ;;9002226.02101,"889,55289023301 ",.02)
  1. ;;55289023301
  1. ;;9002226.02101,"889,55289023310 ",.01)
  1. ;;55289023310
  1. ;;9002226.02101,"889,55289023310 ",.02)
  1. ;;55289023310
  1. ;;9002226.02101,"889,55289023312 ",.01)
  1. ;;55289023312
  1. ;;9002226.02101,"889,55289023312 ",.02)
  1. ;;55289023312
  1. ;;9002226.02101,"889,55289023360 ",.01)
  1. ;;55289023360
  1. ;;9002226.02101,"889,55289023360 ",.02)
  1. ;;55289023360
  1. ;;9002226.02101,"889,55289023390 ",.01)
  1. ;;55289023390
  1. ;;9002226.02101,"889,55289023390 ",.02)
  1. ;;55289023390
  1. ;;9002226.02101,"889,55289023397 ",.01)
  1. ;;55289023397
  1. ;;9002226.02101,"889,55289023397 ",.02)
  1. ;;55289023397
  1. ;;9002226.02101,"889,55289023401 ",.01)
  1. ;;55289023401
  1. ;;9002226.02101,"889,55289023401 ",.02)
  1. ;;55289023401
  1. ;;9002226.02101,"889,55289023430 ",.01)
  1. ;;55289023430
  1. ;;9002226.02101,"889,55289023430 ",.02)
  1. ;;55289023430
  1. ;;9002226.02101,"889,55289023460 ",.01)
  1. ;;55289023460
  1. ;;9002226.02101,"889,55289023460 ",.02)
  1. ;;55289023460
  1. ;;9002226.02101,"889,55289023490 ",.01)
  1. ;;55289023490
  1. ;;9002226.02101,"889,55289023490 ",.02)
  1. ;;55289023490
  1. ;;9002226.02101,"889,55289025430 ",.01)
  1. ;;55289025430
  1. ;;9002226.02101,"889,55289025430 ",.02)
  1. ;;55289025430
  1. ;;9002226.02101,"889,55289038230 ",.01)
  1. ;;55289038230
  1. ;;9002226.02101,"889,55289038230 ",.02)
  1. ;;55289038230
  1. ;;9002226.02101,"889,55289038293 ",.01)
  1. ;;55289038293
  1. ;;9002226.02101,"889,55289038293 ",.02)
  1. ;;55289038293
  1. ;;9002226.02101,"889,55289041301 ",.01)
  1. ;;55289041301
  1. ;;9002226.02101,"889,55289041301 ",.02)
  1. ;;55289041301
  1. ;;9002226.02101,"889,55289041314 ",.01)
  1. ;;55289041314
  1. ;;9002226.02101,"889,55289041314 ",.02)
  1. ;;55289041314
  1. ;;9002226.02101,"889,55289041330 ",.01)
  1. ;;55289041330
  1. ;;9002226.02101,"889,55289041330 ",.02)
  1. ;;55289041330
  1. ;;9002226.02101,"889,55289041360 ",.01)
  1. ;;55289041360
  1. ;;9002226.02101,"889,55289041360 ",.02)
  1. ;;55289041360
  1. ;;9002226.02101,"889,55289041390 ",.01)
  1. ;;55289041390
  1. ;;9002226.02101,"889,55289041390 ",.02)
  1. ;;55289041390
  1. ;;9002226.02101,"889,55289041393 ",.01)
  1. ;;55289041393
  1. ;;9002226.02101,"889,55289041393 ",.02)
  1. ;;55289041393
  1. ;;9002226.02101,"889,55289041394 ",.01)
  1. ;;55289041394
  1. ;;9002226.02101,"889,55289041394 ",.02)
  1. ;;55289041394
  1. ;;9002226.02101,"889,55289041397 ",.01)
  1. ;;55289041397
  1. ;;9002226.02101,"889,55289041397 ",.02)
  1. ;;55289041397
  1. ;;9002226.02101,"889,55289058730 ",.01)
  1. ;;55289058730
  1. ;;9002226.02101,"889,55289058730 ",.02)
  1. ;;55289058730
  1. ;;9002226.02101,"889,55289062730 ",.01)
  1. ;;55289062730
  1. ;;9002226.02101,"889,55289062730 ",.02)
  1. ;;55289062730
  1. ;;9002226.02101,"889,55289063030 ",.01)
  1. ;;55289063030
  1. ;;9002226.02101,"889,55289063030 ",.02)
  1. ;;55289063030
  1. ;;9002226.02101,"889,55289063090 ",.01)
  1. ;;55289063090
  1. ;;9002226.02101,"889,55289063090 ",.02)
  1. ;;55289063090
  1. ;;9002226.02101,"889,55289065330 ",.01)
  1. ;;55289065330
  1. ;;9002226.02101,"889,55289065330 ",.02)
  1. ;;55289065330
  1. ;;9002226.02101,"889,55289065390 ",.01)
  1. ;;55289065390
  1. ;;9002226.02101,"889,55289065390 ",.02)
  1. ;;55289065390
  1. ;;9002226.02101,"889,55289085530 ",.01)
  1. ;;55289085530
  1. ;;9002226.02101,"889,55289085530 ",.02)
  1. ;;55289085530
  1. ;;9002226.02101,"889,55289090230 ",.01)
  1. ;;55289090230
  1. ;;9002226.02101,"889,55289090230 ",.02)
  1. ;;55289090230
  1. ;;9002226.02101,"889,55289098630 ",.01)
  1. ;;55289098630
  1. ;;9002226.02101,"889,55289098630 ",.02)
  1. ;;55289098630
  1. ;;9002226.02101,"889,55289098830 ",.01)
  1. ;;55289098830
  1. ;;9002226.02101,"889,55289098830 ",.02)
  1. ;;55289098830
  1. ;;9002226.02101,"889,55289099330 ",.01)
  1. ;;55289099330
  1. ;;9002226.02101,"889,55289099330 ",.02)
  1. ;;55289099330
  1. ;;9002226.02101,"889,55289099360 ",.01)
  1. ;;55289099360
  1. ;;9002226.02101,"889,55289099360 ",.02)
  1. ;;55289099360
  1. ;;9002226.02101,"889,55289099390 ",.01)
  1. ;;55289099390
  1. ;;9002226.02101,"889,55289099390 ",.02)
  1. ;;55289099390
  1. ;;9002226.02101,"889,55370012200 ",.01)
  1. ;;55370012200
  1. ;;9002226.02101,"889,55370012200 ",.02)
  1. ;;55370012200
  1. ;;9002226.02101,"889,55370012400 ",.01)
  1. ;;55370012400
  1. ;;9002226.02101,"889,55370012400 ",.02)
  1. ;;55370012400
  1. ;;9002226.02101,"889,55370045707 ",.01)
  1. ;;55370045707
  1. ;;9002226.02101,"889,55370045707 ",.02)
  1. ;;55370045707
  1. ;;9002226.02101,"889,55370045807 ",.01)
  1. ;;55370045807
  1. ;;9002226.02101,"889,55370045807 ",.02)
  1. ;;55370045807
  1. ;;9002226.02101,"889,55370045907 ",.01)
  1. ;;55370045907
  1. ;;9002226.02101,"889,55370045907 ",.02)
  1. ;;55370045907
  1. ;;9002226.02101,"889,55370082007 ",.01)
  1. ;;55370082007
  1. ;;9002226.02101,"889,55370082007 ",.02)
  1. ;;55370082007
  1. ;;9002226.02101,"889,55370082008 ",.01)
  1. ;;55370082008
  1. ;;9002226.02101,"889,55370082008 ",.02)
  1. ;;55370082008
  1. ;;9002226.02101,"889,55390000310 ",.01)
  1. ;;55390000310
  1. ;;9002226.02101,"889,55390000310 ",.02)
  1. ;;55390000310
  1. ;;9002226.02101,"889,55390007310 ",.01)
  1. ;;55390007310
  1. ;;9002226.02101,"889,55390007310 ",.02)
  1. ;;55390007310
  1. ;;9002226.02101,"889,55390013020 ",.01)
  1. ;;55390013020
  1. ;;9002226.02101,"889,55390013020 ",.02)
  1. ;;55390013020
  1. ;;9002226.02101,"889,55390013040 ",.01)
  1. ;;55390013040
  1. ;;9002226.02101,"889,55390013040 ",.02)
  1. ;;55390013040
  1. ;;9002226.02101,"889,55390034810 ",.01)
  1. ;;55390034810
  1. ;;9002226.02101,"889,55390034810 ",.02)
  1. ;;55390034810
  1. ;;9002226.02101,"889,55390037310 ",.01)
  1. ;;55390037310
  1. ;;9002226.02101,"889,55390037310 ",.02)
  1. ;;55390037310
  1. ;;9002226.02101,"889,55567001500 ",.01)
  1. ;;55567001500
  1. ;;9002226.02101,"889,55567001500 ",.02)
  1. ;;55567001500
  1. ;;9002226.02101,"889,55567001535 ",.01)
  1. ;;55567001535
  1. ;;9002226.02101,"889,55567001535 ",.02)
  1. ;;55567001535
  1. ;;9002226.02101,"889,55567001600 ",.01)
  1. ;;55567001600
  1. ;;9002226.02101,"889,55567001600 ",.02)
  1. ;;55567001600
  1. ;;9002226.02101,"889,55567001635 ",.01)
  1. ;;55567001635
  1. ;;9002226.02101,"889,55567001635 ",.02)
  1. ;;55567001635
  1. ;;9002226.02101,"889,55567002500 ",.01)
  1. ;;55567002500
  1. ;;9002226.02101,"889,55567002500 ",.02)
  1. ;;55567002500
  1. ;;9002226.02101,"889,55567002506 ",.01)
  1. ;;55567002506
  1. ;;9002226.02101,"889,55567002506 ",.02)
  1. ;;55567002506
  1. ;;9002226.02101,"889,55567002518 ",.01)
  1. ;;55567002518
  1. ;;9002226.02101,"889,55567002518 ",.02)
  1. ;;55567002518
  1. ;;9002226.02101,"889,55567002535 ",.01)
  1. ;;55567002535
  1. ;;9002226.02101,"889,55567002535 ",.02)
  1. ;;55567002535
  1. ;;9002226.02101,"889,55567002800 ",.01)
  1. ;;55567002800
  1. ;;9002226.02101,"889,55567002800 ",.02)
  1. ;;55567002800
  1. ;;9002226.02101,"889,55567002815 ",.01)
  1. ;;55567002815
  1. ;;9002226.02101,"889,55567002815 ",.02)
  1. ;;55567002815
  1. ;;9002226.02101,"889,55567002818 ",.01)
  1. ;;55567002818
  1. ;;9002226.02101,"889,55567002818 ",.02)
  1. ;;55567002818
  1. ;;9002226.02101,"889,55567002835 ",.01)
  1. ;;55567002835
  1. ;;9002226.02101,"889,55567002835 ",.02)
  1. ;;55567002835
  1. ;;9002226.02101,"889,55567002900 ",.01)
  1. ;;55567002900
  1. ;;9002226.02101,"889,55567002900 ",.02)
  1. ;;55567002900
  1. ;;9002226.02101,"889,55567002915 ",.01)
  1. ;;55567002915
  1. ;;9002226.02101,"889,55567002915 ",.02)
  1. ;;55567002915
  1. ;;9002226.02101,"889,55567002918 ",.01)
  1. ;;55567002918
  1. ;;9002226.02101,"889,55567002918 ",.02)
  1. ;;55567002918
  1. ;;9002226.02101,"889,55567002935 ",.01)
  1. ;;55567002935
  1. ;;9002226.02101,"889,55567002935 ",.02)
  1. ;;55567002935
  1. ;;9002226.02101,"889,55887007401 ",.01)
  1. ;;55887007401
  1. ;;9002226.02101,"889,55887007401 ",.02)
  1. ;;55887007401