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

BGP7LXGH.m

Go to the documentation of this file.
BGP7LXGH ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 28, 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,"624,00591-5621-10 ",.02)
 ;;00591-5621-10
 ;;9002226.02101,"624,00591-5802-01 ",.01)
 ;;00591-5802-01
 ;;9002226.02101,"624,00591-5802-01 ",.02)
 ;;00591-5802-01
 ;;9002226.02101,"624,00591-5802-04 ",.01)
 ;;00591-5802-04
 ;;9002226.02101,"624,00591-5802-04 ",.02)
 ;;00591-5802-04
 ;;9002226.02101,"624,00591-5806-04 ",.01)
 ;;00591-5806-04
 ;;9002226.02101,"624,00591-5806-04 ",.02)
 ;;00591-5806-04
 ;;9002226.02101,"624,00603-1050-58 ",.01)
 ;;00603-1050-58
 ;;9002226.02101,"624,00603-1050-58 ",.02)
 ;;00603-1050-58
 ;;9002226.02101,"624,00603-2419-21 ",.01)
 ;;00603-2419-21
 ;;9002226.02101,"624,00603-2419-21 ",.02)
 ;;00603-2419-21
 ;;9002226.02101,"624,00603-2525-32 ",.01)
 ;;00603-2525-32
 ;;9002226.02101,"624,00603-2525-32 ",.02)
 ;;00603-2525-32
 ;;9002226.02101,"624,00603-2666-21 ",.01)
 ;;00603-2666-21
 ;;9002226.02101,"624,00603-2666-21 ",.02)
 ;;00603-2666-21
 ;;9002226.02101,"624,00603-2666-32 ",.01)
 ;;00603-2666-32
 ;;9002226.02101,"624,00603-2666-32 ",.02)
 ;;00603-2666-32
 ;;9002226.02101,"624,00603-2667-21 ",.01)
 ;;00603-2667-21
 ;;9002226.02101,"624,00603-2667-21 ",.02)
 ;;00603-2667-21
 ;;9002226.02101,"624,00603-2667-32 ",.01)
 ;;00603-2667-32
 ;;9002226.02101,"624,00603-2667-32 ",.02)
 ;;00603-2667-32
 ;;9002226.02101,"624,00603-2668-21 ",.01)
 ;;00603-2668-21
 ;;9002226.02101,"624,00603-2668-21 ",.02)
 ;;00603-2668-21
 ;;9002226.02101,"624,00603-2690-21 ",.01)
 ;;00603-2690-21
 ;;9002226.02101,"624,00603-2690-21 ",.02)
 ;;00603-2690-21
 ;;9002226.02101,"624,00603-2690-28 ",.01)
 ;;00603-2690-28
 ;;9002226.02101,"624,00603-2690-28 ",.02)
 ;;00603-2690-28
 ;;9002226.02101,"624,00603-2691-21 ",.01)
 ;;00603-2691-21
 ;;9002226.02101,"624,00603-2691-21 ",.02)
 ;;00603-2691-21
 ;;9002226.02101,"624,00603-2691-28 ",.01)
 ;;00603-2691-28
 ;;9002226.02101,"624,00603-2691-28 ",.02)
 ;;00603-2691-28
 ;;9002226.02101,"624,00603-3216-28 ",.01)
 ;;00603-3216-28
 ;;9002226.02101,"624,00603-3216-28 ",.02)
 ;;00603-3216-28
 ;;9002226.02101,"624,00603-3217-28 ",.01)
 ;;00603-3217-28
 ;;9002226.02101,"624,00603-3217-28 ",.02)
 ;;00603-3217-28
 ;;9002226.02101,"624,00603-3218-28 ",.01)
 ;;00603-3218-28
 ;;9002226.02101,"624,00603-3218-28 ",.02)
 ;;00603-3218-28
 ;;9002226.02101,"624,00603-3691-21 ",.01)
 ;;00603-3691-21
 ;;9002226.02101,"624,00603-3691-21 ",.02)
 ;;00603-3691-21
 ;;9002226.02101,"624,00603-3692-21 ",.01)
 ;;00603-3692-21
 ;;9002226.02101,"624,00603-3692-21 ",.02)
 ;;00603-3692-21
 ;;9002226.02101,"624,00603-3692-28 ",.01)
 ;;00603-3692-28
 ;;9002226.02101,"624,00603-3692-28 ",.02)
 ;;00603-3692-28
 ;;9002226.02101,"624,00603-5166-01 ",.01)
 ;;00603-5166-01
 ;;9002226.02101,"624,00603-5166-01 ",.02)
 ;;00603-5166-01
 ;;9002226.02101,"624,00603-5166-03 ",.01)
 ;;00603-5166-03
 ;;9002226.02101,"624,00603-5166-03 ",.02)
 ;;00603-5166-03
 ;;9002226.02101,"624,00603-5166-04 ",.01)
 ;;00603-5166-04
 ;;9002226.02101,"624,00603-5166-04 ",.02)
 ;;00603-5166-04
 ;;9002226.02101,"624,00615-0359-29 ",.01)
 ;;00615-0359-29
 ;;9002226.02101,"624,00615-0359-29 ",.02)
 ;;00615-0359-29
 ;;9002226.02101,"624,00615-0359-43 ",.01)
 ;;00615-0359-43
 ;;9002226.02101,"624,00615-0359-43 ",.02)
 ;;00615-0359-43
 ;;9002226.02101,"624,00615-0359-65 ",.01)
 ;;00615-0359-65
 ;;9002226.02101,"624,00615-0359-65 ",.02)
 ;;00615-0359-65
 ;;9002226.02101,"624,00615-0420-29 ",.01)
 ;;00615-0420-29
 ;;9002226.02101,"624,00615-0420-29 ",.02)
 ;;00615-0420-29
 ;;9002226.02101,"624,00615-0420-53 ",.01)
 ;;00615-0420-53
 ;;9002226.02101,"624,00615-0420-53 ",.02)
 ;;00615-0420-53
 ;;9002226.02101,"624,00615-0420-63 ",.01)
 ;;00615-0420-63
 ;;9002226.02101,"624,00615-0420-63 ",.02)
 ;;00615-0420-63
 ;;9002226.02101,"624,00615-0420-65 ",.01)
 ;;00615-0420-65
 ;;9002226.02101,"624,00615-0420-65 ",.02)
 ;;00615-0420-65
 ;;9002226.02101,"624,00615-0421-29 ",.01)
 ;;00615-0421-29
 ;;9002226.02101,"624,00615-0421-29 ",.02)
 ;;00615-0421-29
 ;;9002226.02101,"624,00615-0421-53 ",.01)
 ;;00615-0421-53
 ;;9002226.02101,"624,00615-0421-53 ",.02)
 ;;00615-0421-53
 ;;9002226.02101,"624,00615-0421-63 ",.01)
 ;;00615-0421-63
 ;;9002226.02101,"624,00615-0421-63 ",.02)
 ;;00615-0421-63
 ;;9002226.02101,"624,00615-0421-65 ",.01)
 ;;00615-0421-65
 ;;9002226.02101,"624,00615-0421-65 ",.02)
 ;;00615-0421-65
 ;;9002226.02101,"624,00615-0435-05 ",.01)
 ;;00615-0435-05
 ;;9002226.02101,"624,00615-0435-05 ",.02)
 ;;00615-0435-05
 ;;9002226.02101,"624,00615-0435-10 ",.01)
 ;;00615-0435-10
 ;;9002226.02101,"624,00615-0435-10 ",.02)
 ;;00615-0435-10
 ;;9002226.02101,"624,00615-0436-01 ",.01)
 ;;00615-0436-01
 ;;9002226.02101,"624,00615-0436-01 ",.02)
 ;;00615-0436-01
 ;;9002226.02101,"624,00615-0436-10 ",.01)
 ;;00615-0436-10
 ;;9002226.02101,"624,00615-0436-10 ",.02)
 ;;00615-0436-10
 ;;9002226.02101,"624,00615-0437-01 ",.01)
 ;;00615-0437-01
 ;;9002226.02101,"624,00615-0437-01 ",.02)
 ;;00615-0437-01
 ;;9002226.02101,"624,00615-0437-05 ",.01)
 ;;00615-0437-05
 ;;9002226.02101,"624,00615-0437-05 ",.02)
 ;;00615-0437-05
 ;;9002226.02101,"624,00615-0437-10 ",.01)
 ;;00615-0437-10
 ;;9002226.02101,"624,00615-0437-10 ",.02)
 ;;00615-0437-10
 ;;9002226.02101,"624,00615-0461-47 ",.01)
 ;;00615-0461-47
 ;;9002226.02101,"624,00615-0461-47 ",.02)
 ;;00615-0461-47
 ;;9002226.02101,"624,00615-0462-29 ",.01)
 ;;00615-0462-29
 ;;9002226.02101,"624,00615-0462-29 ",.02)
 ;;00615-0462-29
 ;;9002226.02101,"624,00615-0462-43 ",.01)
 ;;00615-0462-43
 ;;9002226.02101,"624,00615-0462-43 ",.02)
 ;;00615-0462-43
 ;;9002226.02101,"624,00615-0462-53 ",.01)
 ;;00615-0462-53
 ;;9002226.02101,"624,00615-0462-53 ",.02)
 ;;00615-0462-53
 ;;9002226.02101,"624,00615-0462-63 ",.01)
 ;;00615-0462-63
 ;;9002226.02101,"624,00615-0462-63 ",.02)
 ;;00615-0462-63
 ;;9002226.02101,"624,00615-0463-29 ",.01)
 ;;00615-0463-29
 ;;9002226.02101,"624,00615-0463-29 ",.02)
 ;;00615-0463-29
 ;;9002226.02101,"624,00615-0463-43 ",.01)
 ;;00615-0463-43
 ;;9002226.02101,"624,00615-0463-43 ",.02)
 ;;00615-0463-43
 ;;9002226.02101,"624,00615-0463-53 ",.01)
 ;;00615-0463-53
 ;;9002226.02101,"624,00615-0463-53 ",.02)
 ;;00615-0463-53
 ;;9002226.02101,"624,00615-0463-63 ",.01)
 ;;00615-0463-63
 ;;9002226.02101,"624,00615-0463-63 ",.02)
 ;;00615-0463-63
 ;;9002226.02101,"624,00615-1532-53 ",.01)
 ;;00615-1532-53
 ;;9002226.02101,"624,00615-1532-53 ",.02)
 ;;00615-1532-53
 ;;9002226.02101,"624,00615-1532-63 ",.01)
 ;;00615-1532-63
 ;;9002226.02101,"624,00615-1532-63 ",.02)
 ;;00615-1532-63
 ;;9002226.02101,"624,00615-1533-01 ",.01)
 ;;00615-1533-01
 ;;9002226.02101,"624,00615-1533-01 ",.02)
 ;;00615-1533-01
 ;;9002226.02101,"624,00615-1533-10 ",.01)
 ;;00615-1533-10
 ;;9002226.02101,"624,00615-1533-10 ",.02)
 ;;00615-1533-10
 ;;9002226.02101,"624,00615-1533-32 ",.01)
 ;;00615-1533-32
 ;;9002226.02101,"624,00615-1533-32 ",.02)
 ;;00615-1533-32
 ;;9002226.02101,"624,00615-1533-53 ",.01)
 ;;00615-1533-53
 ;;9002226.02101,"624,00615-1533-53 ",.02)
 ;;00615-1533-53
 ;;9002226.02101,"624,00615-1533-63 ",.01)
 ;;00615-1533-63
 ;;9002226.02101,"624,00615-1533-63 ",.02)
 ;;00615-1533-63
 ;;9002226.02101,"624,00615-2505-29 ",.01)
 ;;00615-2505-29
 ;;9002226.02101,"624,00615-2505-29 ",.02)
 ;;00615-2505-29
 ;;9002226.02101,"624,00615-2505-43 ",.01)
 ;;00615-2505-43
 ;;9002226.02101,"624,00615-2505-43 ",.02)
 ;;00615-2505-43
 ;;9002226.02101,"624,00615-2505-63 ",.01)
 ;;00615-2505-63
 ;;9002226.02101,"624,00615-2505-63 ",.02)
 ;;00615-2505-63
 ;;9002226.02101,"624,00615-2505-65 ",.01)
 ;;00615-2505-65
 ;;9002226.02101,"624,00615-2505-65 ",.02)
 ;;00615-2505-65
 ;;9002226.02101,"624,00615-2505-88 ",.01)
 ;;00615-2505-88
 ;;9002226.02101,"624,00615-2505-88 ",.02)
 ;;00615-2505-88
 ;;9002226.02101,"624,00615-2508-29 ",.01)
 ;;00615-2508-29
 ;;9002226.02101,"624,00615-2508-29 ",.02)
 ;;00615-2508-29
 ;;9002226.02101,"624,00615-2508-63 ",.01)
 ;;00615-2508-63
 ;;9002226.02101,"624,00615-2508-63 ",.02)
 ;;00615-2508-63
 ;;9002226.02101,"624,00615-2508-65 ",.01)
 ;;00615-2508-65
 ;;9002226.02101,"624,00615-2508-65 ",.02)
 ;;00615-2508-65
 ;;9002226.02101,"624,00615-2508-88 ",.01)
 ;;00615-2508-88
 ;;9002226.02101,"624,00615-2508-88 ",.02)
 ;;00615-2508-88
 ;;9002226.02101,"624,00615-2509-29 ",.01)
 ;;00615-2509-29
 ;;9002226.02101,"624,00615-2509-29 ",.02)
 ;;00615-2509-29
 ;;9002226.02101,"624,00615-2509-43 ",.01)
 ;;00615-2509-43
 ;;9002226.02101,"624,00615-2509-43 ",.02)
 ;;00615-2509-43
 ;;9002226.02101,"624,00615-2509-63 ",.01)
 ;;00615-2509-63
 ;;9002226.02101,"624,00615-2509-63 ",.02)
 ;;00615-2509-63
 ;;9002226.02101,"624,00615-2509-65 ",.01)
 ;;00615-2509-65
 ;;9002226.02101,"624,00615-2509-65 ",.02)
 ;;00615-2509-65
 ;;9002226.02101,"624,00615-2509-88 ",.01)
 ;;00615-2509-88
 ;;9002226.02101,"624,00615-2509-88 ",.02)
 ;;00615-2509-88
 ;;9002226.02101,"624,00615-2510-29 ",.01)
 ;;00615-2510-29
 ;;9002226.02101,"624,00615-2510-29 ",.02)
 ;;00615-2510-29
 ;;9002226.02101,"624,00615-2510-43 ",.01)
 ;;00615-2510-43
 ;;9002226.02101,"624,00615-2510-43 ",.02)
 ;;00615-2510-43
 ;;9002226.02101,"624,00615-2510-63 ",.01)
 ;;00615-2510-63
 ;;9002226.02101,"624,00615-2510-63 ",.02)
 ;;00615-2510-63
 ;;9002226.02101,"624,00615-2510-65 ",.01)
 ;;00615-2510-65
 ;;9002226.02101,"624,00615-2510-65 ",.02)
 ;;00615-2510-65
 ;;9002226.02101,"624,00615-2510-88 ",.01)
 ;;00615-2510-88
 ;;9002226.02101,"624,00615-2510-88 ",.02)
 ;;00615-2510-88
 ;;9002226.02101,"624,00641-0369-25 ",.01)
 ;;00641-0369-25
 ;;9002226.02101,"624,00641-0369-25 ",.02)
 ;;00641-0369-25
 ;;9002226.02101,"624,00641-0371-25 ",.01)
 ;;00641-0371-25
 ;;9002226.02101,"624,00641-0371-25 ",.02)
 ;;00641-0371-25
 ;;9002226.02101,"624,00641-0480-25 ",.01)
 ;;00641-0480-25
 ;;9002226.02101,"624,00641-0480-25 ",.02)
 ;;00641-0480-25
 ;;9002226.02101,"624,00641-1408-33 ",.01)
 ;;00641-1408-33
 ;;9002226.02101,"624,00641-1408-33 ",.02)
 ;;00641-1408-33
 ;;9002226.02101,"624,00641-1408-35 ",.01)
 ;;00641-1408-35
 ;;9002226.02101,"624,00641-1408-35 ",.02)
 ;;00641-1408-35
 ;;9002226.02101,"624,00641-2289-41 ",.01)
 ;;00641-2289-41
 ;;9002226.02101,"624,00641-2289-41 ",.02)
 ;;00641-2289-41
 ;;9002226.02101,"624,00675-2711-16 ",.01)
 ;;00675-2711-16
 ;;9002226.02101,"624,00675-2711-16 ",.02)
 ;;00675-2711-16
 ;;9002226.02101,"624,00675-2711-28 ",.01)
 ;;00675-2711-28
 ;;9002226.02101,"624,00675-2711-28 ",.02)
 ;;00675-2711-28
 ;;9002226.02101,"624,00675-2723-16 ",.01)
 ;;00675-2723-16
 ;;9002226.02101,"624,00675-2723-16 ",.02)
 ;;00675-2723-16
 ;;9002226.02101,"624,00675-2723-28 ",.01)
 ;;00675-2723-28
 ;;9002226.02101,"624,00675-2723-28 ",.02)
 ;;00675-2723-28
 ;;9002226.02101,"624,00675-2797-16 ",.01)
 ;;00675-2797-16
 ;;9002226.02101,"624,00675-2797-16 ",.02)
 ;;00675-2797-16
 ;;9002226.02101,"624,00675-2797-28 ",.01)
 ;;00675-2797-28
 ;;9002226.02101,"624,00675-2797-28 ",.02)
 ;;00675-2797-28
 ;;9002226.02101,"624,00675-3741-07 ",.01)
 ;;00675-3741-07
 ;;9002226.02101,"624,00675-3741-07 ",.02)
 ;;00675-3741-07
 ;;9002226.02101,"624,00675-3741-12 ",.01)
 ;;00675-3741-12
 ;;9002226.02101,"624,00675-3741-12 ",.02)
 ;;00675-3741-12
 ;;9002226.02101,"624,00675-3741-15 ",.01)
 ;;00675-3741-15
 ;;9002226.02101,"624,00675-3741-15 ",.02)
 ;;00675-3741-15
 ;;9002226.02101,"624,00675-3818-07 ",.01)
 ;;00675-3818-07
 ;;9002226.02101,"624,00675-3818-07 ",.02)
 ;;00675-3818-07
 ;;9002226.02101,"624,00675-3818-12 ",.01)
 ;;00675-3818-12
 ;;9002226.02101,"624,00675-3818-12 ",.02)
 ;;00675-3818-12
 ;;9002226.02101,"624,00675-3819-07 ",.01)
 ;;00675-3819-07
 ;;9002226.02101,"624,00675-3819-07 ",.02)
 ;;00675-3819-07
 ;;9002226.02101,"624,00675-3819-12 ",.01)
 ;;00675-3819-12
 ;;9002226.02101,"624,00675-3819-12 ",.02)
 ;;00675-3819-12
 ;;9002226.02101,"624,00675-3824-12 ",.01)
 ;;00675-3824-12
 ;;9002226.02101,"624,00675-3824-12 ",.02)
 ;;00675-3824-12
 ;;9002226.02101,"624,00675-3836-12 ",.01)
 ;;00675-3836-12
 ;;9002226.02101,"624,00675-3836-12 ",.02)
 ;;00675-3836-12
 ;;9002226.02101,"624,00675-4018-07 ",.01)
 ;;00675-4018-07
 ;;9002226.02101,"624,00675-4018-07 ",.02)
 ;;00675-4018-07
 ;;9002226.02101,"624,00675-4018-10 ",.01)
 ;;00675-4018-10
 ;;9002226.02101,"624,00675-4018-10 ",.02)
 ;;00675-4018-10
 ;;9002226.02101,"624,00675-4021-07 ",.01)
 ;;00675-4021-07
 ;;9002226.02101,"624,00675-4021-07 ",.02)
 ;;00675-4021-07
 ;;9002226.02101,"624,00675-4021-10 ",.01)
 ;;00675-4021-10
 ;;9002226.02101,"624,00675-4021-10 ",.02)
 ;;00675-4021-10
 ;;9002226.02101,"624,00675-4021-12 ",.01)
 ;;00675-4021-12
 ;;9002226.02101,"624,00675-4021-12 ",.02)
 ;;00675-4021-12
 ;;9002226.02101,"624,00675-4022-07 ",.01)
 ;;00675-4022-07
 ;;9002226.02101,"624,00675-4022-07 ",.02)
 ;;00675-4022-07
 ;;9002226.02101,"624,00675-4022-10 ",.01)
 ;;00675-4022-10
 ;;9002226.02101,"624,00675-4022-10 ",.02)
 ;;00675-4022-10
 ;;9002226.02101,"624,00675-4022-12 ",.01)
 ;;00675-4022-12
 ;;9002226.02101,"624,00675-4022-12 ",.02)
 ;;00675-4022-12
 ;;9002226.02101,"624,00675-4028-07 ",.01)
 ;;00675-4028-07
 ;;9002226.02101,"624,00675-4028-07 ",.02)
 ;;00675-4028-07
 ;;9002226.02101,"624,00675-4028-10 ",.01)
 ;;00675-4028-10
 ;;9002226.02101,"624,00675-4028-10 ",.02)
 ;;00675-4028-10
 ;;9002226.02101,"624,00675-4028-12 ",.01)
 ;;00675-4028-12
 ;;9002226.02101,"624,00675-4028-12 ",.02)
 ;;00675-4028-12
 ;;9002226.02101,"624,00677-0457-01 ",.01)
 ;;00677-0457-01
 ;;9002226.02101,"624,00677-0457-01 ",.02)
 ;;00677-0457-01
 ;;9002226.02101,"624,00677-0459-01 ",.01)
 ;;00677-0459-01