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

BGPM5BC.m

Go to the documentation of this file.
  1. BGPM5BC ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  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,"1044,23490505006 ",.02)
  1. ;;23490505006
  1. ;;9002226.02101,"1044,23490505008 ",.01)
  1. ;;23490505008
  1. ;;9002226.02101,"1044,23490505008 ",.02)
  1. ;;23490505008
  1. ;;9002226.02101,"1044,23490505009 ",.01)
  1. ;;23490505009
  1. ;;9002226.02101,"1044,23490505009 ",.02)
  1. ;;23490505009
  1. ;;9002226.02101,"1044,23490505101 ",.01)
  1. ;;23490505101
  1. ;;9002226.02101,"1044,23490505101 ",.02)
  1. ;;23490505101
  1. ;;9002226.02101,"1044,23490505102 ",.01)
  1. ;;23490505102
  1. ;;9002226.02101,"1044,23490505102 ",.02)
  1. ;;23490505102
  1. ;;9002226.02101,"1044,23490505103 ",.01)
  1. ;;23490505103
  1. ;;9002226.02101,"1044,23490505103 ",.02)
  1. ;;23490505103
  1. ;;9002226.02101,"1044,23490505203 ",.01)
  1. ;;23490505203
  1. ;;9002226.02101,"1044,23490505203 ",.02)
  1. ;;23490505203
  1. ;;9002226.02101,"1044,23490560103 ",.01)
  1. ;;23490560103
  1. ;;9002226.02101,"1044,23490560103 ",.02)
  1. ;;23490560103
  1. ;;9002226.02101,"1044,23490560201 ",.01)
  1. ;;23490560201
  1. ;;9002226.02101,"1044,23490560201 ",.02)
  1. ;;23490560201
  1. ;;9002226.02101,"1044,23490560202 ",.01)
  1. ;;23490560202
  1. ;;9002226.02101,"1044,23490560202 ",.02)
  1. ;;23490560202
  1. ;;9002226.02101,"1044,23490560203 ",.01)
  1. ;;23490560203
  1. ;;9002226.02101,"1044,23490560203 ",.02)
  1. ;;23490560203
  1. ;;9002226.02101,"1044,23490601901 ",.01)
  1. ;;23490601901
  1. ;;9002226.02101,"1044,23490601901 ",.02)
  1. ;;23490601901
  1. ;;9002226.02101,"1044,23490601902 ",.01)
  1. ;;23490601902
  1. ;;9002226.02101,"1044,23490601902 ",.02)
  1. ;;23490601902
  1. ;;9002226.02101,"1044,23490601903 ",.01)
  1. ;;23490601903
  1. ;;9002226.02101,"1044,23490601903 ",.02)
  1. ;;23490601903
  1. ;;9002226.02101,"1044,23490601904 ",.01)
  1. ;;23490601904
  1. ;;9002226.02101,"1044,23490601904 ",.02)
  1. ;;23490601904
  1. ;;9002226.02101,"1044,23490602001 ",.01)
  1. ;;23490602001
  1. ;;9002226.02101,"1044,23490602001 ",.02)
  1. ;;23490602001
  1. ;;9002226.02101,"1044,23490602002 ",.01)
  1. ;;23490602002
  1. ;;9002226.02101,"1044,23490602002 ",.02)
  1. ;;23490602002
  1. ;;9002226.02101,"1044,23490602003 ",.01)
  1. ;;23490602003
  1. ;;9002226.02101,"1044,23490602003 ",.02)
  1. ;;23490602003
  1. ;;9002226.02101,"1044,23490602106 ",.01)
  1. ;;23490602106
  1. ;;9002226.02101,"1044,23490602106 ",.02)
  1. ;;23490602106
  1. ;;9002226.02101,"1044,23490605901 ",.01)
  1. ;;23490605901
  1. ;;9002226.02101,"1044,23490605901 ",.02)
  1. ;;23490605901
  1. ;;9002226.02101,"1044,23490605902 ",.01)
  1. ;;23490605902
  1. ;;9002226.02101,"1044,23490605902 ",.02)
  1. ;;23490605902
  1. ;;9002226.02101,"1044,23490605903 ",.01)
  1. ;;23490605903
  1. ;;9002226.02101,"1044,23490605903 ",.02)
  1. ;;23490605903
  1. ;;9002226.02101,"1044,23490606001 ",.01)
  1. ;;23490606001
  1. ;;9002226.02101,"1044,23490606001 ",.02)
  1. ;;23490606001
  1. ;;9002226.02101,"1044,23490606002 ",.01)
  1. ;;23490606002
  1. ;;9002226.02101,"1044,23490606002 ",.02)
  1. ;;23490606002
  1. ;;9002226.02101,"1044,23490626301 ",.01)
  1. ;;23490626301
  1. ;;9002226.02101,"1044,23490626301 ",.02)
  1. ;;23490626301
  1. ;;9002226.02101,"1044,23490626302 ",.01)
  1. ;;23490626302
  1. ;;9002226.02101,"1044,23490626302 ",.02)
  1. ;;23490626302
  1. ;;9002226.02101,"1044,23490626303 ",.01)
  1. ;;23490626303
  1. ;;9002226.02101,"1044,23490626303 ",.02)
  1. ;;23490626303
  1. ;;9002226.02101,"1044,23490626401 ",.01)
  1. ;;23490626401
  1. ;;9002226.02101,"1044,23490626401 ",.02)
  1. ;;23490626401
  1. ;;9002226.02101,"1044,23490626402 ",.01)
  1. ;;23490626402
  1. ;;9002226.02101,"1044,23490626402 ",.02)
  1. ;;23490626402
  1. ;;9002226.02101,"1044,23490626403 ",.01)
  1. ;;23490626403
  1. ;;9002226.02101,"1044,23490626403 ",.02)
  1. ;;23490626403
  1. ;;9002226.02101,"1044,23490626404 ",.01)
  1. ;;23490626404
  1. ;;9002226.02101,"1044,23490626404 ",.02)
  1. ;;23490626404
  1. ;;9002226.02101,"1044,23490640501 ",.01)
  1. ;;23490640501
  1. ;;9002226.02101,"1044,23490640501 ",.02)
  1. ;;23490640501
  1. ;;9002226.02101,"1044,23490640502 ",.01)
  1. ;;23490640502
  1. ;;9002226.02101,"1044,23490640502 ",.02)
  1. ;;23490640502
  1. ;;9002226.02101,"1044,23490640509 ",.01)
  1. ;;23490640509
  1. ;;9002226.02101,"1044,23490640509 ",.02)
  1. ;;23490640509
  1. ;;9002226.02101,"1044,23490640601 ",.01)
  1. ;;23490640601
  1. ;;9002226.02101,"1044,23490640601 ",.02)
  1. ;;23490640601
  1. ;;9002226.02101,"1044,23490640602 ",.01)
  1. ;;23490640602
  1. ;;9002226.02101,"1044,23490640602 ",.02)
  1. ;;23490640602
  1. ;;9002226.02101,"1044,23490640606 ",.01)
  1. ;;23490640606
  1. ;;9002226.02101,"1044,23490640606 ",.02)
  1. ;;23490640606
  1. ;;9002226.02101,"1044,23490640609 ",.01)
  1. ;;23490640609
  1. ;;9002226.02101,"1044,23490640609 ",.02)
  1. ;;23490640609
  1. ;;9002226.02101,"1044,23490640701 ",.01)
  1. ;;23490640701
  1. ;;9002226.02101,"1044,23490640701 ",.02)
  1. ;;23490640701
  1. ;;9002226.02101,"1044,23490640702 ",.01)
  1. ;;23490640702
  1. ;;9002226.02101,"1044,23490640702 ",.02)
  1. ;;23490640702
  1. ;;9002226.02101,"1044,23490640703 ",.01)
  1. ;;23490640703
  1. ;;9002226.02101,"1044,23490640703 ",.02)
  1. ;;23490640703
  1. ;;9002226.02101,"1044,23490640704 ",.01)
  1. ;;23490640704
  1. ;;9002226.02101,"1044,23490640704 ",.02)
  1. ;;23490640704
  1. ;;9002226.02101,"1044,23490653006 ",.01)
  1. ;;23490653006
  1. ;;9002226.02101,"1044,23490653006 ",.02)
  1. ;;23490653006
  1. ;;9002226.02101,"1044,23490694701 ",.01)
  1. ;;23490694701
  1. ;;9002226.02101,"1044,23490694701 ",.02)
  1. ;;23490694701
  1. ;;9002226.02101,"1044,23490694702 ",.01)
  1. ;;23490694702
  1. ;;9002226.02101,"1044,23490694702 ",.02)
  1. ;;23490694702
  1. ;;9002226.02101,"1044,23490694801 ",.01)
  1. ;;23490694801
  1. ;;9002226.02101,"1044,23490694801 ",.02)
  1. ;;23490694801
  1. ;;9002226.02101,"1044,23490694802 ",.01)
  1. ;;23490694802
  1. ;;9002226.02101,"1044,23490694802 ",.02)
  1. ;;23490694802
  1. ;;9002226.02101,"1044,23490694803 ",.01)
  1. ;;23490694803
  1. ;;9002226.02101,"1044,23490694803 ",.02)
  1. ;;23490694803
  1. ;;9002226.02101,"1044,23490698901 ",.01)
  1. ;;23490698901
  1. ;;9002226.02101,"1044,23490698901 ",.02)
  1. ;;23490698901
  1. ;;9002226.02101,"1044,23490698902 ",.01)
  1. ;;23490698902
  1. ;;9002226.02101,"1044,23490698902 ",.02)
  1. ;;23490698902
  1. ;;9002226.02101,"1044,23490699003 ",.01)
  1. ;;23490699003
  1. ;;9002226.02101,"1044,23490699003 ",.02)
  1. ;;23490699003
  1. ;;9002226.02101,"1044,23490705001 ",.01)
  1. ;;23490705001
  1. ;;9002226.02101,"1044,23490705001 ",.02)
  1. ;;23490705001
  1. ;;9002226.02101,"1044,23490705002 ",.01)
  1. ;;23490705002
  1. ;;9002226.02101,"1044,23490705002 ",.02)
  1. ;;23490705002
  1. ;;9002226.02101,"1044,23490722501 ",.01)
  1. ;;23490722501
  1. ;;9002226.02101,"1044,23490722501 ",.02)
  1. ;;23490722501
  1. ;;9002226.02101,"1044,23490722502 ",.01)
  1. ;;23490722502
  1. ;;9002226.02101,"1044,23490722502 ",.02)
  1. ;;23490722502
  1. ;;9002226.02101,"1044,23490722503 ",.01)
  1. ;;23490722503
  1. ;;9002226.02101,"1044,23490722503 ",.02)
  1. ;;23490722503
  1. ;;9002226.02101,"1044,23490722504 ",.01)
  1. ;;23490722504
  1. ;;9002226.02101,"1044,23490722504 ",.02)
  1. ;;23490722504
  1. ;;9002226.02101,"1044,23490722505 ",.01)
  1. ;;23490722505
  1. ;;9002226.02101,"1044,23490722505 ",.02)
  1. ;;23490722505
  1. ;;9002226.02101,"1044,23490722509 ",.01)
  1. ;;23490722509
  1. ;;9002226.02101,"1044,23490722509 ",.02)
  1. ;;23490722509
  1. ;;9002226.02101,"1044,23490722603 ",.01)
  1. ;;23490722603
  1. ;;9002226.02101,"1044,23490722603 ",.02)
  1. ;;23490722603
  1. ;;9002226.02101,"1044,23490722605 ",.01)
  1. ;;23490722605
  1. ;;9002226.02101,"1044,23490722605 ",.02)
  1. ;;23490722605
  1. ;;9002226.02101,"1044,23490722606 ",.01)
  1. ;;23490722606
  1. ;;9002226.02101,"1044,23490722606 ",.02)
  1. ;;23490722606
  1. ;;9002226.02101,"1044,23490722609 ",.01)
  1. ;;23490722609
  1. ;;9002226.02101,"1044,23490722609 ",.02)
  1. ;;23490722609
  1. ;;9002226.02101,"1044,23490729303 ",.01)
  1. ;;23490729303
  1. ;;9002226.02101,"1044,23490729303 ",.02)
  1. ;;23490729303
  1. ;;9002226.02101,"1044,23490732703 ",.01)
  1. ;;23490732703
  1. ;;9002226.02101,"1044,23490732703 ",.02)
  1. ;;23490732703
  1. ;;9002226.02101,"1044,23490755801 ",.01)
  1. ;;23490755801
  1. ;;9002226.02101,"1044,23490755801 ",.02)
  1. ;;23490755801
  1. ;;9002226.02101,"1044,23490755802 ",.01)
  1. ;;23490755802
  1. ;;9002226.02101,"1044,23490755802 ",.02)
  1. ;;23490755802
  1. ;;9002226.02101,"1044,23490755803 ",.01)
  1. ;;23490755803
  1. ;;9002226.02101,"1044,23490755803 ",.02)
  1. ;;23490755803
  1. ;;9002226.02101,"1044,23490924006 ",.01)
  1. ;;23490924006
  1. ;;9002226.02101,"1044,23490924006 ",.02)
  1. ;;23490924006
  1. ;;9002226.02101,"1044,24196051701 ",.01)
  1. ;;24196051701
  1. ;;9002226.02101,"1044,24196051701 ",.02)
  1. ;;24196051701
  1. ;;9002226.02101,"1044,24196051705 ",.01)
  1. ;;24196051705
  1. ;;9002226.02101,"1044,24196051705 ",.02)
  1. ;;24196051705
  1. ;;9002226.02101,"1044,24196051801 ",.01)
  1. ;;24196051801
  1. ;;9002226.02101,"1044,24196051801 ",.02)
  1. ;;24196051801
  1. ;;9002226.02101,"1044,24196051805 ",.01)
  1. ;;24196051805
  1. ;;9002226.02101,"1044,24196051805 ",.02)
  1. ;;24196051805
  1. ;;9002226.02101,"1044,24196051810 ",.01)
  1. ;;24196051810
  1. ;;9002226.02101,"1044,24196051810 ",.02)
  1. ;;24196051810
  1. ;;9002226.02101,"1044,24196051900 ",.01)
  1. ;;24196051900
  1. ;;9002226.02101,"1044,24196051900 ",.02)
  1. ;;24196051900
  1. ;;9002226.02101,"1044,24196051901 ",.01)
  1. ;;24196051901
  1. ;;9002226.02101,"1044,24196051901 ",.02)
  1. ;;24196051901
  1. ;;9002226.02101,"1044,24196051905 ",.01)
  1. ;;24196051905
  1. ;;9002226.02101,"1044,24196051905 ",.02)
  1. ;;24196051905
  1. ;;9002226.02101,"1044,24196052001 ",.01)
  1. ;;24196052001
  1. ;;9002226.02101,"1044,24196052001 ",.02)
  1. ;;24196052001
  1. ;;9002226.02101,"1044,24236000402 ",.01)
  1. ;;24236000402
  1. ;;9002226.02101,"1044,24236000402 ",.02)
  1. ;;24236000402
  1. ;;9002226.02101,"1044,24236000424 ",.01)
  1. ;;24236000424
  1. ;;9002226.02101,"1044,24236000424 ",.02)
  1. ;;24236000424
  1. ;;9002226.02101,"1044,24236000502 ",.01)
  1. ;;24236000502
  1. ;;9002226.02101,"1044,24236000502 ",.02)
  1. ;;24236000502
  1. ;;9002226.02101,"1044,24236000524 ",.01)
  1. ;;24236000524
  1. ;;9002226.02101,"1044,24236000524 ",.02)
  1. ;;24236000524
  1. ;;9002226.02101,"1044,24236000602 ",.01)
  1. ;;24236000602
  1. ;;9002226.02101,"1044,24236000602 ",.02)
  1. ;;24236000602
  1. ;;9002226.02101,"1044,24236000633 ",.01)
  1. ;;24236000633
  1. ;;9002226.02101,"1044,24236000633 ",.02)
  1. ;;24236000633
  1. ;;9002226.02101,"1044,24236000702 ",.01)
  1. ;;24236000702
  1. ;;9002226.02101,"1044,24236000702 ",.02)
  1. ;;24236000702
  1. ;;9002226.02101,"1044,24236000802 ",.01)
  1. ;;24236000802
  1. ;;9002226.02101,"1044,24236000802 ",.02)
  1. ;;24236000802
  1. ;;9002226.02101,"1044,24236003102 ",.01)
  1. ;;24236003102
  1. ;;9002226.02101,"1044,24236003102 ",.02)
  1. ;;24236003102
  1. ;;9002226.02101,"1044,24236003202 ",.01)
  1. ;;24236003202
  1. ;;9002226.02101,"1044,24236003202 ",.02)
  1. ;;24236003202
  1. ;;9002226.02101,"1044,24236005502 ",.01)
  1. ;;24236005502
  1. ;;9002226.02101,"1044,24236005502 ",.02)
  1. ;;24236005502
  1. ;;9002226.02101,"1044,24236005602 ",.01)
  1. ;;24236005602
  1. ;;9002226.02101,"1044,24236005602 ",.02)
  1. ;;24236005602
  1. ;;9002226.02101,"1044,24236007502 ",.01)
  1. ;;24236007502
  1. ;;9002226.02101,"1044,24236007502 ",.02)
  1. ;;24236007502
  1. ;;9002226.02101,"1044,24236009202 ",.01)
  1. ;;24236009202
  1. ;;9002226.02101,"1044,24236009202 ",.02)
  1. ;;24236009202
  1. ;;9002226.02101,"1044,24236009302 ",.01)
  1. ;;24236009302
  1. ;;9002226.02101,"1044,24236009302 ",.02)
  1. ;;24236009302
  1. ;;9002226.02101,"1044,24236009402 ",.01)
  1. ;;24236009402
  1. ;;9002226.02101,"1044,24236009402 ",.02)
  1. ;;24236009402
  1. ;;9002226.02101,"1044,24236009802 ",.01)
  1. ;;24236009802
  1. ;;9002226.02101,"1044,24236009802 ",.02)
  1. ;;24236009802
  1. ;;9002226.02101,"1044,24236009902 ",.01)
  1. ;;24236009902
  1. ;;9002226.02101,"1044,24236009902 ",.02)
  1. ;;24236009902
  1. ;;9002226.02101,"1044,24236012602 ",.01)
  1. ;;24236012602
  1. ;;9002226.02101,"1044,24236012602 ",.02)
  1. ;;24236012602
  1. ;;9002226.02101,"1044,24236012702 ",.01)
  1. ;;24236012702
  1. ;;9002226.02101,"1044,24236012702 ",.02)
  1. ;;24236012702
  1. ;;9002226.02101,"1044,24236012802 ",.01)
  1. ;;24236012802
  1. ;;9002226.02101,"1044,24236012802 ",.02)
  1. ;;24236012802
  1. ;;9002226.02101,"1044,24236013501 ",.01)
  1. ;;24236013501
  1. ;;9002226.02101,"1044,24236013501 ",.02)
  1. ;;24236013501
  1. ;;9002226.02101,"1044,24236013502 ",.01)
  1. ;;24236013502
  1. ;;9002226.02101,"1044,24236013502 ",.02)
  1. ;;24236013502