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

BGP50M22.m

Go to the documentation of this file.
BGP50M22 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 06, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"1201,66582-0322-10 ",.02)
 ;;66582-0322-10
 ;;9002226.02101,"1201,66582-0322-30 ",.01)
 ;;66582-0322-30
 ;;9002226.02101,"1201,66582-0322-30 ",.02)
 ;;66582-0322-30
 ;;9002226.02101,"1201,66582-0322-54 ",.01)
 ;;66582-0322-54
 ;;9002226.02101,"1201,66582-0322-54 ",.02)
 ;;66582-0322-54
 ;;9002226.02101,"1201,66582-0323-10 ",.01)
 ;;66582-0323-10
 ;;9002226.02101,"1201,66582-0323-10 ",.02)
 ;;66582-0323-10
 ;;9002226.02101,"1201,66582-0323-30 ",.01)
 ;;66582-0323-30
 ;;9002226.02101,"1201,66582-0323-30 ",.02)
 ;;66582-0323-30
 ;;9002226.02101,"1201,66582-0323-54 ",.01)
 ;;66582-0323-54
 ;;9002226.02101,"1201,66582-0323-54 ",.02)
 ;;66582-0323-54
 ;;9002226.02101,"1201,66869-0104-90 ",.01)
 ;;66869-0104-90
 ;;9002226.02101,"1201,66869-0104-90 ",.02)
 ;;66869-0104-90
 ;;9002226.02101,"1201,66869-0204-90 ",.01)
 ;;66869-0204-90
 ;;9002226.02101,"1201,66869-0204-90 ",.02)
 ;;66869-0204-90
 ;;9002226.02101,"1201,66869-0404-90 ",.01)
 ;;66869-0404-90
 ;;9002226.02101,"1201,66869-0404-90 ",.02)
 ;;66869-0404-90
 ;;9002226.02101,"1201,67544-0050-15 ",.01)
 ;;67544-0050-15
 ;;9002226.02101,"1201,67544-0050-15 ",.02)
 ;;67544-0050-15
 ;;9002226.02101,"1201,67544-0050-30 ",.01)
 ;;67544-0050-30
 ;;9002226.02101,"1201,67544-0050-30 ",.02)
 ;;67544-0050-30
 ;;9002226.02101,"1201,67544-0050-45 ",.01)
 ;;67544-0050-45
 ;;9002226.02101,"1201,67544-0050-45 ",.02)
 ;;67544-0050-45
 ;;9002226.02101,"1201,67544-0050-53 ",.01)
 ;;67544-0050-53
 ;;9002226.02101,"1201,67544-0050-53 ",.02)
 ;;67544-0050-53
 ;;9002226.02101,"1201,67544-0050-60 ",.01)
 ;;67544-0050-60
 ;;9002226.02101,"1201,67544-0050-60 ",.02)
 ;;67544-0050-60
 ;;9002226.02101,"1201,67544-0051-15 ",.01)
 ;;67544-0051-15
 ;;9002226.02101,"1201,67544-0051-15 ",.02)
 ;;67544-0051-15
 ;;9002226.02101,"1201,67544-0051-16 ",.01)
 ;;67544-0051-16
 ;;9002226.02101,"1201,67544-0051-16 ",.02)
 ;;67544-0051-16
 ;;9002226.02101,"1201,67544-0051-45 ",.01)
 ;;67544-0051-45
 ;;9002226.02101,"1201,67544-0051-45 ",.02)
 ;;67544-0051-45
 ;;9002226.02101,"1201,67544-0051-53 ",.01)
 ;;67544-0051-53
 ;;9002226.02101,"1201,67544-0051-53 ",.02)
 ;;67544-0051-53
 ;;9002226.02101,"1201,67544-0060-15 ",.01)
 ;;67544-0060-15
 ;;9002226.02101,"1201,67544-0060-15 ",.02)
 ;;67544-0060-15
 ;;9002226.02101,"1201,67544-0060-30 ",.01)
 ;;67544-0060-30
 ;;9002226.02101,"1201,67544-0060-30 ",.02)
 ;;67544-0060-30
 ;;9002226.02101,"1201,67544-0060-45 ",.01)
 ;;67544-0060-45
 ;;9002226.02101,"1201,67544-0060-45 ",.02)
 ;;67544-0060-45
 ;;9002226.02101,"1201,67544-0060-60 ",.01)
 ;;67544-0060-60
 ;;9002226.02101,"1201,67544-0060-60 ",.02)
 ;;67544-0060-60
 ;;9002226.02101,"1201,67544-0081-15 ",.01)
 ;;67544-0081-15
 ;;9002226.02101,"1201,67544-0081-15 ",.02)
 ;;67544-0081-15
 ;;9002226.02101,"1201,67544-0081-30 ",.01)
 ;;67544-0081-30
 ;;9002226.02101,"1201,67544-0081-30 ",.02)
 ;;67544-0081-30
 ;;9002226.02101,"1201,67544-0081-45 ",.01)
 ;;67544-0081-45
 ;;9002226.02101,"1201,67544-0081-45 ",.02)
 ;;67544-0081-45
 ;;9002226.02101,"1201,67544-0081-60 ",.01)
 ;;67544-0081-60
 ;;9002226.02101,"1201,67544-0081-60 ",.02)
 ;;67544-0081-60
 ;;9002226.02101,"1201,67544-0082-15 ",.01)
 ;;67544-0082-15
 ;;9002226.02101,"1201,67544-0082-15 ",.02)
 ;;67544-0082-15
 ;;9002226.02101,"1201,67544-0082-45 ",.01)
 ;;67544-0082-45
 ;;9002226.02101,"1201,67544-0082-45 ",.02)
 ;;67544-0082-45
 ;;9002226.02101,"1201,67544-0106-15 ",.01)
 ;;67544-0106-15
 ;;9002226.02101,"1201,67544-0106-15 ",.02)
 ;;67544-0106-15
 ;;9002226.02101,"1201,67544-0106-30 ",.01)
 ;;67544-0106-30
 ;;9002226.02101,"1201,67544-0106-30 ",.02)
 ;;67544-0106-30
 ;;9002226.02101,"1201,67544-0106-45 ",.01)
 ;;67544-0106-45
 ;;9002226.02101,"1201,67544-0106-45 ",.02)
 ;;67544-0106-45
 ;;9002226.02101,"1201,67544-0106-53 ",.01)
 ;;67544-0106-53
 ;;9002226.02101,"1201,67544-0106-53 ",.02)
 ;;67544-0106-53
 ;;9002226.02101,"1201,67544-0106-60 ",.01)
 ;;67544-0106-60
 ;;9002226.02101,"1201,67544-0106-60 ",.02)
 ;;67544-0106-60
 ;;9002226.02101,"1201,67544-0106-80 ",.01)
 ;;67544-0106-80
 ;;9002226.02101,"1201,67544-0106-80 ",.02)
 ;;67544-0106-80
 ;;9002226.02101,"1201,67544-0225-15 ",.01)
 ;;67544-0225-15
 ;;9002226.02101,"1201,67544-0225-15 ",.02)
 ;;67544-0225-15
 ;;9002226.02101,"1201,67544-0225-30 ",.01)
 ;;67544-0225-30
 ;;9002226.02101,"1201,67544-0225-30 ",.02)
 ;;67544-0225-30
 ;;9002226.02101,"1201,67544-0225-45 ",.01)
 ;;67544-0225-45
 ;;9002226.02101,"1201,67544-0225-45 ",.02)
 ;;67544-0225-45
 ;;9002226.02101,"1201,67544-0225-53 ",.01)
 ;;67544-0225-53
 ;;9002226.02101,"1201,67544-0225-53 ",.02)
 ;;67544-0225-53
 ;;9002226.02101,"1201,67544-0225-60 ",.01)
 ;;67544-0225-60
 ;;9002226.02101,"1201,67544-0225-60 ",.02)
 ;;67544-0225-60
 ;;9002226.02101,"1201,67544-0225-80 ",.01)
 ;;67544-0225-80
 ;;9002226.02101,"1201,67544-0225-80 ",.02)
 ;;67544-0225-80
 ;;9002226.02101,"1201,67544-0245-30 ",.01)
 ;;67544-0245-30
 ;;9002226.02101,"1201,67544-0245-30 ",.02)
 ;;67544-0245-30
 ;;9002226.02101,"1201,67544-0245-60 ",.01)
 ;;67544-0245-60
 ;;9002226.02101,"1201,67544-0245-60 ",.02)
 ;;67544-0245-60
 ;;9002226.02101,"1201,67544-0247-15 ",.01)
 ;;67544-0247-15
 ;;9002226.02101,"1201,67544-0247-15 ",.02)
 ;;67544-0247-15
 ;;9002226.02101,"1201,67544-0247-30 ",.01)
 ;;67544-0247-30
 ;;9002226.02101,"1201,67544-0247-30 ",.02)
 ;;67544-0247-30
 ;;9002226.02101,"1201,67544-0247-45 ",.01)
 ;;67544-0247-45
 ;;9002226.02101,"1201,67544-0247-45 ",.02)
 ;;67544-0247-45
 ;;9002226.02101,"1201,67544-0854-45 ",.01)
 ;;67544-0854-45
 ;;9002226.02101,"1201,67544-0854-45 ",.02)
 ;;67544-0854-45
 ;;9002226.02101,"1201,67544-0854-60 ",.01)
 ;;67544-0854-60
 ;;9002226.02101,"1201,67544-0854-60 ",.02)
 ;;67544-0854-60
 ;;9002226.02101,"1201,67544-0855-15 ",.01)
 ;;67544-0855-15
 ;;9002226.02101,"1201,67544-0855-15 ",.02)
 ;;67544-0855-15
 ;;9002226.02101,"1201,67544-0855-30 ",.01)
 ;;67544-0855-30
 ;;9002226.02101,"1201,67544-0855-30 ",.02)
 ;;67544-0855-30
 ;;9002226.02101,"1201,67544-0855-45 ",.01)
 ;;67544-0855-45
 ;;9002226.02101,"1201,67544-0855-45 ",.02)
 ;;67544-0855-45
 ;;9002226.02101,"1201,67544-0855-60 ",.01)
 ;;67544-0855-60
 ;;9002226.02101,"1201,67544-0855-60 ",.02)
 ;;67544-0855-60
 ;;9002226.02101,"1201,67544-0856-15 ",.01)
 ;;67544-0856-15
 ;;9002226.02101,"1201,67544-0856-15 ",.02)
 ;;67544-0856-15
 ;;9002226.02101,"1201,67544-0856-45 ",.01)
 ;;67544-0856-45
 ;;9002226.02101,"1201,67544-0856-45 ",.02)
 ;;67544-0856-45
 ;;9002226.02101,"1201,67544-0857-15 ",.01)
 ;;67544-0857-15
 ;;9002226.02101,"1201,67544-0857-15 ",.02)
 ;;67544-0857-15
 ;;9002226.02101,"1201,67544-0857-45 ",.01)
 ;;67544-0857-45
 ;;9002226.02101,"1201,67544-0857-45 ",.02)
 ;;67544-0857-45
 ;;9002226.02101,"1201,67544-0857-60 ",.01)
 ;;67544-0857-60
 ;;9002226.02101,"1201,67544-0857-60 ",.02)
 ;;67544-0857-60
 ;;9002226.02101,"1201,67544-1001-30 ",.01)
 ;;67544-1001-30
 ;;9002226.02101,"1201,67544-1001-30 ",.02)
 ;;67544-1001-30
 ;;9002226.02101,"1201,67544-1001-60 ",.01)
 ;;67544-1001-60
 ;;9002226.02101,"1201,67544-1001-60 ",.02)
 ;;67544-1001-60
 ;;9002226.02101,"1201,67544-1003-15 ",.01)
 ;;67544-1003-15
 ;;9002226.02101,"1201,67544-1003-15 ",.02)
 ;;67544-1003-15
 ;;9002226.02101,"1201,67544-1003-45 ",.01)
 ;;67544-1003-45
 ;;9002226.02101,"1201,67544-1003-45 ",.02)
 ;;67544-1003-45
 ;;9002226.02101,"1201,67544-1003-53 ",.01)
 ;;67544-1003-53
 ;;9002226.02101,"1201,67544-1003-53 ",.02)
 ;;67544-1003-53
 ;;9002226.02101,"1201,67544-1029-99 ",.01)
 ;;67544-1029-99
 ;;9002226.02101,"1201,67544-1029-99 ",.02)
 ;;67544-1029-99
 ;;9002226.02101,"1201,67544-1030-99 ",.01)
 ;;67544-1030-99
 ;;9002226.02101,"1201,67544-1030-99 ",.02)
 ;;67544-1030-99
 ;;9002226.02101,"1201,67544-1032-15 ",.01)
 ;;67544-1032-15
 ;;9002226.02101,"1201,67544-1032-15 ",.02)
 ;;67544-1032-15
 ;;9002226.02101,"1201,67544-1032-45 ",.01)
 ;;67544-1032-45
 ;;9002226.02101,"1201,67544-1032-45 ",.02)
 ;;67544-1032-45
 ;;9002226.02101,"1201,67544-1032-82 ",.01)
 ;;67544-1032-82
 ;;9002226.02101,"1201,67544-1032-82 ",.02)
 ;;67544-1032-82
 ;;9002226.02101,"1201,67544-1032-99 ",.01)
 ;;67544-1032-99
 ;;9002226.02101,"1201,67544-1032-99 ",.02)
 ;;67544-1032-99
 ;;9002226.02101,"1201,67544-1078-30 ",.01)
 ;;67544-1078-30
 ;;9002226.02101,"1201,67544-1078-30 ",.02)
 ;;67544-1078-30
 ;;9002226.02101,"1201,67544-1254-15 ",.01)
 ;;67544-1254-15
 ;;9002226.02101,"1201,67544-1254-15 ",.02)
 ;;67544-1254-15
 ;;9002226.02101,"1201,67544-1254-45 ",.01)
 ;;67544-1254-45
 ;;9002226.02101,"1201,67544-1254-45 ",.02)
 ;;67544-1254-45
 ;;9002226.02101,"1201,67544-1255-15 ",.01)
 ;;67544-1255-15
 ;;9002226.02101,"1201,67544-1255-15 ",.02)
 ;;67544-1255-15
 ;;9002226.02101,"1201,67544-1255-30 ",.01)
 ;;67544-1255-30
 ;;9002226.02101,"1201,67544-1255-30 ",.02)
 ;;67544-1255-30
 ;;9002226.02101,"1201,67544-1255-45 ",.01)
 ;;67544-1255-45
 ;;9002226.02101,"1201,67544-1255-45 ",.02)
 ;;67544-1255-45
 ;;9002226.02101,"1201,67544-1256-15 ",.01)
 ;;67544-1256-15
 ;;9002226.02101,"1201,67544-1256-15 ",.02)
 ;;67544-1256-15
 ;;9002226.02101,"1201,67544-1256-30 ",.01)
 ;;67544-1256-30
 ;;9002226.02101,"1201,67544-1256-30 ",.02)
 ;;67544-1256-30
 ;;9002226.02101,"1201,67544-1256-45 ",.01)
 ;;67544-1256-45
 ;;9002226.02101,"1201,67544-1256-45 ",.02)
 ;;67544-1256-45
 ;;9002226.02101,"1201,67544-1257-45 ",.01)
 ;;67544-1257-45
 ;;9002226.02101,"1201,67544-1257-45 ",.02)
 ;;67544-1257-45
 ;;9002226.02101,"1201,67544-1257-60 ",.01)
 ;;67544-1257-60
 ;;9002226.02101,"1201,67544-1257-60 ",.02)
 ;;67544-1257-60
 ;;9002226.02101,"1201,68001-0213-00 ",.01)
 ;;68001-0213-00
 ;;9002226.02101,"1201,68001-0213-00 ",.02)
 ;;68001-0213-00
 ;;9002226.02101,"1201,68001-0213-06 ",.01)
 ;;68001-0213-06
 ;;9002226.02101,"1201,68001-0213-06 ",.02)
 ;;68001-0213-06
 ;;9002226.02101,"1201,68001-0213-08 ",.01)
 ;;68001-0213-08
 ;;9002226.02101,"1201,68001-0213-08 ",.02)
 ;;68001-0213-08
 ;;9002226.02101,"1201,68001-0214-00 ",.01)
 ;;68001-0214-00
 ;;9002226.02101,"1201,68001-0214-00 ",.02)
 ;;68001-0214-00
 ;;9002226.02101,"1201,68001-0214-06 ",.01)
 ;;68001-0214-06
 ;;9002226.02101,"1201,68001-0214-06 ",.02)
 ;;68001-0214-06
 ;;9002226.02101,"1201,68001-0214-08 ",.01)
 ;;68001-0214-08
 ;;9002226.02101,"1201,68001-0214-08 ",.02)
 ;;68001-0214-08
 ;;9002226.02101,"1201,68001-0224-00 ",.01)
 ;;68001-0224-00
 ;;9002226.02101,"1201,68001-0224-00 ",.02)
 ;;68001-0224-00
 ;;9002226.02101,"1201,68001-0224-06 ",.01)
 ;;68001-0224-06
 ;;9002226.02101,"1201,68001-0224-06 ",.02)
 ;;68001-0224-06
 ;;9002226.02101,"1201,68001-0224-08 ",.01)
 ;;68001-0224-08
 ;;9002226.02101,"1201,68001-0224-08 ",.02)
 ;;68001-0224-08
 ;;9002226.02101,"1201,68071-0154-30 ",.01)
 ;;68071-0154-30
 ;;9002226.02101,"1201,68071-0154-30 ",.02)
 ;;68071-0154-30
 ;;9002226.02101,"1201,68071-0263-30 ",.01)
 ;;68071-0263-30
 ;;9002226.02101,"1201,68071-0263-30 ",.02)
 ;;68071-0263-30
 ;;9002226.02101,"1201,68071-0310-30 ",.01)
 ;;68071-0310-30
 ;;9002226.02101,"1201,68071-0310-30 ",.02)
 ;;68071-0310-30
 ;;9002226.02101,"1201,68071-0399-30 ",.01)
 ;;68071-0399-30
 ;;9002226.02101,"1201,68071-0399-30 ",.02)
 ;;68071-0399-30
 ;;9002226.02101,"1201,68071-0433-30 ",.01)
 ;;68071-0433-30
 ;;9002226.02101,"1201,68071-0433-30 ",.02)
 ;;68071-0433-30
 ;;9002226.02101,"1201,68071-0699-30 ",.01)
 ;;68071-0699-30
 ;;9002226.02101,"1201,68071-0699-30 ",.02)
 ;;68071-0699-30
 ;;9002226.02101,"1201,68071-0716-30 ",.01)
 ;;68071-0716-30
 ;;9002226.02101,"1201,68071-0716-30 ",.02)
 ;;68071-0716-30
 ;;9002226.02101,"1201,68071-0784-30 ",.01)
 ;;68071-0784-30
 ;;9002226.02101,"1201,68071-0784-30 ",.02)
 ;;68071-0784-30
 ;;9002226.02101,"1201,68071-0914-30 ",.01)
 ;;68071-0914-30
 ;;9002226.02101,"1201,68071-0914-30 ",.02)
 ;;68071-0914-30
 ;;9002226.02101,"1201,68071-0915-30 ",.01)
 ;;68071-0915-30
 ;;9002226.02101,"1201,68071-0915-30 ",.02)
 ;;68071-0915-30
 ;;9002226.02101,"1201,68071-0916-30 ",.01)
 ;;68071-0916-30
 ;;9002226.02101,"1201,68071-0916-30 ",.02)
 ;;68071-0916-30
 ;;9002226.02101,"1201,68084-0097-01 ",.01)
 ;;68084-0097-01
 ;;9002226.02101,"1201,68084-0097-01 ",.02)
 ;;68084-0097-01
 ;;9002226.02101,"1201,68084-0097-11 ",.01)
 ;;68084-0097-11
 ;;9002226.02101,"1201,68084-0097-11 ",.02)
 ;;68084-0097-11
 ;;9002226.02101,"1201,68084-0098-01 ",.01)
 ;;68084-0098-01
 ;;9002226.02101,"1201,68084-0098-01 ",.02)
 ;;68084-0098-01
 ;;9002226.02101,"1201,68084-0098-11 ",.01)
 ;;68084-0098-11
 ;;9002226.02101,"1201,68084-0098-11 ",.02)
 ;;68084-0098-11
 ;;9002226.02101,"1201,68084-0099-01 ",.01)
 ;;68084-0099-01
 ;;9002226.02101,"1201,68084-0099-01 ",.02)
 ;;68084-0099-01
 ;;9002226.02101,"1201,68084-0099-11 ",.01)
 ;;68084-0099-11
 ;;9002226.02101,"1201,68084-0099-11 ",.02)
 ;;68084-0099-11
 ;;9002226.02101,"1201,68084-0133-01 ",.01)
 ;;68084-0133-01
 ;;9002226.02101,"1201,68084-0133-01 ",.02)
 ;;68084-0133-01
 ;;9002226.02101,"1201,68084-0133-11 ",.01)
 ;;68084-0133-11
 ;;9002226.02101,"1201,68084-0133-11 ",.02)
 ;;68084-0133-11
 ;;9002226.02101,"1201,68084-0161-01 ",.01)
 ;;68084-0161-01
 ;;9002226.02101,"1201,68084-0161-01 ",.02)
 ;;68084-0161-01
 ;;9002226.02101,"1201,68084-0161-11 ",.01)
 ;;68084-0161-11
 ;;9002226.02101,"1201,68084-0161-11 ",.02)
 ;;68084-0161-11
 ;;9002226.02101,"1201,68084-0163-01 ",.01)
 ;;68084-0163-01
 ;;9002226.02101,"1201,68084-0163-01 ",.02)
 ;;68084-0163-01
 ;;9002226.02101,"1201,68084-0163-11 ",.01)
 ;;68084-0163-11
 ;;9002226.02101,"1201,68084-0163-11 ",.02)
 ;;68084-0163-11