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

BGPM5AFB.m

Go to the documentation of this file.
BGPM5AFB ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"881,58864076230 ",.01)
 ;;58864076230
 ;;9002226.02101,"881,58864076230 ",.02)
 ;;58864076230
 ;;9002226.02101,"881,58864077430 ",.01)
 ;;58864077430
 ;;9002226.02101,"881,58864077430 ",.02)
 ;;58864077430
 ;;9002226.02101,"881,58864077490 ",.01)
 ;;58864077490
 ;;9002226.02101,"881,58864077490 ",.02)
 ;;58864077490
 ;;9002226.02101,"881,58864078730 ",.01)
 ;;58864078730
 ;;9002226.02101,"881,58864078730 ",.02)
 ;;58864078730
 ;;9002226.02101,"881,59564012820 ",.01)
 ;;59564012820
 ;;9002226.02101,"881,59564012820 ",.02)
 ;;59564012820
 ;;9002226.02101,"881,59762022001 ",.01)
 ;;59762022001
 ;;9002226.02101,"881,59762022001 ",.02)
 ;;59762022001
 ;;9002226.02101,"881,59762022201 ",.01)
 ;;59762022201
 ;;9002226.02101,"881,59762022201 ",.02)
 ;;59762022201
 ;;9002226.02101,"881,59762022301 ",.01)
 ;;59762022301
 ;;9002226.02101,"881,59762022301 ",.02)
 ;;59762022301
 ;;9002226.02101,"881,59762214001 ",.01)
 ;;59762214001
 ;;9002226.02101,"881,59762214001 ",.02)
 ;;59762214001
 ;;9002226.02101,"881,59762214006 ",.01)
 ;;59762214006
 ;;9002226.02101,"881,59762214006 ",.02)
 ;;59762214006
 ;;9002226.02101,"881,59762214101 ",.01)
 ;;59762214101
 ;;9002226.02101,"881,59762214101 ",.02)
 ;;59762214101
 ;;9002226.02101,"881,59762214106 ",.01)
 ;;59762214106
 ;;9002226.02101,"881,59762214106 ",.02)
 ;;59762214106
 ;;9002226.02101,"881,59762227001 ",.01)
 ;;59762227001
 ;;9002226.02101,"881,59762227001 ",.02)
 ;;59762227001
 ;;9002226.02101,"881,59762227003 ",.01)
 ;;59762227003
 ;;9002226.02101,"881,59762227003 ",.02)
 ;;59762227003
 ;;9002226.02101,"881,59762227007 ",.01)
 ;;59762227007
 ;;9002226.02101,"881,59762227007 ",.02)
 ;;59762227007
 ;;9002226.02101,"881,59762227101 ",.01)
 ;;59762227101
 ;;9002226.02101,"881,59762227101 ",.02)
 ;;59762227101
 ;;9002226.02101,"881,59762227103 ",.01)
 ;;59762227103
 ;;9002226.02101,"881,59762227103 ",.02)
 ;;59762227103
 ;;9002226.02101,"881,59762227107 ",.01)
 ;;59762227107
 ;;9002226.02101,"881,59762227107 ",.02)
 ;;59762227107
 ;;9002226.02101,"881,59762227201 ",.01)
 ;;59762227201
 ;;9002226.02101,"881,59762227201 ",.02)
 ;;59762227201
 ;;9002226.02101,"881,59762227203 ",.01)
 ;;59762227203
 ;;9002226.02101,"881,59762227203 ",.02)
 ;;59762227203
 ;;9002226.02101,"881,59762227207 ",.01)
 ;;59762227207
 ;;9002226.02101,"881,59762227207 ",.02)
 ;;59762227207
 ;;9002226.02101,"881,59762227301 ",.01)
 ;;59762227301
 ;;9002226.02101,"881,59762227301 ",.02)
 ;;59762227301
 ;;9002226.02101,"881,59762227303 ",.01)
 ;;59762227303
 ;;9002226.02101,"881,59762227303 ",.02)
 ;;59762227303
 ;;9002226.02101,"881,59762227307 ",.01)
 ;;59762227307
 ;;9002226.02101,"881,59762227307 ",.02)
 ;;59762227307
 ;;9002226.02101,"881,59762227401 ",.01)
 ;;59762227401
 ;;9002226.02101,"881,59762227401 ",.02)
 ;;59762227401
 ;;9002226.02101,"881,59762227403 ",.01)
 ;;59762227403
 ;;9002226.02101,"881,59762227403 ",.02)
 ;;59762227403
 ;;9002226.02101,"881,59762227407 ",.01)
 ;;59762227407
 ;;9002226.02101,"881,59762227407 ",.02)
 ;;59762227407
 ;;9002226.02101,"881,59762227501 ",.01)
 ;;59762227501
 ;;9002226.02101,"881,59762227501 ",.02)
 ;;59762227501
 ;;9002226.02101,"881,59762227503 ",.01)
 ;;59762227503
 ;;9002226.02101,"881,59762227503 ",.02)
 ;;59762227503
 ;;9002226.02101,"881,59762227507 ",.01)
 ;;59762227507
 ;;9002226.02101,"881,59762227507 ",.02)
 ;;59762227507
 ;;9002226.02101,"881,59762329301 ",.01)
 ;;59762329301
 ;;9002226.02101,"881,59762329301 ",.02)
 ;;59762329301
 ;;9002226.02101,"881,59762329302 ",.01)
 ;;59762329302
 ;;9002226.02101,"881,59762329302 ",.02)
 ;;59762329302
 ;;9002226.02101,"881,59762329303 ",.01)
 ;;59762329303
 ;;9002226.02101,"881,59762329303 ",.02)
 ;;59762329303
 ;;9002226.02101,"881,59762329304 ",.01)
 ;;59762329304
 ;;9002226.02101,"881,59762329304 ",.02)
 ;;59762329304
 ;;9002226.02101,"881,59762329401 ",.01)
 ;;59762329401
 ;;9002226.02101,"881,59762329401 ",.02)
 ;;59762329401
 ;;9002226.02101,"881,59762329402 ",.01)
 ;;59762329402
 ;;9002226.02101,"881,59762329402 ",.02)
 ;;59762329402
 ;;9002226.02101,"881,59762329403 ",.01)
 ;;59762329403
 ;;9002226.02101,"881,59762329403 ",.02)
 ;;59762329403
 ;;9002226.02101,"881,59762329404 ",.01)
 ;;59762329404
 ;;9002226.02101,"881,59762329404 ",.02)
 ;;59762329404
 ;;9002226.02101,"881,59762329501 ",.01)
 ;;59762329501
 ;;9002226.02101,"881,59762329501 ",.02)
 ;;59762329501
 ;;9002226.02101,"881,59762329502 ",.01)
 ;;59762329502
 ;;9002226.02101,"881,59762329502 ",.02)
 ;;59762329502
 ;;9002226.02101,"881,59762329503 ",.01)
 ;;59762329503
 ;;9002226.02101,"881,59762329503 ",.02)
 ;;59762329503
 ;;9002226.02101,"881,59762329504 ",.01)
 ;;59762329504
 ;;9002226.02101,"881,59762329504 ",.02)
 ;;59762329504
 ;;9002226.02101,"881,59762501901 ",.01)
 ;;59762501901
 ;;9002226.02101,"881,59762501901 ",.02)
 ;;59762501901
 ;;9002226.02101,"881,59762502001 ",.01)
 ;;59762502001
 ;;9002226.02101,"881,59762502001 ",.02)
 ;;59762502001
 ;;9002226.02101,"881,59762502101 ",.01)
 ;;59762502101
 ;;9002226.02101,"881,59762502101 ",.02)
 ;;59762502101
 ;;9002226.02101,"881,59762502201 ",.01)
 ;;59762502201
 ;;9002226.02101,"881,59762502201 ",.02)
 ;;59762502201
 ;;9002226.02101,"881,59762525001 ",.01)
 ;;59762525001
 ;;9002226.02101,"881,59762525001 ",.02)
 ;;59762525001
 ;;9002226.02101,"881,59762525004 ",.01)
 ;;59762525004
 ;;9002226.02101,"881,59762525004 ",.02)
 ;;59762525004
 ;;9002226.02101,"881,59762525101 ",.01)
 ;;59762525101
 ;;9002226.02101,"881,59762525101 ",.02)
 ;;59762525101
 ;;9002226.02101,"881,59762525104 ",.01)
 ;;59762525104
 ;;9002226.02101,"881,59762525104 ",.02)
 ;;59762525104
 ;;9002226.02101,"881,59772704501 ",.01)
 ;;59772704501
 ;;9002226.02101,"881,59772704501 ",.02)
 ;;59772704501
 ;;9002226.02101,"881,59772704503 ",.01)
 ;;59772704503
 ;;9002226.02101,"881,59772704503 ",.02)
 ;;59772704503
 ;;9002226.02101,"881,59772704504 ",.01)
 ;;59772704504
 ;;9002226.02101,"881,59772704504 ",.02)
 ;;59772704504
 ;;9002226.02101,"881,59772704505 ",.01)
 ;;59772704505
 ;;9002226.02101,"881,59772704505 ",.02)
 ;;59772704505
 ;;9002226.02101,"881,59772704601 ",.01)
 ;;59772704601
 ;;9002226.02101,"881,59772704601 ",.02)
 ;;59772704601
 ;;9002226.02101,"881,59772704602 ",.01)
 ;;59772704602
 ;;9002226.02101,"881,59772704602 ",.02)
 ;;59772704602
 ;;9002226.02101,"881,59772704603 ",.01)
 ;;59772704603
 ;;9002226.02101,"881,59772704603 ",.02)
 ;;59772704603
 ;;9002226.02101,"881,59772704604 ",.01)
 ;;59772704604
 ;;9002226.02101,"881,59772704604 ",.02)
 ;;59772704604
 ;;9002226.02101,"881,59772704701 ",.01)
 ;;59772704701
 ;;9002226.02101,"881,59772704701 ",.02)
 ;;59772704701
 ;;9002226.02101,"881,59772704703 ",.01)
 ;;59772704703
 ;;9002226.02101,"881,59772704703 ",.02)
 ;;59772704703
 ;;9002226.02101,"881,59772704704 ",.01)
 ;;59772704704
 ;;9002226.02101,"881,59772704704 ",.02)
 ;;59772704704
 ;;9002226.02101,"881,59772704801 ",.01)
 ;;59772704801
 ;;9002226.02101,"881,59772704801 ",.02)
 ;;59772704801
 ;;9002226.02101,"881,60312011000 ",.01)
 ;;60312011000
 ;;9002226.02101,"881,60312011000 ",.02)
 ;;60312011000
 ;;9002226.02101,"881,60312011100 ",.01)
 ;;60312011100
 ;;9002226.02101,"881,60312011100 ",.02)
 ;;60312011100
 ;;9002226.02101,"881,60312011200 ",.01)
 ;;60312011200
 ;;9002226.02101,"881,60312011200 ",.02)
 ;;60312011200
 ;;9002226.02101,"881,60312090700 ",.01)
 ;;60312090700
 ;;9002226.02101,"881,60312090700 ",.02)
 ;;60312090700
 ;;9002226.02101,"881,60429002901 ",.01)
 ;;60429002901
 ;;9002226.02101,"881,60429002901 ",.02)
 ;;60429002901
 ;;9002226.02101,"881,60429002910 ",.01)
 ;;60429002910
 ;;9002226.02101,"881,60429002910 ",.02)
 ;;60429002910
 ;;9002226.02101,"881,60429003001 ",.01)
 ;;60429003001
 ;;9002226.02101,"881,60429003001 ",.02)
 ;;60429003001
 ;;9002226.02101,"881,60429003010 ",.01)
 ;;60429003010
 ;;9002226.02101,"881,60429003010 ",.02)
 ;;60429003010
 ;;9002226.02101,"881,60429003101 ",.01)
 ;;60429003101
 ;;9002226.02101,"881,60429003101 ",.02)
 ;;60429003101
 ;;9002226.02101,"881,60429003110 ",.01)
 ;;60429003110
 ;;9002226.02101,"881,60429003110 ",.02)
 ;;60429003110
 ;;9002226.02101,"881,60429003801 ",.01)
 ;;60429003801
 ;;9002226.02101,"881,60429003801 ",.02)
 ;;60429003801
 ;;9002226.02101,"881,60429003901 ",.01)
 ;;60429003901
 ;;9002226.02101,"881,60429003901 ",.02)
 ;;60429003901
 ;;9002226.02101,"881,60429003910 ",.01)
 ;;60429003910
 ;;9002226.02101,"881,60429003910 ",.02)
 ;;60429003910
 ;;9002226.02101,"881,60429004001 ",.01)
 ;;60429004001
 ;;9002226.02101,"881,60429004001 ",.02)
 ;;60429004001
 ;;9002226.02101,"881,60429004010 ",.01)
 ;;60429004010
 ;;9002226.02101,"881,60429004010 ",.02)
 ;;60429004010
 ;;9002226.02101,"881,60429004101 ",.01)
 ;;60429004101
 ;;9002226.02101,"881,60429004101 ",.02)
 ;;60429004101
 ;;9002226.02101,"881,60429004110 ",.01)
 ;;60429004110
 ;;9002226.02101,"881,60429004110 ",.02)
 ;;60429004110
 ;;9002226.02101,"881,60429004401 ",.01)
 ;;60429004401
 ;;9002226.02101,"881,60429004401 ",.02)
 ;;60429004401
 ;;9002226.02101,"881,60429004410 ",.01)
 ;;60429004410
 ;;9002226.02101,"881,60429004410 ",.02)
 ;;60429004410
 ;;9002226.02101,"881,60429004501 ",.01)
 ;;60429004501
 ;;9002226.02101,"881,60429004501 ",.02)
 ;;60429004501
 ;;9002226.02101,"881,60429004510 ",.01)
 ;;60429004510
 ;;9002226.02101,"881,60429004510 ",.02)
 ;;60429004510
 ;;9002226.02101,"881,60429004601 ",.01)
 ;;60429004601
 ;;9002226.02101,"881,60429004601 ",.02)
 ;;60429004601
 ;;9002226.02101,"881,60429004610 ",.01)
 ;;60429004610
 ;;9002226.02101,"881,60429004610 ",.02)
 ;;60429004610
 ;;9002226.02101,"881,60429007101 ",.01)
 ;;60429007101
 ;;9002226.02101,"881,60429007101 ",.02)
 ;;60429007101
 ;;9002226.02101,"881,60429007105 ",.01)
 ;;60429007105
 ;;9002226.02101,"881,60429007105 ",.02)
 ;;60429007105
 ;;9002226.02101,"881,60429007110 ",.01)
 ;;60429007110
 ;;9002226.02101,"881,60429007110 ",.02)
 ;;60429007110
 ;;9002226.02101,"881,60429007127 ",.01)
 ;;60429007127
 ;;9002226.02101,"881,60429007127 ",.02)
 ;;60429007127
 ;;9002226.02101,"881,60429007130 ",.01)
 ;;60429007130
 ;;9002226.02101,"881,60429007130 ",.02)
 ;;60429007130
 ;;9002226.02101,"881,60429007160 ",.01)
 ;;60429007160
 ;;9002226.02101,"881,60429007160 ",.02)
 ;;60429007160
 ;;9002226.02101,"881,60429007190 ",.01)
 ;;60429007190
 ;;9002226.02101,"881,60429007190 ",.02)
 ;;60429007190
 ;;9002226.02101,"881,60429007201 ",.01)
 ;;60429007201
 ;;9002226.02101,"881,60429007201 ",.02)
 ;;60429007201
 ;;9002226.02101,"881,60429007205 ",.01)
 ;;60429007205
 ;;9002226.02101,"881,60429007205 ",.02)
 ;;60429007205
 ;;9002226.02101,"881,60429007210 ",.01)
 ;;60429007210
 ;;9002226.02101,"881,60429007210 ",.02)
 ;;60429007210
 ;;9002226.02101,"881,60429007227 ",.01)
 ;;60429007227
 ;;9002226.02101,"881,60429007227 ",.02)
 ;;60429007227
 ;;9002226.02101,"881,60429007230 ",.01)
 ;;60429007230
 ;;9002226.02101,"881,60429007230 ",.02)
 ;;60429007230
 ;;9002226.02101,"881,60429007260 ",.01)
 ;;60429007260
 ;;9002226.02101,"881,60429007260 ",.02)
 ;;60429007260
 ;;9002226.02101,"881,60429007290 ",.01)
 ;;60429007290
 ;;9002226.02101,"881,60429007290 ",.02)
 ;;60429007290
 ;;9002226.02101,"881,60429007301 ",.01)
 ;;60429007301
 ;;9002226.02101,"881,60429007301 ",.02)
 ;;60429007301
 ;;9002226.02101,"881,60429007305 ",.01)
 ;;60429007305
 ;;9002226.02101,"881,60429007305 ",.02)
 ;;60429007305
 ;;9002226.02101,"881,60429007310 ",.01)
 ;;60429007310
 ;;9002226.02101,"881,60429007310 ",.02)
 ;;60429007310