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