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