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

BGPM3ADE.m

Go to the documentation of this file.
  1. BGPM3ADE ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
  1. ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
  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,"786,63304078990 ",.02)
  1. ;;63304078990
  1. ;;9002226.02101,"786,63304079010 ",.01)
  1. ;;63304079010
  1. ;;9002226.02101,"786,63304079010 ",.02)
  1. ;;63304079010
  1. ;;9002226.02101,"786,63304079030 ",.01)
  1. ;;63304079030
  1. ;;9002226.02101,"786,63304079030 ",.02)
  1. ;;63304079030
  1. ;;9002226.02101,"786,63304079090 ",.01)
  1. ;;63304079090
  1. ;;9002226.02101,"786,63304079090 ",.02)
  1. ;;63304079090
  1. ;;9002226.02101,"786,63304079110 ",.01)
  1. ;;63304079110
  1. ;;9002226.02101,"786,63304079110 ",.02)
  1. ;;63304079110
  1. ;;9002226.02101,"786,63304079130 ",.01)
  1. ;;63304079130
  1. ;;9002226.02101,"786,63304079130 ",.02)
  1. ;;63304079130
  1. ;;9002226.02101,"786,63304079190 ",.01)
  1. ;;63304079190
  1. ;;9002226.02101,"786,63304079190 ",.02)
  1. ;;63304079190
  1. ;;9002226.02101,"786,63304079210 ",.01)
  1. ;;63304079210
  1. ;;9002226.02101,"786,63304079210 ",.02)
  1. ;;63304079210
  1. ;;9002226.02101,"786,63304079230 ",.01)
  1. ;;63304079230
  1. ;;9002226.02101,"786,63304079230 ",.02)
  1. ;;63304079230
  1. ;;9002226.02101,"786,63304079250 ",.01)
  1. ;;63304079250
  1. ;;9002226.02101,"786,63304079250 ",.02)
  1. ;;63304079250
  1. ;;9002226.02101,"786,63304079290 ",.01)
  1. ;;63304079290
  1. ;;9002226.02101,"786,63304079290 ",.02)
  1. ;;63304079290
  1. ;;9002226.02101,"786,63304079310 ",.01)
  1. ;;63304079310
  1. ;;9002226.02101,"786,63304079310 ",.02)
  1. ;;63304079310
  1. ;;9002226.02101,"786,63304079330 ",.01)
  1. ;;63304079330
  1. ;;9002226.02101,"786,63304079330 ",.02)
  1. ;;63304079330
  1. ;;9002226.02101,"786,63304079350 ",.01)
  1. ;;63304079350
  1. ;;9002226.02101,"786,63304079350 ",.02)
  1. ;;63304079350
  1. ;;9002226.02101,"786,63304079390 ",.01)
  1. ;;63304079390
  1. ;;9002226.02101,"786,63304079390 ",.02)
  1. ;;63304079390
  1. ;;9002226.02101,"786,63304090090 ",.01)
  1. ;;63304090090
  1. ;;9002226.02101,"786,63304090090 ",.02)
  1. ;;63304090090
  1. ;;9002226.02101,"786,63304090105 ",.01)
  1. ;;63304090105
  1. ;;9002226.02101,"786,63304090105 ",.02)
  1. ;;63304090105
  1. ;;9002226.02101,"786,63304090190 ",.01)
  1. ;;63304090190
  1. ;;9002226.02101,"786,63304090190 ",.02)
  1. ;;63304090190
  1. ;;9002226.02101,"786,63629139001 ",.01)
  1. ;;63629139001
  1. ;;9002226.02101,"786,63629139001 ",.02)
  1. ;;63629139001
  1. ;;9002226.02101,"786,63629139002 ",.01)
  1. ;;63629139002
  1. ;;9002226.02101,"786,63629139002 ",.02)
  1. ;;63629139002
  1. ;;9002226.02101,"786,63629139003 ",.01)
  1. ;;63629139003
  1. ;;9002226.02101,"786,63629139003 ",.02)
  1. ;;63629139003
  1. ;;9002226.02101,"786,63629146401 ",.01)
  1. ;;63629146401
  1. ;;9002226.02101,"786,63629146401 ",.02)
  1. ;;63629146401
  1. ;;9002226.02101,"786,63629146402 ",.01)
  1. ;;63629146402
  1. ;;9002226.02101,"786,63629146402 ",.02)
  1. ;;63629146402
  1. ;;9002226.02101,"786,63629146403 ",.01)
  1. ;;63629146403
  1. ;;9002226.02101,"786,63629146403 ",.02)
  1. ;;63629146403
  1. ;;9002226.02101,"786,63629178401 ",.01)
  1. ;;63629178401
  1. ;;9002226.02101,"786,63629178401 ",.02)
  1. ;;63629178401
  1. ;;9002226.02101,"786,63629178402 ",.01)
  1. ;;63629178402
  1. ;;9002226.02101,"786,63629178402 ",.02)
  1. ;;63629178402
  1. ;;9002226.02101,"786,63629338501 ",.01)
  1. ;;63629338501
  1. ;;9002226.02101,"786,63629338501 ",.02)
  1. ;;63629338501
  1. ;;9002226.02101,"786,63629338502 ",.01)
  1. ;;63629338502
  1. ;;9002226.02101,"786,63629338502 ",.02)
  1. ;;63629338502
  1. ;;9002226.02101,"786,63629338503 ",.01)
  1. ;;63629338503
  1. ;;9002226.02101,"786,63629338503 ",.02)
  1. ;;63629338503
  1. ;;9002226.02101,"786,63629338504 ",.01)
  1. ;;63629338504
  1. ;;9002226.02101,"786,63629338504 ",.02)
  1. ;;63629338504
  1. ;;9002226.02101,"786,63629338505 ",.01)
  1. ;;63629338505
  1. ;;9002226.02101,"786,63629338505 ",.02)
  1. ;;63629338505
  1. ;;9002226.02101,"786,63629339201 ",.01)
  1. ;;63629339201
  1. ;;9002226.02101,"786,63629339201 ",.02)
  1. ;;63629339201
  1. ;;9002226.02101,"786,63629339301 ",.01)
  1. ;;63629339301
  1. ;;9002226.02101,"786,63629339301 ",.02)
  1. ;;63629339301
  1. ;;9002226.02101,"786,63629339302 ",.01)
  1. ;;63629339302
  1. ;;9002226.02101,"786,63629339302 ",.02)
  1. ;;63629339302
  1. ;;9002226.02101,"786,63629339303 ",.01)
  1. ;;63629339303
  1. ;;9002226.02101,"786,63629339303 ",.02)
  1. ;;63629339303
  1. ;;9002226.02101,"786,63629339304 ",.01)
  1. ;;63629339304
  1. ;;9002226.02101,"786,63629339304 ",.02)
  1. ;;63629339304
  1. ;;9002226.02101,"786,63629340801 ",.01)
  1. ;;63629340801
  1. ;;9002226.02101,"786,63629340801 ",.02)
  1. ;;63629340801
  1. ;;9002226.02101,"786,63629340804 ",.01)
  1. ;;63629340804
  1. ;;9002226.02101,"786,63629340804 ",.02)
  1. ;;63629340804
  1. ;;9002226.02101,"786,63629358301 ",.01)
  1. ;;63629358301
  1. ;;9002226.02101,"786,63629358301 ",.02)
  1. ;;63629358301
  1. ;;9002226.02101,"786,63629358302 ",.01)
  1. ;;63629358302
  1. ;;9002226.02101,"786,63629358302 ",.02)
  1. ;;63629358302
  1. ;;9002226.02101,"786,63672000101 ",.01)
  1. ;;63672000101
  1. ;;9002226.02101,"786,63672000101 ",.02)
  1. ;;63672000101
  1. ;;9002226.02101,"786,63672000103 ",.01)
  1. ;;63672000103
  1. ;;9002226.02101,"786,63672000103 ",.02)
  1. ;;63672000103
  1. ;;9002226.02101,"786,63672000201 ",.01)
  1. ;;63672000201
  1. ;;9002226.02101,"786,63672000201 ",.02)
  1. ;;63672000201
  1. ;;9002226.02101,"786,63672000203 ",.01)
  1. ;;63672000203
  1. ;;9002226.02101,"786,63672000203 ",.02)
  1. ;;63672000203
  1. ;;9002226.02101,"786,63672000301 ",.01)
  1. ;;63672000301
  1. ;;9002226.02101,"786,63672000301 ",.02)
  1. ;;63672000301
  1. ;;9002226.02101,"786,63672000303 ",.01)
  1. ;;63672000303
  1. ;;9002226.02101,"786,63672000303 ",.02)
  1. ;;63672000303
  1. ;;9002226.02101,"786,63672000401 ",.01)
  1. ;;63672000401
  1. ;;9002226.02101,"786,63672000401 ",.02)
  1. ;;63672000401
  1. ;;9002226.02101,"786,63672000403 ",.01)
  1. ;;63672000403
  1. ;;9002226.02101,"786,63672000403 ",.02)
  1. ;;63672000403
  1. ;;9002226.02101,"786,63739011401 ",.01)
  1. ;;63739011401
  1. ;;9002226.02101,"786,63739011401 ",.02)
  1. ;;63739011401
  1. ;;9002226.02101,"786,63739011403 ",.01)
  1. ;;63739011403
  1. ;;9002226.02101,"786,63739011403 ",.02)
  1. ;;63739011403
  1. ;;9002226.02101,"786,63739028010 ",.01)
  1. ;;63739028010
  1. ;;9002226.02101,"786,63739028010 ",.02)
  1. ;;63739028010
  1. ;;9002226.02101,"786,63739028015 ",.01)
  1. ;;63739028015
  1. ;;9002226.02101,"786,63739028015 ",.02)
  1. ;;63739028015
  1. ;;9002226.02101,"786,63739028101 ",.01)
  1. ;;63739028101
  1. ;;9002226.02101,"786,63739028101 ",.02)
  1. ;;63739028101
  1. ;;9002226.02101,"786,63739028103 ",.01)
  1. ;;63739028103
  1. ;;9002226.02101,"786,63739028103 ",.02)
  1. ;;63739028103
  1. ;;9002226.02101,"786,63739028110 ",.01)
  1. ;;63739028110
  1. ;;9002226.02101,"786,63739028110 ",.02)
  1. ;;63739028110
  1. ;;9002226.02101,"786,63739028115 ",.01)
  1. ;;63739028115
  1. ;;9002226.02101,"786,63739028115 ",.02)
  1. ;;63739028115
  1. ;;9002226.02101,"786,63739028201 ",.01)
  1. ;;63739028201
  1. ;;9002226.02101,"786,63739028201 ",.02)
  1. ;;63739028201
  1. ;;9002226.02101,"786,63739028203 ",.01)
  1. ;;63739028203
  1. ;;9002226.02101,"786,63739028203 ",.02)
  1. ;;63739028203
  1. ;;9002226.02101,"786,63739028210 ",.01)
  1. ;;63739028210
  1. ;;9002226.02101,"786,63739028210 ",.02)
  1. ;;63739028210
  1. ;;9002226.02101,"786,63739041910 ",.01)
  1. ;;63739041910
  1. ;;9002226.02101,"786,63739041910 ",.02)
  1. ;;63739041910
  1. ;;9002226.02101,"786,63739042010 ",.01)
  1. ;;63739042010
  1. ;;9002226.02101,"786,63739042010 ",.02)
  1. ;;63739042010
  1. ;;9002226.02101,"786,63739042110 ",.01)
  1. ;;63739042110
  1. ;;9002226.02101,"786,63739042110 ",.02)
  1. ;;63739042110
  1. ;;9002226.02101,"786,63739042210 ",.01)
  1. ;;63739042210
  1. ;;9002226.02101,"786,63739042210 ",.02)
  1. ;;63739042210
  1. ;;9002226.02101,"786,63739043510 ",.01)
  1. ;;63739043510
  1. ;;9002226.02101,"786,63739043510 ",.02)
  1. ;;63739043510
  1. ;;9002226.02101,"786,63739043610 ",.01)
  1. ;;63739043610
  1. ;;9002226.02101,"786,63739043610 ",.02)
  1. ;;63739043610
  1. ;;9002226.02101,"786,63739043710 ",.01)
  1. ;;63739043710
  1. ;;9002226.02101,"786,63739043710 ",.02)
  1. ;;63739043710
  1. ;;9002226.02101,"786,63739043810 ",.01)
  1. ;;63739043810
  1. ;;9002226.02101,"786,63739043810 ",.02)
  1. ;;63739043810
  1. ;;9002226.02101,"786,63874036301 ",.01)
  1. ;;63874036301
  1. ;;9002226.02101,"786,63874036301 ",.02)
  1. ;;63874036301
  1. ;;9002226.02101,"786,63874036310 ",.01)
  1. ;;63874036310
  1. ;;9002226.02101,"786,63874036310 ",.02)
  1. ;;63874036310
  1. ;;9002226.02101,"786,63874036320 ",.01)
  1. ;;63874036320
  1. ;;9002226.02101,"786,63874036320 ",.02)
  1. ;;63874036320
  1. ;;9002226.02101,"786,63874036330 ",.01)
  1. ;;63874036330
  1. ;;9002226.02101,"786,63874036330 ",.02)
  1. ;;63874036330
  1. ;;9002226.02101,"786,63874036360 ",.01)
  1. ;;63874036360
  1. ;;9002226.02101,"786,63874036360 ",.02)
  1. ;;63874036360
  1. ;;9002226.02101,"786,63874036390 ",.01)
  1. ;;63874036390
  1. ;;9002226.02101,"786,63874036390 ",.02)
  1. ;;63874036390
  1. ;;9002226.02101,"786,64725014403 ",.01)
  1. ;;64725014403
  1. ;;9002226.02101,"786,64725014403 ",.02)
  1. ;;64725014403
  1. ;;9002226.02101,"786,64896051101 ",.01)
  1. ;;64896051101
  1. ;;9002226.02101,"786,64896051101 ",.02)
  1. ;;64896051101
  1. ;;9002226.02101,"786,64896052201 ",.01)
  1. ;;64896052201
  1. ;;9002226.02101,"786,64896052201 ",.02)
  1. ;;64896052201
  1. ;;9002226.02101,"786,64896053301 ",.01)
  1. ;;64896053301
  1. ;;9002226.02101,"786,64896053301 ",.02)
  1. ;;64896053301
  1. ;;9002226.02101,"786,64896521102 ",.01)
  1. ;;64896521102
  1. ;;9002226.02101,"786,64896521102 ",.02)
  1. ;;64896521102
  1. ;;9002226.02101,"786,64896521106 ",.01)
  1. ;;64896521106
  1. ;;9002226.02101,"786,64896521106 ",.02)
  1. ;;64896521106
  1. ;;9002226.02101,"786,64896521302 ",.01)
  1. ;;64896521302
  1. ;;9002226.02101,"786,64896521302 ",.02)
  1. ;;64896521302
  1. ;;9002226.02101,"786,64896551101 ",.01)
  1. ;;64896551101
  1. ;;9002226.02101,"786,64896551101 ",.02)
  1. ;;64896551101
  1. ;;9002226.02101,"786,64896551102 ",.01)
  1. ;;64896551102
  1. ;;9002226.02101,"786,64896551102 ",.02)
  1. ;;64896551102
  1. ;;9002226.02101,"786,64896551103 ",.01)
  1. ;;64896551103
  1. ;;9002226.02101,"786,64896551103 ",.02)
  1. ;;64896551103
  1. ;;9002226.02101,"786,64896551105 ",.01)
  1. ;;64896551105
  1. ;;9002226.02101,"786,64896551105 ",.02)
  1. ;;64896551105
  1. ;;9002226.02101,"786,64915014160 ",.01)
  1. ;;64915014160
  1. ;;9002226.02101,"786,64915014160 ",.02)
  1. ;;64915014160
  1. ;;9002226.02101,"786,65162041810 ",.01)
  1. ;;65162041810
  1. ;;9002226.02101,"786,65162041810 ",.02)
  1. ;;65162041810
  1. ;;9002226.02101,"786,65162041811 ",.01)
  1. ;;65162041811
  1. ;;9002226.02101,"786,65162041811 ",.02)
  1. ;;65162041811
  1. ;;9002226.02101,"786,65162042010 ",.01)
  1. ;;65162042010
  1. ;;9002226.02101,"786,65162042010 ",.02)
  1. ;;65162042010
  1. ;;9002226.02101,"786,65162042011 ",.01)
  1. ;;65162042011
  1. ;;9002226.02101,"786,65162042011 ",.02)
  1. ;;65162042011
  1. ;;9002226.02101,"786,65162042110 ",.01)
  1. ;;65162042110
  1. ;;9002226.02101,"786,65162042110 ",.02)
  1. ;;65162042110
  1. ;;9002226.02101,"786,65243003506 ",.01)
  1. ;;65243003506
  1. ;;9002226.02101,"786,65243003506 ",.02)
  1. ;;65243003506
  1. ;;9002226.02101,"786,65243003518 ",.01)
  1. ;;65243003518
  1. ;;9002226.02101,"786,65243003518 ",.02)
  1. ;;65243003518
  1. ;;9002226.02101,"786,65243028403 ",.01)
  1. ;;65243028403
  1. ;;9002226.02101,"786,65243028403 ",.02)
  1. ;;65243028403
  1. ;;9002226.02101,"786,65243028406 ",.01)
  1. ;;65243028406
  1. ;;9002226.02101,"786,65243028406 ",.02)
  1. ;;65243028406
  1. ;;9002226.02101,"786,65243028409 ",.01)
  1. ;;65243028409
  1. ;;9002226.02101,"786,65243028409 ",.02)
  1. ;;65243028409
  1. ;;9002226.02101,"786,65243028412 ",.01)
  1. ;;65243028412
  1. ;;9002226.02101,"786,65243028412 ",.02)
  1. ;;65243028412
  1. ;;9002226.02101,"786,65243028418 ",.01)
  1. ;;65243028418
  1. ;;9002226.02101,"786,65243028418 ",.02)
  1. ;;65243028418
  1. ;;9002226.02101,"786,65243035203 ",.01)
  1. ;;65243035203
  1. ;;9002226.02101,"786,65243035203 ",.02)
  1. ;;65243035203
  1. ;;9002226.02101,"786,65243035206 ",.01)
  1. ;;65243035206
  1. ;;9002226.02101,"786,65243035206 ",.02)
  1. ;;65243035206
  1. ;;9002226.02101,"786,65243035209 ",.01)
  1. ;;65243035209
  1. ;;9002226.02101,"786,65243035209 ",.02)
  1. ;;65243035209
  1. ;;9002226.02101,"786,65243035218 ",.01)
  1. ;;65243035218
  1. ;;9002226.02101,"786,65243035218 ",.02)
  1. ;;65243035218
  1. ;;9002226.02101,"786,65243035245 ",.01)
  1. ;;65243035245
  1. ;;9002226.02101,"786,65243035245 ",.02)
  1. ;;65243035245
  1. ;;9002226.02101,"786,65243036103 ",.01)
  1. ;;65243036103