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

BGP8EXWE.m

Go to the documentation of this file.
BGP8EXWE ; 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,"635,00006-0140-58 ",.02)
 ;;00006-0140-58
 ;;9002226.02101,"635,00006-0142-31 ",.01)
 ;;00006-0142-31
 ;;9002226.02101,"635,00006-0142-31 ",.02)
 ;;00006-0142-31
 ;;9002226.02101,"635,00006-0142-58 ",.01)
 ;;00006-0142-58
 ;;9002226.02101,"635,00006-0142-58 ",.02)
 ;;00006-0142-58
 ;;9002226.02101,"635,00006-0145-31 ",.01)
 ;;00006-0145-31
 ;;9002226.02101,"635,00006-0145-31 ",.02)
 ;;00006-0145-31
 ;;9002226.02101,"635,00006-0145-58 ",.01)
 ;;00006-0145-58
 ;;9002226.02101,"635,00006-0145-58 ",.02)
 ;;00006-0145-58
 ;;9002226.02101,"635,00006-0173-68 ",.01)
 ;;00006-0173-68
 ;;9002226.02101,"635,00006-0173-68 ",.02)
 ;;00006-0173-68
 ;;9002226.02101,"635,00006-0207-28 ",.01)
 ;;00006-0207-28
 ;;9002226.02101,"635,00006-0207-28 ",.02)
 ;;00006-0207-28
 ;;9002226.02101,"635,00006-0207-31 ",.01)
 ;;00006-0207-31
 ;;9002226.02101,"635,00006-0207-31 ",.02)
 ;;00006-0207-31
 ;;9002226.02101,"635,00006-0207-54 ",.01)
 ;;00006-0207-54
 ;;9002226.02101,"635,00006-0207-54 ",.02)
 ;;00006-0207-54
 ;;9002226.02101,"635,00006-0207-58 ",.01)
 ;;00006-0207-58
 ;;9002226.02101,"635,00006-0207-58 ",.02)
 ;;00006-0207-58
 ;;9002226.02101,"635,00006-0207-72 ",.01)
 ;;00006-0207-72
 ;;9002226.02101,"635,00006-0207-72 ",.02)
 ;;00006-0207-72
 ;;9002226.02101,"635,00006-0207-82 ",.01)
 ;;00006-0207-82
 ;;9002226.02101,"635,00006-0207-82 ",.02)
 ;;00006-0207-82
 ;;9002226.02101,"635,00006-0207-86 ",.01)
 ;;00006-0207-86
 ;;9002226.02101,"635,00006-0207-86 ",.02)
 ;;00006-0207-86
 ;;9002226.02101,"635,00006-0207-87 ",.01)
 ;;00006-0207-87
 ;;9002226.02101,"635,00006-0207-87 ",.02)
 ;;00006-0207-87
 ;;9002226.02101,"635,00006-0207-94 ",.01)
 ;;00006-0207-94
 ;;9002226.02101,"635,00006-0207-94 ",.02)
 ;;00006-0207-94
 ;;9002226.02101,"635,00006-0237-58 ",.01)
 ;;00006-0237-58
 ;;9002226.02101,"635,00006-0237-58 ",.02)
 ;;00006-0237-58
 ;;9002226.02101,"635,00006-0712-28 ",.01)
 ;;00006-0712-28
 ;;9002226.02101,"635,00006-0712-28 ",.02)
 ;;00006-0712-28
 ;;9002226.02101,"635,00006-0712-68 ",.01)
 ;;00006-0712-68
 ;;9002226.02101,"635,00006-0712-68 ",.02)
 ;;00006-0712-68
 ;;9002226.02101,"635,00006-0712-82 ",.01)
 ;;00006-0712-82
 ;;9002226.02101,"635,00006-0712-82 ",.02)
 ;;00006-0712-82
 ;;9002226.02101,"635,00006-0712-87 ",.01)
 ;;00006-0712-87
 ;;9002226.02101,"635,00006-0712-87 ",.02)
 ;;00006-0712-87
 ;;9002226.02101,"635,00006-0712-94 ",.01)
 ;;00006-0712-94
 ;;9002226.02101,"635,00006-0712-94 ",.02)
 ;;00006-0712-94
 ;;9002226.02101,"635,00006-0713-28 ",.01)
 ;;00006-0713-28
 ;;9002226.02101,"635,00006-0713-28 ",.02)
 ;;00006-0713-28
 ;;9002226.02101,"635,00006-0713-68 ",.01)
 ;;00006-0713-68
 ;;9002226.02101,"635,00006-0713-68 ",.02)
 ;;00006-0713-68
 ;;9002226.02101,"635,00006-0713-82 ",.01)
 ;;00006-0713-82
 ;;9002226.02101,"635,00006-0713-82 ",.02)
 ;;00006-0713-82
 ;;9002226.02101,"635,00006-0713-87 ",.01)
 ;;00006-0713-87
 ;;9002226.02101,"635,00006-0713-87 ",.02)
 ;;00006-0713-87
 ;;9002226.02101,"635,00006-0713-94 ",.01)
 ;;00006-0713-94
 ;;9002226.02101,"635,00006-0713-94 ",.02)
 ;;00006-0713-94
 ;;9002226.02101,"635,00006-0714-28 ",.01)
 ;;00006-0714-28
 ;;9002226.02101,"635,00006-0714-28 ",.02)
 ;;00006-0714-28
 ;;9002226.02101,"635,00006-0714-68 ",.01)
 ;;00006-0714-68
 ;;9002226.02101,"635,00006-0714-68 ",.02)
 ;;00006-0714-68
 ;;9002226.02101,"635,00006-0714-82 ",.01)
 ;;00006-0714-82
 ;;9002226.02101,"635,00006-0714-82 ",.02)
 ;;00006-0714-82
 ;;9002226.02101,"635,00006-0714-87 ",.01)
 ;;00006-0714-87
 ;;9002226.02101,"635,00006-0714-87 ",.02)
 ;;00006-0714-87
 ;;9002226.02101,"635,00006-0714-94 ",.01)
 ;;00006-0714-94
 ;;9002226.02101,"635,00006-0714-94 ",.02)
 ;;00006-0714-94
 ;;9002226.02101,"635,00006-0720-68 ",.01)
 ;;00006-0720-68
 ;;9002226.02101,"635,00006-0720-68 ",.02)
 ;;00006-0720-68
 ;;9002226.02101,"635,00032-1101-01 ",.01)
 ;;00032-1101-01
 ;;9002226.02101,"635,00032-1101-01 ",.02)
 ;;00032-1101-01
 ;;9002226.02101,"635,00032-1102-01 ",.01)
 ;;00032-1102-01
 ;;9002226.02101,"635,00032-1102-01 ",.02)
 ;;00032-1102-01
 ;;9002226.02101,"635,00032-1103-01 ",.01)
 ;;00032-1103-01
 ;;9002226.02101,"635,00032-1103-01 ",.02)
 ;;00032-1103-01
 ;;9002226.02101,"635,00038-0130-10 ",.01)
 ;;00038-0130-10
 ;;9002226.02101,"635,00038-0130-10 ",.02)
 ;;00038-0130-10
 ;;9002226.02101,"635,00038-0130-34 ",.01)
 ;;00038-0130-34
 ;;9002226.02101,"635,00038-0130-34 ",.02)
 ;;00038-0130-34
 ;;9002226.02101,"635,00038-0130-39 ",.01)
 ;;00038-0130-39
 ;;9002226.02101,"635,00038-0130-39 ",.02)
 ;;00038-0130-39
 ;;9002226.02101,"635,00038-0131-10 ",.01)
 ;;00038-0131-10
 ;;9002226.02101,"635,00038-0131-10 ",.02)
 ;;00038-0131-10
 ;;9002226.02101,"635,00038-0131-34 ",.01)
 ;;00038-0131-34
 ;;9002226.02101,"635,00038-0131-34 ",.02)
 ;;00038-0131-34
 ;;9002226.02101,"635,00038-0131-39 ",.01)
 ;;00038-0131-39
 ;;9002226.02101,"635,00038-0131-39 ",.02)
 ;;00038-0131-39
 ;;9002226.02101,"635,00038-0132-10 ",.01)
 ;;00038-0132-10
 ;;9002226.02101,"635,00038-0132-10 ",.02)
 ;;00038-0132-10
 ;;9002226.02101,"635,00038-0132-34 ",.01)
 ;;00038-0132-34
 ;;9002226.02101,"635,00038-0132-34 ",.02)
 ;;00038-0132-34
 ;;9002226.02101,"635,00038-0132-39 ",.01)
 ;;00038-0132-39
 ;;9002226.02101,"635,00038-0132-39 ",.02)
 ;;00038-0132-39
 ;;9002226.02101,"635,00038-0134-10 ",.01)
 ;;00038-0134-10
 ;;9002226.02101,"635,00038-0134-10 ",.02)
 ;;00038-0134-10
 ;;9002226.02101,"635,00038-0141-10 ",.01)
 ;;00038-0141-10
 ;;9002226.02101,"635,00038-0141-10 ",.02)
 ;;00038-0141-10
 ;;9002226.02101,"635,00038-0142-10 ",.01)
 ;;00038-0142-10
 ;;9002226.02101,"635,00038-0142-10 ",.02)
 ;;00038-0142-10
 ;;9002226.02101,"635,00038-0145-10 ",.01)
 ;;00038-0145-10
 ;;9002226.02101,"635,00038-0145-10 ",.02)
 ;;00038-0145-10
 ;;9002226.02101,"635,00048-5805-01 ",.01)
 ;;00048-5805-01
 ;;9002226.02101,"635,00048-5805-01 ",.02)
 ;;00048-5805-01
 ;;9002226.02101,"635,00048-5805-41 ",.01)
 ;;00048-5805-41
 ;;9002226.02101,"635,00048-5805-41 ",.02)
 ;;00048-5805-41
 ;;9002226.02101,"635,00048-5806-01 ",.01)
 ;;00048-5806-01
 ;;9002226.02101,"635,00048-5806-01 ",.02)
 ;;00048-5806-01
 ;;9002226.02101,"635,00048-5806-41 ",.01)
 ;;00048-5806-41
 ;;9002226.02101,"635,00048-5806-41 ",.02)
 ;;00048-5806-41
 ;;9002226.02101,"635,00048-5807-01 ",.01)
 ;;00048-5807-01
 ;;9002226.02101,"635,00048-5807-01 ",.02)
 ;;00048-5807-01
 ;;9002226.02101,"635,00048-5807-41 ",.01)
 ;;00048-5807-41
 ;;9002226.02101,"635,00048-5807-41 ",.02)
 ;;00048-5807-41
 ;;9002226.02101,"635,00071-0220-06 ",.01)
 ;;00071-0220-06
 ;;9002226.02101,"635,00071-0220-06 ",.02)
 ;;00071-0220-06
 ;;9002226.02101,"635,00071-0220-23 ",.01)
 ;;00071-0220-23
 ;;9002226.02101,"635,00071-0220-23 ",.02)
 ;;00071-0220-23
 ;;9002226.02101,"635,00071-0222-06 ",.01)
 ;;00071-0222-06
 ;;9002226.02101,"635,00071-0222-06 ",.02)
 ;;00071-0222-06
 ;;9002226.02101,"635,00071-0222-23 ",.01)
 ;;00071-0222-23
 ;;9002226.02101,"635,00071-0222-23 ",.02)
 ;;00071-0222-23
 ;;9002226.02101,"635,00071-0223-06 ",.01)
 ;;00071-0223-06
 ;;9002226.02101,"635,00071-0223-06 ",.02)
 ;;00071-0223-06
 ;;9002226.02101,"635,00071-0223-23 ",.01)
 ;;00071-0223-23
 ;;9002226.02101,"635,00071-0223-23 ",.02)
 ;;00071-0223-23
 ;;9002226.02101,"635,00071-0527-23 ",.01)
 ;;00071-0527-23
 ;;9002226.02101,"635,00071-0527-23 ",.02)
 ;;00071-0527-23
 ;;9002226.02101,"635,00071-0527-40 ",.01)
 ;;00071-0527-40
 ;;9002226.02101,"635,00071-0527-40 ",.02)
 ;;00071-0527-40
 ;;9002226.02101,"635,00071-0530-23 ",.01)
 ;;00071-0530-23
 ;;9002226.02101,"635,00071-0530-23 ",.02)
 ;;00071-0530-23
 ;;9002226.02101,"635,00071-0530-40 ",.01)
 ;;00071-0530-40
 ;;9002226.02101,"635,00071-0530-40 ",.02)
 ;;00071-0530-40
 ;;9002226.02101,"635,00071-0532-23 ",.01)
 ;;00071-0532-23
 ;;9002226.02101,"635,00071-0532-23 ",.02)
 ;;00071-0532-23
 ;;9002226.02101,"635,00071-0532-40 ",.01)
 ;;00071-0532-40
 ;;9002226.02101,"635,00071-0532-40 ",.02)
 ;;00071-0532-40
 ;;9002226.02101,"635,00071-0535-23 ",.01)
 ;;00071-0535-23
 ;;9002226.02101,"635,00071-0535-23 ",.02)
 ;;00071-0535-23
 ;;9002226.02101,"635,00074-2278-11 ",.01)
 ;;00074-2278-11
 ;;9002226.02101,"635,00074-2278-11 ",.02)
 ;;00074-2278-11
 ;;9002226.02101,"635,00074-2278-13 ",.01)
 ;;00074-2278-13
 ;;9002226.02101,"635,00074-2278-13 ",.02)
 ;;00074-2278-13
 ;;9002226.02101,"635,00074-2279-11 ",.01)
 ;;00074-2279-11
 ;;9002226.02101,"635,00074-2279-11 ",.02)
 ;;00074-2279-11
 ;;9002226.02101,"635,00074-2279-13 ",.01)
 ;;00074-2279-13
 ;;9002226.02101,"635,00074-2279-13 ",.02)
 ;;00074-2279-13
 ;;9002226.02101,"635,00074-2280-11 ",.01)
 ;;00074-2280-11
 ;;9002226.02101,"635,00074-2280-11 ",.02)
 ;;00074-2280-11
 ;;9002226.02101,"635,00074-2280-13 ",.01)
 ;;00074-2280-13
 ;;9002226.02101,"635,00074-2280-13 ",.02)
 ;;00074-2280-13
 ;;9002226.02101,"635,00078-0364-05 ",.01)
 ;;00078-0364-05
 ;;9002226.02101,"635,00078-0364-05 ",.02)
 ;;00078-0364-05
 ;;9002226.02101,"635,00078-0379-05 ",.01)
 ;;00078-0379-05
 ;;9002226.02101,"635,00078-0379-05 ",.02)
 ;;00078-0379-05
 ;;9002226.02101,"635,00078-0384-05 ",.01)
 ;;00078-0384-05
 ;;9002226.02101,"635,00078-0384-05 ",.02)
 ;;00078-0384-05
 ;;9002226.02101,"635,00078-0404-05 ",.01)
 ;;00078-0404-05
 ;;9002226.02101,"635,00078-0404-05 ",.02)
 ;;00078-0404-05
 ;;9002226.02101,"635,00078-0405-05 ",.01)
 ;;00078-0405-05
 ;;9002226.02101,"635,00078-0405-05 ",.02)
 ;;00078-0405-05
 ;;9002226.02101,"635,00078-0406-05 ",.01)
 ;;00078-0406-05
 ;;9002226.02101,"635,00078-0406-05 ",.02)
 ;;00078-0406-05
 ;;9002226.02101,"635,00078-0447-05 ",.01)
 ;;00078-0447-05
 ;;9002226.02101,"635,00078-0447-05 ",.02)
 ;;00078-0447-05
 ;;9002226.02101,"635,00078-0448-05 ",.01)
 ;;00078-0448-05
 ;;9002226.02101,"635,00078-0448-05 ",.02)
 ;;00078-0448-05
 ;;9002226.02101,"635,00078-0449-05 ",.01)
 ;;00078-0449-05
 ;;9002226.02101,"635,00078-0449-05 ",.02)
 ;;00078-0449-05
 ;;9002226.02101,"635,00078-0450-05 ",.01)
 ;;00078-0450-05
 ;;9002226.02101,"635,00078-0450-05 ",.02)
 ;;00078-0450-05
 ;;9002226.02101,"635,00078-0451-05 ",.01)
 ;;00078-0451-05
 ;;9002226.02101,"635,00078-0451-05 ",.02)
 ;;00078-0451-05
 ;;9002226.02101,"635,00078-0452-05 ",.01)
 ;;00078-0452-05
 ;;9002226.02101,"635,00078-0452-05 ",.02)
 ;;00078-0452-05
 ;;9002226.02101,"635,00078-0453-05 ",.01)
 ;;00078-0453-05
 ;;9002226.02101,"635,00078-0453-05 ",.02)
 ;;00078-0453-05
 ;;9002226.02101,"635,00078-0454-05 ",.01)
 ;;00078-0454-05
 ;;9002226.02101,"635,00078-0454-05 ",.02)
 ;;00078-0454-05
 ;;9002226.02101,"635,00083-0057-30 ",.01)
 ;;00083-0057-30
 ;;9002226.02101,"635,00083-0057-30 ",.02)
 ;;00083-0057-30
 ;;9002226.02101,"635,00083-0059-30 ",.01)
 ;;00083-0059-30
 ;;9002226.02101,"635,00083-0059-30 ",.02)
 ;;00083-0059-30
 ;;9002226.02101,"635,00083-0059-32 ",.01)
 ;;00083-0059-32
 ;;9002226.02101,"635,00083-0059-32 ",.02)
 ;;00083-0059-32
 ;;9002226.02101,"635,00083-0059-90 ",.01)
 ;;00083-0059-90
 ;;9002226.02101,"635,00083-0059-90 ",.02)
 ;;00083-0059-90
 ;;9002226.02101,"635,00083-0063-30 ",.01)
 ;;00083-0063-30
 ;;9002226.02101,"635,00083-0063-30 ",.02)
 ;;00083-0063-30
 ;;9002226.02101,"635,00083-0063-32 ",.01)
 ;;00083-0063-32
 ;;9002226.02101,"635,00083-0063-32 ",.02)
 ;;00083-0063-32
 ;;9002226.02101,"635,00083-0063-90 ",.01)
 ;;00083-0063-90
 ;;9002226.02101,"635,00083-0063-90 ",.02)
 ;;00083-0063-90
 ;;9002226.02101,"635,00083-0072-30 ",.01)
 ;;00083-0072-30
 ;;9002226.02101,"635,00083-0072-30 ",.02)
 ;;00083-0072-30
 ;;9002226.02101,"635,00083-0074-30 ",.01)
 ;;00083-0074-30
 ;;9002226.02101,"635,00083-0074-30 ",.02)
 ;;00083-0074-30
 ;;9002226.02101,"635,00083-0075-30 ",.01)
 ;;00083-0075-30
 ;;9002226.02101,"635,00083-0075-30 ",.02)
 ;;00083-0075-30
 ;;9002226.02101,"635,00083-0079-30 ",.01)
 ;;00083-0079-30
 ;;9002226.02101,"635,00083-0079-30 ",.02)
 ;;00083-0079-30
 ;;9002226.02101,"635,00083-0079-32 ",.01)
 ;;00083-0079-32
 ;;9002226.02101,"635,00083-0079-32 ",.02)
 ;;00083-0079-32
 ;;9002226.02101,"635,00083-0079-90 ",.01)
 ;;00083-0079-90
 ;;9002226.02101,"635,00083-0079-90 ",.02)
 ;;00083-0079-90
 ;;9002226.02101,"635,00083-0094-30 ",.01)
 ;;00083-0094-30
 ;;9002226.02101,"635,00083-0094-30 ",.02)
 ;;00083-0094-30
 ;;9002226.02101,"635,00083-0094-32 ",.01)
 ;;00083-0094-32
 ;;9002226.02101,"635,00083-0094-32 ",.02)
 ;;00083-0094-32
 ;;9002226.02101,"635,00083-0094-90 ",.01)
 ;;00083-0094-90
 ;;9002226.02101,"635,00083-0094-90 ",.02)
 ;;00083-0094-90
 ;;9002226.02101,"635,00083-2255-30 ",.01)
 ;;00083-2255-30
 ;;9002226.02101,"635,00083-2255-30 ",.02)
 ;;00083-2255-30
 ;;9002226.02101,"635,00083-2260-30 ",.01)
 ;;00083-2260-30
 ;;9002226.02101,"635,00083-2260-30 ",.02)
 ;;00083-2260-30
 ;;9002226.02101,"635,00083-2265-30 ",.01)
 ;;00083-2265-30
 ;;9002226.02101,"635,00083-2265-30 ",.02)
 ;;00083-2265-30
 ;;9002226.02101,"635,00087-0158-22 ",.01)
 ;;00087-0158-22
 ;;9002226.02101,"635,00087-0158-22 ",.02)
 ;;00087-0158-22
 ;;9002226.02101,"635,00087-0158-45 ",.01)
 ;;00087-0158-45
 ;;9002226.02101,"635,00087-0158-45 ",.02)
 ;;00087-0158-45
 ;;9002226.02101,"635,00087-0158-46 ",.01)
 ;;00087-0158-46
 ;;9002226.02101,"635,00087-0158-46 ",.02)
 ;;00087-0158-46
 ;;9002226.02101,"635,00087-0158-85 ",.01)
 ;;00087-0158-85
 ;;9002226.02101,"635,00087-0158-85 ",.02)
 ;;00087-0158-85
 ;;9002226.02101,"635,00087-0609-41 ",.01)
 ;;00087-0609-41
 ;;9002226.02101,"635,00087-0609-41 ",.02)
 ;;00087-0609-41
 ;;9002226.02101,"635,00087-0609-42 ",.01)
 ;;00087-0609-42
 ;;9002226.02101,"635,00087-0609-42 ",.02)
 ;;00087-0609-42