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

BGPM5AFC.m

Go to the documentation of this file.
BGPM5AFC ;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,60429007327 ",.01)
 ;;60429007327
 ;;9002226.02101,"881,60429007327 ",.02)
 ;;60429007327
 ;;9002226.02101,"881,60429007330 ",.01)
 ;;60429007330
 ;;9002226.02101,"881,60429007330 ",.02)
 ;;60429007330
 ;;9002226.02101,"881,60429007360 ",.01)
 ;;60429007360
 ;;9002226.02101,"881,60429007360 ",.02)
 ;;60429007360
 ;;9002226.02101,"881,60429007390 ",.01)
 ;;60429007390
 ;;9002226.02101,"881,60429007390 ",.02)
 ;;60429007390
 ;;9002226.02101,"881,60429007401 ",.01)
 ;;60429007401
 ;;9002226.02101,"881,60429007401 ",.02)
 ;;60429007401
 ;;9002226.02101,"881,60429007405 ",.01)
 ;;60429007405
 ;;9002226.02101,"881,60429007405 ",.02)
 ;;60429007405
 ;;9002226.02101,"881,60429007410 ",.01)
 ;;60429007410
 ;;9002226.02101,"881,60429007410 ",.02)
 ;;60429007410
 ;;9002226.02101,"881,60429007427 ",.01)
 ;;60429007427
 ;;9002226.02101,"881,60429007427 ",.02)
 ;;60429007427
 ;;9002226.02101,"881,60429007430 ",.01)
 ;;60429007430
 ;;9002226.02101,"881,60429007430 ",.02)
 ;;60429007430
 ;;9002226.02101,"881,60429007460 ",.01)
 ;;60429007460
 ;;9002226.02101,"881,60429007460 ",.02)
 ;;60429007460
 ;;9002226.02101,"881,60429007490 ",.01)
 ;;60429007490
 ;;9002226.02101,"881,60429007490 ",.02)
 ;;60429007490
 ;;9002226.02101,"881,60429025701 ",.01)
 ;;60429025701
 ;;9002226.02101,"881,60429025701 ",.02)
 ;;60429025701
 ;;9002226.02101,"881,60429072801 ",.01)
 ;;60429072801
 ;;9002226.02101,"881,60429072801 ",.02)
 ;;60429072801
 ;;9002226.02101,"881,60429072810 ",.01)
 ;;60429072810
 ;;9002226.02101,"881,60429072810 ",.02)
 ;;60429072810
 ;;9002226.02101,"881,60429072830 ",.01)
 ;;60429072830
 ;;9002226.02101,"881,60429072830 ",.02)
 ;;60429072830
 ;;9002226.02101,"881,60429072890 ",.01)
 ;;60429072890
 ;;9002226.02101,"881,60429072890 ",.02)
 ;;60429072890
 ;;9002226.02101,"881,60429072901 ",.01)
 ;;60429072901
 ;;9002226.02101,"881,60429072901 ",.02)
 ;;60429072901
 ;;9002226.02101,"881,60429072910 ",.01)
 ;;60429072910
 ;;9002226.02101,"881,60429072910 ",.02)
 ;;60429072910
 ;;9002226.02101,"881,60429072930 ",.01)
 ;;60429072930
 ;;9002226.02101,"881,60429072930 ",.02)
 ;;60429072930
 ;;9002226.02101,"881,60429072945 ",.01)
 ;;60429072945
 ;;9002226.02101,"881,60429072945 ",.02)
 ;;60429072945
 ;;9002226.02101,"881,60429072990 ",.01)
 ;;60429072990
 ;;9002226.02101,"881,60429072990 ",.02)
 ;;60429072990
 ;;9002226.02101,"881,60429073001 ",.01)
 ;;60429073001
 ;;9002226.02101,"881,60429073001 ",.02)
 ;;60429073001
 ;;9002226.02101,"881,60429073010 ",.01)
 ;;60429073010
 ;;9002226.02101,"881,60429073010 ",.02)
 ;;60429073010
 ;;9002226.02101,"881,60429073030 ",.01)
 ;;60429073030
 ;;9002226.02101,"881,60429073030 ",.02)
 ;;60429073030
 ;;9002226.02101,"881,60429073045 ",.01)
 ;;60429073045
 ;;9002226.02101,"881,60429073045 ",.02)
 ;;60429073045
 ;;9002226.02101,"881,60429073090 ",.01)
 ;;60429073090
 ;;9002226.02101,"881,60429073090 ",.02)
 ;;60429073090
 ;;9002226.02101,"881,60429073101 ",.01)
 ;;60429073101
 ;;9002226.02101,"881,60429073101 ",.02)
 ;;60429073101
 ;;9002226.02101,"881,60429073110 ",.01)
 ;;60429073110
 ;;9002226.02101,"881,60429073110 ",.02)
 ;;60429073110
 ;;9002226.02101,"881,60429073130 ",.01)
 ;;60429073130
 ;;9002226.02101,"881,60429073130 ",.02)
 ;;60429073130
 ;;9002226.02101,"881,60429073145 ",.01)
 ;;60429073145
 ;;9002226.02101,"881,60429073145 ",.02)
 ;;60429073145
 ;;9002226.02101,"881,60429073190 ",.01)
 ;;60429073190
 ;;9002226.02101,"881,60429073190 ",.02)
 ;;60429073190
 ;;9002226.02101,"881,60429073210 ",.01)
 ;;60429073210
 ;;9002226.02101,"881,60429073210 ",.02)
 ;;60429073210
 ;;9002226.02101,"881,60429073230 ",.01)
 ;;60429073230
 ;;9002226.02101,"881,60429073230 ",.02)
 ;;60429073230
 ;;9002226.02101,"881,60429073290 ",.01)
 ;;60429073290
 ;;9002226.02101,"881,60429073290 ",.02)
 ;;60429073290
 ;;9002226.02101,"881,60429073301 ",.01)
 ;;60429073301
 ;;9002226.02101,"881,60429073301 ",.02)
 ;;60429073301
 ;;9002226.02101,"881,60429073310 ",.01)
 ;;60429073310
 ;;9002226.02101,"881,60429073310 ",.02)
 ;;60429073310
 ;;9002226.02101,"881,60429073330 ",.01)
 ;;60429073330
 ;;9002226.02101,"881,60429073330 ",.02)
 ;;60429073330
 ;;9002226.02101,"881,60429073345 ",.01)
 ;;60429073345
 ;;9002226.02101,"881,60429073345 ",.02)
 ;;60429073345
 ;;9002226.02101,"881,60429073390 ",.01)
 ;;60429073390
 ;;9002226.02101,"881,60429073390 ",.02)
 ;;60429073390
 ;;9002226.02101,"881,60429075510 ",.01)
 ;;60429075510
 ;;9002226.02101,"881,60429075510 ",.02)
 ;;60429075510
 ;;9002226.02101,"881,60429075545 ",.01)
 ;;60429075545
 ;;9002226.02101,"881,60429075545 ",.02)
 ;;60429075545
 ;;9002226.02101,"881,60429075590 ",.01)
 ;;60429075590
 ;;9002226.02101,"881,60429075590 ",.02)
 ;;60429075590
 ;;9002226.02101,"881,60429075610 ",.01)
 ;;60429075610
 ;;9002226.02101,"881,60429075610 ",.02)
 ;;60429075610
 ;;9002226.02101,"881,60429075618 ",.01)
 ;;60429075618
 ;;9002226.02101,"881,60429075618 ",.02)
 ;;60429075618
 ;;9002226.02101,"881,60429075645 ",.01)
 ;;60429075645
 ;;9002226.02101,"881,60429075645 ",.02)
 ;;60429075645
 ;;9002226.02101,"881,60429075690 ",.01)
 ;;60429075690
 ;;9002226.02101,"881,60429075690 ",.02)
 ;;60429075690
 ;;9002226.02101,"881,60429075710 ",.01)
 ;;60429075710
 ;;9002226.02101,"881,60429075710 ",.02)
 ;;60429075710
 ;;9002226.02101,"881,60429075718 ",.01)
 ;;60429075718
 ;;9002226.02101,"881,60429075718 ",.02)
 ;;60429075718
 ;;9002226.02101,"881,60429075745 ",.01)
 ;;60429075745
 ;;9002226.02101,"881,60429075745 ",.02)
 ;;60429075745
 ;;9002226.02101,"881,60429075790 ",.01)
 ;;60429075790
 ;;9002226.02101,"881,60429075790 ",.02)
 ;;60429075790
 ;;9002226.02101,"881,60505000306 ",.01)
 ;;60505000306
 ;;9002226.02101,"881,60505000306 ",.02)
 ;;60505000306
 ;;9002226.02101,"881,60505000309 ",.01)
 ;;60505000309
 ;;9002226.02101,"881,60505000309 ",.02)
 ;;60505000309
 ;;9002226.02101,"881,60505000406 ",.01)
 ;;60505000406
 ;;9002226.02101,"881,60505000406 ",.02)
 ;;60505000406
 ;;9002226.02101,"881,60505000409 ",.01)
 ;;60505000409
 ;;9002226.02101,"881,60505000409 ",.02)
 ;;60505000409
 ;;9002226.02101,"881,60505000506 ",.01)
 ;;60505000506
 ;;9002226.02101,"881,60505000506 ",.02)
 ;;60505000506
 ;;9002226.02101,"881,60505000509 ",.01)
 ;;60505000509
 ;;9002226.02101,"881,60505000509 ",.02)
 ;;60505000509
 ;;9002226.02101,"881,60505000606 ",.01)
 ;;60505000606
 ;;9002226.02101,"881,60505000606 ",.02)
 ;;60505000606
 ;;9002226.02101,"881,60505000609 ",.01)
 ;;60505000609
 ;;9002226.02101,"881,60505000609 ",.02)
 ;;60505000609
 ;;9002226.02101,"881,60505004906 ",.01)
 ;;60505004906
 ;;9002226.02101,"881,60505004906 ",.02)
 ;;60505004906
 ;;9002226.02101,"881,60505004907 ",.01)
 ;;60505004907
 ;;9002226.02101,"881,60505004907 ",.02)
 ;;60505004907
 ;;9002226.02101,"881,60505004909 ",.01)
 ;;60505004909
 ;;9002226.02101,"881,60505004909 ",.02)
 ;;60505004909
 ;;9002226.02101,"881,60505005006 ",.01)
 ;;60505005006
 ;;9002226.02101,"881,60505005006 ",.02)
 ;;60505005006
 ;;9002226.02101,"881,60505005007 ",.01)
 ;;60505005007
 ;;9002226.02101,"881,60505005007 ",.02)
 ;;60505005007
 ;;9002226.02101,"881,60505005009 ",.01)
 ;;60505005009
 ;;9002226.02101,"881,60505005009 ",.02)
 ;;60505005009
 ;;9002226.02101,"881,60505005106 ",.01)
 ;;60505005106
 ;;9002226.02101,"881,60505005106 ",.02)
 ;;60505005106
 ;;9002226.02101,"881,60505005107 ",.01)
 ;;60505005107
 ;;9002226.02101,"881,60505005107 ",.02)
 ;;60505005107
 ;;9002226.02101,"881,60505005109 ",.01)
 ;;60505005109
 ;;9002226.02101,"881,60505005109 ",.02)
 ;;60505005109
 ;;9002226.02101,"881,60505005206 ",.01)
 ;;60505005206
 ;;9002226.02101,"881,60505005206 ",.02)
 ;;60505005206
 ;;9002226.02101,"881,60505005207 ",.01)
 ;;60505005207
 ;;9002226.02101,"881,60505005207 ",.02)
 ;;60505005207
 ;;9002226.02101,"881,60505005209 ",.01)
 ;;60505005209
 ;;9002226.02101,"881,60505005209 ",.02)
 ;;60505005209
 ;;9002226.02101,"881,60505017200 ",.01)
 ;;60505017200
 ;;9002226.02101,"881,60505017200 ",.02)
 ;;60505017200
 ;;9002226.02101,"881,60505017201 ",.01)
 ;;60505017201
 ;;9002226.02101,"881,60505017201 ",.02)
 ;;60505017201
 ;;9002226.02101,"881,60505017202 ",.01)
 ;;60505017202
 ;;9002226.02101,"881,60505017202 ",.02)
 ;;60505017202
 ;;9002226.02101,"881,60505017205 ",.01)
 ;;60505017205
 ;;9002226.02101,"881,60505017205 ",.02)
 ;;60505017205
 ;;9002226.02101,"881,60505017300 ",.01)
 ;;60505017300
 ;;9002226.02101,"881,60505017300 ",.02)
 ;;60505017300
 ;;9002226.02101,"881,60505017301 ",.01)
 ;;60505017301
 ;;9002226.02101,"881,60505017301 ",.02)
 ;;60505017301
 ;;9002226.02101,"881,60505017302 ",.01)
 ;;60505017302
 ;;9002226.02101,"881,60505017302 ",.02)
 ;;60505017302
 ;;9002226.02101,"881,60505017305 ",.01)
 ;;60505017305
 ;;9002226.02101,"881,60505017305 ",.02)
 ;;60505017305
 ;;9002226.02101,"881,60505017400 ",.01)
 ;;60505017400
 ;;9002226.02101,"881,60505017400 ",.02)
 ;;60505017400
 ;;9002226.02101,"881,60505017401 ",.01)
 ;;60505017401
 ;;9002226.02101,"881,60505017401 ",.02)
 ;;60505017401
 ;;9002226.02101,"881,60505017402 ",.01)
 ;;60505017402
 ;;9002226.02101,"881,60505017402 ",.02)
 ;;60505017402
 ;;9002226.02101,"881,60505017405 ",.01)
 ;;60505017405
 ;;9002226.02101,"881,60505017405 ",.02)
 ;;60505017405
 ;;9002226.02101,"881,60505017500 ",.01)
 ;;60505017500
 ;;9002226.02101,"881,60505017500 ",.02)
 ;;60505017500
 ;;9002226.02101,"881,60505017501 ",.01)
 ;;60505017501
 ;;9002226.02101,"881,60505017501 ",.02)
 ;;60505017501
 ;;9002226.02101,"881,60505017502 ",.01)
 ;;60505017502
 ;;9002226.02101,"881,60505017502 ",.02)
 ;;60505017502
 ;;9002226.02101,"881,60505017505 ",.01)
 ;;60505017505
 ;;9002226.02101,"881,60505017505 ",.02)
 ;;60505017505
 ;;9002226.02101,"881,60505018400 ",.01)
 ;;60505018400
 ;;9002226.02101,"881,60505018400 ",.02)
 ;;60505018400
 ;;9002226.02101,"881,60505018401 ",.01)
 ;;60505018401
 ;;9002226.02101,"881,60505018401 ",.02)
 ;;60505018401
 ;;9002226.02101,"881,60505018500 ",.01)
 ;;60505018500
 ;;9002226.02101,"881,60505018500 ",.02)
 ;;60505018500
 ;;9002226.02101,"881,60505018501 ",.01)
 ;;60505018501
 ;;9002226.02101,"881,60505018501 ",.02)
 ;;60505018501
 ;;9002226.02101,"881,60505018507 ",.01)
 ;;60505018507
 ;;9002226.02101,"881,60505018507 ",.02)
 ;;60505018507
 ;;9002226.02101,"881,60505018509 ",.01)
 ;;60505018509
 ;;9002226.02101,"881,60505018509 ",.02)
 ;;60505018509
 ;;9002226.02101,"881,60505018600 ",.01)
 ;;60505018600
 ;;9002226.02101,"881,60505018600 ",.02)
 ;;60505018600
 ;;9002226.02101,"881,60505018601 ",.01)
 ;;60505018601
 ;;9002226.02101,"881,60505018601 ",.02)
 ;;60505018601
 ;;9002226.02101,"881,60505018607 ",.01)
 ;;60505018607
 ;;9002226.02101,"881,60505018607 ",.02)
 ;;60505018607
 ;;9002226.02101,"881,60505018609 ",.01)
 ;;60505018609
 ;;9002226.02101,"881,60505018609 ",.02)
 ;;60505018609
 ;;9002226.02101,"881,60505018700 ",.01)
 ;;60505018700
 ;;9002226.02101,"881,60505018700 ",.02)
 ;;60505018700
 ;;9002226.02101,"881,60505018701 ",.01)
 ;;60505018701
 ;;9002226.02101,"881,60505018701 ",.02)
 ;;60505018701
 ;;9002226.02101,"881,60505018707 ",.01)
 ;;60505018707
 ;;9002226.02101,"881,60505018707 ",.02)
 ;;60505018707
 ;;9002226.02101,"881,60505018709 ",.01)
 ;;60505018709
 ;;9002226.02101,"881,60505018709 ",.02)
 ;;60505018709
 ;;9002226.02101,"881,60505018800 ",.01)
 ;;60505018800
 ;;9002226.02101,"881,60505018800 ",.02)
 ;;60505018800
 ;;9002226.02101,"881,60505018801 ",.01)
 ;;60505018801
 ;;9002226.02101,"881,60505018801 ",.02)
 ;;60505018801