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

BGP8IXVB.m

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