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

BGP7JXFD.m

Go to the documentation of this file.
BGP7JXFD ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 10, 2006 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
 ;
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,"549,40162-0 ",.01)
 ;;40162-0
 ;;9002226.02101,"549,40162-0 ",.02)
 ;;40162-0
 ;;9002226.02101,"549,40163-8 ",.01)
 ;;40163-8
 ;;9002226.02101,"549,40163-8 ",.02)
 ;;40163-8
 ;;9002226.02101,"549,40164-6 ",.01)
 ;;40164-6
 ;;9002226.02101,"549,40164-6 ",.02)
 ;;40164-6
 ;;9002226.02101,"549,40165-3 ",.01)
 ;;40165-3
 ;;9002226.02101,"549,40165-3 ",.02)
 ;;40165-3
 ;;9002226.02101,"549,40166-1 ",.01)
 ;;40166-1
 ;;9002226.02101,"549,40166-1 ",.02)
 ;;40166-1
 ;;9002226.02101,"549,40167-9 ",.01)
 ;;40167-9
 ;;9002226.02101,"549,40167-9 ",.02)
 ;;40167-9
 ;;9002226.02101,"549,40168-7 ",.01)
 ;;40168-7
 ;;9002226.02101,"549,40168-7 ",.02)
 ;;40168-7
 ;;9002226.02101,"549,40169-5 ",.01)
 ;;40169-5
 ;;9002226.02101,"549,40169-5 ",.02)
 ;;40169-5
 ;;9002226.02101,"549,40170-3 ",.01)
 ;;40170-3
 ;;9002226.02101,"549,40170-3 ",.02)
 ;;40170-3
 ;;9002226.02101,"549,40171-1 ",.01)
 ;;40171-1
 ;;9002226.02101,"549,40171-1 ",.02)
 ;;40171-1
 ;;9002226.02101,"549,40172-9 ",.01)
 ;;40172-9
 ;;9002226.02101,"549,40172-9 ",.02)
 ;;40172-9
 ;;9002226.02101,"549,40173-7 ",.01)
 ;;40173-7
 ;;9002226.02101,"549,40173-7 ",.02)
 ;;40173-7
 ;;9002226.02101,"549,40174-5 ",.01)
 ;;40174-5
 ;;9002226.02101,"549,40174-5 ",.02)
 ;;40174-5
 ;;9002226.02101,"549,40175-2 ",.01)
 ;;40175-2
 ;;9002226.02101,"549,40175-2 ",.02)
 ;;40175-2
 ;;9002226.02101,"549,40176-0 ",.01)
 ;;40176-0
 ;;9002226.02101,"549,40176-0 ",.02)
 ;;40176-0
 ;;9002226.02101,"549,40177-8 ",.01)
 ;;40177-8
 ;;9002226.02101,"549,40177-8 ",.02)
 ;;40177-8
 ;;9002226.02101,"549,40178-6 ",.01)
 ;;40178-6
 ;;9002226.02101,"549,40178-6 ",.02)
 ;;40178-6
 ;;9002226.02101,"549,40179-4 ",.01)
 ;;40179-4
 ;;9002226.02101,"549,40179-4 ",.02)
 ;;40179-4
 ;;9002226.02101,"549,40180-2 ",.01)
 ;;40180-2
 ;;9002226.02101,"549,40180-2 ",.02)
 ;;40180-2
 ;;9002226.02101,"549,40181-0 ",.01)
 ;;40181-0
 ;;9002226.02101,"549,40181-0 ",.02)
 ;;40181-0
 ;;9002226.02101,"549,40182-8 ",.01)
 ;;40182-8
 ;;9002226.02101,"549,40182-8 ",.02)
 ;;40182-8
 ;;9002226.02101,"549,40183-6 ",.01)
 ;;40183-6
 ;;9002226.02101,"549,40183-6 ",.02)
 ;;40183-6
 ;;9002226.02101,"549,40184-4 ",.01)
 ;;40184-4
 ;;9002226.02101,"549,40184-4 ",.02)
 ;;40184-4
 ;;9002226.02101,"549,40185-1 ",.01)
 ;;40185-1
 ;;9002226.02101,"549,40185-1 ",.02)
 ;;40185-1
 ;;9002226.02101,"549,40186-9 ",.01)
 ;;40186-9
 ;;9002226.02101,"549,40186-9 ",.02)
 ;;40186-9
 ;;9002226.02101,"549,40187-7 ",.01)
 ;;40187-7
 ;;9002226.02101,"549,40187-7 ",.02)
 ;;40187-7
 ;;9002226.02101,"549,40188-5 ",.01)
 ;;40188-5
 ;;9002226.02101,"549,40188-5 ",.02)
 ;;40188-5
 ;;9002226.02101,"549,40189-3 ",.01)
 ;;40189-3
 ;;9002226.02101,"549,40189-3 ",.02)
 ;;40189-3
 ;;9002226.02101,"549,40190-1 ",.01)
 ;;40190-1
 ;;9002226.02101,"549,40190-1 ",.02)
 ;;40190-1
 ;;9002226.02101,"549,40191-9 ",.01)
 ;;40191-9
 ;;9002226.02101,"549,40191-9 ",.02)
 ;;40191-9
 ;;9002226.02101,"549,40192-7 ",.01)
 ;;40192-7
 ;;9002226.02101,"549,40192-7 ",.02)
 ;;40192-7
 ;;9002226.02101,"549,40193-5 ",.01)
 ;;40193-5
 ;;9002226.02101,"549,40193-5 ",.02)
 ;;40193-5
 ;;9002226.02101,"549,40194-3 ",.01)
 ;;40194-3
 ;;9002226.02101,"549,40194-3 ",.02)
 ;;40194-3
 ;;9002226.02101,"549,40195-0 ",.01)
 ;;40195-0
 ;;9002226.02101,"549,40195-0 ",.02)
 ;;40195-0
 ;;9002226.02101,"549,40196-8 ",.01)
 ;;40196-8
 ;;9002226.02101,"549,40196-8 ",.02)
 ;;40196-8
 ;;9002226.02101,"549,40197-6 ",.01)
 ;;40197-6
 ;;9002226.02101,"549,40197-6 ",.02)
 ;;40197-6
 ;;9002226.02101,"549,40198-4 ",.01)
 ;;40198-4
 ;;9002226.02101,"549,40198-4 ",.02)
 ;;40198-4
 ;;9002226.02101,"549,40199-2 ",.01)
 ;;40199-2
 ;;9002226.02101,"549,40199-2 ",.02)
 ;;40199-2
 ;;9002226.02101,"549,40200-8 ",.01)
 ;;40200-8
 ;;9002226.02101,"549,40200-8 ",.02)
 ;;40200-8
 ;;9002226.02101,"549,40201-6 ",.01)
 ;;40201-6
 ;;9002226.02101,"549,40201-6 ",.02)
 ;;40201-6
 ;;9002226.02101,"549,40202-4 ",.01)
 ;;40202-4
 ;;9002226.02101,"549,40202-4 ",.02)
 ;;40202-4
 ;;9002226.02101,"549,40203-2 ",.01)
 ;;40203-2
 ;;9002226.02101,"549,40203-2 ",.02)
 ;;40203-2
 ;;9002226.02101,"549,40204-0 ",.01)
 ;;40204-0
 ;;9002226.02101,"549,40204-0 ",.02)
 ;;40204-0
 ;;9002226.02101,"549,40205-7 ",.01)
 ;;40205-7
 ;;9002226.02101,"549,40205-7 ",.02)
 ;;40205-7
 ;;9002226.02101,"549,40206-5 ",.01)
 ;;40206-5
 ;;9002226.02101,"549,40206-5 ",.02)
 ;;40206-5
 ;;9002226.02101,"549,40207-3 ",.01)
 ;;40207-3
 ;;9002226.02101,"549,40207-3 ",.02)
 ;;40207-3
 ;;9002226.02101,"549,40208-1 ",.01)
 ;;40208-1
 ;;9002226.02101,"549,40208-1 ",.02)
 ;;40208-1
 ;;9002226.02101,"549,40209-9 ",.01)
 ;;40209-9
 ;;9002226.02101,"549,40209-9 ",.02)
 ;;40209-9
 ;;9002226.02101,"549,40210-7 ",.01)
 ;;40210-7
 ;;9002226.02101,"549,40210-7 ",.02)
 ;;40210-7
 ;;9002226.02101,"549,40211-5 ",.01)
 ;;40211-5
 ;;9002226.02101,"549,40211-5 ",.02)
 ;;40211-5
 ;;9002226.02101,"549,40212-3 ",.01)
 ;;40212-3
 ;;9002226.02101,"549,40212-3 ",.02)
 ;;40212-3
 ;;9002226.02101,"549,40213-1 ",.01)
 ;;40213-1
 ;;9002226.02101,"549,40213-1 ",.02)
 ;;40213-1
 ;;9002226.02101,"549,40214-9 ",.01)
 ;;40214-9
 ;;9002226.02101,"549,40214-9 ",.02)
 ;;40214-9
 ;;9002226.02101,"549,40215-6 ",.01)
 ;;40215-6
 ;;9002226.02101,"549,40215-6 ",.02)
 ;;40215-6
 ;;9002226.02101,"549,40216-4 ",.01)
 ;;40216-4
 ;;9002226.02101,"549,40216-4 ",.02)
 ;;40216-4
 ;;9002226.02101,"549,40217-2 ",.01)
 ;;40217-2
 ;;9002226.02101,"549,40217-2 ",.02)
 ;;40217-2
 ;;9002226.02101,"549,40218-0 ",.01)
 ;;40218-0
 ;;9002226.02101,"549,40218-0 ",.02)
 ;;40218-0
 ;;9002226.02101,"549,40219-8 ",.01)
 ;;40219-8
 ;;9002226.02101,"549,40219-8 ",.02)
 ;;40219-8
 ;;9002226.02101,"549,40220-6 ",.01)
 ;;40220-6
 ;;9002226.02101,"549,40220-6 ",.02)
 ;;40220-6
 ;;9002226.02101,"549,40221-4 ",.01)
 ;;40221-4
 ;;9002226.02101,"549,40221-4 ",.02)
 ;;40221-4
 ;;9002226.02101,"549,40222-2 ",.01)
 ;;40222-2
 ;;9002226.02101,"549,40222-2 ",.02)
 ;;40222-2
 ;;9002226.02101,"549,40259-4 ",.01)
 ;;40259-4
 ;;9002226.02101,"549,40259-4 ",.02)
 ;;40259-4
 ;;9002226.02101,"549,40260-2 ",.01)
 ;;40260-2
 ;;9002226.02101,"549,40260-2 ",.02)
 ;;40260-2
 ;;9002226.02101,"549,40261-0 ",.01)
 ;;40261-0
 ;;9002226.02101,"549,40261-0 ",.02)
 ;;40261-0
 ;;9002226.02101,"549,40262-8 ",.01)
 ;;40262-8
 ;;9002226.02101,"549,40262-8 ",.02)
 ;;40262-8
 ;;9002226.02101,"549,40263-6 ",.01)
 ;;40263-6
 ;;9002226.02101,"549,40263-6 ",.02)
 ;;40263-6
 ;;9002226.02101,"549,40276-8 ",.01)
 ;;40276-8
 ;;9002226.02101,"549,40276-8 ",.02)
 ;;40276-8
 ;;9002226.02101,"549,40277-6 ",.01)
 ;;40277-6
 ;;9002226.02101,"549,40277-6 ",.02)
 ;;40277-6
 ;;9002226.02101,"549,40278-4 ",.01)
 ;;40278-4
 ;;9002226.02101,"549,40278-4 ",.02)
 ;;40278-4
 ;;9002226.02101,"549,40279-2 ",.01)
 ;;40279-2
 ;;9002226.02101,"549,40279-2 ",.02)
 ;;40279-2
 ;;9002226.02101,"549,40280-0 ",.01)
 ;;40280-0
 ;;9002226.02101,"549,40280-0 ",.02)
 ;;40280-0
 ;;9002226.02101,"549,40285-9 ",.01)
 ;;40285-9
 ;;9002226.02101,"549,40285-9 ",.02)
 ;;40285-9
 ;;9002226.02101,"549,40286-7 ",.01)
 ;;40286-7
 ;;9002226.02101,"549,40286-7 ",.02)
 ;;40286-7
 ;;9002226.02101,"549,40287-5 ",.01)
 ;;40287-5
 ;;9002226.02101,"549,40287-5 ",.02)
 ;;40287-5
 ;;9002226.02101,"549,40318-8 ",.01)
 ;;40318-8
 ;;9002226.02101,"549,40318-8 ",.02)
 ;;40318-8
 ;;9002226.02101,"549,40319-6 ",.01)
 ;;40319-6
 ;;9002226.02101,"549,40319-6 ",.02)
 ;;40319-6
 ;;9002226.02101,"549,40320-4 ",.01)
 ;;40320-4
 ;;9002226.02101,"549,40320-4 ",.02)
 ;;40320-4
 ;;9002226.02101,"549,40321-2 ",.01)
 ;;40321-2
 ;;9002226.02101,"549,40321-2 ",.02)
 ;;40321-2
 ;;9002226.02101,"549,40322-0 ",.01)
 ;;40322-0
 ;;9002226.02101,"549,40322-0 ",.02)
 ;;40322-0
 ;;9002226.02101,"549,40323-8 ",.01)
 ;;40323-8
 ;;9002226.02101,"549,40323-8 ",.02)
 ;;40323-8
 ;;9002226.02101,"549,40324-6 ",.01)
 ;;40324-6
 ;;9002226.02101,"549,40324-6 ",.02)
 ;;40324-6
 ;;9002226.02101,"549,40858-3 ",.01)
 ;;40858-3
 ;;9002226.02101,"549,40858-3 ",.02)
 ;;40858-3
 ;;9002226.02101,"549,41024-1 ",.01)
 ;;41024-1
 ;;9002226.02101,"549,41024-1 ",.02)
 ;;41024-1
 ;;9002226.02101,"549,41604-0 ",.01)
 ;;41604-0
 ;;9002226.02101,"549,41604-0 ",.02)
 ;;41604-0
 ;;9002226.02101,"549,41651-1 ",.01)
 ;;41651-1
 ;;9002226.02101,"549,41651-1 ",.02)
 ;;41651-1
 ;;9002226.02101,"549,41652-9 ",.01)
 ;;41652-9
 ;;9002226.02101,"549,41652-9 ",.02)
 ;;41652-9
 ;;9002226.02101,"549,41653-7 ",.01)
 ;;41653-7
 ;;9002226.02101,"549,41653-7 ",.02)
 ;;41653-7
 ;;9002226.02101,"549,43740-0 ",.01)
 ;;43740-0
 ;;9002226.02101,"549,43740-0 ",.02)
 ;;43740-0
 ;;9002226.02101,"549,44919-9 ",.01)
 ;;44919-9
 ;;9002226.02101,"549,44919-9 ",.02)
 ;;44919-9
 ;;9002226.02101,"549,45052-8 ",.01)
 ;;45052-8
 ;;9002226.02101,"549,45052-8 ",.02)
 ;;45052-8
 ;;9002226.02101,"549,45053-6 ",.01)
 ;;45053-6
 ;;9002226.02101,"549,45053-6 ",.02)
 ;;45053-6
 ;;9002226.02101,"549,45054-4 ",.01)
 ;;45054-4
 ;;9002226.02101,"549,45054-4 ",.02)
 ;;45054-4
 ;;9002226.02101,"549,45055-1 ",.01)
 ;;45055-1
 ;;9002226.02101,"549,45055-1 ",.02)
 ;;45055-1
 ;;9002226.02101,"549,45056-9 ",.01)
 ;;45056-9
 ;;9002226.02101,"549,45056-9 ",.02)
 ;;45056-9
 ;;9002226.02101,"549,45298-7 ",.01)
 ;;45298-7
 ;;9002226.02101,"549,45298-7 ",.02)
 ;;45298-7
 ;;9002226.02101,"549,45299-5 ",.01)
 ;;45299-5
 ;;9002226.02101,"549,45299-5 ",.02)
 ;;45299-5
 ;;9002226.02101,"549,5914-7 ",.01)
 ;;5914-7
 ;;9002226.02101,"549,5914-7 ",.02)
 ;;5914-7
 ;;9002226.02101,"549,6689-4 ",.01)
 ;;6689-4
 ;;9002226.02101,"549,6689-4 ",.02)
 ;;6689-4
 ;;9002226.02101,"549,6749-6 ",.01)
 ;;6749-6
 ;;9002226.02101,"549,6749-6 ",.02)
 ;;6749-6
 ;;9002226.02101,"549,6752-0 ",.01)
 ;;6752-0
 ;;9002226.02101,"549,6752-0 ",.02)
 ;;6752-0
 ;;9002226.02101,"549,6756-1 ",.01)
 ;;6756-1
 ;;9002226.02101,"549,6756-1 ",.02)
 ;;6756-1
 ;;9002226.02101,"549,6760-3 ",.01)
 ;;6760-3
 ;;9002226.02101,"549,6760-3 ",.02)
 ;;6760-3
 ;;9002226.02101,"549,6762-9 ",.01)
 ;;6762-9
 ;;9002226.02101,"549,6762-9 ",.02)
 ;;6762-9
 ;;9002226.02101,"549,6777-7 ",.01)
 ;;6777-7
 ;;9002226.02101,"549,6777-7 ",.02)
 ;;6777-7
 ;;9002226.02101,"549,9375-7 ",.01)
 ;;9375-7
 ;;9002226.02101,"549,9375-7 ",.02)
 ;;9375-7
 ;;9002226.02101,"549,9376-5 ",.01)
 ;;9376-5
 ;;9002226.02101,"549,9376-5 ",.02)
 ;;9376-5
 ;;9002226.02101,"549,9377-3 ",.01)
 ;;9377-3
 ;;9002226.02101,"549,9377-3 ",.02)
 ;;9377-3
 ;;9002226.02101,"549,9378-1 ",.01)
 ;;9378-1
 ;;9002226.02101,"549,9378-1 ",.02)
 ;;9378-1