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

BGP03W2.m

Go to the documentation of this file.
BGP03W2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"876,00536-1362-34 ",.01)
 ;;00536-1362-34
 ;;9002226.02101,"876,00536-1362-34 ",.02)
 ;;00536-1362-34
 ;;9002226.02101,"876,00536-1372-06 ",.01)
 ;;00536-1372-06
 ;;9002226.02101,"876,00536-1372-06 ",.02)
 ;;00536-1372-06
 ;;9002226.02101,"876,00536-1372-23 ",.01)
 ;;00536-1372-23
 ;;9002226.02101,"876,00536-1372-23 ",.02)
 ;;00536-1372-23
 ;;9002226.02101,"876,00536-1372-34 ",.01)
 ;;00536-1372-34
 ;;9002226.02101,"876,00536-1372-34 ",.02)
 ;;00536-1372-34
 ;;9002226.02101,"876,00536-3106-06 ",.01)
 ;;00536-3106-06
 ;;9002226.02101,"876,00536-3106-06 ",.02)
 ;;00536-3106-06
 ;;9002226.02101,"876,00536-3106-23 ",.01)
 ;;00536-3106-23
 ;;9002226.02101,"876,00536-3106-23 ",.02)
 ;;00536-3106-23
 ;;9002226.02101,"876,00536-3106-34 ",.01)
 ;;00536-3106-34
 ;;9002226.02101,"876,00536-3106-34 ",.02)
 ;;00536-3106-34
 ;;9002226.02101,"876,00536-3107-06 ",.01)
 ;;00536-3107-06
 ;;9002226.02101,"876,00536-3107-06 ",.02)
 ;;00536-3107-06
 ;;9002226.02101,"876,00536-3107-23 ",.01)
 ;;00536-3107-23
 ;;9002226.02101,"876,00536-3107-23 ",.02)
 ;;00536-3107-23
 ;;9002226.02101,"876,00536-3107-34 ",.01)
 ;;00536-3107-34
 ;;9002226.02101,"876,00536-3107-34 ",.02)
 ;;00536-3107-34
 ;;9002226.02101,"876,00591-0839-25 ",.01)
 ;;00591-0839-25
 ;;9002226.02101,"876,00591-0839-25 ",.02)
 ;;00591-0839-25
 ;;9002226.02101,"876,00591-0839-60 ",.01)
 ;;00591-0839-60
 ;;9002226.02101,"876,00591-0839-60 ",.02)
 ;;00591-0839-60
 ;;9002226.02101,"876,00591-0858-60 ",.01)
 ;;00591-0858-60
 ;;9002226.02101,"876,00591-0858-60 ",.02)
 ;;00591-0858-60
 ;;9002226.02101,"876,00591-0867-60 ",.01)
 ;;00591-0867-60
 ;;9002226.02101,"876,00591-0867-60 ",.02)
 ;;00591-0867-60
 ;;9002226.02101,"876,00591-0867-76 ",.01)
 ;;00591-0867-76
 ;;9002226.02101,"876,00591-0867-76 ",.02)
 ;;00591-0867-76
 ;;9002226.02101,"876,00591-2890-30 ",.01)
 ;;00591-2890-30
 ;;9002226.02101,"876,00591-2890-30 ",.02)
 ;;00591-2890-30
 ;;9002226.02101,"876,00591-2893-30 ",.01)
 ;;00591-2893-30
 ;;9002226.02101,"876,00591-2893-30 ",.02)
 ;;00591-2893-30
 ;;9002226.02101,"876,00591-2901-30 ",.01)
 ;;00591-2901-30
 ;;9002226.02101,"876,00591-2901-30 ",.02)
 ;;00591-2901-30
 ;;9002226.02101,"876,00766-1500-10 ",.01)
 ;;00766-1500-10
 ;;9002226.02101,"876,00766-1500-10 ",.02)
 ;;00766-1500-10
 ;;9002226.02101,"876,00766-1500-20 ",.01)
 ;;00766-1500-20
 ;;9002226.02101,"876,00766-1500-20 ",.02)
 ;;00766-1500-20
 ;;9002226.02101,"876,00781-1053-01 ",.01)
 ;;00781-1053-01
 ;;9002226.02101,"876,00781-1053-01 ",.02)
 ;;00781-1053-01
 ;;9002226.02101,"876,00781-1064-01 ",.01)
 ;;00781-1064-01
 ;;9002226.02101,"876,00781-1064-01 ",.02)
 ;;00781-1064-01
 ;;9002226.02101,"876,00904-5734-11 ",.01)
 ;;00904-5734-11
 ;;9002226.02101,"876,00904-5734-11 ",.02)
 ;;00904-5734-11
 ;;9002226.02101,"876,00904-5734-51 ",.01)
 ;;00904-5734-51
 ;;9002226.02101,"876,00904-5734-51 ",.02)
 ;;00904-5734-51
 ;;9002226.02101,"876,00904-5735-11 ",.01)
 ;;00904-5735-11
 ;;9002226.02101,"876,00904-5735-11 ",.02)
 ;;00904-5735-11
 ;;9002226.02101,"876,00904-5735-51 ",.01)
 ;;00904-5735-51
 ;;9002226.02101,"876,00904-5735-51 ",.02)
 ;;00904-5735-51
 ;;9002226.02101,"876,00904-5736-11 ",.01)
 ;;00904-5736-11
 ;;9002226.02101,"876,00904-5736-11 ",.02)
 ;;00904-5736-11
 ;;9002226.02101,"876,00904-5736-51 ",.01)
 ;;00904-5736-51
 ;;9002226.02101,"876,00904-5736-51 ",.02)
 ;;00904-5736-51
 ;;9002226.02101,"876,00904-5737-11 ",.01)
 ;;00904-5737-11
 ;;9002226.02101,"876,00904-5737-11 ",.02)
 ;;00904-5737-11
 ;;9002226.02101,"876,00904-5737-51 ",.01)
 ;;00904-5737-51
 ;;9002226.02101,"876,00904-5737-51 ",.02)
 ;;00904-5737-51
 ;;9002226.02101,"876,38779-1456-03 ",.01)
 ;;38779-1456-03
 ;;9002226.02101,"876,38779-1456-03 ",.02)
 ;;38779-1456-03
 ;;9002226.02101,"876,38779-1456-04 ",.01)
 ;;38779-1456-04
 ;;9002226.02101,"876,38779-1456-04 ",.02)
 ;;38779-1456-04
 ;;9002226.02101,"876,38779-1456-05 ",.01)
 ;;38779-1456-05
 ;;9002226.02101,"876,38779-1456-05 ",.02)
 ;;38779-1456-05
 ;;9002226.02101,"876,49452-4467-01 ",.01)
 ;;49452-4467-01
 ;;9002226.02101,"876,49452-4467-01 ",.02)
 ;;49452-4467-01
 ;;9002226.02101,"876,49452-4467-02 ",.01)
 ;;49452-4467-02
 ;;9002226.02101,"876,49452-4467-02 ",.02)
 ;;49452-4467-02
 ;;9002226.02101,"876,49452-4467-04 ",.01)
 ;;49452-4467-04
 ;;9002226.02101,"876,49452-4467-04 ",.02)
 ;;49452-4467-04
 ;;9002226.02101,"876,49452-4866-02 ",.01)
 ;;49452-4866-02
 ;;9002226.02101,"876,49452-4866-02 ",.02)
 ;;49452-4866-02
 ;;9002226.02101,"876,51079-0943-20 ",.01)
 ;;51079-0943-20
 ;;9002226.02101,"876,51079-0943-20 ",.02)
 ;;51079-0943-20
 ;;9002226.02101,"876,51079-0944-20 ",.01)
 ;;51079-0944-20
 ;;9002226.02101,"876,51079-0944-20 ",.02)
 ;;51079-0944-20
 ;;9002226.02101,"876,51552-1009-02 ",.01)
 ;;51552-1009-02
 ;;9002226.02101,"876,51552-1009-02 ",.02)
 ;;51552-1009-02
 ;;9002226.02101,"876,52959-0285-30 ",.01)
 ;;52959-0285-30
 ;;9002226.02101,"876,52959-0285-30 ",.02)
 ;;52959-0285-30
 ;;9002226.02101,"876,52959-0285-60 ",.01)
 ;;52959-0285-60
 ;;9002226.02101,"876,52959-0285-60 ",.02)
 ;;52959-0285-60
 ;;9002226.02101,"876,52959-0655-30 ",.01)
 ;;52959-0655-30
 ;;9002226.02101,"876,52959-0655-30 ",.02)
 ;;52959-0655-30
 ;;9002226.02101,"876,52959-0655-40 ",.01)
 ;;52959-0655-40
 ;;9002226.02101,"876,52959-0655-40 ",.02)
 ;;52959-0655-40
 ;;9002226.02101,"876,54569-4521-01 ",.01)
 ;;54569-4521-01
 ;;9002226.02101,"876,54569-4521-01 ",.02)
 ;;54569-4521-01
 ;;9002226.02101,"876,54569-5340-00 ",.01)
 ;;54569-5340-00
 ;;9002226.02101,"876,54569-5340-00 ",.02)
 ;;54569-5340-00
 ;;9002226.02101,"876,54868-3984-00 ",.01)
 ;;54868-3984-00
 ;;9002226.02101,"876,54868-3984-00 ",.02)
 ;;54868-3984-00
 ;;9002226.02101,"876,54868-3984-01 ",.01)
 ;;54868-3984-01
 ;;9002226.02101,"876,54868-3984-01 ",.02)
 ;;54868-3984-01
 ;;9002226.02101,"876,54868-4505-00 ",.01)
 ;;54868-4505-00
 ;;9002226.02101,"876,54868-4505-00 ",.02)
 ;;54868-4505-00
 ;;9002226.02101,"876,54868-4505-01 ",.01)
 ;;54868-4505-01
 ;;9002226.02101,"876,54868-4505-01 ",.02)
 ;;54868-4505-01
 ;;9002226.02101,"876,54868-4550-00 ",.01)
 ;;54868-4550-00
 ;;9002226.02101,"876,54868-4550-00 ",.02)
 ;;54868-4550-00
 ;;9002226.02101,"876,54868-4550-01 ",.01)
 ;;54868-4550-01
 ;;9002226.02101,"876,54868-4550-01 ",.02)
 ;;54868-4550-01
 ;;9002226.02101,"876,55045-2631-08 ",.01)
 ;;55045-2631-08
 ;;9002226.02101,"876,55045-2631-08 ",.02)
 ;;55045-2631-08
 ;;9002226.02101,"876,55289-0733-30 ",.01)
 ;;55289-0733-30
 ;;9002226.02101,"876,55289-0733-30 ",.02)
 ;;55289-0733-30
 ;;9002226.02101,"876,55887-0663-30 ",.01)
 ;;55887-0663-30
 ;;9002226.02101,"876,55887-0663-30 ",.02)
 ;;55887-0663-30
 ;;9002226.02101,"876,55887-0663-60 ",.01)
 ;;55887-0663-60
 ;;9002226.02101,"876,55887-0663-60 ",.02)
 ;;55887-0663-60
 ;;9002226.02101,"876,55887-0663-90 ",.01)
 ;;55887-0663-90
 ;;9002226.02101,"876,55887-0663-90 ",.02)
 ;;55887-0663-90
 ;;9002226.02101,"876,57866-0901-02 ",.01)
 ;;57866-0901-02
 ;;9002226.02101,"876,57866-0901-02 ",.02)
 ;;57866-0901-02
 ;;9002226.02101,"876,57885-0901-02 ",.01)
 ;;57885-0901-02
 ;;9002226.02101,"876,57885-0901-02 ",.02)
 ;;57885-0901-02
 ;;9002226.02101,"876,58016-0584-00 ",.01)
 ;;58016-0584-00
 ;;9002226.02101,"876,58016-0584-00 ",.02)
 ;;58016-0584-00
 ;;9002226.02101,"876,58016-0584-02 ",.01)
 ;;58016-0584-02
 ;;9002226.02101,"876,58016-0584-02 ",.02)
 ;;58016-0584-02
 ;;9002226.02101,"876,58016-0584-03 ",.01)
 ;;58016-0584-03
 ;;9002226.02101,"876,58016-0584-03 ",.02)
 ;;58016-0584-03
 ;;9002226.02101,"876,58016-0584-10 ",.01)
 ;;58016-0584-10
 ;;9002226.02101,"876,58016-0584-10 ",.02)
 ;;58016-0584-10
 ;;9002226.02101,"876,58016-0584-12 ",.01)
 ;;58016-0584-12
 ;;9002226.02101,"876,58016-0584-12 ",.02)
 ;;58016-0584-12
 ;;9002226.02101,"876,58016-0584-15 ",.01)
 ;;58016-0584-15
 ;;9002226.02101,"876,58016-0584-15 ",.02)
 ;;58016-0584-15
 ;;9002226.02101,"876,58016-0584-20 ",.01)
 ;;58016-0584-20
 ;;9002226.02101,"876,58016-0584-20 ",.02)
 ;;58016-0584-20
 ;;9002226.02101,"876,58016-0584-25 ",.01)
 ;;58016-0584-25
 ;;9002226.02101,"876,58016-0584-25 ",.02)
 ;;58016-0584-25
 ;;9002226.02101,"876,58016-0584-30 ",.01)
 ;;58016-0584-30
 ;;9002226.02101,"876,58016-0584-30 ",.02)
 ;;58016-0584-30
 ;;9002226.02101,"876,58016-0584-40 ",.01)
 ;;58016-0584-40
 ;;9002226.02101,"876,58016-0584-40 ",.02)
 ;;58016-0584-40
 ;;9002226.02101,"876,58016-0584-50 ",.01)
 ;;58016-0584-50
 ;;9002226.02101,"876,58016-0584-50 ",.02)
 ;;58016-0584-50
 ;;9002226.02101,"876,58016-0584-60 ",.01)
 ;;58016-0584-60
 ;;9002226.02101,"876,58016-0584-60 ",.02)
 ;;58016-0584-60
 ;;9002226.02101,"876,58016-0584-70 ",.01)
 ;;58016-0584-70
 ;;9002226.02101,"876,58016-0584-70 ",.02)
 ;;58016-0584-70
 ;;9002226.02101,"876,58016-0584-73 ",.01)
 ;;58016-0584-73
 ;;9002226.02101,"876,58016-0584-73 ",.02)
 ;;58016-0584-73
 ;;9002226.02101,"876,58016-0584-80 ",.01)
 ;;58016-0584-80
 ;;9002226.02101,"876,58016-0584-80 ",.02)
 ;;58016-0584-80
 ;;9002226.02101,"876,58016-0584-89 ",.01)
 ;;58016-0584-89
 ;;9002226.02101,"876,58016-0584-89 ",.02)
 ;;58016-0584-89
 ;;9002226.02101,"876,58016-0584-90 ",.01)
 ;;58016-0584-90
 ;;9002226.02101,"876,58016-0584-90 ",.02)
 ;;58016-0584-90
 ;;9002226.02101,"876,58016-0599-00 ",.01)
 ;;58016-0599-00
 ;;9002226.02101,"876,58016-0599-00 ",.02)
 ;;58016-0599-00
 ;;9002226.02101,"876,58016-0599-30 ",.01)
 ;;58016-0599-30
 ;;9002226.02101,"876,58016-0599-30 ",.02)
 ;;58016-0599-30
 ;;9002226.02101,"876,58016-0599-60 ",.01)
 ;;58016-0599-60
 ;;9002226.02101,"876,58016-0599-60 ",.02)
 ;;58016-0599-60
 ;;9002226.02101,"876,58016-0599-90 ",.01)
 ;;58016-0599-90
 ;;9002226.02101,"876,58016-0599-90 ",.02)
 ;;58016-0599-90
 ;;9002226.02101,"876,58016-0722-00 ",.01)
 ;;58016-0722-00
 ;;9002226.02101,"876,58016-0722-00 ",.02)
 ;;58016-0722-00
 ;;9002226.02101,"876,58016-0722-02 ",.01)
 ;;58016-0722-02
 ;;9002226.02101,"876,58016-0722-02 ",.02)
 ;;58016-0722-02
 ;;9002226.02101,"876,58016-0722-03 ",.01)
 ;;58016-0722-03
 ;;9002226.02101,"876,58016-0722-03 ",.02)
 ;;58016-0722-03
 ;;9002226.02101,"876,58016-0722-20 ",.01)
 ;;58016-0722-20
 ;;9002226.02101,"876,58016-0722-20 ",.02)
 ;;58016-0722-20
 ;;9002226.02101,"876,58016-0722-30 ",.01)
 ;;58016-0722-30
 ;;9002226.02101,"876,58016-0722-30 ",.02)
 ;;58016-0722-30
 ;;9002226.02101,"876,58016-0722-40 ",.01)
 ;;58016-0722-40
 ;;9002226.02101,"876,58016-0722-40 ",.02)
 ;;58016-0722-40
 ;;9002226.02101,"876,58016-0722-50 ",.01)
 ;;58016-0722-50
 ;;9002226.02101,"876,58016-0722-50 ",.02)
 ;;58016-0722-50
 ;;9002226.02101,"876,58016-0722-60 ",.01)
 ;;58016-0722-60
 ;;9002226.02101,"876,58016-0722-60 ",.02)
 ;;58016-0722-60
 ;;9002226.02101,"876,58016-0722-70 ",.01)
 ;;58016-0722-70
 ;;9002226.02101,"876,58016-0722-70 ",.02)
 ;;58016-0722-70
 ;;9002226.02101,"876,58016-0722-73 ",.01)
 ;;58016-0722-73
 ;;9002226.02101,"876,58016-0722-73 ",.02)
 ;;58016-0722-73
 ;;9002226.02101,"876,58016-0722-80 ",.01)
 ;;58016-0722-80
 ;;9002226.02101,"876,58016-0722-80 ",.02)
 ;;58016-0722-80
 ;;9002226.02101,"876,58016-0722-89 ",.01)
 ;;58016-0722-89
 ;;9002226.02101,"876,58016-0722-89 ",.02)
 ;;58016-0722-89
 ;;9002226.02101,"876,58016-0722-90 ",.01)
 ;;58016-0722-90
 ;;9002226.02101,"876,58016-0722-90 ",.02)
 ;;58016-0722-90
 ;;9002226.02101,"876,60429-0746-01 ",.01)
 ;;60429-0746-01
 ;;9002226.02101,"876,60429-0746-01 ",.02)
 ;;60429-0746-01
 ;;9002226.02101,"876,60429-0747-01 ",.01)
 ;;60429-0747-01
 ;;9002226.02101,"876,60429-0747-01 ",.02)
 ;;60429-0747-01
 ;;9002226.02101,"876,60505-0157-05 ",.01)
 ;;60505-0157-05
 ;;9002226.02101,"876,60505-0157-05 ",.02)
 ;;60505-0157-05
 ;;9002226.02101,"876,60505-0157-09 ",.01)
 ;;60505-0157-09
 ;;9002226.02101,"876,60505-0157-09 ",.02)
 ;;60505-0157-09
 ;;9002226.02101,"876,60505-0158-05 ",.01)
 ;;60505-0158-05
 ;;9002226.02101,"876,60505-0158-05 ",.02)
 ;;60505-0158-05
 ;;9002226.02101,"876,60505-0158-09 ",.01)
 ;;60505-0158-09
 ;;9002226.02101,"876,60505-0158-09 ",.02)
 ;;60505-0158-09
 ;;9002226.02101,"876,63739-0317-15 ",.01)
 ;;63739-0317-15
 ;;9002226.02101,"876,63739-0317-15 ",.02)
 ;;63739-0317-15
 ;;9002226.02101,"876,63739-0318-15 ",.01)
 ;;63739-0318-15
 ;;9002226.02101,"876,63739-0318-15 ",.02)
 ;;63739-0318-15
 ;;9002226.02101,"876,63874-0567-30 ",.01)
 ;;63874-0567-30
 ;;9002226.02101,"876,63874-0567-30 ",.02)
 ;;63874-0567-30
 ;;9002226.02101,"876,63874-0567-60 ",.01)
 ;;63874-0567-60
 ;;9002226.02101,"876,63874-0567-60 ",.02)
 ;;63874-0567-60
 ;;9002226.02101,"876,63874-0616-30 ",.01)
 ;;63874-0616-30
 ;;9002226.02101,"876,63874-0616-30 ",.02)
 ;;63874-0616-30
 ;;9002226.02101,"876,63874-0616-60 ",.01)
 ;;63874-0616-60
 ;;9002226.02101,"876,63874-0616-60 ",.02)
 ;;63874-0616-60
 ;;9002226.02101,"876,63874-0780-20 ",.01)
 ;;63874-0780-20
 ;;9002226.02101,"876,63874-0780-20 ",.02)
 ;;63874-0780-20
 ;;9002226.02101,"876,66105-0480-06 ",.01)
 ;;66105-0480-06
 ;;9002226.02101,"876,66105-0480-06 ",.02)
 ;;66105-0480-06
 ;;9002226.02101,"876,66105-0481-06 ",.01)
 ;;66105-0481-06
 ;;9002226.02101,"876,66105-0481-06 ",.02)
 ;;66105-0481-06
 ;;9002226.02101,"876,66267-0614-30 ",.01)
 ;;66267-0614-30
 ;;9002226.02101,"876,66267-0614-30 ",.02)
 ;;66267-0614-30
 ;;9002226.02101,"876,68115-0884-00 ",.01)
 ;;68115-0884-00
 ;;9002226.02101,"876,68115-0884-00 ",.02)
 ;;68115-0884-00
 ;;9002226.02101,"876,68115-0901-60 ",.01)
 ;;68115-0901-60
 ;;9002226.02101,"876,68115-0901-60 ",.02)
 ;;68115-0901-60