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

BGP53I73.m

Go to the documentation of this file.
BGP53I73 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 23, 2015;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"734,63874-1086-03 ",.02)
 ;;63874-1086-03
 ;;9002226.02101,"734,63874-1086-04 ",.01)
 ;;63874-1086-04
 ;;9002226.02101,"734,63874-1086-04 ",.02)
 ;;63874-1086-04
 ;;9002226.02101,"734,63874-1086-05 ",.01)
 ;;63874-1086-05
 ;;9002226.02101,"734,63874-1086-05 ",.02)
 ;;63874-1086-05
 ;;9002226.02101,"734,63874-1086-06 ",.01)
 ;;63874-1086-06
 ;;9002226.02101,"734,63874-1086-06 ",.02)
 ;;63874-1086-06
 ;;9002226.02101,"734,63874-1112-02 ",.01)
 ;;63874-1112-02
 ;;9002226.02101,"734,63874-1112-02 ",.02)
 ;;63874-1112-02
 ;;9002226.02101,"734,63874-1226-02 ",.01)
 ;;63874-1226-02
 ;;9002226.02101,"734,63874-1226-02 ",.02)
 ;;63874-1226-02
 ;;9002226.02101,"734,64038-0033-01 ",.01)
 ;;64038-0033-01
 ;;9002226.02101,"734,64038-0033-01 ",.02)
 ;;64038-0033-01
 ;;9002226.02101,"734,64038-0033-40 ",.01)
 ;;64038-0033-40
 ;;9002226.02101,"734,64038-0033-40 ",.02)
 ;;64038-0033-40
 ;;9002226.02101,"734,64376-0130-01 ",.01)
 ;;64376-0130-01
 ;;9002226.02101,"734,64376-0130-01 ",.02)
 ;;64376-0130-01
 ;;9002226.02101,"734,64376-0130-55 ",.01)
 ;;64376-0130-55
 ;;9002226.02101,"734,64376-0130-55 ",.02)
 ;;64376-0130-55
 ;;9002226.02101,"734,64376-0131-01 ",.01)
 ;;64376-0131-01
 ;;9002226.02101,"734,64376-0131-01 ",.02)
 ;;64376-0131-01
 ;;9002226.02101,"734,64376-0131-55 ",.01)
 ;;64376-0131-55
 ;;9002226.02101,"734,64376-0131-55 ",.02)
 ;;64376-0131-55
 ;;9002226.02101,"734,64376-0132-01 ",.01)
 ;;64376-0132-01
 ;;9002226.02101,"734,64376-0132-01 ",.02)
 ;;64376-0132-01
 ;;9002226.02101,"734,64376-0132-55 ",.01)
 ;;64376-0132-55
 ;;9002226.02101,"734,64376-0132-55 ",.02)
 ;;64376-0132-55
 ;;9002226.02101,"734,64455-0691-01 ",.01)
 ;;64455-0691-01
 ;;9002226.02101,"734,64455-0691-01 ",.02)
 ;;64455-0691-01
 ;;9002226.02101,"734,64455-0691-02 ",.01)
 ;;64455-0691-02
 ;;9002226.02101,"734,64455-0691-02 ",.02)
 ;;64455-0691-02
 ;;9002226.02101,"734,64455-0777-01 ",.01)
 ;;64455-0777-01
 ;;9002226.02101,"734,64455-0777-01 ",.02)
 ;;64455-0777-01
 ;;9002226.02101,"734,64455-0777-02 ",.01)
 ;;64455-0777-02
 ;;9002226.02101,"734,64455-0777-02 ",.02)
 ;;64455-0777-02
 ;;9002226.02101,"734,64455-0777-03 ",.01)
 ;;64455-0777-03
 ;;9002226.02101,"734,64455-0777-03 ",.02)
 ;;64455-0777-03
 ;;9002226.02101,"734,64455-0777-04 ",.01)
 ;;64455-0777-04
 ;;9002226.02101,"734,64455-0777-04 ",.02)
 ;;64455-0777-04
 ;;9002226.02101,"734,64679-0544-02 ",.01)
 ;;64679-0544-02
 ;;9002226.02101,"734,64679-0544-02 ",.02)
 ;;64679-0544-02
 ;;9002226.02101,"734,64679-0544-03 ",.01)
 ;;64679-0544-03
 ;;9002226.02101,"734,64679-0544-03 ",.02)
 ;;64679-0544-03
 ;;9002226.02101,"734,64679-0545-02 ",.01)
 ;;64679-0545-02
 ;;9002226.02101,"734,64679-0545-02 ",.02)
 ;;64679-0545-02
 ;;9002226.02101,"734,64679-0545-03 ",.01)
 ;;64679-0545-03
 ;;9002226.02101,"734,64679-0545-03 ",.02)
 ;;64679-0545-03
 ;;9002226.02101,"734,64679-0547-01 ",.01)
 ;;64679-0547-01
 ;;9002226.02101,"734,64679-0547-01 ",.02)
 ;;64679-0547-01
 ;;9002226.02101,"734,64679-0547-02 ",.01)
 ;;64679-0547-02
 ;;9002226.02101,"734,64679-0547-02 ",.02)
 ;;64679-0547-02
 ;;9002226.02101,"734,64679-0547-03 ",.01)
 ;;64679-0547-03
 ;;9002226.02101,"734,64679-0547-03 ",.02)
 ;;64679-0547-03
 ;;9002226.02101,"734,64679-0701-01 ",.01)
 ;;64679-0701-01
 ;;9002226.02101,"734,64679-0701-01 ",.02)
 ;;64679-0701-01
 ;;9002226.02101,"734,64679-0701-02 ",.01)
 ;;64679-0701-02
 ;;9002226.02101,"734,64679-0701-02 ",.02)
 ;;64679-0701-02
 ;;9002226.02101,"734,64679-0701-03 ",.01)
 ;;64679-0701-03
 ;;9002226.02101,"734,64679-0701-03 ",.02)
 ;;64679-0701-03
 ;;9002226.02101,"734,64679-0702-01 ",.01)
 ;;64679-0702-01
 ;;9002226.02101,"734,64679-0702-01 ",.02)
 ;;64679-0702-01
 ;;9002226.02101,"734,64679-0702-02 ",.01)
 ;;64679-0702-02
 ;;9002226.02101,"734,64679-0702-02 ",.02)
 ;;64679-0702-02
 ;;9002226.02101,"734,64679-0703-01 ",.01)
 ;;64679-0703-01
 ;;9002226.02101,"734,64679-0703-01 ",.02)
 ;;64679-0703-01
 ;;9002226.02101,"734,64679-0703-02 ",.01)
 ;;64679-0703-02
 ;;9002226.02101,"734,64679-0703-02 ",.02)
 ;;64679-0703-02
 ;;9002226.02101,"734,64679-0712-03 ",.01)
 ;;64679-0712-03
 ;;9002226.02101,"734,64679-0712-03 ",.02)
 ;;64679-0712-03
 ;;9002226.02101,"734,64679-0713-01 ",.01)
 ;;64679-0713-01
 ;;9002226.02101,"734,64679-0713-01 ",.02)
 ;;64679-0713-01
 ;;9002226.02101,"734,64679-0713-03 ",.01)
 ;;64679-0713-03
 ;;9002226.02101,"734,64679-0713-03 ",.02)
 ;;64679-0713-03
 ;;9002226.02101,"734,64679-0921-01 ",.01)
 ;;64679-0921-01
 ;;9002226.02101,"734,64679-0921-01 ",.02)
 ;;64679-0921-01
 ;;9002226.02101,"734,64679-0921-02 ",.01)
 ;;64679-0921-02
 ;;9002226.02101,"734,64679-0921-02 ",.02)
 ;;64679-0921-02
 ;;9002226.02101,"734,64679-0922-01 ",.01)
 ;;64679-0922-01
 ;;9002226.02101,"734,64679-0922-01 ",.02)
 ;;64679-0922-01
 ;;9002226.02101,"734,64679-0922-02 ",.01)
 ;;64679-0922-02
 ;;9002226.02101,"734,64679-0922-02 ",.02)
 ;;64679-0922-02
 ;;9002226.02101,"734,64679-0949-01 ",.01)
 ;;64679-0949-01
 ;;9002226.02101,"734,64679-0949-01 ",.02)
 ;;64679-0949-01
 ;;9002226.02101,"734,64679-0954-01 ",.01)
 ;;64679-0954-01
 ;;9002226.02101,"734,64679-0954-01 ",.02)
 ;;64679-0954-01
 ;;9002226.02101,"734,64679-0961-01 ",.01)
 ;;64679-0961-01
 ;;9002226.02101,"734,64679-0961-01 ",.02)
 ;;64679-0961-01
 ;;9002226.02101,"734,64679-0961-04 ",.01)
 ;;64679-0961-04
 ;;9002226.02101,"734,64679-0961-04 ",.02)
 ;;64679-0961-04
 ;;9002226.02101,"734,64679-0961-05 ",.01)
 ;;64679-0961-05
 ;;9002226.02101,"734,64679-0961-05 ",.02)
 ;;64679-0961-05
 ;;9002226.02101,"734,64679-0962-01 ",.01)
 ;;64679-0962-01
 ;;9002226.02101,"734,64679-0962-01 ",.02)
 ;;64679-0962-01
 ;;9002226.02101,"734,64679-0964-01 ",.01)
 ;;64679-0964-01
 ;;9002226.02101,"734,64679-0964-01 ",.02)
 ;;64679-0964-01
 ;;9002226.02101,"734,64679-0964-03 ",.01)
 ;;64679-0964-03
 ;;9002226.02101,"734,64679-0964-03 ",.02)
 ;;64679-0964-03
 ;;9002226.02101,"734,64679-0964-05 ",.01)
 ;;64679-0964-05
 ;;9002226.02101,"734,64679-0964-05 ",.02)
 ;;64679-0964-05
 ;;9002226.02101,"734,64679-0983-01 ",.01)
 ;;64679-0983-01
 ;;9002226.02101,"734,64679-0983-01 ",.02)
 ;;64679-0983-01
 ;;9002226.02101,"734,64679-0983-02 ",.01)
 ;;64679-0983-02
 ;;9002226.02101,"734,64679-0983-02 ",.02)
 ;;64679-0983-02
 ;;9002226.02101,"734,64720-0152-10 ",.01)
 ;;64720-0152-10
 ;;9002226.02101,"734,64720-0152-10 ",.02)
 ;;64720-0152-10
 ;;9002226.02101,"734,64860-0306-13 ",.01)
 ;;64860-0306-13
 ;;9002226.02101,"734,64860-0306-13 ",.02)
 ;;64860-0306-13
 ;;9002226.02101,"734,64860-0306-40 ",.01)
 ;;64860-0306-40
 ;;9002226.02101,"734,64860-0306-40 ",.02)
 ;;64860-0306-40
 ;;9002226.02101,"734,64860-0307-13 ",.01)
 ;;64860-0307-13
 ;;9002226.02101,"734,64860-0307-13 ",.02)
 ;;64860-0307-13
 ;;9002226.02101,"734,64860-0307-40 ",.01)
 ;;64860-0307-40
 ;;9002226.02101,"734,64860-0307-40 ",.02)
 ;;64860-0307-40
 ;;9002226.02101,"734,64980-0511-10 ",.01)
 ;;64980-0511-10
 ;;9002226.02101,"734,64980-0511-10 ",.02)
 ;;64980-0511-10
 ;;9002226.02101,"734,65162-0202-01 ",.01)
 ;;65162-0202-01
 ;;9002226.02101,"734,65162-0202-01 ",.02)
 ;;65162-0202-01
 ;;9002226.02101,"734,65162-0202-02 ",.01)
 ;;65162-0202-02
 ;;9002226.02101,"734,65162-0202-02 ",.02)
 ;;65162-0202-02
 ;;9002226.02101,"734,65162-0202-08 ",.01)
 ;;65162-0202-08
 ;;9002226.02101,"734,65162-0202-08 ",.02)
 ;;65162-0202-08
 ;;9002226.02101,"734,65162-0202-14 ",.01)
 ;;65162-0202-14
 ;;9002226.02101,"734,65162-0202-14 ",.02)
 ;;65162-0202-14
 ;;9002226.02101,"734,65162-0313-01 ",.01)
 ;;65162-0313-01
 ;;9002226.02101,"734,65162-0313-01 ",.02)
 ;;65162-0313-01
 ;;9002226.02101,"734,65162-0313-02 ",.01)
 ;;65162-0313-02
 ;;9002226.02101,"734,65162-0313-02 ",.02)
 ;;65162-0313-02
 ;;9002226.02101,"734,65162-0313-08 ",.01)
 ;;65162-0313-08
 ;;9002226.02101,"734,65162-0313-08 ",.02)
 ;;65162-0313-08
 ;;9002226.02101,"734,65162-0313-14 ",.01)
 ;;65162-0313-14
 ;;9002226.02101,"734,65162-0313-14 ",.02)
 ;;65162-0313-14
 ;;9002226.02101,"734,65162-0468-19 ",.01)
 ;;65162-0468-19
 ;;9002226.02101,"734,65162-0468-19 ",.02)
 ;;65162-0468-19
 ;;9002226.02101,"734,65224-0800-22 ",.01)
 ;;65224-0800-22
 ;;9002226.02101,"734,65224-0800-22 ",.02)
 ;;65224-0800-22
 ;;9002226.02101,"734,65224-0802-02 ",.01)
 ;;65224-0802-02
 ;;9002226.02101,"734,65224-0802-02 ",.02)
 ;;65224-0802-02
 ;;9002226.02101,"734,65224-0802-03 ",.01)
 ;;65224-0802-03
 ;;9002226.02101,"734,65224-0802-03 ",.02)
 ;;65224-0802-03
 ;;9002226.02101,"734,65224-0802-04 ",.01)
 ;;65224-0802-04
 ;;9002226.02101,"734,65224-0802-04 ",.02)
 ;;65224-0802-04
 ;;9002226.02101,"734,65224-0804-02 ",.01)
 ;;65224-0804-02
 ;;9002226.02101,"734,65224-0804-02 ",.02)
 ;;65224-0804-02
 ;;9002226.02101,"734,65862-0014-01 ",.01)
 ;;65862-0014-01
 ;;9002226.02101,"734,65862-0014-01 ",.02)
 ;;65862-0014-01
 ;;9002226.02101,"734,65862-0014-05 ",.01)
 ;;65862-0014-05
 ;;9002226.02101,"734,65862-0014-05 ",.02)
 ;;65862-0014-05
 ;;9002226.02101,"734,65862-0015-01 ",.01)
 ;;65862-0015-01
 ;;9002226.02101,"734,65862-0015-01 ",.02)
 ;;65862-0015-01
 ;;9002226.02101,"734,65862-0015-05 ",.01)
 ;;65862-0015-05
 ;;9002226.02101,"734,65862-0015-05 ",.02)
 ;;65862-0015-05
 ;;9002226.02101,"734,65862-0016-01 ",.01)
 ;;65862-0016-01
 ;;9002226.02101,"734,65862-0016-01 ",.02)
 ;;65862-0016-01
 ;;9002226.02101,"734,65862-0016-05 ",.01)
 ;;65862-0016-05
 ;;9002226.02101,"734,65862-0016-05 ",.02)
 ;;65862-0016-05
 ;;9002226.02101,"734,65862-0017-01 ",.01)
 ;;65862-0017-01
 ;;9002226.02101,"734,65862-0017-01 ",.02)
 ;;65862-0017-01
 ;;9002226.02101,"734,65862-0017-05 ",.01)
 ;;65862-0017-05
 ;;9002226.02101,"734,65862-0017-05 ",.02)
 ;;65862-0017-05
 ;;9002226.02101,"734,65862-0018-01 ",.01)
 ;;65862-0018-01
 ;;9002226.02101,"734,65862-0018-01 ",.02)
 ;;65862-0018-01
 ;;9002226.02101,"734,65862-0018-05 ",.01)
 ;;65862-0018-05
 ;;9002226.02101,"734,65862-0018-05 ",.02)
 ;;65862-0018-05
 ;;9002226.02101,"734,65862-0018-40 ",.01)
 ;;65862-0018-40
 ;;9002226.02101,"734,65862-0018-40 ",.02)
 ;;65862-0018-40
 ;;9002226.02101,"734,65862-0019-01 ",.01)
 ;;65862-0019-01
 ;;9002226.02101,"734,65862-0019-01 ",.02)
 ;;65862-0019-01
 ;;9002226.02101,"734,65862-0019-05 ",.01)
 ;;65862-0019-05
 ;;9002226.02101,"734,65862-0019-05 ",.02)
 ;;65862-0019-05
 ;;9002226.02101,"734,65862-0019-40 ",.01)
 ;;65862-0019-40
 ;;9002226.02101,"734,65862-0019-40 ",.02)
 ;;65862-0019-40
 ;;9002226.02101,"734,65862-0034-20 ",.01)
 ;;65862-0034-20
 ;;9002226.02101,"734,65862-0034-20 ",.02)
 ;;65862-0034-20
 ;;9002226.02101,"734,65862-0034-60 ",.01)
 ;;65862-0034-60
 ;;9002226.02101,"734,65862-0034-60 ",.02)
 ;;65862-0034-60
 ;;9002226.02101,"734,65862-0035-20 ",.01)
 ;;65862-0035-20
 ;;9002226.02101,"734,65862-0035-20 ",.02)
 ;;65862-0035-20
 ;;9002226.02101,"734,65862-0035-60 ",.01)
 ;;65862-0035-60
 ;;9002226.02101,"734,65862-0035-60 ",.02)
 ;;65862-0035-60
 ;;9002226.02101,"734,65862-0068-01 ",.01)
 ;;65862-0068-01
 ;;9002226.02101,"734,65862-0068-01 ",.02)
 ;;65862-0068-01
 ;;9002226.02101,"734,65862-0068-50 ",.01)
 ;;65862-0068-50
 ;;9002226.02101,"734,65862-0068-50 ",.02)
 ;;65862-0068-50
 ;;9002226.02101,"734,65862-0069-01 ",.01)
 ;;65862-0069-01
 ;;9002226.02101,"734,65862-0069-01 ",.02)
 ;;65862-0069-01
 ;;9002226.02101,"734,65862-0069-50 ",.01)
 ;;65862-0069-50
 ;;9002226.02101,"734,65862-0069-50 ",.02)
 ;;65862-0069-50
 ;;9002226.02101,"734,65862-0070-01 ",.01)
 ;;65862-0070-01
 ;;9002226.02101,"734,65862-0070-01 ",.02)
 ;;65862-0070-01
 ;;9002226.02101,"734,65862-0070-50 ",.01)
 ;;65862-0070-50
 ;;9002226.02101,"734,65862-0070-50 ",.02)
 ;;65862-0070-50
 ;;9002226.02101,"734,65862-0070-75 ",.01)
 ;;65862-0070-75
 ;;9002226.02101,"734,65862-0070-75 ",.02)
 ;;65862-0070-75
 ;;9002226.02101,"734,65862-0071-01 ",.01)
 ;;65862-0071-01
 ;;9002226.02101,"734,65862-0071-01 ",.02)
 ;;65862-0071-01
 ;;9002226.02101,"734,65862-0071-50 ",.01)
 ;;65862-0071-50
 ;;9002226.02101,"734,65862-0071-50 ",.02)
 ;;65862-0071-50
 ;;9002226.02101,"734,65862-0071-75 ",.01)
 ;;65862-0071-75
 ;;9002226.02101,"734,65862-0071-75 ",.02)
 ;;65862-0071-75
 ;;9002226.02101,"734,65862-0076-01 ",.01)
 ;;65862-0076-01
 ;;9002226.02101,"734,65862-0076-01 ",.02)
 ;;65862-0076-01
 ;;9002226.02101,"734,65862-0077-01 ",.01)
 ;;65862-0077-01
 ;;9002226.02101,"734,65862-0077-01 ",.02)
 ;;65862-0077-01
 ;;9002226.02101,"734,65862-0078-50 ",.01)
 ;;65862-0078-50
 ;;9002226.02101,"734,65862-0078-50 ",.02)
 ;;65862-0078-50
 ;;9002226.02101,"734,65862-0083-01 ",.01)
 ;;65862-0083-01
 ;;9002226.02101,"734,65862-0083-01 ",.02)
 ;;65862-0083-01
 ;;9002226.02101,"734,65862-0084-01 ",.01)
 ;;65862-0084-01
 ;;9002226.02101,"734,65862-0084-01 ",.02)
 ;;65862-0084-01
 ;;9002226.02101,"734,65862-0084-75 ",.01)
 ;;65862-0084-75
 ;;9002226.02101,"734,65862-0084-75 ",.02)
 ;;65862-0084-75
 ;;9002226.02101,"734,65862-0085-01 ",.01)
 ;;65862-0085-01
 ;;9002226.02101,"734,65862-0085-01 ",.02)
 ;;65862-0085-01
 ;;9002226.02101,"734,65862-0085-50 ",.01)
 ;;65862-0085-50
 ;;9002226.02101,"734,65862-0085-50 ",.02)
 ;;65862-0085-50
 ;;9002226.02101,"734,65862-0095-01 ",.01)
 ;;65862-0095-01
 ;;9002226.02101,"734,65862-0095-01 ",.02)
 ;;65862-0095-01
 ;;9002226.02101,"734,65862-0095-20 ",.01)
 ;;65862-0095-20
 ;;9002226.02101,"734,65862-0095-20 ",.02)
 ;;65862-0095-20
 ;;9002226.02101,"734,65862-0096-01 ",.01)
 ;;65862-0096-01
 ;;9002226.02101,"734,65862-0096-01 ",.02)
 ;;65862-0096-01
 ;;9002226.02101,"734,65862-0096-20 ",.01)
 ;;65862-0096-20