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

BGPM5AJN.m

Go to the documentation of this file.
BGPM5AJN ;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,"889,52959028030 ",.01)
 ;;52959028030
 ;;9002226.02101,"889,52959028030 ",.02)
 ;;52959028030
 ;;9002226.02101,"889,52959033710 ",.01)
 ;;52959033710
 ;;9002226.02101,"889,52959033710 ",.02)
 ;;52959033710
 ;;9002226.02101,"889,52959033730 ",.01)
 ;;52959033730
 ;;9002226.02101,"889,52959033730 ",.02)
 ;;52959033730
 ;;9002226.02101,"889,52959046301 ",.01)
 ;;52959046301
 ;;9002226.02101,"889,52959046301 ",.02)
 ;;52959046301
 ;;9002226.02101,"889,52959046330 ",.01)
 ;;52959046330
 ;;9002226.02101,"889,52959046330 ",.02)
 ;;52959046330
 ;;9002226.02101,"889,52959046360 ",.01)
 ;;52959046360
 ;;9002226.02101,"889,52959046360 ",.02)
 ;;52959046360
 ;;9002226.02101,"889,52959054330 ",.01)
 ;;52959054330
 ;;9002226.02101,"889,52959054330 ",.02)
 ;;52959054330
 ;;9002226.02101,"889,52959082730 ",.01)
 ;;52959082730
 ;;9002226.02101,"889,52959082730 ",.02)
 ;;52959082730
 ;;9002226.02101,"889,52959083930 ",.01)
 ;;52959083930
 ;;9002226.02101,"889,52959083930 ",.02)
 ;;52959083930
 ;;9002226.02101,"889,52959083960 ",.01)
 ;;52959083960
 ;;9002226.02101,"889,52959083960 ",.02)
 ;;52959083960
 ;;9002226.02101,"889,52959089560 ",.01)
 ;;52959089560
 ;;9002226.02101,"889,52959089560 ",.02)
 ;;52959089560
 ;;9002226.02101,"889,53002036000 ",.01)
 ;;53002036000
 ;;9002226.02101,"889,53002036000 ",.02)
 ;;53002036000
 ;;9002226.02101,"889,53002036020 ",.01)
 ;;53002036020
 ;;9002226.02101,"889,53002036020 ",.02)
 ;;53002036020
 ;;9002226.02101,"889,53002036030 ",.01)
 ;;53002036030
 ;;9002226.02101,"889,53002036030 ",.02)
 ;;53002036030
 ;;9002226.02101,"889,53002036050 ",.01)
 ;;53002036050
 ;;9002226.02101,"889,53002036050 ",.02)
 ;;53002036050
 ;;9002226.02101,"889,53002036060 ",.01)
 ;;53002036060
 ;;9002226.02101,"889,53002036060 ",.02)
 ;;53002036060
 ;;9002226.02101,"889,53002049500 ",.01)
 ;;53002049500
 ;;9002226.02101,"889,53002049500 ",.02)
 ;;53002049500
 ;;9002226.02101,"889,53002049520 ",.01)
 ;;53002049520
 ;;9002226.02101,"889,53002049520 ",.02)
 ;;53002049520
 ;;9002226.02101,"889,53002049530 ",.01)
 ;;53002049530
 ;;9002226.02101,"889,53002049530 ",.02)
 ;;53002049530
 ;;9002226.02101,"889,53002049540 ",.01)
 ;;53002049540
 ;;9002226.02101,"889,53002049540 ",.02)
 ;;53002049540
 ;;9002226.02101,"889,53002049560 ",.01)
 ;;53002049560
 ;;9002226.02101,"889,53002049560 ",.02)
 ;;53002049560
 ;;9002226.02101,"889,53002100500 ",.01)
 ;;53002100500
 ;;9002226.02101,"889,53002100500 ",.02)
 ;;53002100500
 ;;9002226.02101,"889,53002100502 ",.01)
 ;;53002100502
 ;;9002226.02101,"889,53002100502 ",.02)
 ;;53002100502
 ;;9002226.02101,"889,53002100503 ",.01)
 ;;53002100503
 ;;9002226.02101,"889,53002100503 ",.02)
 ;;53002100503
 ;;9002226.02101,"889,53002100505 ",.01)
 ;;53002100505
 ;;9002226.02101,"889,53002100505 ",.02)
 ;;53002100505
 ;;9002226.02101,"889,53002100506 ",.01)
 ;;53002100506
 ;;9002226.02101,"889,53002100506 ",.02)
 ;;53002100506
 ;;9002226.02101,"889,53002101800 ",.01)
 ;;53002101800
 ;;9002226.02101,"889,53002101800 ",.02)
 ;;53002101800
 ;;9002226.02101,"889,53002101803 ",.01)
 ;;53002101803
 ;;9002226.02101,"889,53002101803 ",.02)
 ;;53002101803
 ;;9002226.02101,"889,53002101805 ",.01)
 ;;53002101805
 ;;9002226.02101,"889,53002101805 ",.02)
 ;;53002101805
 ;;9002226.02101,"889,53002101806 ",.01)
 ;;53002101806
 ;;9002226.02101,"889,53002101806 ",.02)
 ;;53002101806
 ;;9002226.02101,"889,53002101809 ",.01)
 ;;53002101809
 ;;9002226.02101,"889,53002101809 ",.02)
 ;;53002101809
 ;;9002226.02101,"889,53002102600 ",.01)
 ;;53002102600
 ;;9002226.02101,"889,53002102600 ",.02)
 ;;53002102600
 ;;9002226.02101,"889,53002102602 ",.01)
 ;;53002102602
 ;;9002226.02101,"889,53002102602 ",.02)
 ;;53002102602
 ;;9002226.02101,"889,53002102603 ",.01)
 ;;53002102603
 ;;9002226.02101,"889,53002102603 ",.02)
 ;;53002102603
 ;;9002226.02101,"889,53002102605 ",.01)
 ;;53002102605
 ;;9002226.02101,"889,53002102605 ",.02)
 ;;53002102605
 ;;9002226.02101,"889,53002102606 ",.01)
 ;;53002102606
 ;;9002226.02101,"889,53002102606 ",.02)
 ;;53002102606
 ;;9002226.02101,"889,53002103800 ",.01)
 ;;53002103800
 ;;9002226.02101,"889,53002103800 ",.02)
 ;;53002103800
 ;;9002226.02101,"889,53002103802 ",.01)
 ;;53002103802
 ;;9002226.02101,"889,53002103802 ",.02)
 ;;53002103802
 ;;9002226.02101,"889,53002103803 ",.01)
 ;;53002103803
 ;;9002226.02101,"889,53002103803 ",.02)
 ;;53002103803
 ;;9002226.02101,"889,53002103805 ",.01)
 ;;53002103805
 ;;9002226.02101,"889,53002103805 ",.02)
 ;;53002103805
 ;;9002226.02101,"889,53002103806 ",.01)
 ;;53002103806
 ;;9002226.02101,"889,53002103806 ",.02)
 ;;53002103806
 ;;9002226.02101,"889,53002105900 ",.01)
 ;;53002105900
 ;;9002226.02101,"889,53002105900 ",.02)
 ;;53002105900
 ;;9002226.02101,"889,53002105903 ",.01)
 ;;53002105903
 ;;9002226.02101,"889,53002105903 ",.02)
 ;;53002105903
 ;;9002226.02101,"889,53002105905 ",.01)
 ;;53002105905
 ;;9002226.02101,"889,53002105905 ",.02)
 ;;53002105905
 ;;9002226.02101,"889,53002105906 ",.01)
 ;;53002105906
 ;;9002226.02101,"889,53002105906 ",.02)
 ;;53002105906
 ;;9002226.02101,"889,53002105909 ",.01)
 ;;53002105909
 ;;9002226.02101,"889,53002105909 ",.02)
 ;;53002105909
 ;;9002226.02101,"889,53489035401 ",.01)
 ;;53489035401
 ;;9002226.02101,"889,53489035401 ",.02)
 ;;53489035401
 ;;9002226.02101,"889,53489035403 ",.01)
 ;;53489035403
 ;;9002226.02101,"889,53489035403 ",.02)
 ;;53489035403
 ;;9002226.02101,"889,53489035405 ",.01)
 ;;53489035405
 ;;9002226.02101,"889,53489035405 ",.02)
 ;;53489035405
 ;;9002226.02101,"889,53489035406 ",.01)
 ;;53489035406
 ;;9002226.02101,"889,53489035406 ",.02)
 ;;53489035406
 ;;9002226.02101,"889,53489035407 ",.01)
 ;;53489035407
 ;;9002226.02101,"889,53489035407 ",.02)
 ;;53489035407
 ;;9002226.02101,"889,53489035410 ",.01)
 ;;53489035410
 ;;9002226.02101,"889,53489035410 ",.02)
 ;;53489035410
 ;;9002226.02101,"889,53489035501 ",.01)
 ;;53489035501
 ;;9002226.02101,"889,53489035501 ",.02)
 ;;53489035501
 ;;9002226.02101,"889,53489035503 ",.01)
 ;;53489035503
 ;;9002226.02101,"889,53489035503 ",.02)
 ;;53489035503
 ;;9002226.02101,"889,53489035505 ",.01)
 ;;53489035505
 ;;9002226.02101,"889,53489035505 ",.02)
 ;;53489035505
 ;;9002226.02101,"889,53489035506 ",.01)
 ;;53489035506
 ;;9002226.02101,"889,53489035506 ",.02)
 ;;53489035506
 ;;9002226.02101,"889,53489035507 ",.01)
 ;;53489035507
 ;;9002226.02101,"889,53489035507 ",.02)
 ;;53489035507
 ;;9002226.02101,"889,53489035510 ",.01)
 ;;53489035510
 ;;9002226.02101,"889,53489035510 ",.02)
 ;;53489035510
 ;;9002226.02101,"889,53489035601 ",.01)
 ;;53489035601
 ;;9002226.02101,"889,53489035601 ",.02)
 ;;53489035601
 ;;9002226.02101,"889,53489035603 ",.01)
 ;;53489035603
 ;;9002226.02101,"889,53489035603 ",.02)
 ;;53489035603
 ;;9002226.02101,"889,53489035605 ",.01)
 ;;53489035605
 ;;9002226.02101,"889,53489035605 ",.02)
 ;;53489035605
 ;;9002226.02101,"889,53489035606 ",.01)
 ;;53489035606
 ;;9002226.02101,"889,53489035606 ",.02)
 ;;53489035606
 ;;9002226.02101,"889,53489035607 ",.01)
 ;;53489035607
 ;;9002226.02101,"889,53489035607 ",.02)
 ;;53489035607
 ;;9002226.02101,"889,53489035610 ",.01)
 ;;53489035610
 ;;9002226.02101,"889,53489035610 ",.02)
 ;;53489035610
 ;;9002226.02101,"889,53489036601 ",.01)
 ;;53489036601
 ;;9002226.02101,"889,53489036601 ",.02)
 ;;53489036601
 ;;9002226.02101,"889,53489036602 ",.01)
 ;;53489036602
 ;;9002226.02101,"889,53489036602 ",.02)
 ;;53489036602
 ;;9002226.02101,"889,53489036603 ",.01)
 ;;53489036603
 ;;9002226.02101,"889,53489036603 ",.02)
 ;;53489036603
 ;;9002226.02101,"889,53489036605 ",.01)
 ;;53489036605
 ;;9002226.02101,"889,53489036605 ",.02)
 ;;53489036605
 ;;9002226.02101,"889,53489036610 ",.01)
 ;;53489036610
 ;;9002226.02101,"889,53489036610 ",.02)
 ;;53489036610
 ;;9002226.02101,"889,53489036701 ",.01)
 ;;53489036701
 ;;9002226.02101,"889,53489036701 ",.02)
 ;;53489036701
 ;;9002226.02101,"889,53489036702 ",.01)
 ;;53489036702
 ;;9002226.02101,"889,53489036702 ",.02)
 ;;53489036702
 ;;9002226.02101,"889,53489036703 ",.01)
 ;;53489036703
 ;;9002226.02101,"889,53489036703 ",.02)
 ;;53489036703
 ;;9002226.02101,"889,53489036705 ",.01)
 ;;53489036705
 ;;9002226.02101,"889,53489036705 ",.02)
 ;;53489036705
 ;;9002226.02101,"889,53489036710 ",.01)
 ;;53489036710
 ;;9002226.02101,"889,53489036710 ",.02)
 ;;53489036710
 ;;9002226.02101,"889,53489052901 ",.01)
 ;;53489052901
 ;;9002226.02101,"889,53489052901 ",.02)
 ;;53489052901
 ;;9002226.02101,"889,53489052902 ",.01)
 ;;53489052902
 ;;9002226.02101,"889,53489052902 ",.02)
 ;;53489052902
 ;;9002226.02101,"889,53489052903 ",.01)
 ;;53489052903
 ;;9002226.02101,"889,53489052903 ",.02)
 ;;53489052903
 ;;9002226.02101,"889,53489052905 ",.01)
 ;;53489052905
 ;;9002226.02101,"889,53489052905 ",.02)
 ;;53489052905
 ;;9002226.02101,"889,53489052910 ",.01)
 ;;53489052910
 ;;9002226.02101,"889,53489052910 ",.02)
 ;;53489052910
 ;;9002226.02101,"889,53489053001 ",.01)
 ;;53489053001
 ;;9002226.02101,"889,53489053001 ",.02)
 ;;53489053001
 ;;9002226.02101,"889,53489053002 ",.01)
 ;;53489053002
 ;;9002226.02101,"889,53489053002 ",.02)
 ;;53489053002
 ;;9002226.02101,"889,53489053003 ",.01)
 ;;53489053003
 ;;9002226.02101,"889,53489053003 ",.02)
 ;;53489053003
 ;;9002226.02101,"889,53489053005 ",.01)
 ;;53489053005
 ;;9002226.02101,"889,53489053005 ",.02)
 ;;53489053005
 ;;9002226.02101,"889,53489053010 ",.01)
 ;;53489053010
 ;;9002226.02101,"889,53489053010 ",.02)
 ;;53489053010
 ;;9002226.02101,"889,53489053101 ",.01)
 ;;53489053101
 ;;9002226.02101,"889,53489053101 ",.02)
 ;;53489053101
 ;;9002226.02101,"889,53489053102 ",.01)
 ;;53489053102
 ;;9002226.02101,"889,53489053102 ",.02)
 ;;53489053102
 ;;9002226.02101,"889,53489053103 ",.01)
 ;;53489053103
 ;;9002226.02101,"889,53489053103 ",.02)
 ;;53489053103
 ;;9002226.02101,"889,53489053105 ",.01)
 ;;53489053105
 ;;9002226.02101,"889,53489053105 ",.02)
 ;;53489053105
 ;;9002226.02101,"889,53489053110 ",.01)
 ;;53489053110
 ;;9002226.02101,"889,53489053110 ",.02)
 ;;53489053110
 ;;9002226.02101,"889,53489053201 ",.01)
 ;;53489053201
 ;;9002226.02101,"889,53489053201 ",.02)
 ;;53489053201
 ;;9002226.02101,"889,53489053202 ",.01)
 ;;53489053202
 ;;9002226.02101,"889,53489053202 ",.02)
 ;;53489053202
 ;;9002226.02101,"889,53489053203 ",.01)
 ;;53489053203
 ;;9002226.02101,"889,53489053203 ",.02)
 ;;53489053203
 ;;9002226.02101,"889,53489053205 ",.01)
 ;;53489053205
 ;;9002226.02101,"889,53489053205 ",.02)
 ;;53489053205
 ;;9002226.02101,"889,53489053210 ",.01)
 ;;53489053210
 ;;9002226.02101,"889,53489053210 ",.02)
 ;;53489053210
 ;;9002226.02101,"889,53489053601 ",.01)
 ;;53489053601
 ;;9002226.02101,"889,53489053601 ",.02)
 ;;53489053601
 ;;9002226.02101,"889,53489053602 ",.01)
 ;;53489053602
 ;;9002226.02101,"889,53489053602 ",.02)
 ;;53489053602
 ;;9002226.02101,"889,53489053603 ",.01)
 ;;53489053603
 ;;9002226.02101,"889,53489053603 ",.02)
 ;;53489053603
 ;;9002226.02101,"889,53489053605 ",.01)
 ;;53489053605
 ;;9002226.02101,"889,53489053605 ",.02)
 ;;53489053605
 ;;9002226.02101,"889,53489053610 ",.01)
 ;;53489053610
 ;;9002226.02101,"889,53489053610 ",.02)
 ;;53489053610
 ;;9002226.02101,"889,53489065301 ",.01)
 ;;53489065301
 ;;9002226.02101,"889,53489065301 ",.02)
 ;;53489065301
 ;;9002226.02101,"889,53489065303 ",.01)
 ;;53489065303
 ;;9002226.02101,"889,53489065303 ",.02)
 ;;53489065303
 ;;9002226.02101,"889,53489065305 ",.01)
 ;;53489065305
 ;;9002226.02101,"889,53489065305 ",.02)
 ;;53489065305