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

BGPM3AE.m

Go to the documentation of this file.
BGPM3AE ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
 ;
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,"785,63304078930 ",.01)
 ;;63304078930
 ;;9002226.02101,"785,63304078930 ",.02)
 ;;63304078930
 ;;9002226.02101,"785,63304078990 ",.01)
 ;;63304078990
 ;;9002226.02101,"785,63304078990 ",.02)
 ;;63304078990
 ;;9002226.02101,"785,63304079010 ",.01)
 ;;63304079010
 ;;9002226.02101,"785,63304079010 ",.02)
 ;;63304079010
 ;;9002226.02101,"785,63304079030 ",.01)
 ;;63304079030
 ;;9002226.02101,"785,63304079030 ",.02)
 ;;63304079030
 ;;9002226.02101,"785,63304079090 ",.01)
 ;;63304079090
 ;;9002226.02101,"785,63304079090 ",.02)
 ;;63304079090
 ;;9002226.02101,"785,63304079110 ",.01)
 ;;63304079110
 ;;9002226.02101,"785,63304079110 ",.02)
 ;;63304079110
 ;;9002226.02101,"785,63304079130 ",.01)
 ;;63304079130
 ;;9002226.02101,"785,63304079130 ",.02)
 ;;63304079130
 ;;9002226.02101,"785,63304079190 ",.01)
 ;;63304079190
 ;;9002226.02101,"785,63304079190 ",.02)
 ;;63304079190
 ;;9002226.02101,"785,63304079210 ",.01)
 ;;63304079210
 ;;9002226.02101,"785,63304079210 ",.02)
 ;;63304079210
 ;;9002226.02101,"785,63304079230 ",.01)
 ;;63304079230
 ;;9002226.02101,"785,63304079230 ",.02)
 ;;63304079230
 ;;9002226.02101,"785,63304079250 ",.01)
 ;;63304079250
 ;;9002226.02101,"785,63304079250 ",.02)
 ;;63304079250
 ;;9002226.02101,"785,63304079290 ",.01)
 ;;63304079290
 ;;9002226.02101,"785,63304079290 ",.02)
 ;;63304079290
 ;;9002226.02101,"785,63304079310 ",.01)
 ;;63304079310
 ;;9002226.02101,"785,63304079310 ",.02)
 ;;63304079310
 ;;9002226.02101,"785,63304079330 ",.01)
 ;;63304079330
 ;;9002226.02101,"785,63304079330 ",.02)
 ;;63304079330
 ;;9002226.02101,"785,63304079350 ",.01)
 ;;63304079350
 ;;9002226.02101,"785,63304079350 ",.02)
 ;;63304079350
 ;;9002226.02101,"785,63304079390 ",.01)
 ;;63304079390
 ;;9002226.02101,"785,63304079390 ",.02)
 ;;63304079390
 ;;9002226.02101,"785,63629146401 ",.01)
 ;;63629146401
 ;;9002226.02101,"785,63629146401 ",.02)
 ;;63629146401
 ;;9002226.02101,"785,63629146402 ",.01)
 ;;63629146402
 ;;9002226.02101,"785,63629146402 ",.02)
 ;;63629146402
 ;;9002226.02101,"785,63629146403 ",.01)
 ;;63629146403
 ;;9002226.02101,"785,63629146403 ",.02)
 ;;63629146403
 ;;9002226.02101,"785,63629178401 ",.01)
 ;;63629178401
 ;;9002226.02101,"785,63629178401 ",.02)
 ;;63629178401
 ;;9002226.02101,"785,63629178402 ",.01)
 ;;63629178402
 ;;9002226.02101,"785,63629178402 ",.02)
 ;;63629178402
 ;;9002226.02101,"785,63629338501 ",.01)
 ;;63629338501
 ;;9002226.02101,"785,63629338501 ",.02)
 ;;63629338501
 ;;9002226.02101,"785,63629338502 ",.01)
 ;;63629338502
 ;;9002226.02101,"785,63629338502 ",.02)
 ;;63629338502
 ;;9002226.02101,"785,63629338503 ",.01)
 ;;63629338503
 ;;9002226.02101,"785,63629338503 ",.02)
 ;;63629338503
 ;;9002226.02101,"785,63629338504 ",.01)
 ;;63629338504
 ;;9002226.02101,"785,63629338504 ",.02)
 ;;63629338504
 ;;9002226.02101,"785,63629338505 ",.01)
 ;;63629338505
 ;;9002226.02101,"785,63629338505 ",.02)
 ;;63629338505
 ;;9002226.02101,"785,63629339201 ",.01)
 ;;63629339201
 ;;9002226.02101,"785,63629339201 ",.02)
 ;;63629339201
 ;;9002226.02101,"785,63629339301 ",.01)
 ;;63629339301
 ;;9002226.02101,"785,63629339301 ",.02)
 ;;63629339301
 ;;9002226.02101,"785,63629339302 ",.01)
 ;;63629339302
 ;;9002226.02101,"785,63629339302 ",.02)
 ;;63629339302
 ;;9002226.02101,"785,63629339303 ",.01)
 ;;63629339303
 ;;9002226.02101,"785,63629339303 ",.02)
 ;;63629339303
 ;;9002226.02101,"785,63629339304 ",.01)
 ;;63629339304
 ;;9002226.02101,"785,63629339304 ",.02)
 ;;63629339304
 ;;9002226.02101,"785,63629340801 ",.01)
 ;;63629340801
 ;;9002226.02101,"785,63629340801 ",.02)
 ;;63629340801
 ;;9002226.02101,"785,63629340804 ",.01)
 ;;63629340804
 ;;9002226.02101,"785,63629340804 ",.02)
 ;;63629340804
 ;;9002226.02101,"785,63629358301 ",.01)
 ;;63629358301
 ;;9002226.02101,"785,63629358301 ",.02)
 ;;63629358301
 ;;9002226.02101,"785,63629358302 ",.01)
 ;;63629358302
 ;;9002226.02101,"785,63629358302 ",.02)
 ;;63629358302
 ;;9002226.02101,"785,63672000101 ",.01)
 ;;63672000101
 ;;9002226.02101,"785,63672000101 ",.02)
 ;;63672000101
 ;;9002226.02101,"785,63672000103 ",.01)
 ;;63672000103
 ;;9002226.02101,"785,63672000103 ",.02)
 ;;63672000103
 ;;9002226.02101,"785,63672000201 ",.01)
 ;;63672000201
 ;;9002226.02101,"785,63672000201 ",.02)
 ;;63672000201
 ;;9002226.02101,"785,63672000203 ",.01)
 ;;63672000203
 ;;9002226.02101,"785,63672000203 ",.02)
 ;;63672000203
 ;;9002226.02101,"785,63672000301 ",.01)
 ;;63672000301
 ;;9002226.02101,"785,63672000301 ",.02)
 ;;63672000301
 ;;9002226.02101,"785,63672000303 ",.01)
 ;;63672000303
 ;;9002226.02101,"785,63672000303 ",.02)
 ;;63672000303
 ;;9002226.02101,"785,63672000401 ",.01)
 ;;63672000401
 ;;9002226.02101,"785,63672000401 ",.02)
 ;;63672000401
 ;;9002226.02101,"785,63672000403 ",.01)
 ;;63672000403
 ;;9002226.02101,"785,63672000403 ",.02)
 ;;63672000403
 ;;9002226.02101,"785,63739028010 ",.01)
 ;;63739028010
 ;;9002226.02101,"785,63739028010 ",.02)
 ;;63739028010
 ;;9002226.02101,"785,63739028015 ",.01)
 ;;63739028015
 ;;9002226.02101,"785,63739028015 ",.02)
 ;;63739028015
 ;;9002226.02101,"785,63739028101 ",.01)
 ;;63739028101
 ;;9002226.02101,"785,63739028101 ",.02)
 ;;63739028101
 ;;9002226.02101,"785,63739028103 ",.01)
 ;;63739028103
 ;;9002226.02101,"785,63739028103 ",.02)
 ;;63739028103
 ;;9002226.02101,"785,63739028110 ",.01)
 ;;63739028110
 ;;9002226.02101,"785,63739028110 ",.02)
 ;;63739028110
 ;;9002226.02101,"785,63739028115 ",.01)
 ;;63739028115
 ;;9002226.02101,"785,63739028115 ",.02)
 ;;63739028115
 ;;9002226.02101,"785,63739028201 ",.01)
 ;;63739028201
 ;;9002226.02101,"785,63739028201 ",.02)
 ;;63739028201
 ;;9002226.02101,"785,63739028203 ",.01)
 ;;63739028203
 ;;9002226.02101,"785,63739028203 ",.02)
 ;;63739028203
 ;;9002226.02101,"785,63739028210 ",.01)
 ;;63739028210
 ;;9002226.02101,"785,63739028210 ",.02)
 ;;63739028210
 ;;9002226.02101,"785,63739041910 ",.01)
 ;;63739041910
 ;;9002226.02101,"785,63739041910 ",.02)
 ;;63739041910
 ;;9002226.02101,"785,63739042010 ",.01)
 ;;63739042010
 ;;9002226.02101,"785,63739042010 ",.02)
 ;;63739042010
 ;;9002226.02101,"785,63739042110 ",.01)
 ;;63739042110
 ;;9002226.02101,"785,63739042110 ",.02)
 ;;63739042110
 ;;9002226.02101,"785,63739042210 ",.01)
 ;;63739042210
 ;;9002226.02101,"785,63739042210 ",.02)
 ;;63739042210
 ;;9002226.02101,"785,63739043510 ",.01)
 ;;63739043510
 ;;9002226.02101,"785,63739043510 ",.02)
 ;;63739043510
 ;;9002226.02101,"785,63739043610 ",.01)
 ;;63739043610
 ;;9002226.02101,"785,63739043610 ",.02)
 ;;63739043610
 ;;9002226.02101,"785,63739043710 ",.01)
 ;;63739043710
 ;;9002226.02101,"785,63739043710 ",.02)
 ;;63739043710
 ;;9002226.02101,"785,63739043810 ",.01)
 ;;63739043810
 ;;9002226.02101,"785,63739043810 ",.02)
 ;;63739043810
 ;;9002226.02101,"785,63874036301 ",.01)
 ;;63874036301
 ;;9002226.02101,"785,63874036301 ",.02)
 ;;63874036301
 ;;9002226.02101,"785,63874036310 ",.01)
 ;;63874036310
 ;;9002226.02101,"785,63874036310 ",.02)
 ;;63874036310
 ;;9002226.02101,"785,63874036320 ",.01)
 ;;63874036320
 ;;9002226.02101,"785,63874036320 ",.02)
 ;;63874036320
 ;;9002226.02101,"785,63874036330 ",.01)
 ;;63874036330
 ;;9002226.02101,"785,63874036330 ",.02)
 ;;63874036330
 ;;9002226.02101,"785,63874036360 ",.01)
 ;;63874036360
 ;;9002226.02101,"785,63874036360 ",.02)
 ;;63874036360
 ;;9002226.02101,"785,63874036390 ",.01)
 ;;63874036390
 ;;9002226.02101,"785,63874036390 ",.02)
 ;;63874036390
 ;;9002226.02101,"785,65243035203 ",.01)
 ;;65243035203
 ;;9002226.02101,"785,65243035203 ",.02)
 ;;65243035203
 ;;9002226.02101,"785,65243035206 ",.01)
 ;;65243035206
 ;;9002226.02101,"785,65243035206 ",.02)
 ;;65243035206
 ;;9002226.02101,"785,65243035209 ",.01)
 ;;65243035209
 ;;9002226.02101,"785,65243035209 ",.02)
 ;;65243035209
 ;;9002226.02101,"785,65243035218 ",.01)
 ;;65243035218
 ;;9002226.02101,"785,65243035218 ",.02)
 ;;65243035218
 ;;9002226.02101,"785,65243035245 ",.01)
 ;;65243035245
 ;;9002226.02101,"785,65243035245 ",.02)
 ;;65243035245
 ;;9002226.02101,"785,65243036103 ",.01)
 ;;65243036103
 ;;9002226.02101,"785,65243036103 ",.02)
 ;;65243036103
 ;;9002226.02101,"785,65243036106 ",.01)
 ;;65243036106
 ;;9002226.02101,"785,65243036106 ",.02)
 ;;65243036106
 ;;9002226.02101,"785,65243036109 ",.01)
 ;;65243036109
 ;;9002226.02101,"785,65243036109 ",.02)
 ;;65243036109
 ;;9002226.02101,"785,65243036115 ",.01)
 ;;65243036115
 ;;9002226.02101,"785,65243036115 ",.02)
 ;;65243036115
 ;;9002226.02101,"785,65243036145 ",.01)
 ;;65243036145
 ;;9002226.02101,"785,65243036145 ",.02)
 ;;65243036145
 ;;9002226.02101,"785,65243036503 ",.01)
 ;;65243036503
 ;;9002226.02101,"785,65243036503 ",.02)
 ;;65243036503
 ;;9002226.02101,"785,65243036506 ",.01)
 ;;65243036506
 ;;9002226.02101,"785,65243036506 ",.02)
 ;;65243036506
 ;;9002226.02101,"785,65243036509 ",.01)
 ;;65243036509
 ;;9002226.02101,"785,65243036509 ",.02)
 ;;65243036509
 ;;9002226.02101,"785,65243036515 ",.01)
 ;;65243036515
 ;;9002226.02101,"785,65243036515 ",.02)
 ;;65243036515
 ;;9002226.02101,"785,65243036545 ",.01)
 ;;65243036545
 ;;9002226.02101,"785,65243036545 ",.02)
 ;;65243036545
 ;;9002226.02101,"785,65243036903 ",.01)
 ;;65243036903
 ;;9002226.02101,"785,65243036903 ",.02)
 ;;65243036903
 ;;9002226.02101,"785,65243036906 ",.01)
 ;;65243036906
 ;;9002226.02101,"785,65243036906 ",.02)
 ;;65243036906
 ;;9002226.02101,"785,65243036909 ",.01)
 ;;65243036909
 ;;9002226.02101,"785,65243036909 ",.02)
 ;;65243036909
 ;;9002226.02101,"785,65243036915 ",.01)
 ;;65243036915
 ;;9002226.02101,"785,65243036915 ",.02)
 ;;65243036915
 ;;9002226.02101,"785,65243036945 ",.01)
 ;;65243036945
 ;;9002226.02101,"785,65243036945 ",.02)
 ;;65243036945
 ;;9002226.02101,"785,65841006505 ",.01)
 ;;65841006505
 ;;9002226.02101,"785,65841006505 ",.02)
 ;;65841006505
 ;;9002226.02101,"785,65841006506 ",.01)
 ;;65841006506
 ;;9002226.02101,"785,65841006506 ",.02)
 ;;65841006506
 ;;9002226.02101,"785,65841006510 ",.01)
 ;;65841006510
 ;;9002226.02101,"785,65841006510 ",.02)
 ;;65841006510
 ;;9002226.02101,"785,65841006514 ",.01)
 ;;65841006514
 ;;9002226.02101,"785,65841006514 ",.02)
 ;;65841006514
 ;;9002226.02101,"785,65841006516 ",.01)
 ;;65841006516
 ;;9002226.02101,"785,65841006516 ",.02)
 ;;65841006516
 ;;9002226.02101,"785,65841006605 ",.01)
 ;;65841006605
 ;;9002226.02101,"785,65841006605 ",.02)
 ;;65841006605
 ;;9002226.02101,"785,65841006606 ",.01)
 ;;65841006606
 ;;9002226.02101,"785,65841006606 ",.02)
 ;;65841006606
 ;;9002226.02101,"785,65841006610 ",.01)
 ;;65841006610
 ;;9002226.02101,"785,65841006610 ",.02)
 ;;65841006610
 ;;9002226.02101,"785,65841006614 ",.01)
 ;;65841006614
 ;;9002226.02101,"785,65841006614 ",.02)
 ;;65841006614
 ;;9002226.02101,"785,65841006616 ",.01)
 ;;65841006616
 ;;9002226.02101,"785,65841006616 ",.02)
 ;;65841006616
 ;;9002226.02101,"785,65841006624 ",.01)
 ;;65841006624
 ;;9002226.02101,"785,65841006624 ",.02)
 ;;65841006624
 ;;9002226.02101,"785,65841006705 ",.01)
 ;;65841006705
 ;;9002226.02101,"785,65841006705 ",.02)
 ;;65841006705
 ;;9002226.02101,"785,65841006706 ",.01)
 ;;65841006706
 ;;9002226.02101,"785,65841006706 ",.02)
 ;;65841006706
 ;;9002226.02101,"785,65841006710 ",.01)
 ;;65841006710
 ;;9002226.02101,"785,65841006710 ",.02)
 ;;65841006710
 ;;9002226.02101,"785,65841006714 ",.01)
 ;;65841006714
 ;;9002226.02101,"785,65841006714 ",.02)
 ;;65841006714
 ;;9002226.02101,"785,65841006716 ",.01)
 ;;65841006716
 ;;9002226.02101,"785,65841006716 ",.02)
 ;;65841006716