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

BGP7LXFF.m

Go to the documentation of this file.
BGP7LXFF ; 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,"623,00682-1400-01 ",.01)
 ;;00682-1400-01
 ;;9002226.02101,"623,00682-1400-01 ",.02)
 ;;00682-1400-01
 ;;9002226.02101,"623,00781-1435-01 ",.01)
 ;;00781-1435-01
 ;;9002226.02101,"623,00781-1435-01 ",.02)
 ;;00781-1435-01
 ;;9002226.02101,"623,00781-1435-10 ",.01)
 ;;00781-1435-10
 ;;9002226.02101,"623,00781-1435-10 ",.02)
 ;;00781-1435-10
 ;;9002226.02101,"623,00781-1918-01 ",.01)
 ;;00781-1918-01
 ;;9002226.02101,"623,00781-1918-01 ",.02)
 ;;00781-1918-01
 ;;9002226.02101,"623,00781-1918-05 ",.01)
 ;;00781-1918-05
 ;;9002226.02101,"623,00781-1918-05 ",.02)
 ;;00781-1918-05
 ;;9002226.02101,"623,00781-2120-01 ",.01)
 ;;00781-2120-01
 ;;9002226.02101,"623,00781-2120-01 ",.02)
 ;;00781-2120-01
 ;;9002226.02101,"623,00781-2221-01 ",.01)
 ;;00781-2221-01
 ;;9002226.02101,"623,00781-2221-01 ",.02)
 ;;00781-2221-01
 ;;9002226.02101,"623,00785-2305-01 ",.01)
 ;;00785-2305-01
 ;;9002226.02101,"623,00785-2305-01 ",.02)
 ;;00785-2305-01
 ;;9002226.02101,"623,00785-2307-01 ",.01)
 ;;00785-2307-01
 ;;9002226.02101,"623,00785-2307-01 ",.02)
 ;;00785-2307-01
 ;;9002226.02101,"623,00785-9064-10 ",.01)
 ;;00785-9064-10
 ;;9002226.02101,"623,00785-9064-10 ",.02)
 ;;00785-9064-10
 ;;9002226.02101,"623,00839-1478-16 ",.01)
 ;;00839-1478-16
 ;;9002226.02101,"623,00839-1478-16 ",.02)
 ;;00839-1478-16
 ;;9002226.02101,"623,00839-1484-16 ",.01)
 ;;00839-1484-16
 ;;9002226.02101,"623,00839-1484-16 ",.02)
 ;;00839-1484-16
 ;;9002226.02101,"623,00839-5154-16 ",.01)
 ;;00839-5154-16
 ;;9002226.02101,"623,00839-5154-16 ",.02)
 ;;00839-5154-16
 ;;9002226.02101,"623,00839-5398-69 ",.01)
 ;;00839-5398-69
 ;;9002226.02101,"623,00839-5398-69 ",.02)
 ;;00839-5398-69
 ;;9002226.02101,"623,00839-6257-16 ",.01)
 ;;00839-6257-16
 ;;9002226.02101,"623,00839-6257-16 ",.02)
 ;;00839-6257-16
 ;;9002226.02101,"623,00839-6733-06 ",.01)
 ;;00839-6733-06
 ;;9002226.02101,"623,00839-6733-06 ",.02)
 ;;00839-6733-06
 ;;9002226.02101,"623,00839-6733-16 ",.01)
 ;;00839-6733-16
 ;;9002226.02101,"623,00839-6733-16 ",.02)
 ;;00839-6733-16
 ;;9002226.02101,"623,00839-7047-06 ",.01)
 ;;00839-7047-06
 ;;9002226.02101,"623,00839-7047-06 ",.02)
 ;;00839-7047-06
 ;;9002226.02101,"623,00839-7480-06 ",.01)
 ;;00839-7480-06
 ;;9002226.02101,"623,00839-7480-06 ",.02)
 ;;00839-7480-06
 ;;9002226.02101,"623,00839-7480-12 ",.01)
 ;;00839-7480-12
 ;;9002226.02101,"623,00839-7480-12 ",.02)
 ;;00839-7480-12
 ;;9002226.02101,"623,00839-7831-06 ",.01)
 ;;00839-7831-06
 ;;9002226.02101,"623,00839-7831-06 ",.02)
 ;;00839-7831-06
 ;;9002226.02101,"623,00839-7831-12 ",.01)
 ;;00839-7831-12
 ;;9002226.02101,"623,00839-7831-12 ",.02)
 ;;00839-7831-12
 ;;9002226.02101,"623,00853-1650-70 ",.01)
 ;;00853-1650-70
 ;;9002226.02101,"623,00853-1650-70 ",.02)
 ;;00853-1650-70
 ;;9002226.02101,"623,00879-0049-16 ",.01)
 ;;00879-0049-16
 ;;9002226.02101,"623,00879-0049-16 ",.02)
 ;;00879-0049-16
 ;;9002226.02101,"623,00879-0567-01 ",.01)
 ;;00879-0567-01
 ;;9002226.02101,"623,00879-0567-01 ",.02)
 ;;00879-0567-01
 ;;9002226.02101,"623,00879-0567-05 ",.01)
 ;;00879-0567-05
 ;;9002226.02101,"623,00879-0567-05 ",.02)
 ;;00879-0567-05
 ;;9002226.02101,"623,00879-0756-08 ",.01)
 ;;00879-0756-08
 ;;9002226.02101,"623,00879-0756-08 ",.02)
 ;;00879-0756-08
 ;;9002226.02101,"623,00904-1015-16 ",.01)
 ;;00904-1015-16
 ;;9002226.02101,"623,00904-1015-16 ",.02)
 ;;00904-1015-16
 ;;9002226.02101,"623,00904-1015-28 ",.01)
 ;;00904-1015-28
 ;;9002226.02101,"623,00904-1015-28 ",.02)
 ;;00904-1015-28
 ;;9002226.02101,"623,00904-3280-40 ",.01)
 ;;00904-3280-40
 ;;9002226.02101,"623,00904-3280-40 ",.02)
 ;;00904-3280-40
 ;;9002226.02101,"623,00904-3280-60 ",.01)
 ;;00904-3280-60
 ;;9002226.02101,"623,00904-3280-60 ",.02)
 ;;00904-3280-60
 ;;9002226.02101,"623,00904-3280-61 ",.01)
 ;;00904-3280-61
 ;;9002226.02101,"623,00904-3280-61 ",.02)
 ;;00904-3280-61
 ;;9002226.02101,"623,00904-3815-61 ",.01)
 ;;00904-3815-61
 ;;9002226.02101,"623,00904-3815-61 ",.02)
 ;;00904-3815-61
 ;;9002226.02101,"623,00904-3815-80 ",.01)
 ;;00904-3815-80
 ;;9002226.02101,"623,00904-3815-80 ",.02)
 ;;00904-3815-80
 ;;9002226.02101,"623,00904-3816-80 ",.01)
 ;;00904-3816-80
 ;;9002226.02101,"623,00904-3816-80 ",.02)
 ;;00904-3816-80
 ;;9002226.02101,"623,00904-3827-80 ",.01)
 ;;00904-3827-80
 ;;9002226.02101,"623,00904-3827-80 ",.02)
 ;;00904-3827-80
 ;;9002226.02101,"623,00904-3892-60 ",.01)
 ;;00904-3892-60
 ;;9002226.02101,"623,00904-3892-60 ",.02)
 ;;00904-3892-60
 ;;9002226.02101,"623,00904-3892-80 ",.01)
 ;;00904-3892-80
 ;;9002226.02101,"623,00904-3892-80 ",.02)
 ;;00904-3892-80
 ;;9002226.02101,"623,00904-3934-60 ",.01)
 ;;00904-3934-60
 ;;9002226.02101,"623,00904-3934-60 ",.02)
 ;;00904-3934-60
 ;;9002226.02101,"623,00904-5140-60 ",.01)
 ;;00904-5140-60
 ;;9002226.02101,"623,00904-5140-60 ",.02)
 ;;00904-5140-60
 ;;9002226.02101,"623,00904-5490-60 ",.01)
 ;;00904-5490-60
 ;;9002226.02101,"623,00904-5490-60 ",.02)
 ;;00904-5490-60
 ;;9002226.02101,"623,10939-0489-33 ",.01)
 ;;10939-0489-33
 ;;9002226.02101,"623,10939-0489-33 ",.02)
 ;;10939-0489-33
 ;;9002226.02101,"623,10939-0502-33 ",.01)
 ;;10939-0502-33
 ;;9002226.02101,"623,10939-0502-33 ",.02)
 ;;10939-0502-33
 ;;9002226.02101,"623,11584-0029-01 ",.01)
 ;;11584-0029-01
 ;;9002226.02101,"623,11584-0029-01 ",.02)
 ;;11584-0029-01
 ;;9002226.02101,"623,11584-1029-01 ",.01)
 ;;11584-1029-01
 ;;9002226.02101,"623,11584-1029-01 ",.02)
 ;;11584-1029-01
 ;;9002226.02101,"623,11822-3040-50 ",.01)
 ;;11822-3040-50
 ;;9002226.02101,"623,11822-3040-50 ",.02)
 ;;11822-3040-50
 ;;9002226.02101,"623,11917-0019-57 ",.01)
 ;;11917-0019-57
 ;;9002226.02101,"623,11917-0019-57 ",.02)
 ;;11917-0019-57
 ;;9002226.02101,"623,11917-0023-91 ",.01)
 ;;11917-0023-91
 ;;9002226.02101,"623,11917-0023-91 ",.02)
 ;;11917-0023-91
 ;;9002226.02101,"623,12280-0178-00 ",.01)
 ;;12280-0178-00
 ;;9002226.02101,"623,12280-0178-00 ",.02)
 ;;12280-0178-00
 ;;9002226.02101,"623,14615-0279-80 ",.01)
 ;;14615-0279-80
 ;;9002226.02101,"623,14615-0279-80 ",.02)
 ;;14615-0279-80
 ;;9002226.02101,"623,17022-1400-03 ",.01)
 ;;17022-1400-03
 ;;9002226.02101,"623,17022-1400-03 ",.02)
 ;;17022-1400-03
 ;;9002226.02101,"623,17022-4842-02 ",.01)
 ;;17022-4842-02
 ;;9002226.02101,"623,17022-4842-02 ",.02)
 ;;17022-4842-02
 ;;9002226.02101,"623,17022-4842-04 ",.01)
 ;;17022-4842-04
 ;;9002226.02101,"623,17022-4842-04 ",.02)
 ;;17022-4842-04
 ;;9002226.02101,"623,17022-4844-02 ",.01)
 ;;17022-4844-02
 ;;9002226.02101,"623,17022-4844-02 ",.02)
 ;;17022-4844-02
 ;;9002226.02101,"623,17022-4844-04 ",.01)
 ;;17022-4844-04
 ;;9002226.02101,"623,17022-4844-04 ",.02)
 ;;17022-4844-04
 ;;9002226.02101,"623,17022-4845-02 ",.01)
 ;;17022-4845-02
 ;;9002226.02101,"623,17022-4845-02 ",.02)
 ;;17022-4845-02
 ;;9002226.02101,"623,17022-4845-04 ",.01)
 ;;17022-4845-04
 ;;9002226.02101,"623,17022-4845-04 ",.02)
 ;;17022-4845-04
 ;;9002226.02101,"623,17236-0081-91 ",.01)
 ;;17236-0081-91
 ;;9002226.02101,"623,17236-0081-91 ",.02)
 ;;17236-0081-91
 ;;9002226.02101,"623,17236-0225-01 ",.01)
 ;;17236-0225-01
 ;;9002226.02101,"623,17236-0225-01 ",.02)
 ;;17236-0225-01
 ;;9002226.02101,"623,17236-0225-05 ",.01)
 ;;17236-0225-05
 ;;9002226.02101,"623,17236-0225-05 ",.02)
 ;;17236-0225-05
 ;;9002226.02101,"623,17236-0227-01 ",.01)
 ;;17236-0227-01
 ;;9002226.02101,"623,17236-0227-01 ",.02)
 ;;17236-0227-01
 ;;9002226.02101,"623,17236-0227-05 ",.01)
 ;;17236-0227-05
 ;;9002226.02101,"623,17236-0227-05 ",.02)
 ;;17236-0227-05
 ;;9002226.02101,"623,17236-0459-01 ",.01)
 ;;17236-0459-01
 ;;9002226.02101,"623,17236-0459-01 ",.02)
 ;;17236-0459-01
 ;;9002226.02101,"623,17236-0459-05 ",.01)
 ;;17236-0459-05
 ;;9002226.02101,"623,17236-0459-05 ",.02)
 ;;17236-0459-05
 ;;9002226.02101,"623,17236-0895-91 ",.01)
 ;;17236-0895-91
 ;;9002226.02101,"623,17236-0895-91 ",.02)
 ;;17236-0895-91
 ;;9002226.02101,"623,19458-3792-06 ",.01)
 ;;19458-3792-06
 ;;9002226.02101,"623,19458-3792-06 ",.02)
 ;;19458-3792-06
 ;;9002226.02101,"623,24385-0901-26 ",.01)
 ;;24385-0901-26
 ;;9002226.02101,"623,24385-0901-26 ",.02)
 ;;24385-0901-26
 ;;9002226.02101,"623,36800-0134-44 ",.01)
 ;;36800-0134-44
 ;;9002226.02101,"623,36800-0134-44 ",.02)
 ;;36800-0134-44
 ;;9002226.02101,"623,38130-0111-01 ",.01)
 ;;38130-0111-01
 ;;9002226.02101,"623,38130-0111-01 ",.02)
 ;;38130-0111-01
 ;;9002226.02101,"623,38130-0325-01 ",.01)
 ;;38130-0325-01
 ;;9002226.02101,"623,38130-0325-01 ",.02)
 ;;38130-0325-01
 ;;9002226.02101,"623,41163-0251-28 ",.01)
 ;;41163-0251-28
 ;;9002226.02101,"623,41163-0251-28 ",.02)
 ;;41163-0251-28
 ;;9002226.02101,"623,41163-0255-29 ",.01)
 ;;41163-0255-29
 ;;9002226.02101,"623,41163-0255-29 ",.02)
 ;;41163-0255-29
 ;;9002226.02101,"623,41163-0379-34 ",.01)
 ;;41163-0379-34
 ;;9002226.02101,"623,41163-0379-34 ",.02)
 ;;41163-0379-34
 ;;9002226.02101,"623,44514-0057-20 ",.01)
 ;;44514-0057-20
 ;;9002226.02101,"623,44514-0057-20 ",.02)
 ;;44514-0057-20
 ;;9002226.02101,"623,45985-0578-01 ",.01)
 ;;45985-0578-01
 ;;9002226.02101,"623,45985-0578-01 ",.02)
 ;;45985-0578-01
 ;;9002226.02101,"623,46672-0053-10 ",.01)
 ;;46672-0053-10
 ;;9002226.02101,"623,46672-0053-10 ",.02)
 ;;46672-0053-10
 ;;9002226.02101,"623,46672-0053-50 ",.01)
 ;;46672-0053-50
 ;;9002226.02101,"623,46672-0053-50 ",.02)
 ;;46672-0053-50
 ;;9002226.02101,"623,46703-0055-05 ",.01)
 ;;46703-0055-05
 ;;9002226.02101,"623,46703-0055-05 ",.02)
 ;;46703-0055-05
 ;;9002226.02101,"623,46703-0056-05 ",.01)
 ;;46703-0056-05
 ;;9002226.02101,"623,46703-0056-05 ",.02)
 ;;46703-0056-05
 ;;9002226.02101,"623,49884-0811-01 ",.01)
 ;;49884-0811-01
 ;;9002226.02101,"623,49884-0811-01 ",.02)
 ;;49884-0811-01
 ;;9002226.02101,"623,49884-0811-05 ",.01)
 ;;49884-0811-05
 ;;9002226.02101,"623,49884-0811-05 ",.02)
 ;;49884-0811-05
 ;;9002226.02101,"623,49999-0036-12 ",.01)
 ;;49999-0036-12
 ;;9002226.02101,"623,49999-0036-12 ",.02)
 ;;49999-0036-12
 ;;9002226.02101,"623,49999-0036-60 ",.01)
 ;;49999-0036-60
 ;;9002226.02101,"623,49999-0036-60 ",.02)
 ;;49999-0036-60
 ;;9002226.02101,"623,49999-0115-20 ",.01)
 ;;49999-0115-20
 ;;9002226.02101,"623,49999-0115-20 ",.02)
 ;;49999-0115-20
 ;;9002226.02101,"623,49999-0151-20 ",.01)
 ;;49999-0151-20
 ;;9002226.02101,"623,49999-0151-20 ",.02)
 ;;49999-0151-20
 ;;9002226.02101,"623,49999-0151-60 ",.01)
 ;;49999-0151-60
 ;;9002226.02101,"623,49999-0151-60 ",.02)
 ;;49999-0151-60
 ;;9002226.02101,"623,49999-0247-04 ",.01)
 ;;49999-0247-04
 ;;9002226.02101,"623,49999-0247-04 ",.02)
 ;;49999-0247-04
 ;;9002226.02101,"623,49999-0525-10 ",.01)
 ;;49999-0525-10
 ;;9002226.02101,"623,49999-0525-10 ",.02)
 ;;49999-0525-10
 ;;9002226.02101,"623,50752-0277-05 ",.01)
 ;;50752-0277-05
 ;;9002226.02101,"623,50752-0277-05 ",.02)
 ;;50752-0277-05
 ;;9002226.02101,"623,50752-0277-09 ",.01)
 ;;50752-0277-09
 ;;9002226.02101,"623,50752-0277-09 ",.02)
 ;;50752-0277-09
 ;;9002226.02101,"623,50752-0278-05 ",.01)
 ;;50752-0278-05
 ;;9002226.02101,"623,50752-0278-05 ",.02)
 ;;50752-0278-05
 ;;9002226.02101,"623,51079-0077-01 ",.01)
 ;;51079-0077-01
 ;;9002226.02101,"623,51079-0077-01 ",.02)
 ;;51079-0077-01
 ;;9002226.02101,"623,51079-0078-01 ",.01)
 ;;51079-0078-01
 ;;9002226.02101,"623,51079-0078-01 ",.02)
 ;;51079-0078-01
 ;;9002226.02101,"623,51285-0265-02 ",.01)
 ;;51285-0265-02
 ;;9002226.02101,"623,51285-0265-02 ",.02)
 ;;51285-0265-02
 ;;9002226.02101,"623,51285-0265-04 ",.01)
 ;;51285-0265-04
 ;;9002226.02101,"623,51285-0265-04 ",.02)
 ;;51285-0265-04
 ;;9002226.02101,"623,51285-0266-02 ",.01)
 ;;51285-0266-02
 ;;9002226.02101,"623,51285-0266-02 ",.02)
 ;;51285-0266-02
 ;;9002226.02101,"623,51285-0266-04 ",.01)
 ;;51285-0266-04
 ;;9002226.02101,"623,51285-0266-04 ",.02)
 ;;51285-0266-04
 ;;9002226.02101,"623,51285-0267-02 ",.01)
 ;;51285-0267-02
 ;;9002226.02101,"623,51285-0267-02 ",.02)
 ;;51285-0267-02
 ;;9002226.02101,"623,51285-0267-04 ",.01)
 ;;51285-0267-04
 ;;9002226.02101,"623,51285-0267-04 ",.02)
 ;;51285-0267-04
 ;;9002226.02101,"623,51285-0684-02 ",.01)
 ;;51285-0684-02
 ;;9002226.02101,"623,51285-0684-02 ",.02)
 ;;51285-0684-02
 ;;9002226.02101,"623,51285-0908-02 ",.01)
 ;;51285-0908-02
 ;;9002226.02101,"623,51285-0908-02 ",.02)
 ;;51285-0908-02
 ;;9002226.02101,"623,51432-0495-03 ",.01)
 ;;51432-0495-03
 ;;9002226.02101,"623,51432-0495-03 ",.02)
 ;;51432-0495-03
 ;;9002226.02101,"623,51432-0495-05 ",.01)
 ;;51432-0495-05
 ;;9002226.02101,"623,51432-0495-05 ",.02)
 ;;51432-0495-05
 ;;9002226.02101,"623,51432-0496-03 ",.01)
 ;;51432-0496-03
 ;;9002226.02101,"623,51432-0496-03 ",.02)
 ;;51432-0496-03
 ;;9002226.02101,"623,51432-0496-05 ",.01)
 ;;51432-0496-05
 ;;9002226.02101,"623,51432-0496-05 ",.02)
 ;;51432-0496-05
 ;;9002226.02101,"623,51432-0497-03 ",.01)
 ;;51432-0497-03
 ;;9002226.02101,"623,51432-0497-03 ",.02)
 ;;51432-0497-03
 ;;9002226.02101,"623,51432-0570-18 ",.01)
 ;;51432-0570-18
 ;;9002226.02101,"623,51432-0570-18 ",.02)
 ;;51432-0570-18
 ;;9002226.02101,"623,51432-0570-19 ",.01)
 ;;51432-0570-19
 ;;9002226.02101,"623,51432-0570-19 ",.02)
 ;;51432-0570-19
 ;;9002226.02101,"623,51432-0570-20 ",.01)
 ;;51432-0570-20
 ;;9002226.02101,"623,51432-0570-20 ",.02)
 ;;51432-0570-20
 ;;9002226.02101,"623,51432-0570-21 ",.01)
 ;;51432-0570-21
 ;;9002226.02101,"623,51432-0570-21 ",.02)
 ;;51432-0570-21
 ;;9002226.02101,"623,51655-0588-24 ",.01)
 ;;51655-0588-24
 ;;9002226.02101,"623,51655-0588-24 ",.02)
 ;;51655-0588-24