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

BGP7LXAK.m

Go to the documentation of this file.
BGP7LXAK ; 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,54868-0073-03 ",.02)
 ;;54868-0073-03
 ;;9002226.02101,"622,54868-0073-04 ",.01)
 ;;54868-0073-04
 ;;9002226.02101,"622,54868-0073-04 ",.02)
 ;;54868-0073-04
 ;;9002226.02101,"622,54868-0073-05 ",.01)
 ;;54868-0073-05
 ;;9002226.02101,"622,54868-0073-05 ",.02)
 ;;54868-0073-05
 ;;9002226.02101,"622,54868-0073-06 ",.01)
 ;;54868-0073-06
 ;;9002226.02101,"622,54868-0073-06 ",.02)
 ;;54868-0073-06
 ;;9002226.02101,"622,54868-0073-07 ",.01)
 ;;54868-0073-07
 ;;9002226.02101,"622,54868-0073-07 ",.02)
 ;;54868-0073-07
 ;;9002226.02101,"622,54868-0073-08 ",.01)
 ;;54868-0073-08
 ;;9002226.02101,"622,54868-0073-08 ",.02)
 ;;54868-0073-08
 ;;9002226.02101,"622,54868-0073-09 ",.01)
 ;;54868-0073-09
 ;;9002226.02101,"622,54868-0073-09 ",.02)
 ;;54868-0073-09
 ;;9002226.02101,"622,54868-0616-00 ",.01)
 ;;54868-0616-00
 ;;9002226.02101,"622,54868-0616-00 ",.02)
 ;;54868-0616-00
 ;;9002226.02101,"622,54868-0676-00 ",.01)
 ;;54868-0676-00
 ;;9002226.02101,"622,54868-0676-00 ",.02)
 ;;54868-0676-00
 ;;9002226.02101,"622,54868-0676-01 ",.01)
 ;;54868-0676-01
 ;;9002226.02101,"622,54868-0676-01 ",.02)
 ;;54868-0676-01
 ;;9002226.02101,"622,54868-0676-02 ",.01)
 ;;54868-0676-02
 ;;9002226.02101,"622,54868-0676-02 ",.02)
 ;;54868-0676-02
 ;;9002226.02101,"622,54868-0676-03 ",.01)
 ;;54868-0676-03
 ;;9002226.02101,"622,54868-0676-03 ",.02)
 ;;54868-0676-03
 ;;9002226.02101,"622,54868-1071-00 ",.01)
 ;;54868-1071-00
 ;;9002226.02101,"622,54868-1071-00 ",.02)
 ;;54868-1071-00
 ;;9002226.02101,"622,54868-1071-01 ",.01)
 ;;54868-1071-01
 ;;9002226.02101,"622,54868-1071-01 ",.02)
 ;;54868-1071-01
 ;;9002226.02101,"622,54868-1233-00 ",.01)
 ;;54868-1233-00
 ;;9002226.02101,"622,54868-1233-00 ",.02)
 ;;54868-1233-00
 ;;9002226.02101,"622,54868-1233-01 ",.01)
 ;;54868-1233-01
 ;;9002226.02101,"622,54868-1233-01 ",.02)
 ;;54868-1233-01
 ;;9002226.02101,"622,54868-1466-00 ",.01)
 ;;54868-1466-00
 ;;9002226.02101,"622,54868-1466-00 ",.02)
 ;;54868-1466-00
 ;;9002226.02101,"622,54868-1466-01 ",.01)
 ;;54868-1466-01
 ;;9002226.02101,"622,54868-1466-01 ",.02)
 ;;54868-1466-01
 ;;9002226.02101,"622,54868-1467-01 ",.01)
 ;;54868-1467-01
 ;;9002226.02101,"622,54868-1467-01 ",.02)
 ;;54868-1467-01
 ;;9002226.02101,"622,54868-1467-02 ",.01)
 ;;54868-1467-02
 ;;9002226.02101,"622,54868-1467-02 ",.02)
 ;;54868-1467-02
 ;;9002226.02101,"622,54868-3230-01 ",.01)
 ;;54868-3230-01
 ;;9002226.02101,"622,54868-3230-01 ",.02)
 ;;54868-3230-01
 ;;9002226.02101,"622,54868-3402-00 ",.01)
 ;;54868-3402-00
 ;;9002226.02101,"622,54868-3402-00 ",.02)
 ;;54868-3402-00
 ;;9002226.02101,"622,54868-3402-01 ",.01)
 ;;54868-3402-01
 ;;9002226.02101,"622,54868-3402-01 ",.02)
 ;;54868-3402-01
 ;;9002226.02101,"622,54868-3403-00 ",.01)
 ;;54868-3403-00
 ;;9002226.02101,"622,54868-3403-00 ",.02)
 ;;54868-3403-00
 ;;9002226.02101,"622,54868-3403-01 ",.01)
 ;;54868-3403-01
 ;;9002226.02101,"622,54868-3403-01 ",.02)
 ;;54868-3403-01
 ;;9002226.02101,"622,54868-3403-02 ",.01)
 ;;54868-3403-02
 ;;9002226.02101,"622,54868-3403-02 ",.02)
 ;;54868-3403-02
 ;;9002226.02101,"622,54868-3403-03 ",.01)
 ;;54868-3403-03
 ;;9002226.02101,"622,54868-3403-03 ",.02)
 ;;54868-3403-03
 ;;9002226.02101,"622,54868-3559-00 ",.01)
 ;;54868-3559-00
 ;;9002226.02101,"622,54868-3559-00 ",.02)
 ;;54868-3559-00
 ;;9002226.02101,"622,54868-3610-00 ",.01)
 ;;54868-3610-00
 ;;9002226.02101,"622,54868-3610-00 ",.02)
 ;;54868-3610-00
 ;;9002226.02101,"622,54868-3611-00 ",.01)
 ;;54868-3611-00
 ;;9002226.02101,"622,54868-3611-00 ",.02)
 ;;54868-3611-00
 ;;9002226.02101,"622,54868-3646-01 ",.01)
 ;;54868-3646-01
 ;;9002226.02101,"622,54868-3646-01 ",.02)
 ;;54868-3646-01
 ;;9002226.02101,"622,54868-3674-00 ",.01)
 ;;54868-3674-00
 ;;9002226.02101,"622,54868-3674-00 ",.02)
 ;;54868-3674-00
 ;;9002226.02101,"622,54868-3811-00 ",.01)
 ;;54868-3811-00
 ;;9002226.02101,"622,54868-3811-00 ",.02)
 ;;54868-3811-00
 ;;9002226.02101,"622,54868-3976-00 ",.01)
 ;;54868-3976-00
 ;;9002226.02101,"622,54868-3976-00 ",.02)
 ;;54868-3976-00
 ;;9002226.02101,"622,54868-4136-00 ",.01)
 ;;54868-4136-00
 ;;9002226.02101,"622,54868-4136-00 ",.02)
 ;;54868-4136-00
 ;;9002226.02101,"622,54868-4549-00 ",.01)
 ;;54868-4549-00
 ;;9002226.02101,"622,54868-4549-00 ",.02)
 ;;54868-4549-00
 ;;9002226.02101,"622,54868-4549-01 ",.01)
 ;;54868-4549-01
 ;;9002226.02101,"622,54868-4549-01 ",.02)
 ;;54868-4549-01
 ;;9002226.02101,"622,54868-4631-00 ",.01)
 ;;54868-4631-00
 ;;9002226.02101,"622,54868-4631-00 ",.02)
 ;;54868-4631-00
 ;;9002226.02101,"622,54868-4631-01 ",.01)
 ;;54868-4631-01
 ;;9002226.02101,"622,54868-4631-01 ",.02)
 ;;54868-4631-01
 ;;9002226.02101,"622,54868-4631-02 ",.01)
 ;;54868-4631-02
 ;;9002226.02101,"622,54868-4631-02 ",.02)
 ;;54868-4631-02
 ;;9002226.02101,"622,54868-4631-03 ",.01)
 ;;54868-4631-03
 ;;9002226.02101,"622,54868-4631-03 ",.02)
 ;;54868-4631-03
 ;;9002226.02101,"622,54868-4640-00 ",.01)
 ;;54868-4640-00
 ;;9002226.02101,"622,54868-4640-00 ",.02)
 ;;54868-4640-00
 ;;9002226.02101,"622,54868-4640-01 ",.01)
 ;;54868-4640-01
 ;;9002226.02101,"622,54868-4640-01 ",.02)
 ;;54868-4640-01
 ;;9002226.02101,"622,54868-4728-00 ",.01)
 ;;54868-4728-00
 ;;9002226.02101,"622,54868-4728-00 ",.02)
 ;;54868-4728-00
 ;;9002226.02101,"622,54868-4728-01 ",.01)
 ;;54868-4728-01
 ;;9002226.02101,"622,54868-4728-01 ",.02)
 ;;54868-4728-01
 ;;9002226.02101,"622,54868-4728-02 ",.01)
 ;;54868-4728-02
 ;;9002226.02101,"622,54868-4728-02 ",.02)
 ;;54868-4728-02
 ;;9002226.02101,"622,54868-4728-03 ",.01)
 ;;54868-4728-03
 ;;9002226.02101,"622,54868-4728-03 ",.02)
 ;;54868-4728-03
 ;;9002226.02101,"622,54868-4728-04 ",.01)
 ;;54868-4728-04
 ;;9002226.02101,"622,54868-4728-04 ",.02)
 ;;54868-4728-04
 ;;9002226.02101,"622,54868-4751-00 ",.01)
 ;;54868-4751-00
 ;;9002226.02101,"622,54868-4751-00 ",.02)
 ;;54868-4751-00
 ;;9002226.02101,"622,54868-4751-01 ",.01)
 ;;54868-4751-01
 ;;9002226.02101,"622,54868-4751-01 ",.02)
 ;;54868-4751-01
 ;;9002226.02101,"622,54868-4758-00 ",.01)
 ;;54868-4758-00
 ;;9002226.02101,"622,54868-4758-00 ",.02)
 ;;54868-4758-00
 ;;9002226.02101,"622,54868-4758-01 ",.01)
 ;;54868-4758-01
 ;;9002226.02101,"622,54868-4758-01 ",.02)
 ;;54868-4758-01
 ;;9002226.02101,"622,54868-4760-00 ",.01)
 ;;54868-4760-00
 ;;9002226.02101,"622,54868-4760-00 ",.02)
 ;;54868-4760-00
 ;;9002226.02101,"622,54868-4760-01 ",.01)
 ;;54868-4760-01
 ;;9002226.02101,"622,54868-4760-01 ",.02)
 ;;54868-4760-01
 ;;9002226.02101,"622,54868-4760-02 ",.01)
 ;;54868-4760-02
 ;;9002226.02101,"622,54868-4760-02 ",.02)
 ;;54868-4760-02
 ;;9002226.02101,"622,54868-4863-00 ",.01)
 ;;54868-4863-00
 ;;9002226.02101,"622,54868-4863-00 ",.02)
 ;;54868-4863-00
 ;;9002226.02101,"622,54868-5007-00 ",.01)
 ;;54868-5007-00
 ;;9002226.02101,"622,54868-5007-00 ",.02)
 ;;54868-5007-00
 ;;9002226.02101,"622,54868-5007-01 ",.01)
 ;;54868-5007-01
 ;;9002226.02101,"622,54868-5007-01 ",.02)
 ;;54868-5007-01
 ;;9002226.02101,"622,54868-5103-00 ",.01)
 ;;54868-5103-00
 ;;9002226.02101,"622,54868-5103-00 ",.02)
 ;;54868-5103-00
 ;;9002226.02101,"622,54868-5103-01 ",.01)
 ;;54868-5103-01
 ;;9002226.02101,"622,54868-5103-01 ",.02)
 ;;54868-5103-01
 ;;9002226.02101,"622,54868-5103-02 ",.01)
 ;;54868-5103-02
 ;;9002226.02101,"622,54868-5103-02 ",.02)
 ;;54868-5103-02
 ;;9002226.02101,"622,54868-5103-03 ",.01)
 ;;54868-5103-03
 ;;9002226.02101,"622,54868-5103-03 ",.02)
 ;;54868-5103-03
 ;;9002226.02101,"622,54868-5136-00 ",.01)
 ;;54868-5136-00
 ;;9002226.02101,"622,54868-5136-00 ",.02)
 ;;54868-5136-00
 ;;9002226.02101,"622,54868-5140-00 ",.01)
 ;;54868-5140-00
 ;;9002226.02101,"622,54868-5140-00 ",.02)
 ;;54868-5140-00
 ;;9002226.02101,"622,54868-5140-01 ",.01)
 ;;54868-5140-01
 ;;9002226.02101,"622,54868-5140-01 ",.02)
 ;;54868-5140-01
 ;;9002226.02101,"622,54868-5142-00 ",.01)
 ;;54868-5142-00
 ;;9002226.02101,"622,54868-5142-00 ",.02)
 ;;54868-5142-00
 ;;9002226.02101,"622,54868-5142-01 ",.01)
 ;;54868-5142-01
 ;;9002226.02101,"622,54868-5142-01 ",.02)
 ;;54868-5142-01
 ;;9002226.02101,"622,54868-5151-00 ",.01)
 ;;54868-5151-00
 ;;9002226.02101,"622,54868-5151-00 ",.02)
 ;;54868-5151-00
 ;;9002226.02101,"622,54868-5151-01 ",.01)
 ;;54868-5151-01
 ;;9002226.02101,"622,54868-5151-01 ",.02)
 ;;54868-5151-01
 ;;9002226.02101,"622,54868-5151-02 ",.01)
 ;;54868-5151-02
 ;;9002226.02101,"622,54868-5151-02 ",.02)
 ;;54868-5151-02
 ;;9002226.02101,"622,55045-1127-01 ",.01)
 ;;55045-1127-01
 ;;9002226.02101,"622,55045-1127-01 ",.02)
 ;;55045-1127-01
 ;;9002226.02101,"622,55045-1127-04 ",.01)
 ;;55045-1127-04
 ;;9002226.02101,"622,55045-1127-04 ",.02)
 ;;55045-1127-04
 ;;9002226.02101,"622,55045-1127-05 ",.01)
 ;;55045-1127-05
 ;;9002226.02101,"622,55045-1127-05 ",.02)
 ;;55045-1127-05
 ;;9002226.02101,"622,55045-1127-07 ",.01)
 ;;55045-1127-07
 ;;9002226.02101,"622,55045-1127-07 ",.02)
 ;;55045-1127-07
 ;;9002226.02101,"622,55045-1209-01 ",.01)
 ;;55045-1209-01
 ;;9002226.02101,"622,55045-1209-01 ",.02)
 ;;55045-1209-01
 ;;9002226.02101,"622,55045-3095-02 ",.01)
 ;;55045-3095-02
 ;;9002226.02101,"622,55045-3095-02 ",.02)
 ;;55045-3095-02
 ;;9002226.02101,"622,55175-1418-00 ",.01)
 ;;55175-1418-00
 ;;9002226.02101,"622,55175-1418-00 ",.02)
 ;;55175-1418-00
 ;;9002226.02101,"622,55175-1418-01 ",.01)
 ;;55175-1418-01
 ;;9002226.02101,"622,55175-1418-01 ",.02)
 ;;55175-1418-01
 ;;9002226.02101,"622,55175-1418-02 ",.01)
 ;;55175-1418-02
 ;;9002226.02101,"622,55175-1418-02 ",.02)
 ;;55175-1418-02
 ;;9002226.02101,"622,55175-1418-03 ",.01)
 ;;55175-1418-03
 ;;9002226.02101,"622,55175-1418-03 ",.02)
 ;;55175-1418-03
 ;;9002226.02101,"622,55175-1418-04 ",.01)
 ;;55175-1418-04
 ;;9002226.02101,"622,55175-1418-04 ",.02)
 ;;55175-1418-04
 ;;9002226.02101,"622,55175-1418-05 ",.01)
 ;;55175-1418-05
 ;;9002226.02101,"622,55175-1418-05 ",.02)
 ;;55175-1418-05
 ;;9002226.02101,"622,55175-1418-06 ",.01)
 ;;55175-1418-06
 ;;9002226.02101,"622,55175-1418-06 ",.02)
 ;;55175-1418-06
 ;;9002226.02101,"622,55175-1418-07 ",.01)
 ;;55175-1418-07
 ;;9002226.02101,"622,55175-1418-07 ",.02)
 ;;55175-1418-07
 ;;9002226.02101,"622,55175-1418-08 ",.01)
 ;;55175-1418-08
 ;;9002226.02101,"622,55175-1418-08 ",.02)
 ;;55175-1418-08
 ;;9002226.02101,"622,55175-1418-09 ",.01)
 ;;55175-1418-09
 ;;9002226.02101,"622,55175-1418-09 ",.02)
 ;;55175-1418-09
 ;;9002226.02101,"622,55175-1420-01 ",.01)
 ;;55175-1420-01
 ;;9002226.02101,"622,55175-1420-01 ",.02)
 ;;55175-1420-01
 ;;9002226.02101,"622,55175-4496-01 ",.01)
 ;;55175-4496-01
 ;;9002226.02101,"622,55175-4496-01 ",.02)
 ;;55175-4496-01
 ;;9002226.02101,"622,55175-4497-01 ",.01)
 ;;55175-4497-01
 ;;9002226.02101,"622,55175-4497-01 ",.02)
 ;;55175-4497-01
 ;;9002226.02101,"622,55175-4498-01 ",.01)
 ;;55175-4498-01
 ;;9002226.02101,"622,55175-4498-01 ",.02)
 ;;55175-4498-01
 ;;9002226.02101,"622,55175-5000-01 ",.01)
 ;;55175-5000-01
 ;;9002226.02101,"622,55175-5000-01 ",.02)
 ;;55175-5000-01
 ;;9002226.02101,"622,55175-5001-01 ",.01)
 ;;55175-5001-01
 ;;9002226.02101,"622,55175-5001-01 ",.02)
 ;;55175-5001-01
 ;;9002226.02101,"622,55175-5013-01 ",.01)
 ;;55175-5013-01
 ;;9002226.02101,"622,55175-5013-01 ",.02)
 ;;55175-5013-01
 ;;9002226.02101,"622,55175-5123-02 ",.01)
 ;;55175-5123-02
 ;;9002226.02101,"622,55175-5123-02 ",.02)
 ;;55175-5123-02
 ;;9002226.02101,"622,55175-5130-01 ",.01)
 ;;55175-5130-01
 ;;9002226.02101,"622,55175-5130-01 ",.02)
 ;;55175-5130-01
 ;;9002226.02101,"622,55289-0029-20 ",.01)
 ;;55289-0029-20
 ;;9002226.02101,"622,55289-0029-20 ",.02)
 ;;55289-0029-20
 ;;9002226.02101,"622,55289-0231-04 ",.01)
 ;;55289-0231-04
 ;;9002226.02101,"622,55289-0231-04 ",.02)
 ;;55289-0231-04
 ;;9002226.02101,"622,55289-0231-06 ",.01)
 ;;55289-0231-06
 ;;9002226.02101,"622,55289-0231-06 ",.02)
 ;;55289-0231-06
 ;;9002226.02101,"622,55289-0231-08 ",.01)
 ;;55289-0231-08
 ;;9002226.02101,"622,55289-0231-08 ",.02)
 ;;55289-0231-08
 ;;9002226.02101,"622,55289-0231-10 ",.01)
 ;;55289-0231-10
 ;;9002226.02101,"622,55289-0231-10 ",.02)
 ;;55289-0231-10
 ;;9002226.02101,"622,55289-0231-12 ",.01)
 ;;55289-0231-12
 ;;9002226.02101,"622,55289-0231-12 ",.02)
 ;;55289-0231-12
 ;;9002226.02101,"622,55289-0231-15 ",.01)
 ;;55289-0231-15
 ;;9002226.02101,"622,55289-0231-15 ",.02)
 ;;55289-0231-15
 ;;9002226.02101,"622,55289-0231-16 ",.01)
 ;;55289-0231-16
 ;;9002226.02101,"622,55289-0231-16 ",.02)
 ;;55289-0231-16
 ;;9002226.02101,"622,55289-0231-20 ",.01)
 ;;55289-0231-20
 ;;9002226.02101,"622,55289-0231-20 ",.02)
 ;;55289-0231-20
 ;;9002226.02101,"622,55289-0231-30 ",.01)
 ;;55289-0231-30
 ;;9002226.02101,"622,55289-0231-30 ",.02)
 ;;55289-0231-30
 ;;9002226.02101,"622,55289-0231-40 ",.01)
 ;;55289-0231-40
 ;;9002226.02101,"622,55289-0231-40 ",.02)
 ;;55289-0231-40
 ;;9002226.02101,"622,55289-0231-50 ",.01)
 ;;55289-0231-50
 ;;9002226.02101,"622,55289-0231-50 ",.02)
 ;;55289-0231-50
 ;;9002226.02101,"622,55289-0231-60 ",.01)
 ;;55289-0231-60
 ;;9002226.02101,"622,55289-0231-60 ",.02)
 ;;55289-0231-60
 ;;9002226.02101,"622,55289-0231-90 ",.01)
 ;;55289-0231-90
 ;;9002226.02101,"622,55289-0231-90 ",.02)
 ;;55289-0231-90
 ;;9002226.02101,"622,55289-0324-16 ",.01)
 ;;55289-0324-16
 ;;9002226.02101,"622,55289-0324-16 ",.02)
 ;;55289-0324-16
 ;;9002226.02101,"622,55289-0703-10 ",.01)
 ;;55289-0703-10
 ;;9002226.02101,"622,55289-0703-10 ",.02)
 ;;55289-0703-10
 ;;9002226.02101,"622,55289-0852-10 ",.01)
 ;;55289-0852-10