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

BGP7LXAH.m

Go to the documentation of this file.
BGP7LXAH ; 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,12280-0085-07 ",.02)
 ;;12280-0085-07
 ;;9002226.02101,"622,12280-0085-14 ",.01)
 ;;12280-0085-14
 ;;9002226.02101,"622,12280-0085-14 ",.02)
 ;;12280-0085-14
 ;;9002226.02101,"622,12280-0135-00 ",.01)
 ;;12280-0135-00
 ;;9002226.02101,"622,12280-0135-00 ",.02)
 ;;12280-0135-00
 ;;9002226.02101,"622,12333-9470-02 ",.01)
 ;;12333-9470-02
 ;;9002226.02101,"622,12333-9470-02 ",.02)
 ;;12333-9470-02
 ;;9002226.02101,"622,12333-9470-19 ",.01)
 ;;12333-9470-19
 ;;9002226.02101,"622,12333-9470-19 ",.02)
 ;;12333-9470-19
 ;;9002226.02101,"622,12333-9471-01 ",.01)
 ;;12333-9471-01
 ;;9002226.02101,"622,12333-9471-01 ",.02)
 ;;12333-9471-01
 ;;9002226.02101,"622,12333-9471-02 ",.01)
 ;;12333-9471-02
 ;;9002226.02101,"622,12333-9471-02 ",.02)
 ;;12333-9471-02
 ;;9002226.02101,"622,12333-9515-07 ",.01)
 ;;12333-9515-07
 ;;9002226.02101,"622,12333-9515-07 ",.02)
 ;;12333-9515-07
 ;;9002226.02101,"622,12333-9515-79 ",.01)
 ;;12333-9515-79
 ;;9002226.02101,"622,12333-9515-79 ",.02)
 ;;12333-9515-79
 ;;9002226.02101,"622,12463-0217-01 ",.01)
 ;;12463-0217-01
 ;;9002226.02101,"622,12463-0217-01 ",.02)
 ;;12463-0217-01
 ;;9002226.02101,"622,12547-0170-51 ",.01)
 ;;12547-0170-51
 ;;9002226.02101,"622,12547-0170-51 ",.02)
 ;;12547-0170-51
 ;;9002226.02101,"622,12547-0171-47 ",.01)
 ;;12547-0171-47
 ;;9002226.02101,"622,12547-0171-47 ",.02)
 ;;12547-0171-47
 ;;9002226.02101,"622,12547-0175-50 ",.01)
 ;;12547-0175-50
 ;;9002226.02101,"622,12547-0175-50 ",.02)
 ;;12547-0175-50
 ;;9002226.02101,"622,12810-0349-40 ",.01)
 ;;12810-0349-40
 ;;9002226.02101,"622,12810-0349-40 ",.02)
 ;;12810-0349-40
 ;;9002226.02101,"622,15127-0035-07 ",.01)
 ;;15127-0035-07
 ;;9002226.02101,"622,15127-0035-07 ",.02)
 ;;15127-0035-07
 ;;9002226.02101,"622,15127-0035-08 ",.01)
 ;;15127-0035-08
 ;;9002226.02101,"622,15127-0035-08 ",.02)
 ;;15127-0035-08
 ;;9002226.02101,"622,15127-0040-02 ",.01)
 ;;15127-0040-02
 ;;9002226.02101,"622,15127-0040-02 ",.02)
 ;;15127-0040-02
 ;;9002226.02101,"622,15127-0325-24 ",.01)
 ;;15127-0325-24
 ;;9002226.02101,"622,15127-0325-24 ",.02)
 ;;15127-0325-24
 ;;9002226.02101,"622,15127-0325-50 ",.01)
 ;;15127-0325-50
 ;;9002226.02101,"622,15127-0325-50 ",.02)
 ;;15127-0325-50
 ;;9002226.02101,"622,15127-0334-24 ",.01)
 ;;15127-0334-24
 ;;9002226.02101,"622,15127-0334-24 ",.02)
 ;;15127-0334-24
 ;;9002226.02101,"622,15127-0334-50 ",.01)
 ;;15127-0334-50
 ;;9002226.02101,"622,15127-0334-50 ",.02)
 ;;15127-0334-50
 ;;9002226.02101,"622,15127-0445-24 ",.01)
 ;;15127-0445-24
 ;;9002226.02101,"622,15127-0445-24 ",.02)
 ;;15127-0445-24
 ;;9002226.02101,"622,17022-7420-04 ",.01)
 ;;17022-7420-04
 ;;9002226.02101,"622,17022-7420-04 ",.02)
 ;;17022-7420-04
 ;;9002226.02101,"622,17022-7420-06 ",.01)
 ;;17022-7420-06
 ;;9002226.02101,"622,17022-7420-06 ",.02)
 ;;17022-7420-06
 ;;9002226.02101,"622,17022-7441-04 ",.01)
 ;;17022-7441-04
 ;;9002226.02101,"622,17022-7441-04 ",.02)
 ;;17022-7441-04
 ;;9002226.02101,"622,17022-7441-06 ",.01)
 ;;17022-7441-06
 ;;9002226.02101,"622,17022-7441-06 ",.02)
 ;;17022-7441-06
 ;;9002226.02101,"622,17022-7450-02 ",.01)
 ;;17022-7450-02
 ;;9002226.02101,"622,17022-7450-02 ",.02)
 ;;17022-7450-02
 ;;9002226.02101,"622,17022-7450-04 ",.01)
 ;;17022-7450-04
 ;;9002226.02101,"622,17022-7450-04 ",.02)
 ;;17022-7450-04
 ;;9002226.02101,"622,17022-7450-06 ",.01)
 ;;17022-7450-06
 ;;9002226.02101,"622,17022-7450-06 ",.02)
 ;;17022-7450-06
 ;;9002226.02101,"622,17236-0409-10 ",.01)
 ;;17236-0409-10
 ;;9002226.02101,"622,17236-0409-10 ",.02)
 ;;17236-0409-10
 ;;9002226.02101,"622,17236-0552-01 ",.01)
 ;;17236-0552-01
 ;;9002226.02101,"622,17236-0552-01 ",.02)
 ;;17236-0552-01
 ;;9002226.02101,"622,17236-0552-05 ",.01)
 ;;17236-0552-05
 ;;9002226.02101,"622,17236-0552-05 ",.02)
 ;;17236-0552-05
 ;;9002226.02101,"622,17236-0552-10 ",.01)
 ;;17236-0552-10
 ;;9002226.02101,"622,17236-0552-10 ",.02)
 ;;17236-0552-10
 ;;9002226.02101,"622,17236-0553-01 ",.01)
 ;;17236-0553-01
 ;;9002226.02101,"622,17236-0553-01 ",.02)
 ;;17236-0553-01
 ;;9002226.02101,"622,17236-0553-05 ",.01)
 ;;17236-0553-05
 ;;9002226.02101,"622,17236-0553-05 ",.02)
 ;;17236-0553-05
 ;;9002226.02101,"622,17236-0554-01 ",.01)
 ;;17236-0554-01
 ;;9002226.02101,"622,17236-0554-01 ",.02)
 ;;17236-0554-01
 ;;9002226.02101,"622,17236-0554-05 ",.01)
 ;;17236-0554-05
 ;;9002226.02101,"622,17236-0554-05 ",.02)
 ;;17236-0554-05
 ;;9002226.02101,"622,17236-0554-10 ",.01)
 ;;17236-0554-10
 ;;9002226.02101,"622,17236-0554-10 ",.02)
 ;;17236-0554-10
 ;;9002226.02101,"622,17236-0555-01 ",.01)
 ;;17236-0555-01
 ;;9002226.02101,"622,17236-0555-01 ",.02)
 ;;17236-0555-01
 ;;9002226.02101,"622,17236-0555-05 ",.01)
 ;;17236-0555-05
 ;;9002226.02101,"622,17236-0555-05 ",.02)
 ;;17236-0555-05
 ;;9002226.02101,"622,17236-0903-01 ",.01)
 ;;17236-0903-01
 ;;9002226.02101,"622,17236-0903-01 ",.02)
 ;;17236-0903-01
 ;;9002226.02101,"622,17236-0909-01 ",.01)
 ;;17236-0909-01
 ;;9002226.02101,"622,17236-0909-01 ",.02)
 ;;17236-0909-01
 ;;9002226.02101,"622,17314-5850-02 ",.01)
 ;;17314-5850-02
 ;;9002226.02101,"622,17314-5850-02 ",.02)
 ;;17314-5850-02
 ;;9002226.02101,"622,17314-5851-02 ",.01)
 ;;17314-5851-02
 ;;9002226.02101,"622,17314-5851-02 ",.02)
 ;;17314-5851-02
 ;;9002226.02101,"622,17314-5852-02 ",.01)
 ;;17314-5852-02
 ;;9002226.02101,"622,17314-5852-02 ",.02)
 ;;17314-5852-02
 ;;9002226.02101,"622,17314-5853-02 ",.01)
 ;;17314-5853-02
 ;;9002226.02101,"622,17314-5853-02 ",.02)
 ;;17314-5853-02
 ;;9002226.02101,"622,19458-4377-01 ",.01)
 ;;19458-4377-01
 ;;9002226.02101,"622,19458-4377-01 ",.02)
 ;;19458-4377-01
 ;;9002226.02101,"622,19458-9026-01 ",.01)
 ;;19458-9026-01
 ;;9002226.02101,"622,19458-9026-01 ",.02)
 ;;19458-9026-01
 ;;9002226.02101,"622,19458-9056-01 ",.01)
 ;;19458-9056-01
 ;;9002226.02101,"622,19458-9056-01 ",.02)
 ;;19458-9056-01
 ;;9002226.02101,"622,19458-9100-01 ",.01)
 ;;19458-9100-01
 ;;9002226.02101,"622,19458-9100-01 ",.02)
 ;;19458-9100-01
 ;;9002226.02101,"622,19458-9116-01 ",.01)
 ;;19458-9116-01
 ;;9002226.02101,"622,19458-9116-01 ",.02)
 ;;19458-9116-01
 ;;9002226.02101,"622,19810-0018-00 ",.01)
 ;;19810-0018-00
 ;;9002226.02101,"622,19810-0018-00 ",.02)
 ;;19810-0018-00
 ;;9002226.02101,"622,19810-0084-01 ",.01)
 ;;19810-0084-01
 ;;9002226.02101,"622,19810-0084-01 ",.02)
 ;;19810-0084-01
 ;;9002226.02101,"622,19810-0084-02 ",.01)
 ;;19810-0084-02
 ;;9002226.02101,"622,19810-0084-02 ",.02)
 ;;19810-0084-02
 ;;9002226.02101,"622,19810-0702-03 ",.01)
 ;;19810-0702-03
 ;;9002226.02101,"622,19810-0702-03 ",.02)
 ;;19810-0702-03
 ;;9002226.02101,"622,19810-0702-04 ",.01)
 ;;19810-0702-04
 ;;9002226.02101,"622,19810-0702-04 ",.02)
 ;;19810-0702-04
 ;;9002226.02101,"622,19810-0763-03 ",.01)
 ;;19810-0763-03
 ;;9002226.02101,"622,19810-0763-03 ",.02)
 ;;19810-0763-03
 ;;9002226.02101,"622,19810-0763-04 ",.01)
 ;;19810-0763-04
 ;;9002226.02101,"622,19810-0763-04 ",.02)
 ;;19810-0763-04
 ;;9002226.02101,"622,19810-0763-05 ",.01)
 ;;19810-0763-05
 ;;9002226.02101,"622,19810-0763-05 ",.02)
 ;;19810-0763-05
 ;;9002226.02101,"622,19810-0763-06 ",.01)
 ;;19810-0763-06
 ;;9002226.02101,"622,19810-0763-06 ",.02)
 ;;19810-0763-06
 ;;9002226.02101,"622,19810-0764-01 ",.01)
 ;;19810-0764-01
 ;;9002226.02101,"622,19810-0764-01 ",.02)
 ;;19810-0764-01
 ;;9002226.02101,"622,24385-0285-71 ",.01)
 ;;24385-0285-71
 ;;9002226.02101,"622,24385-0285-71 ",.02)
 ;;24385-0285-71
 ;;9002226.02101,"622,24385-0355-71 ",.01)
 ;;24385-0355-71
 ;;9002226.02101,"622,24385-0355-71 ",.02)
 ;;24385-0355-71
 ;;9002226.02101,"622,25332-1113-01 ",.01)
 ;;25332-1113-01
 ;;9002226.02101,"622,25332-1113-01 ",.02)
 ;;25332-1113-01
 ;;9002226.02101,"622,30142-0437-71 ",.01)
 ;;30142-0437-71
 ;;9002226.02101,"622,30142-0437-71 ",.02)
 ;;30142-0437-71
 ;;9002226.02101,"622,30142-0837-71 ",.01)
 ;;30142-0837-71
 ;;9002226.02101,"622,30142-0837-71 ",.02)
 ;;30142-0837-71
 ;;9002226.02101,"622,34575-0099-01 ",.01)
 ;;34575-0099-01
 ;;9002226.02101,"622,34575-0099-01 ",.02)
 ;;34575-0099-01
 ;;9002226.02101,"622,34575-0213-00 ",.01)
 ;;34575-0213-00
 ;;9002226.02101,"622,34575-0213-00 ",.02)
 ;;34575-0213-00
 ;;9002226.02101,"622,34575-0439-93 ",.01)
 ;;34575-0439-93
 ;;9002226.02101,"622,34575-0439-93 ",.02)
 ;;34575-0439-93
 ;;9002226.02101,"622,34575-0623-27 ",.01)
 ;;34575-0623-27
 ;;9002226.02101,"622,34575-0623-27 ",.02)
 ;;34575-0623-27
 ;;9002226.02101,"622,34575-0881-61 ",.01)
 ;;34575-0881-61
 ;;9002226.02101,"622,34575-0881-61 ",.02)
 ;;34575-0881-61
 ;;9002226.02101,"622,35515-0951-05 ",.01)
 ;;35515-0951-05
 ;;9002226.02101,"622,35515-0951-05 ",.02)
 ;;35515-0951-05
 ;;9002226.02101,"622,35515-0954-61 ",.01)
 ;;35515-0954-61
 ;;9002226.02101,"622,35515-0954-61 ",.02)
 ;;35515-0954-61
 ;;9002226.02101,"622,35515-0990-09 ",.01)
 ;;35515-0990-09
 ;;9002226.02101,"622,35515-0990-09 ",.02)
 ;;35515-0990-09
 ;;9002226.02101,"622,36800-0162-31 ",.01)
 ;;36800-0162-31
 ;;9002226.02101,"622,36800-0162-31 ",.02)
 ;;36800-0162-31
 ;;9002226.02101,"622,36800-0623-78 ",.01)
 ;;36800-0623-78
 ;;9002226.02101,"622,36800-0623-78 ",.02)
 ;;36800-0623-78
 ;;9002226.02101,"622,36800-0649-13 ",.01)
 ;;36800-0649-13
 ;;9002226.02101,"622,36800-0649-13 ",.02)
 ;;36800-0649-13
 ;;9002226.02101,"622,37097-0349-50 ",.01)
 ;;37097-0349-50
 ;;9002226.02101,"622,37097-0349-50 ",.02)
 ;;37097-0349-50
 ;;9002226.02101,"622,37097-0361-24 ",.01)
 ;;37097-0361-24
 ;;9002226.02101,"622,37097-0361-24 ",.02)
 ;;37097-0361-24
 ;;9002226.02101,"622,37097-0437-71 ",.01)
 ;;37097-0437-71
 ;;9002226.02101,"622,37097-0437-71 ",.02)
 ;;37097-0437-71
 ;;9002226.02101,"622,37097-0465-71 ",.01)
 ;;37097-0465-71
 ;;9002226.02101,"622,37097-0465-71 ",.02)
 ;;37097-0465-71
 ;;9002226.02101,"622,37205-0060-78 ",.01)
 ;;37205-0060-78
 ;;9002226.02101,"622,37205-0060-78 ",.02)
 ;;37205-0060-78
 ;;9002226.02101,"622,38245-0472-10 ",.01)
 ;;38245-0472-10
 ;;9002226.02101,"622,38245-0472-10 ",.02)
 ;;38245-0472-10
 ;;9002226.02101,"622,38245-0524-10 ",.01)
 ;;38245-0524-10
 ;;9002226.02101,"622,38245-0524-10 ",.02)
 ;;38245-0524-10
 ;;9002226.02101,"622,38245-0577-01 ",.01)
 ;;38245-0577-01
 ;;9002226.02101,"622,38245-0577-01 ",.02)
 ;;38245-0577-01
 ;;9002226.02101,"622,38245-0577-10 ",.01)
 ;;38245-0577-10
 ;;9002226.02101,"622,38245-0577-10 ",.02)
 ;;38245-0577-10
 ;;9002226.02101,"622,38726-0185-71 ",.01)
 ;;38726-0185-71
 ;;9002226.02101,"622,38726-0185-71 ",.02)
 ;;38726-0185-71
 ;;9002226.02101,"622,38726-0437-71 ",.01)
 ;;38726-0437-71
 ;;9002226.02101,"622,38726-0437-71 ",.02)
 ;;38726-0437-71
 ;;9002226.02101,"622,38726-0465-71 ",.01)
 ;;38726-0465-71
 ;;9002226.02101,"622,38726-0465-71 ",.02)
 ;;38726-0465-71
 ;;9002226.02101,"622,41163-0030-62 ",.01)
 ;;41163-0030-62
 ;;9002226.02101,"622,41163-0030-62 ",.02)
 ;;41163-0030-62
 ;;9002226.02101,"622,41163-0185-71 ",.01)
 ;;41163-0185-71
 ;;9002226.02101,"622,41163-0185-71 ",.02)
 ;;41163-0185-71
 ;;9002226.02101,"622,41163-0233-71 ",.01)
 ;;41163-0233-71
 ;;9002226.02101,"622,41163-0233-71 ",.02)
 ;;41163-0233-71
 ;;9002226.02101,"622,41163-0245-08 ",.01)
 ;;41163-0245-08
 ;;9002226.02101,"622,41163-0245-08 ",.02)
 ;;41163-0245-08
 ;;9002226.02101,"622,41163-0245-10 ",.01)
 ;;41163-0245-10
 ;;9002226.02101,"622,41163-0245-10 ",.02)
 ;;41163-0245-10
 ;;9002226.02101,"622,41163-0245-26 ",.01)
 ;;41163-0245-26
 ;;9002226.02101,"622,41163-0245-26 ",.02)
 ;;41163-0245-26
 ;;9002226.02101,"622,41163-0265-39 ",.01)
 ;;41163-0265-39
 ;;9002226.02101,"622,41163-0265-39 ",.02)
 ;;41163-0265-39
 ;;9002226.02101,"622,41163-0265-43 ",.01)
 ;;41163-0265-43
 ;;9002226.02101,"622,41163-0265-43 ",.02)
 ;;41163-0265-43
 ;;9002226.02101,"622,41163-0355-71 ",.01)
 ;;41163-0355-71
 ;;9002226.02101,"622,41163-0355-71 ",.02)
 ;;41163-0355-71
 ;;9002226.02101,"622,41163-0437-71 ",.01)
 ;;41163-0437-71
 ;;9002226.02101,"622,41163-0437-71 ",.02)
 ;;41163-0437-71
 ;;9002226.02101,"622,41163-0437-78 ",.01)
 ;;41163-0437-78
 ;;9002226.02101,"622,41163-0437-78 ",.02)
 ;;41163-0437-78
 ;;9002226.02101,"622,41163-0465-71 ",.01)
 ;;41163-0465-71
 ;;9002226.02101,"622,41163-0465-71 ",.02)
 ;;41163-0465-71
 ;;9002226.02101,"622,41163-0837-71 ",.01)
 ;;41163-0837-71
 ;;9002226.02101,"622,41163-0837-71 ",.02)
 ;;41163-0837-71
 ;;9002226.02101,"622,41280-0223-48 ",.01)
 ;;41280-0223-48
 ;;9002226.02101,"622,41280-0223-48 ",.02)
 ;;41280-0223-48
 ;;9002226.02101,"622,43292-0557-95 ",.01)
 ;;43292-0557-95
 ;;9002226.02101,"622,43292-0557-95 ",.02)
 ;;43292-0557-95
 ;;9002226.02101,"622,43292-0558-31 ",.01)
 ;;43292-0558-31
 ;;9002226.02101,"622,43292-0558-31 ",.02)
 ;;43292-0558-31
 ;;9002226.02101,"622,43567-0530-07 ",.01)
 ;;43567-0530-07
 ;;9002226.02101,"622,43567-0530-07 ",.02)
 ;;43567-0530-07
 ;;9002226.02101,"622,43567-0531-07 ",.01)
 ;;43567-0531-07
 ;;9002226.02101,"622,43567-0531-07 ",.02)
 ;;43567-0531-07
 ;;9002226.02101,"622,44514-0750-18 ",.01)
 ;;44514-0750-18
 ;;9002226.02101,"622,44514-0750-18 ",.02)
 ;;44514-0750-18
 ;;9002226.02101,"622,44514-0750-33 ",.01)
 ;;44514-0750-33
 ;;9002226.02101,"622,44514-0750-33 ",.02)
 ;;44514-0750-33
 ;;9002226.02101,"622,44514-0999-01 ",.01)
 ;;44514-0999-01
 ;;9002226.02101,"622,44514-0999-01 ",.02)
 ;;44514-0999-01
 ;;9002226.02101,"622,46703-0009-10 ",.01)
 ;;46703-0009-10
 ;;9002226.02101,"622,46703-0009-10 ",.02)
 ;;46703-0009-10
 ;;9002226.02101,"622,46703-0100-05 ",.01)
 ;;46703-0100-05