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

BGP7GXOE.m

Go to the documentation of this file.
BGP7GXOE ; 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,00456-0462-01 ",.01)
 ;;00456-0462-01
 ;;9002226.02101,"634,00456-0462-01 ",.02)
 ;;00456-0462-01
 ;;9002226.02101,"634,00456-0463-01 ",.01)
 ;;00456-0463-01
 ;;9002226.02101,"634,00456-0463-01 ",.02)
 ;;00456-0463-01
 ;;9002226.02101,"634,00456-0464-01 ",.01)
 ;;00456-0464-01
 ;;9002226.02101,"634,00456-0464-01 ",.02)
 ;;00456-0464-01
 ;;9002226.02101,"634,00456-0604-10 ",.01)
 ;;00456-0604-10
 ;;9002226.02101,"634,00456-0604-10 ",.02)
 ;;00456-0604-10
 ;;9002226.02101,"634,00456-1019-10 ",.01)
 ;;00456-1019-10
 ;;9002226.02101,"634,00456-1019-10 ",.02)
 ;;00456-1019-10
 ;;9002226.02101,"634,00463-1068-10 ",.01)
 ;;00463-1068-10
 ;;9002226.02101,"634,00463-1068-10 ",.02)
 ;;00463-1068-10
 ;;9002226.02101,"634,00463-1069-10 ",.01)
 ;;00463-1069-10
 ;;9002226.02101,"634,00463-1069-10 ",.02)
 ;;00463-1069-10
 ;;9002226.02101,"634,00463-1070-10 ",.01)
 ;;00463-1070-10
 ;;9002226.02101,"634,00463-1070-10 ",.02)
 ;;00463-1070-10
 ;;9002226.02101,"634,00463-1073-10 ",.01)
 ;;00463-1073-10
 ;;9002226.02101,"634,00463-1073-10 ",.02)
 ;;00463-1073-10
 ;;9002226.02101,"634,00463-6199-10 ",.01)
 ;;00463-6199-10
 ;;9002226.02101,"634,00463-6199-10 ",.02)
 ;;00463-6199-10
 ;;9002226.02101,"634,00463-6201-10 ",.01)
 ;;00463-6201-10
 ;;9002226.02101,"634,00463-6201-10 ",.02)
 ;;00463-6201-10
 ;;9002226.02101,"634,00463-6203-10 ",.01)
 ;;00463-6203-10
 ;;9002226.02101,"634,00463-6203-10 ",.02)
 ;;00463-6203-10
 ;;9002226.02101,"634,00536-1670-70 ",.01)
 ;;00536-1670-70
 ;;9002226.02101,"634,00536-1670-70 ",.02)
 ;;00536-1670-70
 ;;9002226.02101,"634,00536-4702-10 ",.01)
 ;;00536-4702-10
 ;;9002226.02101,"634,00536-4702-10 ",.02)
 ;;00536-4702-10
 ;;9002226.02101,"634,00536-5618-01 ",.01)
 ;;00536-5618-01
 ;;9002226.02101,"634,00536-5618-01 ",.02)
 ;;00536-5618-01
 ;;9002226.02101,"634,00536-5619-01 ",.01)
 ;;00536-5619-01
 ;;9002226.02101,"634,00536-5619-01 ",.02)
 ;;00536-5619-01
 ;;9002226.02101,"634,00536-8900-70 ",.01)
 ;;00536-8900-70
 ;;9002226.02101,"634,00536-8900-70 ",.02)
 ;;00536-8900-70
 ;;9002226.02101,"634,00536-9480-70 ",.01)
 ;;00536-9480-70
 ;;9002226.02101,"634,00536-9480-70 ",.02)
 ;;00536-9480-70
 ;;9002226.02101,"634,00556-0200-01 ",.01)
 ;;00556-0200-01
 ;;9002226.02101,"634,00556-0200-01 ",.02)
 ;;00556-0200-01
 ;;9002226.02101,"634,00556-0200-05 ",.01)
 ;;00556-0200-05
 ;;9002226.02101,"634,00556-0200-05 ",.02)
 ;;00556-0200-05
 ;;9002226.02101,"634,00556-0296-01 ",.01)
 ;;00556-0296-01
 ;;9002226.02101,"634,00556-0296-01 ",.02)
 ;;00556-0296-01
 ;;9002226.02101,"634,00556-0296-05 ",.01)
 ;;00556-0296-05
 ;;9002226.02101,"634,00556-0296-05 ",.02)
 ;;00556-0296-05
 ;;9002226.02101,"634,00573-3412-25 ",.01)
 ;;00573-3412-25
 ;;9002226.02101,"634,00573-3412-25 ",.02)
 ;;00573-3412-25
 ;;9002226.02101,"634,00591-2186-53 ",.01)
 ;;00591-2186-53
 ;;9002226.02101,"634,00591-2186-53 ",.02)
 ;;00591-2186-53
 ;;9002226.02101,"634,00591-3221-26 ",.01)
 ;;00591-3221-26
 ;;9002226.02101,"634,00591-3221-26 ",.02)
 ;;00591-3221-26
 ;;9002226.02101,"634,00591-3223-79 ",.01)
 ;;00591-3223-79
 ;;9002226.02101,"634,00591-3223-79 ",.02)
 ;;00591-3223-79
 ;;9002226.02101,"634,00591-3250-01 ",.01)
 ;;00591-3250-01
 ;;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,00591-5381-03 ",.01)
 ;;00591-5381-03
 ;;9002226.02101,"634,00591-5381-03 ",.02)
 ;;00591-5381-03
 ;;9002226.02101,"634,00591-5382-03 ",.01)
 ;;00591-5382-03
 ;;9002226.02101,"634,00591-5382-03 ",.02)
 ;;00591-5382-03
 ;;9002226.02101,"634,00591-5614-01 ",.01)
 ;;00591-5614-01
 ;;9002226.02101,"634,00591-5614-01 ",.02)
 ;;00591-5614-01
 ;;9002226.02101,"634,00591-5614-03 ",.01)
 ;;00591-5614-03
 ;;9002226.02101,"634,00591-5614-03 ",.02)
 ;;00591-5614-03
 ;;9002226.02101,"634,00591-5615-01 ",.01)
 ;;00591-5615-01
 ;;9002226.02101,"634,00591-5615-01 ",.02)
 ;;00591-5615-01
 ;;9002226.02101,"634,00591-5615-03 ",.01)
 ;;00591-5615-03
 ;;9002226.02101,"634,00591-5615-03 ",.02)
 ;;00591-5615-03
 ;;9002226.02101,"634,00591-5658-03 ",.01)
 ;;00591-5658-03
 ;;9002226.02101,"634,00591-5658-03 ",.02)
 ;;00591-5658-03
 ;;9002226.02101,"634,00591-6717-47 ",.01)
 ;;00591-6717-47
 ;;9002226.02101,"634,00591-6717-47 ",.02)
 ;;00591-6717-47
 ;;9002226.02101,"634,00598-3093-23 ",.01)
 ;;00598-3093-23
 ;;9002226.02101,"634,00598-3093-23 ",.02)
 ;;00598-3093-23
 ;;9002226.02101,"634,00603-3691-28 ",.01)
 ;;00603-3691-28
 ;;9002226.02101,"634,00603-3691-28 ",.02)
 ;;00603-3691-28
 ;;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,00615-3520-29 ",.01)
 ;;00615-3520-29
 ;;9002226.02101,"634,00615-3520-29 ",.02)
 ;;00615-3520-29
 ;;9002226.02101,"634,00615-3520-65 ",.01)
 ;;00615-3520-65
 ;;9002226.02101,"634,00615-3520-65 ",.02)
 ;;00615-3520-65
 ;;9002226.02101,"634,00672-0161-72 ",.01)
 ;;00672-0161-72
 ;;9002226.02101,"634,00672-0161-72 ",.02)
 ;;00672-0161-72
 ;;9002226.02101,"634,00675-2364-07 ",.01)
 ;;00675-2364-07
 ;;9002226.02101,"634,00675-2364-07 ",.02)
 ;;00675-2364-07
 ;;9002226.02101,"634,00675-2364-10 ",.01)
 ;;00675-2364-10
 ;;9002226.02101,"634,00675-2364-10 ",.02)
 ;;00675-2364-10
 ;;9002226.02101,"634,00675-2365-07 ",.01)
 ;;00675-2365-07
 ;;9002226.02101,"634,00675-2365-07 ",.02)
 ;;00675-2365-07
 ;;9002226.02101,"634,00675-2365-10 ",.01)
 ;;00675-2365-10
 ;;9002226.02101,"634,00675-2365-10 ",.02)
 ;;00675-2365-10
 ;;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,00731-0302-52 ",.01)
 ;;00731-0302-52
 ;;9002226.02101,"634,00731-0302-52 ",.02)
 ;;00731-0302-52
 ;;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,00781-3093-70 ",.01)
 ;;00781-3093-70
 ;;9002226.02101,"634,00781-3093-70 ",.02)
 ;;00781-3093-70
 ;;9002226.02101,"634,00781-3096-70 ",.01)
 ;;00781-3096-70
 ;;9002226.02101,"634,00781-3096-70 ",.02)
 ;;00781-3096-70
 ;;9002226.02101,"634,00781-3097-70 ",.01)
 ;;00781-3097-70
 ;;9002226.02101,"634,00781-3097-70 ",.02)
 ;;00781-3097-70
 ;;9002226.02101,"634,00781-3102-70 ",.01)
 ;;00781-3102-70
 ;;9002226.02101,"634,00781-3102-70 ",.02)
 ;;00781-3102-70
 ;;9002226.02101,"634,00781-3105-70 ",.01)
 ;;00781-3105-70
 ;;9002226.02101,"634,00781-3105-70 ",.02)
 ;;00781-3105-70
 ;;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-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-7566-06 ",.01)
 ;;00839-7566-06
 ;;9002226.02101,"634,00839-7566-06 ",.02)
 ;;00839-7566-06
 ;;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,00879-0533-01 ",.01)
 ;;00879-0533-01
 ;;9002226.02101,"634,00879-0533-01 ",.02)
 ;;00879-0533-01
 ;;9002226.02101,"634,00879-0533-05 ",.01)
 ;;00879-0533-05
 ;;9002226.02101,"634,00879-0533-05 ",.02)
 ;;00879-0533-05
 ;;9002226.02101,"634,00879-0534-01 ",.01)
 ;;00879-0534-01
 ;;9002226.02101,"634,00879-0534-01 ",.02)
 ;;00879-0534-01
 ;;9002226.02101,"634,00879-0534-05 ",.01)
 ;;00879-0534-05
 ;;9002226.02101,"634,00879-0534-05 ",.02)
 ;;00879-0534-05
 ;;9002226.02101,"634,00894-0143-30 ",.01)
 ;;00894-0143-30
 ;;9002226.02101,"634,00894-0143-30 ",.02)
 ;;00894-0143-30
 ;;9002226.02101,"634,00894-0161-72 ",.01)
 ;;00894-0161-72
 ;;9002226.02101,"634,00894-0161-72 ",.02)
 ;;00894-0161-72
 ;;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-0868-10 ",.01)
 ;;00904-0868-10
 ;;9002226.02101,"634,00904-0868-10 ",.02)
 ;;00904-0868-10
 ;;9002226.02101,"634,00904-0872-10 ",.01)
 ;;00904-0872-10
 ;;9002226.02101,"634,00904-0872-10 ",.02)
 ;;00904-0872-10
 ;;9002226.02101,"634,00904-0875-10 ",.01)
 ;;00904-0875-10
 ;;9002226.02101,"634,00904-0875-10 ",.02)
 ;;00904-0875-10
 ;;9002226.02101,"634,00904-0876-10 ",.01)
 ;;00904-0876-10
 ;;9002226.02101,"634,00904-0876-10 ",.02)
 ;;00904-0876-10
 ;;9002226.02101,"634,00904-1196-98 ",.01)
 ;;00904-1196-98
 ;;9002226.02101,"634,00904-1196-98 ",.02)
 ;;00904-1196-98
 ;;9002226.02101,"634,00904-1206-05 ",.01)
 ;;00904-1206-05
 ;;9002226.02101,"634,00904-1206-05 ",.02)
 ;;00904-1206-05
 ;;9002226.02101,"634,00904-1206-98 ",.01)
 ;;00904-1206-98
 ;;9002226.02101,"634,00904-1206-98 ",.02)
 ;;00904-1206-98
 ;;9002226.02101,"634,00904-1207-05 ",.01)
 ;;00904-1207-05
 ;;9002226.02101,"634,00904-1207-05 ",.02)
 ;;00904-1207-05