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

BGP8FXAB.m

Go to the documentation of this file.
BGP8FXAB ; 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,"636,00078-0376-15 ",.02)
 ;;00078-0376-15
 ;;9002226.02101,"636,00078-0383-05 ",.01)
 ;;00078-0383-05
 ;;9002226.02101,"636,00078-0383-05 ",.02)
 ;;00078-0383-05
 ;;9002226.02101,"636,00078-0383-06 ",.01)
 ;;00078-0383-06
 ;;9002226.02101,"636,00078-0383-06 ",.02)
 ;;00078-0383-06
 ;;9002226.02101,"636,00078-0383-34 ",.01)
 ;;00078-0383-34
 ;;9002226.02101,"636,00078-0383-34 ",.02)
 ;;00078-0383-34
 ;;9002226.02101,"636,00078-0423-06 ",.01)
 ;;00078-0423-06
 ;;9002226.02101,"636,00078-0423-06 ",.02)
 ;;00078-0423-06
 ;;9002226.02101,"636,00078-0423-15 ",.01)
 ;;00078-0423-15
 ;;9002226.02101,"636,00078-0423-15 ",.02)
 ;;00078-0423-15
 ;;9002226.02101,"636,00078-0471-34 ",.01)
 ;;00078-0471-34
 ;;9002226.02101,"636,00078-0471-34 ",.02)
 ;;00078-0471-34
 ;;9002226.02101,"636,00078-0472-34 ",.01)
 ;;00078-0472-34
 ;;9002226.02101,"636,00078-0472-34 ",.02)
 ;;00078-0472-34
 ;;9002226.02101,"636,00083-4000-01 ",.01)
 ;;00083-4000-01
 ;;9002226.02101,"636,00083-4000-01 ",.02)
 ;;00083-4000-01
 ;;9002226.02101,"636,00083-4000-41 ",.01)
 ;;00083-4000-41
 ;;9002226.02101,"636,00083-4000-41 ",.02)
 ;;00083-4000-41
 ;;9002226.02101,"636,00083-4000-61 ",.01)
 ;;00083-4000-61
 ;;9002226.02101,"636,00083-4000-61 ",.02)
 ;;00083-4000-61
 ;;9002226.02101,"636,00083-4001-01 ",.01)
 ;;00083-4001-01
 ;;9002226.02101,"636,00083-4001-01 ",.02)
 ;;00083-4001-01
 ;;9002226.02101,"636,00083-4001-41 ",.01)
 ;;00083-4001-41
 ;;9002226.02101,"636,00083-4001-41 ",.02)
 ;;00083-4001-41
 ;;9002226.02101,"636,00083-4001-61 ",.01)
 ;;00083-4001-61
 ;;9002226.02101,"636,00083-4001-61 ",.02)
 ;;00083-4001-61
 ;;9002226.02101,"636,00087-2771-31 ",.01)
 ;;00087-2771-31
 ;;9002226.02101,"636,00087-2771-31 ",.02)
 ;;00087-2771-31
 ;;9002226.02101,"636,00087-2771-32 ",.01)
 ;;00087-2771-32
 ;;9002226.02101,"636,00087-2771-32 ",.02)
 ;;00087-2771-32
 ;;9002226.02101,"636,00087-2772-15 ",.01)
 ;;00087-2772-15
 ;;9002226.02101,"636,00087-2772-15 ",.02)
 ;;00087-2772-15
 ;;9002226.02101,"636,00087-2772-31 ",.01)
 ;;00087-2772-31
 ;;9002226.02101,"636,00087-2772-31 ",.02)
 ;;00087-2772-31
 ;;9002226.02101,"636,00087-2772-32 ",.01)
 ;;00087-2772-32
 ;;9002226.02101,"636,00087-2772-32 ",.02)
 ;;00087-2772-32
 ;;9002226.02101,"636,00087-2772-35 ",.01)
 ;;00087-2772-35
 ;;9002226.02101,"636,00087-2772-35 ",.02)
 ;;00087-2772-35
 ;;9002226.02101,"636,00087-2773-15 ",.01)
 ;;00087-2773-15
 ;;9002226.02101,"636,00087-2773-15 ",.02)
 ;;00087-2773-15
 ;;9002226.02101,"636,00087-2773-31 ",.01)
 ;;00087-2773-31
 ;;9002226.02101,"636,00087-2773-31 ",.02)
 ;;00087-2773-31
 ;;9002226.02101,"636,00087-2773-32 ",.01)
 ;;00087-2773-32
 ;;9002226.02101,"636,00087-2773-32 ",.02)
 ;;00087-2773-32
 ;;9002226.02101,"636,00087-2773-35 ",.01)
 ;;00087-2773-35
 ;;9002226.02101,"636,00087-2773-35 ",.02)
 ;;00087-2773-35
 ;;9002226.02101,"636,00087-2775-31 ",.01)
 ;;00087-2775-31
 ;;9002226.02101,"636,00087-2775-31 ",.02)
 ;;00087-2775-31
 ;;9002226.02101,"636,00087-2775-32 ",.01)
 ;;00087-2775-32
 ;;9002226.02101,"636,00087-2775-32 ",.02)
 ;;00087-2775-32
 ;;9002226.02101,"636,00087-2776-31 ",.01)
 ;;00087-2776-31
 ;;9002226.02101,"636,00087-2776-31 ",.02)
 ;;00087-2776-31
 ;;9002226.02101,"636,00087-2776-32 ",.01)
 ;;00087-2776-32
 ;;9002226.02101,"636,00087-2776-32 ",.02)
 ;;00087-2776-32
 ;;9002226.02101,"636,00087-2788-31 ",.01)
 ;;00087-2788-31
 ;;9002226.02101,"636,00087-2788-31 ",.02)
 ;;00087-2788-31
 ;;9002226.02101,"636,00087-2788-32 ",.01)
 ;;00087-2788-32
 ;;9002226.02101,"636,00087-2788-32 ",.02)
 ;;00087-2788-32
 ;;9002226.02101,"636,00182-0322-54 ",.01)
 ;;00182-0322-54
 ;;9002226.02101,"636,00182-0322-54 ",.02)
 ;;00182-0322-54
 ;;9002226.02101,"636,00186-0004-31 ",.01)
 ;;00186-0004-31
 ;;9002226.02101,"636,00186-0004-31 ",.02)
 ;;00186-0004-31
 ;;9002226.02101,"636,00186-0008-31 ",.01)
 ;;00186-0008-31
 ;;9002226.02101,"636,00186-0008-31 ",.02)
 ;;00186-0008-31
 ;;9002226.02101,"636,00186-0016-28 ",.01)
 ;;00186-0016-28
 ;;9002226.02101,"636,00186-0016-28 ",.02)
 ;;00186-0016-28
 ;;9002226.02101,"636,00186-0016-31 ",.01)
 ;;00186-0016-31
 ;;9002226.02101,"636,00186-0016-31 ",.02)
 ;;00186-0016-31
 ;;9002226.02101,"636,00186-0016-54 ",.01)
 ;;00186-0016-54
 ;;9002226.02101,"636,00186-0016-54 ",.02)
 ;;00186-0016-54
 ;;9002226.02101,"636,00186-0032-28 ",.01)
 ;;00186-0032-28
 ;;9002226.02101,"636,00186-0032-28 ",.02)
 ;;00186-0032-28
 ;;9002226.02101,"636,00186-0032-31 ",.01)
 ;;00186-0032-31
 ;;9002226.02101,"636,00186-0032-31 ",.02)
 ;;00186-0032-31
 ;;9002226.02101,"636,00186-0032-54 ",.01)
 ;;00186-0032-54
 ;;9002226.02101,"636,00186-0032-54 ",.02)
 ;;00186-0032-54
 ;;9002226.02101,"636,00186-0162-28 ",.01)
 ;;00186-0162-28
 ;;9002226.02101,"636,00186-0162-28 ",.02)
 ;;00186-0162-28
 ;;9002226.02101,"636,00186-0162-54 ",.01)
 ;;00186-0162-54
 ;;9002226.02101,"636,00186-0162-54 ",.02)
 ;;00186-0162-54
 ;;9002226.02101,"636,00186-0322-28 ",.01)
 ;;00186-0322-28
 ;;9002226.02101,"636,00186-0322-28 ",.02)
 ;;00186-0322-28
 ;;9002226.02101,"636,00186-0322-54 ",.01)
 ;;00186-0322-54
 ;;9002226.02101,"636,00186-0322-54 ",.02)
 ;;00186-0322-54
 ;;9002226.02101,"636,00597-0039-28 ",.01)
 ;;00597-0039-28
 ;;9002226.02101,"636,00597-0039-28 ",.02)
 ;;00597-0039-28
 ;;9002226.02101,"636,00597-0039-37 ",.01)
 ;;00597-0039-37
 ;;9002226.02101,"636,00597-0039-37 ",.02)
 ;;00597-0039-37
 ;;9002226.02101,"636,00597-0040-28 ",.01)
 ;;00597-0040-28
 ;;9002226.02101,"636,00597-0040-28 ",.02)
 ;;00597-0040-28
 ;;9002226.02101,"636,00597-0040-37 ",.01)
 ;;00597-0040-37
 ;;9002226.02101,"636,00597-0040-37 ",.02)
 ;;00597-0040-37
 ;;9002226.02101,"636,00597-0041-28 ",.01)
 ;;00597-0041-28
 ;;9002226.02101,"636,00597-0041-28 ",.02)
 ;;00597-0041-28
 ;;9002226.02101,"636,00597-0041-37 ",.01)
 ;;00597-0041-37
 ;;9002226.02101,"636,00597-0041-37 ",.02)
 ;;00597-0041-37
 ;;9002226.02101,"636,00597-0042-28 ",.01)
 ;;00597-0042-28
 ;;9002226.02101,"636,00597-0042-28 ",.02)
 ;;00597-0042-28
 ;;9002226.02101,"636,00597-0042-37 ",.01)
 ;;00597-0042-37
 ;;9002226.02101,"636,00597-0042-37 ",.02)
 ;;00597-0042-37
 ;;9002226.02101,"636,00597-0043-28 ",.01)
 ;;00597-0043-28
 ;;9002226.02101,"636,00597-0043-28 ",.02)
 ;;00597-0043-28
 ;;9002226.02101,"636,00597-0043-37 ",.01)
 ;;00597-0043-37
 ;;9002226.02101,"636,00597-0043-37 ",.02)
 ;;00597-0043-37
 ;;9002226.02101,"636,00597-0044-28 ",.01)
 ;;00597-0044-28
 ;;9002226.02101,"636,00597-0044-28 ",.02)
 ;;00597-0044-28
 ;;9002226.02101,"636,00597-0044-37 ",.01)
 ;;00597-0044-37
 ;;9002226.02101,"636,00597-0044-37 ",.02)
 ;;00597-0044-37
 ;;9002226.02101,"636,12280-0005-90 ",.01)
 ;;12280-0005-90
 ;;9002226.02101,"636,12280-0005-90 ",.02)
 ;;12280-0005-90
 ;;9002226.02101,"636,12280-0008-90 ",.01)
 ;;12280-0008-90
 ;;9002226.02101,"636,12280-0008-90 ",.02)
 ;;12280-0008-90
 ;;9002226.02101,"636,12280-0009-90 ",.01)
 ;;12280-0009-90
 ;;9002226.02101,"636,12280-0009-90 ",.02)
 ;;12280-0009-90
 ;;9002226.02101,"636,12280-0063-90 ",.01)
 ;;12280-0063-90
 ;;9002226.02101,"636,12280-0063-90 ",.02)
 ;;12280-0063-90
 ;;9002226.02101,"636,12280-0066-30 ",.01)
 ;;12280-0066-30
 ;;9002226.02101,"636,12280-0066-30 ",.02)
 ;;12280-0066-30
 ;;9002226.02101,"636,12280-0067-90 ",.01)
 ;;12280-0067-90
 ;;9002226.02101,"636,12280-0067-90 ",.02)
 ;;12280-0067-90
 ;;9002226.02101,"636,12280-0168-30 ",.01)
 ;;12280-0168-30
 ;;9002226.02101,"636,12280-0168-30 ",.02)
 ;;12280-0168-30
 ;;9002226.02101,"636,54569-4437-00 ",.01)
 ;;54569-4437-00
 ;;9002226.02101,"636,54569-4437-00 ",.02)
 ;;54569-4437-00
 ;;9002226.02101,"636,54569-4438-00 ",.01)
 ;;54569-4438-00
 ;;9002226.02101,"636,54569-4438-00 ",.02)
 ;;54569-4438-00
 ;;9002226.02101,"636,54569-4572-00 ",.01)
 ;;54569-4572-00
 ;;9002226.02101,"636,54569-4572-00 ",.02)
 ;;54569-4572-00
 ;;9002226.02101,"636,54569-4697-00 ",.01)
 ;;54569-4697-00
 ;;9002226.02101,"636,54569-4697-00 ",.02)
 ;;54569-4697-00
 ;;9002226.02101,"636,54569-4698-00 ",.01)
 ;;54569-4698-00
 ;;9002226.02101,"636,54569-4698-00 ",.02)
 ;;54569-4698-00
 ;;9002226.02101,"636,54569-4714-00 ",.01)
 ;;54569-4714-00
 ;;9002226.02101,"636,54569-4714-00 ",.02)
 ;;54569-4714-00
 ;;9002226.02101,"636,54569-4719-00 ",.01)
 ;;54569-4719-00
 ;;9002226.02101,"636,54569-4719-00 ",.02)
 ;;54569-4719-00
 ;;9002226.02101,"636,54569-4719-01 ",.01)
 ;;54569-4719-01
 ;;9002226.02101,"636,54569-4719-01 ",.02)
 ;;54569-4719-01
 ;;9002226.02101,"636,54569-4722-00 ",.01)
 ;;54569-4722-00
 ;;9002226.02101,"636,54569-4722-00 ",.02)
 ;;54569-4722-00
 ;;9002226.02101,"636,54569-4722-01 ",.01)
 ;;54569-4722-01
 ;;9002226.02101,"636,54569-4722-01 ",.02)
 ;;54569-4722-01
 ;;9002226.02101,"636,54569-4766-00 ",.01)
 ;;54569-4766-00
 ;;9002226.02101,"636,54569-4766-00 ",.02)
 ;;54569-4766-00
 ;;9002226.02101,"636,54569-4767-00 ",.01)
 ;;54569-4767-00
 ;;9002226.02101,"636,54569-4767-00 ",.02)
 ;;54569-4767-00
 ;;9002226.02101,"636,54569-4895-00 ",.01)
 ;;54569-4895-00
 ;;9002226.02101,"636,54569-4895-00 ",.02)
 ;;54569-4895-00
 ;;9002226.02101,"636,54868-2335-00 ",.01)
 ;;54868-2335-00
 ;;9002226.02101,"636,54868-2335-00 ",.02)
 ;;54868-2335-00
 ;;9002226.02101,"636,54868-3726-00 ",.01)
 ;;54868-3726-00
 ;;9002226.02101,"636,54868-3726-00 ",.02)
 ;;54868-3726-00
 ;;9002226.02101,"636,54868-3726-01 ",.01)
 ;;54868-3726-01
 ;;9002226.02101,"636,54868-3726-01 ",.02)
 ;;54868-3726-01
 ;;9002226.02101,"636,54868-3866-00 ",.01)
 ;;54868-3866-00
 ;;9002226.02101,"636,54868-3866-00 ",.02)
 ;;54868-3866-00
 ;;9002226.02101,"636,54868-3866-01 ",.01)
 ;;54868-3866-01
 ;;9002226.02101,"636,54868-3866-01 ",.02)
 ;;54868-3866-01
 ;;9002226.02101,"636,54868-4341-00 ",.01)
 ;;54868-4341-00
 ;;9002226.02101,"636,54868-4341-00 ",.02)
 ;;54868-4341-00
 ;;9002226.02101,"636,54868-4341-01 ",.01)
 ;;54868-4341-01
 ;;9002226.02101,"636,54868-4341-01 ",.02)
 ;;54868-4341-01
 ;;9002226.02101,"636,54868-4645-01 ",.01)
 ;;54868-4645-01
 ;;9002226.02101,"636,54868-4645-01 ",.02)
 ;;54868-4645-01
 ;;9002226.02101,"636,54868-4645-02 ",.01)
 ;;54868-4645-02
 ;;9002226.02101,"636,54868-4645-02 ",.02)
 ;;54868-4645-02
 ;;9002226.02101,"636,54868-4652-00 ",.01)
 ;;54868-4652-00
 ;;9002226.02101,"636,54868-4652-00 ",.02)
 ;;54868-4652-00
 ;;9002226.02101,"636,54868-4652-01 ",.01)
 ;;54868-4652-01
 ;;9002226.02101,"636,54868-4652-01 ",.02)
 ;;54868-4652-01
 ;;9002226.02101,"636,54868-4652-02 ",.01)
 ;;54868-4652-02
 ;;9002226.02101,"636,54868-4652-02 ",.02)
 ;;54868-4652-02
 ;;9002226.02101,"636,54868-5077-00 ",.01)
 ;;54868-5077-00
 ;;9002226.02101,"636,54868-5077-00 ",.02)
 ;;54868-5077-00
 ;;9002226.02101,"636,54868-5082-00 ",.01)
 ;;54868-5082-00
 ;;9002226.02101,"636,54868-5082-00 ",.02)
 ;;54868-5082-00
 ;;9002226.02101,"636,55045-3401-08 ",.01)
 ;;55045-3401-08
 ;;9002226.02101,"636,55045-3401-08 ",.02)
 ;;55045-3401-08
 ;;9002226.02101,"636,55887-0432-30 ",.01)
 ;;55887-0432-30
 ;;9002226.02101,"636,55887-0432-30 ",.02)
 ;;55887-0432-30
 ;;9002226.02101,"636,55887-0432-60 ",.01)
 ;;55887-0432-60
 ;;9002226.02101,"636,55887-0432-60 ",.02)
 ;;55887-0432-60
 ;;9002226.02101,"636,55887-0432-90 ",.01)
 ;;55887-0432-90
 ;;9002226.02101,"636,55887-0432-90 ",.02)
 ;;55887-0432-90
 ;;9002226.02101,"636,58016-0053-00 ",.01)
 ;;58016-0053-00
 ;;9002226.02101,"636,58016-0053-00 ",.02)
 ;;58016-0053-00
 ;;9002226.02101,"636,58016-0053-30 ",.01)
 ;;58016-0053-30
 ;;9002226.02101,"636,58016-0053-30 ",.02)
 ;;58016-0053-30
 ;;9002226.02101,"636,58016-0053-60 ",.01)
 ;;58016-0053-60
 ;;9002226.02101,"636,58016-0053-60 ",.02)
 ;;58016-0053-60
 ;;9002226.02101,"636,58016-0053-90 ",.01)
 ;;58016-0053-90
 ;;9002226.02101,"636,58016-0053-90 ",.02)
 ;;58016-0053-90
 ;;9002226.02101,"636,58016-0066-00 ",.01)
 ;;58016-0066-00
 ;;9002226.02101,"636,58016-0066-00 ",.02)
 ;;58016-0066-00
 ;;9002226.02101,"636,58016-0066-30 ",.01)
 ;;58016-0066-30
 ;;9002226.02101,"636,58016-0066-30 ",.02)
 ;;58016-0066-30
 ;;9002226.02101,"636,58016-0066-60 ",.01)
 ;;58016-0066-60
 ;;9002226.02101,"636,58016-0066-60 ",.02)
 ;;58016-0066-60
 ;;9002226.02101,"636,58016-0066-90 ",.01)
 ;;58016-0066-90
 ;;9002226.02101,"636,58016-0066-90 ",.02)
 ;;58016-0066-90
 ;;9002226.02101,"636,58016-4631-01 ",.01)
 ;;58016-4631-01
 ;;9002226.02101,"636,58016-4631-01 ",.02)
 ;;58016-4631-01
 ;;9002226.02101,"636,58864-0659-30 ",.01)
 ;;58864-0659-30
 ;;9002226.02101,"636,58864-0659-30 ",.02)
 ;;58864-0659-30
 ;;9002226.02101,"636,58864-0662-30 ",.01)
 ;;58864-0662-30
 ;;9002226.02101,"636,58864-0662-30 ",.02)
 ;;58864-0662-30
 ;;9002226.02101,"636,58864-0807-30 ",.01)
 ;;58864-0807-30
 ;;9002226.02101,"636,58864-0807-30 ",.02)
 ;;58864-0807-30
 ;;9002226.02101,"636,60598-0080-01 ",.01)
 ;;60598-0080-01
 ;;9002226.02101,"636,60598-0080-01 ",.02)
 ;;60598-0080-01
 ;;9002226.02101,"636,60598-0081-01 ",.01)
 ;;60598-0081-01
 ;;9002226.02101,"636,60598-0081-01 ",.02)
 ;;60598-0081-01
 ;;9002226.02101,"636,60598-0100-01 ",.01)
 ;;60598-0100-01
 ;;9002226.02101,"636,60598-0100-01 ",.02)
 ;;60598-0100-01
 ;;9002226.02101,"636,60598-0101-01 ",.01)
 ;;60598-0101-01
 ;;9002226.02101,"636,60598-0101-01 ",.02)
 ;;60598-0101-01
 ;;9002226.02101,"636,64455-0130-01 ",.01)
 ;;64455-0130-01
 ;;9002226.02101,"636,64455-0130-01 ",.02)
 ;;64455-0130-01
 ;;9002226.02101,"636,64455-0131-01 ",.01)
 ;;64455-0131-01
 ;;9002226.02101,"636,64455-0131-01 ",.02)
 ;;64455-0131-01
 ;;9002226.02101,"636,64455-0132-01 ",.01)
 ;;64455-0132-01
 ;;9002226.02101,"636,64455-0132-01 ",.02)
 ;;64455-0132-01