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

BGPM5BFQ.m

Go to the documentation of this file.
BGPM5BFQ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON SEP 12, 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,"1084,59762378203 ",.01)
 ;;59762378203
 ;;9002226.02101,"1084,59762378203 ",.02)
 ;;59762378203
 ;;9002226.02101,"1084,59762378301 ",.01)
 ;;59762378301
 ;;9002226.02101,"1084,59762378301 ",.02)
 ;;59762378301
 ;;9002226.02101,"1084,59762378302 ",.01)
 ;;59762378302
 ;;9002226.02101,"1084,59762378302 ",.02)
 ;;59762378302
 ;;9002226.02101,"1084,59762378303 ",.01)
 ;;59762378303
 ;;9002226.02101,"1084,59762378303 ",.02)
 ;;59762378303
 ;;9002226.02101,"1084,59762432000 ",.01)
 ;;59762432000
 ;;9002226.02101,"1084,59762432000 ",.02)
 ;;59762432000
 ;;9002226.02101,"1084,59762432002 ",.01)
 ;;59762432002
 ;;9002226.02101,"1084,59762432002 ",.02)
 ;;59762432002
 ;;9002226.02101,"1084,59762432006 ",.01)
 ;;59762432006
 ;;9002226.02101,"1084,59762432006 ",.02)
 ;;59762432006
 ;;9002226.02101,"1084,59762432100 ",.01)
 ;;59762432100
 ;;9002226.02101,"1084,59762432100 ",.02)
 ;;59762432100
 ;;9002226.02101,"1084,59762432102 ",.01)
 ;;59762432102
 ;;9002226.02101,"1084,59762432102 ",.02)
 ;;59762432102
 ;;9002226.02101,"1084,59762432106 ",.01)
 ;;59762432106
 ;;9002226.02101,"1084,59762432106 ",.02)
 ;;59762432106
 ;;9002226.02101,"1084,59762432200 ",.01)
 ;;59762432200
 ;;9002226.02101,"1084,59762432200 ",.02)
 ;;59762432200
 ;;9002226.02101,"1084,59762432202 ",.01)
 ;;59762432202
 ;;9002226.02101,"1084,59762432202 ",.02)
 ;;59762432202
 ;;9002226.02101,"1084,59762432206 ",.01)
 ;;59762432206
 ;;9002226.02101,"1084,59762432206 ",.02)
 ;;59762432206
 ;;9002226.02101,"1084,59762503101 ",.01)
 ;;59762503101
 ;;9002226.02101,"1084,59762503101 ",.02)
 ;;59762503101
 ;;9002226.02101,"1084,59762503201 ",.01)
 ;;59762503201
 ;;9002226.02101,"1084,59762503201 ",.02)
 ;;59762503201
 ;;9002226.02101,"1084,59762503202 ",.01)
 ;;59762503202
 ;;9002226.02101,"1084,59762503202 ",.02)
 ;;59762503202
 ;;9002226.02101,"1084,59762503301 ",.01)
 ;;59762503301
 ;;9002226.02101,"1084,59762503301 ",.02)
 ;;59762503301
 ;;9002226.02101,"1084,59762503302 ",.01)
 ;;59762503302
 ;;9002226.02101,"1084,59762503302 ",.02)
 ;;59762503302
 ;;9002226.02101,"1084,59762702009 ",.01)
 ;;59762702009
 ;;9002226.02101,"1084,59762702009 ",.02)
 ;;59762702009
 ;;9002226.02101,"1084,59762702101 ",.01)
 ;;59762702101
 ;;9002226.02101,"1084,59762702101 ",.02)
 ;;59762702101
 ;;9002226.02101,"1084,59762702105 ",.01)
 ;;59762702105
 ;;9002226.02101,"1084,59762702105 ",.02)
 ;;59762702105
 ;;9002226.02101,"1084,59762702109 ",.01)
 ;;59762702109
 ;;9002226.02101,"1084,59762702109 ",.02)
 ;;59762702109
 ;;9002226.02101,"1084,59762702201 ",.01)
 ;;59762702201
 ;;9002226.02101,"1084,59762702201 ",.02)
 ;;59762702201
 ;;9002226.02101,"1084,59762702205 ",.01)
 ;;59762702205
 ;;9002226.02101,"1084,59762702205 ",.02)
 ;;59762702205
 ;;9002226.02101,"1084,59762702209 ",.01)
 ;;59762702209
 ;;9002226.02101,"1084,59762702209 ",.02)
 ;;59762702209
 ;;9002226.02101,"1084,59930159202 ",.01)
 ;;59930159202
 ;;9002226.02101,"1084,59930159202 ",.02)
 ;;59930159202
 ;;9002226.02101,"1084,59930162202 ",.01)
 ;;59930162202
 ;;9002226.02101,"1084,59930162202 ",.02)
 ;;59930162202
 ;;9002226.02101,"1084,59930162203 ",.01)
 ;;59930162203
 ;;9002226.02101,"1084,59930162203 ",.02)
 ;;59930162203
 ;;9002226.02101,"1084,59930163902 ",.01)
 ;;59930163902
 ;;9002226.02101,"1084,59930163902 ",.02)
 ;;59930163902
 ;;9002226.02101,"1084,60429008512 ",.01)
 ;;60429008512
 ;;9002226.02101,"1084,60429008512 ",.02)
 ;;60429008512
 ;;9002226.02101,"1084,60429008518 ",.01)
 ;;60429008518
 ;;9002226.02101,"1084,60429008518 ",.02)
 ;;60429008518
 ;;9002226.02101,"1084,60429008527 ",.01)
 ;;60429008527
 ;;9002226.02101,"1084,60429008527 ",.02)
 ;;60429008527
 ;;9002226.02101,"1084,60429008530 ",.01)
 ;;60429008530
 ;;9002226.02101,"1084,60429008530 ",.02)
 ;;60429008530
 ;;9002226.02101,"1084,60429008536 ",.01)
 ;;60429008536
 ;;9002226.02101,"1084,60429008536 ",.02)
 ;;60429008536
 ;;9002226.02101,"1084,60429008560 ",.01)
 ;;60429008560
 ;;9002226.02101,"1084,60429008560 ",.02)
 ;;60429008560
 ;;9002226.02101,"1084,60429008590 ",.01)
 ;;60429008590
 ;;9002226.02101,"1084,60429008590 ",.02)
 ;;60429008590
 ;;9002226.02101,"1084,60429072218 ",.01)
 ;;60429072218
 ;;9002226.02101,"1084,60429072218 ",.02)
 ;;60429072218
 ;;9002226.02101,"1084,60429072260 ",.01)
 ;;60429072260
 ;;9002226.02101,"1084,60429072260 ",.02)
 ;;60429072260
 ;;9002226.02101,"1084,60429072301 ",.01)
 ;;60429072301
 ;;9002226.02101,"1084,60429072301 ",.02)
 ;;60429072301
 ;;9002226.02101,"1084,60429072305 ",.01)
 ;;60429072305
 ;;9002226.02101,"1084,60429072305 ",.02)
 ;;60429072305
 ;;9002226.02101,"1084,60429072312 ",.01)
 ;;60429072312
 ;;9002226.02101,"1084,60429072312 ",.02)
 ;;60429072312
 ;;9002226.02101,"1084,60429072318 ",.01)
 ;;60429072318
 ;;9002226.02101,"1084,60429072318 ",.02)
 ;;60429072318
 ;;9002226.02101,"1084,60429072360 ",.01)
 ;;60429072360
 ;;9002226.02101,"1084,60429072360 ",.02)
 ;;60429072360
 ;;9002226.02101,"1084,60429072390 ",.01)
 ;;60429072390
 ;;9002226.02101,"1084,60429072390 ",.02)
 ;;60429072390
 ;;9002226.02101,"1084,60429072418 ",.01)
 ;;60429072418
 ;;9002226.02101,"1084,60429072418 ",.02)
 ;;60429072418
 ;;9002226.02101,"1084,60429072460 ",.01)
 ;;60429072460
 ;;9002226.02101,"1084,60429072460 ",.02)
 ;;60429072460
 ;;9002226.02101,"1084,60429072505 ",.01)
 ;;60429072505
 ;;9002226.02101,"1084,60429072505 ",.02)
 ;;60429072505
 ;;9002226.02101,"1084,60429072518 ",.01)
 ;;60429072518
 ;;9002226.02101,"1084,60429072518 ",.02)
 ;;60429072518
 ;;9002226.02101,"1084,60429072560 ",.01)
 ;;60429072560
 ;;9002226.02101,"1084,60429072560 ",.02)
 ;;60429072560
 ;;9002226.02101,"1084,60429072590 ",.01)
 ;;60429072590
 ;;9002226.02101,"1084,60429072590 ",.02)
 ;;60429072590
 ;;9002226.02101,"1084,60505014100 ",.01)
 ;;60505014100
 ;;9002226.02101,"1084,60505014100 ",.02)
 ;;60505014100
 ;;9002226.02101,"1084,60505014101 ",.01)
 ;;60505014101
 ;;9002226.02101,"1084,60505014101 ",.02)
 ;;60505014101
 ;;9002226.02101,"1084,60505014102 ",.01)
 ;;60505014102
 ;;9002226.02101,"1084,60505014102 ",.02)
 ;;60505014102
 ;;9002226.02101,"1084,60505014108 ",.01)
 ;;60505014108
 ;;9002226.02101,"1084,60505014108 ",.02)
 ;;60505014108
 ;;9002226.02101,"1084,60505014200 ",.01)
 ;;60505014200
 ;;9002226.02101,"1084,60505014200 ",.02)
 ;;60505014200
 ;;9002226.02101,"1084,60505014201 ",.01)
 ;;60505014201
 ;;9002226.02101,"1084,60505014201 ",.02)
 ;;60505014201
 ;;9002226.02101,"1084,60505014202 ",.01)
 ;;60505014202
 ;;9002226.02101,"1084,60505014202 ",.02)
 ;;60505014202
 ;;9002226.02101,"1084,60505014204 ",.01)
 ;;60505014204
 ;;9002226.02101,"1084,60505014204 ",.02)
 ;;60505014204
 ;;9002226.02101,"1084,60505019000 ",.01)
 ;;60505019000
 ;;9002226.02101,"1084,60505019000 ",.02)
 ;;60505019000
 ;;9002226.02101,"1084,60505019001 ",.01)
 ;;60505019001
 ;;9002226.02101,"1084,60505019001 ",.02)
 ;;60505019001
 ;;9002226.02101,"1084,60505019004 ",.01)
 ;;60505019004
 ;;9002226.02101,"1084,60505019004 ",.02)
 ;;60505019004
 ;;9002226.02101,"1084,60505019008 ",.01)
 ;;60505019008
 ;;9002226.02101,"1084,60505019008 ",.02)
 ;;60505019008
 ;;9002226.02101,"1084,60505019100 ",.01)
 ;;60505019100
 ;;9002226.02101,"1084,60505019100 ",.02)
 ;;60505019100
 ;;9002226.02101,"1084,60505019101 ",.01)
 ;;60505019101
 ;;9002226.02101,"1084,60505019101 ",.02)
 ;;60505019101
 ;;9002226.02101,"1084,60505019104 ",.01)
 ;;60505019104
 ;;9002226.02101,"1084,60505019104 ",.02)
 ;;60505019104
 ;;9002226.02101,"1084,60505019108 ",.01)
 ;;60505019108
 ;;9002226.02101,"1084,60505019108 ",.02)
 ;;60505019108
 ;;9002226.02101,"1084,60505019200 ",.01)
 ;;60505019200
 ;;9002226.02101,"1084,60505019200 ",.02)
 ;;60505019200
 ;;9002226.02101,"1084,60505019201 ",.01)
 ;;60505019201
 ;;9002226.02101,"1084,60505019201 ",.02)
 ;;60505019201
 ;;9002226.02101,"1084,60505019204 ",.01)
 ;;60505019204
 ;;9002226.02101,"1084,60505019204 ",.02)
 ;;60505019204
 ;;9002226.02101,"1084,60505019208 ",.01)
 ;;60505019208
 ;;9002226.02101,"1084,60505019208 ",.02)
 ;;60505019208
 ;;9002226.02101,"1084,60505026001 ",.01)
 ;;60505026001
 ;;9002226.02101,"1084,60505026001 ",.02)
 ;;60505026001
 ;;9002226.02101,"1084,60505026002 ",.01)
 ;;60505026002
 ;;9002226.02101,"1084,60505026002 ",.02)
 ;;60505026002
 ;;9002226.02101,"1084,60505026007 ",.01)
 ;;60505026007
 ;;9002226.02101,"1084,60505026007 ",.02)
 ;;60505026007
 ;;9002226.02101,"1084,60505132901 ",.01)
 ;;60505132901
 ;;9002226.02101,"1084,60505132901 ",.02)
 ;;60505132901
 ;;9002226.02101,"1084,60505132903 ",.01)
 ;;60505132903
 ;;9002226.02101,"1084,60505132903 ",.02)
 ;;60505132903
 ;;9002226.02101,"1084,60505132905 ",.01)
 ;;60505132905
 ;;9002226.02101,"1084,60505132905 ",.02)
 ;;60505132905
 ;;9002226.02101,"1084,60951071170 ",.01)
 ;;60951071170
 ;;9002226.02101,"1084,60951071170 ",.02)
 ;;60951071170
 ;;9002226.02101,"1084,60951071185 ",.01)
 ;;60951071185
 ;;9002226.02101,"1084,60951071185 ",.02)
 ;;60951071185
 ;;9002226.02101,"1084,60951071470 ",.01)
 ;;60951071470
 ;;9002226.02101,"1084,60951071470 ",.02)
 ;;60951071470
 ;;9002226.02101,"1084,60951071485 ",.01)
 ;;60951071485
 ;;9002226.02101,"1084,60951071485 ",.02)
 ;;60951071485
 ;;9002226.02101,"1084,61073003001 ",.01)
 ;;61073003001
 ;;9002226.02101,"1084,61073003001 ",.02)
 ;;61073003001
 ;;9002226.02101,"1084,61073003005 ",.01)
 ;;61073003005
 ;;9002226.02101,"1084,61073003005 ",.02)
 ;;61073003005
 ;;9002226.02101,"1084,61073003010 ",.01)
 ;;61073003010
 ;;9002226.02101,"1084,61073003010 ",.02)
 ;;61073003010
 ;;9002226.02101,"1084,61073003101 ",.01)
 ;;61073003101
 ;;9002226.02101,"1084,61073003101 ",.02)
 ;;61073003101
 ;;9002226.02101,"1084,61073003105 ",.01)
 ;;61073003105
 ;;9002226.02101,"1084,61073003105 ",.02)
 ;;61073003105
 ;;9002226.02101,"1084,61073003110 ",.01)
 ;;61073003110
 ;;9002226.02101,"1084,61073003110 ",.02)
 ;;61073003110
 ;;9002226.02101,"1084,61073003201 ",.01)
 ;;61073003201
 ;;9002226.02101,"1084,61073003201 ",.02)
 ;;61073003201
 ;;9002226.02101,"1084,61073003205 ",.01)
 ;;61073003205
 ;;9002226.02101,"1084,61073003205 ",.02)
 ;;61073003205
 ;;9002226.02101,"1084,61073003210 ",.01)
 ;;61073003210
 ;;9002226.02101,"1084,61073003210 ",.02)
 ;;61073003210
 ;;9002226.02101,"1084,61258673700 ",.01)
 ;;61258673700
 ;;9002226.02101,"1084,61258673700 ",.02)
 ;;61258673700
 ;;9002226.02101,"1084,61258673800 ",.01)
 ;;61258673800
 ;;9002226.02101,"1084,61258673800 ",.02)
 ;;61258673800
 ;;9002226.02101,"1084,61258673900 ",.01)
 ;;61258673900
 ;;9002226.02101,"1084,61258673900 ",.02)
 ;;61258673900
 ;;9002226.02101,"1084,61392006325 ",.01)
 ;;61392006325
 ;;9002226.02101,"1084,61392006325 ",.02)
 ;;61392006325
 ;;9002226.02101,"1084,61392006330 ",.01)
 ;;61392006330
 ;;9002226.02101,"1084,61392006330 ",.02)
 ;;61392006330
 ;;9002226.02101,"1084,61392006339 ",.01)
 ;;61392006339
 ;;9002226.02101,"1084,61392006339 ",.02)
 ;;61392006339
 ;;9002226.02101,"1084,61392006345 ",.01)
 ;;61392006345
 ;;9002226.02101,"1084,61392006345 ",.02)
 ;;61392006345
 ;;9002226.02101,"1084,61392006354 ",.01)
 ;;61392006354
 ;;9002226.02101,"1084,61392006354 ",.02)
 ;;61392006354
 ;;9002226.02101,"1084,61392006391 ",.01)
 ;;61392006391
 ;;9002226.02101,"1084,61392006391 ",.02)
 ;;61392006391
 ;;9002226.02101,"1084,61392006425 ",.01)
 ;;61392006425
 ;;9002226.02101,"1084,61392006425 ",.02)
 ;;61392006425
 ;;9002226.02101,"1084,61392006430 ",.01)
 ;;61392006430
 ;;9002226.02101,"1084,61392006430 ",.02)
 ;;61392006430
 ;;9002226.02101,"1084,61392006439 ",.01)
 ;;61392006439