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

BGP7LXOH.m

Go to the documentation of this file.
BGP7LXOH ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 29, 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,"632,53265-0256-10 ",.02)
 ;;53265-0256-10
 ;;9002226.02101,"632,53265-0256-11 ",.01)
 ;;53265-0256-11
 ;;9002226.02101,"632,53265-0256-11 ",.02)
 ;;53265-0256-11
 ;;9002226.02101,"632,53265-0256-50 ",.01)
 ;;53265-0256-50
 ;;9002226.02101,"632,53265-0256-50 ",.02)
 ;;53265-0256-50
 ;;9002226.02101,"632,53265-0261-10 ",.01)
 ;;53265-0261-10
 ;;9002226.02101,"632,53265-0261-10 ",.02)
 ;;53265-0261-10
 ;;9002226.02101,"632,53265-0261-11 ",.01)
 ;;53265-0261-11
 ;;9002226.02101,"632,53265-0261-11 ",.02)
 ;;53265-0261-11
 ;;9002226.02101,"632,53265-0261-50 ",.01)
 ;;53265-0261-50
 ;;9002226.02101,"632,53265-0261-50 ",.02)
 ;;53265-0261-50
 ;;9002226.02101,"632,53809-0305-01 ",.01)
 ;;53809-0305-01
 ;;9002226.02101,"632,53809-0305-01 ",.02)
 ;;53809-0305-01
 ;;9002226.02101,"632,53978-5013-05 ",.01)
 ;;53978-5013-05
 ;;9002226.02101,"632,53978-5013-05 ",.02)
 ;;53978-5013-05
 ;;9002226.02101,"632,54274-0288-10 ",.01)
 ;;54274-0288-10
 ;;9002226.02101,"632,54274-0288-10 ",.02)
 ;;54274-0288-10
 ;;9002226.02101,"632,54274-0288-27 ",.01)
 ;;54274-0288-27
 ;;9002226.02101,"632,54274-0288-27 ",.02)
 ;;54274-0288-27
 ;;9002226.02101,"632,54274-0627-16 ",.01)
 ;;54274-0627-16
 ;;9002226.02101,"632,54274-0627-16 ",.02)
 ;;54274-0627-16
 ;;9002226.02101,"632,54274-0628-38 ",.01)
 ;;54274-0628-38
 ;;9002226.02101,"632,54274-0628-38 ",.02)
 ;;54274-0628-38
 ;;9002226.02101,"632,54348-0014-10 ",.01)
 ;;54348-0014-10
 ;;9002226.02101,"632,54348-0014-10 ",.02)
 ;;54348-0014-10
 ;;9002226.02101,"632,54348-0014-30 ",.01)
 ;;54348-0014-30
 ;;9002226.02101,"632,54348-0014-30 ",.02)
 ;;54348-0014-30
 ;;9002226.02101,"632,54348-0645-07 ",.01)
 ;;54348-0645-07
 ;;9002226.02101,"632,54348-0645-07 ",.02)
 ;;54348-0645-07
 ;;9002226.02101,"632,54348-0645-21 ",.01)
 ;;54348-0645-21
 ;;9002226.02101,"632,54348-0645-21 ",.02)
 ;;54348-0645-21
 ;;9002226.02101,"632,54348-0714-21 ",.01)
 ;;54348-0714-21
 ;;9002226.02101,"632,54348-0714-21 ",.02)
 ;;54348-0714-21
 ;;9002226.02101,"632,54348-0716-30 ",.01)
 ;;54348-0716-30
 ;;9002226.02101,"632,54348-0716-30 ",.02)
 ;;54348-0716-30
 ;;9002226.02101,"632,54348-0717-30 ",.01)
 ;;54348-0717-30
 ;;9002226.02101,"632,54348-0717-30 ",.02)
 ;;54348-0717-30
 ;;9002226.02101,"632,54348-0719-30 ",.01)
 ;;54348-0719-30
 ;;9002226.02101,"632,54348-0719-30 ",.02)
 ;;54348-0719-30
 ;;9002226.02101,"632,54348-0723-30 ",.01)
 ;;54348-0723-30
 ;;9002226.02101,"632,54348-0723-30 ",.02)
 ;;54348-0723-30
 ;;9002226.02101,"632,54569-0811-03 ",.01)
 ;;54569-0811-03
 ;;9002226.02101,"632,54569-0811-03 ",.02)
 ;;54569-0811-03
 ;;9002226.02101,"632,54569-0812-06 ",.01)
 ;;54569-0812-06
 ;;9002226.02101,"632,54569-0812-06 ",.02)
 ;;54569-0812-06
 ;;9002226.02101,"632,54569-1903-01 ",.01)
 ;;54569-1903-01
 ;;9002226.02101,"632,54569-1903-01 ",.02)
 ;;54569-1903-01
 ;;9002226.02101,"632,54569-2588-00 ",.01)
 ;;54569-2588-00
 ;;9002226.02101,"632,54569-2588-00 ",.02)
 ;;54569-2588-00
 ;;9002226.02101,"632,54569-2588-01 ",.01)
 ;;54569-2588-01
 ;;9002226.02101,"632,54569-2588-01 ",.02)
 ;;54569-2588-01
 ;;9002226.02101,"632,54569-4354-00 ",.01)
 ;;54569-4354-00
 ;;9002226.02101,"632,54569-4354-00 ",.02)
 ;;54569-4354-00
 ;;9002226.02101,"632,54569-4365-00 ",.01)
 ;;54569-4365-00
 ;;9002226.02101,"632,54569-4365-00 ",.02)
 ;;54569-4365-00
 ;;9002226.02101,"632,54569-4366-00 ",.01)
 ;;54569-4366-00
 ;;9002226.02101,"632,54569-4366-00 ",.02)
 ;;54569-4366-00
 ;;9002226.02101,"632,54569-5141-00 ",.01)
 ;;54569-5141-00
 ;;9002226.02101,"632,54569-5141-00 ",.02)
 ;;54569-5141-00
 ;;9002226.02101,"632,54569-5158-00 ",.01)
 ;;54569-5158-00
 ;;9002226.02101,"632,54569-5158-00 ",.02)
 ;;54569-5158-00
 ;;9002226.02101,"632,54569-5657-00 ",.01)
 ;;54569-5657-00
 ;;9002226.02101,"632,54569-5657-00 ",.02)
 ;;54569-5657-00
 ;;9002226.02101,"632,54868-0365-02 ",.01)
 ;;54868-0365-02
 ;;9002226.02101,"632,54868-0365-02 ",.02)
 ;;54868-0365-02
 ;;9002226.02101,"632,54868-0365-03 ",.01)
 ;;54868-0365-03
 ;;9002226.02101,"632,54868-0365-03 ",.02)
 ;;54868-0365-03
 ;;9002226.02101,"632,54868-0451-06 ",.01)
 ;;54868-0451-06
 ;;9002226.02101,"632,54868-0451-06 ",.02)
 ;;54868-0451-06
 ;;9002226.02101,"632,54868-0494-00 ",.01)
 ;;54868-0494-00
 ;;9002226.02101,"632,54868-0494-00 ",.02)
 ;;54868-0494-00
 ;;9002226.02101,"632,54868-0494-01 ",.01)
 ;;54868-0494-01
 ;;9002226.02101,"632,54868-0494-01 ",.02)
 ;;54868-0494-01
 ;;9002226.02101,"632,54868-0494-02 ",.01)
 ;;54868-0494-02
 ;;9002226.02101,"632,54868-0494-02 ",.02)
 ;;54868-0494-02
 ;;9002226.02101,"632,54868-0495-00 ",.01)
 ;;54868-0495-00
 ;;9002226.02101,"632,54868-0495-00 ",.02)
 ;;54868-0495-00
 ;;9002226.02101,"632,54868-1262-01 ",.01)
 ;;54868-1262-01
 ;;9002226.02101,"632,54868-1262-01 ",.02)
 ;;54868-1262-01
 ;;9002226.02101,"632,54868-1262-02 ",.01)
 ;;54868-1262-02
 ;;9002226.02101,"632,54868-1262-02 ",.02)
 ;;54868-1262-02
 ;;9002226.02101,"632,54868-1326-04 ",.01)
 ;;54868-1326-04
 ;;9002226.02101,"632,54868-1326-04 ",.02)
 ;;54868-1326-04
 ;;9002226.02101,"632,54868-1356-00 ",.01)
 ;;54868-1356-00
 ;;9002226.02101,"632,54868-1356-00 ",.02)
 ;;54868-1356-00
 ;;9002226.02101,"632,54868-2530-00 ",.01)
 ;;54868-2530-00
 ;;9002226.02101,"632,54868-2530-00 ",.02)
 ;;54868-2530-00
 ;;9002226.02101,"632,54868-2542-00 ",.01)
 ;;54868-2542-00
 ;;9002226.02101,"632,54868-2542-00 ",.02)
 ;;54868-2542-00
 ;;9002226.02101,"632,54868-2702-01 ",.01)
 ;;54868-2702-01
 ;;9002226.02101,"632,54868-2702-01 ",.02)
 ;;54868-2702-01
 ;;9002226.02101,"632,54868-2702-02 ",.01)
 ;;54868-2702-02
 ;;9002226.02101,"632,54868-2702-02 ",.02)
 ;;54868-2702-02
 ;;9002226.02101,"632,54868-2702-03 ",.01)
 ;;54868-2702-03
 ;;9002226.02101,"632,54868-2702-03 ",.02)
 ;;54868-2702-03
 ;;9002226.02101,"632,54868-3114-00 ",.01)
 ;;54868-3114-00
 ;;9002226.02101,"632,54868-3114-00 ",.02)
 ;;54868-3114-00
 ;;9002226.02101,"632,54868-3247-00 ",.01)
 ;;54868-3247-00
 ;;9002226.02101,"632,54868-3247-00 ",.02)
 ;;54868-3247-00
 ;;9002226.02101,"632,54868-3247-01 ",.01)
 ;;54868-3247-01
 ;;9002226.02101,"632,54868-3247-01 ",.02)
 ;;54868-3247-01
 ;;9002226.02101,"632,54868-3564-00 ",.01)
 ;;54868-3564-00
 ;;9002226.02101,"632,54868-3564-00 ",.02)
 ;;54868-3564-00
 ;;9002226.02101,"632,54868-3564-01 ",.01)
 ;;54868-3564-01
 ;;9002226.02101,"632,54868-3564-01 ",.02)
 ;;54868-3564-01
 ;;9002226.02101,"632,54868-3564-02 ",.01)
 ;;54868-3564-02
 ;;9002226.02101,"632,54868-3564-02 ",.02)
 ;;54868-3564-02
 ;;9002226.02101,"632,54868-3565-00 ",.01)
 ;;54868-3565-00
 ;;9002226.02101,"632,54868-3565-00 ",.02)
 ;;54868-3565-00
 ;;9002226.02101,"632,54868-3565-01 ",.01)
 ;;54868-3565-01
 ;;9002226.02101,"632,54868-3565-01 ",.02)
 ;;54868-3565-01
 ;;9002226.02101,"632,54868-3565-02 ",.01)
 ;;54868-3565-02
 ;;9002226.02101,"632,54868-3565-02 ",.02)
 ;;54868-3565-02
 ;;9002226.02101,"632,54868-3646-00 ",.01)
 ;;54868-3646-00
 ;;9002226.02101,"632,54868-3646-00 ",.02)
 ;;54868-3646-00
 ;;9002226.02101,"632,54868-3653-00 ",.01)
 ;;54868-3653-00
 ;;9002226.02101,"632,54868-3653-00 ",.02)
 ;;54868-3653-00
 ;;9002226.02101,"632,54868-3672-01 ",.01)
 ;;54868-3672-01
 ;;9002226.02101,"632,54868-3672-01 ",.02)
 ;;54868-3672-01
 ;;9002226.02101,"632,54868-4030-00 ",.01)
 ;;54868-4030-00
 ;;9002226.02101,"632,54868-4030-00 ",.02)
 ;;54868-4030-00
 ;;9002226.02101,"632,54868-4030-01 ",.01)
 ;;54868-4030-01
 ;;9002226.02101,"632,54868-4030-01 ",.02)
 ;;54868-4030-01
 ;;9002226.02101,"632,54868-4031-00 ",.01)
 ;;54868-4031-00
 ;;9002226.02101,"632,54868-4031-00 ",.02)
 ;;54868-4031-00
 ;;9002226.02101,"632,54868-4031-01 ",.01)
 ;;54868-4031-01
 ;;9002226.02101,"632,54868-4031-01 ",.02)
 ;;54868-4031-01
 ;;9002226.02101,"632,54868-4031-02 ",.01)
 ;;54868-4031-02
 ;;9002226.02101,"632,54868-4031-02 ",.02)
 ;;54868-4031-02
 ;;9002226.02101,"632,54868-4136-02 ",.01)
 ;;54868-4136-02
 ;;9002226.02101,"632,54868-4136-02 ",.02)
 ;;54868-4136-02
 ;;9002226.02101,"632,54868-4149-00 ",.01)
 ;;54868-4149-00
 ;;9002226.02101,"632,54868-4149-00 ",.02)
 ;;54868-4149-00
 ;;9002226.02101,"632,54868-4149-01 ",.01)
 ;;54868-4149-01
 ;;9002226.02101,"632,54868-4149-01 ",.02)
 ;;54868-4149-01
 ;;9002226.02101,"632,54868-4761-01 ",.01)
 ;;54868-4761-01
 ;;9002226.02101,"632,54868-4761-01 ",.02)
 ;;54868-4761-01
 ;;9002226.02101,"632,54868-4761-02 ",.01)
 ;;54868-4761-02
 ;;9002226.02101,"632,54868-4761-02 ",.02)
 ;;54868-4761-02
 ;;9002226.02101,"632,54868-4771-00 ",.01)
 ;;54868-4771-00
 ;;9002226.02101,"632,54868-4771-00 ",.02)
 ;;54868-4771-00
 ;;9002226.02101,"632,54868-4771-01 ",.01)
 ;;54868-4771-01
 ;;9002226.02101,"632,54868-4771-01 ",.02)
 ;;54868-4771-01
 ;;9002226.02101,"632,54868-4865-00 ",.01)
 ;;54868-4865-00
 ;;9002226.02101,"632,54868-4865-00 ",.02)
 ;;54868-4865-00
 ;;9002226.02101,"632,54868-4866-00 ",.01)
 ;;54868-4866-00
 ;;9002226.02101,"632,54868-4866-00 ",.02)
 ;;54868-4866-00
 ;;9002226.02101,"632,54868-4879-00 ",.01)
 ;;54868-4879-00
 ;;9002226.02101,"632,54868-4879-00 ",.02)
 ;;54868-4879-00
 ;;9002226.02101,"632,54868-5003-00 ",.01)
 ;;54868-5003-00
 ;;9002226.02101,"632,54868-5003-00 ",.02)
 ;;54868-5003-00
 ;;9002226.02101,"632,54868-5003-01 ",.01)
 ;;54868-5003-01
 ;;9002226.02101,"632,54868-5003-01 ",.02)
 ;;54868-5003-01
 ;;9002226.02101,"632,54868-5047-00 ",.01)
 ;;54868-5047-00
 ;;9002226.02101,"632,54868-5047-00 ",.02)
 ;;54868-5047-00
 ;;9002226.02101,"632,54979-0145-01 ",.01)
 ;;54979-0145-01
 ;;9002226.02101,"632,54979-0145-01 ",.02)
 ;;54979-0145-01
 ;;9002226.02101,"632,54979-0145-10 ",.01)
 ;;54979-0145-10
 ;;9002226.02101,"632,54979-0145-10 ",.02)
 ;;54979-0145-10
 ;;9002226.02101,"632,55045-1127-03 ",.01)
 ;;55045-1127-03
 ;;9002226.02101,"632,55045-1127-03 ",.02)
 ;;55045-1127-03
 ;;9002226.02101,"632,55045-1127-09 ",.01)
 ;;55045-1127-09
 ;;9002226.02101,"632,55045-1127-09 ",.02)
 ;;55045-1127-09
 ;;9002226.02101,"632,55045-1131-01 ",.01)
 ;;55045-1131-01
 ;;9002226.02101,"632,55045-1131-01 ",.02)
 ;;55045-1131-01
 ;;9002226.02101,"632,55045-1599-06 ",.01)
 ;;55045-1599-06
 ;;9002226.02101,"632,55045-1599-06 ",.02)
 ;;55045-1599-06
 ;;9002226.02101,"632,55045-1599-09 ",.01)
 ;;55045-1599-09
 ;;9002226.02101,"632,55045-1599-09 ",.02)
 ;;55045-1599-09
 ;;9002226.02101,"632,55045-1903-01 ",.01)
 ;;55045-1903-01
 ;;9002226.02101,"632,55045-1903-01 ",.02)
 ;;55045-1903-01
 ;;9002226.02101,"632,55045-1903-03 ",.01)
 ;;55045-1903-03
 ;;9002226.02101,"632,55045-1903-03 ",.02)
 ;;55045-1903-03
 ;;9002226.02101,"632,55045-1903-04 ",.01)
 ;;55045-1903-04
 ;;9002226.02101,"632,55045-1903-04 ",.02)
 ;;55045-1903-04
 ;;9002226.02101,"632,55045-1951-01 ",.01)
 ;;55045-1951-01
 ;;9002226.02101,"632,55045-1951-01 ",.02)
 ;;55045-1951-01
 ;;9002226.02101,"632,55045-2059-01 ",.01)
 ;;55045-2059-01
 ;;9002226.02101,"632,55045-2059-01 ",.02)
 ;;55045-2059-01
 ;;9002226.02101,"632,55045-2739-00 ",.01)
 ;;55045-2739-00
 ;;9002226.02101,"632,55045-2739-00 ",.02)
 ;;55045-2739-00
 ;;9002226.02101,"632,55045-2850-00 ",.01)
 ;;55045-2850-00
 ;;9002226.02101,"632,55045-2850-00 ",.02)
 ;;55045-2850-00
 ;;9002226.02101,"632,55045-3095-01 ",.01)
 ;;55045-3095-01
 ;;9002226.02101,"632,55045-3095-01 ",.02)
 ;;55045-3095-01
 ;;9002226.02101,"632,55045-3335-00 ",.01)
 ;;55045-3335-00
 ;;9002226.02101,"632,55045-3335-00 ",.02)
 ;;55045-3335-00
 ;;9002226.02101,"632,55045-3335-01 ",.01)
 ;;55045-3335-01
 ;;9002226.02101,"632,55045-3335-01 ",.02)
 ;;55045-3335-01
 ;;9002226.02101,"632,55175-1679-00 ",.01)
 ;;55175-1679-00
 ;;9002226.02101,"632,55175-1679-00 ",.02)
 ;;55175-1679-00
 ;;9002226.02101,"632,55175-1684-01 ",.01)
 ;;55175-1684-01
 ;;9002226.02101,"632,55175-1684-01 ",.02)
 ;;55175-1684-01
 ;;9002226.02101,"632,55175-1685-01 ",.01)
 ;;55175-1685-01
 ;;9002226.02101,"632,55175-1685-01 ",.02)
 ;;55175-1685-01
 ;;9002226.02101,"632,55175-2618-00 ",.01)
 ;;55175-2618-00
 ;;9002226.02101,"632,55175-2618-00 ",.02)
 ;;55175-2618-00
 ;;9002226.02101,"632,55175-2618-01 ",.01)
 ;;55175-2618-01
 ;;9002226.02101,"632,55175-2618-01 ",.02)
 ;;55175-2618-01
 ;;9002226.02101,"632,55175-2618-02 ",.01)
 ;;55175-2618-02
 ;;9002226.02101,"632,55175-2618-02 ",.02)
 ;;55175-2618-02
 ;;9002226.02101,"632,55175-2618-03 ",.01)
 ;;55175-2618-03
 ;;9002226.02101,"632,55175-2618-03 ",.02)
 ;;55175-2618-03
 ;;9002226.02101,"632,55175-2618-04 ",.01)
 ;;55175-2618-04
 ;;9002226.02101,"632,55175-2618-04 ",.02)
 ;;55175-2618-04
 ;;9002226.02101,"632,55175-2618-09 ",.01)
 ;;55175-2618-09
 ;;9002226.02101,"632,55175-2618-09 ",.02)
 ;;55175-2618-09
 ;;9002226.02101,"632,55175-4415-01 ",.01)
 ;;55175-4415-01
 ;;9002226.02101,"632,55175-4415-01 ",.02)
 ;;55175-4415-01
 ;;9002226.02101,"632,55175-4472-00 ",.01)
 ;;55175-4472-00
 ;;9002226.02101,"632,55175-4472-00 ",.02)
 ;;55175-4472-00
 ;;9002226.02101,"632,55175-4472-01 ",.01)
 ;;55175-4472-01
 ;;9002226.02101,"632,55175-4472-01 ",.02)
 ;;55175-4472-01
 ;;9002226.02101,"632,55175-4472-02 ",.01)
 ;;55175-4472-02
 ;;9002226.02101,"632,55175-4472-02 ",.02)
 ;;55175-4472-02
 ;;9002226.02101,"632,55175-4472-03 ",.01)
 ;;55175-4472-03
 ;;9002226.02101,"632,55175-4472-03 ",.02)
 ;;55175-4472-03
 ;;9002226.02101,"632,55175-5202-02 ",.01)
 ;;55175-5202-02
 ;;9002226.02101,"632,55175-5202-02 ",.02)
 ;;55175-5202-02
 ;;9002226.02101,"632,55175-5340-03 ",.01)
 ;;55175-5340-03
 ;;9002226.02101,"632,55175-5340-03 ",.02)
 ;;55175-5340-03
 ;;9002226.02101,"632,55175-5520-03 ",.01)
 ;;55175-5520-03