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