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

BGPM5ALW.m

Go to the documentation of this file.
BGPM5ALW ;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,"900,54868552300 ",.01)
 ;;54868552300
 ;;9002226.02101,"900,54868552300 ",.02)
 ;;54868552300
 ;;9002226.02101,"900,54868552301 ",.01)
 ;;54868552301
 ;;9002226.02101,"900,54868552301 ",.02)
 ;;54868552301
 ;;9002226.02101,"900,54868552600 ",.01)
 ;;54868552600
 ;;9002226.02101,"900,54868552600 ",.02)
 ;;54868552600
 ;;9002226.02101,"900,54868556700 ",.01)
 ;;54868556700
 ;;9002226.02101,"900,54868556700 ",.02)
 ;;54868556700
 ;;9002226.02101,"900,54868557500 ",.01)
 ;;54868557500
 ;;9002226.02101,"900,54868557500 ",.02)
 ;;54868557500
 ;;9002226.02101,"900,54868557501 ",.01)
 ;;54868557501
 ;;9002226.02101,"900,54868557501 ",.02)
 ;;54868557501
 ;;9002226.02101,"900,54868557502 ",.01)
 ;;54868557502
 ;;9002226.02101,"900,54868557502 ",.02)
 ;;54868557502
 ;;9002226.02101,"900,54868567200 ",.01)
 ;;54868567200
 ;;9002226.02101,"900,54868567200 ",.02)
 ;;54868567200
 ;;9002226.02101,"900,54868569900 ",.01)
 ;;54868569900
 ;;9002226.02101,"900,54868569900 ",.02)
 ;;54868569900
 ;;9002226.02101,"900,54868578400 ",.01)
 ;;54868578400
 ;;9002226.02101,"900,54868578400 ",.02)
 ;;54868578400
 ;;9002226.02101,"900,54868599400 ",.01)
 ;;54868599400
 ;;9002226.02101,"900,54868599400 ",.02)
 ;;54868599400
 ;;9002226.02101,"900,54868599401 ",.01)
 ;;54868599401
 ;;9002226.02101,"900,54868599401 ",.02)
 ;;54868599401
 ;;9002226.02101,"900,54868622600 ",.01)
 ;;54868622600
 ;;9002226.02101,"900,54868622600 ",.02)
 ;;54868622600
 ;;9002226.02101,"900,54921075102 ",.01)
 ;;54921075102
 ;;9002226.02101,"900,54921075102 ",.02)
 ;;54921075102
 ;;9002226.02101,"900,54921075115 ",.01)
 ;;54921075115
 ;;9002226.02101,"900,54921075115 ",.02)
 ;;54921075115
 ;;9002226.02101,"900,54921075197 ",.01)
 ;;54921075197
 ;;9002226.02101,"900,54921075197 ",.02)
 ;;54921075197
 ;;9002226.02101,"900,54921075202 ",.01)
 ;;54921075202
 ;;9002226.02101,"900,54921075202 ",.02)
 ;;54921075202
 ;;9002226.02101,"900,54921075215 ",.01)
 ;;54921075215
 ;;9002226.02101,"900,54921075215 ",.02)
 ;;54921075215
 ;;9002226.02101,"900,54921075297 ",.01)
 ;;54921075297
 ;;9002226.02101,"900,54921075297 ",.02)
 ;;54921075297
 ;;9002226.02101,"900,54921075402 ",.01)
 ;;54921075402
 ;;9002226.02101,"900,54921075402 ",.02)
 ;;54921075402
 ;;9002226.02101,"900,54921075415 ",.01)
 ;;54921075415
 ;;9002226.02101,"900,54921075415 ",.02)
 ;;54921075415
 ;;9002226.02101,"900,54921075502 ",.01)
 ;;54921075502
 ;;9002226.02101,"900,54921075502 ",.02)
 ;;54921075502
 ;;9002226.02101,"900,54921075515 ",.01)
 ;;54921075515
 ;;9002226.02101,"900,54921075515 ",.02)
 ;;54921075515
 ;;9002226.02101,"900,54921075569 ",.01)
 ;;54921075569
 ;;9002226.02101,"900,54921075569 ",.02)
 ;;54921075569
 ;;9002226.02101,"900,54921075597 ",.01)
 ;;54921075597
 ;;9002226.02101,"900,54921075597 ",.02)
 ;;54921075597
 ;;9002226.02101,"900,55045159308 ",.01)
 ;;55045159308
 ;;9002226.02101,"900,55045159308 ",.02)
 ;;55045159308
 ;;9002226.02101,"900,55045231608 ",.01)
 ;;55045231608
 ;;9002226.02101,"900,55045231608 ",.02)
 ;;55045231608
 ;;9002226.02101,"900,55045232302 ",.01)
 ;;55045232302
 ;;9002226.02101,"900,55045232302 ",.02)
 ;;55045232302
 ;;9002226.02101,"900,55045232306 ",.01)
 ;;55045232306
 ;;9002226.02101,"900,55045232306 ",.02)
 ;;55045232306
 ;;9002226.02101,"900,55045301401 ",.01)
 ;;55045301401
 ;;9002226.02101,"900,55045301401 ",.02)
 ;;55045301401
 ;;9002226.02101,"900,55045301402 ",.01)
 ;;55045301402
 ;;9002226.02101,"900,55045301402 ",.02)
 ;;55045301402
 ;;9002226.02101,"900,55045301406 ",.01)
 ;;55045301406
 ;;9002226.02101,"900,55045301406 ",.02)
 ;;55045301406
 ;;9002226.02101,"900,55045301408 ",.01)
 ;;55045301408
 ;;9002226.02101,"900,55045301408 ",.02)
 ;;55045301408
 ;;9002226.02101,"900,55045301409 ",.01)
 ;;55045301409
 ;;9002226.02101,"900,55045301409 ",.02)
 ;;55045301409
 ;;9002226.02101,"900,55045301501 ",.01)
 ;;55045301501
 ;;9002226.02101,"900,55045301501 ",.02)
 ;;55045301501
 ;;9002226.02101,"900,55045301508 ",.01)
 ;;55045301508
 ;;9002226.02101,"900,55045301508 ",.02)
 ;;55045301508
 ;;9002226.02101,"900,55045301509 ",.01)
 ;;55045301509
 ;;9002226.02101,"900,55045301509 ",.02)
 ;;55045301509
 ;;9002226.02101,"900,55045310008 ",.01)
 ;;55045310008
 ;;9002226.02101,"900,55045310008 ",.02)
 ;;55045310008
 ;;9002226.02101,"900,55154067000 ",.01)
 ;;55154067000
 ;;9002226.02101,"900,55154067000 ",.02)
 ;;55154067000
 ;;9002226.02101,"900,55154242100 ",.01)
 ;;55154242100
 ;;9002226.02101,"900,55154242100 ",.02)
 ;;55154242100
 ;;9002226.02101,"900,55154242200 ",.01)
 ;;55154242200
 ;;9002226.02101,"900,55154242200 ",.02)
 ;;55154242200
 ;;9002226.02101,"900,55154242207 ",.01)
 ;;55154242207
 ;;9002226.02101,"900,55154242207 ",.02)
 ;;55154242207
 ;;9002226.02101,"900,55154242500 ",.01)
 ;;55154242500
 ;;9002226.02101,"900,55154242500 ",.02)
 ;;55154242500
 ;;9002226.02101,"900,55154242504 ",.01)
 ;;55154242504
 ;;9002226.02101,"900,55154242504 ",.02)
 ;;55154242504
 ;;9002226.02101,"900,55154242506 ",.01)
 ;;55154242506
 ;;9002226.02101,"900,55154242506 ",.02)
 ;;55154242506
 ;;9002226.02101,"900,55154242800 ",.01)
 ;;55154242800
 ;;9002226.02101,"900,55154242800 ",.02)
 ;;55154242800
 ;;9002226.02101,"900,55154500400 ",.01)
 ;;55154500400
 ;;9002226.02101,"900,55154500400 ",.02)
 ;;55154500400
 ;;9002226.02101,"900,55154501200 ",.01)
 ;;55154501200
 ;;9002226.02101,"900,55154501200 ",.02)
 ;;55154501200
 ;;9002226.02101,"900,55154501207 ",.01)
 ;;55154501207
 ;;9002226.02101,"900,55154501207 ",.02)
 ;;55154501207
 ;;9002226.02101,"900,55154502200 ",.01)
 ;;55154502200
 ;;9002226.02101,"900,55154502200 ",.02)
 ;;55154502200
 ;;9002226.02101,"900,55154502207 ",.01)
 ;;55154502207
 ;;9002226.02101,"900,55154502207 ",.02)
 ;;55154502207
 ;;9002226.02101,"900,55154502700 ",.01)
 ;;55154502700
 ;;9002226.02101,"900,55154502700 ",.02)
 ;;55154502700
 ;;9002226.02101,"900,55154502707 ",.01)
 ;;55154502707
 ;;9002226.02101,"900,55154502707 ",.02)
 ;;55154502707
 ;;9002226.02101,"900,55154503400 ",.01)
 ;;55154503400
 ;;9002226.02101,"900,55154503400 ",.02)
 ;;55154503400
 ;;9002226.02101,"900,55154523100 ",.01)
 ;;55154523100
 ;;9002226.02101,"900,55154523100 ",.02)
 ;;55154523100
 ;;9002226.02101,"900,55154523107 ",.01)
 ;;55154523107
 ;;9002226.02101,"900,55154523107 ",.02)
 ;;55154523107
 ;;9002226.02101,"900,55154566600 ",.01)
 ;;55154566600
 ;;9002226.02101,"900,55154566600 ",.02)
 ;;55154566600
 ;;9002226.02101,"900,55154692100 ",.01)
 ;;55154692100
 ;;9002226.02101,"900,55154692100 ",.02)
 ;;55154692100
 ;;9002226.02101,"900,55154692208 ",.01)
 ;;55154692208
 ;;9002226.02101,"900,55154692208 ",.02)
 ;;55154692208
 ;;9002226.02101,"900,55154692308 ",.01)
 ;;55154692308
 ;;9002226.02101,"900,55154692308 ",.02)
 ;;55154692308
 ;;9002226.02101,"900,55154692402 ",.01)
 ;;55154692402
 ;;9002226.02101,"900,55154692402 ",.02)
 ;;55154692402
 ;;9002226.02101,"900,55154692407 ",.01)
 ;;55154692407
 ;;9002226.02101,"900,55154692407 ",.02)
 ;;55154692407
 ;;9002226.02101,"900,55154692408 ",.01)
 ;;55154692408
 ;;9002226.02101,"900,55154692408 ",.02)
 ;;55154692408
 ;;9002226.02101,"900,55154692409 ",.01)
 ;;55154692409
 ;;9002226.02101,"900,55154692409 ",.02)
 ;;55154692409
 ;;9002226.02101,"900,55154692508 ",.01)
 ;;55154692508
 ;;9002226.02101,"900,55154692508 ",.02)
 ;;55154692508
 ;;9002226.02101,"900,55154696604 ",.01)
 ;;55154696604
 ;;9002226.02101,"900,55154696604 ",.02)
 ;;55154696604
 ;;9002226.02101,"900,55154696606 ",.01)
 ;;55154696606
 ;;9002226.02101,"900,55154696606 ",.02)
 ;;55154696606
 ;;9002226.02101,"900,55154696702 ",.01)
 ;;55154696702
 ;;9002226.02101,"900,55154696702 ",.02)
 ;;55154696702
 ;;9002226.02101,"900,55154696704 ",.01)
 ;;55154696704
 ;;9002226.02101,"900,55154696704 ",.02)
 ;;55154696704
 ;;9002226.02101,"900,55154696706 ",.01)
 ;;55154696706
 ;;9002226.02101,"900,55154696706 ",.02)
 ;;55154696706
 ;;9002226.02101,"900,55154696708 ",.01)
 ;;55154696708
 ;;9002226.02101,"900,55154696708 ",.02)
 ;;55154696708
 ;;9002226.02101,"900,55154827209 ",.01)
 ;;55154827209
 ;;9002226.02101,"900,55154827209 ",.02)
 ;;55154827209
 ;;9002226.02101,"900,55154828400 ",.01)
 ;;55154828400
 ;;9002226.02101,"900,55154828400 ",.02)
 ;;55154828400
 ;;9002226.02101,"900,55289028030 ",.01)
 ;;55289028030
 ;;9002226.02101,"900,55289028030 ",.02)
 ;;55289028030
 ;;9002226.02101,"900,55289040030 ",.01)
 ;;55289040030
 ;;9002226.02101,"900,55289040030 ",.02)
 ;;55289040030
 ;;9002226.02101,"900,55289041160 ",.01)
 ;;55289041160
 ;;9002226.02101,"900,55289041160 ",.02)
 ;;55289041160
 ;;9002226.02101,"900,55289041193 ",.01)
 ;;55289041193
 ;;9002226.02101,"900,55289041193 ",.02)
 ;;55289041193
 ;;9002226.02101,"900,55289047630 ",.01)
 ;;55289047630
 ;;9002226.02101,"900,55289047630 ",.02)
 ;;55289047630
 ;;9002226.02101,"900,55289052030 ",.01)
 ;;55289052030
 ;;9002226.02101,"900,55289052030 ",.02)
 ;;55289052030
 ;;9002226.02101,"900,55289054830 ",.01)
 ;;55289054830
 ;;9002226.02101,"900,55289054830 ",.02)
 ;;55289054830
 ;;9002226.02101,"900,55289062001 ",.01)
 ;;55289062001
 ;;9002226.02101,"900,55289062001 ",.02)
 ;;55289062001
 ;;9002226.02101,"900,55289069214 ",.01)
 ;;55289069214
 ;;9002226.02101,"900,55289069214 ",.02)
 ;;55289069214
 ;;9002226.02101,"900,55289069230 ",.01)
 ;;55289069230
 ;;9002226.02101,"900,55289069230 ",.02)
 ;;55289069230
 ;;9002226.02101,"900,55289074060 ",.01)
 ;;55289074060
 ;;9002226.02101,"900,55289074060 ",.02)
 ;;55289074060
 ;;9002226.02101,"900,55289080030 ",.01)
 ;;55289080030
 ;;9002226.02101,"900,55289080030 ",.02)
 ;;55289080030
 ;;9002226.02101,"900,55289086130 ",.01)
 ;;55289086130
 ;;9002226.02101,"900,55289086130 ",.02)
 ;;55289086130
 ;;9002226.02101,"900,55289087030 ",.01)
 ;;55289087030
 ;;9002226.02101,"900,55289087030 ",.02)
 ;;55289087030
 ;;9002226.02101,"900,55289087430 ",.01)
 ;;55289087430
 ;;9002226.02101,"900,55289087430 ",.02)
 ;;55289087430
 ;;9002226.02101,"900,55289088130 ",.01)
 ;;55289088130
 ;;9002226.02101,"900,55289088130 ",.02)
 ;;55289088130
 ;;9002226.02101,"900,55289093230 ",.01)
 ;;55289093230
 ;;9002226.02101,"900,55289093230 ",.02)
 ;;55289093230
 ;;9002226.02101,"900,55289093530 ",.01)
 ;;55289093530
 ;;9002226.02101,"900,55289093530 ",.02)
 ;;55289093530
 ;;9002226.02101,"900,55289096615 ",.01)
 ;;55289096615
 ;;9002226.02101,"900,55289096615 ",.02)
 ;;55289096615
 ;;9002226.02101,"900,55289096630 ",.01)
 ;;55289096630
 ;;9002226.02101,"900,55289096630 ",.02)
 ;;55289096630
 ;;9002226.02101,"900,55289097330 ",.01)
 ;;55289097330
 ;;9002226.02101,"900,55289097330 ",.02)
 ;;55289097330
 ;;9002226.02101,"900,55289098021 ",.01)
 ;;55289098021
 ;;9002226.02101,"900,55289098021 ",.02)
 ;;55289098021
 ;;9002226.02101,"900,55567012700 ",.01)
 ;;55567012700
 ;;9002226.02101,"900,55567012700 ",.02)
 ;;55567012700
 ;;9002226.02101,"900,55567012706 ",.01)
 ;;55567012706
 ;;9002226.02101,"900,55567012706 ",.02)
 ;;55567012706
 ;;9002226.02101,"900,55567012718 ",.01)
 ;;55567012718
 ;;9002226.02101,"900,55567012718 ",.02)
 ;;55567012718
 ;;9002226.02101,"900,55567012735 ",.01)
 ;;55567012735
 ;;9002226.02101,"900,55567012735 ",.02)
 ;;55567012735
 ;;9002226.02101,"900,55567012769 ",.01)
 ;;55567012769
 ;;9002226.02101,"900,55567012769 ",.02)
 ;;55567012769
 ;;9002226.02101,"900,55567012800 ",.01)
 ;;55567012800
 ;;9002226.02101,"900,55567012800 ",.02)
 ;;55567012800
 ;;9002226.02101,"900,55567012806 ",.01)
 ;;55567012806
 ;;9002226.02101,"900,55567012806 ",.02)
 ;;55567012806