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

BGPM5AYB.m

Go to the documentation of this file.
  1. BGPM5AYB ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 31, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  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,"1016,26009-1 ",.01)
  1. ;;26009-1
  1. ;;9002226.02101,"1016,26009-1 ",.02)
  1. ;;26009-1
  1. ;;9002226.02101,"1016,29311-8 ",.01)
  1. ;;29311-8
  1. ;;9002226.02101,"1016,29311-8 ",.02)
  1. ;;29311-8
  1. ;;9002226.02101,"1016,30167-1 ",.01)
  1. ;;30167-1
  1. ;;9002226.02101,"1016,30167-1 ",.02)
  1. ;;30167-1
  1. ;;9002226.02101,"1016,31147-2 ",.01)
  1. ;;31147-2
  1. ;;9002226.02101,"1016,31147-2 ",.02)
  1. ;;31147-2
  1. ;;9002226.02101,"1016,31905-3 ",.01)
  1. ;;31905-3
  1. ;;9002226.02101,"1016,31905-3 ",.02)
  1. ;;31905-3
  1. ;;9002226.02101,"1016,31906-1 ",.01)
  1. ;;31906-1
  1. ;;9002226.02101,"1016,31906-1 ",.02)
  1. ;;31906-1
  1. ;;9002226.02101,"1016,31993-9 ",.01)
  1. ;;31993-9
  1. ;;9002226.02101,"1016,31993-9 ",.02)
  1. ;;31993-9
  1. ;;9002226.02101,"1016,32198-4 ",.01)
  1. ;;32198-4
  1. ;;9002226.02101,"1016,32198-4 ",.02)
  1. ;;32198-4
  1. ;;9002226.02101,"1016,32199-2 ",.01)
  1. ;;32199-2
  1. ;;9002226.02101,"1016,32199-2 ",.02)
  1. ;;32199-2
  1. ;;9002226.02101,"1016,32705-6 ",.01)
  1. ;;32705-6
  1. ;;9002226.02101,"1016,32705-6 ",.02)
  1. ;;32705-6
  1. ;;9002226.02101,"1016,34147-9 ",.01)
  1. ;;34147-9
  1. ;;9002226.02101,"1016,34147-9 ",.02)
  1. ;;34147-9
  1. ;;9002226.02101,"1016,34382-2 ",.01)
  1. ;;34382-2
  1. ;;9002226.02101,"1016,34382-2 ",.02)
  1. ;;34382-2
  1. ;;9002226.02101,"1016,34493-7 ",.01)
  1. ;;34493-7
  1. ;;9002226.02101,"1016,34493-7 ",.02)
  1. ;;34493-7
  1. ;;9002226.02101,"1016,34656-9 ",.01)
  1. ;;34656-9
  1. ;;9002226.02101,"1016,34656-9 ",.02)
  1. ;;34656-9
  1. ;;9002226.02101,"1016,34718-7 ",.01)
  1. ;;34718-7
  1. ;;9002226.02101,"1016,34718-7 ",.02)
  1. ;;34718-7
  1. ;;9002226.02101,"1016,35457-1 ",.01)
  1. ;;35457-1
  1. ;;9002226.02101,"1016,35457-1 ",.02)
  1. ;;35457-1
  1. ;;9002226.02101,"1016,36902-5 ",.01)
  1. ;;36902-5
  1. ;;9002226.02101,"1016,36902-5 ",.02)
  1. ;;36902-5
  1. ;;9002226.02101,"1016,36903-3 ",.01)
  1. ;;36903-3
  1. ;;9002226.02101,"1016,36903-3 ",.02)
  1. ;;36903-3
  1. ;;9002226.02101,"1016,38372-9 ",.01)
  1. ;;38372-9
  1. ;;9002226.02101,"1016,38372-9 ",.02)
  1. ;;38372-9
  1. ;;9002226.02101,"1016,40679-3 ",.01)
  1. ;;40679-3
  1. ;;9002226.02101,"1016,40679-3 ",.02)
  1. ;;40679-3
  1. ;;9002226.02101,"1016,40680-1 ",.01)
  1. ;;40680-1
  1. ;;9002226.02101,"1016,40680-1 ",.02)
  1. ;;40680-1
  1. ;;9002226.02101,"1016,41273-4 ",.01)
  1. ;;41273-4
  1. ;;9002226.02101,"1016,41273-4 ",.02)
  1. ;;41273-4
  1. ;;9002226.02101,"1016,41274-2 ",.01)
  1. ;;41274-2
  1. ;;9002226.02101,"1016,41274-2 ",.02)
  1. ;;41274-2
  1. ;;9002226.02101,"1016,42316-0 ",.01)
  1. ;;42316-0
  1. ;;9002226.02101,"1016,42316-0 ",.02)
  1. ;;42316-0
  1. ;;9002226.02101,"1016,42481-2 ",.01)
  1. ;;42481-2
  1. ;;9002226.02101,"1016,42481-2 ",.02)
  1. ;;42481-2
  1. ;;9002226.02101,"1016,42931-6 ",.01)
  1. ;;42931-6
  1. ;;9002226.02101,"1016,42931-6 ",.02)
  1. ;;42931-6
  1. ;;9002226.02101,"1016,43304-5 ",.01)
  1. ;;43304-5
  1. ;;9002226.02101,"1016,43304-5 ",.02)
  1. ;;43304-5
  1. ;;9002226.02101,"1016,43305-2 ",.01)
  1. ;;43305-2
  1. ;;9002226.02101,"1016,43305-2 ",.02)
  1. ;;43305-2
  1. ;;9002226.02101,"1016,43403-5 ",.01)
  1. ;;43403-5
  1. ;;9002226.02101,"1016,43403-5 ",.02)
  1. ;;43403-5
  1. ;;9002226.02101,"1016,43404-3 ",.01)
  1. ;;43404-3
  1. ;;9002226.02101,"1016,43404-3 ",.02)
  1. ;;43404-3
  1. ;;9002226.02101,"1016,43406-8 ",.01)
  1. ;;43406-8
  1. ;;9002226.02101,"1016,43406-8 ",.02)
  1. ;;43406-8
  1. ;;9002226.02101,"1016,43798-8 ",.01)
  1. ;;43798-8
  1. ;;9002226.02101,"1016,43798-8 ",.02)
  1. ;;43798-8
  1. ;;9002226.02101,"1016,44543-7 ",.01)
  1. ;;44543-7
  1. ;;9002226.02101,"1016,44543-7 ",.02)
  1. ;;44543-7
  1. ;;9002226.02101,"1016,44544-5 ",.01)
  1. ;;44544-5
  1. ;;9002226.02101,"1016,44544-5 ",.02)
  1. ;;44544-5
  1. ;;9002226.02101,"1016,44546-0 ",.01)
  1. ;;44546-0
  1. ;;9002226.02101,"1016,44546-0 ",.02)
  1. ;;44546-0
  1. ;;9002226.02101,"1016,44547-8 ",.01)
  1. ;;44547-8
  1. ;;9002226.02101,"1016,44547-8 ",.02)
  1. ;;44547-8
  1. ;;9002226.02101,"1016,44549-4 ",.01)
  1. ;;44549-4
  1. ;;9002226.02101,"1016,44549-4 ",.02)
  1. ;;44549-4
  1. ;;9002226.02101,"1016,44550-2 ",.01)
  1. ;;44550-2
  1. ;;9002226.02101,"1016,44550-2 ",.02)
  1. ;;44550-2
  1. ;;9002226.02101,"1016,44806-8 ",.01)
  1. ;;44806-8
  1. ;;9002226.02101,"1016,44806-8 ",.02)
  1. ;;44806-8
  1. ;;9002226.02101,"1016,44807-6 ",.01)
  1. ;;44807-6
  1. ;;9002226.02101,"1016,44807-6 ",.02)
  1. ;;44807-6
  1. ;;9002226.02101,"1016,45067-6 ",.01)
  1. ;;45067-6
  1. ;;9002226.02101,"1016,45067-6 ",.02)
  1. ;;45067-6
  1. ;;9002226.02101,"1016,45068-4 ",.01)
  1. ;;45068-4
  1. ;;9002226.02101,"1016,45068-4 ",.02)
  1. ;;45068-4
  1. ;;9002226.02101,"1016,45069-2 ",.01)
  1. ;;45069-2
  1. ;;9002226.02101,"1016,45069-2 ",.02)
  1. ;;45069-2
  1. ;;9002226.02101,"1016,45070-0 ",.01)
  1. ;;45070-0
  1. ;;9002226.02101,"1016,45070-0 ",.02)
  1. ;;45070-0
  1. ;;9002226.02101,"1016,45074-2 ",.01)
  1. ;;45074-2
  1. ;;9002226.02101,"1016,45074-2 ",.02)
  1. ;;45074-2
  1. ;;9002226.02101,"1016,45076-7 ",.01)
  1. ;;45076-7
  1. ;;9002226.02101,"1016,45076-7 ",.02)
  1. ;;45076-7
  1. ;;9002226.02101,"1016,45078-3 ",.01)
  1. ;;45078-3
  1. ;;9002226.02101,"1016,45078-3 ",.02)
  1. ;;45078-3
  1. ;;9002226.02101,"1016,45080-9 ",.01)
  1. ;;45080-9
  1. ;;9002226.02101,"1016,45080-9 ",.02)
  1. ;;45080-9
  1. ;;9002226.02101,"1016,45084-1 ",.01)
  1. ;;45084-1
  1. ;;9002226.02101,"1016,45084-1 ",.02)
  1. ;;45084-1
  1. ;;9002226.02101,"1016,45091-6 ",.01)
  1. ;;45091-6
  1. ;;9002226.02101,"1016,45091-6 ",.02)
  1. ;;45091-6
  1. ;;9002226.02101,"1016,45095-7 ",.01)
  1. ;;45095-7
  1. ;;9002226.02101,"1016,45095-7 ",.02)
  1. ;;45095-7
  1. ;;9002226.02101,"1016,45098-1 ",.01)
  1. ;;45098-1
  1. ;;9002226.02101,"1016,45098-1 ",.02)
  1. ;;45098-1
  1. ;;9002226.02101,"1016,45100-5 ",.01)
  1. ;;45100-5
  1. ;;9002226.02101,"1016,45100-5 ",.02)
  1. ;;45100-5
  1. ;;9002226.02101,"1016,45327-4 ",.01)
  1. ;;45327-4
  1. ;;9002226.02101,"1016,45327-4 ",.02)
  1. ;;45327-4
  1. ;;9002226.02101,"1016,45331-6 ",.01)
  1. ;;45331-6
  1. ;;9002226.02101,"1016,45331-6 ",.02)
  1. ;;45331-6
  1. ;;9002226.02101,"1016,45332-4 ",.01)
  1. ;;45332-4
  1. ;;9002226.02101,"1016,45332-4 ",.02)
  1. ;;45332-4
  1. ;;9002226.02101,"1016,46731-6 ",.01)
  1. ;;46731-6
  1. ;;9002226.02101,"1016,46731-6 ",.02)
  1. ;;46731-6
  1. ;;9002226.02101,"1016,46989-0 ",.01)
  1. ;;46989-0
  1. ;;9002226.02101,"1016,46989-0 ",.02)
  1. ;;46989-0
  1. ;;9002226.02101,"1016,47211-8 ",.01)
  1. ;;47211-8
  1. ;;9002226.02101,"1016,47211-8 ",.02)
  1. ;;47211-8
  1. ;;9002226.02101,"1016,47212-6 ",.01)
  1. ;;47212-6
  1. ;;9002226.02101,"1016,47212-6 ",.02)
  1. ;;47212-6
  1. ;;9002226.02101,"1016,47236-5 ",.01)
  1. ;;47236-5
  1. ;;9002226.02101,"1016,47236-5 ",.02)
  1. ;;47236-5
  1. ;;9002226.02101,"1016,47237-3 ",.01)
  1. ;;47237-3
  1. ;;9002226.02101,"1016,47237-3 ",.02)
  1. ;;47237-3
  1. ;;9002226.02101,"1016,47238-1 ",.01)
  1. ;;47238-1
  1. ;;9002226.02101,"1016,47238-1 ",.02)
  1. ;;47238-1
  1. ;;9002226.02101,"1016,47387-6 ",.01)
  1. ;;47387-6
  1. ;;9002226.02101,"1016,47387-6 ",.02)
  1. ;;47387-6
  1. ;;9002226.02101,"1016,48030-1 ",.01)
  1. ;;48030-1
  1. ;;9002226.02101,"1016,48030-1 ",.02)
  1. ;;48030-1
  1. ;;9002226.02101,"1016,48039-2 ",.01)
  1. ;;48039-2
  1. ;;9002226.02101,"1016,48039-2 ",.02)
  1. ;;48039-2
  1. ;;9002226.02101,"1016,48560-7 ",.01)
  1. ;;48560-7
  1. ;;9002226.02101,"1016,48560-7 ",.02)
  1. ;;48560-7
  1. ;;9002226.02101,"1016,48781-9 ",.01)
  1. ;;48781-9
  1. ;;9002226.02101,"1016,48781-9 ",.02)
  1. ;;48781-9
  1. ;;9002226.02101,"1016,49096-1 ",.01)
  1. ;;49096-1
  1. ;;9002226.02101,"1016,49096-1 ",.02)
  1. ;;49096-1
  1. ;;9002226.02101,"1016,49246-2 ",.01)
  1. ;;49246-2
  1. ;;9002226.02101,"1016,49246-2 ",.02)
  1. ;;49246-2
  1. ;;9002226.02101,"1016,49318-9 ",.01)
  1. ;;49318-9
  1. ;;9002226.02101,"1016,49318-9 ",.02)
  1. ;;49318-9
  1. ;;9002226.02101,"1016,49891-5 ",.01)
  1. ;;49891-5
  1. ;;9002226.02101,"1016,49891-5 ",.02)
  1. ;;49891-5
  1. ;;9002226.02101,"1016,49896-4 ",.01)
  1. ;;49896-4
  1. ;;9002226.02101,"1016,49896-4 ",.02)
  1. ;;49896-4
  1. ;;9002226.02101,"1016,5028-6 ",.01)
  1. ;;5028-6
  1. ;;9002226.02101,"1016,5028-6 ",.02)
  1. ;;5028-6
  1. ;;9002226.02101,"1016,50388-8 ",.01)
  1. ;;50388-8
  1. ;;9002226.02101,"1016,50388-8 ",.02)
  1. ;;50388-8
  1. ;;9002226.02101,"1016,50690-7 ",.01)
  1. ;;50690-7
  1. ;;9002226.02101,"1016,50690-7 ",.02)
  1. ;;50690-7
  1. ;;9002226.02101,"1016,51838-1 ",.01)
  1. ;;51838-1
  1. ;;9002226.02101,"1016,51838-1 ",.02)
  1. ;;51838-1
  1. ;;9002226.02101,"1016,51839-9 ",.01)
  1. ;;51839-9
  1. ;;9002226.02101,"1016,51839-9 ",.02)
  1. ;;51839-9
  1. ;;9002226.02101,"1016,5291-0 ",.01)
  1. ;;5291-0
  1. ;;9002226.02101,"1016,5291-0 ",.02)
  1. ;;5291-0
  1. ;;9002226.02101,"1016,5292-8 ",.01)
  1. ;;5292-8
  1. ;;9002226.02101,"1016,5292-8 ",.02)
  1. ;;5292-8
  1. ;;9002226.02101,"1016,53605-2 ",.01)
  1. ;;53605-2
  1. ;;9002226.02101,"1016,53605-2 ",.02)
  1. ;;53605-2
  1. ;;9002226.02101,"1016,53762-1 ",.01)
  1. ;;53762-1
  1. ;;9002226.02101,"1016,53762-1 ",.02)
  1. ;;53762-1
  1. ;;9002226.02101,"1016,53879-3 ",.01)
  1. ;;53879-3
  1. ;;9002226.02101,"1016,53879-3 ",.02)
  1. ;;53879-3
  1. ;;9002226.02101,"1016,5392-6 ",.01)
  1. ;;5392-6
  1. ;;9002226.02101,"1016,5392-6 ",.02)
  1. ;;5392-6
  1. ;;9002226.02101,"1016,53927-0 ",.01)
  1. ;;53927-0
  1. ;;9002226.02101,"1016,53927-0 ",.02)
  1. ;;53927-0
  1. ;;9002226.02101,"1016,5393-4 ",.01)
  1. ;;5393-4
  1. ;;9002226.02101,"1016,5393-4 ",.02)
  1. ;;5393-4
  1. ;;9002226.02101,"1016,5394-2 ",.01)
  1. ;;5394-2
  1. ;;9002226.02101,"1016,5394-2 ",.02)
  1. ;;5394-2
  1. ;;9002226.02101,"1016,55299-2 ",.01)
  1. ;;55299-2
  1. ;;9002226.02101,"1016,55299-2 ",.02)
  1. ;;55299-2
  1. ;;9002226.02101,"1016,557-9 ",.01)
  1. ;;557-9
  1. ;;9002226.02101,"1016,557-9 ",.02)
  1. ;;557-9
  1. ;;9002226.02101,"1016,560-3 ",.01)
  1. ;;560-3
  1. ;;9002226.02101,"1016,560-3 ",.02)
  1. ;;560-3
  1. ;;9002226.02101,"1016,6487-3 ",.01)
  1. ;;6487-3
  1. ;;9002226.02101,"1016,6487-3 ",.02)
  1. ;;6487-3
  1. ;;9002226.02101,"1016,6488-1 ",.01)
  1. ;;6488-1
  1. ;;9002226.02101,"1016,6488-1 ",.02)
  1. ;;6488-1
  1. ;;9002226.02101,"1016,6489-9 ",.01)
  1. ;;6489-9
  1. ;;9002226.02101,"1016,6489-9 ",.02)
  1. ;;6489-9
  1. ;;9002226.02101,"1016,6510-2 ",.01)
  1. ;;6510-2
  1. ;;9002226.02101,"1016,6510-2 ",.02)
  1. ;;6510-2
  1. ;;9002226.02101,"1016,6511-0 ",.01)
  1. ;;6511-0
  1. ;;9002226.02101,"1016,6511-0 ",.02)
  1. ;;6511-0
  1. ;;9002226.02101,"1016,6514-4 ",.01)
  1. ;;6514-4
  1. ;;9002226.02101,"1016,6514-4 ",.02)
  1. ;;6514-4
  1. ;;9002226.02101,"1016,6516-9 ",.01)
  1. ;;6516-9
  1. ;;9002226.02101,"1016,6516-9 ",.02)
  1. ;;6516-9
  1. ;;9002226.02101,"1016,6561-5 ",.01)
  1. ;;6561-5
  1. ;;9002226.02101,"1016,6561-5 ",.02)
  1. ;;6561-5
  1. ;;9002226.02101,"1016,6562-3 ",.01)
  1. ;;6562-3
  1. ;;9002226.02101,"1016,6562-3 ",.02)
  1. ;;6562-3
  1. ;;9002226.02101,"1016,660-1 ",.01)
  1. ;;660-1
  1. ;;9002226.02101,"1016,660-1 ",.02)
  1. ;;660-1
  1. ;;9002226.02101,"1016,688-2 ",.01)
  1. ;;688-2
  1. ;;9002226.02101,"1016,688-2 ",.02)
  1. ;;688-2
  1. ;;9002226.02101,"1016,690-8 ",.01)
  1. ;;690-8
  1. ;;9002226.02101,"1016,690-8 ",.02)
  1. ;;690-8
  1. ;;9002226.02101,"1016,691-6 ",.01)
  1. ;;691-6
  1. ;;9002226.02101,"1016,691-6 ",.02)
  1. ;;691-6
  1. ;;9002226.02101,"1016,692-4 ",.01)
  1. ;;692-4
  1. ;;9002226.02101,"1016,692-4 ",.02)
  1. ;;692-4
  1. ;;9002226.02101,"1016,693-2 ",.01)
  1. ;;693-2
  1. ;;9002226.02101,"1016,693-2 ",.02)
  1. ;;693-2
  1. ;;9002226.02101,"1016,698-1 ",.01)
  1. ;;698-1
  1. ;;9002226.02101,"1016,698-1 ",.02)
  1. ;;698-1
  1. ;;9002226.02101,"1016,7975-6 ",.01)
  1. ;;7975-6
  1. ;;9002226.02101,"1016,7975-6 ",.02)
  1. ;;7975-6
  1. ;;9002226.02101,"1016,8041-6 ",.01)
  1. ;;8041-6
  1. ;;9002226.02101,"1016,8041-6 ",.02)
  1. ;;8041-6