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

BGP14C18.m

Go to the documentation of this file.
BGP14C18 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"1105,67544-0854-45 ",.01)
 ;;67544-0854-45
 ;;9002226.02101,"1105,67544-0854-45 ",.02)
 ;;67544-0854-45
 ;;9002226.02101,"1105,67544-0854-60 ",.01)
 ;;67544-0854-60
 ;;9002226.02101,"1105,67544-0854-60 ",.02)
 ;;67544-0854-60
 ;;9002226.02101,"1105,67544-0855-15 ",.01)
 ;;67544-0855-15
 ;;9002226.02101,"1105,67544-0855-15 ",.02)
 ;;67544-0855-15
 ;;9002226.02101,"1105,67544-0855-30 ",.01)
 ;;67544-0855-30
 ;;9002226.02101,"1105,67544-0855-30 ",.02)
 ;;67544-0855-30
 ;;9002226.02101,"1105,67544-0855-45 ",.01)
 ;;67544-0855-45
 ;;9002226.02101,"1105,67544-0855-45 ",.02)
 ;;67544-0855-45
 ;;9002226.02101,"1105,67544-0855-60 ",.01)
 ;;67544-0855-60
 ;;9002226.02101,"1105,67544-0855-60 ",.02)
 ;;67544-0855-60
 ;;9002226.02101,"1105,67544-0856-15 ",.01)
 ;;67544-0856-15
 ;;9002226.02101,"1105,67544-0856-15 ",.02)
 ;;67544-0856-15
 ;;9002226.02101,"1105,67544-0856-45 ",.01)
 ;;67544-0856-45
 ;;9002226.02101,"1105,67544-0856-45 ",.02)
 ;;67544-0856-45
 ;;9002226.02101,"1105,67544-0857-15 ",.01)
 ;;67544-0857-15
 ;;9002226.02101,"1105,67544-0857-15 ",.02)
 ;;67544-0857-15
 ;;9002226.02101,"1105,67544-0857-45 ",.01)
 ;;67544-0857-45
 ;;9002226.02101,"1105,67544-0857-45 ",.02)
 ;;67544-0857-45
 ;;9002226.02101,"1105,67544-0857-60 ",.01)
 ;;67544-0857-60
 ;;9002226.02101,"1105,67544-0857-60 ",.02)
 ;;67544-0857-60
 ;;9002226.02101,"1105,67544-1001-30 ",.01)
 ;;67544-1001-30
 ;;9002226.02101,"1105,67544-1001-30 ",.02)
 ;;67544-1001-30
 ;;9002226.02101,"1105,67544-1001-60 ",.01)
 ;;67544-1001-60
 ;;9002226.02101,"1105,67544-1001-60 ",.02)
 ;;67544-1001-60
 ;;9002226.02101,"1105,67544-1003-15 ",.01)
 ;;67544-1003-15
 ;;9002226.02101,"1105,67544-1003-15 ",.02)
 ;;67544-1003-15
 ;;9002226.02101,"1105,67544-1003-45 ",.01)
 ;;67544-1003-45
 ;;9002226.02101,"1105,67544-1003-45 ",.02)
 ;;67544-1003-45
 ;;9002226.02101,"1105,67544-1003-53 ",.01)
 ;;67544-1003-53
 ;;9002226.02101,"1105,67544-1003-53 ",.02)
 ;;67544-1003-53
 ;;9002226.02101,"1105,67544-1029-99 ",.01)
 ;;67544-1029-99
 ;;9002226.02101,"1105,67544-1029-99 ",.02)
 ;;67544-1029-99
 ;;9002226.02101,"1105,67544-1030-99 ",.01)
 ;;67544-1030-99
 ;;9002226.02101,"1105,67544-1030-99 ",.02)
 ;;67544-1030-99
 ;;9002226.02101,"1105,67544-1032-15 ",.01)
 ;;67544-1032-15
 ;;9002226.02101,"1105,67544-1032-15 ",.02)
 ;;67544-1032-15
 ;;9002226.02101,"1105,67544-1032-45 ",.01)
 ;;67544-1032-45
 ;;9002226.02101,"1105,67544-1032-45 ",.02)
 ;;67544-1032-45
 ;;9002226.02101,"1105,67544-1032-82 ",.01)
 ;;67544-1032-82
 ;;9002226.02101,"1105,67544-1032-82 ",.02)
 ;;67544-1032-82
 ;;9002226.02101,"1105,67544-1032-99 ",.01)
 ;;67544-1032-99
 ;;9002226.02101,"1105,67544-1032-99 ",.02)
 ;;67544-1032-99
 ;;9002226.02101,"1105,67544-1078-30 ",.01)
 ;;67544-1078-30
 ;;9002226.02101,"1105,67544-1078-30 ",.02)
 ;;67544-1078-30
 ;;9002226.02101,"1105,67544-1254-15 ",.01)
 ;;67544-1254-15
 ;;9002226.02101,"1105,67544-1254-15 ",.02)
 ;;67544-1254-15
 ;;9002226.02101,"1105,67544-1254-45 ",.01)
 ;;67544-1254-45
 ;;9002226.02101,"1105,67544-1254-45 ",.02)
 ;;67544-1254-45
 ;;9002226.02101,"1105,67544-1255-15 ",.01)
 ;;67544-1255-15
 ;;9002226.02101,"1105,67544-1255-15 ",.02)
 ;;67544-1255-15
 ;;9002226.02101,"1105,67544-1255-30 ",.01)
 ;;67544-1255-30
 ;;9002226.02101,"1105,67544-1255-30 ",.02)
 ;;67544-1255-30
 ;;9002226.02101,"1105,67544-1255-45 ",.01)
 ;;67544-1255-45
 ;;9002226.02101,"1105,67544-1255-45 ",.02)
 ;;67544-1255-45
 ;;9002226.02101,"1105,67544-1255-60 ",.01)
 ;;67544-1255-60
 ;;9002226.02101,"1105,67544-1255-60 ",.02)
 ;;67544-1255-60
 ;;9002226.02101,"1105,67544-1256-15 ",.01)
 ;;67544-1256-15
 ;;9002226.02101,"1105,67544-1256-15 ",.02)
 ;;67544-1256-15
 ;;9002226.02101,"1105,67544-1256-30 ",.01)
 ;;67544-1256-30
 ;;9002226.02101,"1105,67544-1256-30 ",.02)
 ;;67544-1256-30
 ;;9002226.02101,"1105,67544-1256-45 ",.01)
 ;;67544-1256-45
 ;;9002226.02101,"1105,67544-1256-45 ",.02)
 ;;67544-1256-45
 ;;9002226.02101,"1105,67544-1257-45 ",.01)
 ;;67544-1257-45
 ;;9002226.02101,"1105,67544-1257-45 ",.02)
 ;;67544-1257-45
 ;;9002226.02101,"1105,67544-1257-60 ",.01)
 ;;67544-1257-60
 ;;9002226.02101,"1105,67544-1257-60 ",.02)
 ;;67544-1257-60
 ;;9002226.02101,"1105,68071-0154-30 ",.01)
 ;;68071-0154-30
 ;;9002226.02101,"1105,68071-0154-30 ",.02)
 ;;68071-0154-30
 ;;9002226.02101,"1105,68071-0263-30 ",.01)
 ;;68071-0263-30
 ;;9002226.02101,"1105,68071-0263-30 ",.02)
 ;;68071-0263-30
 ;;9002226.02101,"1105,68071-0310-30 ",.01)
 ;;68071-0310-30
 ;;9002226.02101,"1105,68071-0310-30 ",.02)
 ;;68071-0310-30
 ;;9002226.02101,"1105,68071-0399-30 ",.01)
 ;;68071-0399-30
 ;;9002226.02101,"1105,68071-0399-30 ",.02)
 ;;68071-0399-30
 ;;9002226.02101,"1105,68071-0433-30 ",.01)
 ;;68071-0433-30
 ;;9002226.02101,"1105,68071-0433-30 ",.02)
 ;;68071-0433-30
 ;;9002226.02101,"1105,68071-0784-30 ",.01)
 ;;68071-0784-30
 ;;9002226.02101,"1105,68071-0784-30 ",.02)
 ;;68071-0784-30
 ;;9002226.02101,"1105,68084-0131-01 ",.01)
 ;;68084-0131-01
 ;;9002226.02101,"1105,68084-0131-01 ",.02)
 ;;68084-0131-01
 ;;9002226.02101,"1105,68084-0131-11 ",.01)
 ;;68084-0131-11
 ;;9002226.02101,"1105,68084-0131-11 ",.02)
 ;;68084-0131-11
 ;;9002226.02101,"1105,68084-0132-01 ",.01)
 ;;68084-0132-01
 ;;9002226.02101,"1105,68084-0132-01 ",.02)
 ;;68084-0132-01
 ;;9002226.02101,"1105,68084-0132-11 ",.01)
 ;;68084-0132-11
 ;;9002226.02101,"1105,68084-0132-11 ",.02)
 ;;68084-0132-11
 ;;9002226.02101,"1105,68084-0133-01 ",.01)
 ;;68084-0133-01
 ;;9002226.02101,"1105,68084-0133-01 ",.02)
 ;;68084-0133-01
 ;;9002226.02101,"1105,68084-0133-11 ",.01)
 ;;68084-0133-11
 ;;9002226.02101,"1105,68084-0133-11 ",.02)
 ;;68084-0133-11
 ;;9002226.02101,"1105,68084-0161-01 ",.01)
 ;;68084-0161-01
 ;;9002226.02101,"1105,68084-0161-01 ",.02)
 ;;68084-0161-01
 ;;9002226.02101,"1105,68084-0161-11 ",.01)
 ;;68084-0161-11
 ;;9002226.02101,"1105,68084-0161-11 ",.02)
 ;;68084-0161-11
 ;;9002226.02101,"1105,68084-0162-01 ",.01)
 ;;68084-0162-01
 ;;9002226.02101,"1105,68084-0162-01 ",.02)
 ;;68084-0162-01
 ;;9002226.02101,"1105,68084-0162-11 ",.01)
 ;;68084-0162-11
 ;;9002226.02101,"1105,68084-0162-11 ",.02)
 ;;68084-0162-11
 ;;9002226.02101,"1105,68084-0163-01 ",.01)
 ;;68084-0163-01
 ;;9002226.02101,"1105,68084-0163-01 ",.02)
 ;;68084-0163-01
 ;;9002226.02101,"1105,68084-0163-11 ",.01)
 ;;68084-0163-11
 ;;9002226.02101,"1105,68084-0163-11 ",.02)
 ;;68084-0163-11
 ;;9002226.02101,"1105,68084-0164-01 ",.01)
 ;;68084-0164-01
 ;;9002226.02101,"1105,68084-0164-01 ",.02)
 ;;68084-0164-01
 ;;9002226.02101,"1105,68084-0164-11 ",.01)
 ;;68084-0164-11
 ;;9002226.02101,"1105,68084-0164-11 ",.02)
 ;;68084-0164-11
 ;;9002226.02101,"1105,68084-0165-01 ",.01)
 ;;68084-0165-01
 ;;9002226.02101,"1105,68084-0165-01 ",.02)
 ;;68084-0165-01
 ;;9002226.02101,"1105,68084-0165-11 ",.01)
 ;;68084-0165-11
 ;;9002226.02101,"1105,68084-0165-11 ",.02)
 ;;68084-0165-11
 ;;9002226.02101,"1105,68084-0186-01 ",.01)
 ;;68084-0186-01
 ;;9002226.02101,"1105,68084-0186-01 ",.02)
 ;;68084-0186-01
 ;;9002226.02101,"1105,68084-0186-11 ",.01)
 ;;68084-0186-11
 ;;9002226.02101,"1105,68084-0186-11 ",.02)
 ;;68084-0186-11
 ;;9002226.02101,"1105,68084-0187-01 ",.01)
 ;;68084-0187-01
 ;;9002226.02101,"1105,68084-0187-01 ",.02)
 ;;68084-0187-01
 ;;9002226.02101,"1105,68084-0187-11 ",.01)
 ;;68084-0187-11
 ;;9002226.02101,"1105,68084-0187-11 ",.02)
 ;;68084-0187-11
 ;;9002226.02101,"1105,68084-0188-01 ",.01)
 ;;68084-0188-01
 ;;9002226.02101,"1105,68084-0188-01 ",.02)
 ;;68084-0188-01
 ;;9002226.02101,"1105,68084-0188-11 ",.01)
 ;;68084-0188-11
 ;;9002226.02101,"1105,68084-0188-11 ",.02)
 ;;68084-0188-11
 ;;9002226.02101,"1105,68115-0218-30 ",.01)
 ;;68115-0218-30
 ;;9002226.02101,"1105,68115-0218-30 ",.02)
 ;;68115-0218-30
 ;;9002226.02101,"1105,68115-0219-30 ",.01)
 ;;68115-0219-30
 ;;9002226.02101,"1105,68115-0219-30 ",.02)
 ;;68115-0219-30
 ;;9002226.02101,"1105,68115-0219-60 ",.01)
 ;;68115-0219-60
 ;;9002226.02101,"1105,68115-0219-60 ",.02)
 ;;68115-0219-60
 ;;9002226.02101,"1105,68115-0494-30 ",.01)
 ;;68115-0494-30
 ;;9002226.02101,"1105,68115-0494-30 ",.02)
 ;;68115-0494-30
 ;;9002226.02101,"1105,68115-0494-60 ",.01)
 ;;68115-0494-60
 ;;9002226.02101,"1105,68115-0494-60 ",.02)
 ;;68115-0494-60
 ;;9002226.02101,"1105,68115-0658-00 ",.01)
 ;;68115-0658-00
 ;;9002226.02101,"1105,68115-0658-00 ",.02)
 ;;68115-0658-00
 ;;9002226.02101,"1105,68115-0658-60 ",.01)
 ;;68115-0658-60
 ;;9002226.02101,"1105,68115-0658-60 ",.02)
 ;;68115-0658-60
 ;;9002226.02101,"1105,68115-0664-90 ",.01)
 ;;68115-0664-90
 ;;9002226.02101,"1105,68115-0664-90 ",.02)
 ;;68115-0664-90
 ;;9002226.02101,"1105,68115-0668-15 ",.01)
 ;;68115-0668-15
 ;;9002226.02101,"1105,68115-0668-15 ",.02)
 ;;68115-0668-15
 ;;9002226.02101,"1105,68115-0668-30 ",.01)
 ;;68115-0668-30
 ;;9002226.02101,"1105,68115-0668-30 ",.02)
 ;;68115-0668-30
 ;;9002226.02101,"1105,68115-0668-90 ",.01)
 ;;68115-0668-90
 ;;9002226.02101,"1105,68115-0668-90 ",.02)
 ;;68115-0668-90
 ;;9002226.02101,"1105,68115-0672-30 ",.01)
 ;;68115-0672-30
 ;;9002226.02101,"1105,68115-0672-30 ",.02)
 ;;68115-0672-30
 ;;9002226.02101,"1105,68115-0720-30 ",.01)
 ;;68115-0720-30
 ;;9002226.02101,"1105,68115-0720-30 ",.02)
 ;;68115-0720-30
 ;;9002226.02101,"1105,68115-0759-30 ",.01)
 ;;68115-0759-30
 ;;9002226.02101,"1105,68115-0759-30 ",.02)
 ;;68115-0759-30
 ;;9002226.02101,"1105,68115-0777-30 ",.01)
 ;;68115-0777-30
 ;;9002226.02101,"1105,68115-0777-30 ",.02)
 ;;68115-0777-30
 ;;9002226.02101,"1105,68115-0777-90 ",.01)
 ;;68115-0777-90
 ;;9002226.02101,"1105,68115-0777-90 ",.02)
 ;;68115-0777-90
 ;;9002226.02101,"1105,68115-0800-90 ",.01)
 ;;68115-0800-90
 ;;9002226.02101,"1105,68115-0800-90 ",.02)
 ;;68115-0800-90
 ;;9002226.02101,"1105,68115-0836-30 ",.01)
 ;;68115-0836-30
 ;;9002226.02101,"1105,68115-0836-30 ",.02)
 ;;68115-0836-30
 ;;9002226.02101,"1105,68115-0836-90 ",.01)
 ;;68115-0836-90
 ;;9002226.02101,"1105,68115-0836-90 ",.02)
 ;;68115-0836-90
 ;;9002226.02101,"1105,68180-0467-01 ",.01)
 ;;68180-0467-01
 ;;9002226.02101,"1105,68180-0467-01 ",.02)
 ;;68180-0467-01
 ;;9002226.02101,"1105,68180-0467-03 ",.01)
 ;;68180-0467-03
 ;;9002226.02101,"1105,68180-0467-03 ",.02)
 ;;68180-0467-03
 ;;9002226.02101,"1105,68180-0467-07 ",.01)
 ;;68180-0467-07
 ;;9002226.02101,"1105,68180-0467-07 ",.02)
 ;;68180-0467-07
 ;;9002226.02101,"1105,68180-0468-01 ",.01)
 ;;68180-0468-01
 ;;9002226.02101,"1105,68180-0468-01 ",.02)
 ;;68180-0468-01
 ;;9002226.02101,"1105,68180-0468-03 ",.01)
 ;;68180-0468-03
 ;;9002226.02101,"1105,68180-0468-03 ",.02)
 ;;68180-0468-03
 ;;9002226.02101,"1105,68180-0468-05 ",.01)
 ;;68180-0468-05
 ;;9002226.02101,"1105,68180-0468-05 ",.02)
 ;;68180-0468-05
 ;;9002226.02101,"1105,68180-0468-07 ",.01)
 ;;68180-0468-07
 ;;9002226.02101,"1105,68180-0468-07 ",.02)
 ;;68180-0468-07
 ;;9002226.02101,"1105,68180-0469-01 ",.01)
 ;;68180-0469-01
 ;;9002226.02101,"1105,68180-0469-01 ",.02)
 ;;68180-0469-01
 ;;9002226.02101,"1105,68180-0469-03 ",.01)
 ;;68180-0469-03
 ;;9002226.02101,"1105,68180-0469-03 ",.02)
 ;;68180-0469-03
 ;;9002226.02101,"1105,68180-0469-05 ",.01)
 ;;68180-0469-05
 ;;9002226.02101,"1105,68180-0469-05 ",.02)
 ;;68180-0469-05
 ;;9002226.02101,"1105,68180-0469-07 ",.01)
 ;;68180-0469-07
 ;;9002226.02101,"1105,68180-0469-07 ",.02)
 ;;68180-0469-07
 ;;9002226.02101,"1105,68180-0478-01 ",.01)
 ;;68180-0478-01
 ;;9002226.02101,"1105,68180-0478-01 ",.02)
 ;;68180-0478-01
 ;;9002226.02101,"1105,68180-0478-02 ",.01)
 ;;68180-0478-02
 ;;9002226.02101,"1105,68180-0478-02 ",.02)
 ;;68180-0478-02
 ;;9002226.02101,"1105,68180-0478-03 ",.01)
 ;;68180-0478-03
 ;;9002226.02101,"1105,68180-0478-03 ",.02)
 ;;68180-0478-03
 ;;9002226.02101,"1105,68180-0479-01 ",.01)
 ;;68180-0479-01
 ;;9002226.02101,"1105,68180-0479-01 ",.02)
 ;;68180-0479-01
 ;;9002226.02101,"1105,68180-0479-02 ",.01)
 ;;68180-0479-02
 ;;9002226.02101,"1105,68180-0479-02 ",.02)
 ;;68180-0479-02
 ;;9002226.02101,"1105,68180-0479-03 ",.01)
 ;;68180-0479-03
 ;;9002226.02101,"1105,68180-0479-03 ",.02)
 ;;68180-0479-03
 ;;9002226.02101,"1105,68180-0480-01 ",.01)
 ;;68180-0480-01
 ;;9002226.02101,"1105,68180-0480-01 ",.02)
 ;;68180-0480-01
 ;;9002226.02101,"1105,68180-0480-02 ",.01)
 ;;68180-0480-02
 ;;9002226.02101,"1105,68180-0480-02 ",.02)
 ;;68180-0480-02
 ;;9002226.02101,"1105,68180-0480-03 ",.01)
 ;;68180-0480-03
 ;;9002226.02101,"1105,68180-0480-03 ",.02)
 ;;68180-0480-03
 ;;9002226.02101,"1105,68180-0481-01 ",.01)
 ;;68180-0481-01
 ;;9002226.02101,"1105,68180-0481-01 ",.02)
 ;;68180-0481-01