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

BGPM5AKZ.m

Go to the documentation of this file.
BGPM5AKZ ;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,"885,50428126148 ",.02)
 ;;50428126148
 ;;9002226.02101,"885,50428140897 ",.01)
 ;;50428140897
 ;;9002226.02101,"885,50428140897 ",.02)
 ;;50428140897
 ;;9002226.02101,"885,50428152314 ",.01)
 ;;50428152314
 ;;9002226.02101,"885,50428152314 ",.02)
 ;;50428152314
 ;;9002226.02101,"885,50428218859 ",.01)
 ;;50428218859
 ;;9002226.02101,"885,50428218859 ",.02)
 ;;50428218859
 ;;9002226.02101,"885,50428230268 ",.01)
 ;;50428230268
 ;;9002226.02101,"885,50428230268 ",.02)
 ;;50428230268
 ;;9002226.02101,"885,50428271255 ",.01)
 ;;50428271255
 ;;9002226.02101,"885,50428271255 ",.02)
 ;;50428271255
 ;;9002226.02101,"885,50428458871 ",.01)
 ;;50428458871
 ;;9002226.02101,"885,50428458871 ",.02)
 ;;50428458871
 ;;9002226.02101,"885,50580012603 ",.01)
 ;;50580012603
 ;;9002226.02101,"885,50580012603 ",.02)
 ;;50580012603
 ;;9002226.02101,"885,50580012610 ",.01)
 ;;50580012610
 ;;9002226.02101,"885,50580012610 ",.02)
 ;;50580012610
 ;;9002226.02101,"885,50580012618 ",.01)
 ;;50580012618
 ;;9002226.02101,"885,50580012618 ",.02)
 ;;50580012618
 ;;9002226.02101,"885,50580012619 ",.01)
 ;;50580012619
 ;;9002226.02101,"885,50580012619 ",.02)
 ;;50580012619
 ;;9002226.02101,"885,50580012620 ",.01)
 ;;50580012620
 ;;9002226.02101,"885,50580012620 ",.02)
 ;;50580012620
 ;;9002226.02101,"885,50580012636 ",.01)
 ;;50580012636
 ;;9002226.02101,"885,50580012636 ",.02)
 ;;50580012636
 ;;9002226.02101,"885,50580012639 ",.01)
 ;;50580012639
 ;;9002226.02101,"885,50580012639 ",.02)
 ;;50580012639
 ;;9002226.02101,"885,50580017308 ",.01)
 ;;50580017308
 ;;9002226.02101,"885,50580017308 ",.02)
 ;;50580017308
 ;;9002226.02101,"885,50580017325 ",.01)
 ;;50580017325
 ;;9002226.02101,"885,50580017325 ",.02)
 ;;50580017325
 ;;9002226.02101,"885,50580017336 ",.01)
 ;;50580017336
 ;;9002226.02101,"885,50580017336 ",.02)
 ;;50580017336
 ;;9002226.02101,"885,51138024630 ",.01)
 ;;51138024630
 ;;9002226.02101,"885,51138024630 ",.02)
 ;;51138024630
 ;;9002226.02101,"885,51469030101 ",.01)
 ;;51469030101
 ;;9002226.02101,"885,51469030101 ",.02)
 ;;51469030101
 ;;9002226.02101,"885,51645071236 ",.01)
 ;;51645071236
 ;;9002226.02101,"885,51645071236 ",.02)
 ;;51645071236
 ;;9002226.02101,"885,51645071308 ",.01)
 ;;51645071308
 ;;9002226.02101,"885,51645071308 ",.02)
 ;;51645071308
 ;;9002226.02101,"885,51645071310 ",.01)
 ;;51645071310
 ;;9002226.02101,"885,51645071310 ",.02)
 ;;51645071310
 ;;9002226.02101,"885,51645071401 ",.01)
 ;;51645071401
 ;;9002226.02101,"885,51645071401 ",.02)
 ;;51645071401
 ;;9002226.02101,"885,51645071410 ",.01)
 ;;51645071410
 ;;9002226.02101,"885,51645071410 ",.02)
 ;;51645071410
 ;;9002226.02101,"885,51645071601 ",.01)
 ;;51645071601
 ;;9002226.02101,"885,51645071601 ",.02)
 ;;51645071601
 ;;9002226.02101,"885,51645071610 ",.01)
 ;;51645071610
 ;;9002226.02101,"885,51645071610 ",.02)
 ;;51645071610
 ;;9002226.02101,"885,51824016436 ",.01)
 ;;51824016436
 ;;9002226.02101,"885,51824016436 ",.02)
 ;;51824016436
 ;;9002226.02101,"885,51824054701 ",.01)
 ;;51824054701
 ;;9002226.02101,"885,51824054701 ",.02)
 ;;51824054701
 ;;9002226.02101,"885,52124001101 ",.01)
 ;;52124001101
 ;;9002226.02101,"885,52124001101 ",.02)
 ;;52124001101
 ;;9002226.02101,"885,52124001201 ",.01)
 ;;52124001201
 ;;9002226.02101,"885,52124001201 ",.02)
 ;;52124001201
 ;;9002226.02101,"885,52204010399 ",.01)
 ;;52204010399
 ;;9002226.02101,"885,52204010399 ",.02)
 ;;52204010399
 ;;9002226.02101,"885,52204011199 ",.01)
 ;;52204011199
 ;;9002226.02101,"885,52204011199 ",.02)
 ;;52204011199
 ;;9002226.02101,"885,52297013378 ",.01)
 ;;52297013378
 ;;9002226.02101,"885,52297013378 ",.02)
 ;;52297013378
 ;;9002226.02101,"885,52297013778 ",.01)
 ;;52297013778
 ;;9002226.02101,"885,52297013778 ",.02)
 ;;52297013778
 ;;9002226.02101,"885,52297013978 ",.01)
 ;;52297013978
 ;;9002226.02101,"885,52297013978 ",.02)
 ;;52297013978
 ;;9002226.02101,"885,52297014668 ",.01)
 ;;52297014668
 ;;9002226.02101,"885,52297014668 ",.02)
 ;;52297014668
 ;;9002226.02101,"885,52297026072 ",.01)
 ;;52297026072
 ;;9002226.02101,"885,52297026072 ",.02)
 ;;52297026072
 ;;9002226.02101,"885,52297026672 ",.01)
 ;;52297026672
 ;;9002226.02101,"885,52297026672 ",.02)
 ;;52297026672
 ;;9002226.02101,"885,52297029287 ",.01)
 ;;52297029287
 ;;9002226.02101,"885,52297029287 ",.02)
 ;;52297029287
 ;;9002226.02101,"885,52297041187 ",.01)
 ;;52297041187
 ;;9002226.02101,"885,52297041187 ",.02)
 ;;52297041187
 ;;9002226.02101,"885,52297041578 ",.01)
 ;;52297041578
 ;;9002226.02101,"885,52297041578 ",.02)
 ;;52297041578
 ;;9002226.02101,"885,52297041660 ",.01)
 ;;52297041660
 ;;9002226.02101,"885,52297041660 ",.02)
 ;;52297041660
 ;;9002226.02101,"885,52297041678 ",.01)
 ;;52297041678
 ;;9002226.02101,"885,52297041678 ",.02)
 ;;52297041678
 ;;9002226.02101,"885,52297042974 ",.01)
 ;;52297042974
 ;;9002226.02101,"885,52297042974 ",.02)
 ;;52297042974
 ;;9002226.02101,"885,52297042978 ",.01)
 ;;52297042978
 ;;9002226.02101,"885,52297042978 ",.02)
 ;;52297042978
 ;;9002226.02101,"885,52297044878 ",.01)
 ;;52297044878
 ;;9002226.02101,"885,52297044878 ",.02)
 ;;52297044878
 ;;9002226.02101,"885,52297046768 ",.01)
 ;;52297046768
 ;;9002226.02101,"885,52297046768 ",.02)
 ;;52297046768
 ;;9002226.02101,"885,52297050776 ",.01)
 ;;52297050776
 ;;9002226.02101,"885,52297050776 ",.02)
 ;;52297050776
 ;;9002226.02101,"885,52297050876 ",.01)
 ;;52297050876
 ;;9002226.02101,"885,52297050876 ",.02)
 ;;52297050876
 ;;9002226.02101,"885,52297083568 ",.01)
 ;;52297083568
 ;;9002226.02101,"885,52297083568 ",.02)
 ;;52297083568
 ;;9002226.02101,"885,52297091885 ",.01)
 ;;52297091885
 ;;9002226.02101,"885,52297091885 ",.02)
 ;;52297091885
 ;;9002226.02101,"885,52544095501 ",.01)
 ;;52544095501
 ;;9002226.02101,"885,52544095501 ",.02)
 ;;52544095501
 ;;9002226.02101,"885,52735070201 ",.01)
 ;;52735070201
 ;;9002226.02101,"885,52735070201 ",.02)
 ;;52735070201
 ;;9002226.02101,"885,52735070209 ",.01)
 ;;52735070209
 ;;9002226.02101,"885,52735070209 ",.02)
 ;;52735070209
 ;;9002226.02101,"885,52735070301 ",.01)
 ;;52735070301
 ;;9002226.02101,"885,52735070301 ",.02)
 ;;52735070301
 ;;9002226.02101,"885,52735070370 ",.01)
 ;;52735070370
 ;;9002226.02101,"885,52735070370 ",.02)
 ;;52735070370
 ;;9002226.02101,"885,52735076123 ",.01)
 ;;52735076123
 ;;9002226.02101,"885,52735076123 ",.02)
 ;;52735076123
 ;;9002226.02101,"885,52959001800 ",.01)
 ;;52959001800
 ;;9002226.02101,"885,52959001800 ",.02)
 ;;52959001800
 ;;9002226.02101,"885,52959001814 ",.01)
 ;;52959001814
 ;;9002226.02101,"885,52959001814 ",.02)
 ;;52959001814
 ;;9002226.02101,"885,52959001820 ",.01)
 ;;52959001820
 ;;9002226.02101,"885,52959001820 ",.02)
 ;;52959001820
 ;;9002226.02101,"885,52959001824 ",.01)
 ;;52959001824
 ;;9002226.02101,"885,52959001824 ",.02)
 ;;52959001824
 ;;9002226.02101,"885,52959001830 ",.01)
 ;;52959001830
 ;;9002226.02101,"885,52959001830 ",.02)
 ;;52959001830
 ;;9002226.02101,"885,52959001840 ",.01)
 ;;52959001840
 ;;9002226.02101,"885,52959001840 ",.02)
 ;;52959001840
 ;;9002226.02101,"885,52959001860 ",.01)
 ;;52959001860
 ;;9002226.02101,"885,52959001860 ",.02)
 ;;52959001860
 ;;9002226.02101,"885,52959001880 ",.01)
 ;;52959001880
 ;;9002226.02101,"885,52959001880 ",.02)
 ;;52959001880
 ;;9002226.02101,"885,52959039900 ",.01)
 ;;52959039900
 ;;9002226.02101,"885,52959039900 ",.02)
 ;;52959039900
 ;;9002226.02101,"885,52959039902 ",.01)
 ;;52959039902
 ;;9002226.02101,"885,52959039902 ",.02)
 ;;52959039902
 ;;9002226.02101,"885,52959039920 ",.01)
 ;;52959039920
 ;;9002226.02101,"885,52959039920 ",.02)
 ;;52959039920
 ;;9002226.02101,"885,52959039930 ",.01)
 ;;52959039930
 ;;9002226.02101,"885,52959039930 ",.02)
 ;;52959039930
 ;;9002226.02101,"885,52959039950 ",.01)
 ;;52959039950
 ;;9002226.02101,"885,52959039950 ",.02)
 ;;52959039950
 ;;9002226.02101,"885,52959039960 ",.01)
 ;;52959039960
 ;;9002226.02101,"885,52959039960 ",.02)
 ;;52959039960
 ;;9002226.02101,"885,52959039990 ",.01)
 ;;52959039990
 ;;9002226.02101,"885,52959039990 ",.02)
 ;;52959039990
 ;;9002226.02101,"885,52959072400 ",.01)
 ;;52959072400
 ;;9002226.02101,"885,52959072400 ",.02)
 ;;52959072400
 ;;9002226.02101,"885,52959072410 ",.01)
 ;;52959072410
 ;;9002226.02101,"885,52959072410 ",.02)
 ;;52959072410
 ;;9002226.02101,"885,52959072414 ",.01)
 ;;52959072414
 ;;9002226.02101,"885,52959072414 ",.02)
 ;;52959072414
 ;;9002226.02101,"885,52959072415 ",.01)
 ;;52959072415
 ;;9002226.02101,"885,52959072415 ",.02)
 ;;52959072415
 ;;9002226.02101,"885,52959072420 ",.01)
 ;;52959072420
 ;;9002226.02101,"885,52959072420 ",.02)
 ;;52959072420
 ;;9002226.02101,"885,52959072424 ",.01)
 ;;52959072424
 ;;9002226.02101,"885,52959072424 ",.02)
 ;;52959072424
 ;;9002226.02101,"885,52959072430 ",.01)
 ;;52959072430
 ;;9002226.02101,"885,52959072430 ",.02)
 ;;52959072430
 ;;9002226.02101,"885,52959076730 ",.01)
 ;;52959076730
 ;;9002226.02101,"885,52959076730 ",.02)
 ;;52959076730
 ;;9002226.02101,"885,52959076760 ",.01)
 ;;52959076760
 ;;9002226.02101,"885,52959076760 ",.02)
 ;;52959076760
 ;;9002226.02101,"885,52959077830 ",.01)
 ;;52959077830
 ;;9002226.02101,"885,52959077830 ",.02)
 ;;52959077830
 ;;9002226.02101,"885,53076010213 ",.01)
 ;;53076010213
 ;;9002226.02101,"885,53076010213 ",.02)
 ;;53076010213
 ;;9002226.02101,"885,53076010914 ",.01)
 ;;53076010914
 ;;9002226.02101,"885,53076010914 ",.02)
 ;;53076010914
 ;;9002226.02101,"885,53360117100 ",.01)
 ;;53360117100
 ;;9002226.02101,"885,53360117100 ",.02)
 ;;53360117100
 ;;9002226.02101,"885,53489062201 ",.01)
 ;;53489062201
 ;;9002226.02101,"885,53489062201 ",.02)
 ;;53489062201
 ;;9002226.02101,"885,53489062203 ",.01)
 ;;53489062203
 ;;9002226.02101,"885,53489062203 ",.02)
 ;;53489062203
 ;;9002226.02101,"885,53489062205 ",.01)
 ;;53489062205
 ;;9002226.02101,"885,53489062205 ",.02)
 ;;53489062205
 ;;9002226.02101,"885,53489062206 ",.01)
 ;;53489062206
 ;;9002226.02101,"885,53489062206 ",.02)
 ;;53489062206
 ;;9002226.02101,"885,53489062207 ",.01)
 ;;53489062207
 ;;9002226.02101,"885,53489062207 ",.02)
 ;;53489062207
 ;;9002226.02101,"885,53489062210 ",.01)
 ;;53489062210
 ;;9002226.02101,"885,53489062210 ",.02)
 ;;53489062210
 ;;9002226.02101,"885,53808076301 ",.01)
 ;;53808076301
 ;;9002226.02101,"885,53808076301 ",.02)
 ;;53808076301
 ;;9002226.02101,"885,53978316405 ",.01)
 ;;53978316405
 ;;9002226.02101,"885,53978316405 ",.02)
 ;;53978316405
 ;;9002226.02101,"885,53978316409 ",.01)
 ;;53978316409
 ;;9002226.02101,"885,53978316409 ",.02)
 ;;53978316409
 ;;9002226.02101,"885,53978339507 ",.01)
 ;;53978339507
 ;;9002226.02101,"885,53978339507 ",.02)
 ;;53978339507
 ;;9002226.02101,"885,53978339509 ",.01)
 ;;53978339509
 ;;9002226.02101,"885,53978339509 ",.02)
 ;;53978339509
 ;;9002226.02101,"885,54257076917 ",.01)
 ;;54257076917
 ;;9002226.02101,"885,54257076917 ",.02)
 ;;54257076917
 ;;9002226.02101,"885,54257076918 ",.01)
 ;;54257076918
 ;;9002226.02101,"885,54257076918 ",.02)
 ;;54257076918
 ;;9002226.02101,"885,54569000504 ",.01)
 ;;54569000504
 ;;9002226.02101,"885,54569000504 ",.02)
 ;;54569000504
 ;;9002226.02101,"885,54569000508 ",.01)
 ;;54569000508
 ;;9002226.02101,"885,54569000508 ",.02)
 ;;54569000508
 ;;9002226.02101,"885,54569001401 ",.01)
 ;;54569001401
 ;;9002226.02101,"885,54569001401 ",.02)
 ;;54569001401
 ;;9002226.02101,"885,54569001403 ",.01)
 ;;54569001403
 ;;9002226.02101,"885,54569001403 ",.02)
 ;;54569001403
 ;;9002226.02101,"885,54569033904 ",.01)
 ;;54569033904