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

BGP07G2.m

Go to the documentation of this file.
BGP07G2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"271,33508-3 ",.01)
 ;;33508-3
 ;;9002226.02101,"271,33508-3 ",.02)
 ;;33508-3
 ;;9002226.02101,"271,33630-5 ",.01)
 ;;33630-5
 ;;9002226.02101,"271,33630-5 ",.02)
 ;;33630-5
 ;;9002226.02101,"271,33660-2 ",.01)
 ;;33660-2
 ;;9002226.02101,"271,33660-2 ",.02)
 ;;33660-2
 ;;9002226.02101,"271,33806-1 ",.01)
 ;;33806-1
 ;;9002226.02101,"271,33806-1 ",.02)
 ;;33806-1
 ;;9002226.02101,"271,33807-9 ",.01)
 ;;33807-9
 ;;9002226.02101,"271,33807-9 ",.02)
 ;;33807-9
 ;;9002226.02101,"271,33866-5 ",.01)
 ;;33866-5
 ;;9002226.02101,"271,33866-5 ",.02)
 ;;33866-5
 ;;9002226.02101,"271,34591-8 ",.01)
 ;;34591-8
 ;;9002226.02101,"271,34591-8 ",.02)
 ;;34591-8
 ;;9002226.02101,"271,34592-6 ",.01)
 ;;34592-6
 ;;9002226.02101,"271,34592-6 ",.02)
 ;;34592-6
 ;;9002226.02101,"271,34699-9 ",.01)
 ;;34699-9
 ;;9002226.02101,"271,34699-9 ",.02)
 ;;34699-9
 ;;9002226.02101,"271,34700-5 ",.01)
 ;;34700-5
 ;;9002226.02101,"271,34700-5 ",.02)
 ;;34700-5
 ;;9002226.02101,"271,35437-3 ",.01)
 ;;35437-3
 ;;9002226.02101,"271,35437-3 ",.02)
 ;;35437-3
 ;;9002226.02101,"271,35438-1 ",.01)
 ;;35438-1
 ;;9002226.02101,"271,35438-1 ",.02)
 ;;35438-1
 ;;9002226.02101,"271,35439-9 ",.01)
 ;;35439-9
 ;;9002226.02101,"271,35439-9 ",.02)
 ;;35439-9
 ;;9002226.02101,"271,35440-7 ",.01)
 ;;35440-7
 ;;9002226.02101,"271,35440-7 ",.02)
 ;;35440-7
 ;;9002226.02101,"271,35441-5 ",.01)
 ;;35441-5
 ;;9002226.02101,"271,35441-5 ",.02)
 ;;35441-5
 ;;9002226.02101,"271,35442-3 ",.01)
 ;;35442-3
 ;;9002226.02101,"271,35442-3 ",.02)
 ;;35442-3
 ;;9002226.02101,"271,35443-1 ",.01)
 ;;35443-1
 ;;9002226.02101,"271,35443-1 ",.02)
 ;;35443-1
 ;;9002226.02101,"271,35444-9 ",.01)
 ;;35444-9
 ;;9002226.02101,"271,35444-9 ",.02)
 ;;35444-9
 ;;9002226.02101,"271,35445-6 ",.01)
 ;;35445-6
 ;;9002226.02101,"271,35445-6 ",.02)
 ;;35445-6
 ;;9002226.02101,"271,35446-4 ",.01)
 ;;35446-4
 ;;9002226.02101,"271,35446-4 ",.02)
 ;;35446-4
 ;;9002226.02101,"271,35447-2 ",.01)
 ;;35447-2
 ;;9002226.02101,"271,35447-2 ",.02)
 ;;35447-2
 ;;9002226.02101,"271,35448-0 ",.01)
 ;;35448-0
 ;;9002226.02101,"271,35448-0 ",.02)
 ;;35448-0
 ;;9002226.02101,"271,35449-8 ",.01)
 ;;35449-8
 ;;9002226.02101,"271,35449-8 ",.02)
 ;;35449-8
 ;;9002226.02101,"271,35450-6 ",.01)
 ;;35450-6
 ;;9002226.02101,"271,35450-6 ",.02)
 ;;35450-6
 ;;9002226.02101,"271,35452-2 ",.01)
 ;;35452-2
 ;;9002226.02101,"271,35452-2 ",.02)
 ;;35452-2
 ;;9002226.02101,"271,35564-4 ",.01)
 ;;35564-4
 ;;9002226.02101,"271,35564-4 ",.02)
 ;;35564-4
 ;;9002226.02101,"271,35565-1 ",.01)
 ;;35565-1
 ;;9002226.02101,"271,35565-1 ",.02)
 ;;35565-1
 ;;9002226.02101,"271,38998-1 ",.01)
 ;;38998-1
 ;;9002226.02101,"271,38998-1 ",.02)
 ;;38998-1
 ;;9002226.02101,"271,40437-6 ",.01)
 ;;40437-6
 ;;9002226.02101,"271,40437-6 ",.02)
 ;;40437-6
 ;;9002226.02101,"271,40438-4 ",.01)
 ;;40438-4
 ;;9002226.02101,"271,40438-4 ",.02)
 ;;40438-4
 ;;9002226.02101,"271,40439-2 ",.01)
 ;;40439-2
 ;;9002226.02101,"271,40439-2 ",.02)
 ;;40439-2
 ;;9002226.02101,"271,40732-0 ",.01)
 ;;40732-0
 ;;9002226.02101,"271,40732-0 ",.02)
 ;;40732-0
 ;;9002226.02101,"271,40733-8 ",.01)
 ;;40733-8
 ;;9002226.02101,"271,40733-8 ",.02)
 ;;40733-8
 ;;9002226.02101,"271,41143-9 ",.01)
 ;;41143-9
 ;;9002226.02101,"271,41143-9 ",.02)
 ;;41143-9
 ;;9002226.02101,"271,41144-7 ",.01)
 ;;41144-7
 ;;9002226.02101,"271,41144-7 ",.02)
 ;;41144-7
 ;;9002226.02101,"271,41145-4 ",.01)
 ;;41145-4
 ;;9002226.02101,"271,41145-4 ",.02)
 ;;41145-4
 ;;9002226.02101,"271,41290-8 ",.01)
 ;;41290-8
 ;;9002226.02101,"271,41290-8 ",.02)
 ;;41290-8
 ;;9002226.02101,"271,41497-9 ",.01)
 ;;41497-9
 ;;9002226.02101,"271,41497-9 ",.02)
 ;;41497-9
 ;;9002226.02101,"271,41498-7 ",.01)
 ;;41498-7
 ;;9002226.02101,"271,41498-7 ",.02)
 ;;41498-7
 ;;9002226.02101,"271,41513-3 ",.01)
 ;;41513-3
 ;;9002226.02101,"271,41513-3 ",.02)
 ;;41513-3
 ;;9002226.02101,"271,41514-1 ",.01)
 ;;41514-1
 ;;9002226.02101,"271,41514-1 ",.02)
 ;;41514-1
 ;;9002226.02101,"271,41515-8 ",.01)
 ;;41515-8
 ;;9002226.02101,"271,41515-8 ",.02)
 ;;41515-8
 ;;9002226.02101,"271,41516-6 ",.01)
 ;;41516-6
 ;;9002226.02101,"271,41516-6 ",.02)
 ;;41516-6
 ;;9002226.02101,"271,42339-2 ",.01)
 ;;42339-2
 ;;9002226.02101,"271,42339-2 ",.02)
 ;;42339-2
 ;;9002226.02101,"271,42600-7 ",.01)
 ;;42600-7
 ;;9002226.02101,"271,42600-7 ",.02)
 ;;42600-7
 ;;9002226.02101,"271,42627-0 ",.01)
 ;;42627-0
 ;;9002226.02101,"271,42627-0 ",.02)
 ;;42627-0
 ;;9002226.02101,"271,42768-2 ",.01)
 ;;42768-2
 ;;9002226.02101,"271,42768-2 ",.02)
 ;;42768-2
 ;;9002226.02101,"271,42917-5 ",.01)
 ;;42917-5
 ;;9002226.02101,"271,42917-5 ",.02)
 ;;42917-5
 ;;9002226.02101,"271,43008-2 ",.01)
 ;;43008-2
 ;;9002226.02101,"271,43008-2 ",.02)
 ;;43008-2
 ;;9002226.02101,"271,43009-0 ",.01)
 ;;43009-0
 ;;9002226.02101,"271,43009-0 ",.02)
 ;;43009-0
 ;;9002226.02101,"271,43010-8 ",.01)
 ;;43010-8
 ;;9002226.02101,"271,43010-8 ",.02)
 ;;43010-8
 ;;9002226.02101,"271,43011-6 ",.01)
 ;;43011-6
 ;;9002226.02101,"271,43011-6 ",.02)
 ;;43011-6
 ;;9002226.02101,"271,43012-4 ",.01)
 ;;43012-4
 ;;9002226.02101,"271,43012-4 ",.02)
 ;;43012-4
 ;;9002226.02101,"271,43013-2 ",.01)
 ;;43013-2
 ;;9002226.02101,"271,43013-2 ",.02)
 ;;43013-2
 ;;9002226.02101,"271,43185-8 ",.01)
 ;;43185-8
 ;;9002226.02101,"271,43185-8 ",.02)
 ;;43185-8
 ;;9002226.02101,"271,43599-0 ",.01)
 ;;43599-0
 ;;9002226.02101,"271,43599-0 ",.02)
 ;;43599-0
 ;;9002226.02101,"271,44531-2 ",.01)
 ;;44531-2
 ;;9002226.02101,"271,44531-2 ",.02)
 ;;44531-2
 ;;9002226.02101,"271,44532-0 ",.01)
 ;;44532-0
 ;;9002226.02101,"271,44532-0 ",.02)
 ;;44532-0
 ;;9002226.02101,"271,44533-8 ",.01)
 ;;44533-8
 ;;9002226.02101,"271,44533-8 ",.02)
 ;;44533-8
 ;;9002226.02101,"271,44607-0 ",.01)
 ;;44607-0
 ;;9002226.02101,"271,44607-0 ",.02)
 ;;44607-0
 ;;9002226.02101,"271,44871-2 ",.01)
 ;;44871-2
 ;;9002226.02101,"271,44871-2 ",.02)
 ;;44871-2
 ;;9002226.02101,"271,44872-0 ",.01)
 ;;44872-0
 ;;9002226.02101,"271,44872-0 ",.02)
 ;;44872-0
 ;;9002226.02101,"271,44873-8 ",.01)
 ;;44873-8
 ;;9002226.02101,"271,44873-8 ",.02)
 ;;44873-8
 ;;9002226.02101,"271,45175-7 ",.01)
 ;;45175-7
 ;;9002226.02101,"271,45175-7 ",.02)
 ;;45175-7
 ;;9002226.02101,"271,45176-5 ",.01)
 ;;45176-5
 ;;9002226.02101,"271,45176-5 ",.02)
 ;;45176-5
 ;;9002226.02101,"271,45182-3 ",.01)
 ;;45182-3
 ;;9002226.02101,"271,45182-3 ",.02)
 ;;45182-3
 ;;9002226.02101,"271,45212-8 ",.01)
 ;;45212-8
 ;;9002226.02101,"271,45212-8 ",.02)
 ;;45212-8
 ;;9002226.02101,"271,47029-4 ",.01)
 ;;47029-4
 ;;9002226.02101,"271,47029-4 ",.02)
 ;;47029-4
 ;;9002226.02101,"271,47359-5 ",.01)
 ;;47359-5
 ;;9002226.02101,"271,47359-5 ",.02)
 ;;47359-5
 ;;9002226.02101,"271,48023-6 ",.01)
 ;;48023-6
 ;;9002226.02101,"271,48023-6 ",.02)
 ;;48023-6
 ;;9002226.02101,"271,48345-3 ",.01)
 ;;48345-3
 ;;9002226.02101,"271,48345-3 ",.02)
 ;;48345-3
 ;;9002226.02101,"271,48346-1 ",.01)
 ;;48346-1
 ;;9002226.02101,"271,48346-1 ",.02)
 ;;48346-1
 ;;9002226.02101,"271,48510-2 ",.01)
 ;;48510-2
 ;;9002226.02101,"271,48510-2 ",.02)
 ;;48510-2
 ;;9002226.02101,"271,48511-0 ",.01)
 ;;48511-0
 ;;9002226.02101,"271,48511-0 ",.02)
 ;;48511-0
 ;;9002226.02101,"271,48551-6 ",.01)
 ;;48551-6
 ;;9002226.02101,"271,48551-6 ",.02)
 ;;48551-6
 ;;9002226.02101,"271,48552-4 ",.01)
 ;;48552-4
 ;;9002226.02101,"271,48552-4 ",.02)
 ;;48552-4
 ;;9002226.02101,"271,48558-1 ",.01)
 ;;48558-1
 ;;9002226.02101,"271,48558-1 ",.02)
 ;;48558-1
 ;;9002226.02101,"271,48559-9 ",.01)
 ;;48559-9
 ;;9002226.02101,"271,48559-9 ",.02)
 ;;48559-9
 ;;9002226.02101,"271,49483-1 ",.01)
 ;;49483-1
 ;;9002226.02101,"271,49483-1 ",.02)
 ;;49483-1
 ;;9002226.02101,"271,49965-7 ",.01)
 ;;49965-7
 ;;9002226.02101,"271,49965-7 ",.02)
 ;;49965-7
 ;;9002226.02101,"271,5017-9 ",.01)
 ;;5017-9
 ;;9002226.02101,"271,5017-9 ",.02)
 ;;5017-9
 ;;9002226.02101,"271,5018-7 ",.01)
 ;;5018-7
 ;;9002226.02101,"271,5018-7 ",.02)
 ;;5018-7
 ;;9002226.02101,"271,51780-5 ",.01)
 ;;51780-5
 ;;9002226.02101,"271,51780-5 ",.02)
 ;;51780-5
 ;;9002226.02101,"271,51786-2 ",.01)
 ;;51786-2
 ;;9002226.02101,"271,51786-2 ",.02)
 ;;51786-2
 ;;9002226.02101,"271,51866-2 ",.01)
 ;;51866-2
 ;;9002226.02101,"271,51866-2 ",.02)
 ;;51866-2
 ;;9002226.02101,"271,5220-9 ",.01)
 ;;5220-9
 ;;9002226.02101,"271,5220-9 ",.02)
 ;;5220-9
 ;;9002226.02101,"271,5221-7 ",.01)
 ;;5221-7
 ;;9002226.02101,"271,5221-7 ",.02)
 ;;5221-7
 ;;9002226.02101,"271,5222-5 ",.01)
 ;;5222-5
 ;;9002226.02101,"271,5222-5 ",.02)
 ;;5222-5
 ;;9002226.02101,"271,5223-3 ",.01)
 ;;5223-3
 ;;9002226.02101,"271,5223-3 ",.02)
 ;;5223-3
 ;;9002226.02101,"271,5224-1 ",.01)
 ;;5224-1
 ;;9002226.02101,"271,5224-1 ",.02)
 ;;5224-1
 ;;9002226.02101,"271,5225-8 ",.01)
 ;;5225-8
 ;;9002226.02101,"271,5225-8 ",.02)
 ;;5225-8
 ;;9002226.02101,"271,53601-1 ",.01)
 ;;53601-1
 ;;9002226.02101,"271,53601-1 ",.02)
 ;;53601-1
 ;;9002226.02101,"271,56888-1 ",.01)
 ;;56888-1
 ;;9002226.02101,"271,56888-1 ",.02)
 ;;56888-1
 ;;9002226.02101,"271,57976-3 ",.01)
 ;;57976-3
 ;;9002226.02101,"271,57976-3 ",.02)
 ;;57976-3
 ;;9002226.02101,"271,57977-1 ",.01)
 ;;57977-1
 ;;9002226.02101,"271,57977-1 ",.02)
 ;;57977-1
 ;;9002226.02101,"271,57978-9 ",.01)
 ;;57978-9
 ;;9002226.02101,"271,57978-9 ",.02)
 ;;57978-9
 ;;9002226.02101,"271,6429-5 ",.01)
 ;;6429-5
 ;;9002226.02101,"271,6429-5 ",.02)
 ;;6429-5
 ;;9002226.02101,"271,6430-3 ",.01)
 ;;6430-3
 ;;9002226.02101,"271,6430-3 ",.02)
 ;;6430-3
 ;;9002226.02101,"271,6431-1 ",.01)
 ;;6431-1
 ;;9002226.02101,"271,6431-1 ",.02)
 ;;6431-1
 ;;9002226.02101,"271,7917-8 ",.01)
 ;;7917-8
 ;;9002226.02101,"271,7917-8 ",.02)
 ;;7917-8
 ;;9002226.02101,"271,7918-6 ",.01)
 ;;7918-6
 ;;9002226.02101,"271,7918-6 ",.02)
 ;;7918-6
 ;;9002226.02101,"271,7919-4 ",.01)
 ;;7919-4
 ;;9002226.02101,"271,7919-4 ",.02)
 ;;7919-4
 ;;9002226.02101,"271,9660-2 ",.01)
 ;;9660-2
 ;;9002226.02101,"271,9660-2 ",.02)
 ;;9660-2
 ;;9002226.02101,"271,9661-0 ",.01)
 ;;9661-0
 ;;9002226.02101,"271,9661-0 ",.02)
 ;;9661-0
 ;;9002226.02101,"271,9662-8 ",.01)
 ;;9662-8
 ;;9002226.02101,"271,9662-8 ",.02)
 ;;9662-8
 ;;9002226.02101,"271,9663-6 ",.01)
 ;;9663-6
 ;;9002226.02101,"271,9663-6 ",.02)
 ;;9663-6
 ;;9002226.02101,"271,9664-4 ",.01)
 ;;9664-4
 ;;9002226.02101,"271,9664-4 ",.02)
 ;;9664-4
 ;;9002226.02101,"271,9665-1 ",.01)
 ;;9665-1
 ;;9002226.02101,"271,9665-1 ",.02)
 ;;9665-1
 ;;9002226.02101,"271,9666-9 ",.01)
 ;;9666-9
 ;;9002226.02101,"271,9666-9 ",.02)
 ;;9666-9
 ;;9002226.02101,"271,9667-7 ",.01)
 ;;9667-7
 ;;9002226.02101,"271,9667-7 ",.02)
 ;;9667-7
 ;;9002226.02101,"271,9668-5 ",.01)
 ;;9668-5
 ;;9002226.02101,"271,9668-5 ",.02)
 ;;9668-5
 ;;9002226.02101,"271,9669-3 ",.01)
 ;;9669-3
 ;;9002226.02101,"271,9669-3 ",.02)
 ;;9669-3
 ;;9002226.02101,"271,9821-0 ",.01)
 ;;9821-0
 ;;9002226.02101,"271,9821-0 ",.02)
 ;;9821-0
 ;;9002226.02101,"271,9836-8 ",.01)
 ;;9836-8
 ;;9002226.02101,"271,9836-8 ",.02)
 ;;9836-8
 ;;9002226.02101,"271,9837-6 ",.01)
 ;;9837-6
 ;;9002226.02101,"271,9837-6 ",.02)
 ;;9837-6
 ;;
 ;;3148
 ;;
 ;;897
 ;;
 ;;3191
 ;;
 ;;3196
 ;;
 ;;3197
 ;;
 ;;3149
 ;;
 ;;3150
 ;;
 ;;3151
 ;;
 ;;3208
 ;;
 ;;3209
 ;;
 ;;3435
 ;;
 ;;3436
 ;;
 ;;584
 ;;
 ;;583
 ;;
 ;;2440
 ;;
 ;;2091
 ;;
 ;;2092
 ;;
 ;;2093
 ;;
 ;;2094
 ;;
 ;;2096
 ;;
 ;;2097
 ;;
 ;;2098
 ;;
 ;;2095
 ;;
 ;;3314
 ;;
 ;;3315
 ;;
 ;;3316
 ;;
 ;;300
 ;;
 ;;298
 ;;
 ;;299
 ;;
 ;;301
 ;;
 ;;3446
 ;;
 ;;3447
 ;;
 ;;3448
 ;;
 ;;3449
 ;;
 ;;3450
 ;;
 ;;3451
 ;;
 ;;3453
 ;;
 ;;3452
 ;;
 ;;296
 ;;
 ;;261
 ;;
 ;;262
 ;;
 ;;263
 ;;
 ;;1223
 ;;
 ;;1224
 ;;
 ;;302
 ;;
 ;;1084
 ;;
 ;;2089
 ;;
 ;;2090
 ;;
 ;;535
 ;;
 ;;536
 ;;
 ;;571
 ;;
 ;;572
 ;;
 ;;2527
 ;;
 ;;58
 ;;
 ;;60
 ;;
 ;;61
 ;;
 ;;63
 ;;
 ;;59
 ;;
 ;;62
 ;;
 ;;1524
 ;;
 ;;1525
 ;;
 ;;826
 ;;
 ;;828
 ;;
 ;;824
 ;;
 ;;825
 ;;
 ;;827
 ;;
 ;;829
 ;;
 ;;2553
 ;;
 ;;2554
 ;;
 ;;2555
 ;;
 ;;2556
 ;;
 ;;2557
 ;;
 ;;2558
 ;;
 ;;2559
 ;;
 ;;2560
 ;;
 ;;844
 ;;
 ;;2985
 ;;
 ;;2986
 ;;
 ;;2987
 ;;
 ;;2988
 ;;
 ;;2989
 ;;
 ;;2990
 ;;
 ;;1581
 ;;
 ;;1582
 ;;
 ;;3401
 ;;
 ;;3402
 ;;
 ;;3400
 ;;
 ;;1374
 ;;
 ;;1375
 ;;
 ;;1376
 ;;
 ;;392
 ;;
 ;;3234
 ;;
 ;;3235
 ;;
 ;;3
 ;;
 ;;4
 ;;
 ;;2911
 ;;
 ;;2912
 ;;
 ;;2913
 ;;
 ;;2914
 ;;
 ;;1115
 ;;
 ;;1116
 ;;
 ;;83
 ;;
 ;;395
 ;;
 ;;393
 ;;
 ;;2371
 ;;
 ;;2372
 ;;
 ;;2373
 ;;
 ;;394
 ;;
 ;;391
 ;;
 ;;1053
 ;;
 ;;2996
 ;;
 ;;2997
 ;;
 ;;2995
 ;;
 ;;1754
 ;;
 ;;611
 ;;
 ;;613
 ;;
 ;;614
 ;;
 ;;616
 ;;
 ;;1109
 ;;
 ;;1110
 ;;
 ;;1111
 ;;
 ;;1112
 ;;
 ;;1113
 ;;
 ;;1114
 ;;
 ;;1538
 ;;
 ;;3229
 ;;
 ;;3230
 ;;
 ;;3231
 ;;
 ;;612
 ;;
 ;;615
 ;;
 ;;1752
 ;;
 ;;1753
 ;;
 ;;3364