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

BGPM5AUJ.m

Go to the documentation of this file.
BGPM5AUJ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"1033,00179101470 ",.01)
 ;;00179101470
 ;;9002226.02101,"1033,00179101470 ",.02)
 ;;00179101470
 ;;9002226.02101,"1033,00179101471 ",.01)
 ;;00179101471
 ;;9002226.02101,"1033,00179101471 ",.02)
 ;;00179101471
 ;;9002226.02101,"1033,00179101472 ",.01)
 ;;00179101472
 ;;9002226.02101,"1033,00179101472 ",.02)
 ;;00179101472
 ;;9002226.02101,"1033,00179102020 ",.01)
 ;;00179102020
 ;;9002226.02101,"1033,00179102020 ",.02)
 ;;00179102020
 ;;9002226.02101,"1033,00179102030 ",.01)
 ;;00179102030
 ;;9002226.02101,"1033,00179102030 ",.02)
 ;;00179102030
 ;;9002226.02101,"1033,00179102040 ",.01)
 ;;00179102040
 ;;9002226.02101,"1033,00179102040 ",.02)
 ;;00179102040
 ;;9002226.02101,"1033,00179102088 ",.01)
 ;;00179102088
 ;;9002226.02101,"1033,00179102088 ",.02)
 ;;00179102088
 ;;9002226.02101,"1033,00179102128 ",.01)
 ;;00179102128
 ;;9002226.02101,"1033,00179102128 ",.02)
 ;;00179102128
 ;;9002226.02101,"1033,00179102156 ",.01)
 ;;00179102156
 ;;9002226.02101,"1033,00179102156 ",.02)
 ;;00179102156
 ;;9002226.02101,"1033,00179104888 ",.01)
 ;;00179104888
 ;;9002226.02101,"1033,00179104888 ",.02)
 ;;00179104888
 ;;9002226.02101,"1033,00179105620 ",.01)
 ;;00179105620
 ;;9002226.02101,"1033,00179105620 ",.02)
 ;;00179105620
 ;;9002226.02101,"1033,00179105630 ",.01)
 ;;00179105630
 ;;9002226.02101,"1033,00179105630 ",.02)
 ;;00179105630
 ;;9002226.02101,"1033,00179105640 ",.01)
 ;;00179105640
 ;;9002226.02101,"1033,00179105640 ",.02)
 ;;00179105640
 ;;9002226.02101,"1033,00179117014 ",.01)
 ;;00179117014
 ;;9002226.02101,"1033,00179117014 ",.02)
 ;;00179117014
 ;;9002226.02101,"1033,00179117020 ",.01)
 ;;00179117020
 ;;9002226.02101,"1033,00179117020 ",.02)
 ;;00179117020
 ;;9002226.02101,"1033,00179117088 ",.01)
 ;;00179117088
 ;;9002226.02101,"1033,00179117088 ",.02)
 ;;00179117088
 ;;9002226.02101,"1033,00179144012 ",.01)
 ;;00179144012
 ;;9002226.02101,"1033,00179144012 ",.02)
 ;;00179144012
 ;;9002226.02101,"1033,00179144014 ",.01)
 ;;00179144014
 ;;9002226.02101,"1033,00179144014 ",.02)
 ;;00179144014
 ;;9002226.02101,"1033,00179144020 ",.01)
 ;;00179144020
 ;;9002226.02101,"1033,00179144020 ",.02)
 ;;00179144020
 ;;9002226.02101,"1033,00179151014 ",.01)
 ;;00179151014
 ;;9002226.02101,"1033,00179151014 ",.02)
 ;;00179151014
 ;;9002226.02101,"1033,00179151020 ",.01)
 ;;00179151020
 ;;9002226.02101,"1033,00179151020 ",.02)
 ;;00179151020
 ;;9002226.02101,"1033,00179157070 ",.01)
 ;;00179157070
 ;;9002226.02101,"1033,00179157070 ",.02)
 ;;00179157070
 ;;9002226.02101,"1033,00179157071 ",.01)
 ;;00179157071
 ;;9002226.02101,"1033,00179157071 ",.02)
 ;;00179157071
 ;;9002226.02101,"1033,00179157072 ",.01)
 ;;00179157072
 ;;9002226.02101,"1033,00179157072 ",.02)
 ;;00179157072
 ;;9002226.02101,"1033,00179169170 ",.01)
 ;;00179169170
 ;;9002226.02101,"1033,00179169170 ",.02)
 ;;00179169170
 ;;9002226.02101,"1033,00179169171 ",.01)
 ;;00179169171
 ;;9002226.02101,"1033,00179169171 ",.02)
 ;;00179169171
 ;;9002226.02101,"1033,00179169172 ",.01)
 ;;00179169172
 ;;9002226.02101,"1033,00179169172 ",.02)
 ;;00179169172
 ;;9002226.02101,"1033,00179174970 ",.01)
 ;;00179174970
 ;;9002226.02101,"1033,00179174970 ",.02)
 ;;00179174970
 ;;9002226.02101,"1033,00179174971 ",.01)
 ;;00179174971
 ;;9002226.02101,"1033,00179174971 ",.02)
 ;;00179174971
 ;;9002226.02101,"1033,00179174972 ",.01)
 ;;00179174972
 ;;9002226.02101,"1033,00179174972 ",.02)
 ;;00179174972
 ;;9002226.02101,"1033,00179176470 ",.01)
 ;;00179176470
 ;;9002226.02101,"1033,00179176470 ",.02)
 ;;00179176470
 ;;9002226.02101,"1033,00179176471 ",.01)
 ;;00179176471
 ;;9002226.02101,"1033,00179176471 ",.02)
 ;;00179176471
 ;;9002226.02101,"1033,00179176472 ",.01)
 ;;00179176472
 ;;9002226.02101,"1033,00179176472 ",.02)
 ;;00179176472
 ;;9002226.02101,"1033,00179183870 ",.01)
 ;;00179183870
 ;;9002226.02101,"1033,00179183870 ",.02)
 ;;00179183870
 ;;9002226.02101,"1033,00179183871 ",.01)
 ;;00179183871
 ;;9002226.02101,"1033,00179183871 ",.02)
 ;;00179183871
 ;;9002226.02101,"1033,00179183872 ",.01)
 ;;00179183872
 ;;9002226.02101,"1033,00179183872 ",.02)
 ;;00179183872
 ;;9002226.02101,"1033,00179195806 ",.01)
 ;;00179195806
 ;;9002226.02101,"1033,00179195806 ",.02)
 ;;00179195806
 ;;9002226.02101,"1033,00179195810 ",.01)
 ;;00179195810
 ;;9002226.02101,"1033,00179195810 ",.02)
 ;;00179195810
 ;;9002226.02101,"1033,00179195814 ",.01)
 ;;00179195814
 ;;9002226.02101,"1033,00179195814 ",.02)
 ;;00179195814
 ;;9002226.02101,"1033,00179195820 ",.01)
 ;;00179195820
 ;;9002226.02101,"1033,00179195820 ",.02)
 ;;00179195820
 ;;9002226.02101,"1033,00179195828 ",.01)
 ;;00179195828
 ;;9002226.02101,"1033,00179195828 ",.02)
 ;;00179195828
 ;;9002226.02101,"1033,00179195914 ",.01)
 ;;00179195914
 ;;9002226.02101,"1033,00179195914 ",.02)
 ;;00179195914
 ;;9002226.02101,"1033,00179195920 ",.01)
 ;;00179195920
 ;;9002226.02101,"1033,00179195920 ",.02)
 ;;00179195920
 ;;9002226.02101,"1033,00179195970 ",.01)
 ;;00179195970
 ;;9002226.02101,"1033,00179195970 ",.02)
 ;;00179195970
 ;;9002226.02101,"1033,00179198201 ",.01)
 ;;00179198201
 ;;9002226.02101,"1033,00179198201 ",.02)
 ;;00179198201
 ;;9002226.02101,"1033,00179198214 ",.01)
 ;;00179198214
 ;;9002226.02101,"1033,00179198214 ",.02)
 ;;00179198214
 ;;9002226.02101,"1033,00179198220 ",.01)
 ;;00179198220
 ;;9002226.02101,"1033,00179198220 ",.02)
 ;;00179198220
 ;;9002226.02101,"1033,00179198270 ",.01)
 ;;00179198270
 ;;9002226.02101,"1033,00179198270 ",.02)
 ;;00179198270
 ;;9002226.02101,"1033,00182011289 ",.01)
 ;;00182011289
 ;;9002226.02101,"1033,00182011289 ",.02)
 ;;00182011289
 ;;9002226.02101,"1033,00182067989 ",.01)
 ;;00182067989
 ;;9002226.02101,"1033,00182067989 ",.02)
 ;;00182067989
 ;;9002226.02101,"1033,00182103505 ",.01)
 ;;00182103505
 ;;9002226.02101,"1033,00182103505 ",.02)
 ;;00182103505
 ;;9002226.02101,"1033,00182103519 ",.01)
 ;;00182103519
 ;;9002226.02101,"1033,00182103519 ",.02)
 ;;00182103519
 ;;9002226.02101,"1033,00182103589 ",.01)
 ;;00182103589
 ;;9002226.02101,"1033,00182103589 ",.02)
 ;;00182103589
 ;;9002226.02101,"1033,00182153505 ",.01)
 ;;00182153505
 ;;9002226.02101,"1033,00182153505 ",.02)
 ;;00182153505
 ;;9002226.02101,"1033,00182153589 ",.01)
 ;;00182153589
 ;;9002226.02101,"1033,00182153589 ",.02)
 ;;00182153589
 ;;9002226.02101,"1033,00182263101 ",.01)
 ;;00182263101
 ;;9002226.02101,"1033,00182263101 ",.02)
 ;;00182263101
 ;;9002226.02101,"1033,00182272136 ",.01)
 ;;00182272136
 ;;9002226.02101,"1033,00182272136 ",.02)
 ;;00182272136
 ;;9002226.02101,"1033,00182602866 ",.01)
 ;;00182602866
 ;;9002226.02101,"1033,00182602866 ",.02)
 ;;00182602866
 ;;9002226.02101,"1033,00185003601 ",.01)
 ;;00185003601
 ;;9002226.02101,"1033,00185003601 ",.02)
 ;;00185003601
 ;;9002226.02101,"1033,00185003605 ",.01)
 ;;00185003605
 ;;9002226.02101,"1033,00185003605 ",.02)
 ;;00185003605
 ;;9002226.02101,"1033,00185010601 ",.01)
 ;;00185010601
 ;;9002226.02101,"1033,00185010601 ",.02)
 ;;00185010601
 ;;9002226.02101,"1033,00185010605 ",.01)
 ;;00185010605
 ;;9002226.02101,"1033,00185010605 ",.02)
 ;;00185010605
 ;;9002226.02101,"1033,00185011201 ",.01)
 ;;00185011201
 ;;9002226.02101,"1033,00185011201 ",.02)
 ;;00185011201
 ;;9002226.02101,"1033,00185011205 ",.01)
 ;;00185011205
 ;;9002226.02101,"1033,00185011205 ",.02)
 ;;00185011205
 ;;9002226.02101,"1033,00185021605 ",.01)
 ;;00185021605
 ;;9002226.02101,"1033,00185021605 ",.02)
 ;;00185021605
 ;;9002226.02101,"1033,00185021652 ",.01)
 ;;00185021652
 ;;9002226.02101,"1033,00185021652 ",.02)
 ;;00185021652
 ;;9002226.02101,"1033,00185021653 ",.01)
 ;;00185021653
 ;;9002226.02101,"1033,00185021653 ",.02)
 ;;00185021653
 ;;9002226.02101,"1033,00185027501 ",.01)
 ;;00185027501
 ;;9002226.02101,"1033,00185027501 ",.02)
 ;;00185027501
 ;;9002226.02101,"1033,00185027510 ",.01)
 ;;00185027510
 ;;9002226.02101,"1033,00185027510 ",.02)
 ;;00185027510
 ;;9002226.02101,"1033,00185027556 ",.01)
 ;;00185027556
 ;;9002226.02101,"1033,00185027556 ",.02)
 ;;00185027556
 ;;9002226.02101,"1033,00185027560 ",.01)
 ;;00185027560
 ;;9002226.02101,"1033,00185027560 ",.02)
 ;;00185027560
 ;;9002226.02101,"1033,00185044201 ",.01)
 ;;00185044201
 ;;9002226.02101,"1033,00185044201 ",.02)
 ;;00185044201
 ;;9002226.02101,"1033,00185045101 ",.01)
 ;;00185045101
 ;;9002226.02101,"1033,00185045101 ",.02)
 ;;00185045101
 ;;9002226.02101,"1033,00185047053 ",.01)
 ;;00185047053
 ;;9002226.02101,"1033,00185047053 ",.02)
 ;;00185047053
 ;;9002226.02101,"1033,00185080501 ",.01)
 ;;00185080501
 ;;9002226.02101,"1033,00185080501 ",.02)
 ;;00185080501
 ;;9002226.02101,"1033,00185080505 ",.01)
 ;;00185080505
 ;;9002226.02101,"1033,00185080505 ",.02)
 ;;00185080505
 ;;9002226.02101,"1033,00185081001 ",.01)
 ;;00185081001
 ;;9002226.02101,"1033,00185081001 ",.02)
 ;;00185081001
 ;;9002226.02101,"1033,00185081052 ",.01)
 ;;00185081052
 ;;9002226.02101,"1033,00185081052 ",.02)
 ;;00185081052
 ;;9002226.02101,"1033,00185081053 ",.01)
 ;;00185081053
 ;;9002226.02101,"1033,00185081053 ",.02)
 ;;00185081053
 ;;9002226.02101,"1033,00185081401 ",.01)
 ;;00185081401
 ;;9002226.02101,"1033,00185081401 ",.02)
 ;;00185081401
 ;;9002226.02101,"1033,00185081460 ",.01)
 ;;00185081460
 ;;9002226.02101,"1033,00185081460 ",.02)
 ;;00185081460
 ;;9002226.02101,"1033,00185081501 ",.01)
 ;;00185081501
 ;;9002226.02101,"1033,00185081501 ",.02)
 ;;00185081501
 ;;9002226.02101,"1033,00185081550 ",.01)
 ;;00185081550
 ;;9002226.02101,"1033,00185081550 ",.02)
 ;;00185081550
 ;;9002226.02101,"1033,00185081553 ",.01)
 ;;00185081553
 ;;9002226.02101,"1033,00185081553 ",.02)
 ;;00185081553
 ;;9002226.02101,"1033,00185720370 ",.01)
 ;;00185720370
 ;;9002226.02101,"1033,00185720370 ",.02)
 ;;00185720370
 ;;9002226.02101,"1033,00185720670 ",.01)
 ;;00185720670
 ;;9002226.02101,"1033,00185720670 ",.02)
 ;;00185720670
 ;;9002226.02101,"1033,00185720969 ",.01)
 ;;00185720969
 ;;9002226.02101,"1033,00185720969 ",.02)
 ;;00185720969
 ;;9002226.02101,"1033,00185721268 ",.01)
 ;;00185721268
 ;;9002226.02101,"1033,00185721268 ",.02)
 ;;00185721268
 ;;9002226.02101,"1033,00247000133 ",.01)
 ;;00247000133
 ;;9002226.02101,"1033,00247000133 ",.02)
 ;;00247000133
 ;;9002226.02101,"1033,00247000156 ",.01)
 ;;00247000156
 ;;9002226.02101,"1033,00247000156 ",.02)
 ;;00247000156
 ;;9002226.02101,"1033,00247000169 ",.01)
 ;;00247000169
 ;;9002226.02101,"1033,00247000169 ",.02)
 ;;00247000169
 ;;9002226.02101,"1033,00247000212 ",.01)
 ;;00247000212
 ;;9002226.02101,"1033,00247000212 ",.02)
 ;;00247000212
 ;;9002226.02101,"1033,00247000216 ",.01)
 ;;00247000216
 ;;9002226.02101,"1033,00247000216 ",.02)
 ;;00247000216
 ;;9002226.02101,"1033,00247000222 ",.01)
 ;;00247000222
 ;;9002226.02101,"1033,00247000222 ",.02)
 ;;00247000222
 ;;9002226.02101,"1033,00247000225 ",.01)
 ;;00247000225
 ;;9002226.02101,"1033,00247000225 ",.02)
 ;;00247000225
 ;;9002226.02101,"1033,00247000232 ",.01)
 ;;00247000232
 ;;9002226.02101,"1033,00247000232 ",.02)
 ;;00247000232
 ;;9002226.02101,"1033,00247000233 ",.01)
 ;;00247000233
 ;;9002226.02101,"1033,00247000233 ",.02)
 ;;00247000233
 ;;9002226.02101,"1033,00247000250 ",.01)
 ;;00247000250
 ;;9002226.02101,"1033,00247000250 ",.02)
 ;;00247000250
 ;;9002226.02101,"1033,00247000269 ",.01)
 ;;00247000269
 ;;9002226.02101,"1033,00247000269 ",.02)
 ;;00247000269
 ;;9002226.02101,"1033,00247000280 ",.01)
 ;;00247000280
 ;;9002226.02101,"1033,00247000280 ",.02)
 ;;00247000280
 ;;9002226.02101,"1033,00247000303 ",.01)
 ;;00247000303