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

BGPM3ACV.m

Go to the documentation of this file.
BGPM3ACV ;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,"786,24236064002 ",.02)
 ;;24236064002
 ;;9002226.02101,"786,24236064402 ",.01)
 ;;24236064402
 ;;9002226.02101,"786,24236064402 ",.02)
 ;;24236064402
 ;;9002226.02101,"786,24236067702 ",.01)
 ;;24236067702
 ;;9002226.02101,"786,24236067702 ",.02)
 ;;24236067702
 ;;9002226.02101,"786,24236069502 ",.01)
 ;;24236069502
 ;;9002226.02101,"786,24236069502 ",.02)
 ;;24236069502
 ;;9002226.02101,"786,24236072402 ",.01)
 ;;24236072402
 ;;9002226.02101,"786,24236072402 ",.02)
 ;;24236072402
 ;;9002226.02101,"786,24236074502 ",.01)
 ;;24236074502
 ;;9002226.02101,"786,24236074502 ",.02)
 ;;24236074502
 ;;9002226.02101,"786,24236075602 ",.01)
 ;;24236075602
 ;;9002226.02101,"786,24236075602 ",.02)
 ;;24236075602
 ;;9002226.02101,"786,24236093702 ",.01)
 ;;24236093702
 ;;9002226.02101,"786,24236093702 ",.02)
 ;;24236093702
 ;;9002226.02101,"786,24385073478 ",.01)
 ;;24385073478
 ;;9002226.02101,"786,24385073478 ",.02)
 ;;24385073478
 ;;9002226.02101,"786,24385083978 ",.01)
 ;;24385083978
 ;;9002226.02101,"786,24385083978 ",.02)
 ;;24385083978
 ;;9002226.02101,"786,24658013005 ",.01)
 ;;24658013005
 ;;9002226.02101,"786,24658013005 ",.02)
 ;;24658013005
 ;;9002226.02101,"786,24658013018 ",.01)
 ;;24658013018
 ;;9002226.02101,"786,24658013018 ",.02)
 ;;24658013018
 ;;9002226.02101,"786,24658013060 ",.01)
 ;;24658013060
 ;;9002226.02101,"786,24658013060 ",.02)
 ;;24658013060
 ;;9002226.02101,"786,24658021010 ",.01)
 ;;24658021010
 ;;9002226.02101,"786,24658021010 ",.02)
 ;;24658021010
 ;;9002226.02101,"786,24658021030 ",.01)
 ;;24658021030
 ;;9002226.02101,"786,24658021030 ",.02)
 ;;24658021030
 ;;9002226.02101,"786,24658021045 ",.01)
 ;;24658021045
 ;;9002226.02101,"786,24658021045 ",.02)
 ;;24658021045
 ;;9002226.02101,"786,24658021090 ",.01)
 ;;24658021090
 ;;9002226.02101,"786,24658021090 ",.02)
 ;;24658021090
 ;;9002226.02101,"786,24658021110 ",.01)
 ;;24658021110
 ;;9002226.02101,"786,24658021110 ",.02)
 ;;24658021110
 ;;9002226.02101,"786,24658021130 ",.01)
 ;;24658021130
 ;;9002226.02101,"786,24658021130 ",.02)
 ;;24658021130
 ;;9002226.02101,"786,24658021145 ",.01)
 ;;24658021145
 ;;9002226.02101,"786,24658021145 ",.02)
 ;;24658021145
 ;;9002226.02101,"786,24658021190 ",.01)
 ;;24658021190
 ;;9002226.02101,"786,24658021190 ",.02)
 ;;24658021190
 ;;9002226.02101,"786,24658021210 ",.01)
 ;;24658021210
 ;;9002226.02101,"786,24658021210 ",.02)
 ;;24658021210
 ;;9002226.02101,"786,24658021230 ",.01)
 ;;24658021230
 ;;9002226.02101,"786,24658021230 ",.02)
 ;;24658021230
 ;;9002226.02101,"786,24658021245 ",.01)
 ;;24658021245
 ;;9002226.02101,"786,24658021245 ",.02)
 ;;24658021245
 ;;9002226.02101,"786,24658021290 ",.01)
 ;;24658021290
 ;;9002226.02101,"786,24658021290 ",.02)
 ;;24658021290
 ;;9002226.02101,"786,24658021310 ",.01)
 ;;24658021310
 ;;9002226.02101,"786,24658021310 ",.02)
 ;;24658021310
 ;;9002226.02101,"786,24658021330 ",.01)
 ;;24658021330
 ;;9002226.02101,"786,24658021330 ",.02)
 ;;24658021330
 ;;9002226.02101,"786,24658021345 ",.01)
 ;;24658021345
 ;;9002226.02101,"786,24658021345 ",.02)
 ;;24658021345
 ;;9002226.02101,"786,24658021390 ",.01)
 ;;24658021390
 ;;9002226.02101,"786,24658021390 ",.02)
 ;;24658021390
 ;;9002226.02101,"786,24658021410 ",.01)
 ;;24658021410
 ;;9002226.02101,"786,24658021410 ",.02)
 ;;24658021410
 ;;9002226.02101,"786,24658021430 ",.01)
 ;;24658021430
 ;;9002226.02101,"786,24658021430 ",.02)
 ;;24658021430
 ;;9002226.02101,"786,24658021445 ",.01)
 ;;24658021445
 ;;9002226.02101,"786,24658021445 ",.02)
 ;;24658021445
 ;;9002226.02101,"786,24658021490 ",.01)
 ;;24658021490
 ;;9002226.02101,"786,24658021490 ",.02)
 ;;24658021490
 ;;9002226.02101,"786,26053006401 ",.01)
 ;;26053006401
 ;;9002226.02101,"786,26053006401 ",.02)
 ;;26053006401
 ;;9002226.02101,"786,26053006501 ",.01)
 ;;26053006501
 ;;9002226.02101,"786,26053006501 ",.02)
 ;;26053006501
 ;;9002226.02101,"786,26053006601 ",.01)
 ;;26053006601
 ;;9002226.02101,"786,26053006601 ",.02)
 ;;26053006601
 ;;9002226.02101,"786,26053017701 ",.01)
 ;;26053017701
 ;;9002226.02101,"786,26053017701 ",.02)
 ;;26053017701
 ;;9002226.02101,"786,26053018301 ",.01)
 ;;26053018301
 ;;9002226.02101,"786,26053018301 ",.02)
 ;;26053018301
 ;;9002226.02101,"786,26053031001 ",.01)
 ;;26053031001
 ;;9002226.02101,"786,26053031001 ",.02)
 ;;26053031001
 ;;9002226.02101,"786,26053031201 ",.01)
 ;;26053031201
 ;;9002226.02101,"786,26053031201 ",.02)
 ;;26053031201
 ;;9002226.02101,"786,26053041501 ",.01)
 ;;26053041501
 ;;9002226.02101,"786,26053041501 ",.02)
 ;;26053041501
 ;;9002226.02101,"786,30768000061 ",.01)
 ;;30768000061
 ;;9002226.02101,"786,30768000061 ",.02)
 ;;30768000061
 ;;9002226.02101,"786,31722022505 ",.01)
 ;;31722022505
 ;;9002226.02101,"786,31722022505 ",.02)
 ;;31722022505
 ;;9002226.02101,"786,31722022560 ",.01)
 ;;31722022560
 ;;9002226.02101,"786,31722022560 ",.02)
 ;;31722022560
 ;;9002226.02101,"786,33358015530 ",.01)
 ;;33358015530
 ;;9002226.02101,"786,33358015530 ",.02)
 ;;33358015530
 ;;9002226.02101,"786,33358022330 ",.01)
 ;;33358022330
 ;;9002226.02101,"786,33358022330 ",.02)
 ;;33358022330
 ;;9002226.02101,"786,33358022500 ",.01)
 ;;33358022500
 ;;9002226.02101,"786,33358022500 ",.02)
 ;;33358022500
 ;;9002226.02101,"786,33358022530 ",.01)
 ;;33358022530
 ;;9002226.02101,"786,33358022530 ",.02)
 ;;33358022530
 ;;9002226.02101,"786,33358022560 ",.01)
 ;;33358022560
 ;;9002226.02101,"786,33358022560 ",.02)
 ;;33358022560
 ;;9002226.02101,"786,33358022630 ",.01)
 ;;33358022630
 ;;9002226.02101,"786,33358022630 ",.02)
 ;;33358022630
 ;;9002226.02101,"786,33358043130 ",.01)
 ;;33358043130
 ;;9002226.02101,"786,33358043130 ",.02)
 ;;33358043130
 ;;9002226.02101,"786,37205007878 ",.01)
 ;;37205007878
 ;;9002226.02101,"786,37205007878 ",.02)
 ;;37205007878
 ;;9002226.02101,"786,38245026679 ",.01)
 ;;38245026679
 ;;9002226.02101,"786,38245026679 ",.02)
 ;;38245026679
 ;;9002226.02101,"786,38245026680 ",.01)
 ;;38245026680
 ;;9002226.02101,"786,38245026680 ",.02)
 ;;38245026680
 ;;9002226.02101,"786,38245030028 ",.01)
 ;;38245030028
 ;;9002226.02101,"786,38245030028 ",.02)
 ;;38245030028
 ;;9002226.02101,"786,38245030080 ",.01)
 ;;38245030080
 ;;9002226.02101,"786,38245030080 ",.02)
 ;;38245030080
 ;;9002226.02101,"786,39686001423 ",.01)
 ;;39686001423
 ;;9002226.02101,"786,39686001423 ",.02)
 ;;39686001423
 ;;9002226.02101,"786,42043017009 ",.01)
 ;;42043017009
 ;;9002226.02101,"786,42043017009 ",.02)
 ;;42043017009
 ;;9002226.02101,"786,42043017109 ",.01)
 ;;42043017109
 ;;9002226.02101,"786,42043017109 ",.02)
 ;;42043017109
 ;;9002226.02101,"786,43063000801 ",.01)
 ;;43063000801
 ;;9002226.02101,"786,43063000801 ",.02)
 ;;43063000801
 ;;9002226.02101,"786,43063008030 ",.01)
 ;;43063008030
 ;;9002226.02101,"786,43063008030 ",.02)
 ;;43063008030
 ;;9002226.02101,"786,43063008090 ",.01)
 ;;43063008090
 ;;9002226.02101,"786,43063008090 ",.02)
 ;;43063008090
 ;;9002226.02101,"786,43292012356 ",.01)
 ;;43292012356
 ;;9002226.02101,"786,43292012356 ",.02)
 ;;43292012356
 ;;9002226.02101,"786,43292022328 ",.01)
 ;;43292022328
 ;;9002226.02101,"786,43292022328 ",.02)
 ;;43292022328
 ;;9002226.02101,"786,43292055740 ",.01)
 ;;43292055740
 ;;9002226.02101,"786,43292055740 ",.02)
 ;;43292055740
 ;;9002226.02101,"786,43353000730 ",.01)
 ;;43353000730
 ;;9002226.02101,"786,43353000730 ",.02)
 ;;43353000730
 ;;9002226.02101,"786,43353000733 ",.01)
 ;;43353000733
 ;;9002226.02101,"786,43353000733 ",.02)
 ;;43353000733
 ;;9002226.02101,"786,43353000760 ",.01)
 ;;43353000760
 ;;9002226.02101,"786,43353000760 ",.02)
 ;;43353000760
 ;;9002226.02101,"786,43353009060 ",.01)
 ;;43353009060
 ;;9002226.02101,"786,43353009060 ",.02)
 ;;43353009060
 ;;9002226.02101,"786,43353009080 ",.01)
 ;;43353009080
 ;;9002226.02101,"786,43353009080 ",.02)
 ;;43353009080
 ;;9002226.02101,"786,43353022715 ",.01)
 ;;43353022715
 ;;9002226.02101,"786,43353022715 ",.02)
 ;;43353022715
 ;;9002226.02101,"786,43353022730 ",.01)
 ;;43353022730
 ;;9002226.02101,"786,43353022730 ",.02)
 ;;43353022730
 ;;9002226.02101,"786,43353022745 ",.01)
 ;;43353022745
 ;;9002226.02101,"786,43353022745 ",.02)
 ;;43353022745
 ;;9002226.02101,"786,43353022760 ",.01)
 ;;43353022760
 ;;9002226.02101,"786,43353022760 ",.02)
 ;;43353022760
 ;;9002226.02101,"786,43353022815 ",.01)
 ;;43353022815
 ;;9002226.02101,"786,43353022815 ",.02)
 ;;43353022815
 ;;9002226.02101,"786,43353022830 ",.01)
 ;;43353022830
 ;;9002226.02101,"786,43353022830 ",.02)
 ;;43353022830
 ;;9002226.02101,"786,43353022845 ",.01)
 ;;43353022845
 ;;9002226.02101,"786,43353022845 ",.02)
 ;;43353022845
 ;;9002226.02101,"786,43353022860 ",.01)
 ;;43353022860
 ;;9002226.02101,"786,43353022860 ",.02)
 ;;43353022860
 ;;9002226.02101,"786,43353039460 ",.01)
 ;;43353039460
 ;;9002226.02101,"786,43353039460 ",.02)
 ;;43353039460
 ;;9002226.02101,"786,43353040230 ",.01)
 ;;43353040230
 ;;9002226.02101,"786,43353040230 ",.02)
 ;;43353040230
 ;;9002226.02101,"786,43683015230 ",.01)
 ;;43683015230
 ;;9002226.02101,"786,43683015230 ",.02)
 ;;43683015230
 ;;9002226.02101,"786,43797026903 ",.01)
 ;;43797026903
 ;;9002226.02101,"786,43797026903 ",.02)
 ;;43797026903
 ;;9002226.02101,"786,43806024040 ",.01)
 ;;43806024040
 ;;9002226.02101,"786,43806024040 ",.02)
 ;;43806024040
 ;;9002226.02101,"786,43806038240 ",.01)
 ;;43806038240
 ;;9002226.02101,"786,43806038240 ",.02)
 ;;43806038240
 ;;9002226.02101,"786,43806041140 ",.01)
 ;;43806041140
 ;;9002226.02101,"786,43806041140 ",.02)
 ;;43806041140
 ;;9002226.02101,"786,43806041240 ",.01)
 ;;43806041240
 ;;9002226.02101,"786,43806041240 ",.02)
 ;;43806041240
 ;;9002226.02101,"786,43806067035 ",.01)
 ;;43806067035
 ;;9002226.02101,"786,43806067035 ",.02)
 ;;43806067035
 ;;9002226.02101,"786,43806067041 ",.01)
 ;;43806067041
 ;;9002226.02101,"786,43806067041 ",.02)
 ;;43806067041
 ;;9002226.02101,"786,43806067070 ",.01)
 ;;43806067070
 ;;9002226.02101,"786,43806067070 ",.02)
 ;;43806067070
 ;;9002226.02101,"786,43869415600 ",.01)
 ;;43869415600
 ;;9002226.02101,"786,43869415600 ",.02)
 ;;43869415600
 ;;9002226.02101,"786,45802009301 ",.01)
 ;;45802009301
 ;;9002226.02101,"786,45802009301 ",.02)
 ;;45802009301
 ;;9002226.02101,"786,45802009365 ",.01)
 ;;45802009365
 ;;9002226.02101,"786,45802009365 ",.02)
 ;;45802009365
 ;;9002226.02101,"786,45802009375 ",.01)
 ;;45802009375
 ;;9002226.02101,"786,45802009375 ",.02)
 ;;45802009375
 ;;9002226.02101,"786,45802029265 ",.01)
 ;;45802029265
 ;;9002226.02101,"786,45802029265 ",.02)
 ;;45802029265
 ;;9002226.02101,"786,45802029275 ",.01)
 ;;45802029275
 ;;9002226.02101,"786,45802029275 ",.02)
 ;;45802029275
 ;;9002226.02101,"786,45802038401 ",.01)
 ;;45802038401
 ;;9002226.02101,"786,45802038401 ",.02)
 ;;45802038401
 ;;9002226.02101,"786,45802038465 ",.01)
 ;;45802038465
 ;;9002226.02101,"786,45802038465 ",.02)
 ;;45802038465
 ;;9002226.02101,"786,45802038475 ",.01)
 ;;45802038475
 ;;9002226.02101,"786,45802038475 ",.02)
 ;;45802038475
 ;;9002226.02101,"786,45802038493 ",.01)
 ;;45802038493
 ;;9002226.02101,"786,45802038493 ",.02)
 ;;45802038493
 ;;9002226.02101,"786,45802087901 ",.01)
 ;;45802087901
 ;;9002226.02101,"786,45802087901 ",.02)
 ;;45802087901
 ;;9002226.02101,"786,45802087965 ",.01)
 ;;45802087965
 ;;9002226.02101,"786,45802087965 ",.02)
 ;;45802087965
 ;;9002226.02101,"786,45802087975 ",.01)
 ;;45802087975
 ;;9002226.02101,"786,45802087975 ",.02)
 ;;45802087975
 ;;9002226.02101,"786,45802087993 ",.01)
 ;;45802087993