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

BGPM3ADT.m

Go to the documentation of this file.
BGPM3ADT ;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,24236069502 ",.01)
 ;;24236069502
 ;;9002226.02101,"785,24236069502 ",.02)
 ;;24236069502
 ;;9002226.02101,"785,24236072402 ",.01)
 ;;24236072402
 ;;9002226.02101,"785,24236072402 ",.02)
 ;;24236072402
 ;;9002226.02101,"785,24236074502 ",.01)
 ;;24236074502
 ;;9002226.02101,"785,24236074502 ",.02)
 ;;24236074502
 ;;9002226.02101,"785,24236075602 ",.01)
 ;;24236075602
 ;;9002226.02101,"785,24236075602 ",.02)
 ;;24236075602
 ;;9002226.02101,"785,24236093702 ",.01)
 ;;24236093702
 ;;9002226.02101,"785,24236093702 ",.02)
 ;;24236093702
 ;;9002226.02101,"785,24658021010 ",.01)
 ;;24658021010
 ;;9002226.02101,"785,24658021010 ",.02)
 ;;24658021010
 ;;9002226.02101,"785,24658021030 ",.01)
 ;;24658021030
 ;;9002226.02101,"785,24658021030 ",.02)
 ;;24658021030
 ;;9002226.02101,"785,24658021045 ",.01)
 ;;24658021045
 ;;9002226.02101,"785,24658021045 ",.02)
 ;;24658021045
 ;;9002226.02101,"785,24658021090 ",.01)
 ;;24658021090
 ;;9002226.02101,"785,24658021090 ",.02)
 ;;24658021090
 ;;9002226.02101,"785,24658021110 ",.01)
 ;;24658021110
 ;;9002226.02101,"785,24658021110 ",.02)
 ;;24658021110
 ;;9002226.02101,"785,24658021130 ",.01)
 ;;24658021130
 ;;9002226.02101,"785,24658021130 ",.02)
 ;;24658021130
 ;;9002226.02101,"785,24658021145 ",.01)
 ;;24658021145
 ;;9002226.02101,"785,24658021145 ",.02)
 ;;24658021145
 ;;9002226.02101,"785,24658021190 ",.01)
 ;;24658021190
 ;;9002226.02101,"785,24658021190 ",.02)
 ;;24658021190
 ;;9002226.02101,"785,24658021210 ",.01)
 ;;24658021210
 ;;9002226.02101,"785,24658021210 ",.02)
 ;;24658021210
 ;;9002226.02101,"785,24658021230 ",.01)
 ;;24658021230
 ;;9002226.02101,"785,24658021230 ",.02)
 ;;24658021230
 ;;9002226.02101,"785,24658021245 ",.01)
 ;;24658021245
 ;;9002226.02101,"785,24658021245 ",.02)
 ;;24658021245
 ;;9002226.02101,"785,24658021290 ",.01)
 ;;24658021290
 ;;9002226.02101,"785,24658021290 ",.02)
 ;;24658021290
 ;;9002226.02101,"785,24658021310 ",.01)
 ;;24658021310
 ;;9002226.02101,"785,24658021310 ",.02)
 ;;24658021310
 ;;9002226.02101,"785,24658021330 ",.01)
 ;;24658021330
 ;;9002226.02101,"785,24658021330 ",.02)
 ;;24658021330
 ;;9002226.02101,"785,24658021345 ",.01)
 ;;24658021345
 ;;9002226.02101,"785,24658021345 ",.02)
 ;;24658021345
 ;;9002226.02101,"785,24658021390 ",.01)
 ;;24658021390
 ;;9002226.02101,"785,24658021390 ",.02)
 ;;24658021390
 ;;9002226.02101,"785,24658021410 ",.01)
 ;;24658021410
 ;;9002226.02101,"785,24658021410 ",.02)
 ;;24658021410
 ;;9002226.02101,"785,24658021430 ",.01)
 ;;24658021430
 ;;9002226.02101,"785,24658021430 ",.02)
 ;;24658021430
 ;;9002226.02101,"785,24658021445 ",.01)
 ;;24658021445
 ;;9002226.02101,"785,24658021445 ",.02)
 ;;24658021445
 ;;9002226.02101,"785,24658021490 ",.01)
 ;;24658021490
 ;;9002226.02101,"785,24658021490 ",.02)
 ;;24658021490
 ;;9002226.02101,"785,26053006401 ",.01)
 ;;26053006401
 ;;9002226.02101,"785,26053006401 ",.02)
 ;;26053006401
 ;;9002226.02101,"785,26053006501 ",.01)
 ;;26053006501
 ;;9002226.02101,"785,26053006501 ",.02)
 ;;26053006501
 ;;9002226.02101,"785,26053006601 ",.01)
 ;;26053006601
 ;;9002226.02101,"785,26053006601 ",.02)
 ;;26053006601
 ;;9002226.02101,"785,26053017701 ",.01)
 ;;26053017701
 ;;9002226.02101,"785,26053017701 ",.02)
 ;;26053017701
 ;;9002226.02101,"785,26053018301 ",.01)
 ;;26053018301
 ;;9002226.02101,"785,26053018301 ",.02)
 ;;26053018301
 ;;9002226.02101,"785,26053031001 ",.01)
 ;;26053031001
 ;;9002226.02101,"785,26053031001 ",.02)
 ;;26053031001
 ;;9002226.02101,"785,26053031201 ",.01)
 ;;26053031201
 ;;9002226.02101,"785,26053031201 ",.02)
 ;;26053031201
 ;;9002226.02101,"785,26053041501 ",.01)
 ;;26053041501
 ;;9002226.02101,"785,26053041501 ",.02)
 ;;26053041501
 ;;9002226.02101,"785,33358022330 ",.01)
 ;;33358022330
 ;;9002226.02101,"785,33358022330 ",.02)
 ;;33358022330
 ;;9002226.02101,"785,33358022500 ",.01)
 ;;33358022500
 ;;9002226.02101,"785,33358022500 ",.02)
 ;;33358022500
 ;;9002226.02101,"785,33358022530 ",.01)
 ;;33358022530
 ;;9002226.02101,"785,33358022530 ",.02)
 ;;33358022530
 ;;9002226.02101,"785,33358022560 ",.01)
 ;;33358022560
 ;;9002226.02101,"785,33358022560 ",.02)
 ;;33358022560
 ;;9002226.02101,"785,33358022630 ",.01)
 ;;33358022630
 ;;9002226.02101,"785,33358022630 ",.02)
 ;;33358022630
 ;;9002226.02101,"785,33358043130 ",.01)
 ;;33358043130
 ;;9002226.02101,"785,33358043130 ",.02)
 ;;33358043130
 ;;9002226.02101,"785,43063000801 ",.01)
 ;;43063000801
 ;;9002226.02101,"785,43063000801 ",.02)
 ;;43063000801
 ;;9002226.02101,"785,43063008030 ",.01)
 ;;43063008030
 ;;9002226.02101,"785,43063008030 ",.02)
 ;;43063008030
 ;;9002226.02101,"785,43063008090 ",.01)
 ;;43063008090
 ;;9002226.02101,"785,43063008090 ",.02)
 ;;43063008090
 ;;9002226.02101,"785,43353000730 ",.01)
 ;;43353000730
 ;;9002226.02101,"785,43353000730 ",.02)
 ;;43353000730
 ;;9002226.02101,"785,43353000733 ",.01)
 ;;43353000733
 ;;9002226.02101,"785,43353000733 ",.02)
 ;;43353000733
 ;;9002226.02101,"785,43353000760 ",.01)
 ;;43353000760
 ;;9002226.02101,"785,43353000760 ",.02)
 ;;43353000760
 ;;9002226.02101,"785,43353022715 ",.01)
 ;;43353022715
 ;;9002226.02101,"785,43353022715 ",.02)
 ;;43353022715
 ;;9002226.02101,"785,43353022730 ",.01)
 ;;43353022730
 ;;9002226.02101,"785,43353022730 ",.02)
 ;;43353022730
 ;;9002226.02101,"785,43353022745 ",.01)
 ;;43353022745
 ;;9002226.02101,"785,43353022745 ",.02)
 ;;43353022745
 ;;9002226.02101,"785,43353022760 ",.01)
 ;;43353022760
 ;;9002226.02101,"785,43353022760 ",.02)
 ;;43353022760
 ;;9002226.02101,"785,43353022815 ",.01)
 ;;43353022815
 ;;9002226.02101,"785,43353022815 ",.02)
 ;;43353022815
 ;;9002226.02101,"785,43353022830 ",.01)
 ;;43353022830
 ;;9002226.02101,"785,43353022830 ",.02)
 ;;43353022830
 ;;9002226.02101,"785,43353022845 ",.01)
 ;;43353022845
 ;;9002226.02101,"785,43353022845 ",.02)
 ;;43353022845
 ;;9002226.02101,"785,43353022860 ",.01)
 ;;43353022860
 ;;9002226.02101,"785,43353022860 ",.02)
 ;;43353022860
 ;;9002226.02101,"785,43353039460 ",.01)
 ;;43353039460
 ;;9002226.02101,"785,43353039460 ",.02)
 ;;43353039460
 ;;9002226.02101,"785,43683015230 ",.01)
 ;;43683015230
 ;;9002226.02101,"785,43683015230 ",.02)
 ;;43683015230
 ;;9002226.02101,"785,43869415600 ",.01)
 ;;43869415600
 ;;9002226.02101,"785,43869415600 ",.02)
 ;;43869415600
 ;;9002226.02101,"785,45802009301 ",.01)
 ;;45802009301
 ;;9002226.02101,"785,45802009301 ",.02)
 ;;45802009301
 ;;9002226.02101,"785,45802009365 ",.01)
 ;;45802009365
 ;;9002226.02101,"785,45802009365 ",.02)
 ;;45802009365
 ;;9002226.02101,"785,45802009375 ",.01)
 ;;45802009375
 ;;9002226.02101,"785,45802009375 ",.02)
 ;;45802009375
 ;;9002226.02101,"785,45802029265 ",.01)
 ;;45802029265
 ;;9002226.02101,"785,45802029265 ",.02)
 ;;45802029265
 ;;9002226.02101,"785,45802029275 ",.01)
 ;;45802029275
 ;;9002226.02101,"785,45802029275 ",.02)
 ;;45802029275
 ;;9002226.02101,"785,45802038401 ",.01)
 ;;45802038401
 ;;9002226.02101,"785,45802038401 ",.02)
 ;;45802038401
 ;;9002226.02101,"785,45802038465 ",.01)
 ;;45802038465
 ;;9002226.02101,"785,45802038465 ",.02)
 ;;45802038465
 ;;9002226.02101,"785,45802038475 ",.01)
 ;;45802038475
 ;;9002226.02101,"785,45802038475 ",.02)
 ;;45802038475
 ;;9002226.02101,"785,45802038493 ",.01)
 ;;45802038493
 ;;9002226.02101,"785,45802038493 ",.02)
 ;;45802038493
 ;;9002226.02101,"785,45802087901 ",.01)
 ;;45802087901
 ;;9002226.02101,"785,45802087901 ",.02)
 ;;45802087901
 ;;9002226.02101,"785,45802087965 ",.01)
 ;;45802087965
 ;;9002226.02101,"785,45802087965 ",.02)
 ;;45802087965
 ;;9002226.02101,"785,45802087975 ",.01)
 ;;45802087975
 ;;9002226.02101,"785,45802087975 ",.02)
 ;;45802087975
 ;;9002226.02101,"785,45802087993 ",.01)
 ;;45802087993
 ;;9002226.02101,"785,45802087993 ",.02)
 ;;45802087993
 ;;9002226.02101,"785,45802092465 ",.01)
 ;;45802092465
 ;;9002226.02101,"785,45802092465 ",.02)
 ;;45802092465
 ;;9002226.02101,"785,49856017700 ",.01)
 ;;49856017700
 ;;9002226.02101,"785,49856017700 ",.02)
 ;;49856017700
 ;;9002226.02101,"785,49856017701 ",.01)
 ;;49856017701
 ;;9002226.02101,"785,49856017701 ",.02)
 ;;49856017701
 ;;9002226.02101,"785,49856017703 ",.01)
 ;;49856017703
 ;;9002226.02101,"785,49856017703 ",.02)
 ;;49856017703
 ;;9002226.02101,"785,49856017709 ",.01)
 ;;49856017709
 ;;9002226.02101,"785,49856017709 ",.02)
 ;;49856017709
 ;;9002226.02101,"785,49856017800 ",.01)
 ;;49856017800
 ;;9002226.02101,"785,49856017800 ",.02)
 ;;49856017800
 ;;9002226.02101,"785,49856017801 ",.01)
 ;;49856017801
 ;;9002226.02101,"785,49856017801 ",.02)
 ;;49856017801
 ;;9002226.02101,"785,49856017803 ",.01)
 ;;49856017803
 ;;9002226.02101,"785,49856017803 ",.02)
 ;;49856017803
 ;;9002226.02101,"785,49856017809 ",.01)
 ;;49856017809
 ;;9002226.02101,"785,49856017809 ",.02)
 ;;49856017809
 ;;9002226.02101,"785,49856017900 ",.01)
 ;;49856017900
 ;;9002226.02101,"785,49856017900 ",.02)
 ;;49856017900
 ;;9002226.02101,"785,49856017901 ",.01)
 ;;49856017901
 ;;9002226.02101,"785,49856017901 ",.02)
 ;;49856017901
 ;;9002226.02101,"785,49856017903 ",.01)
 ;;49856017903
 ;;9002226.02101,"785,49856017903 ",.02)
 ;;49856017903
 ;;9002226.02101,"785,49856017909 ",.01)
 ;;49856017909
 ;;9002226.02101,"785,49856017909 ",.02)
 ;;49856017909
 ;;9002226.02101,"785,49884075401 ",.01)
 ;;49884075401
 ;;9002226.02101,"785,49884075401 ",.02)
 ;;49884075401
 ;;9002226.02101,"785,49884075402 ",.01)
 ;;49884075402
 ;;9002226.02101,"785,49884075402 ",.02)
 ;;49884075402
 ;;9002226.02101,"785,49884075410 ",.01)
 ;;49884075410
 ;;9002226.02101,"785,49884075410 ",.02)
 ;;49884075410
 ;;9002226.02101,"785,49884075501 ",.01)
 ;;49884075501
 ;;9002226.02101,"785,49884075501 ",.02)
 ;;49884075501
 ;;9002226.02101,"785,49884075502 ",.01)
 ;;49884075502
 ;;9002226.02101,"785,49884075502 ",.02)
 ;;49884075502
 ;;9002226.02101,"785,49884075510 ",.01)
 ;;49884075510
 ;;9002226.02101,"785,49884075510 ",.02)
 ;;49884075510
 ;;9002226.02101,"785,49884075601 ",.01)
 ;;49884075601
 ;;9002226.02101,"785,49884075601 ",.02)
 ;;49884075601
 ;;9002226.02101,"785,49884075602 ",.01)
 ;;49884075602
 ;;9002226.02101,"785,49884075602 ",.02)
 ;;49884075602
 ;;9002226.02101,"785,49884075610 ",.01)
 ;;49884075610
 ;;9002226.02101,"785,49884075610 ",.02)
 ;;49884075610
 ;;9002226.02101,"785,49999029330 ",.01)
 ;;49999029330
 ;;9002226.02101,"785,49999029330 ",.02)
 ;;49999029330
 ;;9002226.02101,"785,49999047060 ",.01)
 ;;49999047060
 ;;9002226.02101,"785,49999047060 ",.02)
 ;;49999047060
 ;;9002226.02101,"785,49999047100 ",.01)
 ;;49999047100
 ;;9002226.02101,"785,49999047100 ",.02)
 ;;49999047100
 ;;9002226.02101,"785,49999047130 ",.01)
 ;;49999047130
 ;;9002226.02101,"785,49999047130 ",.02)
 ;;49999047130
 ;;9002226.02101,"785,49999047160 ",.01)
 ;;49999047160
 ;;9002226.02101,"785,49999047160 ",.02)
 ;;49999047160
 ;;9002226.02101,"785,49999088930 ",.01)
 ;;49999088930
 ;;9002226.02101,"785,49999088930 ",.02)
 ;;49999088930
 ;;9002226.02101,"785,49999088960 ",.01)
 ;;49999088960
 ;;9002226.02101,"785,49999088960 ",.02)
 ;;49999088960
 ;;9002226.02101,"785,49999088990 ",.01)
 ;;49999088990
 ;;9002226.02101,"785,49999088990 ",.02)
 ;;49999088990
 ;;9002226.02101,"785,49999090090 ",.01)
 ;;49999090090
 ;;9002226.02101,"785,49999090090 ",.02)
 ;;49999090090
 ;;9002226.02101,"785,49999090315 ",.01)
 ;;49999090315
 ;;9002226.02101,"785,49999090315 ",.02)
 ;;49999090315
 ;;9002226.02101,"785,49999090330 ",.01)
 ;;49999090330
 ;;9002226.02101,"785,49999090330 ",.02)
 ;;49999090330