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

BGP7LXAJ.m

Go to the documentation of this file.
BGP7LXAJ ; 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,"622,53014-0532-07 ",.02)
 ;;53014-0532-07
 ;;9002226.02101,"622,53014-0532-12 ",.01)
 ;;53014-0532-12
 ;;9002226.02101,"622,53014-0532-12 ",.02)
 ;;53014-0532-12
 ;;9002226.02101,"622,53014-0562-07 ",.01)
 ;;53014-0562-07
 ;;9002226.02101,"622,53014-0562-07 ",.02)
 ;;53014-0562-07
 ;;9002226.02101,"622,53014-0574-07 ",.01)
 ;;53014-0574-07
 ;;9002226.02101,"622,53014-0574-07 ",.02)
 ;;53014-0574-07
 ;;9002226.02101,"622,53014-0575-07 ",.01)
 ;;53014-0575-07
 ;;9002226.02101,"622,53014-0575-07 ",.02)
 ;;53014-0575-07
 ;;9002226.02101,"622,53014-0575-30 ",.01)
 ;;53014-0575-30
 ;;9002226.02101,"622,53014-0575-30 ",.02)
 ;;53014-0575-30
 ;;9002226.02101,"622,53014-0575-72 ",.01)
 ;;53014-0575-72
 ;;9002226.02101,"622,53014-0575-72 ",.02)
 ;;53014-0575-72
 ;;9002226.02101,"622,53014-0576-07 ",.01)
 ;;53014-0576-07
 ;;9002226.02101,"622,53014-0576-07 ",.02)
 ;;53014-0576-07
 ;;9002226.02101,"622,53014-0593-07 ",.01)
 ;;53014-0593-07
 ;;9002226.02101,"622,53014-0593-07 ",.02)
 ;;53014-0593-07
 ;;9002226.02101,"622,53014-0594-07 ",.01)
 ;;53014-0594-07
 ;;9002226.02101,"622,53014-0594-07 ",.02)
 ;;53014-0594-07
 ;;9002226.02101,"622,53014-0903-71 ",.01)
 ;;53014-0903-71
 ;;9002226.02101,"622,53014-0903-71 ",.02)
 ;;53014-0903-71
 ;;9002226.02101,"622,53014-0903-84 ",.01)
 ;;53014-0903-84
 ;;9002226.02101,"622,53014-0903-84 ",.02)
 ;;53014-0903-84
 ;;9002226.02101,"622,53014-0904-71 ",.01)
 ;;53014-0904-71
 ;;9002226.02101,"622,53014-0904-71 ",.02)
 ;;53014-0904-71
 ;;9002226.02101,"622,53014-0904-84 ",.01)
 ;;53014-0904-84
 ;;9002226.02101,"622,53014-0904-84 ",.02)
 ;;53014-0904-84
 ;;9002226.02101,"622,53265-0253-10 ",.01)
 ;;53265-0253-10
 ;;9002226.02101,"622,53265-0253-10 ",.02)
 ;;53265-0253-10
 ;;9002226.02101,"622,53265-0253-11 ",.01)
 ;;53265-0253-11
 ;;9002226.02101,"622,53265-0253-11 ",.02)
 ;;53265-0253-11
 ;;9002226.02101,"622,53265-0254-10 ",.01)
 ;;53265-0254-10
 ;;9002226.02101,"622,53265-0254-10 ",.02)
 ;;53265-0254-10
 ;;9002226.02101,"622,53265-0254-11 ",.01)
 ;;53265-0254-11
 ;;9002226.02101,"622,53265-0254-11 ",.02)
 ;;53265-0254-11
 ;;9002226.02101,"622,53265-0255-10 ",.01)
 ;;53265-0255-10
 ;;9002226.02101,"622,53265-0255-10 ",.02)
 ;;53265-0255-10
 ;;9002226.02101,"622,53265-0257-10 ",.01)
 ;;53265-0257-10
 ;;9002226.02101,"622,53265-0257-10 ",.02)
 ;;53265-0257-10
 ;;9002226.02101,"622,53265-0257-11 ",.01)
 ;;53265-0257-11
 ;;9002226.02101,"622,53265-0257-11 ",.02)
 ;;53265-0257-11
 ;;9002226.02101,"622,53265-0257-40 ",.01)
 ;;53265-0257-40
 ;;9002226.02101,"622,53265-0257-40 ",.02)
 ;;53265-0257-40
 ;;9002226.02101,"622,53265-0258-10 ",.01)
 ;;53265-0258-10
 ;;9002226.02101,"622,53265-0258-10 ",.02)
 ;;53265-0258-10
 ;;9002226.02101,"622,53265-0258-11 ",.01)
 ;;53265-0258-11
 ;;9002226.02101,"622,53265-0258-11 ",.02)
 ;;53265-0258-11
 ;;9002226.02101,"622,53265-0259-10 ",.01)
 ;;53265-0259-10
 ;;9002226.02101,"622,53265-0259-10 ",.02)
 ;;53265-0259-10
 ;;9002226.02101,"622,53265-0262-10 ",.01)
 ;;53265-0262-10
 ;;9002226.02101,"622,53265-0262-10 ",.02)
 ;;53265-0262-10
 ;;9002226.02101,"622,53265-0346-10 ",.01)
 ;;53265-0346-10
 ;;9002226.02101,"622,53265-0346-10 ",.02)
 ;;53265-0346-10
 ;;9002226.02101,"622,53265-0346-11 ",.01)
 ;;53265-0346-11
 ;;9002226.02101,"622,53265-0346-11 ",.02)
 ;;53265-0346-11
 ;;9002226.02101,"622,53265-0396-10 ",.01)
 ;;53265-0396-10
 ;;9002226.02101,"622,53265-0396-10 ",.02)
 ;;53265-0396-10
 ;;9002226.02101,"622,53445-0317-05 ",.01)
 ;;53445-0317-05
 ;;9002226.02101,"622,53445-0317-05 ",.02)
 ;;53445-0317-05
 ;;9002226.02101,"622,53489-0406-01 ",.01)
 ;;53489-0406-01
 ;;9002226.02101,"622,53489-0406-01 ",.02)
 ;;53489-0406-01
 ;;9002226.02101,"622,53489-0406-10 ",.01)
 ;;53489-0406-10
 ;;9002226.02101,"622,53489-0406-10 ",.02)
 ;;53489-0406-10
 ;;9002226.02101,"622,53489-0433-01 ",.01)
 ;;53489-0433-01
 ;;9002226.02101,"622,53489-0433-01 ",.02)
 ;;53489-0433-01
 ;;9002226.02101,"622,53489-0433-10 ",.01)
 ;;53489-0433-10
 ;;9002226.02101,"622,53489-0433-10 ",.02)
 ;;53489-0433-10
 ;;9002226.02101,"622,53489-0564-01 ",.01)
 ;;53489-0564-01
 ;;9002226.02101,"622,53489-0564-01 ",.02)
 ;;53489-0564-01
 ;;9002226.02101,"622,53489-0565-01 ",.01)
 ;;53489-0565-01
 ;;9002226.02101,"622,53489-0565-01 ",.02)
 ;;53489-0565-01
 ;;9002226.02101,"622,53489-0566-01 ",.01)
 ;;53489-0566-01
 ;;9002226.02101,"622,53489-0566-01 ",.02)
 ;;53489-0566-01
 ;;9002226.02101,"622,53489-0567-01 ",.01)
 ;;53489-0567-01
 ;;9002226.02101,"622,53489-0567-01 ",.02)
 ;;53489-0567-01
 ;;9002226.02101,"622,53489-0568-01 ",.01)
 ;;53489-0568-01
 ;;9002226.02101,"622,53489-0568-01 ",.02)
 ;;53489-0568-01
 ;;9002226.02101,"622,53489-0569-01 ",.01)
 ;;53489-0569-01
 ;;9002226.02101,"622,53489-0569-01 ",.02)
 ;;53489-0569-01
 ;;9002226.02101,"622,53489-0570-01 ",.01)
 ;;53489-0570-01
 ;;9002226.02101,"622,53489-0570-01 ",.02)
 ;;53489-0570-01
 ;;9002226.02101,"622,53723-2520-01 ",.01)
 ;;53723-2520-01
 ;;9002226.02101,"622,53723-2520-01 ",.02)
 ;;53723-2520-01
 ;;9002226.02101,"622,53723-2520-03 ",.01)
 ;;53723-2520-03
 ;;9002226.02101,"622,53723-2520-03 ",.02)
 ;;53723-2520-03
 ;;9002226.02101,"622,53978-5013-09 ",.01)
 ;;53978-5013-09
 ;;9002226.02101,"622,53978-5013-09 ",.02)
 ;;53978-5013-09
 ;;9002226.02101,"622,54092-0371-01 ",.01)
 ;;54092-0371-01
 ;;9002226.02101,"622,54092-0371-01 ",.02)
 ;;54092-0371-01
 ;;9002226.02101,"622,54092-0372-01 ",.01)
 ;;54092-0372-01
 ;;9002226.02101,"622,54092-0372-01 ",.02)
 ;;54092-0372-01
 ;;9002226.02101,"622,54092-0373-01 ",.01)
 ;;54092-0373-01
 ;;9002226.02101,"622,54092-0373-01 ",.02)
 ;;54092-0373-01
 ;;9002226.02101,"622,54092-0374-01 ",.01)
 ;;54092-0374-01
 ;;9002226.02101,"622,54092-0374-01 ",.02)
 ;;54092-0374-01
 ;;9002226.02101,"622,54092-0375-01 ",.01)
 ;;54092-0375-01
 ;;9002226.02101,"622,54092-0375-01 ",.02)
 ;;54092-0375-01
 ;;9002226.02101,"622,54092-0376-01 ",.01)
 ;;54092-0376-01
 ;;9002226.02101,"622,54092-0376-01 ",.02)
 ;;54092-0376-01
 ;;9002226.02101,"622,54092-0377-01 ",.01)
 ;;54092-0377-01
 ;;9002226.02101,"622,54092-0377-01 ",.02)
 ;;54092-0377-01
 ;;9002226.02101,"622,54092-0381-01 ",.01)
 ;;54092-0381-01
 ;;9002226.02101,"622,54092-0381-01 ",.02)
 ;;54092-0381-01
 ;;9002226.02101,"622,54092-0383-01 ",.01)
 ;;54092-0383-01
 ;;9002226.02101,"622,54092-0383-01 ",.02)
 ;;54092-0383-01
 ;;9002226.02101,"622,54092-0385-01 ",.01)
 ;;54092-0385-01
 ;;9002226.02101,"622,54092-0385-01 ",.02)
 ;;54092-0385-01
 ;;9002226.02101,"622,54092-0387-01 ",.01)
 ;;54092-0387-01
 ;;9002226.02101,"622,54092-0387-01 ",.02)
 ;;54092-0387-01
 ;;9002226.02101,"622,54092-0389-01 ",.01)
 ;;54092-0389-01
 ;;9002226.02101,"622,54092-0389-01 ",.02)
 ;;54092-0389-01
 ;;9002226.02101,"622,54092-0391-01 ",.01)
 ;;54092-0391-01
 ;;9002226.02101,"622,54092-0391-01 ",.02)
 ;;54092-0391-01
 ;;9002226.02101,"622,54092-0448-01 ",.01)
 ;;54092-0448-01
 ;;9002226.02101,"622,54092-0448-01 ",.02)
 ;;54092-0448-01
 ;;9002226.02101,"622,54092-0452-01 ",.01)
 ;;54092-0452-01
 ;;9002226.02101,"622,54092-0452-01 ",.02)
 ;;54092-0452-01
 ;;9002226.02101,"622,54257-0771-17 ",.01)
 ;;54257-0771-17
 ;;9002226.02101,"622,54257-0771-17 ",.02)
 ;;54257-0771-17
 ;;9002226.02101,"622,54274-0330-30 ",.01)
 ;;54274-0330-30
 ;;9002226.02101,"622,54274-0330-30 ",.02)
 ;;54274-0330-30
 ;;9002226.02101,"622,54274-0362-10 ",.01)
 ;;54274-0362-10
 ;;9002226.02101,"622,54274-0362-10 ",.02)
 ;;54274-0362-10
 ;;9002226.02101,"622,54274-0362-50 ",.01)
 ;;54274-0362-50
 ;;9002226.02101,"622,54274-0362-50 ",.02)
 ;;54274-0362-50
 ;;9002226.02101,"622,54274-0364-10 ",.01)
 ;;54274-0364-10
 ;;9002226.02101,"622,54274-0364-10 ",.02)
 ;;54274-0364-10
 ;;9002226.02101,"622,54274-0365-10 ",.01)
 ;;54274-0365-10
 ;;9002226.02101,"622,54274-0365-10 ",.02)
 ;;54274-0365-10
 ;;9002226.02101,"622,54274-0423-10 ",.01)
 ;;54274-0423-10
 ;;9002226.02101,"622,54274-0423-10 ",.02)
 ;;54274-0423-10
 ;;9002226.02101,"622,54274-0423-30 ",.01)
 ;;54274-0423-30
 ;;9002226.02101,"622,54274-0423-30 ",.02)
 ;;54274-0423-30
 ;;9002226.02101,"622,54274-0424-10 ",.01)
 ;;54274-0424-10
 ;;9002226.02101,"622,54274-0424-10 ",.02)
 ;;54274-0424-10
 ;;9002226.02101,"622,54274-0424-30 ",.01)
 ;;54274-0424-30
 ;;9002226.02101,"622,54274-0424-30 ",.02)
 ;;54274-0424-30
 ;;9002226.02101,"622,54274-0425-10 ",.01)
 ;;54274-0425-10
 ;;9002226.02101,"622,54274-0425-10 ",.02)
 ;;54274-0425-10
 ;;9002226.02101,"622,54274-0425-30 ",.01)
 ;;54274-0425-30
 ;;9002226.02101,"622,54274-0425-30 ",.02)
 ;;54274-0425-30
 ;;9002226.02101,"622,54499-0395-24 ",.01)
 ;;54499-0395-24
 ;;9002226.02101,"622,54499-0395-24 ",.02)
 ;;54499-0395-24
 ;;9002226.02101,"622,54499-0445-50 ",.01)
 ;;54499-0445-50
 ;;9002226.02101,"622,54499-0445-50 ",.02)
 ;;54499-0445-50
 ;;9002226.02101,"622,54569-0007-00 ",.01)
 ;;54569-0007-00
 ;;9002226.02101,"622,54569-0007-00 ",.02)
 ;;54569-0007-00
 ;;9002226.02101,"622,54569-0007-02 ",.01)
 ;;54569-0007-02
 ;;9002226.02101,"622,54569-0007-02 ",.02)
 ;;54569-0007-02
 ;;9002226.02101,"622,54569-0007-03 ",.01)
 ;;54569-0007-03
 ;;9002226.02101,"622,54569-0007-03 ",.02)
 ;;54569-0007-03
 ;;9002226.02101,"622,54569-0007-07 ",.01)
 ;;54569-0007-07
 ;;9002226.02101,"622,54569-0007-07 ",.02)
 ;;54569-0007-07
 ;;9002226.02101,"622,54569-0015-00 ",.01)
 ;;54569-0015-00
 ;;9002226.02101,"622,54569-0015-00 ",.02)
 ;;54569-0015-00
 ;;9002226.02101,"622,54569-0015-01 ",.01)
 ;;54569-0015-01
 ;;9002226.02101,"622,54569-0015-01 ",.02)
 ;;54569-0015-01
 ;;9002226.02101,"622,54569-0015-02 ",.01)
 ;;54569-0015-02
 ;;9002226.02101,"622,54569-0015-02 ",.02)
 ;;54569-0015-02
 ;;9002226.02101,"622,54569-0015-03 ",.01)
 ;;54569-0015-03
 ;;9002226.02101,"622,54569-0015-03 ",.02)
 ;;54569-0015-03
 ;;9002226.02101,"622,54569-0015-04 ",.01)
 ;;54569-0015-04
 ;;9002226.02101,"622,54569-0015-04 ",.02)
 ;;54569-0015-04
 ;;9002226.02101,"622,54569-0015-05 ",.01)
 ;;54569-0015-05
 ;;9002226.02101,"622,54569-0015-05 ",.02)
 ;;54569-0015-05
 ;;9002226.02101,"622,54569-0015-06 ",.01)
 ;;54569-0015-06
 ;;9002226.02101,"622,54569-0015-06 ",.02)
 ;;54569-0015-06
 ;;9002226.02101,"622,54569-0015-07 ",.01)
 ;;54569-0015-07
 ;;9002226.02101,"622,54569-0015-07 ",.02)
 ;;54569-0015-07
 ;;9002226.02101,"622,54569-0015-08 ",.01)
 ;;54569-0015-08
 ;;9002226.02101,"622,54569-0015-08 ",.02)
 ;;54569-0015-08
 ;;9002226.02101,"622,54569-0015-09 ",.01)
 ;;54569-0015-09
 ;;9002226.02101,"622,54569-0015-09 ",.02)
 ;;54569-0015-09
 ;;9002226.02101,"622,54569-0223-00 ",.01)
 ;;54569-0223-00
 ;;9002226.02101,"622,54569-0223-00 ",.02)
 ;;54569-0223-00
 ;;9002226.02101,"622,54569-0223-04 ",.01)
 ;;54569-0223-04
 ;;9002226.02101,"622,54569-0223-04 ",.02)
 ;;54569-0223-04
 ;;9002226.02101,"622,54569-0223-05 ",.01)
 ;;54569-0223-05
 ;;9002226.02101,"622,54569-0223-05 ",.02)
 ;;54569-0223-05
 ;;9002226.02101,"622,54569-0301-01 ",.01)
 ;;54569-0301-01
 ;;9002226.02101,"622,54569-0301-01 ",.02)
 ;;54569-0301-01
 ;;9002226.02101,"622,54569-0301-06 ",.01)
 ;;54569-0301-06
 ;;9002226.02101,"622,54569-0301-06 ",.02)
 ;;54569-0301-06
 ;;9002226.02101,"622,54569-2198-00 ",.01)
 ;;54569-2198-00
 ;;9002226.02101,"622,54569-2198-00 ",.02)
 ;;54569-2198-00
 ;;9002226.02101,"622,54569-2198-01 ",.01)
 ;;54569-2198-01
 ;;9002226.02101,"622,54569-2198-01 ",.02)
 ;;54569-2198-01
 ;;9002226.02101,"622,54569-2198-02 ",.01)
 ;;54569-2198-02
 ;;9002226.02101,"622,54569-2198-02 ",.02)
 ;;54569-2198-02
 ;;9002226.02101,"622,54569-2588-04 ",.01)
 ;;54569-2588-04
 ;;9002226.02101,"622,54569-2588-04 ",.02)
 ;;54569-2588-04
 ;;9002226.02101,"622,54569-2669-00 ",.01)
 ;;54569-2669-00
 ;;9002226.02101,"622,54569-2669-00 ",.02)
 ;;54569-2669-00
 ;;9002226.02101,"622,54569-2669-01 ",.01)
 ;;54569-2669-01
 ;;9002226.02101,"622,54569-2669-01 ",.02)
 ;;54569-2669-01
 ;;9002226.02101,"622,54569-2669-02 ",.01)
 ;;54569-2669-02
 ;;9002226.02101,"622,54569-2669-02 ",.02)
 ;;54569-2669-02
 ;;9002226.02101,"622,54569-2669-03 ",.01)
 ;;54569-2669-03
 ;;9002226.02101,"622,54569-2669-03 ",.02)
 ;;54569-2669-03
 ;;9002226.02101,"622,54569-3292-00 ",.01)
 ;;54569-3292-00
 ;;9002226.02101,"622,54569-3292-00 ",.02)
 ;;54569-3292-00
 ;;9002226.02101,"622,54569-3292-01 ",.01)
 ;;54569-3292-01
 ;;9002226.02101,"622,54569-3292-01 ",.02)
 ;;54569-3292-01
 ;;9002226.02101,"622,54569-3292-02 ",.01)
 ;;54569-3292-02
 ;;9002226.02101,"622,54569-3292-02 ",.02)
 ;;54569-3292-02
 ;;9002226.02101,"622,54569-3292-03 ",.01)
 ;;54569-3292-03
 ;;9002226.02101,"622,54569-3292-03 ",.02)
 ;;54569-3292-03
 ;;9002226.02101,"622,54569-3292-04 ",.01)
 ;;54569-3292-04
 ;;9002226.02101,"622,54569-3292-04 ",.02)
 ;;54569-3292-04
 ;;9002226.02101,"622,54569-3292-05 ",.01)
 ;;54569-3292-05
 ;;9002226.02101,"622,54569-3292-05 ",.02)
 ;;54569-3292-05
 ;;9002226.02101,"622,54569-3751-00 ",.01)
 ;;54569-3751-00
 ;;9002226.02101,"622,54569-3751-00 ",.02)
 ;;54569-3751-00
 ;;9002226.02101,"622,54569-4095-00 ",.01)
 ;;54569-4095-00
 ;;9002226.02101,"622,54569-4095-00 ",.02)
 ;;54569-4095-00
 ;;9002226.02101,"622,54569-5082-01 ",.01)
 ;;54569-5082-01
 ;;9002226.02101,"622,54569-5082-01 ",.02)
 ;;54569-5082-01
 ;;9002226.02101,"622,54868-0073-01 ",.01)
 ;;54868-0073-01
 ;;9002226.02101,"622,54868-0073-01 ",.02)
 ;;54868-0073-01
 ;;9002226.02101,"622,54868-0073-02 ",.01)
 ;;54868-0073-02
 ;;9002226.02101,"622,54868-0073-02 ",.02)
 ;;54868-0073-02
 ;;9002226.02101,"622,54868-0073-03 ",.01)
 ;;54868-0073-03