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

BGP82P21.m

Go to the documentation of this file.
BGP82P21 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"1224,55111-0274-90 ",.02)
 ;;55111-0274-90
 ;;9002226.02101,"1224,55111-0735-10 ",.01)
 ;;55111-0735-10
 ;;9002226.02101,"1224,55111-0735-10 ",.02)
 ;;55111-0735-10
 ;;9002226.02101,"1224,55111-0735-30 ",.01)
 ;;55111-0735-30
 ;;9002226.02101,"1224,55111-0735-30 ",.02)
 ;;55111-0735-30
 ;;9002226.02101,"1224,55111-0735-90 ",.01)
 ;;55111-0735-90
 ;;9002226.02101,"1224,55111-0735-90 ",.02)
 ;;55111-0735-90
 ;;9002226.02101,"1224,55111-0740-10 ",.01)
 ;;55111-0740-10
 ;;9002226.02101,"1224,55111-0740-10 ",.02)
 ;;55111-0740-10
 ;;9002226.02101,"1224,55111-0740-30 ",.01)
 ;;55111-0740-30
 ;;9002226.02101,"1224,55111-0740-30 ",.02)
 ;;55111-0740-30
 ;;9002226.02101,"1224,55111-0740-90 ",.01)
 ;;55111-0740-90
 ;;9002226.02101,"1224,55111-0740-90 ",.02)
 ;;55111-0740-90
 ;;9002226.02101,"1224,55111-0749-10 ",.01)
 ;;55111-0749-10
 ;;9002226.02101,"1224,55111-0749-10 ",.02)
 ;;55111-0749-10
 ;;9002226.02101,"1224,55111-0749-30 ",.01)
 ;;55111-0749-30
 ;;9002226.02101,"1224,55111-0749-30 ",.02)
 ;;55111-0749-30
 ;;9002226.02101,"1224,55111-0749-90 ",.01)
 ;;55111-0749-90
 ;;9002226.02101,"1224,55111-0749-90 ",.02)
 ;;55111-0749-90
 ;;9002226.02101,"1224,55111-0750-10 ",.01)
 ;;55111-0750-10
 ;;9002226.02101,"1224,55111-0750-10 ",.02)
 ;;55111-0750-10
 ;;9002226.02101,"1224,55111-0750-30 ",.01)
 ;;55111-0750-30
 ;;9002226.02101,"1224,55111-0750-30 ",.02)
 ;;55111-0750-30
 ;;9002226.02101,"1224,55111-0750-90 ",.01)
 ;;55111-0750-90
 ;;9002226.02101,"1224,55111-0750-90 ",.02)
 ;;55111-0750-90
 ;;9002226.02101,"1224,55154-4384-06 ",.01)
 ;;55154-4384-06
 ;;9002226.02101,"1224,55154-4384-06 ",.02)
 ;;55154-4384-06
 ;;9002226.02101,"1224,55154-6634-00 ",.01)
 ;;55154-6634-00
 ;;9002226.02101,"1224,55154-6634-00 ",.02)
 ;;55154-6634-00
 ;;9002226.02101,"1224,55154-6635-00 ",.01)
 ;;55154-6635-00
 ;;9002226.02101,"1224,55154-6635-00 ",.02)
 ;;55154-6635-00
 ;;9002226.02101,"1224,55154-6646-00 ",.01)
 ;;55154-6646-00
 ;;9002226.02101,"1224,55154-6646-00 ",.02)
 ;;55154-6646-00
 ;;9002226.02101,"1224,55289-0280-30 ",.01)
 ;;55289-0280-30
 ;;9002226.02101,"1224,55289-0280-30 ",.02)
 ;;55289-0280-30
 ;;9002226.02101,"1224,55289-0293-14 ",.01)
 ;;55289-0293-14
 ;;9002226.02101,"1224,55289-0293-14 ",.02)
 ;;55289-0293-14
 ;;9002226.02101,"1224,55289-0293-30 ",.01)
 ;;55289-0293-30
 ;;9002226.02101,"1224,55289-0293-30 ",.02)
 ;;55289-0293-30
 ;;9002226.02101,"1224,55289-0293-90 ",.01)
 ;;55289-0293-90
 ;;9002226.02101,"1224,55289-0293-90 ",.02)
 ;;55289-0293-90
 ;;9002226.02101,"1224,55289-0338-14 ",.01)
 ;;55289-0338-14
 ;;9002226.02101,"1224,55289-0338-14 ",.02)
 ;;55289-0338-14
 ;;9002226.02101,"1224,55289-0338-30 ",.01)
 ;;55289-0338-30
 ;;9002226.02101,"1224,55289-0338-30 ",.02)
 ;;55289-0338-30
 ;;9002226.02101,"1224,55289-0338-90 ",.01)
 ;;55289-0338-90
 ;;9002226.02101,"1224,55289-0338-90 ",.02)
 ;;55289-0338-90
 ;;9002226.02101,"1224,55289-0395-30 ",.01)
 ;;55289-0395-30
 ;;9002226.02101,"1224,55289-0395-30 ",.02)
 ;;55289-0395-30
 ;;9002226.02101,"1224,55289-0395-90 ",.01)
 ;;55289-0395-90
 ;;9002226.02101,"1224,55289-0395-90 ",.02)
 ;;55289-0395-90
 ;;9002226.02101,"1224,55289-0520-30 ",.01)
 ;;55289-0520-30
 ;;9002226.02101,"1224,55289-0520-30 ",.02)
 ;;55289-0520-30
 ;;9002226.02101,"1224,55289-0548-30 ",.01)
 ;;55289-0548-30
 ;;9002226.02101,"1224,55289-0548-30 ",.02)
 ;;55289-0548-30
 ;;9002226.02101,"1224,55289-0692-14 ",.01)
 ;;55289-0692-14
 ;;9002226.02101,"1224,55289-0692-14 ",.02)
 ;;55289-0692-14
 ;;9002226.02101,"1224,55289-0692-30 ",.01)
 ;;55289-0692-30
 ;;9002226.02101,"1224,55289-0692-30 ",.02)
 ;;55289-0692-30
 ;;9002226.02101,"1224,55289-0692-90 ",.01)
 ;;55289-0692-90
 ;;9002226.02101,"1224,55289-0692-90 ",.02)
 ;;55289-0692-90
 ;;9002226.02101,"1224,55289-0800-30 ",.01)
 ;;55289-0800-30
 ;;9002226.02101,"1224,55289-0800-30 ",.02)
 ;;55289-0800-30
 ;;9002226.02101,"1224,55289-0861-30 ",.01)
 ;;55289-0861-30
 ;;9002226.02101,"1224,55289-0861-30 ",.02)
 ;;55289-0861-30
 ;;9002226.02101,"1224,55289-0870-30 ",.01)
 ;;55289-0870-30
 ;;9002226.02101,"1224,55289-0870-30 ",.02)
 ;;55289-0870-30
 ;;9002226.02101,"1224,55289-0871-30 ",.01)
 ;;55289-0871-30
 ;;9002226.02101,"1224,55289-0871-30 ",.02)
 ;;55289-0871-30
 ;;9002226.02101,"1224,55289-0873-30 ",.01)
 ;;55289-0873-30
 ;;9002226.02101,"1224,55289-0873-30 ",.02)
 ;;55289-0873-30
 ;;9002226.02101,"1224,55289-0874-30 ",.01)
 ;;55289-0874-30
 ;;9002226.02101,"1224,55289-0874-30 ",.02)
 ;;55289-0874-30
 ;;9002226.02101,"1224,55289-0881-30 ",.01)
 ;;55289-0881-30
 ;;9002226.02101,"1224,55289-0881-30 ",.02)
 ;;55289-0881-30
 ;;9002226.02101,"1224,55289-0881-90 ",.01)
 ;;55289-0881-90
 ;;9002226.02101,"1224,55289-0881-90 ",.02)
 ;;55289-0881-90
 ;;9002226.02101,"1224,55289-0932-30 ",.01)
 ;;55289-0932-30
 ;;9002226.02101,"1224,55289-0932-30 ",.02)
 ;;55289-0932-30
 ;;9002226.02101,"1224,55289-0935-30 ",.01)
 ;;55289-0935-30
 ;;9002226.02101,"1224,55289-0935-30 ",.02)
 ;;55289-0935-30
 ;;9002226.02101,"1224,55289-0980-21 ",.01)
 ;;55289-0980-21
 ;;9002226.02101,"1224,55289-0980-21 ",.02)
 ;;55289-0980-21
 ;;9002226.02101,"1224,55700-0021-30 ",.01)
 ;;55700-0021-30
 ;;9002226.02101,"1224,55700-0021-30 ",.02)
 ;;55700-0021-30
 ;;9002226.02101,"1224,55700-0021-90 ",.01)
 ;;55700-0021-90
 ;;9002226.02101,"1224,55700-0021-90 ",.02)
 ;;55700-0021-90
 ;;9002226.02101,"1224,55700-0034-30 ",.01)
 ;;55700-0034-30
 ;;9002226.02101,"1224,55700-0034-30 ",.02)
 ;;55700-0034-30
 ;;9002226.02101,"1224,55700-0178-30 ",.01)
 ;;55700-0178-30
 ;;9002226.02101,"1224,55700-0178-30 ",.02)
 ;;55700-0178-30
 ;;9002226.02101,"1224,55700-0223-30 ",.01)
 ;;55700-0223-30
 ;;9002226.02101,"1224,55700-0223-30 ",.02)
 ;;55700-0223-30
 ;;9002226.02101,"1224,55700-0244-30 ",.01)
 ;;55700-0244-30
 ;;9002226.02101,"1224,55700-0244-30 ",.02)
 ;;55700-0244-30
 ;;9002226.02101,"1224,55700-0244-60 ",.01)
 ;;55700-0244-60
 ;;9002226.02101,"1224,55700-0244-60 ",.02)
 ;;55700-0244-60
 ;;9002226.02101,"1224,55700-0244-90 ",.01)
 ;;55700-0244-90
 ;;9002226.02101,"1224,55700-0244-90 ",.02)
 ;;55700-0244-90
 ;;9002226.02101,"1224,55700-0265-30 ",.01)
 ;;55700-0265-30
 ;;9002226.02101,"1224,55700-0265-30 ",.02)
 ;;55700-0265-30
 ;;9002226.02101,"1224,55700-0265-90 ",.01)
 ;;55700-0265-90
 ;;9002226.02101,"1224,55700-0265-90 ",.02)
 ;;55700-0265-90
 ;;9002226.02101,"1224,55700-0426-18 ",.01)
 ;;55700-0426-18
 ;;9002226.02101,"1224,55700-0426-18 ",.02)
 ;;55700-0426-18
 ;;9002226.02101,"1224,55700-0426-30 ",.01)
 ;;55700-0426-30
 ;;9002226.02101,"1224,55700-0426-30 ",.02)
 ;;55700-0426-30
 ;;9002226.02101,"1224,55700-0426-90 ",.01)
 ;;55700-0426-90
 ;;9002226.02101,"1224,55700-0426-90 ",.02)
 ;;55700-0426-90
 ;;9002226.02101,"1224,55700-0477-90 ",.01)
 ;;55700-0477-90
 ;;9002226.02101,"1224,55700-0477-90 ",.02)
 ;;55700-0477-90
 ;;9002226.02101,"1224,55700-0515-90 ",.01)
 ;;55700-0515-90
 ;;9002226.02101,"1224,55700-0515-90 ",.02)
 ;;55700-0515-90
 ;;9002226.02101,"1224,55700-0516-18 ",.01)
 ;;55700-0516-18
 ;;9002226.02101,"1224,55700-0516-18 ",.02)
 ;;55700-0516-18
 ;;9002226.02101,"1224,57237-0164-05 ",.01)
 ;;57237-0164-05
 ;;9002226.02101,"1224,57237-0164-05 ",.02)
 ;;57237-0164-05
 ;;9002226.02101,"1224,57237-0164-90 ",.01)
 ;;57237-0164-90
 ;;9002226.02101,"1224,57237-0164-90 ",.02)
 ;;57237-0164-90
 ;;9002226.02101,"1224,57237-0165-05 ",.01)
 ;;57237-0165-05
 ;;9002226.02101,"1224,57237-0165-05 ",.02)
 ;;57237-0165-05
 ;;9002226.02101,"1224,57237-0165-90 ",.01)
 ;;57237-0165-90
 ;;9002226.02101,"1224,57237-0165-90 ",.02)
 ;;57237-0165-90
 ;;9002226.02101,"1224,57237-0166-05 ",.01)
 ;;57237-0166-05
 ;;9002226.02101,"1224,57237-0166-05 ",.02)
 ;;57237-0166-05
 ;;9002226.02101,"1224,57237-0166-90 ",.01)
 ;;57237-0166-90
 ;;9002226.02101,"1224,57237-0166-90 ",.02)
 ;;57237-0166-90
 ;;9002226.02101,"1224,57237-0167-05 ",.01)
 ;;57237-0167-05
 ;;9002226.02101,"1224,57237-0167-05 ",.02)
 ;;57237-0167-05
 ;;9002226.02101,"1224,57237-0167-90 ",.01)
 ;;57237-0167-90
 ;;9002226.02101,"1224,57237-0167-90 ",.02)
 ;;57237-0167-90
 ;;9002226.02101,"1224,57237-0168-05 ",.01)
 ;;57237-0168-05
 ;;9002226.02101,"1224,57237-0168-05 ",.02)
 ;;57237-0168-05
 ;;9002226.02101,"1224,57237-0168-90 ",.01)
 ;;57237-0168-90
 ;;9002226.02101,"1224,57237-0168-90 ",.02)
 ;;57237-0168-90
 ;;9002226.02101,"1224,57237-0169-90 ",.01)
 ;;57237-0169-90
 ;;9002226.02101,"1224,57237-0169-90 ",.02)
 ;;57237-0169-90
 ;;9002226.02101,"1224,57237-0169-99 ",.01)
 ;;57237-0169-99
 ;;9002226.02101,"1224,57237-0169-99 ",.02)
 ;;57237-0169-99
 ;;9002226.02101,"1224,57237-0170-90 ",.01)
 ;;57237-0170-90
 ;;9002226.02101,"1224,57237-0170-90 ",.02)
 ;;57237-0170-90
 ;;9002226.02101,"1224,57237-0170-99 ",.01)
 ;;57237-0170-99
 ;;9002226.02101,"1224,57237-0170-99 ",.02)
 ;;57237-0170-99
 ;;9002226.02101,"1224,57237-0171-05 ",.01)
 ;;57237-0171-05
 ;;9002226.02101,"1224,57237-0171-05 ",.02)
 ;;57237-0171-05
 ;;9002226.02101,"1224,57237-0171-30 ",.01)
 ;;57237-0171-30
 ;;9002226.02101,"1224,57237-0171-30 ",.02)
 ;;57237-0171-30
 ;;9002226.02101,"1224,57237-0171-90 ",.01)
 ;;57237-0171-90
 ;;9002226.02101,"1224,57237-0171-90 ",.02)
 ;;57237-0171-90
 ;;9002226.02101,"1224,58118-0007-08 ",.01)
 ;;58118-0007-08
 ;;9002226.02101,"1224,58118-0007-08 ",.02)
 ;;58118-0007-08
 ;;9002226.02101,"1224,58118-0168-03 ",.01)
 ;;58118-0168-03
 ;;9002226.02101,"1224,58118-0168-03 ",.02)
 ;;58118-0168-03
 ;;9002226.02101,"1224,58118-0168-06 ",.01)
 ;;58118-0168-06
 ;;9002226.02101,"1224,58118-0168-06 ",.02)
 ;;58118-0168-06
 ;;9002226.02101,"1224,58118-0169-03 ",.01)
 ;;58118-0169-03
 ;;9002226.02101,"1224,58118-0169-03 ",.02)
 ;;58118-0169-03
 ;;9002226.02101,"1224,58118-0469-03 ",.01)
 ;;58118-0469-03
 ;;9002226.02101,"1224,58118-0469-03 ",.02)
 ;;58118-0469-03
 ;;9002226.02101,"1224,58118-0478-03 ",.01)
 ;;58118-0478-03
 ;;9002226.02101,"1224,58118-0478-03 ",.02)
 ;;58118-0478-03
 ;;9002226.02101,"1224,58118-1170-03 ",.01)
 ;;58118-1170-03
 ;;9002226.02101,"1224,58118-1170-03 ",.02)
 ;;58118-1170-03
 ;;9002226.02101,"1224,58118-1170-09 ",.01)
 ;;58118-1170-09
 ;;9002226.02101,"1224,58118-1170-09 ",.02)
 ;;58118-1170-09
 ;;9002226.02101,"1224,58118-1323-03 ",.01)
 ;;58118-1323-03
 ;;9002226.02101,"1224,58118-1323-03 ",.02)
 ;;58118-1323-03
 ;;9002226.02101,"1224,58118-1323-09 ",.01)
 ;;58118-1323-09
 ;;9002226.02101,"1224,58118-1323-09 ",.02)
 ;;58118-1323-09
 ;;9002226.02101,"1224,58517-0001-30 ",.01)
 ;;58517-0001-30
 ;;9002226.02101,"1224,58517-0001-30 ",.02)
 ;;58517-0001-30
 ;;9002226.02101,"1224,58864-0608-30 ",.01)
 ;;58864-0608-30
 ;;9002226.02101,"1224,58864-0608-30 ",.02)
 ;;58864-0608-30
 ;;9002226.02101,"1224,58864-0623-15 ",.01)
 ;;58864-0623-15
 ;;9002226.02101,"1224,58864-0623-15 ",.02)
 ;;58864-0623-15
 ;;9002226.02101,"1224,58864-0623-30 ",.01)
 ;;58864-0623-30
 ;;9002226.02101,"1224,58864-0623-30 ",.02)
 ;;58864-0623-30
 ;;9002226.02101,"1224,58864-0682-30 ",.01)
 ;;58864-0682-30
 ;;9002226.02101,"1224,58864-0682-30 ",.02)
 ;;58864-0682-30
 ;;9002226.02101,"1224,58864-0685-30 ",.01)
 ;;58864-0685-30
 ;;9002226.02101,"1224,58864-0685-30 ",.02)
 ;;58864-0685-30
 ;;9002226.02101,"1224,58864-0739-30 ",.01)
 ;;58864-0739-30
 ;;9002226.02101,"1224,58864-0739-30 ",.02)
 ;;58864-0739-30
 ;;9002226.02101,"1224,58864-0743-15 ",.01)
 ;;58864-0743-15
 ;;9002226.02101,"1224,58864-0743-15 ",.02)
 ;;58864-0743-15
 ;;9002226.02101,"1224,58864-0743-30 ",.01)
 ;;58864-0743-30
 ;;9002226.02101,"1224,58864-0743-30 ",.02)
 ;;58864-0743-30
 ;;9002226.02101,"1224,58864-0760-30 ",.01)
 ;;58864-0760-30
 ;;9002226.02101,"1224,58864-0760-30 ",.02)
 ;;58864-0760-30