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

BGP8BXQC.m

Go to the documentation of this file.
BGP8BXQC ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 28, 2007 ;
 ;;8.0;IHS CLINICAL REPORTING;;MAR 12, 2008
 ;;;BGP6;;SEP 28, 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,"469,00158-0171-01 ",.02)
 ;;00158-0171-01
 ;;9002226.02101,"469,00172-4217-60 ",.01)
 ;;00172-4217-60
 ;;9002226.02101,"469,00172-4217-60 ",.02)
 ;;00172-4217-60
 ;;9002226.02101,"469,00172-4218-60 ",.01)
 ;;00172-4218-60
 ;;9002226.02101,"469,00172-4218-60 ",.02)
 ;;00172-4218-60
 ;;9002226.02101,"469,00172-4235-60 ",.01)
 ;;00172-4235-60
 ;;9002226.02101,"469,00172-4235-60 ",.02)
 ;;00172-4235-60
 ;;9002226.02101,"469,00172-4235-70 ",.01)
 ;;00172-4235-70
 ;;9002226.02101,"469,00172-4235-70 ",.02)
 ;;00172-4235-70
 ;;9002226.02101,"469,00172-4236-60 ",.01)
 ;;00172-4236-60
 ;;9002226.02101,"469,00172-4236-60 ",.02)
 ;;00172-4236-60
 ;;9002226.02101,"469,00172-4237-60 ",.01)
 ;;00172-4237-60
 ;;9002226.02101,"469,00172-4237-60 ",.02)
 ;;00172-4237-60
 ;;9002226.02101,"469,00172-4238-60 ",.01)
 ;;00172-4238-60
 ;;9002226.02101,"469,00172-4238-60 ",.02)
 ;;00172-4238-60
 ;;9002226.02101,"469,00172-4239-60 ",.01)
 ;;00172-4239-60
 ;;9002226.02101,"469,00172-4239-60 ",.02)
 ;;00172-4239-60
 ;;9002226.02101,"469,00172-4364-60 ",.01)
 ;;00172-4364-60
 ;;9002226.02101,"469,00172-4364-60 ",.02)
 ;;00172-4364-60
 ;;9002226.02101,"469,00172-4364-70 ",.01)
 ;;00172-4364-70
 ;;9002226.02101,"469,00172-4364-70 ",.02)
 ;;00172-4364-70
 ;;9002226.02101,"469,00172-4365-60 ",.01)
 ;;00172-4365-60
 ;;9002226.02101,"469,00172-4365-60 ",.02)
 ;;00172-4365-60
 ;;9002226.02101,"469,00172-4365-70 ",.01)
 ;;00172-4365-70
 ;;9002226.02101,"469,00172-4365-70 ",.02)
 ;;00172-4365-70
 ;;9002226.02101,"469,00172-4366-60 ",.01)
 ;;00172-4366-60
 ;;9002226.02101,"469,00172-4366-60 ",.02)
 ;;00172-4366-60
 ;;9002226.02101,"469,00182-1001-01 ",.01)
 ;;00182-1001-01
 ;;9002226.02101,"469,00182-1001-01 ",.02)
 ;;00182-1001-01
 ;;9002226.02101,"469,00182-1812-89 ",.01)
 ;;00182-1812-89
 ;;9002226.02101,"469,00182-1812-89 ",.02)
 ;;00182-1812-89
 ;;9002226.02101,"469,00182-1813-89 ",.01)
 ;;00182-1813-89
 ;;9002226.02101,"469,00182-1813-89 ",.02)
 ;;00182-1813-89
 ;;9002226.02101,"469,00182-1814-89 ",.01)
 ;;00182-1814-89
 ;;9002226.02101,"469,00182-1814-89 ",.02)
 ;;00182-1814-89
 ;;9002226.02101,"469,00182-1815-89 ",.01)
 ;;00182-1815-89
 ;;9002226.02101,"469,00182-1815-89 ",.02)
 ;;00182-1815-89
 ;;9002226.02101,"469,00182-2632-89 ",.01)
 ;;00182-2632-89
 ;;9002226.02101,"469,00182-2632-89 ",.02)
 ;;00182-2632-89
 ;;9002226.02101,"469,00185-0010-01 ",.01)
 ;;00185-0010-01
 ;;9002226.02101,"469,00185-0010-01 ",.02)
 ;;00185-0010-01
 ;;9002226.02101,"469,00185-0010-05 ",.01)
 ;;00185-0010-05
 ;;9002226.02101,"469,00185-0010-05 ",.02)
 ;;00185-0010-05
 ;;9002226.02101,"469,00185-0117-01 ",.01)
 ;;00185-0117-01
 ;;9002226.02101,"469,00185-0117-01 ",.02)
 ;;00185-0117-01
 ;;9002226.02101,"469,00185-0117-05 ",.01)
 ;;00185-0117-05
 ;;9002226.02101,"469,00185-0117-05 ",.02)
 ;;00185-0117-05
 ;;9002226.02101,"469,00185-0118-01 ",.01)
 ;;00185-0118-01
 ;;9002226.02101,"469,00185-0118-01 ",.02)
 ;;00185-0118-01
 ;;9002226.02101,"469,00185-0118-05 ",.01)
 ;;00185-0118-05
 ;;9002226.02101,"469,00185-0118-05 ",.02)
 ;;00185-0118-05
 ;;9002226.02101,"469,00185-0170-01 ",.01)
 ;;00185-0170-01
 ;;9002226.02101,"469,00185-0170-01 ",.02)
 ;;00185-0170-01
 ;;9002226.02101,"469,00185-0174-01 ",.01)
 ;;00185-0174-01
 ;;9002226.02101,"469,00185-0174-01 ",.02)
 ;;00185-0174-01
 ;;9002226.02101,"469,00185-0177-01 ",.01)
 ;;00185-0177-01
 ;;9002226.02101,"469,00185-0177-01 ",.02)
 ;;00185-0177-01
 ;;9002226.02101,"469,00185-0771-01 ",.01)
 ;;00185-0771-01
 ;;9002226.02101,"469,00185-0771-01 ",.02)
 ;;00185-0771-01
 ;;9002226.02101,"469,00185-0771-30 ",.01)
 ;;00185-0771-30
 ;;9002226.02101,"469,00185-0771-30 ",.02)
 ;;00185-0771-30
 ;;9002226.02101,"469,00185-0774-01 ",.01)
 ;;00185-0774-01
 ;;9002226.02101,"469,00185-0774-01 ",.02)
 ;;00185-0774-01
 ;;9002226.02101,"469,00185-0774-30 ",.01)
 ;;00185-0774-30
 ;;9002226.02101,"469,00185-0774-30 ",.02)
 ;;00185-0774-30
 ;;9002226.02101,"469,00223-2551-01 ",.01)
 ;;00223-2551-01
 ;;9002226.02101,"469,00223-2551-01 ",.02)
 ;;00223-2551-01
 ;;9002226.02101,"469,00223-2551-02 ",.01)
 ;;00223-2551-02
 ;;9002226.02101,"469,00223-2551-02 ",.02)
 ;;00223-2551-02
 ;;9002226.02101,"469,00223-2552-01 ",.01)
 ;;00223-2552-01
 ;;9002226.02101,"469,00223-2552-01 ",.02)
 ;;00223-2552-01
 ;;9002226.02101,"469,00223-2552-02 ",.01)
 ;;00223-2552-02
 ;;9002226.02101,"469,00223-2552-02 ",.02)
 ;;00223-2552-02
 ;;9002226.02101,"469,00223-2553-01 ",.01)
 ;;00223-2553-01
 ;;9002226.02101,"469,00223-2553-01 ",.02)
 ;;00223-2553-01
 ;;9002226.02101,"469,00223-2553-02 ",.01)
 ;;00223-2553-02
 ;;9002226.02101,"469,00223-2553-02 ",.02)
 ;;00223-2553-02
 ;;9002226.02101,"469,00223-2554-01 ",.01)
 ;;00223-2554-01
 ;;9002226.02101,"469,00223-2554-01 ",.02)
 ;;00223-2554-01
 ;;9002226.02101,"469,00223-2554-02 ",.01)
 ;;00223-2554-02
 ;;9002226.02101,"469,00223-2554-02 ",.02)
 ;;00223-2554-02
 ;;9002226.02101,"469,00364-2514-01 ",.01)
 ;;00364-2514-01
 ;;9002226.02101,"469,00364-2514-01 ",.02)
 ;;00364-2514-01
 ;;9002226.02101,"469,00378-0028-01 ",.01)
 ;;00378-0028-01
 ;;9002226.02101,"469,00378-0028-01 ",.02)
 ;;00378-0028-01
 ;;9002226.02101,"469,00378-0032-01 ",.01)
 ;;00378-0032-01
 ;;9002226.02101,"469,00378-0032-01 ",.02)
 ;;00378-0032-01
 ;;9002226.02101,"469,00378-0032-10 ",.01)
 ;;00378-0032-10
 ;;9002226.02101,"469,00378-0032-10 ",.02)
 ;;00378-0032-10
 ;;9002226.02101,"469,00378-0047-01 ",.01)
 ;;00378-0047-01
 ;;9002226.02101,"469,00378-0047-01 ",.02)
 ;;00378-0047-01
 ;;9002226.02101,"469,00378-0047-10 ",.01)
 ;;00378-0047-10
 ;;9002226.02101,"469,00378-0047-10 ",.02)
 ;;00378-0047-10
 ;;9002226.02101,"469,00378-0052-01 ",.01)
 ;;00378-0052-01
 ;;9002226.02101,"469,00378-0052-01 ",.02)
 ;;00378-0052-01
 ;;9002226.02101,"469,00378-0127-01 ",.01)
 ;;00378-0127-01
 ;;9002226.02101,"469,00378-0127-01 ",.02)
 ;;00378-0127-01
 ;;9002226.02101,"469,00378-0182-01 ",.01)
 ;;00378-0182-01
 ;;9002226.02101,"469,00378-0182-01 ",.02)
 ;;00378-0182-01
 ;;9002226.02101,"469,00378-0182-10 ",.01)
 ;;00378-0182-10
 ;;9002226.02101,"469,00378-0182-10 ",.02)
 ;;00378-0182-10
 ;;9002226.02101,"469,00378-0183-01 ",.01)
 ;;00378-0183-01
 ;;9002226.02101,"469,00378-0183-01 ",.02)
 ;;00378-0183-01
 ;;9002226.02101,"469,00378-0183-10 ",.01)
 ;;00378-0183-10
 ;;9002226.02101,"469,00378-0183-10 ",.02)
 ;;00378-0183-10
 ;;9002226.02101,"469,00378-0184-01 ",.01)
 ;;00378-0184-01
 ;;9002226.02101,"469,00378-0184-01 ",.02)
 ;;00378-0184-01
 ;;9002226.02101,"469,00378-0185-01 ",.01)
 ;;00378-0185-01
 ;;9002226.02101,"469,00378-0185-01 ",.02)
 ;;00378-0185-01
 ;;9002226.02101,"469,00378-0185-05 ",.01)
 ;;00378-0185-05
 ;;9002226.02101,"469,00378-0185-05 ",.02)
 ;;00378-0185-05
 ;;9002226.02101,"469,00378-0231-01 ",.01)
 ;;00378-0231-01
 ;;9002226.02101,"469,00378-0231-01 ",.02)
 ;;00378-0231-01
 ;;9002226.02101,"469,00378-0231-10 ",.01)
 ;;00378-0231-10
 ;;9002226.02101,"469,00378-0231-10 ",.02)
 ;;00378-0231-10
 ;;9002226.02101,"469,00378-0305-01 ",.01)
 ;;00378-0305-01
 ;;9002226.02101,"469,00378-0305-01 ",.02)
 ;;00378-0305-01
 ;;9002226.02101,"469,00378-0310-01 ",.01)
 ;;00378-0310-01
 ;;9002226.02101,"469,00378-0310-01 ",.02)
 ;;00378-0310-01
 ;;9002226.02101,"469,00378-0314-01 ",.01)
 ;;00378-0314-01
 ;;9002226.02101,"469,00378-0314-01 ",.02)
 ;;00378-0314-01
 ;;9002226.02101,"469,00378-0434-01 ",.01)
 ;;00378-0434-01
 ;;9002226.02101,"469,00378-0434-01 ",.02)
 ;;00378-0434-01
 ;;9002226.02101,"469,00378-0445-01 ",.01)
 ;;00378-0445-01
 ;;9002226.02101,"469,00378-0445-01 ",.02)
 ;;00378-0445-01
 ;;9002226.02101,"469,00378-0757-01 ",.01)
 ;;00378-0757-01
 ;;9002226.02101,"469,00378-0757-01 ",.02)
 ;;00378-0757-01
 ;;9002226.02101,"469,00378-1132-01 ",.01)
 ;;00378-1132-01
 ;;9002226.02101,"469,00378-1132-01 ",.02)
 ;;00378-1132-01
 ;;9002226.02101,"469,00378-1132-10 ",.01)
 ;;00378-1132-10
 ;;9002226.02101,"469,00378-1132-10 ",.02)
 ;;00378-1132-10
 ;;9002226.02101,"469,00378-1171-01 ",.01)
 ;;00378-1171-01
 ;;9002226.02101,"469,00378-1171-01 ",.02)
 ;;00378-1171-01
 ;;9002226.02101,"469,00378-1171-10 ",.01)
 ;;00378-1171-10
 ;;9002226.02101,"469,00378-1171-10 ",.02)
 ;;00378-1171-10
 ;;9002226.02101,"469,00378-1200-01 ",.01)
 ;;00378-1200-01
 ;;9002226.02101,"469,00378-1200-01 ",.02)
 ;;00378-1200-01
 ;;9002226.02101,"469,00378-1400-01 ",.01)
 ;;00378-1400-01
 ;;9002226.02101,"469,00378-1400-01 ",.02)
 ;;00378-1400-01
 ;;9002226.02101,"469,00591-0438-01 ",.01)
 ;;00591-0438-01
 ;;9002226.02101,"469,00591-0438-01 ",.02)
 ;;00591-0438-01
 ;;9002226.02101,"469,00591-0462-01 ",.01)
 ;;00591-0462-01
 ;;9002226.02101,"469,00591-0462-01 ",.02)
 ;;00591-0462-01
 ;;9002226.02101,"469,00591-0462-10 ",.01)
 ;;00591-0462-10
 ;;9002226.02101,"469,00591-0462-10 ",.02)
 ;;00591-0462-10
 ;;9002226.02101,"469,00591-0463-01 ",.01)
 ;;00591-0463-01
 ;;9002226.02101,"469,00591-0463-01 ",.02)
 ;;00591-0463-01
 ;;9002226.02101,"469,00591-0606-01 ",.01)
 ;;00591-0606-01
 ;;9002226.02101,"469,00591-0606-01 ",.02)
 ;;00591-0606-01
 ;;9002226.02101,"469,00591-0606-05 ",.01)
 ;;00591-0606-05
 ;;9002226.02101,"469,00591-0606-05 ",.02)
 ;;00591-0606-05
 ;;9002226.02101,"469,00591-0607-01 ",.01)
 ;;00591-0607-01
 ;;9002226.02101,"469,00591-0607-01 ",.02)
 ;;00591-0607-01
 ;;9002226.02101,"469,00591-5554-01 ",.01)
 ;;00591-5554-01
 ;;9002226.02101,"469,00591-5554-01 ",.02)
 ;;00591-5554-01
 ;;9002226.02101,"469,00591-5554-10 ",.01)
 ;;00591-5554-10
 ;;9002226.02101,"469,00591-5554-10 ",.02)
 ;;00591-5554-10
 ;;9002226.02101,"469,00591-5555-01 ",.01)
 ;;00591-5555-01
 ;;9002226.02101,"469,00591-5555-01 ",.02)
 ;;00591-5555-01
 ;;9002226.02101,"469,00591-5555-10 ",.01)
 ;;00591-5555-10
 ;;9002226.02101,"469,00591-5555-10 ",.02)
 ;;00591-5555-10
 ;;9002226.02101,"469,00591-5556-01 ",.01)
 ;;00591-5556-01
 ;;9002226.02101,"469,00591-5556-01 ",.02)
 ;;00591-5556-01
 ;;9002226.02101,"469,00591-5556-10 ",.01)
 ;;00591-5556-10
 ;;9002226.02101,"469,00591-5556-10 ",.02)
 ;;00591-5556-10
 ;;9002226.02101,"469,00591-5557-01 ",.01)
 ;;00591-5557-01
 ;;9002226.02101,"469,00591-5557-01 ",.02)
 ;;00591-5557-01
 ;;9002226.02101,"469,00591-5557-10 ",.01)
 ;;00591-5557-10
 ;;9002226.02101,"469,00591-5557-10 ",.02)
 ;;00591-5557-10
 ;;9002226.02101,"469,00591-5777-01 ",.01)
 ;;00591-5777-01
 ;;9002226.02101,"469,00591-5777-01 ",.02)
 ;;00591-5777-01
 ;;9002226.02101,"469,00603-4627-21 ",.01)
 ;;00603-4627-21
 ;;9002226.02101,"469,00603-4627-21 ",.02)
 ;;00603-4627-21
 ;;9002226.02101,"469,00603-4627-32 ",.01)
 ;;00603-4627-32
 ;;9002226.02101,"469,00603-4627-32 ",.02)
 ;;00603-4627-32
 ;;9002226.02101,"469,00603-4628-21 ",.01)
 ;;00603-4628-21
 ;;9002226.02101,"469,00603-4628-21 ",.02)
 ;;00603-4628-21
 ;;9002226.02101,"469,00603-4628-32 ",.01)
 ;;00603-4628-32
 ;;9002226.02101,"469,00603-4628-32 ",.02)
 ;;00603-4628-32
 ;;9002226.02101,"469,00603-5221-01 ",.01)
 ;;00603-5221-01
 ;;9002226.02101,"469,00603-5221-01 ",.02)
 ;;00603-5221-01
 ;;9002226.02101,"469,00615-2561-53 ",.01)
 ;;00615-2561-53
 ;;9002226.02101,"469,00615-2561-53 ",.02)
 ;;00615-2561-53
 ;;9002226.02101,"469,00615-2561-63 ",.01)
 ;;00615-2561-63
 ;;9002226.02101,"469,00615-2561-63 ",.02)
 ;;00615-2561-63
 ;;9002226.02101,"469,00615-2562-53 ",.01)
 ;;00615-2562-53
 ;;9002226.02101,"469,00615-2562-53 ",.02)
 ;;00615-2562-53
 ;;9002226.02101,"469,00615-2562-63 ",.01)
 ;;00615-2562-63
 ;;9002226.02101,"469,00615-2562-63 ",.02)
 ;;00615-2562-63
 ;;9002226.02101,"469,00615-3532-53 ",.01)
 ;;00615-3532-53
 ;;9002226.02101,"469,00615-3532-53 ",.02)
 ;;00615-3532-53
 ;;9002226.02101,"469,00615-3532-63 ",.01)
 ;;00615-3532-63
 ;;9002226.02101,"469,00615-3532-63 ",.02)
 ;;00615-3532-63
 ;;9002226.02101,"469,00615-3544-53 ",.01)
 ;;00615-3544-53
 ;;9002226.02101,"469,00615-3544-53 ",.02)
 ;;00615-3544-53
 ;;9002226.02101,"469,00615-3544-63 ",.01)
 ;;00615-3544-63
 ;;9002226.02101,"469,00615-3544-63 ",.02)
 ;;00615-3544-63
 ;;9002226.02101,"469,00615-3552-43 ",.01)
 ;;00615-3552-43
 ;;9002226.02101,"469,00615-3552-43 ",.02)
 ;;00615-3552-43
 ;;9002226.02101,"469,00615-3552-53 ",.01)
 ;;00615-3552-53
 ;;9002226.02101,"469,00615-3552-53 ",.02)
 ;;00615-3552-53
 ;;9002226.02101,"469,00615-3552-63 ",.01)
 ;;00615-3552-63
 ;;9002226.02101,"469,00615-3552-63 ",.02)
 ;;00615-3552-63
 ;;9002226.02101,"469,00615-3553-53 ",.01)
 ;;00615-3553-53
 ;;9002226.02101,"469,00615-3553-53 ",.02)
 ;;00615-3553-53
 ;;9002226.02101,"469,00615-3553-63 ",.01)
 ;;00615-3553-63
 ;;9002226.02101,"469,00615-3553-63 ",.02)
 ;;00615-3553-63
 ;;9002226.02101,"469,00677-1458-01 ",.01)
 ;;00677-1458-01
 ;;9002226.02101,"469,00677-1458-01 ",.02)
 ;;00677-1458-01
 ;;9002226.02101,"469,00677-1478-01 ",.01)
 ;;00677-1478-01
 ;;9002226.02101,"469,00677-1478-01 ",.02)
 ;;00677-1478-01
 ;;9002226.02101,"469,00677-1478-10 ",.01)
 ;;00677-1478-10
 ;;9002226.02101,"469,00677-1478-10 ",.02)
 ;;00677-1478-10
 ;;9002226.02101,"469,00677-1479-01 ",.01)
 ;;00677-1479-01
 ;;9002226.02101,"469,00677-1479-01 ",.02)
 ;;00677-1479-01
 ;;9002226.02101,"469,00677-1479-10 ",.01)
 ;;00677-1479-10
 ;;9002226.02101,"469,00677-1479-10 ",.02)
 ;;00677-1479-10
 ;;9002226.02101,"469,00677-1482-01 ",.01)
 ;;00677-1482-01
 ;;9002226.02101,"469,00677-1482-01 ",.02)
 ;;00677-1482-01
 ;;9002226.02101,"469,00677-1482-10 ",.01)
 ;;00677-1482-10
 ;;9002226.02101,"469,00677-1482-10 ",.02)
 ;;00677-1482-10
 ;;9002226.02101,"469,00677-1483-01 ",.01)
 ;;00677-1483-01
 ;;9002226.02101,"469,00677-1483-01 ",.02)
 ;;00677-1483-01