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

BGPM5AMF.m

Go to the documentation of this file.
  1. BGPM5AMF ;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,"900,65243004518 ",.01)
  1. ;;65243004518
  1. ;;9002226.02101,"900,65243004518 ",.02)
  1. ;;65243004518
  1. ;;9002226.02101,"900,65243006403 ",.01)
  1. ;;65243006403
  1. ;;9002226.02101,"900,65243006403 ",.02)
  1. ;;65243006403
  1. ;;9002226.02101,"900,65243006406 ",.01)
  1. ;;65243006406
  1. ;;9002226.02101,"900,65243006406 ",.02)
  1. ;;65243006406
  1. ;;9002226.02101,"900,65243006409 ",.01)
  1. ;;65243006409
  1. ;;9002226.02101,"900,65243006409 ",.02)
  1. ;;65243006409
  1. ;;9002226.02101,"900,65243006445 ",.01)
  1. ;;65243006445
  1. ;;9002226.02101,"900,65243006445 ",.02)
  1. ;;65243006445
  1. ;;9002226.02101,"900,65243006503 ",.01)
  1. ;;65243006503
  1. ;;9002226.02101,"900,65243006503 ",.02)
  1. ;;65243006503
  1. ;;9002226.02101,"900,65243006506 ",.01)
  1. ;;65243006506
  1. ;;9002226.02101,"900,65243006506 ",.02)
  1. ;;65243006506
  1. ;;9002226.02101,"900,65243006509 ",.01)
  1. ;;65243006509
  1. ;;9002226.02101,"900,65243006509 ",.02)
  1. ;;65243006509
  1. ;;9002226.02101,"900,65243006545 ",.01)
  1. ;;65243006545
  1. ;;9002226.02101,"900,65243006545 ",.02)
  1. ;;65243006545
  1. ;;9002226.02101,"900,65243008203 ",.01)
  1. ;;65243008203
  1. ;;9002226.02101,"900,65243008203 ",.02)
  1. ;;65243008203
  1. ;;9002226.02101,"900,65243008209 ",.01)
  1. ;;65243008209
  1. ;;9002226.02101,"900,65243008209 ",.02)
  1. ;;65243008209
  1. ;;9002226.02101,"900,65243008215 ",.01)
  1. ;;65243008215
  1. ;;9002226.02101,"900,65243008215 ",.02)
  1. ;;65243008215
  1. ;;9002226.02101,"900,65243008245 ",.01)
  1. ;;65243008245
  1. ;;9002226.02101,"900,65243008245 ",.02)
  1. ;;65243008245
  1. ;;9002226.02101,"900,65243012203 ",.01)
  1. ;;65243012203
  1. ;;9002226.02101,"900,65243012203 ",.02)
  1. ;;65243012203
  1. ;;9002226.02101,"900,65243012209 ",.01)
  1. ;;65243012209
  1. ;;9002226.02101,"900,65243012209 ",.02)
  1. ;;65243012209
  1. ;;9002226.02101,"900,65243012245 ",.01)
  1. ;;65243012245
  1. ;;9002226.02101,"900,65243012245 ",.02)
  1. ;;65243012245
  1. ;;9002226.02101,"900,65243012303 ",.01)
  1. ;;65243012303
  1. ;;9002226.02101,"900,65243012303 ",.02)
  1. ;;65243012303
  1. ;;9002226.02101,"900,65243012309 ",.01)
  1. ;;65243012309
  1. ;;9002226.02101,"900,65243012309 ",.02)
  1. ;;65243012309
  1. ;;9002226.02101,"900,65243012345 ",.01)
  1. ;;65243012345
  1. ;;9002226.02101,"900,65243012345 ",.02)
  1. ;;65243012345
  1. ;;9002226.02101,"900,65243028403 ",.01)
  1. ;;65243028403
  1. ;;9002226.02101,"900,65243028403 ",.02)
  1. ;;65243028403
  1. ;;9002226.02101,"900,65243028406 ",.01)
  1. ;;65243028406
  1. ;;9002226.02101,"900,65243028406 ",.02)
  1. ;;65243028406
  1. ;;9002226.02101,"900,65243028409 ",.01)
  1. ;;65243028409
  1. ;;9002226.02101,"900,65243028409 ",.02)
  1. ;;65243028409
  1. ;;9002226.02101,"900,65243028412 ",.01)
  1. ;;65243028412
  1. ;;9002226.02101,"900,65243028412 ",.02)
  1. ;;65243028412
  1. ;;9002226.02101,"900,65243028418 ",.01)
  1. ;;65243028418
  1. ;;9002226.02101,"900,65243028418 ",.02)
  1. ;;65243028418
  1. ;;9002226.02101,"900,65243035203 ",.01)
  1. ;;65243035203
  1. ;;9002226.02101,"900,65243035203 ",.02)
  1. ;;65243035203
  1. ;;9002226.02101,"900,65243035206 ",.01)
  1. ;;65243035206
  1. ;;9002226.02101,"900,65243035206 ",.02)
  1. ;;65243035206
  1. ;;9002226.02101,"900,65243035209 ",.01)
  1. ;;65243035209
  1. ;;9002226.02101,"900,65243035209 ",.02)
  1. ;;65243035209
  1. ;;9002226.02101,"900,65243035218 ",.01)
  1. ;;65243035218
  1. ;;9002226.02101,"900,65243035218 ",.02)
  1. ;;65243035218
  1. ;;9002226.02101,"900,65243035245 ",.01)
  1. ;;65243035245
  1. ;;9002226.02101,"900,65243035245 ",.02)
  1. ;;65243035245
  1. ;;9002226.02101,"900,65427004523 ",.01)
  1. ;;65427004523
  1. ;;9002226.02101,"900,65427004523 ",.02)
  1. ;;65427004523
  1. ;;9002226.02101,"900,65427004530 ",.01)
  1. ;;65427004530
  1. ;;9002226.02101,"900,65427004530 ",.02)
  1. ;;65427004530
  1. ;;9002226.02101,"900,65427004534 ",.01)
  1. ;;65427004534
  1. ;;9002226.02101,"900,65427004534 ",.02)
  1. ;;65427004534
  1. ;;9002226.02101,"900,65427004540 ",.01)
  1. ;;65427004540
  1. ;;9002226.02101,"900,65427004540 ",.02)
  1. ;;65427004540
  1. ;;9002226.02101,"900,65427004597 ",.01)
  1. ;;65427004597
  1. ;;9002226.02101,"900,65427004597 ",.02)
  1. ;;65427004597
  1. ;;9002226.02101,"900,65427004623 ",.01)
  1. ;;65427004623
  1. ;;9002226.02101,"900,65427004623 ",.02)
  1. ;;65427004623
  1. ;;9002226.02101,"900,65427004630 ",.01)
  1. ;;65427004630
  1. ;;9002226.02101,"900,65427004630 ",.02)
  1. ;;65427004630
  1. ;;9002226.02101,"900,65427004640 ",.01)
  1. ;;65427004640
  1. ;;9002226.02101,"900,65427004640 ",.02)
  1. ;;65427004640
  1. ;;9002226.02101,"900,65427004694 ",.01)
  1. ;;65427004694
  1. ;;9002226.02101,"900,65427004694 ",.02)
  1. ;;65427004694
  1. ;;9002226.02101,"900,65427004701 ",.01)
  1. ;;65427004701
  1. ;;9002226.02101,"900,65427004701 ",.02)
  1. ;;65427004701
  1. ;;9002226.02101,"900,65427004702 ",.01)
  1. ;;65427004702
  1. ;;9002226.02101,"900,65427004702 ",.02)
  1. ;;65427004702
  1. ;;9002226.02101,"900,65427004723 ",.01)
  1. ;;65427004723
  1. ;;9002226.02101,"900,65427004723 ",.02)
  1. ;;65427004723
  1. ;;9002226.02101,"900,65427004730 ",.01)
  1. ;;65427004730
  1. ;;9002226.02101,"900,65427004730 ",.02)
  1. ;;65427004730
  1. ;;9002226.02101,"900,65427004773 ",.01)
  1. ;;65427004773
  1. ;;9002226.02101,"900,65427004773 ",.02)
  1. ;;65427004773
  1. ;;9002226.02101,"900,65427004802 ",.01)
  1. ;;65427004802
  1. ;;9002226.02101,"900,65427004802 ",.02)
  1. ;;65427004802
  1. ;;9002226.02101,"900,65427004803 ",.01)
  1. ;;65427004803
  1. ;;9002226.02101,"900,65427004803 ",.02)
  1. ;;65427004803
  1. ;;9002226.02101,"900,65427015823 ",.01)
  1. ;;65427015823
  1. ;;9002226.02101,"900,65427015823 ",.02)
  1. ;;65427015823
  1. ;;9002226.02101,"900,65427015830 ",.01)
  1. ;;65427015830
  1. ;;9002226.02101,"900,65427015830 ",.02)
  1. ;;65427015830
  1. ;;9002226.02101,"900,65427015873 ",.01)
  1. ;;65427015873
  1. ;;9002226.02101,"900,65427015873 ",.02)
  1. ;;65427015873
  1. ;;9002226.02101,"900,65427015897 ",.01)
  1. ;;65427015897
  1. ;;9002226.02101,"900,65427015897 ",.02)
  1. ;;65427015897
  1. ;;9002226.02101,"900,65427073720 ",.01)
  1. ;;65427073720
  1. ;;9002226.02101,"900,65427073720 ",.02)
  1. ;;65427073720
  1. ;;9002226.02101,"900,65427073730 ",.01)
  1. ;;65427073730
  1. ;;9002226.02101,"900,65427073730 ",.02)
  1. ;;65427073730
  1. ;;9002226.02101,"900,65597070118 ",.01)
  1. ;;65597070118
  1. ;;9002226.02101,"900,65597070118 ",.02)
  1. ;;65597070118
  1. ;;9002226.02101,"900,65726040105 ",.01)
  1. ;;65726040105
  1. ;;9002226.02101,"900,65726040105 ",.02)
  1. ;;65726040105
  1. ;;9002226.02101,"900,65726040301 ",.01)
  1. ;;65726040301
  1. ;;9002226.02101,"900,65726040301 ",.02)
  1. ;;65726040301
  1. ;;9002226.02101,"900,65726040305 ",.01)
  1. ;;65726040305
  1. ;;9002226.02101,"900,65726040305 ",.02)
  1. ;;65726040305
  1. ;;9002226.02101,"900,65726040310 ",.01)
  1. ;;65726040310
  1. ;;9002226.02101,"900,65726040310 ",.02)
  1. ;;65726040310
  1. ;;9002226.02101,"900,66105011309 ",.01)
  1. ;;66105011309
  1. ;;9002226.02101,"900,66105011309 ",.02)
  1. ;;66105011309
  1. ;;9002226.02101,"900,66105011409 ",.01)
  1. ;;66105011409
  1. ;;9002226.02101,"900,66105011409 ",.02)
  1. ;;66105011409
  1. ;;9002226.02101,"900,66105011509 ",.01)
  1. ;;66105011509
  1. ;;9002226.02101,"900,66105011509 ",.02)
  1. ;;66105011509
  1. ;;9002226.02101,"900,66105014701 ",.01)
  1. ;;66105014701
  1. ;;9002226.02101,"900,66105014701 ",.02)
  1. ;;66105014701
  1. ;;9002226.02101,"900,66105014703 ",.01)
  1. ;;66105014703
  1. ;;9002226.02101,"900,66105014703 ",.02)
  1. ;;66105014703
  1. ;;9002226.02101,"900,66105014706 ",.01)
  1. ;;66105014706
  1. ;;9002226.02101,"900,66105014706 ",.02)
  1. ;;66105014706
  1. ;;9002226.02101,"900,66105014709 ",.01)
  1. ;;66105014709
  1. ;;9002226.02101,"900,66105014709 ",.02)
  1. ;;66105014709
  1. ;;9002226.02101,"900,66105014710 ",.01)
  1. ;;66105014710
  1. ;;9002226.02101,"900,66105014710 ",.02)
  1. ;;66105014710
  1. ;;9002226.02101,"900,66105050503 ",.01)
  1. ;;66105050503
  1. ;;9002226.02101,"900,66105050503 ",.02)
  1. ;;66105050503
  1. ;;9002226.02101,"900,66105050601 ",.01)
  1. ;;66105050601
  1. ;;9002226.02101,"900,66105050601 ",.02)
  1. ;;66105050601
  1. ;;9002226.02101,"900,66105050603 ",.01)
  1. ;;66105050603
  1. ;;9002226.02101,"900,66105050603 ",.02)
  1. ;;66105050603
  1. ;;9002226.02101,"900,66105050606 ",.01)
  1. ;;66105050606
  1. ;;9002226.02101,"900,66105050606 ",.02)
  1. ;;66105050606
  1. ;;9002226.02101,"900,66105050609 ",.01)
  1. ;;66105050609
  1. ;;9002226.02101,"900,66105050609 ",.02)
  1. ;;66105050609
  1. ;;9002226.02101,"900,66105050610 ",.01)
  1. ;;66105050610
  1. ;;9002226.02101,"900,66105050610 ",.02)
  1. ;;66105050610
  1. ;;9002226.02101,"900,66105097903 ",.01)
  1. ;;66105097903
  1. ;;9002226.02101,"900,66105097903 ",.02)
  1. ;;66105097903
  1. ;;9002226.02101,"900,66105098803 ",.01)
  1. ;;66105098803
  1. ;;9002226.02101,"900,66105098803 ",.02)
  1. ;;66105098803
  1. ;;9002226.02101,"900,66116027730 ",.01)
  1. ;;66116027730
  1. ;;9002226.02101,"900,66116027730 ",.02)
  1. ;;66116027730
  1. ;;9002226.02101,"900,66116045130 ",.01)
  1. ;;66116045130
  1. ;;9002226.02101,"900,66116045130 ",.02)
  1. ;;66116045130
  1. ;;9002226.02101,"900,66116081730 ",.01)
  1. ;;66116081730
  1. ;;9002226.02101,"900,66116081730 ",.02)
  1. ;;66116081730
  1. ;;9002226.02101,"900,66116081830 ",.01)
  1. ;;66116081830
  1. ;;9002226.02101,"900,66116081830 ",.02)
  1. ;;66116081830
  1. ;;9002226.02101,"900,66116083230 ",.01)
  1. ;;66116083230
  1. ;;9002226.02101,"900,66116083230 ",.02)
  1. ;;66116083230
  1. ;;9002226.02101,"900,66116083330 ",.01)
  1. ;;66116083330
  1. ;;9002226.02101,"900,66116083330 ",.02)
  1. ;;66116083330
  1. ;;9002226.02101,"900,66116084730 ",.01)
  1. ;;66116084730
  1. ;;9002226.02101,"900,66116084730 ",.02)
  1. ;;66116084730
  1. ;;9002226.02101,"900,66116086330 ",.01)
  1. ;;66116086330
  1. ;;9002226.02101,"900,66116086330 ",.02)
  1. ;;66116086330
  1. ;;9002226.02101,"900,66267023310 ",.01)
  1. ;;66267023310
  1. ;;9002226.02101,"900,66267023310 ",.02)
  1. ;;66267023310
  1. ;;9002226.02101,"900,66267023320 ",.01)
  1. ;;66267023320
  1. ;;9002226.02101,"900,66267023320 ",.02)
  1. ;;66267023320
  1. ;;9002226.02101,"900,66267023330 ",.01)
  1. ;;66267023330
  1. ;;9002226.02101,"900,66267023330 ",.02)
  1. ;;66267023330
  1. ;;9002226.02101,"900,66267023340 ",.01)
  1. ;;66267023340
  1. ;;9002226.02101,"900,66267023340 ",.02)
  1. ;;66267023340
  1. ;;9002226.02101,"900,66267023360 ",.01)
  1. ;;66267023360
  1. ;;9002226.02101,"900,66267023360 ",.02)
  1. ;;66267023360
  1. ;;9002226.02101,"900,66267037130 ",.01)
  1. ;;66267037130
  1. ;;9002226.02101,"900,66267037130 ",.02)
  1. ;;66267037130
  1. ;;9002226.02101,"900,66267037230 ",.01)
  1. ;;66267037230
  1. ;;9002226.02101,"900,66267037230 ",.02)
  1. ;;66267037230
  1. ;;9002226.02101,"900,66267038730 ",.01)
  1. ;;66267038730
  1. ;;9002226.02101,"900,66267038730 ",.02)
  1. ;;66267038730
  1. ;;9002226.02101,"900,66267043620 ",.01)
  1. ;;66267043620
  1. ;;9002226.02101,"900,66267043620 ",.02)
  1. ;;66267043620
  1. ;;9002226.02101,"900,66267043630 ",.01)
  1. ;;66267043630
  1. ;;9002226.02101,"900,66267043630 ",.02)
  1. ;;66267043630
  1. ;;9002226.02101,"900,66267043640 ",.01)
  1. ;;66267043640
  1. ;;9002226.02101,"900,66267043640 ",.02)
  1. ;;66267043640
  1. ;;9002226.02101,"900,66267043660 ",.01)
  1. ;;66267043660
  1. ;;9002226.02101,"900,66267043660 ",.02)
  1. ;;66267043660
  1. ;;9002226.02101,"900,66267043690 ",.01)
  1. ;;66267043690
  1. ;;9002226.02101,"900,66267043690 ",.02)
  1. ;;66267043690
  1. ;;9002226.02101,"900,66267043692 ",.01)
  1. ;;66267043692
  1. ;;9002226.02101,"900,66267043692 ",.02)
  1. ;;66267043692
  1. ;;9002226.02101,"900,66267044820 ",.01)
  1. ;;66267044820
  1. ;;9002226.02101,"900,66267044820 ",.02)
  1. ;;66267044820
  1. ;;9002226.02101,"900,66267044825 ",.01)
  1. ;;66267044825
  1. ;;9002226.02101,"900,66267044825 ",.02)
  1. ;;66267044825
  1. ;;9002226.02101,"900,66267044830 ",.01)
  1. ;;66267044830
  1. ;;9002226.02101,"900,66267044830 ",.02)
  1. ;;66267044830
  1. ;;9002226.02101,"900,66267044840 ",.01)
  1. ;;66267044840
  1. ;;9002226.02101,"900,66267044840 ",.02)
  1. ;;66267044840
  1. ;;9002226.02101,"900,66267044860 ",.01)
  1. ;;66267044860
  1. ;;9002226.02101,"900,66267044860 ",.02)
  1. ;;66267044860
  1. ;;9002226.02101,"900,66267046210 ",.01)
  1. ;;66267046210
  1. ;;9002226.02101,"900,66267046210 ",.02)
  1. ;;66267046210
  1. ;;9002226.02101,"900,66267046220 ",.01)
  1. ;;66267046220
  1. ;;9002226.02101,"900,66267046220 ",.02)
  1. ;;66267046220
  1. ;;9002226.02101,"900,66267046230 ",.01)
  1. ;;66267046230
  1. ;;9002226.02101,"900,66267046230 ",.02)
  1. ;;66267046230