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

BGPM5AWJ.m

Go to the documentation of this file.
  1. BGPM5AWJ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,63304071750 ",.01)
  1. ;;63304071750
  1. ;;9002226.02101,"1033,63304071750 ",.02)
  1. ;;63304071750
  1. ;;9002226.02101,"1033,63304072501 ",.01)
  1. ;;63304072501
  1. ;;9002226.02101,"1033,63304072501 ",.02)
  1. ;;63304072501
  1. ;;9002226.02101,"1033,63304072505 ",.01)
  1. ;;63304072505
  1. ;;9002226.02101,"1033,63304072505 ",.02)
  1. ;;63304072505
  1. ;;9002226.02101,"1033,63304072511 ",.01)
  1. ;;63304072511
  1. ;;9002226.02101,"1033,63304072511 ",.02)
  1. ;;63304072511
  1. ;;9002226.02101,"1033,63304072560 ",.01)
  1. ;;63304072560
  1. ;;9002226.02101,"1033,63304072560 ",.02)
  1. ;;63304072560
  1. ;;9002226.02101,"1033,63304072577 ",.01)
  1. ;;63304072577
  1. ;;9002226.02101,"1033,63304072577 ",.02)
  1. ;;63304072577
  1. ;;9002226.02101,"1033,63304072582 ",.01)
  1. ;;63304072582
  1. ;;9002226.02101,"1033,63304072582 ",.02)
  1. ;;63304072582
  1. ;;9002226.02101,"1033,63304072601 ",.01)
  1. ;;63304072601
  1. ;;9002226.02101,"1033,63304072601 ",.02)
  1. ;;63304072601
  1. ;;9002226.02101,"1033,63304072605 ",.01)
  1. ;;63304072605
  1. ;;9002226.02101,"1033,63304072605 ",.02)
  1. ;;63304072605
  1. ;;9002226.02101,"1033,63304072611 ",.01)
  1. ;;63304072611
  1. ;;9002226.02101,"1033,63304072611 ",.02)
  1. ;;63304072611
  1. ;;9002226.02101,"1033,63304072660 ",.01)
  1. ;;63304072660
  1. ;;9002226.02101,"1033,63304072660 ",.02)
  1. ;;63304072660
  1. ;;9002226.02101,"1033,63304072677 ",.01)
  1. ;;63304072677
  1. ;;9002226.02101,"1033,63304072677 ",.02)
  1. ;;63304072677
  1. ;;9002226.02101,"1033,63304072682 ",.01)
  1. ;;63304072682
  1. ;;9002226.02101,"1033,63304072682 ",.02)
  1. ;;63304072682
  1. ;;9002226.02101,"1033,63304075001 ",.01)
  1. ;;63304075001
  1. ;;9002226.02101,"1033,63304075001 ",.02)
  1. ;;63304075001
  1. ;;9002226.02101,"1033,63304075060 ",.01)
  1. ;;63304075060
  1. ;;9002226.02101,"1033,63304075060 ",.02)
  1. ;;63304075060
  1. ;;9002226.02101,"1033,63304075101 ",.01)
  1. ;;63304075101
  1. ;;9002226.02101,"1033,63304075101 ",.02)
  1. ;;63304075101
  1. ;;9002226.02101,"1033,63304075120 ",.01)
  1. ;;63304075120
  1. ;;9002226.02101,"1033,63304075120 ",.02)
  1. ;;63304075120
  1. ;;9002226.02101,"1033,63304075160 ",.01)
  1. ;;63304075160
  1. ;;9002226.02101,"1033,63304075160 ",.02)
  1. ;;63304075160
  1. ;;9002226.02101,"1033,63304075201 ",.01)
  1. ;;63304075201
  1. ;;9002226.02101,"1033,63304075201 ",.02)
  1. ;;63304075201
  1. ;;9002226.02101,"1033,63304075220 ",.01)
  1. ;;63304075220
  1. ;;9002226.02101,"1033,63304075220 ",.02)
  1. ;;63304075220
  1. ;;9002226.02101,"1033,63304075260 ",.01)
  1. ;;63304075260
  1. ;;9002226.02101,"1033,63304075260 ",.02)
  1. ;;63304075260
  1. ;;9002226.02101,"1033,63304075301 ",.01)
  1. ;;63304075301
  1. ;;9002226.02101,"1033,63304075301 ",.02)
  1. ;;63304075301
  1. ;;9002226.02101,"1033,63304075303 ",.01)
  1. ;;63304075303
  1. ;;9002226.02101,"1033,63304075303 ",.02)
  1. ;;63304075303
  1. ;;9002226.02101,"1033,63304075320 ",.01)
  1. ;;63304075320
  1. ;;9002226.02101,"1033,63304075320 ",.02)
  1. ;;63304075320
  1. ;;9002226.02101,"1033,63304075321 ",.01)
  1. ;;63304075321
  1. ;;9002226.02101,"1033,63304075321 ",.02)
  1. ;;63304075321
  1. ;;9002226.02101,"1033,63304075401 ",.01)
  1. ;;63304075401
  1. ;;9002226.02101,"1033,63304075401 ",.02)
  1. ;;63304075401
  1. ;;9002226.02101,"1033,63304075403 ",.01)
  1. ;;63304075403
  1. ;;9002226.02101,"1033,63304075403 ",.02)
  1. ;;63304075403
  1. ;;9002226.02101,"1033,63304075420 ",.01)
  1. ;;63304075420
  1. ;;9002226.02101,"1033,63304075420 ",.02)
  1. ;;63304075420
  1. ;;9002226.02101,"1033,63304075421 ",.01)
  1. ;;63304075421
  1. ;;9002226.02101,"1033,63304075421 ",.02)
  1. ;;63304075421
  1. ;;9002226.02101,"1033,63304076001 ",.01)
  1. ;;63304076001
  1. ;;9002226.02101,"1033,63304076001 ",.02)
  1. ;;63304076001
  1. ;;9002226.02101,"1033,63304076005 ",.01)
  1. ;;63304076005
  1. ;;9002226.02101,"1033,63304076005 ",.02)
  1. ;;63304076005
  1. ;;9002226.02101,"1033,63304076020 ",.01)
  1. ;;63304076020
  1. ;;9002226.02101,"1033,63304076020 ",.02)
  1. ;;63304076020
  1. ;;9002226.02101,"1033,63304076101 ",.01)
  1. ;;63304076101
  1. ;;9002226.02101,"1033,63304076101 ",.02)
  1. ;;63304076101
  1. ;;9002226.02101,"1033,63304076105 ",.01)
  1. ;;63304076105
  1. ;;9002226.02101,"1033,63304076105 ",.02)
  1. ;;63304076105
  1. ;;9002226.02101,"1033,63304076120 ",.01)
  1. ;;63304076120
  1. ;;9002226.02101,"1033,63304076120 ",.02)
  1. ;;63304076120
  1. ;;9002226.02101,"1033,63304076201 ",.01)
  1. ;;63304076201
  1. ;;9002226.02101,"1033,63304076201 ",.02)
  1. ;;63304076201
  1. ;;9002226.02101,"1033,63304076205 ",.01)
  1. ;;63304076205
  1. ;;9002226.02101,"1033,63304076205 ",.02)
  1. ;;63304076205
  1. ;;9002226.02101,"1033,63304076213 ",.01)
  1. ;;63304076213
  1. ;;9002226.02101,"1033,63304076213 ",.02)
  1. ;;63304076213
  1. ;;9002226.02101,"1033,63304076220 ",.01)
  1. ;;63304076220
  1. ;;9002226.02101,"1033,63304076220 ",.02)
  1. ;;63304076220
  1. ;;9002226.02101,"1033,63304076282 ",.01)
  1. ;;63304076282
  1. ;;9002226.02101,"1033,63304076282 ",.02)
  1. ;;63304076282
  1. ;;9002226.02101,"1033,63304076301 ",.01)
  1. ;;63304076301
  1. ;;9002226.02101,"1033,63304076301 ",.02)
  1. ;;63304076301
  1. ;;9002226.02101,"1033,63304076305 ",.01)
  1. ;;63304076305
  1. ;;9002226.02101,"1033,63304076305 ",.02)
  1. ;;63304076305
  1. ;;9002226.02101,"1033,63304076313 ",.01)
  1. ;;63304076313
  1. ;;9002226.02101,"1033,63304076313 ",.02)
  1. ;;63304076313
  1. ;;9002226.02101,"1033,63304076320 ",.01)
  1. ;;63304076320
  1. ;;9002226.02101,"1033,63304076320 ",.02)
  1. ;;63304076320
  1. ;;9002226.02101,"1033,63304076382 ",.01)
  1. ;;63304076382
  1. ;;9002226.02101,"1033,63304076382 ",.02)
  1. ;;63304076382
  1. ;;9002226.02101,"1033,63304076801 ",.01)
  1. ;;63304076801
  1. ;;9002226.02101,"1033,63304076801 ",.02)
  1. ;;63304076801
  1. ;;9002226.02101,"1033,63304076802 ",.01)
  1. ;;63304076802
  1. ;;9002226.02101,"1033,63304076802 ",.02)
  1. ;;63304076802
  1. ;;9002226.02101,"1033,63304076803 ",.01)
  1. ;;63304076803
  1. ;;9002226.02101,"1033,63304076803 ",.02)
  1. ;;63304076803
  1. ;;9002226.02101,"1033,63304076804 ",.01)
  1. ;;63304076804
  1. ;;9002226.02101,"1033,63304076804 ",.02)
  1. ;;63304076804
  1. ;;9002226.02101,"1033,63304076807 ",.01)
  1. ;;63304076807
  1. ;;9002226.02101,"1033,63304076807 ",.02)
  1. ;;63304076807
  1. ;;9002226.02101,"1033,63304076850 ",.01)
  1. ;;63304076850
  1. ;;9002226.02101,"1033,63304076850 ",.02)
  1. ;;63304076850
  1. ;;9002226.02101,"1033,63304082103 ",.01)
  1. ;;63304082103
  1. ;;9002226.02101,"1033,63304082103 ",.02)
  1. ;;63304082103
  1. ;;9002226.02101,"1033,63304082104 ",.01)
  1. ;;63304082104
  1. ;;9002226.02101,"1033,63304082104 ",.02)
  1. ;;63304082104
  1. ;;9002226.02101,"1033,63304082203 ",.01)
  1. ;;63304082203
  1. ;;9002226.02101,"1033,63304082203 ",.02)
  1. ;;63304082203
  1. ;;9002226.02101,"1033,63304082204 ",.01)
  1. ;;63304082204
  1. ;;9002226.02101,"1033,63304082204 ",.02)
  1. ;;63304082204
  1. ;;9002226.02101,"1033,63304083104 ",.01)
  1. ;;63304083104
  1. ;;9002226.02101,"1033,63304083104 ",.02)
  1. ;;63304083104
  1. ;;9002226.02101,"1033,63304083111 ",.01)
  1. ;;63304083111
  1. ;;9002226.02101,"1033,63304083111 ",.02)
  1. ;;63304083111
  1. ;;9002226.02101,"1033,63304083130 ",.01)
  1. ;;63304083130
  1. ;;9002226.02101,"1033,63304083130 ",.02)
  1. ;;63304083130
  1. ;;9002226.02101,"1033,63304083177 ",.01)
  1. ;;63304083177
  1. ;;9002226.02101,"1033,63304083177 ",.02)
  1. ;;63304083177
  1. ;;9002226.02101,"1033,63304083205 ",.01)
  1. ;;63304083205
  1. ;;9002226.02101,"1033,63304083205 ",.02)
  1. ;;63304083205
  1. ;;9002226.02101,"1033,63304083211 ",.01)
  1. ;;63304083211
  1. ;;9002226.02101,"1033,63304083211 ",.02)
  1. ;;63304083211
  1. ;;9002226.02101,"1033,63304083220 ",.01)
  1. ;;63304083220
  1. ;;9002226.02101,"1033,63304083220 ",.02)
  1. ;;63304083220
  1. ;;9002226.02101,"1033,63304083277 ",.01)
  1. ;;63304083277
  1. ;;9002226.02101,"1033,63304083277 ",.02)
  1. ;;63304083277
  1. ;;9002226.02101,"1033,63304083305 ",.01)
  1. ;;63304083305
  1. ;;9002226.02101,"1033,63304083305 ",.02)
  1. ;;63304083305
  1. ;;9002226.02101,"1033,63304083311 ",.01)
  1. ;;63304083311
  1. ;;9002226.02101,"1033,63304083311 ",.02)
  1. ;;63304083311
  1. ;;9002226.02101,"1033,63304083320 ",.01)
  1. ;;63304083320
  1. ;;9002226.02101,"1033,63304083320 ",.02)
  1. ;;63304083320
  1. ;;9002226.02101,"1033,63304083360 ",.01)
  1. ;;63304083360
  1. ;;9002226.02101,"1033,63304083360 ",.02)
  1. ;;63304083360
  1. ;;9002226.02101,"1033,63304083377 ",.01)
  1. ;;63304083377
  1. ;;9002226.02101,"1033,63304083377 ",.02)
  1. ;;63304083377
  1. ;;9002226.02101,"1033,63304094025 ",.01)
  1. ;;63304094025
  1. ;;9002226.02101,"1033,63304094025 ",.02)
  1. ;;63304094025
  1. ;;9002226.02101,"1033,63304094110 ",.01)
  1. ;;63304094110
  1. ;;9002226.02101,"1033,63304094110 ",.02)
  1. ;;63304094110
  1. ;;9002226.02101,"1033,63304094725 ",.01)
  1. ;;63304094725
  1. ;;9002226.02101,"1033,63304094725 ",.02)
  1. ;;63304094725
  1. ;;9002226.02101,"1033,63304094810 ",.01)
  1. ;;63304094810
  1. ;;9002226.02101,"1033,63304094810 ",.02)
  1. ;;63304094810
  1. ;;9002226.02101,"1033,63304095401 ",.01)
  1. ;;63304095401
  1. ;;9002226.02101,"1033,63304095401 ",.02)
  1. ;;63304095401
  1. ;;9002226.02101,"1033,63304095402 ",.01)
  1. ;;63304095402
  1. ;;9002226.02101,"1033,63304095402 ",.02)
  1. ;;63304095402
  1. ;;9002226.02101,"1033,63304095503 ",.01)
  1. ;;63304095503
  1. ;;9002226.02101,"1033,63304095503 ",.02)
  1. ;;63304095503
  1. ;;9002226.02101,"1033,63304095504 ",.01)
  1. ;;63304095504
  1. ;;9002226.02101,"1033,63304095504 ",.02)
  1. ;;63304095504
  1. ;;9002226.02101,"1033,63304095601 ",.01)
  1. ;;63304095601
  1. ;;9002226.02101,"1033,63304095601 ",.02)
  1. ;;63304095601
  1. ;;9002226.02101,"1033,63304095602 ",.01)
  1. ;;63304095602
  1. ;;9002226.02101,"1033,63304095602 ",.02)
  1. ;;63304095602
  1. ;;9002226.02101,"1033,63304095703 ",.01)
  1. ;;63304095703
  1. ;;9002226.02101,"1033,63304095703 ",.02)
  1. ;;63304095703
  1. ;;9002226.02101,"1033,63304095704 ",.01)
  1. ;;63304095704
  1. ;;9002226.02101,"1033,63304095704 ",.02)
  1. ;;63304095704
  1. ;;9002226.02101,"1033,63304095801 ",.01)
  1. ;;63304095801
  1. ;;9002226.02101,"1033,63304095801 ",.02)
  1. ;;63304095801
  1. ;;9002226.02101,"1033,63304095802 ",.01)
  1. ;;63304095802
  1. ;;9002226.02101,"1033,63304095802 ",.02)
  1. ;;63304095802
  1. ;;9002226.02101,"1033,63304095901 ",.01)
  1. ;;63304095901
  1. ;;9002226.02101,"1033,63304095901 ",.02)
  1. ;;63304095901
  1. ;;9002226.02101,"1033,63304095902 ",.01)
  1. ;;63304095902
  1. ;;9002226.02101,"1033,63304095902 ",.02)
  1. ;;63304095902
  1. ;;9002226.02101,"1033,63304096001 ",.01)
  1. ;;63304096001
  1. ;;9002226.02101,"1033,63304096001 ",.02)
  1. ;;63304096001
  1. ;;9002226.02101,"1033,63304096003 ",.01)
  1. ;;63304096003
  1. ;;9002226.02101,"1033,63304096003 ",.02)
  1. ;;63304096003
  1. ;;9002226.02101,"1033,63304096004 ",.01)
  1. ;;63304096004
  1. ;;9002226.02101,"1033,63304096004 ",.02)
  1. ;;63304096004
  1. ;;9002226.02101,"1033,63304096101 ",.01)
  1. ;;63304096101
  1. ;;9002226.02101,"1033,63304096101 ",.02)
  1. ;;63304096101
  1. ;;9002226.02101,"1033,63304096103 ",.01)
  1. ;;63304096103
  1. ;;9002226.02101,"1033,63304096103 ",.02)
  1. ;;63304096103
  1. ;;9002226.02101,"1033,63304096104 ",.01)
  1. ;;63304096104
  1. ;;9002226.02101,"1033,63304096104 ",.02)
  1. ;;63304096104
  1. ;;9002226.02101,"1033,63304096304 ",.01)
  1. ;;63304096304
  1. ;;9002226.02101,"1033,63304096304 ",.02)
  1. ;;63304096304
  1. ;;9002226.02101,"1033,63304096403 ",.01)
  1. ;;63304096403
  1. ;;9002226.02101,"1033,63304096403 ",.02)
  1. ;;63304096403
  1. ;;9002226.02101,"1033,63304096404 ",.01)
  1. ;;63304096404
  1. ;;9002226.02101,"1033,63304096404 ",.02)
  1. ;;63304096404
  1. ;;9002226.02101,"1033,63304096501 ",.01)
  1. ;;63304096501
  1. ;;9002226.02101,"1033,63304096501 ",.02)
  1. ;;63304096501
  1. ;;9002226.02101,"1033,63304096503 ",.01)
  1. ;;63304096503
  1. ;;9002226.02101,"1033,63304096503 ",.02)
  1. ;;63304096503
  1. ;;9002226.02101,"1033,63304096504 ",.01)
  1. ;;63304096504
  1. ;;9002226.02101,"1033,63304096504 ",.02)
  1. ;;63304096504
  1. ;;9002226.02101,"1033,63304096601 ",.01)
  1. ;;63304096601
  1. ;;9002226.02101,"1033,63304096601 ",.02)
  1. ;;63304096601
  1. ;;9002226.02101,"1033,63304096603 ",.01)
  1. ;;63304096603
  1. ;;9002226.02101,"1033,63304096603 ",.02)
  1. ;;63304096603
  1. ;;9002226.02101,"1033,63304096604 ",.01)
  1. ;;63304096604
  1. ;;9002226.02101,"1033,63304096604 ",.02)
  1. ;;63304096604
  1. ;;9002226.02101,"1033,63304096901 ",.01)
  1. ;;63304096901
  1. ;;9002226.02101,"1033,63304096901 ",.02)
  1. ;;63304096901
  1. ;;9002226.02101,"1033,63304096903 ",.01)
  1. ;;63304096903