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

BGP31Y2.m

Go to the documentation of this file.
  1. BGP31Y2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 09, 2012;
  1. ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81
  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,"1749,44871-2 ",.01)
  1. ;;44871-2
  1. ;;9002226.02101,"1749,44871-2 ",.02)
  1. ;;44871-2
  1. ;;9002226.02101,"1749,44872-0 ",.01)
  1. ;;44872-0
  1. ;;9002226.02101,"1749,44872-0 ",.02)
  1. ;;44872-0
  1. ;;9002226.02101,"1749,44873-8 ",.01)
  1. ;;44873-8
  1. ;;9002226.02101,"1749,44873-8 ",.02)
  1. ;;44873-8
  1. ;;9002226.02101,"1749,48023-6 ",.01)
  1. ;;48023-6
  1. ;;9002226.02101,"1749,48023-6 ",.02)
  1. ;;48023-6
  1. ;;9002226.02101,"1749,48345-3 ",.01)
  1. ;;48345-3
  1. ;;9002226.02101,"1749,48345-3 ",.02)
  1. ;;48345-3
  1. ;;9002226.02101,"1749,48346-1 ",.01)
  1. ;;48346-1
  1. ;;9002226.02101,"1749,48346-1 ",.02)
  1. ;;48346-1
  1. ;;9002226.02101,"1749,49483-1 ",.01)
  1. ;;49483-1
  1. ;;9002226.02101,"1749,49483-1 ",.02)
  1. ;;49483-1
  1. ;;9002226.02101,"1749,49580-4 ",.01)
  1. ;;49580-4
  1. ;;9002226.02101,"1749,49580-4 ",.02)
  1. ;;49580-4
  1. ;;9002226.02101,"1749,49718-0 ",.01)
  1. ;;49718-0
  1. ;;9002226.02101,"1749,49718-0 ",.02)
  1. ;;49718-0
  1. ;;9002226.02101,"1749,49905-3 ",.01)
  1. ;;49905-3
  1. ;;9002226.02101,"1749,49905-3 ",.02)
  1. ;;49905-3
  1. ;;9002226.02101,"1749,49965-7 ",.01)
  1. ;;49965-7
  1. ;;9002226.02101,"1749,49965-7 ",.02)
  1. ;;49965-7
  1. ;;9002226.02101,"1749,51866-2 ",.01)
  1. ;;51866-2
  1. ;;9002226.02101,"1749,51866-2 ",.02)
  1. ;;51866-2
  1. ;;9002226.02101,"1749,5220-9 ",.01)
  1. ;;5220-9
  1. ;;9002226.02101,"1749,5220-9 ",.02)
  1. ;;5220-9
  1. ;;9002226.02101,"1749,5221-7 ",.01)
  1. ;;5221-7
  1. ;;9002226.02101,"1749,5221-7 ",.02)
  1. ;;5221-7
  1. ;;9002226.02101,"1749,5222-5 ",.01)
  1. ;;5222-5
  1. ;;9002226.02101,"1749,5222-5 ",.02)
  1. ;;5222-5
  1. ;;9002226.02101,"1749,5223-3 ",.01)
  1. ;;5223-3
  1. ;;9002226.02101,"1749,5223-3 ",.02)
  1. ;;5223-3
  1. ;;9002226.02101,"1749,53379-4 ",.01)
  1. ;;53379-4
  1. ;;9002226.02101,"1749,53379-4 ",.02)
  1. ;;53379-4
  1. ;;9002226.02101,"1749,53601-1 ",.01)
  1. ;;53601-1
  1. ;;9002226.02101,"1749,53601-1 ",.02)
  1. ;;53601-1
  1. ;;9002226.02101,"1749,53825-6 ",.01)
  1. ;;53825-6
  1. ;;9002226.02101,"1749,53825-6 ",.02)
  1. ;;53825-6
  1. ;;9002226.02101,"1749,54086-4 ",.01)
  1. ;;54086-4
  1. ;;9002226.02101,"1749,54086-4 ",.02)
  1. ;;54086-4
  1. ;;9002226.02101,"1749,56888-1 ",.01)
  1. ;;56888-1
  1. ;;9002226.02101,"1749,56888-1 ",.02)
  1. ;;56888-1
  1. ;;9002226.02101,"1749,57974-8 ",.01)
  1. ;;57974-8
  1. ;;9002226.02101,"1749,57974-8 ",.02)
  1. ;;57974-8
  1. ;;9002226.02101,"1749,57975-5 ",.01)
  1. ;;57975-5
  1. ;;9002226.02101,"1749,57975-5 ",.02)
  1. ;;57975-5
  1. ;;9002226.02101,"1749,58900-2 ",.01)
  1. ;;58900-2
  1. ;;9002226.02101,"1749,58900-2 ",.02)
  1. ;;58900-2
  1. ;;9002226.02101,"1749,59052-1 ",.01)
  1. ;;59052-1
  1. ;;9002226.02101,"1749,59052-1 ",.02)
  1. ;;59052-1
  1. ;;9002226.02101,"1749,59419-2 ",.01)
  1. ;;59419-2
  1. ;;9002226.02101,"1749,59419-2 ",.02)
  1. ;;59419-2
  1. ;;9002226.02101,"1749,6429-5 ",.01)
  1. ;;6429-5
  1. ;;9002226.02101,"1749,6429-5 ",.02)
  1. ;;6429-5
  1. ;;9002226.02101,"1749,6430-3 ",.01)
  1. ;;6430-3
  1. ;;9002226.02101,"1749,6430-3 ",.02)
  1. ;;6430-3
  1. ;;9002226.02101,"1749,6431-1 ",.01)
  1. ;;6431-1
  1. ;;9002226.02101,"1749,6431-1 ",.02)
  1. ;;6431-1
  1. ;;9002226.02101,"1749,68961-2 ",.01)
  1. ;;68961-2
  1. ;;9002226.02101,"1749,68961-2 ",.02)
  1. ;;68961-2
  1. ;;9002226.02101,"1749,7917-8 ",.01)
  1. ;;7917-8
  1. ;;9002226.02101,"1749,7917-8 ",.02)
  1. ;;7917-8
  1. ;;9002226.02101,"1749,7918-6 ",.01)
  1. ;;7918-6
  1. ;;9002226.02101,"1749,7918-6 ",.02)
  1. ;;7918-6
  1. ;;9002226.02101,"1749,9660-2 ",.01)
  1. ;;9660-2
  1. ;;9002226.02101,"1749,9660-2 ",.02)
  1. ;;9660-2
  1. ;;9002226.02101,"1749,9661-0 ",.01)
  1. ;;9661-0
  1. ;;9002226.02101,"1749,9661-0 ",.02)
  1. ;;9661-0
  1. ;;9002226.02101,"1749,9662-8 ",.01)
  1. ;;9662-8
  1. ;;9002226.02101,"1749,9662-8 ",.02)
  1. ;;9662-8
  1. ;;9002226.02101,"1749,9663-6 ",.01)
  1. ;;9663-6
  1. ;;9002226.02101,"1749,9663-6 ",.02)
  1. ;;9663-6
  1. ;;9002226.02101,"1749,9664-4 ",.01)
  1. ;;9664-4
  1. ;;9002226.02101,"1749,9664-4 ",.02)
  1. ;;9664-4
  1. ;;9002226.02101,"1749,9665-1 ",.01)
  1. ;;9665-1
  1. ;;9002226.02101,"1749,9665-1 ",.02)
  1. ;;9665-1
  1. ;;9002226.02101,"1749,9666-9 ",.01)
  1. ;;9666-9
  1. ;;9002226.02101,"1749,9666-9 ",.02)
  1. ;;9666-9
  1. ;;9002226.02101,"1749,9667-7 ",.01)
  1. ;;9667-7
  1. ;;9002226.02101,"1749,9667-7 ",.02)
  1. ;;9667-7
  1. ;;9002226.02101,"1749,9668-5 ",.01)
  1. ;;9668-5
  1. ;;9002226.02101,"1749,9668-5 ",.02)
  1. ;;9668-5
  1. ;;9002226.02101,"1749,9669-3 ",.01)
  1. ;;9669-3
  1. ;;9002226.02101,"1749,9669-3 ",.02)
  1. ;;9669-3
  1. ;;9002226.02101,"1749,9821-0 ",.01)
  1. ;;9821-0
  1. ;;9002226.02101,"1749,9821-0 ",.02)
  1. ;;9821-0
  1. ;;9002226.02101,"1749,9836-8 ",.01)
  1. ;;9836-8
  1. ;;9002226.02101,"1749,9836-8 ",.02)
  1. ;;9836-8
  1. ;;9002226.02101,"1749,9837-6 ",.01)
  1. ;;9837-6
  1. ;;9002226.02101,"1749,9837-6 ",.02)
  1. ;;9837-6