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

BGP7GXOG.m

Go to the documentation of this file.
BGP7GXOG ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 25, 2006 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
 ;
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,"634,50428-3037-19 ",.01)
 ;;50428-3037-19
 ;;9002226.02101,"634,50428-3037-19 ",.02)
 ;;50428-3037-19
 ;;9002226.02101,"634,50428-8641-99 ",.01)
 ;;50428-8641-99
 ;;9002226.02101,"634,50428-8641-99 ",.02)
 ;;50428-8641-99
 ;;9002226.02101,"634,50580-0843-10 ",.01)
 ;;50580-0843-10
 ;;9002226.02101,"634,50580-0843-10 ",.02)
 ;;50580-0843-10
 ;;9002226.02101,"634,50580-0843-13 ",.01)
 ;;50580-0843-13
 ;;9002226.02101,"634,50580-0843-13 ",.02)
 ;;50580-0843-13
 ;;9002226.02101,"634,50580-0843-24 ",.01)
 ;;50580-0843-24
 ;;9002226.02101,"634,50580-0843-24 ",.02)
 ;;50580-0843-24
 ;;9002226.02101,"634,50580-0843-25 ",.01)
 ;;50580-0843-25
 ;;9002226.02101,"634,50580-0843-25 ",.02)
 ;;50580-0843-25
 ;;9002226.02101,"634,50580-0843-48 ",.01)
 ;;50580-0843-48
 ;;9002226.02101,"634,50580-0843-48 ",.02)
 ;;50580-0843-48
 ;;9002226.02101,"634,50580-0843-72 ",.01)
 ;;50580-0843-72
 ;;9002226.02101,"634,50580-0843-72 ",.02)
 ;;50580-0843-72
 ;;9002226.02101,"634,50732-0600-01 ",.01)
 ;;50732-0600-01
 ;;9002226.02101,"634,50732-0600-01 ",.02)
 ;;50732-0600-01
 ;;9002226.02101,"634,50732-0600-10 ",.01)
 ;;50732-0600-10
 ;;9002226.02101,"634,50732-0600-10 ",.02)
 ;;50732-0600-10
 ;;9002226.02101,"634,50732-0685-01 ",.01)
 ;;50732-0685-01
 ;;9002226.02101,"634,50732-0685-01 ",.02)
 ;;50732-0685-01
 ;;9002226.02101,"634,50732-0685-10 ",.01)
 ;;50732-0685-10
 ;;9002226.02101,"634,50732-0685-10 ",.02)
 ;;50732-0685-10
 ;;9002226.02101,"634,50732-0686-01 ",.01)
 ;;50732-0686-01
 ;;9002226.02101,"634,50732-0686-01 ",.02)
 ;;50732-0686-01
 ;;9002226.02101,"634,50732-0686-10 ",.01)
 ;;50732-0686-10
 ;;9002226.02101,"634,50732-0686-10 ",.02)
 ;;50732-0686-10
 ;;9002226.02101,"634,50732-0687-01 ",.01)
 ;;50732-0687-01
 ;;9002226.02101,"634,50732-0687-01 ",.02)
 ;;50732-0687-01
 ;;9002226.02101,"634,50732-0687-10 ",.01)
 ;;50732-0687-10
 ;;9002226.02101,"634,50732-0687-10 ",.02)
 ;;50732-0687-10
 ;;9002226.02101,"634,50844-0189-12 ",.01)
 ;;50844-0189-12
 ;;9002226.02101,"634,50844-0189-12 ",.02)
 ;;50844-0189-12
 ;;9002226.02101,"634,50844-0189-15 ",.01)
 ;;50844-0189-15
 ;;9002226.02101,"634,50844-0189-15 ",.02)
 ;;50844-0189-15
 ;;9002226.02101,"634,50844-0189-23 ",.01)
 ;;50844-0189-23
 ;;9002226.02101,"634,50844-0189-23 ",.02)
 ;;50844-0189-23
 ;;9002226.02101,"634,50844-0233-23 ",.01)
 ;;50844-0233-23
 ;;9002226.02101,"634,50844-0233-23 ",.02)
 ;;50844-0233-23
 ;;9002226.02101,"634,51079-0092-19 ",.01)
 ;;51079-0092-19
 ;;9002226.02101,"634,51079-0092-19 ",.02)
 ;;51079-0092-19
 ;;9002226.02101,"634,51079-0584-20 ",.01)
 ;;51079-0584-20
 ;;9002226.02101,"634,51079-0584-20 ",.02)
 ;;51079-0584-20
 ;;9002226.02101,"634,51079-0585-20 ",.01)
 ;;51079-0585-20
 ;;9002226.02101,"634,51079-0585-20 ",.02)
 ;;51079-0585-20
 ;;9002226.02101,"634,51432-0185-03 ",.01)
 ;;51432-0185-03
 ;;9002226.02101,"634,51432-0185-03 ",.02)
 ;;51432-0185-03
 ;;9002226.02101,"634,51432-0185-05 ",.01)
 ;;51432-0185-05
 ;;9002226.02101,"634,51432-0185-05 ",.02)
 ;;51432-0185-05
 ;;9002226.02101,"634,51432-0187-03 ",.01)
 ;;51432-0187-03
 ;;9002226.02101,"634,51432-0187-03 ",.02)
 ;;51432-0187-03
 ;;9002226.02101,"634,51432-0187-05 ",.01)
 ;;51432-0187-05
 ;;9002226.02101,"634,51432-0187-05 ",.02)
 ;;51432-0187-05
 ;;9002226.02101,"634,51432-0276-03 ",.01)
 ;;51432-0276-03
 ;;9002226.02101,"634,51432-0276-03 ",.02)
 ;;51432-0276-03
 ;;9002226.02101,"634,51432-0276-05 ",.01)
 ;;51432-0276-05
 ;;9002226.02101,"634,51432-0276-05 ",.02)
 ;;51432-0276-05
 ;;9002226.02101,"634,51432-0278-03 ",.01)
 ;;51432-0278-03
 ;;9002226.02101,"634,51432-0278-03 ",.02)
 ;;51432-0278-03
 ;;9002226.02101,"634,51432-0278-05 ",.01)
 ;;51432-0278-05
 ;;9002226.02101,"634,51432-0278-05 ",.02)
 ;;51432-0278-05
 ;;9002226.02101,"634,51479-0029-06 ",.01)
 ;;51479-0029-06
 ;;9002226.02101,"634,51479-0029-06 ",.02)
 ;;51479-0029-06
 ;;9002226.02101,"634,51479-0029-47 ",.01)
 ;;51479-0029-47
 ;;9002226.02101,"634,51479-0029-47 ",.02)
 ;;51479-0029-47
 ;;9002226.02101,"634,51655-0141-25 ",.01)
 ;;51655-0141-25
 ;;9002226.02101,"634,51655-0141-25 ",.02)
 ;;51655-0141-25
 ;;9002226.02101,"634,51655-0576-27 ",.01)
 ;;51655-0576-27
 ;;9002226.02101,"634,51655-0576-27 ",.02)
 ;;51655-0576-27
 ;;9002226.02101,"634,51655-0576-30 ",.01)
 ;;51655-0576-30
 ;;9002226.02101,"634,51655-0576-30 ",.02)
 ;;51655-0576-30
 ;;9002226.02101,"634,51655-0825-24 ",.01)
 ;;51655-0825-24
 ;;9002226.02101,"634,51655-0825-24 ",.02)
 ;;51655-0825-24
 ;;9002226.02101,"634,51655-0842-24 ",.01)
 ;;51655-0842-24
 ;;9002226.02101,"634,51655-0842-24 ",.02)
 ;;51655-0842-24
 ;;9002226.02101,"634,51655-0842-25 ",.01)
 ;;51655-0842-25
 ;;9002226.02101,"634,51655-0842-25 ",.02)
 ;;51655-0842-25
 ;;9002226.02101,"634,52544-0469-60 ",.01)
 ;;52544-0469-60
 ;;9002226.02101,"634,52544-0469-60 ",.02)
 ;;52544-0469-60
 ;;9002226.02101,"634,52544-0470-30 ",.01)
 ;;52544-0470-30
 ;;9002226.02101,"634,52544-0470-30 ",.02)
 ;;52544-0470-30
 ;;9002226.02101,"634,52555-0303-01 ",.01)
 ;;52555-0303-01
 ;;9002226.02101,"634,52555-0303-01 ",.02)
 ;;52555-0303-01
 ;;9002226.02101,"634,52555-0304-01 ",.01)
 ;;52555-0304-01
 ;;9002226.02101,"634,52555-0304-01 ",.02)
 ;;52555-0304-01
 ;;9002226.02101,"634,52569-0001-22 ",.01)
 ;;52569-0001-22
 ;;9002226.02101,"634,52569-0001-22 ",.02)
 ;;52569-0001-22
 ;;9002226.02101,"634,52735-0713-04 ",.01)
 ;;52735-0713-04
 ;;9002226.02101,"634,52735-0713-04 ",.02)
 ;;52735-0713-04
 ;;9002226.02101,"634,52735-0926-05 ",.01)
 ;;52735-0926-05
 ;;9002226.02101,"634,52735-0926-05 ",.02)
 ;;52735-0926-05
 ;;9002226.02101,"634,52959-0099-90 ",.01)
 ;;52959-0099-90
 ;;9002226.02101,"634,52959-0099-90 ",.02)
 ;;52959-0099-90
 ;;9002226.02101,"634,52959-0143-00 ",.01)
 ;;52959-0143-00
 ;;9002226.02101,"634,52959-0143-00 ",.02)
 ;;52959-0143-00
 ;;9002226.02101,"634,52959-0146-00 ",.01)
 ;;52959-0146-00
 ;;9002226.02101,"634,52959-0146-00 ",.02)
 ;;52959-0146-00
 ;;9002226.02101,"634,52959-0167-10 ",.01)
 ;;52959-0167-10
 ;;9002226.02101,"634,52959-0167-10 ",.02)
 ;;52959-0167-10
 ;;9002226.02101,"634,52959-0236-14 ",.01)
 ;;52959-0236-14
 ;;9002226.02101,"634,52959-0236-14 ",.02)
 ;;52959-0236-14
 ;;9002226.02101,"634,52959-0236-15 ",.01)
 ;;52959-0236-15
 ;;9002226.02101,"634,52959-0236-15 ",.02)
 ;;52959-0236-15
 ;;9002226.02101,"634,52959-0236-20 ",.01)
 ;;52959-0236-20
 ;;9002226.02101,"634,52959-0236-20 ",.02)
 ;;52959-0236-20
 ;;9002226.02101,"634,52959-0404-14 ",.01)
 ;;52959-0404-14
 ;;9002226.02101,"634,52959-0404-14 ",.02)
 ;;52959-0404-14
 ;;9002226.02101,"634,52959-0405-14 ",.01)
 ;;52959-0405-14
 ;;9002226.02101,"634,52959-0405-14 ",.02)
 ;;52959-0405-14
 ;;9002226.02101,"634,52959-0405-20 ",.01)
 ;;52959-0405-20
 ;;9002226.02101,"634,52959-0405-20 ",.02)
 ;;52959-0405-20
 ;;9002226.02101,"634,52959-0405-21 ",.01)
 ;;52959-0405-21
 ;;9002226.02101,"634,52959-0405-21 ",.02)
 ;;52959-0405-21
 ;;9002226.02101,"634,52959-0406-30 ",.01)
 ;;52959-0406-30
 ;;9002226.02101,"634,52959-0406-30 ",.02)
 ;;52959-0406-30
 ;;9002226.02101,"634,53191-0289-01 ",.01)
 ;;53191-0289-01
 ;;9002226.02101,"634,53191-0289-01 ",.02)
 ;;53191-0289-01
 ;;9002226.02101,"634,53191-0289-10 ",.01)
 ;;53191-0289-10
 ;;9002226.02101,"634,53191-0289-10 ",.02)
 ;;53191-0289-10
 ;;9002226.02101,"634,53191-0290-01 ",.01)
 ;;53191-0290-01
 ;;9002226.02101,"634,53191-0290-01 ",.02)
 ;;53191-0290-01
 ;;9002226.02101,"634,53191-0290-10 ",.01)
 ;;53191-0290-10
 ;;9002226.02101,"634,53191-0290-10 ",.02)
 ;;53191-0290-10
 ;;9002226.02101,"634,53191-0291-01 ",.01)
 ;;53191-0291-01
 ;;9002226.02101,"634,53191-0291-01 ",.02)
 ;;53191-0291-01
 ;;9002226.02101,"634,53191-0291-10 ",.01)
 ;;53191-0291-10
 ;;9002226.02101,"634,53191-0291-10 ",.02)
 ;;53191-0291-10
 ;;9002226.02101,"634,53191-0292-01 ",.01)
 ;;53191-0292-01
 ;;9002226.02101,"634,53191-0292-01 ",.02)
 ;;53191-0292-01
 ;;9002226.02101,"634,53191-0292-10 ",.01)
 ;;53191-0292-10
 ;;9002226.02101,"634,53191-0292-10 ",.02)
 ;;53191-0292-10
 ;;9002226.02101,"634,53191-0293-01 ",.01)
 ;;53191-0293-01
 ;;9002226.02101,"634,53191-0293-01 ",.02)
 ;;53191-0293-01
 ;;9002226.02101,"634,53191-0293-10 ",.01)
 ;;53191-0293-10
 ;;9002226.02101,"634,53191-0293-10 ",.02)
 ;;53191-0293-10
 ;;9002226.02101,"634,53191-0294-01 ",.01)
 ;;53191-0294-01
 ;;9002226.02101,"634,53191-0294-01 ",.02)
 ;;53191-0294-01
 ;;9002226.02101,"634,53191-0294-10 ",.01)
 ;;53191-0294-10
 ;;9002226.02101,"634,53191-0294-10 ",.02)
 ;;53191-0294-10
 ;;9002226.02101,"634,53191-0296-01 ",.01)
 ;;53191-0296-01
 ;;9002226.02101,"634,53191-0296-01 ",.02)
 ;;53191-0296-01
 ;;9002226.02101,"634,53191-0296-10 ",.01)
 ;;53191-0296-10
 ;;9002226.02101,"634,53191-0296-10 ",.02)
 ;;53191-0296-10
 ;;9002226.02101,"634,53191-0297-01 ",.01)
 ;;53191-0297-01
 ;;9002226.02101,"634,53191-0297-01 ",.02)
 ;;53191-0297-01
 ;;9002226.02101,"634,53191-0297-10 ",.01)
 ;;53191-0297-10
 ;;9002226.02101,"634,53191-0297-10 ",.02)
 ;;53191-0297-10
 ;;9002226.02101,"634,53191-0298-01 ",.01)
 ;;53191-0298-01
 ;;9002226.02101,"634,53191-0298-01 ",.02)
 ;;53191-0298-01
 ;;9002226.02101,"634,53191-0298-10 ",.01)
 ;;53191-0298-10
 ;;9002226.02101,"634,53191-0298-10 ",.02)
 ;;53191-0298-10
 ;;9002226.02101,"634,53445-0572-01 ",.01)
 ;;53445-0572-01
 ;;9002226.02101,"634,53445-0572-01 ",.02)
 ;;53445-0572-01
 ;;9002226.02101,"634,53445-0573-01 ",.01)
 ;;53445-0573-01
 ;;9002226.02101,"634,53445-0573-01 ",.02)
 ;;53445-0573-01
 ;;9002226.02101,"634,53723-2903-01 ",.01)
 ;;53723-2903-01
 ;;9002226.02101,"634,53723-2903-01 ",.02)
 ;;53723-2903-01
 ;;9002226.02101,"634,54257-0714-14 ",.01)
 ;;54257-0714-14
 ;;9002226.02101,"634,54257-0714-14 ",.02)
 ;;54257-0714-14
 ;;9002226.02101,"634,54257-0714-17 ",.01)
 ;;54257-0714-17
 ;;9002226.02101,"634,54257-0714-17 ",.02)
 ;;54257-0714-17
 ;;9002226.02101,"634,54257-0765-15 ",.01)
 ;;54257-0765-15
 ;;9002226.02101,"634,54257-0765-15 ",.02)
 ;;54257-0765-15
 ;;9002226.02101,"634,54274-0026-10 ",.01)
 ;;54274-0026-10
 ;;9002226.02101,"634,54274-0026-10 ",.02)
 ;;54274-0026-10
 ;;9002226.02101,"634,54274-0026-30 ",.01)
 ;;54274-0026-30
 ;;9002226.02101,"634,54274-0026-30 ",.02)
 ;;54274-0026-30
 ;;9002226.02101,"634,54274-0064-10 ",.01)
 ;;54274-0064-10
 ;;9002226.02101,"634,54274-0064-10 ",.02)
 ;;54274-0064-10
 ;;9002226.02101,"634,54274-0064-30 ",.01)
 ;;54274-0064-30
 ;;9002226.02101,"634,54274-0064-30 ",.02)
 ;;54274-0064-30
 ;;9002226.02101,"634,54274-0406-10 ",.01)
 ;;54274-0406-10
 ;;9002226.02101,"634,54274-0406-10 ",.02)
 ;;54274-0406-10
 ;;9002226.02101,"634,54274-0406-30 ",.01)
 ;;54274-0406-30
 ;;9002226.02101,"634,54274-0406-30 ",.02)
 ;;54274-0406-30
 ;;9002226.02101,"634,54274-0407-10 ",.01)
 ;;54274-0407-10
 ;;9002226.02101,"634,54274-0407-10 ",.02)
 ;;54274-0407-10
 ;;9002226.02101,"634,54274-0407-30 ",.01)
 ;;54274-0407-30
 ;;9002226.02101,"634,54274-0407-30 ",.02)
 ;;54274-0407-30
 ;;9002226.02101,"634,54396-0110-60 ",.01)
 ;;54396-0110-60
 ;;9002226.02101,"634,54396-0110-60 ",.02)
 ;;54396-0110-60
 ;;9002226.02101,"634,54396-0111-11 ",.01)
 ;;54396-0111-11
 ;;9002226.02101,"634,54396-0111-11 ",.02)
 ;;54396-0111-11
 ;;9002226.02101,"634,54396-0328-16 ",.01)
 ;;54396-0328-16
 ;;9002226.02101,"634,54396-0328-16 ",.02)
 ;;54396-0328-16
 ;;9002226.02101,"634,54396-0328-40 ",.01)
 ;;54396-0328-40
 ;;9002226.02101,"634,54396-0328-40 ",.02)
 ;;54396-0328-40
 ;;9002226.02101,"634,54499-0258-16 ",.01)
 ;;54499-0258-16
 ;;9002226.02101,"634,54499-0258-16 ",.02)
 ;;54499-0258-16
 ;;9002226.02101,"634,54569-0181-00 ",.01)
 ;;54569-0181-00
 ;;9002226.02101,"634,54569-0181-00 ",.02)
 ;;54569-0181-00
 ;;9002226.02101,"634,54569-0181-01 ",.01)
 ;;54569-0181-01
 ;;9002226.02101,"634,54569-0181-01 ",.02)
 ;;54569-0181-01
 ;;9002226.02101,"634,54569-0181-02 ",.01)
 ;;54569-0181-02
 ;;9002226.02101,"634,54569-0181-02 ",.02)
 ;;54569-0181-02
 ;;9002226.02101,"634,54569-0181-04 ",.01)
 ;;54569-0181-04
 ;;9002226.02101,"634,54569-0181-04 ",.02)
 ;;54569-0181-04
 ;;9002226.02101,"634,54569-0841-00 ",.01)
 ;;54569-0841-00
 ;;9002226.02101,"634,54569-0841-00 ",.02)
 ;;54569-0841-00
 ;;9002226.02101,"634,54569-0843-04 ",.01)
 ;;54569-0843-04
 ;;9002226.02101,"634,54569-0843-04 ",.02)
 ;;54569-0843-04
 ;;9002226.02101,"634,54569-0898-00 ",.01)
 ;;54569-0898-00
 ;;9002226.02101,"634,54569-0898-00 ",.02)
 ;;54569-0898-00
 ;;9002226.02101,"634,54569-0898-02 ",.01)
 ;;54569-0898-02
 ;;9002226.02101,"634,54569-0898-02 ",.02)
 ;;54569-0898-02
 ;;9002226.02101,"634,54569-0898-04 ",.01)
 ;;54569-0898-04
 ;;9002226.02101,"634,54569-0898-04 ",.02)
 ;;54569-0898-04
 ;;9002226.02101,"634,54569-0917-00 ",.01)
 ;;54569-0917-00
 ;;9002226.02101,"634,54569-0917-00 ",.02)
 ;;54569-0917-00
 ;;9002226.02101,"634,54569-0918-00 ",.01)
 ;;54569-0918-00
 ;;9002226.02101,"634,54569-0918-00 ",.02)
 ;;54569-0918-00
 ;;9002226.02101,"634,54569-0919-00 ",.01)
 ;;54569-0919-00
 ;;9002226.02101,"634,54569-0919-00 ",.02)
 ;;54569-0919-00
 ;;9002226.02101,"634,54569-0920-00 ",.01)
 ;;54569-0920-00
 ;;9002226.02101,"634,54569-0920-00 ",.02)
 ;;54569-0920-00
 ;;9002226.02101,"634,54569-1969-00 ",.01)
 ;;54569-1969-00
 ;;9002226.02101,"634,54569-1969-00 ",.02)
 ;;54569-1969-00
 ;;9002226.02101,"634,54569-1969-01 ",.01)
 ;;54569-1969-01
 ;;9002226.02101,"634,54569-1969-01 ",.02)
 ;;54569-1969-01
 ;;9002226.02101,"634,54569-1969-02 ",.01)
 ;;54569-1969-02
 ;;9002226.02101,"634,54569-1969-02 ",.02)
 ;;54569-1969-02