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

BGPM5ALR.m

Go to the documentation of this file.
BGPM5ALR ;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,49349029602 ",.01)
 ;;49349029602
 ;;9002226.02101,"900,49349029602 ",.02)
 ;;49349029602
 ;;9002226.02101,"900,49349029621 ",.01)
 ;;49349029621
 ;;9002226.02101,"900,49349029621 ",.02)
 ;;49349029621
 ;;9002226.02101,"900,49349030702 ",.01)
 ;;49349030702
 ;;9002226.02101,"900,49349030702 ",.02)
 ;;49349030702
 ;;9002226.02101,"900,49349032802 ",.01)
 ;;49349032802
 ;;9002226.02101,"900,49349032802 ",.02)
 ;;49349032802
 ;;9002226.02101,"900,49349068625 ",.01)
 ;;49349068625
 ;;9002226.02101,"900,49349068625 ",.02)
 ;;49349068625
 ;;9002226.02101,"900,49349068702 ",.01)
 ;;49349068702
 ;;9002226.02101,"900,49349068702 ",.02)
 ;;49349068702
 ;;9002226.02101,"900,49483001301 ",.01)
 ;;49483001301
 ;;9002226.02101,"900,49483001301 ",.02)
 ;;49483001301
 ;;9002226.02101,"900,49483001310 ",.01)
 ;;49483001310
 ;;9002226.02101,"900,49483001310 ",.02)
 ;;49483001310
 ;;9002226.02101,"900,49483001401 ",.01)
 ;;49483001401
 ;;9002226.02101,"900,49483001401 ",.02)
 ;;49483001401
 ;;9002226.02101,"900,49483001410 ",.01)
 ;;49483001410
 ;;9002226.02101,"900,49483001410 ",.02)
 ;;49483001410
 ;;9002226.02101,"900,49483001501 ",.01)
 ;;49483001501
 ;;9002226.02101,"900,49483001501 ",.02)
 ;;49483001501
 ;;9002226.02101,"900,49483001510 ",.01)
 ;;49483001510
 ;;9002226.02101,"900,49483001510 ",.02)
 ;;49483001510
 ;;9002226.02101,"900,49483001801 ",.01)
 ;;49483001801
 ;;9002226.02101,"900,49483001801 ",.02)
 ;;49483001801
 ;;9002226.02101,"900,49856003400 ",.01)
 ;;49856003400
 ;;9002226.02101,"900,49856003400 ",.02)
 ;;49856003400
 ;;9002226.02101,"900,49856003406 ",.01)
 ;;49856003406
 ;;9002226.02101,"900,49856003406 ",.02)
 ;;49856003406
 ;;9002226.02101,"900,49856017700 ",.01)
 ;;49856017700
 ;;9002226.02101,"900,49856017700 ",.02)
 ;;49856017700
 ;;9002226.02101,"900,49856017701 ",.01)
 ;;49856017701
 ;;9002226.02101,"900,49856017701 ",.02)
 ;;49856017701
 ;;9002226.02101,"900,49856017703 ",.01)
 ;;49856017703
 ;;9002226.02101,"900,49856017703 ",.02)
 ;;49856017703
 ;;9002226.02101,"900,49856017709 ",.01)
 ;;49856017709
 ;;9002226.02101,"900,49856017709 ",.02)
 ;;49856017709
 ;;9002226.02101,"900,49856017800 ",.01)
 ;;49856017800
 ;;9002226.02101,"900,49856017800 ",.02)
 ;;49856017800
 ;;9002226.02101,"900,49856017801 ",.01)
 ;;49856017801
 ;;9002226.02101,"900,49856017801 ",.02)
 ;;49856017801
 ;;9002226.02101,"900,49856017803 ",.01)
 ;;49856017803
 ;;9002226.02101,"900,49856017803 ",.02)
 ;;49856017803
 ;;9002226.02101,"900,49856017809 ",.01)
 ;;49856017809
 ;;9002226.02101,"900,49856017809 ",.02)
 ;;49856017809
 ;;9002226.02101,"900,49856017900 ",.01)
 ;;49856017900
 ;;9002226.02101,"900,49856017900 ",.02)
 ;;49856017900
 ;;9002226.02101,"900,49856017901 ",.01)
 ;;49856017901
 ;;9002226.02101,"900,49856017901 ",.02)
 ;;49856017901
 ;;9002226.02101,"900,49856017903 ",.01)
 ;;49856017903
 ;;9002226.02101,"900,49856017903 ",.02)
 ;;49856017903
 ;;9002226.02101,"900,49856017909 ",.01)
 ;;49856017909
 ;;9002226.02101,"900,49856017909 ",.02)
 ;;49856017909
 ;;9002226.02101,"900,49884046565 ",.01)
 ;;49884046565
 ;;9002226.02101,"900,49884046565 ",.02)
 ;;49884046565
 ;;9002226.02101,"900,49884046566 ",.01)
 ;;49884046566
 ;;9002226.02101,"900,49884046566 ",.02)
 ;;49884046566
 ;;9002226.02101,"900,49884046665 ",.01)
 ;;49884046665
 ;;9002226.02101,"900,49884046665 ",.02)
 ;;49884046665
 ;;9002226.02101,"900,49884046667 ",.01)
 ;;49884046667
 ;;9002226.02101,"900,49884046667 ",.02)
 ;;49884046667
 ;;9002226.02101,"900,49884075401 ",.01)
 ;;49884075401
 ;;9002226.02101,"900,49884075401 ",.02)
 ;;49884075401
 ;;9002226.02101,"900,49884075402 ",.01)
 ;;49884075402
 ;;9002226.02101,"900,49884075402 ",.02)
 ;;49884075402
 ;;9002226.02101,"900,49884075410 ",.01)
 ;;49884075410
 ;;9002226.02101,"900,49884075410 ",.02)
 ;;49884075410
 ;;9002226.02101,"900,49884075501 ",.01)
 ;;49884075501
 ;;9002226.02101,"900,49884075501 ",.02)
 ;;49884075501
 ;;9002226.02101,"900,49884075502 ",.01)
 ;;49884075502
 ;;9002226.02101,"900,49884075502 ",.02)
 ;;49884075502
 ;;9002226.02101,"900,49884075510 ",.01)
 ;;49884075510
 ;;9002226.02101,"900,49884075510 ",.02)
 ;;49884075510
 ;;9002226.02101,"900,49884075601 ",.01)
 ;;49884075601
 ;;9002226.02101,"900,49884075601 ",.02)
 ;;49884075601
 ;;9002226.02101,"900,49884075602 ",.01)
 ;;49884075602
 ;;9002226.02101,"900,49884075602 ",.02)
 ;;49884075602
 ;;9002226.02101,"900,49884075610 ",.01)
 ;;49884075610
 ;;9002226.02101,"900,49884075610 ",.02)
 ;;49884075610
 ;;9002226.02101,"900,49884079165 ",.01)
 ;;49884079165
 ;;9002226.02101,"900,49884079165 ",.02)
 ;;49884079165
 ;;9002226.02101,"900,49884079166 ",.01)
 ;;49884079166
 ;;9002226.02101,"900,49884079166 ",.02)
 ;;49884079166
 ;;9002226.02101,"900,49884079265 ",.01)
 ;;49884079265
 ;;9002226.02101,"900,49884079265 ",.02)
 ;;49884079265
 ;;9002226.02101,"900,49884079289 ",.01)
 ;;49884079289
 ;;9002226.02101,"900,49884079289 ",.02)
 ;;49884079289
 ;;9002226.02101,"900,49884093665 ",.01)
 ;;49884093665
 ;;9002226.02101,"900,49884093665 ",.02)
 ;;49884093665
 ;;9002226.02101,"900,49884093666 ",.01)
 ;;49884093666
 ;;9002226.02101,"900,49884093666 ",.02)
 ;;49884093666
 ;;9002226.02101,"900,49884093765 ",.01)
 ;;49884093765
 ;;9002226.02101,"900,49884093765 ",.02)
 ;;49884093765
 ;;9002226.02101,"900,49884093767 ",.01)
 ;;49884093767
 ;;9002226.02101,"900,49884093767 ",.02)
 ;;49884093767
 ;;9002226.02101,"900,49999011430 ",.01)
 ;;49999011430
 ;;9002226.02101,"900,49999011430 ",.02)
 ;;49999011430
 ;;9002226.02101,"900,49999011460 ",.01)
 ;;49999011460
 ;;9002226.02101,"900,49999011460 ",.02)
 ;;49999011460
 ;;9002226.02101,"900,49999029330 ",.01)
 ;;49999029330
 ;;9002226.02101,"900,49999029330 ",.02)
 ;;49999029330
 ;;9002226.02101,"900,49999030630 ",.01)
 ;;49999030630
 ;;9002226.02101,"900,49999030630 ",.02)
 ;;49999030630
 ;;9002226.02101,"900,49999039230 ",.01)
 ;;49999039230
 ;;9002226.02101,"900,49999039230 ",.02)
 ;;49999039230
 ;;9002226.02101,"900,49999039290 ",.01)
 ;;49999039290
 ;;9002226.02101,"900,49999039290 ",.02)
 ;;49999039290
 ;;9002226.02101,"900,49999046730 ",.01)
 ;;49999046730
 ;;9002226.02101,"900,49999046730 ",.02)
 ;;49999046730
 ;;9002226.02101,"900,49999046790 ",.01)
 ;;49999046790
 ;;9002226.02101,"900,49999046790 ",.02)
 ;;49999046790
 ;;9002226.02101,"900,49999046830 ",.01)
 ;;49999046830
 ;;9002226.02101,"900,49999046830 ",.02)
 ;;49999046830
 ;;9002226.02101,"900,49999046890 ",.01)
 ;;49999046890
 ;;9002226.02101,"900,49999046890 ",.02)
 ;;49999046890
 ;;9002226.02101,"900,49999047030 ",.01)
 ;;49999047030
 ;;9002226.02101,"900,49999047030 ",.02)
 ;;49999047030
 ;;9002226.02101,"900,49999047060 ",.01)
 ;;49999047060
 ;;9002226.02101,"900,49999047060 ",.02)
 ;;49999047060
 ;;9002226.02101,"900,49999047090 ",.01)
 ;;49999047090
 ;;9002226.02101,"900,49999047090 ",.02)
 ;;49999047090
 ;;9002226.02101,"900,49999047100 ",.01)
 ;;49999047100
 ;;9002226.02101,"900,49999047100 ",.02)
 ;;49999047100
 ;;9002226.02101,"900,49999047130 ",.01)
 ;;49999047130
 ;;9002226.02101,"900,49999047130 ",.02)
 ;;49999047130
 ;;9002226.02101,"900,49999047160 ",.01)
 ;;49999047160
 ;;9002226.02101,"900,49999047160 ",.02)
 ;;49999047160
 ;;9002226.02101,"900,49999048730 ",.01)
 ;;49999048730
 ;;9002226.02101,"900,49999048730 ",.02)
 ;;49999048730
 ;;9002226.02101,"900,49999048790 ",.01)
 ;;49999048790
 ;;9002226.02101,"900,49999048790 ",.02)
 ;;49999048790
 ;;9002226.02101,"900,49999048830 ",.01)
 ;;49999048830
 ;;9002226.02101,"900,49999048830 ",.02)
 ;;49999048830
 ;;9002226.02101,"900,49999074130 ",.01)
 ;;49999074130
 ;;9002226.02101,"900,49999074130 ",.02)
 ;;49999074130
 ;;9002226.02101,"900,49999078830 ",.01)
 ;;49999078830
 ;;9002226.02101,"900,49999078830 ",.02)
 ;;49999078830
 ;;9002226.02101,"900,49999087330 ",.01)
 ;;49999087330
 ;;9002226.02101,"900,49999087330 ",.02)
 ;;49999087330
 ;;9002226.02101,"900,49999087390 ",.01)
 ;;49999087390
 ;;9002226.02101,"900,49999087390 ",.02)
 ;;49999087390
 ;;9002226.02101,"900,49999088230 ",.01)
 ;;49999088230
 ;;9002226.02101,"900,49999088230 ",.02)
 ;;49999088230
 ;;9002226.02101,"900,49999088290 ",.01)
 ;;49999088290
 ;;9002226.02101,"900,49999088290 ",.02)
 ;;49999088290
 ;;9002226.02101,"900,49999088530 ",.01)
 ;;49999088530
 ;;9002226.02101,"900,49999088530 ",.02)
 ;;49999088530
 ;;9002226.02101,"900,49999088590 ",.01)
 ;;49999088590
 ;;9002226.02101,"900,49999088590 ",.02)
 ;;49999088590
 ;;9002226.02101,"900,49999095730 ",.01)
 ;;49999095730
 ;;9002226.02101,"900,49999095730 ",.02)
 ;;49999095730
 ;;9002226.02101,"900,49999095830 ",.01)
 ;;49999095830
 ;;9002226.02101,"900,49999095830 ",.02)
 ;;49999095830
 ;;9002226.02101,"900,49999095930 ",.01)
 ;;49999095930
 ;;9002226.02101,"900,49999095930 ",.02)
 ;;49999095930
 ;;9002226.02101,"900,49999098930 ",.01)
 ;;49999098930
 ;;9002226.02101,"900,49999098930 ",.02)
 ;;49999098930
 ;;9002226.02101,"900,49999099230 ",.01)
 ;;49999099230
 ;;9002226.02101,"900,49999099230 ",.02)
 ;;49999099230
 ;;9002226.02101,"900,49999099290 ",.01)
 ;;49999099290
 ;;9002226.02101,"900,49999099290 ",.02)
 ;;49999099290
 ;;9002226.02101,"900,50428213843 ",.01)
 ;;50428213843
 ;;9002226.02101,"900,50428213843 ",.02)
 ;;50428213843
 ;;9002226.02101,"900,51079078701 ",.01)
 ;;51079078701
 ;;9002226.02101,"900,51079078701 ",.02)
 ;;51079078701
 ;;9002226.02101,"900,51079078717 ",.01)
 ;;51079078717
 ;;9002226.02101,"900,51079078717 ",.02)
 ;;51079078717
 ;;9002226.02101,"900,51079078719 ",.01)
 ;;51079078719
 ;;9002226.02101,"900,51079078719 ",.02)
 ;;51079078719
 ;;9002226.02101,"900,51079078720 ",.01)
 ;;51079078720
 ;;9002226.02101,"900,51079078720 ",.02)
 ;;51079078720
 ;;9002226.02101,"900,51079097401 ",.01)
 ;;51079097401
 ;;9002226.02101,"900,51079097401 ",.02)
 ;;51079097401
 ;;9002226.02101,"900,51079097420 ",.01)
 ;;51079097420
 ;;9002226.02101,"900,51079097420 ",.02)
 ;;51079097420
 ;;9002226.02101,"900,51079097501 ",.01)
 ;;51079097501
 ;;9002226.02101,"900,51079097501 ",.02)
 ;;51079097501
 ;;9002226.02101,"900,51079097520 ",.01)
 ;;51079097520
 ;;9002226.02101,"900,51079097520 ",.02)
 ;;51079097520
 ;;9002226.02101,"900,51079097530 ",.01)
 ;;51079097530
 ;;9002226.02101,"900,51079097530 ",.02)
 ;;51079097530
 ;;9002226.02101,"900,51079097556 ",.01)
 ;;51079097556
 ;;9002226.02101,"900,51079097556 ",.02)
 ;;51079097556
 ;;9002226.02101,"900,51079097601 ",.01)
 ;;51079097601
 ;;9002226.02101,"900,51079097601 ",.02)
 ;;51079097601
 ;;9002226.02101,"900,51079097620 ",.01)
 ;;51079097620
 ;;9002226.02101,"900,51079097620 ",.02)
 ;;51079097620
 ;;9002226.02101,"900,51079097630 ",.01)
 ;;51079097630
 ;;9002226.02101,"900,51079097630 ",.02)
 ;;51079097630
 ;;9002226.02101,"900,51079097656 ",.01)
 ;;51079097656
 ;;9002226.02101,"900,51079097656 ",.02)
 ;;51079097656
 ;;9002226.02101,"900,51129003301 ",.01)
 ;;51129003301
 ;;9002226.02101,"900,51129003301 ",.02)
 ;;51129003301
 ;;9002226.02101,"900,51129142401 ",.01)
 ;;51129142401
 ;;9002226.02101,"900,51129142401 ",.02)
 ;;51129142401
 ;;9002226.02101,"900,51129154601 ",.01)
 ;;51129154601
 ;;9002226.02101,"900,51129154601 ",.02)
 ;;51129154601
 ;;9002226.02101,"900,51129203101 ",.01)
 ;;51129203101
 ;;9002226.02101,"900,51129203101 ",.02)
 ;;51129203101
 ;;9002226.02101,"900,51129258201 ",.01)
 ;;51129258201
 ;;9002226.02101,"900,51129258201 ",.02)
 ;;51129258201
 ;;9002226.02101,"900,51129259001 ",.01)
 ;;51129259001
 ;;9002226.02101,"900,51129259001 ",.02)
 ;;51129259001