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

BGP8FXNC.m

Go to the documentation of this file.
BGP8FXNC ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 28, 2007 ;
 ;;8.0;IHS CLINICAL REPORTING;;MAR 12, 2008
 ;;;BGP6;;SEP 28, 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,00591-3250-01 ",.02)
 ;;00591-3250-01
 ;;9002226.02101,"634,00591-3253-01 ",.01)
 ;;00591-3253-01
 ;;9002226.02101,"634,00591-3253-01 ",.02)
 ;;00591-3253-01
 ;;9002226.02101,"634,00591-3254-01 ",.01)
 ;;00591-3254-01
 ;;9002226.02101,"634,00591-3254-01 ",.02)
 ;;00591-3254-01
 ;;9002226.02101,"634,00603-4776-21 ",.01)
 ;;00603-4776-21
 ;;9002226.02101,"634,00603-4776-21 ",.02)
 ;;00603-4776-21
 ;;9002226.02101,"634,00603-4777-21 ",.01)
 ;;00603-4777-21
 ;;9002226.02101,"634,00603-4777-21 ",.02)
 ;;00603-4777-21
 ;;9002226.02101,"634,00603-6045-32 ",.01)
 ;;00603-6045-32
 ;;9002226.02101,"634,00603-6045-32 ",.02)
 ;;00603-6045-32
 ;;9002226.02101,"634,00603-6046-32 ",.01)
 ;;00603-6046-32
 ;;9002226.02101,"634,00603-6046-32 ",.02)
 ;;00603-6046-32
 ;;9002226.02101,"634,00603-6047-32 ",.01)
 ;;00603-6047-32
 ;;9002226.02101,"634,00603-6047-32 ",.02)
 ;;00603-6047-32
 ;;9002226.02101,"634,00603-6048-32 ",.01)
 ;;00603-6048-32
 ;;9002226.02101,"634,00603-6048-32 ",.02)
 ;;00603-6048-32
 ;;9002226.02101,"634,00603-6050-21 ",.01)
 ;;00603-6050-21
 ;;9002226.02101,"634,00603-6050-21 ",.02)
 ;;00603-6050-21
 ;;9002226.02101,"634,00603-6051-21 ",.01)
 ;;00603-6051-21
 ;;9002226.02101,"634,00603-6051-21 ",.02)
 ;;00603-6051-21
 ;;9002226.02101,"634,00603-6051-32 ",.01)
 ;;00603-6051-32
 ;;9002226.02101,"634,00603-6051-32 ",.02)
 ;;00603-6051-32
 ;;9002226.02101,"634,00603-6052-21 ",.01)
 ;;00603-6052-21
 ;;9002226.02101,"634,00603-6052-21 ",.02)
 ;;00603-6052-21
 ;;9002226.02101,"634,00603-6052-32 ",.01)
 ;;00603-6052-32
 ;;9002226.02101,"634,00603-6052-32 ",.02)
 ;;00603-6052-32
 ;;9002226.02101,"634,00603-6053-21 ",.01)
 ;;00603-6053-21
 ;;9002226.02101,"634,00603-6053-21 ",.02)
 ;;00603-6053-21
 ;;9002226.02101,"634,00603-6053-32 ",.01)
 ;;00603-6053-32
 ;;9002226.02101,"634,00603-6053-32 ",.02)
 ;;00603-6053-32
 ;;9002226.02101,"634,00603-6054-21 ",.01)
 ;;00603-6054-21
 ;;9002226.02101,"634,00603-6054-21 ",.02)
 ;;00603-6054-21
 ;;9002226.02101,"634,00603-6054-32 ",.01)
 ;;00603-6054-32
 ;;9002226.02101,"634,00603-6054-32 ",.02)
 ;;00603-6054-32
 ;;9002226.02101,"634,00603-6055-21 ",.01)
 ;;00603-6055-21
 ;;9002226.02101,"634,00603-6055-21 ",.02)
 ;;00603-6055-21
 ;;9002226.02101,"634,00603-6055-32 ",.01)
 ;;00603-6055-32
 ;;9002226.02101,"634,00603-6055-32 ",.02)
 ;;00603-6055-32
 ;;9002226.02101,"634,00603-6056-21 ",.01)
 ;;00603-6056-21
 ;;9002226.02101,"634,00603-6056-21 ",.02)
 ;;00603-6056-21
 ;;9002226.02101,"634,00603-6057-21 ",.01)
 ;;00603-6057-21
 ;;9002226.02101,"634,00603-6057-21 ",.02)
 ;;00603-6057-21
 ;;9002226.02101,"634,00615-1308-13 ",.01)
 ;;00615-1308-13
 ;;9002226.02101,"634,00615-1308-13 ",.02)
 ;;00615-1308-13
 ;;9002226.02101,"634,00677-1657-10 ",.01)
 ;;00677-1657-10
 ;;9002226.02101,"634,00677-1657-10 ",.02)
 ;;00677-1657-10
 ;;9002226.02101,"634,00677-1658-10 ",.01)
 ;;00677-1658-10
 ;;9002226.02101,"634,00677-1658-10 ",.02)
 ;;00677-1658-10
 ;;9002226.02101,"634,00677-1659-10 ",.01)
 ;;00677-1659-10
 ;;9002226.02101,"634,00677-1659-10 ",.02)
 ;;00677-1659-10
 ;;9002226.02101,"634,00781-2502-01 ",.01)
 ;;00781-2502-01
 ;;9002226.02101,"634,00781-2502-01 ",.02)
 ;;00781-2502-01
 ;;9002226.02101,"634,00781-2502-05 ",.01)
 ;;00781-2502-05
 ;;9002226.02101,"634,00781-2502-05 ",.02)
 ;;00781-2502-05
 ;;9002226.02101,"634,00781-2502-10 ",.01)
 ;;00781-2502-10
 ;;9002226.02101,"634,00781-2502-10 ",.02)
 ;;00781-2502-10
 ;;9002226.02101,"634,00781-2503-01 ",.01)
 ;;00781-2503-01
 ;;9002226.02101,"634,00781-2503-01 ",.02)
 ;;00781-2503-01
 ;;9002226.02101,"634,00839-1217-06 ",.01)
 ;;00839-1217-06
 ;;9002226.02101,"634,00839-1217-06 ",.02)
 ;;00839-1217-06
 ;;9002226.02101,"634,00839-1217-16 ",.01)
 ;;00839-1217-16
 ;;9002226.02101,"634,00839-1217-16 ",.02)
 ;;00839-1217-16
 ;;9002226.02101,"634,00839-1672-16 ",.01)
 ;;00839-1672-16
 ;;9002226.02101,"634,00839-1672-16 ",.02)
 ;;00839-1672-16
 ;;9002226.02101,"634,00839-5041-16 ",.01)
 ;;00839-5041-16
 ;;9002226.02101,"634,00839-5041-16 ",.02)
 ;;00839-5041-16
 ;;9002226.02101,"634,00839-6027-06 ",.01)
 ;;00839-6027-06
 ;;9002226.02101,"634,00839-6027-06 ",.02)
 ;;00839-6027-06
 ;;9002226.02101,"634,00839-6027-16 ",.01)
 ;;00839-6027-16
 ;;9002226.02101,"634,00839-6027-16 ",.02)
 ;;00839-6027-16
 ;;9002226.02101,"634,00839-7518-06 ",.01)
 ;;00839-7518-06
 ;;9002226.02101,"634,00839-7518-06 ",.02)
 ;;00839-7518-06
 ;;9002226.02101,"634,00839-7518-12 ",.01)
 ;;00839-7518-12
 ;;9002226.02101,"634,00839-7518-12 ",.02)
 ;;00839-7518-12
 ;;9002226.02101,"634,00839-7519-06 ",.01)
 ;;00839-7519-06
 ;;9002226.02101,"634,00839-7519-06 ",.02)
 ;;00839-7519-06
 ;;9002226.02101,"634,00839-7519-12 ",.01)
 ;;00839-7519-12
 ;;9002226.02101,"634,00839-7519-12 ",.02)
 ;;00839-7519-12
 ;;9002226.02101,"634,00839-7931-06 ",.01)
 ;;00839-7931-06
 ;;9002226.02101,"634,00839-7931-06 ",.02)
 ;;00839-7931-06
 ;;9002226.02101,"634,00839-7931-16 ",.01)
 ;;00839-7931-16
 ;;9002226.02101,"634,00839-7931-16 ",.02)
 ;;00839-7931-16
 ;;9002226.02101,"634,00904-0761-60 ",.01)
 ;;00904-0761-60
 ;;9002226.02101,"634,00904-0761-60 ",.02)
 ;;00904-0761-60
 ;;9002226.02101,"634,00904-0761-80 ",.01)
 ;;00904-0761-80
 ;;9002226.02101,"634,00904-0761-80 ",.02)
 ;;00904-0761-80
 ;;9002226.02101,"634,00904-0762-60 ",.01)
 ;;00904-0762-60
 ;;9002226.02101,"634,00904-0762-60 ",.02)
 ;;00904-0762-60
 ;;9002226.02101,"634,00904-0762-80 ",.01)
 ;;00904-0762-80
 ;;9002226.02101,"634,00904-0762-80 ",.02)
 ;;00904-0762-80
 ;;9002226.02101,"634,00904-0763-60 ",.01)
 ;;00904-0763-60
 ;;9002226.02101,"634,00904-0763-60 ",.02)
 ;;00904-0763-60
 ;;9002226.02101,"634,00904-0763-80 ",.01)
 ;;00904-0763-80
 ;;9002226.02101,"634,00904-0763-80 ",.02)
 ;;00904-0763-80
 ;;9002226.02101,"634,00904-0808-60 ",.01)
 ;;00904-0808-60
 ;;9002226.02101,"634,00904-0808-60 ",.02)
 ;;00904-0808-60
 ;;9002226.02101,"634,00904-0809-60 ",.01)
 ;;00904-0809-60
 ;;9002226.02101,"634,00904-0809-60 ",.02)
 ;;00904-0809-60
 ;;9002226.02101,"634,00904-0809-80 ",.01)
 ;;00904-0809-80
 ;;9002226.02101,"634,00904-0809-80 ",.02)
 ;;00904-0809-80
 ;;9002226.02101,"634,00904-7721-40 ",.01)
 ;;00904-7721-40
 ;;9002226.02101,"634,00904-7721-40 ",.02)
 ;;00904-7721-40
 ;;9002226.02101,"634,00904-7721-60 ",.01)
 ;;00904-7721-60
 ;;9002226.02101,"634,00904-7721-60 ",.02)
 ;;00904-7721-60
 ;;9002226.02101,"634,00904-7722-40 ",.01)
 ;;00904-7722-40
 ;;9002226.02101,"634,00904-7722-40 ",.02)
 ;;00904-7722-40
 ;;9002226.02101,"634,00904-7722-60 ",.01)
 ;;00904-7722-60
 ;;9002226.02101,"634,00904-7722-60 ",.02)
 ;;00904-7722-60
 ;;9002226.02101,"634,00904-7865-60 ",.01)
 ;;00904-7865-60
 ;;9002226.02101,"634,00904-7865-60 ",.02)
 ;;00904-7865-60
 ;;9002226.02101,"634,00904-7865-80 ",.01)
 ;;00904-7865-80
 ;;9002226.02101,"634,00904-7865-80 ",.02)
 ;;00904-7865-80
 ;;9002226.02101,"634,12280-0130-00 ",.01)
 ;;12280-0130-00
 ;;9002226.02101,"634,12280-0130-00 ",.02)
 ;;12280-0130-00
 ;;9002226.02101,"634,12280-0131-00 ",.01)
 ;;12280-0131-00
 ;;9002226.02101,"634,12280-0131-00 ",.02)
 ;;12280-0131-00
 ;;9002226.02101,"634,12280-0204-00 ",.01)
 ;;12280-0204-00
 ;;9002226.02101,"634,12280-0204-00 ",.02)
 ;;12280-0204-00
 ;;9002226.02101,"634,49483-0021-01 ",.01)
 ;;49483-0021-01
 ;;9002226.02101,"634,49483-0021-01 ",.02)
 ;;49483-0021-01
 ;;9002226.02101,"634,49483-0021-10 ",.01)
 ;;49483-0021-10
 ;;9002226.02101,"634,49483-0021-10 ",.02)
 ;;49483-0021-10
 ;;9002226.02101,"634,49483-0022-01 ",.01)
 ;;49483-0022-01
 ;;9002226.02101,"634,49483-0022-01 ",.02)
 ;;49483-0022-01
 ;;9002226.02101,"634,49483-0022-10 ",.01)
 ;;49483-0022-10
 ;;9002226.02101,"634,49483-0022-10 ",.02)
 ;;49483-0022-10
 ;;9002226.02101,"634,49483-0023-01 ",.01)
 ;;49483-0023-01
 ;;9002226.02101,"634,49483-0023-01 ",.02)
 ;;49483-0023-01
 ;;9002226.02101,"634,49483-0023-10 ",.01)
 ;;49483-0023-10
 ;;9002226.02101,"634,49483-0023-10 ",.02)
 ;;49483-0023-10
 ;;9002226.02101,"634,49483-0038-01 ",.01)
 ;;49483-0038-01
 ;;9002226.02101,"634,49483-0038-01 ",.02)
 ;;49483-0038-01
 ;;9002226.02101,"634,49483-0038-10 ",.01)
 ;;49483-0038-10
 ;;9002226.02101,"634,49483-0038-10 ",.02)
 ;;49483-0038-10
 ;;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,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,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-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,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-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
 ;;9002226.02101,"634,54569-3179-03 ",.01)
 ;;54569-3179-03
 ;;9002226.02101,"634,54569-3179-03 ",.02)
 ;;54569-3179-03
 ;;9002226.02101,"634,54569-3179-04 ",.01)
 ;;54569-3179-04
 ;;9002226.02101,"634,54569-3179-04 ",.02)
 ;;54569-3179-04
 ;;9002226.02101,"634,54569-3180-00 ",.01)
 ;;54569-3180-00
 ;;9002226.02101,"634,54569-3180-00 ",.02)
 ;;54569-3180-00