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

BGP82I63.m

Go to the documentation of this file.
  1. BGP82I63 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
  1. ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
  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,"1733,68645-0161-59 ",.01)
  1. ;;68645-0161-59
  1. ;;9002226.02101,"1733,68645-0161-59 ",.02)
  1. ;;68645-0161-59
  1. ;;9002226.02101,"1733,68645-0162-59 ",.01)
  1. ;;68645-0162-59
  1. ;;9002226.02101,"1733,68645-0162-59 ",.02)
  1. ;;68645-0162-59
  1. ;;9002226.02101,"1733,68645-0163-59 ",.01)
  1. ;;68645-0163-59
  1. ;;9002226.02101,"1733,68645-0163-59 ",.02)
  1. ;;68645-0163-59
  1. ;;9002226.02101,"1733,68645-0272-54 ",.01)
  1. ;;68645-0272-54
  1. ;;9002226.02101,"1733,68645-0272-54 ",.02)
  1. ;;68645-0272-54
  1. ;;9002226.02101,"1733,68645-0404-70 ",.01)
  1. ;;68645-0404-70
  1. ;;9002226.02101,"1733,68645-0404-70 ",.02)
  1. ;;68645-0404-70
  1. ;;9002226.02101,"1733,68645-0405-70 ",.01)
  1. ;;68645-0405-70
  1. ;;9002226.02101,"1733,68645-0405-70 ",.02)
  1. ;;68645-0405-70
  1. ;;9002226.02101,"1733,68645-0406-70 ",.01)
  1. ;;68645-0406-70
  1. ;;9002226.02101,"1733,68645-0406-70 ",.02)
  1. ;;68645-0406-70
  1. ;;9002226.02101,"1733,68645-0407-54 ",.01)
  1. ;;68645-0407-54
  1. ;;9002226.02101,"1733,68645-0407-54 ",.02)
  1. ;;68645-0407-54
  1. ;;9002226.02101,"1733,68645-0407-70 ",.01)
  1. ;;68645-0407-70
  1. ;;9002226.02101,"1733,68645-0407-70 ",.02)
  1. ;;68645-0407-70
  1. ;;9002226.02101,"1733,68645-0408-70 ",.01)
  1. ;;68645-0408-70
  1. ;;9002226.02101,"1733,68645-0408-70 ",.02)
  1. ;;68645-0408-70
  1. ;;9002226.02101,"1733,68645-0409-54 ",.01)
  1. ;;68645-0409-54
  1. ;;9002226.02101,"1733,68645-0409-54 ",.02)
  1. ;;68645-0409-54
  1. ;;9002226.02101,"1733,68645-0409-70 ",.01)
  1. ;;68645-0409-70
  1. ;;9002226.02101,"1733,68645-0409-70 ",.02)
  1. ;;68645-0409-70
  1. ;;9002226.02101,"1733,68645-0410-70 ",.01)
  1. ;;68645-0410-70
  1. ;;9002226.02101,"1733,68645-0410-70 ",.02)
  1. ;;68645-0410-70
  1. ;;9002226.02101,"1733,68645-0411-54 ",.01)
  1. ;;68645-0411-54
  1. ;;9002226.02101,"1733,68645-0411-54 ",.02)
  1. ;;68645-0411-54
  1. ;;9002226.02101,"1733,68645-0411-70 ",.01)
  1. ;;68645-0411-70
  1. ;;9002226.02101,"1733,68645-0411-70 ",.02)
  1. ;;68645-0411-70
  1. ;;9002226.02101,"1733,68645-0454-90 ",.01)
  1. ;;68645-0454-90
  1. ;;9002226.02101,"1733,68645-0454-90 ",.02)
  1. ;;68645-0454-90
  1. ;;9002226.02101,"1733,68645-0455-90 ",.01)
  1. ;;68645-0455-90
  1. ;;9002226.02101,"1733,68645-0455-90 ",.02)
  1. ;;68645-0455-90
  1. ;;9002226.02101,"1733,68645-0456-90 ",.01)
  1. ;;68645-0456-90
  1. ;;9002226.02101,"1733,68645-0456-90 ",.02)
  1. ;;68645-0456-90
  1. ;;9002226.02101,"1733,68645-0457-90 ",.01)
  1. ;;68645-0457-90
  1. ;;9002226.02101,"1733,68645-0457-90 ",.02)
  1. ;;68645-0457-90
  1. ;;9002226.02101,"1733,68645-0469-54 ",.01)
  1. ;;68645-0469-54
  1. ;;9002226.02101,"1733,68645-0469-54 ",.02)
  1. ;;68645-0469-54
  1. ;;9002226.02101,"1733,68645-0486-54 ",.01)
  1. ;;68645-0486-54
  1. ;;9002226.02101,"1733,68645-0486-54 ",.02)
  1. ;;68645-0486-54
  1. ;;9002226.02101,"1733,68645-0494-54 ",.01)
  1. ;;68645-0494-54
  1. ;;9002226.02101,"1733,68645-0494-54 ",.02)
  1. ;;68645-0494-54
  1. ;;9002226.02101,"1733,68645-0524-70 ",.01)
  1. ;;68645-0524-70
  1. ;;9002226.02101,"1733,68645-0524-70 ",.02)
  1. ;;68645-0524-70
  1. ;;9002226.02101,"1733,68645-0525-70 ",.01)
  1. ;;68645-0525-70
  1. ;;9002226.02101,"1733,68645-0525-70 ",.02)
  1. ;;68645-0525-70
  1. ;;9002226.02101,"1733,68645-0526-70 ",.01)
  1. ;;68645-0526-70
  1. ;;9002226.02101,"1733,68645-0526-70 ",.02)
  1. ;;68645-0526-70
  1. ;;9002226.02101,"1733,68645-0532-54 ",.01)
  1. ;;68645-0532-54
  1. ;;9002226.02101,"1733,68645-0532-54 ",.02)
  1. ;;68645-0532-54
  1. ;;9002226.02101,"1733,68645-0550-54 ",.01)
  1. ;;68645-0550-54
  1. ;;9002226.02101,"1733,68645-0550-54 ",.02)
  1. ;;68645-0550-54
  1. ;;9002226.02101,"1733,68645-0551-54 ",.01)
  1. ;;68645-0551-54
  1. ;;9002226.02101,"1733,68645-0551-54 ",.02)
  1. ;;68645-0551-54
  1. ;;9002226.02101,"1733,68645-0552-54 ",.01)
  1. ;;68645-0552-54
  1. ;;9002226.02101,"1733,68645-0552-54 ",.02)
  1. ;;68645-0552-54
  1. ;;9002226.02101,"1733,68645-0553-54 ",.01)
  1. ;;68645-0553-54
  1. ;;9002226.02101,"1733,68645-0553-54 ",.02)
  1. ;;68645-0553-54
  1. ;;9002226.02101,"1733,68645-0554-54 ",.01)
  1. ;;68645-0554-54
  1. ;;9002226.02101,"1733,68645-0554-54 ",.02)
  1. ;;68645-0554-54
  1. ;;9002226.02101,"1733,68645-0555-54 ",.01)
  1. ;;68645-0555-54
  1. ;;9002226.02101,"1733,68645-0555-54 ",.02)
  1. ;;68645-0555-54
  1. ;;9002226.02101,"1733,68645-0556-54 ",.01)
  1. ;;68645-0556-54
  1. ;;9002226.02101,"1733,68645-0556-54 ",.02)
  1. ;;68645-0556-54
  1. ;;9002226.02101,"1733,68645-0557-54 ",.01)
  1. ;;68645-0557-54
  1. ;;9002226.02101,"1733,68645-0557-54 ",.02)
  1. ;;68645-0557-54
  1. ;;9002226.02101,"1733,68645-0558-54 ",.01)
  1. ;;68645-0558-54
  1. ;;9002226.02101,"1733,68645-0558-54 ",.02)
  1. ;;68645-0558-54
  1. ;;9002226.02101,"1733,68682-0146-01 ",.01)
  1. ;;68682-0146-01
  1. ;;9002226.02101,"1733,68682-0146-01 ",.02)
  1. ;;68682-0146-01
  1. ;;9002226.02101,"1733,68682-0710-01 ",.01)
  1. ;;68682-0710-01
  1. ;;9002226.02101,"1733,68682-0710-01 ",.02)
  1. ;;68682-0710-01
  1. ;;9002226.02101,"1733,68682-0710-10 ",.01)
  1. ;;68682-0710-10
  1. ;;9002226.02101,"1733,68682-0710-10 ",.02)
  1. ;;68682-0710-10
  1. ;;9002226.02101,"1733,68682-0710-30 ",.01)
  1. ;;68682-0710-30
  1. ;;9002226.02101,"1733,68682-0710-30 ",.02)
  1. ;;68682-0710-30
  1. ;;9002226.02101,"1733,68682-0710-90 ",.01)
  1. ;;68682-0710-90
  1. ;;9002226.02101,"1733,68682-0710-90 ",.02)
  1. ;;68682-0710-90
  1. ;;9002226.02101,"1733,68682-0711-01 ",.01)
  1. ;;68682-0711-01
  1. ;;9002226.02101,"1733,68682-0711-01 ",.02)
  1. ;;68682-0711-01
  1. ;;9002226.02101,"1733,68682-0711-10 ",.01)
  1. ;;68682-0711-10
  1. ;;9002226.02101,"1733,68682-0711-10 ",.02)
  1. ;;68682-0711-10
  1. ;;9002226.02101,"1733,68682-0711-30 ",.01)
  1. ;;68682-0711-30
  1. ;;9002226.02101,"1733,68682-0711-30 ",.02)
  1. ;;68682-0711-30
  1. ;;9002226.02101,"1733,68682-0711-90 ",.01)
  1. ;;68682-0711-90
  1. ;;9002226.02101,"1733,68682-0711-90 ",.02)
  1. ;;68682-0711-90
  1. ;;9002226.02101,"1733,68682-0712-01 ",.01)
  1. ;;68682-0712-01
  1. ;;9002226.02101,"1733,68682-0712-01 ",.02)
  1. ;;68682-0712-01
  1. ;;9002226.02101,"1733,68682-0712-10 ",.01)
  1. ;;68682-0712-10
  1. ;;9002226.02101,"1733,68682-0712-10 ",.02)
  1. ;;68682-0712-10
  1. ;;9002226.02101,"1733,68682-0712-30 ",.01)
  1. ;;68682-0712-30
  1. ;;9002226.02101,"1733,68682-0712-30 ",.02)
  1. ;;68682-0712-30
  1. ;;9002226.02101,"1733,68682-0712-90 ",.01)
  1. ;;68682-0712-90
  1. ;;9002226.02101,"1733,68682-0712-90 ",.02)
  1. ;;68682-0712-90
  1. ;;9002226.02101,"1733,68682-0713-01 ",.01)
  1. ;;68682-0713-01
  1. ;;9002226.02101,"1733,68682-0713-01 ",.02)
  1. ;;68682-0713-01
  1. ;;9002226.02101,"1733,68682-0713-10 ",.01)
  1. ;;68682-0713-10
  1. ;;9002226.02101,"1733,68682-0713-10 ",.02)
  1. ;;68682-0713-10
  1. ;;9002226.02101,"1733,68682-0713-30 ",.01)
  1. ;;68682-0713-30
  1. ;;9002226.02101,"1733,68682-0713-30 ",.02)
  1. ;;68682-0713-30
  1. ;;9002226.02101,"1733,68682-0713-90 ",.01)
  1. ;;68682-0713-90
  1. ;;9002226.02101,"1733,68682-0713-90 ",.02)
  1. ;;68682-0713-90
  1. ;;9002226.02101,"1733,68788-0048-03 ",.01)
  1. ;;68788-0048-03
  1. ;;9002226.02101,"1733,68788-0048-03 ",.02)
  1. ;;68788-0048-03
  1. ;;9002226.02101,"1733,68788-6329-01 ",.01)
  1. ;;68788-6329-01
  1. ;;9002226.02101,"1733,68788-6329-01 ",.02)
  1. ;;68788-6329-01
  1. ;;9002226.02101,"1733,68788-6329-03 ",.01)
  1. ;;68788-6329-03
  1. ;;9002226.02101,"1733,68788-6329-03 ",.02)
  1. ;;68788-6329-03
  1. ;;9002226.02101,"1733,68788-6329-06 ",.01)
  1. ;;68788-6329-06
  1. ;;9002226.02101,"1733,68788-6329-06 ",.02)
  1. ;;68788-6329-06
  1. ;;9002226.02101,"1733,68788-6329-09 ",.01)
  1. ;;68788-6329-09
  1. ;;9002226.02101,"1733,68788-6329-09 ",.02)
  1. ;;68788-6329-09
  1. ;;9002226.02101,"1733,68788-6333-01 ",.01)
  1. ;;68788-6333-01
  1. ;;9002226.02101,"1733,68788-6333-01 ",.02)
  1. ;;68788-6333-01
  1. ;;9002226.02101,"1733,68788-6333-03 ",.01)
  1. ;;68788-6333-03
  1. ;;9002226.02101,"1733,68788-6333-03 ",.02)
  1. ;;68788-6333-03
  1. ;;9002226.02101,"1733,68788-6333-06 ",.01)
  1. ;;68788-6333-06
  1. ;;9002226.02101,"1733,68788-6333-06 ",.02)
  1. ;;68788-6333-06
  1. ;;9002226.02101,"1733,68788-6333-09 ",.01)
  1. ;;68788-6333-09
  1. ;;9002226.02101,"1733,68788-6333-09 ",.02)
  1. ;;68788-6333-09
  1. ;;9002226.02101,"1733,68788-6361-01 ",.01)
  1. ;;68788-6361-01
  1. ;;9002226.02101,"1733,68788-6361-01 ",.02)
  1. ;;68788-6361-01
  1. ;;9002226.02101,"1733,68788-6361-03 ",.01)
  1. ;;68788-6361-03
  1. ;;9002226.02101,"1733,68788-6361-03 ",.02)
  1. ;;68788-6361-03
  1. ;;9002226.02101,"1733,68788-6361-06 ",.01)
  1. ;;68788-6361-06
  1. ;;9002226.02101,"1733,68788-6361-06 ",.02)
  1. ;;68788-6361-06
  1. ;;9002226.02101,"1733,68788-6361-08 ",.01)
  1. ;;68788-6361-08
  1. ;;9002226.02101,"1733,68788-6361-08 ",.02)
  1. ;;68788-6361-08
  1. ;;9002226.02101,"1733,68788-6361-09 ",.01)
  1. ;;68788-6361-09
  1. ;;9002226.02101,"1733,68788-6361-09 ",.02)
  1. ;;68788-6361-09
  1. ;;9002226.02101,"1733,68788-6364-01 ",.01)
  1. ;;68788-6364-01
  1. ;;9002226.02101,"1733,68788-6364-01 ",.02)
  1. ;;68788-6364-01
  1. ;;9002226.02101,"1733,68788-6364-03 ",.01)
  1. ;;68788-6364-03
  1. ;;9002226.02101,"1733,68788-6364-03 ",.02)
  1. ;;68788-6364-03
  1. ;;9002226.02101,"1733,68788-6364-06 ",.01)
  1. ;;68788-6364-06
  1. ;;9002226.02101,"1733,68788-6364-06 ",.02)
  1. ;;68788-6364-06
  1. ;;9002226.02101,"1733,68788-6364-09 ",.01)
  1. ;;68788-6364-09
  1. ;;9002226.02101,"1733,68788-6364-09 ",.02)
  1. ;;68788-6364-09
  1. ;;9002226.02101,"1733,68788-6371-01 ",.01)
  1. ;;68788-6371-01
  1. ;;9002226.02101,"1733,68788-6371-01 ",.02)
  1. ;;68788-6371-01
  1. ;;9002226.02101,"1733,68788-6371-03 ",.01)
  1. ;;68788-6371-03
  1. ;;9002226.02101,"1733,68788-6371-03 ",.02)
  1. ;;68788-6371-03
  1. ;;9002226.02101,"1733,68788-6371-06 ",.01)
  1. ;;68788-6371-06
  1. ;;9002226.02101,"1733,68788-6371-06 ",.02)
  1. ;;68788-6371-06
  1. ;;9002226.02101,"1733,68788-6371-09 ",.01)
  1. ;;68788-6371-09
  1. ;;9002226.02101,"1733,68788-6371-09 ",.02)
  1. ;;68788-6371-09
  1. ;;9002226.02101,"1733,68788-6373-01 ",.01)
  1. ;;68788-6373-01
  1. ;;9002226.02101,"1733,68788-6373-01 ",.02)
  1. ;;68788-6373-01
  1. ;;9002226.02101,"1733,68788-6373-03 ",.01)
  1. ;;68788-6373-03
  1. ;;9002226.02101,"1733,68788-6373-03 ",.02)
  1. ;;68788-6373-03
  1. ;;9002226.02101,"1733,68788-6373-06 ",.01)
  1. ;;68788-6373-06
  1. ;;9002226.02101,"1733,68788-6373-06 ",.02)
  1. ;;68788-6373-06
  1. ;;9002226.02101,"1733,68788-6373-09 ",.01)
  1. ;;68788-6373-09
  1. ;;9002226.02101,"1733,68788-6373-09 ",.02)
  1. ;;68788-6373-09
  1. ;;9002226.02101,"1733,68788-6405-01 ",.01)
  1. ;;68788-6405-01
  1. ;;9002226.02101,"1733,68788-6405-01 ",.02)
  1. ;;68788-6405-01
  1. ;;9002226.02101,"1733,68788-6405-03 ",.01)
  1. ;;68788-6405-03
  1. ;;9002226.02101,"1733,68788-6405-03 ",.02)
  1. ;;68788-6405-03
  1. ;;9002226.02101,"1733,68788-6405-06 ",.01)
  1. ;;68788-6405-06
  1. ;;9002226.02101,"1733,68788-6405-06 ",.02)
  1. ;;68788-6405-06
  1. ;;9002226.02101,"1733,68788-6405-09 ",.01)
  1. ;;68788-6405-09
  1. ;;9002226.02101,"1733,68788-6405-09 ",.02)
  1. ;;68788-6405-09
  1. ;;9002226.02101,"1733,68788-6407-01 ",.01)
  1. ;;68788-6407-01
  1. ;;9002226.02101,"1733,68788-6407-01 ",.02)
  1. ;;68788-6407-01
  1. ;;9002226.02101,"1733,68788-6407-03 ",.01)
  1. ;;68788-6407-03
  1. ;;9002226.02101,"1733,68788-6407-03 ",.02)
  1. ;;68788-6407-03
  1. ;;9002226.02101,"1733,68788-6407-06 ",.01)
  1. ;;68788-6407-06
  1. ;;9002226.02101,"1733,68788-6407-06 ",.02)
  1. ;;68788-6407-06
  1. ;;9002226.02101,"1733,68788-6407-09 ",.01)
  1. ;;68788-6407-09
  1. ;;9002226.02101,"1733,68788-6407-09 ",.02)
  1. ;;68788-6407-09
  1. ;;9002226.02101,"1733,68788-6418-01 ",.01)
  1. ;;68788-6418-01
  1. ;;9002226.02101,"1733,68788-6418-01 ",.02)
  1. ;;68788-6418-01
  1. ;;9002226.02101,"1733,68788-6418-03 ",.01)
  1. ;;68788-6418-03
  1. ;;9002226.02101,"1733,68788-6418-03 ",.02)
  1. ;;68788-6418-03
  1. ;;9002226.02101,"1733,68788-6418-06 ",.01)
  1. ;;68788-6418-06
  1. ;;9002226.02101,"1733,68788-6418-06 ",.02)
  1. ;;68788-6418-06
  1. ;;9002226.02101,"1733,68788-6418-09 ",.01)
  1. ;;68788-6418-09
  1. ;;9002226.02101,"1733,68788-6418-09 ",.02)
  1. ;;68788-6418-09
  1. ;;9002226.02101,"1733,68788-6445-01 ",.01)
  1. ;;68788-6445-01
  1. ;;9002226.02101,"1733,68788-6445-01 ",.02)
  1. ;;68788-6445-01
  1. ;;9002226.02101,"1733,68788-6445-03 ",.01)
  1. ;;68788-6445-03
  1. ;;9002226.02101,"1733,68788-6445-03 ",.02)
  1. ;;68788-6445-03
  1. ;;9002226.02101,"1733,68788-6445-06 ",.01)
  1. ;;68788-6445-06
  1. ;;9002226.02101,"1733,68788-6445-06 ",.02)
  1. ;;68788-6445-06
  1. ;;9002226.02101,"1733,68788-6445-09 ",.01)
  1. ;;68788-6445-09
  1. ;;9002226.02101,"1733,68788-6445-09 ",.02)
  1. ;;68788-6445-09
  1. ;;9002226.02101,"1733,68788-6452-01 ",.01)
  1. ;;68788-6452-01