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

BGPM5AKB.m

Go to the documentation of this file.
  1. BGPM5AKB ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"889,59564012625 ",.01)
  1. ;;59564012625
  1. ;;9002226.02101,"889,59564012625 ",.02)
  1. ;;59564012625
  1. ;;9002226.02101,"889,59762125801 ",.01)
  1. ;;59762125801
  1. ;;9002226.02101,"889,59762125801 ",.02)
  1. ;;59762125801
  1. ;;9002226.02101,"889,59762125802 ",.01)
  1. ;;59762125802
  1. ;;9002226.02101,"889,59762125802 ",.02)
  1. ;;59762125802
  1. ;;9002226.02101,"889,59762126101 ",.01)
  1. ;;59762126101
  1. ;;9002226.02101,"889,59762126101 ",.02)
  1. ;;59762126101
  1. ;;9002226.02101,"889,59762126102 ",.01)
  1. ;;59762126102
  1. ;;9002226.02101,"889,59762126102 ",.02)
  1. ;;59762126102
  1. ;;9002226.02101,"889,59762130001 ",.01)
  1. ;;59762130001
  1. ;;9002226.02101,"889,59762130001 ",.02)
  1. ;;59762130001
  1. ;;9002226.02101,"889,59762130003 ",.01)
  1. ;;59762130003
  1. ;;9002226.02101,"889,59762130003 ",.02)
  1. ;;59762130003
  1. ;;9002226.02101,"889,59762130101 ",.01)
  1. ;;59762130101
  1. ;;9002226.02101,"889,59762130101 ",.02)
  1. ;;59762130101
  1. ;;9002226.02101,"889,59762130103 ",.01)
  1. ;;59762130103
  1. ;;9002226.02101,"889,59762130103 ",.02)
  1. ;;59762130103
  1. ;;9002226.02101,"889,59762130201 ",.01)
  1. ;;59762130201
  1. ;;9002226.02101,"889,59762130201 ",.02)
  1. ;;59762130201
  1. ;;9002226.02101,"889,59762130203 ",.01)
  1. ;;59762130203
  1. ;;9002226.02101,"889,59762130203 ",.02)
  1. ;;59762130203
  1. ;;9002226.02101,"889,59772246101 ",.01)
  1. ;;59772246101
  1. ;;9002226.02101,"889,59772246101 ",.02)
  1. ;;59772246101
  1. ;;9002226.02101,"889,59772246102 ",.01)
  1. ;;59772246102
  1. ;;9002226.02101,"889,59772246102 ",.02)
  1. ;;59772246102
  1. ;;9002226.02101,"889,59772246201 ",.01)
  1. ;;59772246201
  1. ;;9002226.02101,"889,59772246201 ",.02)
  1. ;;59772246201
  1. ;;9002226.02101,"889,59772246202 ",.01)
  1. ;;59772246202
  1. ;;9002226.02101,"889,59772246202 ",.02)
  1. ;;59772246202
  1. ;;9002226.02101,"889,59772246203 ",.01)
  1. ;;59772246203
  1. ;;9002226.02101,"889,59772246203 ",.02)
  1. ;;59772246203
  1. ;;9002226.02101,"889,59772246301 ",.01)
  1. ;;59772246301
  1. ;;9002226.02101,"889,59772246301 ",.02)
  1. ;;59772246301
  1. ;;9002226.02101,"889,59772246302 ",.01)
  1. ;;59772246302
  1. ;;9002226.02101,"889,59772246302 ",.02)
  1. ;;59772246302
  1. ;;9002226.02101,"889,59772246303 ",.01)
  1. ;;59772246303
  1. ;;9002226.02101,"889,59772246303 ",.02)
  1. ;;59772246303
  1. ;;9002226.02101,"889,59772246401 ",.01)
  1. ;;59772246401
  1. ;;9002226.02101,"889,59772246401 ",.02)
  1. ;;59772246401
  1. ;;9002226.02101,"889,59772246403 ",.01)
  1. ;;59772246403
  1. ;;9002226.02101,"889,59772246403 ",.02)
  1. ;;59772246403
  1. ;;9002226.02101,"889,59772246501 ",.01)
  1. ;;59772246501
  1. ;;9002226.02101,"889,59772246501 ",.02)
  1. ;;59772246501
  1. ;;9002226.02101,"889,59772259201 ",.01)
  1. ;;59772259201
  1. ;;9002226.02101,"889,59772259201 ",.02)
  1. ;;59772259201
  1. ;;9002226.02101,"889,59772259301 ",.01)
  1. ;;59772259301
  1. ;;9002226.02101,"889,59772259301 ",.02)
  1. ;;59772259301
  1. ;;9002226.02101,"889,59772369202 ",.01)
  1. ;;59772369202
  1. ;;9002226.02101,"889,59772369202 ",.02)
  1. ;;59772369202
  1. ;;9002226.02101,"889,59772369205 ",.01)
  1. ;;59772369205
  1. ;;9002226.02101,"889,59772369205 ",.02)
  1. ;;59772369205
  1. ;;9002226.02101,"889,59772369302 ",.01)
  1. ;;59772369302
  1. ;;9002226.02101,"889,59772369302 ",.02)
  1. ;;59772369302
  1. ;;9002226.02101,"889,59772369305 ",.01)
  1. ;;59772369305
  1. ;;9002226.02101,"889,59772369305 ",.02)
  1. ;;59772369305
  1. ;;9002226.02101,"889,60346052306 ",.01)
  1. ;;60346052306
  1. ;;9002226.02101,"889,60346052306 ",.02)
  1. ;;60346052306
  1. ;;9002226.02101,"889,60429002530 ",.01)
  1. ;;60429002530
  1. ;;9002226.02101,"889,60429002530 ",.02)
  1. ;;60429002530
  1. ;;9002226.02101,"889,60429002590 ",.01)
  1. ;;60429002590
  1. ;;9002226.02101,"889,60429002590 ",.02)
  1. ;;60429002590
  1. ;;9002226.02101,"889,60429002630 ",.01)
  1. ;;60429002630
  1. ;;9002226.02101,"889,60429002630 ",.02)
  1. ;;60429002630
  1. ;;9002226.02101,"889,60429012630 ",.01)
  1. ;;60429012630
  1. ;;9002226.02101,"889,60429012630 ",.02)
  1. ;;60429012630
  1. ;;9002226.02101,"889,60429012660 ",.01)
  1. ;;60429012660
  1. ;;9002226.02101,"889,60429012660 ",.02)
  1. ;;60429012660
  1. ;;9002226.02101,"889,60429012730 ",.01)
  1. ;;60429012730
  1. ;;9002226.02101,"889,60429012730 ",.02)
  1. ;;60429012730
  1. ;;9002226.02101,"889,60429012760 ",.01)
  1. ;;60429012760
  1. ;;9002226.02101,"889,60429012760 ",.02)
  1. ;;60429012760
  1. ;;9002226.02101,"889,60429021130 ",.01)
  1. ;;60429021130
  1. ;;9002226.02101,"889,60429021130 ",.02)
  1. ;;60429021130
  1. ;;9002226.02101,"889,60429021190 ",.01)
  1. ;;60429021190
  1. ;;9002226.02101,"889,60429021190 ",.02)
  1. ;;60429021190
  1. ;;9002226.02101,"889,60429075301 ",.01)
  1. ;;60429075301
  1. ;;9002226.02101,"889,60429075301 ",.02)
  1. ;;60429075301
  1. ;;9002226.02101,"889,60429075401 ",.01)
  1. ;;60429075401
  1. ;;9002226.02101,"889,60429075401 ",.02)
  1. ;;60429075401
  1. ;;9002226.02101,"889,60440010103 ",.01)
  1. ;;60440010103
  1. ;;9002226.02101,"889,60440010103 ",.02)
  1. ;;60440010103
  1. ;;9002226.02101,"889,60440010109 ",.01)
  1. ;;60440010109
  1. ;;9002226.02101,"889,60440010109 ",.02)
  1. ;;60440010109
  1. ;;9002226.02101,"889,60440010503 ",.01)
  1. ;;60440010503
  1. ;;9002226.02101,"889,60440010503 ",.02)
  1. ;;60440010503
  1. ;;9002226.02101,"889,60440010509 ",.01)
  1. ;;60440010509
  1. ;;9002226.02101,"889,60440010509 ",.02)
  1. ;;60440010509
  1. ;;9002226.02101,"889,60440011509 ",.01)
  1. ;;60440011509
  1. ;;9002226.02101,"889,60440011509 ",.02)
  1. ;;60440011509
  1. ;;9002226.02101,"889,60440011709 ",.01)
  1. ;;60440011709
  1. ;;9002226.02101,"889,60440011709 ",.02)
  1. ;;60440011709
  1. ;;9002226.02101,"889,60491015601 ",.01)
  1. ;;60491015601
  1. ;;9002226.02101,"889,60491015601 ",.02)
  1. ;;60491015601
  1. ;;9002226.02101,"889,60491015660 ",.01)
  1. ;;60491015660
  1. ;;9002226.02101,"889,60491015660 ",.02)
  1. ;;60491015660
  1. ;;9002226.02101,"889,60491015668 ",.01)
  1. ;;60491015668
  1. ;;9002226.02101,"889,60491015668 ",.02)
  1. ;;60491015668
  1. ;;9002226.02101,"889,60491015680 ",.01)
  1. ;;60491015680
  1. ;;9002226.02101,"889,60491015680 ",.02)
  1. ;;60491015680
  1. ;;9002226.02101,"889,60491015710 ",.01)
  1. ;;60491015710
  1. ;;9002226.02101,"889,60491015710 ",.02)
  1. ;;60491015710
  1. ;;9002226.02101,"889,60491015760 ",.01)
  1. ;;60491015760
  1. ;;9002226.02101,"889,60491015760 ",.02)
  1. ;;60491015760
  1. ;;9002226.02101,"889,60491015768 ",.01)
  1. ;;60491015768
  1. ;;9002226.02101,"889,60491015768 ",.02)
  1. ;;60491015768
  1. ;;9002226.02101,"889,60491031501 ",.01)
  1. ;;60491031501
  1. ;;9002226.02101,"889,60491031501 ",.02)
  1. ;;60491031501
  1. ;;9002226.02101,"889,60491031560 ",.01)
  1. ;;60491031560
  1. ;;9002226.02101,"889,60491031560 ",.02)
  1. ;;60491031560
  1. ;;9002226.02101,"889,60491031568 ",.01)
  1. ;;60491031568
  1. ;;9002226.02101,"889,60491031568 ",.02)
  1. ;;60491031568
  1. ;;9002226.02101,"889,60491031601 ",.01)
  1. ;;60491031601
  1. ;;9002226.02101,"889,60491031601 ",.02)
  1. ;;60491031601
  1. ;;9002226.02101,"889,60491031660 ",.01)
  1. ;;60491031660
  1. ;;9002226.02101,"889,60491031660 ",.02)
  1. ;;60491031660
  1. ;;9002226.02101,"889,60491031668 ",.01)
  1. ;;60491031668
  1. ;;9002226.02101,"889,60491031668 ",.02)
  1. ;;60491031668
  1. ;;9002226.02101,"889,60491031701 ",.01)
  1. ;;60491031701
  1. ;;9002226.02101,"889,60491031701 ",.02)
  1. ;;60491031701
  1. ;;9002226.02101,"889,60491031760 ",.01)
  1. ;;60491031760
  1. ;;9002226.02101,"889,60491031760 ",.02)
  1. ;;60491031760
  1. ;;9002226.02101,"889,60491031768 ",.01)
  1. ;;60491031768
  1. ;;9002226.02101,"889,60491031768 ",.02)
  1. ;;60491031768
  1. ;;9002226.02101,"889,60491031901 ",.01)
  1. ;;60491031901
  1. ;;9002226.02101,"889,60491031901 ",.02)
  1. ;;60491031901
  1. ;;9002226.02101,"889,60491031960 ",.01)
  1. ;;60491031960
  1. ;;9002226.02101,"889,60491031960 ",.02)
  1. ;;60491031960
  1. ;;9002226.02101,"889,60491031968 ",.01)
  1. ;;60491031968
  1. ;;9002226.02101,"889,60491031968 ",.02)
  1. ;;60491031968
  1. ;;9002226.02101,"889,60491032101 ",.01)
  1. ;;60491032101
  1. ;;9002226.02101,"889,60491032101 ",.02)
  1. ;;60491032101
  1. ;;9002226.02101,"889,60491032130 ",.01)
  1. ;;60491032130
  1. ;;9002226.02101,"889,60491032130 ",.02)
  1. ;;60491032130
  1. ;;9002226.02101,"889,60491032134 ",.01)
  1. ;;60491032134
  1. ;;9002226.02101,"889,60491032134 ",.02)
  1. ;;60491032134
  1. ;;9002226.02101,"889,60491032201 ",.01)
  1. ;;60491032201
  1. ;;9002226.02101,"889,60491032201 ",.02)
  1. ;;60491032201
  1. ;;9002226.02101,"889,60491032230 ",.01)
  1. ;;60491032230
  1. ;;9002226.02101,"889,60491032230 ",.02)
  1. ;;60491032230
  1. ;;9002226.02101,"889,60491032234 ",.01)
  1. ;;60491032234
  1. ;;9002226.02101,"889,60491032234 ",.02)
  1. ;;60491032234
  1. ;;9002226.02101,"889,60491032330 ",.01)
  1. ;;60491032330
  1. ;;9002226.02101,"889,60491032330 ",.02)
  1. ;;60491032330
  1. ;;9002226.02101,"889,60491032334 ",.01)
  1. ;;60491032334
  1. ;;9002226.02101,"889,60491032334 ",.02)
  1. ;;60491032334
  1. ;;9002226.02101,"889,60491032730 ",.01)
  1. ;;60491032730
  1. ;;9002226.02101,"889,60491032730 ",.02)
  1. ;;60491032730
  1. ;;9002226.02101,"889,60491032734 ",.01)
  1. ;;60491032734
  1. ;;9002226.02101,"889,60491032734 ",.02)
  1. ;;60491032734
  1. ;;9002226.02101,"889,60491032830 ",.01)
  1. ;;60491032830
  1. ;;9002226.02101,"889,60491032830 ",.02)
  1. ;;60491032830
  1. ;;9002226.02101,"889,60491032834 ",.01)
  1. ;;60491032834
  1. ;;9002226.02101,"889,60491032834 ",.02)
  1. ;;60491032834
  1. ;;9002226.02101,"889,60491032930 ",.01)
  1. ;;60491032930
  1. ;;9002226.02101,"889,60491032930 ",.02)
  1. ;;60491032930
  1. ;;9002226.02101,"889,60491032934 ",.01)
  1. ;;60491032934
  1. ;;9002226.02101,"889,60491032934 ",.02)
  1. ;;60491032934
  1. ;;9002226.02101,"889,60491037130 ",.01)
  1. ;;60491037130
  1. ;;9002226.02101,"889,60491037130 ",.02)
  1. ;;60491037130
  1. ;;9002226.02101,"889,60491037134 ",.01)
  1. ;;60491037134
  1. ;;9002226.02101,"889,60491037134 ",.02)
  1. ;;60491037134
  1. ;;9002226.02101,"889,60491062701 ",.01)
  1. ;;60491062701
  1. ;;9002226.02101,"889,60491062701 ",.02)
  1. ;;60491062701
  1. ;;9002226.02101,"889,60491062730 ",.01)
  1. ;;60491062730
  1. ;;9002226.02101,"889,60491062730 ",.02)
  1. ;;60491062730
  1. ;;9002226.02101,"889,60491062734 ",.01)
  1. ;;60491062734
  1. ;;9002226.02101,"889,60491062734 ",.02)
  1. ;;60491062734
  1. ;;9002226.02101,"889,60491062830 ",.01)
  1. ;;60491062830
  1. ;;9002226.02101,"889,60491062830 ",.02)
  1. ;;60491062830
  1. ;;9002226.02101,"889,60491062834 ",.01)
  1. ;;60491062834
  1. ;;9002226.02101,"889,60491062834 ",.02)
  1. ;;60491062834
  1. ;;9002226.02101,"889,60491062930 ",.01)
  1. ;;60491062930
  1. ;;9002226.02101,"889,60491062930 ",.02)
  1. ;;60491062930
  1. ;;9002226.02101,"889,60491062934 ",.01)
  1. ;;60491062934
  1. ;;9002226.02101,"889,60491062934 ",.02)
  1. ;;60491062934
  1. ;;9002226.02101,"889,60491064801 ",.01)
  1. ;;60491064801
  1. ;;9002226.02101,"889,60491064801 ",.02)
  1. ;;60491064801
  1. ;;9002226.02101,"889,60491064860 ",.01)
  1. ;;60491064860
  1. ;;9002226.02101,"889,60491064860 ",.02)
  1. ;;60491064860
  1. ;;9002226.02101,"889,60491064868 ",.01)
  1. ;;60491064868
  1. ;;9002226.02101,"889,60491064868 ",.02)
  1. ;;60491064868
  1. ;;9002226.02101,"889,60491064901 ",.01)
  1. ;;60491064901
  1. ;;9002226.02101,"889,60491064901 ",.02)
  1. ;;60491064901
  1. ;;9002226.02101,"889,60491064960 ",.01)
  1. ;;60491064960
  1. ;;9002226.02101,"889,60491064960 ",.02)
  1. ;;60491064960
  1. ;;9002226.02101,"889,60491064968 ",.01)
  1. ;;60491064968
  1. ;;9002226.02101,"889,60491064968 ",.02)
  1. ;;60491064968
  1. ;;9002226.02101,"889,60491069830 ",.01)
  1. ;;60491069830
  1. ;;9002226.02101,"889,60491069830 ",.02)
  1. ;;60491069830
  1. ;;9002226.02101,"889,60491069834 ",.01)
  1. ;;60491069834
  1. ;;9002226.02101,"889,60491069834 ",.02)
  1. ;;60491069834
  1. ;;9002226.02101,"889,60491072030 ",.01)
  1. ;;60491072030
  1. ;;9002226.02101,"889,60491072030 ",.02)
  1. ;;60491072030
  1. ;;9002226.02101,"889,60491072130 ",.01)
  1. ;;60491072130
  1. ;;9002226.02101,"889,60491072130 ",.02)
  1. ;;60491072130
  1. ;;9002226.02101,"889,60491072134 ",.01)
  1. ;;60491072134
  1. ;;9002226.02101,"889,60491072134 ",.02)
  1. ;;60491072134
  1. ;;9002226.02101,"889,60505071700 ",.01)
  1. ;;60505071700
  1. ;;9002226.02101,"889,60505071700 ",.02)
  1. ;;60505071700
  1. ;;9002226.02101,"889,60505071701 ",.01)
  1. ;;60505071701
  1. ;;9002226.02101,"889,60505071701 ",.02)
  1. ;;60505071701
  1. ;;9002226.02101,"889,60505071702 ",.01)
  1. ;;60505071702
  1. ;;9002226.02101,"889,60505071702 ",.02)
  1. ;;60505071702