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

BGPM3ABC.m

Go to the documentation of this file.
  1. BGPM3ABC ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
  1. ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"775,00339654312 ",.01)
  1. ;;00339654312
  1. ;;9002226.02101,"775,00339654312 ",.02)
  1. ;;00339654312
  1. ;;9002226.02101,"775,00339654412 ",.01)
  1. ;;00339654412
  1. ;;9002226.02101,"775,00339654412 ",.02)
  1. ;;00339654412
  1. ;;9002226.02101,"775,00339654512 ",.01)
  1. ;;00339654512
  1. ;;9002226.02101,"775,00339654512 ",.02)
  1. ;;00339654512
  1. ;;9002226.02101,"775,00349835001 ",.01)
  1. ;;00349835001
  1. ;;9002226.02101,"775,00349835001 ",.02)
  1. ;;00349835001
  1. ;;9002226.02101,"775,00349839001 ",.01)
  1. ;;00349839001
  1. ;;9002226.02101,"775,00349839001 ",.02)
  1. ;;00349839001
  1. ;;9002226.02101,"775,00349839101 ",.01)
  1. ;;00349839101
  1. ;;9002226.02101,"775,00349839101 ",.02)
  1. ;;00349839101
  1. ;;9002226.02101,"775,00349839201 ",.01)
  1. ;;00349839201
  1. ;;9002226.02101,"775,00349839201 ",.02)
  1. ;;00349839201
  1. ;;9002226.02101,"775,00349844501 ",.01)
  1. ;;00349844501
  1. ;;9002226.02101,"775,00349844501 ",.02)
  1. ;;00349844501
  1. ;;9002226.02101,"775,00349844510 ",.01)
  1. ;;00349844510
  1. ;;9002226.02101,"775,00349844510 ",.02)
  1. ;;00349844510
  1. ;;9002226.02101,"775,00349847401 ",.01)
  1. ;;00349847401
  1. ;;9002226.02101,"775,00349847401 ",.02)
  1. ;;00349847401
  1. ;;9002226.02101,"775,00349847410 ",.01)
  1. ;;00349847410
  1. ;;9002226.02101,"775,00349847410 ",.02)
  1. ;;00349847410
  1. ;;9002226.02101,"775,00349878401 ",.01)
  1. ;;00349878401
  1. ;;9002226.02101,"775,00349878401 ",.02)
  1. ;;00349878401
  1. ;;9002226.02101,"775,00353201701 ",.01)
  1. ;;00353201701
  1. ;;9002226.02101,"775,00353201701 ",.02)
  1. ;;00353201701
  1. ;;9002226.02101,"775,00363015712 ",.01)
  1. ;;00363015712
  1. ;;9002226.02101,"775,00363015712 ",.02)
  1. ;;00363015712
  1. ;;9002226.02101,"775,00363015714 ",.01)
  1. ;;00363015714
  1. ;;9002226.02101,"775,00363015714 ",.02)
  1. ;;00363015714
  1. ;;9002226.02101,"775,00363015716 ",.01)
  1. ;;00363015716
  1. ;;9002226.02101,"775,00363015716 ",.02)
  1. ;;00363015716
  1. ;;9002226.02101,"775,00363015717 ",.01)
  1. ;;00363015717
  1. ;;9002226.02101,"775,00363015717 ",.02)
  1. ;;00363015717
  1. ;;9002226.02101,"775,00363018330 ",.01)
  1. ;;00363018330
  1. ;;9002226.02101,"775,00363018330 ",.02)
  1. ;;00363018330
  1. ;;9002226.02101,"775,00363021807 ",.01)
  1. ;;00363021807
  1. ;;9002226.02101,"775,00363021807 ",.02)
  1. ;;00363021807
  1. ;;9002226.02101,"775,00363022714 ",.01)
  1. ;;00363022714
  1. ;;9002226.02101,"775,00363022714 ",.02)
  1. ;;00363022714
  1. ;;9002226.02101,"775,00363022717 ",.01)
  1. ;;00363022717
  1. ;;9002226.02101,"775,00363022717 ",.02)
  1. ;;00363022717
  1. ;;9002226.02101,"775,00363022757 ",.01)
  1. ;;00363022757
  1. ;;9002226.02101,"775,00363022757 ",.02)
  1. ;;00363022757
  1. ;;9002226.02101,"775,00363025514 ",.01)
  1. ;;00363025514
  1. ;;9002226.02101,"775,00363025514 ",.02)
  1. ;;00363025514
  1. ;;9002226.02101,"775,00363025517 ",.01)
  1. ;;00363025517
  1. ;;9002226.02101,"775,00363025517 ",.02)
  1. ;;00363025517
  1. ;;9002226.02101,"775,00363025532 ",.01)
  1. ;;00363025532
  1. ;;9002226.02101,"775,00363025532 ",.02)
  1. ;;00363025532
  1. ;;9002226.02101,"775,00363039707 ",.01)
  1. ;;00363039707
  1. ;;9002226.02101,"775,00363039707 ",.02)
  1. ;;00363039707
  1. ;;9002226.02101,"775,00363056314 ",.01)
  1. ;;00363056314
  1. ;;9002226.02101,"775,00363056314 ",.02)
  1. ;;00363056314
  1. ;;9002226.02101,"775,00364002902 ",.01)
  1. ;;00364002902
  1. ;;9002226.02101,"775,00364002902 ",.02)
  1. ;;00364002902
  1. ;;9002226.02101,"775,00364064001 ",.01)
  1. ;;00364064001
  1. ;;9002226.02101,"775,00364064001 ",.02)
  1. ;;00364064001
  1. ;;9002226.02101,"775,00364064002 ",.01)
  1. ;;00364064002
  1. ;;9002226.02101,"775,00364064002 ",.02)
  1. ;;00364064002
  1. ;;9002226.02101,"775,00364064401 ",.01)
  1. ;;00364064401
  1. ;;9002226.02101,"775,00364064401 ",.02)
  1. ;;00364064401
  1. ;;9002226.02101,"775,00364064402 ",.01)
  1. ;;00364064402
  1. ;;9002226.02101,"775,00364064402 ",.02)
  1. ;;00364064402
  1. ;;9002226.02101,"775,00364073501 ",.01)
  1. ;;00364073501
  1. ;;9002226.02101,"775,00364073501 ",.02)
  1. ;;00364073501
  1. ;;9002226.02101,"775,00364073502 ",.01)
  1. ;;00364073502
  1. ;;9002226.02101,"775,00364073502 ",.02)
  1. ;;00364073502
  1. ;;9002226.02101,"775,00364083501 ",.01)
  1. ;;00364083501
  1. ;;9002226.02101,"775,00364083501 ",.02)
  1. ;;00364083501
  1. ;;9002226.02101,"775,00364224906 ",.01)
  1. ;;00364224906
  1. ;;9002226.02101,"775,00364224906 ",.02)
  1. ;;00364224906
  1. ;;9002226.02101,"775,00364236446 ",.01)
  1. ;;00364236446
  1. ;;9002226.02101,"775,00364236446 ",.02)
  1. ;;00364236446
  1. ;;9002226.02101,"775,00364236448 ",.01)
  1. ;;00364236448
  1. ;;9002226.02101,"775,00364236448 ",.02)
  1. ;;00364236448
  1. ;;9002226.02101,"775,00364236453 ",.01)
  1. ;;00364236453
  1. ;;9002226.02101,"775,00364236453 ",.02)
  1. ;;00364236453
  1. ;;9002226.02101,"775,00364238801 ",.01)
  1. ;;00364238801
  1. ;;9002226.02101,"775,00364238801 ",.02)
  1. ;;00364238801
  1. ;;9002226.02101,"775,00364653854 ",.01)
  1. ;;00364653854
  1. ;;9002226.02101,"775,00364653854 ",.02)
  1. ;;00364653854
  1. ;;9002226.02101,"775,00364653934 ",.01)
  1. ;;00364653934
  1. ;;9002226.02101,"775,00364653934 ",.02)
  1. ;;00364653934
  1. ;;9002226.02101,"775,00364653949 ",.01)
  1. ;;00364653949
  1. ;;9002226.02101,"775,00364653949 ",.02)
  1. ;;00364653949
  1. ;;9002226.02101,"775,00364653953 ",.01)
  1. ;;00364653953
  1. ;;9002226.02101,"775,00364653953 ",.02)
  1. ;;00364653953
  1. ;;9002226.02101,"775,00364653954 ",.01)
  1. ;;00364653954
  1. ;;9002226.02101,"775,00364653954 ",.02)
  1. ;;00364653954
  1. ;;9002226.02101,"775,00364654046 ",.01)
  1. ;;00364654046
  1. ;;9002226.02101,"775,00364654046 ",.02)
  1. ;;00364654046
  1. ;;9002226.02101,"775,00364654048 ",.01)
  1. ;;00364654048
  1. ;;9002226.02101,"775,00364654048 ",.02)
  1. ;;00364654048
  1. ;;9002226.02101,"775,00364654053 ",.01)
  1. ;;00364654053
  1. ;;9002226.02101,"775,00364654053 ",.02)
  1. ;;00364654053
  1. ;;9002226.02101,"775,00364666934 ",.01)
  1. ;;00364666934
  1. ;;9002226.02101,"775,00364666934 ",.02)
  1. ;;00364666934
  1. ;;9002226.02101,"775,00364666954 ",.01)
  1. ;;00364666954
  1. ;;9002226.02101,"775,00364666954 ",.02)
  1. ;;00364666954
  1. ;;9002226.02101,"775,00364666956 ",.01)
  1. ;;00364666956
  1. ;;9002226.02101,"775,00364666956 ",.02)
  1. ;;00364666956
  1. ;;9002226.02101,"775,00364711912 ",.01)
  1. ;;00364711912
  1. ;;9002226.02101,"775,00364711912 ",.02)
  1. ;;00364711912
  1. ;;9002226.02101,"775,00364712012 ",.01)
  1. ;;00364712012
  1. ;;9002226.02101,"775,00364712012 ",.02)
  1. ;;00364712012
  1. ;;9002226.02101,"775,00364712112 ",.01)
  1. ;;00364712112
  1. ;;9002226.02101,"775,00364712112 ",.02)
  1. ;;00364712112
  1. ;;9002226.02101,"775,00378045301 ",.01)
  1. ;;00378045301
  1. ;;9002226.02101,"775,00378045301 ",.02)
  1. ;;00378045301
  1. ;;9002226.02101,"775,00378045305 ",.01)
  1. ;;00378045305
  1. ;;9002226.02101,"775,00378045305 ",.02)
  1. ;;00378045305
  1. ;;9002226.02101,"775,00378880101 ",.01)
  1. ;;00378880101
  1. ;;9002226.02101,"775,00378880101 ",.02)
  1. ;;00378880101
  1. ;;9002226.02101,"775,00378880110 ",.01)
  1. ;;00378880110
  1. ;;9002226.02101,"775,00378880110 ",.02)
  1. ;;00378880110
  1. ;;9002226.02101,"775,00378880201 ",.01)
  1. ;;00378880201
  1. ;;9002226.02101,"775,00378880201 ",.02)
  1. ;;00378880201
  1. ;;9002226.02101,"775,00378880210 ",.01)
  1. ;;00378880210
  1. ;;9002226.02101,"775,00378880210 ",.02)
  1. ;;00378880210
  1. ;;9002226.02101,"775,00378880301 ",.01)
  1. ;;00378880301
  1. ;;9002226.02101,"775,00378880301 ",.02)
  1. ;;00378880301
  1. ;;9002226.02101,"775,00378880310 ",.01)
  1. ;;00378880310
  1. ;;9002226.02101,"775,00378880310 ",.02)
  1. ;;00378880310
  1. ;;9002226.02101,"775,00378880401 ",.01)
  1. ;;00378880401
  1. ;;9002226.02101,"775,00378880401 ",.02)
  1. ;;00378880401
  1. ;;9002226.02101,"775,00378880410 ",.01)
  1. ;;00378880410
  1. ;;9002226.02101,"775,00378880410 ",.02)
  1. ;;00378880410
  1. ;;9002226.02101,"775,00378880501 ",.01)
  1. ;;00378880501
  1. ;;9002226.02101,"775,00378880501 ",.02)
  1. ;;00378880501
  1. ;;9002226.02101,"775,00378880510 ",.01)
  1. ;;00378880510
  1. ;;9002226.02101,"775,00378880510 ",.02)
  1. ;;00378880510
  1. ;;9002226.02101,"775,00378880601 ",.01)
  1. ;;00378880601
  1. ;;9002226.02101,"775,00378880601 ",.02)
  1. ;;00378880601
  1. ;;9002226.02101,"775,00378880610 ",.01)
  1. ;;00378880610
  1. ;;9002226.02101,"775,00378880610 ",.02)
  1. ;;00378880610
  1. ;;9002226.02101,"775,00378881001 ",.01)
  1. ;;00378881001
  1. ;;9002226.02101,"775,00378881001 ",.02)
  1. ;;00378881001
  1. ;;9002226.02101,"775,00378881010 ",.01)
  1. ;;00378881010
  1. ;;9002226.02101,"775,00378881010 ",.02)
  1. ;;00378881010
  1. ;;9002226.02101,"775,00378882501 ",.01)
  1. ;;00378882501
  1. ;;9002226.02101,"775,00378882501 ",.02)
  1. ;;00378882501
  1. ;;9002226.02101,"775,00378882510 ",.01)
  1. ;;00378882510
  1. ;;9002226.02101,"775,00378882510 ",.02)
  1. ;;00378882510
  1. ;;9002226.02101,"775,00378887501 ",.01)
  1. ;;00378887501
  1. ;;9002226.02101,"775,00378887501 ",.02)
  1. ;;00378887501
  1. ;;9002226.02101,"775,00378887510 ",.01)
  1. ;;00378887510
  1. ;;9002226.02101,"775,00378887510 ",.02)
  1. ;;00378887510
  1. ;;9002226.02101,"775,00381004901 ",.01)
  1. ;;00381004901
  1. ;;9002226.02101,"775,00381004901 ",.02)
  1. ;;00381004901
  1. ;;9002226.02101,"775,00381004904 ",.01)
  1. ;;00381004904
  1. ;;9002226.02101,"775,00381004904 ",.02)
  1. ;;00381004904
  1. ;;9002226.02101,"775,00381004905 ",.01)
  1. ;;00381004905
  1. ;;9002226.02101,"775,00381004905 ",.02)
  1. ;;00381004905
  1. ;;9002226.02101,"775,00381004910 ",.01)
  1. ;;00381004910
  1. ;;9002226.02101,"775,00381004910 ",.02)
  1. ;;00381004910
  1. ;;9002226.02101,"775,00381005001 ",.01)
  1. ;;00381005001
  1. ;;9002226.02101,"775,00381005001 ",.02)
  1. ;;00381005001
  1. ;;9002226.02101,"775,00381005002 ",.01)
  1. ;;00381005002
  1. ;;9002226.02101,"775,00381005002 ",.02)
  1. ;;00381005002
  1. ;;9002226.02101,"775,00381005004 ",.01)
  1. ;;00381005004
  1. ;;9002226.02101,"775,00381005004 ",.02)
  1. ;;00381005004
  1. ;;9002226.02101,"775,00381005005 ",.01)
  1. ;;00381005005
  1. ;;9002226.02101,"775,00381005005 ",.02)
  1. ;;00381005005
  1. ;;9002226.02101,"775,00381005010 ",.01)
  1. ;;00381005010
  1. ;;9002226.02101,"775,00381005010 ",.02)
  1. ;;00381005010
  1. ;;9002226.02101,"775,00381018401 ",.01)
  1. ;;00381018401
  1. ;;9002226.02101,"775,00381018401 ",.02)
  1. ;;00381018401
  1. ;;9002226.02101,"775,00381040301 ",.01)
  1. ;;00381040301
  1. ;;9002226.02101,"775,00381040301 ",.02)
  1. ;;00381040301
  1. ;;9002226.02101,"775,00381041802 ",.01)
  1. ;;00381041802
  1. ;;9002226.02101,"775,00381041802 ",.02)
  1. ;;00381041802
  1. ;;9002226.02101,"775,00381041810 ",.01)
  1. ;;00381041810
  1. ;;9002226.02101,"775,00381041810 ",.02)
  1. ;;00381041810
  1. ;;9002226.02101,"775,00381046301 ",.01)
  1. ;;00381046301
  1. ;;9002226.02101,"775,00381046301 ",.02)
  1. ;;00381046301
  1. ;;9002226.02101,"775,00381046305 ",.01)
  1. ;;00381046305
  1. ;;9002226.02101,"775,00381046305 ",.02)
  1. ;;00381046305
  1. ;;9002226.02101,"775,00381046310 ",.01)
  1. ;;00381046310
  1. ;;9002226.02101,"775,00381046310 ",.02)
  1. ;;00381046310
  1. ;;9002226.02101,"775,00381051901 ",.01)
  1. ;;00381051901
  1. ;;9002226.02101,"775,00381051901 ",.02)
  1. ;;00381051901
  1. ;;9002226.02101,"775,00381051902 ",.01)
  1. ;;00381051902
  1. ;;9002226.02101,"775,00381051902 ",.02)
  1. ;;00381051902
  1. ;;9002226.02101,"775,00381051904 ",.01)
  1. ;;00381051904
  1. ;;9002226.02101,"775,00381051904 ",.02)
  1. ;;00381051904
  1. ;;9002226.02101,"775,00381051910 ",.01)
  1. ;;00381051910
  1. ;;9002226.02101,"775,00381051910 ",.02)
  1. ;;00381051910
  1. ;;9002226.02101,"775,00392051468 ",.01)
  1. ;;00392051468
  1. ;;9002226.02101,"775,00392051468 ",.02)
  1. ;;00392051468
  1. ;;9002226.02101,"775,00395013410 ",.01)
  1. ;;00395013410
  1. ;;9002226.02101,"775,00395013410 ",.02)
  1. ;;00395013410
  1. ;;9002226.02101,"775,00395013425 ",.01)
  1. ;;00395013425
  1. ;;9002226.02101,"775,00395013425 ",.02)
  1. ;;00395013425
  1. ;;9002226.02101,"775,00395013450 ",.01)
  1. ;;00395013450
  1. ;;9002226.02101,"775,00395013450 ",.02)
  1. ;;00395013450
  1. ;;9002226.02101,"775,00402004910 ",.01)
  1. ;;00402004910
  1. ;;9002226.02101,"775,00402004910 ",.02)
  1. ;;00402004910
  1. ;;9002226.02101,"775,00402005005 ",.01)
  1. ;;00402005005
  1. ;;9002226.02101,"775,00402005005 ",.02)
  1. ;;00402005005
  1. ;;9002226.02101,"775,00402041810 ",.01)
  1. ;;00402041810
  1. ;;9002226.02101,"775,00402041810 ",.02)
  1. ;;00402041810
  1. ;;9002226.02101,"775,00402046310 ",.01)
  1. ;;00402046310
  1. ;;9002226.02101,"775,00402046310 ",.02)
  1. ;;00402046310