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

BGP7LXPE.m

Go to the documentation of this file.
BGP7LXPE ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 29, 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,"633,00904-1084-80 ",.02)
 ;;00904-1084-80
 ;;9002226.02101,"633,00904-1085-60 ",.01)
 ;;00904-1085-60
 ;;9002226.02101,"633,00904-1085-60 ",.02)
 ;;00904-1085-60
 ;;9002226.02101,"633,00904-1085-80 ",.01)
 ;;00904-1085-80
 ;;9002226.02101,"633,00904-1085-80 ",.02)
 ;;00904-1085-80
 ;;9002226.02101,"633,00904-1086-60 ",.01)
 ;;00904-1086-60
 ;;9002226.02101,"633,00904-1086-60 ",.02)
 ;;00904-1086-60
 ;;9002226.02101,"633,00904-1086-61 ",.01)
 ;;00904-1086-61
 ;;9002226.02101,"633,00904-1086-61 ",.02)
 ;;00904-1086-61
 ;;9002226.02101,"633,00904-1086-80 ",.01)
 ;;00904-1086-80
 ;;9002226.02101,"633,00904-1086-80 ",.02)
 ;;00904-1086-80
 ;;9002226.02101,"633,00904-1087-60 ",.01)
 ;;00904-1087-60
 ;;9002226.02101,"633,00904-1087-60 ",.02)
 ;;00904-1087-60
 ;;9002226.02101,"633,00904-1087-61 ",.01)
 ;;00904-1087-61
 ;;9002226.02101,"633,00904-1087-61 ",.02)
 ;;00904-1087-61
 ;;9002226.02101,"633,00904-1087-80 ",.01)
 ;;00904-1087-80
 ;;9002226.02101,"633,00904-1087-80 ",.02)
 ;;00904-1087-80
 ;;9002226.02101,"633,00904-1088-60 ",.01)
 ;;00904-1088-60
 ;;9002226.02101,"633,00904-1088-60 ",.02)
 ;;00904-1088-60
 ;;9002226.02101,"633,00904-1088-61 ",.01)
 ;;00904-1088-61
 ;;9002226.02101,"633,00904-1088-61 ",.02)
 ;;00904-1088-61
 ;;9002226.02101,"633,00904-1088-80 ",.01)
 ;;00904-1088-80
 ;;9002226.02101,"633,00904-1088-80 ",.02)
 ;;00904-1088-80
 ;;9002226.02101,"633,10267-2929-03 ",.01)
 ;;10267-2929-03
 ;;9002226.02101,"633,10267-2929-03 ",.02)
 ;;10267-2929-03
 ;;9002226.02101,"633,10267-2929-05 ",.01)
 ;;10267-2929-05
 ;;9002226.02101,"633,10267-2929-05 ",.02)
 ;;10267-2929-05
 ;;9002226.02101,"633,11845-0250-01 ",.01)
 ;;11845-0250-01
 ;;9002226.02101,"633,11845-0250-01 ",.02)
 ;;11845-0250-01
 ;;9002226.02101,"633,11845-0317-01 ",.01)
 ;;11845-0317-01
 ;;9002226.02101,"633,11845-0317-01 ",.02)
 ;;11845-0317-01
 ;;9002226.02101,"633,11845-0317-04 ",.01)
 ;;11845-0317-04
 ;;9002226.02101,"633,11845-0317-04 ",.02)
 ;;11845-0317-04
 ;;9002226.02101,"633,11845-0318-01 ",.01)
 ;;11845-0318-01
 ;;9002226.02101,"633,11845-0318-01 ",.02)
 ;;11845-0318-01
 ;;9002226.02101,"633,11845-0318-04 ",.01)
 ;;11845-0318-04
 ;;9002226.02101,"633,11845-0318-04 ",.02)
 ;;11845-0318-04
 ;;9002226.02101,"633,11845-0319-01 ",.01)
 ;;11845-0319-01
 ;;9002226.02101,"633,11845-0319-01 ",.02)
 ;;11845-0319-01
 ;;9002226.02101,"633,11845-0319-04 ",.01)
 ;;11845-0319-04
 ;;9002226.02101,"633,11845-0319-04 ",.02)
 ;;11845-0319-04
 ;;9002226.02101,"633,17022-3157-02 ",.01)
 ;;17022-3157-02
 ;;9002226.02101,"633,17022-3157-02 ",.02)
 ;;17022-3157-02
 ;;9002226.02101,"633,17022-3157-06 ",.01)
 ;;17022-3157-06
 ;;9002226.02101,"633,17022-3157-06 ",.02)
 ;;17022-3157-06
 ;;9002226.02101,"633,17022-3158-02 ",.01)
 ;;17022-3158-02
 ;;9002226.02101,"633,17022-3158-02 ",.02)
 ;;17022-3158-02
 ;;9002226.02101,"633,17022-3158-04 ",.01)
 ;;17022-3158-04
 ;;9002226.02101,"633,17022-3158-04 ",.02)
 ;;17022-3158-04
 ;;9002226.02101,"633,17022-3860-02 ",.01)
 ;;17022-3860-02
 ;;9002226.02101,"633,17022-3860-02 ",.02)
 ;;17022-3860-02
 ;;9002226.02101,"633,17022-3860-04 ",.01)
 ;;17022-3860-04
 ;;9002226.02101,"633,17022-3860-04 ",.02)
 ;;17022-3860-04
 ;;9002226.02101,"633,17022-4041-02 ",.01)
 ;;17022-4041-02
 ;;9002226.02101,"633,17022-4041-02 ",.02)
 ;;17022-4041-02
 ;;9002226.02101,"633,17022-4041-06 ",.01)
 ;;17022-4041-06
 ;;9002226.02101,"633,17022-4041-06 ",.02)
 ;;17022-4041-06
 ;;9002226.02101,"633,17022-5105-02 ",.01)
 ;;17022-5105-02
 ;;9002226.02101,"633,17022-5105-02 ",.02)
 ;;17022-5105-02
 ;;9002226.02101,"633,17022-5105-06 ",.01)
 ;;17022-5105-06
 ;;9002226.02101,"633,17022-5105-06 ",.02)
 ;;17022-5105-06
 ;;9002226.02101,"633,17022-5106-02 ",.01)
 ;;17022-5106-02
 ;;9002226.02101,"633,17022-5106-02 ",.02)
 ;;17022-5106-02
 ;;9002226.02101,"633,17022-5106-04 ",.01)
 ;;17022-5106-04
 ;;9002226.02101,"633,17022-5106-04 ",.02)
 ;;17022-5106-04
 ;;9002226.02101,"633,17022-8844-02 ",.01)
 ;;17022-8844-02
 ;;9002226.02101,"633,17022-8844-02 ",.02)
 ;;17022-8844-02
 ;;9002226.02101,"633,17022-8844-04 ",.01)
 ;;17022-8844-04
 ;;9002226.02101,"633,17022-8844-04 ",.02)
 ;;17022-8844-04
 ;;9002226.02101,"633,17236-0137-01 ",.01)
 ;;17236-0137-01
 ;;9002226.02101,"633,17236-0137-01 ",.02)
 ;;17236-0137-01
 ;;9002226.02101,"633,17236-0137-10 ",.01)
 ;;17236-0137-10
 ;;9002226.02101,"633,17236-0137-10 ",.02)
 ;;17236-0137-10
 ;;9002226.02101,"633,17236-0139-01 ",.01)
 ;;17236-0139-01
 ;;9002226.02101,"633,17236-0139-01 ",.02)
 ;;17236-0139-01
 ;;9002226.02101,"633,17236-0139-10 ",.01)
 ;;17236-0139-10
 ;;9002226.02101,"633,17236-0139-10 ",.02)
 ;;17236-0139-10
 ;;9002226.02101,"633,17236-0167-01 ",.01)
 ;;17236-0167-01
 ;;9002226.02101,"633,17236-0167-01 ",.02)
 ;;17236-0167-01
 ;;9002226.02101,"633,17236-0167-05 ",.01)
 ;;17236-0167-05
 ;;9002226.02101,"633,17236-0167-05 ",.02)
 ;;17236-0167-05
 ;;9002226.02101,"633,17236-0173-01 ",.01)
 ;;17236-0173-01
 ;;9002226.02101,"633,17236-0173-01 ",.02)
 ;;17236-0173-01
 ;;9002226.02101,"633,17236-0173-10 ",.01)
 ;;17236-0173-10
 ;;9002226.02101,"633,17236-0173-10 ",.02)
 ;;17236-0173-10
 ;;9002226.02101,"633,17236-0189-01 ",.01)
 ;;17236-0189-01
 ;;9002226.02101,"633,17236-0189-01 ",.02)
 ;;17236-0189-01
 ;;9002226.02101,"633,17236-0189-10 ",.01)
 ;;17236-0189-10
 ;;9002226.02101,"633,17236-0189-10 ",.02)
 ;;17236-0189-10
 ;;9002226.02101,"633,17236-0191-01 ",.01)
 ;;17236-0191-01
 ;;9002226.02101,"633,17236-0191-01 ",.02)
 ;;17236-0191-01
 ;;9002226.02101,"633,17236-0191-10 ",.01)
 ;;17236-0191-10
 ;;9002226.02101,"633,17236-0191-10 ",.02)
 ;;17236-0191-10
 ;;9002226.02101,"633,17236-0277-01 ",.01)
 ;;17236-0277-01
 ;;9002226.02101,"633,17236-0277-01 ",.02)
 ;;17236-0277-01
 ;;9002226.02101,"633,17236-0277-10 ",.01)
 ;;17236-0277-10
 ;;9002226.02101,"633,17236-0277-10 ",.02)
 ;;17236-0277-10
 ;;9002226.02101,"633,17236-0315-01 ",.01)
 ;;17236-0315-01
 ;;9002226.02101,"633,17236-0315-01 ",.02)
 ;;17236-0315-01
 ;;9002226.02101,"633,17236-0315-10 ",.01)
 ;;17236-0315-10
 ;;9002226.02101,"633,17236-0315-10 ",.02)
 ;;17236-0315-10
 ;;9002226.02101,"633,17236-0326-01 ",.01)
 ;;17236-0326-01
 ;;9002226.02101,"633,17236-0326-01 ",.02)
 ;;17236-0326-01
 ;;9002226.02101,"633,17236-0326-10 ",.01)
 ;;17236-0326-10
 ;;9002226.02101,"633,17236-0326-10 ",.02)
 ;;17236-0326-10
 ;;9002226.02101,"633,17236-0939-01 ",.01)
 ;;17236-0939-01
 ;;9002226.02101,"633,17236-0939-01 ",.02)
 ;;17236-0939-01
 ;;9002226.02101,"633,17236-0939-10 ",.01)
 ;;17236-0939-10
 ;;9002226.02101,"633,17236-0939-10 ",.02)
 ;;17236-0939-10
 ;;9002226.02101,"633,17236-0941-01 ",.01)
 ;;17236-0941-01
 ;;9002226.02101,"633,17236-0941-01 ",.02)
 ;;17236-0941-01
 ;;9002226.02101,"633,17236-0941-10 ",.01)
 ;;17236-0941-10
 ;;9002226.02101,"633,17236-0941-10 ",.02)
 ;;17236-0941-10
 ;;9002226.02101,"633,17236-0942-01 ",.01)
 ;;17236-0942-01
 ;;9002226.02101,"633,17236-0942-01 ",.02)
 ;;17236-0942-01
 ;;9002226.02101,"633,46703-0047-05 ",.01)
 ;;46703-0047-05
 ;;9002226.02101,"633,46703-0047-05 ",.02)
 ;;46703-0047-05
 ;;9002226.02101,"633,49727-0220-02 ",.01)
 ;;49727-0220-02
 ;;9002226.02101,"633,49727-0220-02 ",.02)
 ;;49727-0220-02
 ;;9002226.02101,"633,49727-0220-05 ",.01)
 ;;49727-0220-05
 ;;9002226.02101,"633,49727-0220-05 ",.02)
 ;;49727-0220-05
 ;;9002226.02101,"633,51079-0068-20 ",.01)
 ;;51079-0068-20
 ;;9002226.02101,"633,51079-0068-20 ",.02)
 ;;51079-0068-20
 ;;9002226.02101,"633,51079-0069-20 ",.01)
 ;;51079-0069-20
 ;;9002226.02101,"633,51079-0069-20 ",.02)
 ;;51079-0069-20
 ;;9002226.02101,"633,51079-0070-20 ",.01)
 ;;51079-0070-20
 ;;9002226.02101,"633,51079-0070-20 ",.02)
 ;;51079-0070-20
 ;;9002226.02101,"633,51432-0116-03 ",.01)
 ;;51432-0116-03
 ;;9002226.02101,"633,51432-0116-03 ",.02)
 ;;51432-0116-03
 ;;9002226.02101,"633,51432-0116-06 ",.01)
 ;;51432-0116-06
 ;;9002226.02101,"633,51432-0116-06 ",.02)
 ;;51432-0116-06
 ;;9002226.02101,"633,51432-0118-03 ",.01)
 ;;51432-0118-03
 ;;9002226.02101,"633,51432-0118-03 ",.02)
 ;;51432-0118-03
 ;;9002226.02101,"633,51432-0118-06 ",.01)
 ;;51432-0118-06
 ;;9002226.02101,"633,51432-0118-06 ",.02)
 ;;51432-0118-06
 ;;9002226.02101,"633,51432-0158-03 ",.01)
 ;;51432-0158-03
 ;;9002226.02101,"633,51432-0158-03 ",.02)
 ;;51432-0158-03
 ;;9002226.02101,"633,51432-0158-06 ",.01)
 ;;51432-0158-06
 ;;9002226.02101,"633,51432-0158-06 ",.02)
 ;;51432-0158-06
 ;;9002226.02101,"633,51432-0160-03 ",.01)
 ;;51432-0160-03
 ;;9002226.02101,"633,51432-0160-03 ",.02)
 ;;51432-0160-03
 ;;9002226.02101,"633,51432-0160-06 ",.01)
 ;;51432-0160-06
 ;;9002226.02101,"633,51432-0160-06 ",.02)
 ;;51432-0160-06
 ;;9002226.02101,"633,51432-0162-03 ",.01)
 ;;51432-0162-03
 ;;9002226.02101,"633,51432-0162-03 ",.02)
 ;;51432-0162-03
 ;;9002226.02101,"633,51432-0162-06 ",.01)
 ;;51432-0162-06
 ;;9002226.02101,"633,51432-0162-06 ",.02)
 ;;51432-0162-06
 ;;9002226.02101,"633,51432-0169-03 ",.01)
 ;;51432-0169-03
 ;;9002226.02101,"633,51432-0169-03 ",.02)
 ;;51432-0169-03
 ;;9002226.02101,"633,51432-0169-05 ",.01)
 ;;51432-0169-05
 ;;9002226.02101,"633,51432-0169-05 ",.02)
 ;;51432-0169-05
 ;;9002226.02101,"633,51432-0216-03 ",.01)
 ;;51432-0216-03
 ;;9002226.02101,"633,51432-0216-03 ",.02)
 ;;51432-0216-03
 ;;9002226.02101,"633,51432-0218-03 ",.01)
 ;;51432-0218-03
 ;;9002226.02101,"633,51432-0218-03 ",.02)
 ;;51432-0218-03
 ;;9002226.02101,"633,51432-0222-03 ",.01)
 ;;51432-0222-03
 ;;9002226.02101,"633,51432-0222-03 ",.02)
 ;;51432-0222-03
 ;;9002226.02101,"633,51432-0222-05 ",.01)
 ;;51432-0222-05
 ;;9002226.02101,"633,51432-0222-05 ",.02)
 ;;51432-0222-05
 ;;9002226.02101,"633,51432-0222-06 ",.01)
 ;;51432-0222-06
 ;;9002226.02101,"633,51432-0222-06 ",.02)
 ;;51432-0222-06
 ;;9002226.02101,"633,51432-0254-03 ",.01)
 ;;51432-0254-03
 ;;9002226.02101,"633,51432-0254-03 ",.02)
 ;;51432-0254-03
 ;;9002226.02101,"633,51432-0254-06 ",.01)
 ;;51432-0254-06
 ;;9002226.02101,"633,51432-0254-06 ",.02)
 ;;51432-0254-06
 ;;9002226.02101,"633,51432-0256-03 ",.01)
 ;;51432-0256-03
 ;;9002226.02101,"633,51432-0256-03 ",.02)
 ;;51432-0256-03
 ;;9002226.02101,"633,51432-0256-06 ",.01)
 ;;51432-0256-06
 ;;9002226.02101,"633,51432-0256-06 ",.02)
 ;;51432-0256-06
 ;;9002226.02101,"633,51432-0295-03 ",.01)
 ;;51432-0295-03
 ;;9002226.02101,"633,51432-0295-03 ",.02)
 ;;51432-0295-03
 ;;9002226.02101,"633,51432-0299-03 ",.01)
 ;;51432-0299-03
 ;;9002226.02101,"633,51432-0299-03 ",.02)
 ;;51432-0299-03
 ;;9002226.02101,"633,51432-0393-03 ",.01)
 ;;51432-0393-03
 ;;9002226.02101,"633,51432-0393-03 ",.02)
 ;;51432-0393-03
 ;;9002226.02101,"633,52152-0009-02 ",.01)
 ;;52152-0009-02
 ;;9002226.02101,"633,52152-0009-02 ",.02)
 ;;52152-0009-02
 ;;9002226.02101,"633,52152-0009-05 ",.01)
 ;;52152-0009-05
 ;;9002226.02101,"633,52152-0009-05 ",.02)
 ;;52152-0009-05
 ;;9002226.02101,"633,52152-0010-02 ",.01)
 ;;52152-0010-02
 ;;9002226.02101,"633,52152-0010-02 ",.02)
 ;;52152-0010-02
 ;;9002226.02101,"633,52152-0010-05 ",.01)
 ;;52152-0010-05
 ;;9002226.02101,"633,52152-0010-05 ",.02)
 ;;52152-0010-05
 ;;9002226.02101,"633,52152-0083-04 ",.01)
 ;;52152-0083-04
 ;;9002226.02101,"633,52152-0083-04 ",.02)
 ;;52152-0083-04
 ;;9002226.02101,"633,52446-0246-21 ",.01)
 ;;52446-0246-21
 ;;9002226.02101,"633,52446-0246-21 ",.02)
 ;;52446-0246-21
 ;;9002226.02101,"633,52555-0115-01 ",.01)
 ;;52555-0115-01
 ;;9002226.02101,"633,52555-0115-01 ",.02)
 ;;52555-0115-01
 ;;9002226.02101,"633,52555-0115-10 ",.01)
 ;;52555-0115-10
 ;;9002226.02101,"633,52555-0115-10 ",.02)
 ;;52555-0115-10
 ;;9002226.02101,"633,52555-0116-01 ",.01)
 ;;52555-0116-01
 ;;9002226.02101,"633,52555-0116-01 ",.02)
 ;;52555-0116-01
 ;;9002226.02101,"633,52555-0116-10 ",.01)
 ;;52555-0116-10
 ;;9002226.02101,"633,52555-0116-10 ",.02)
 ;;52555-0116-10
 ;;9002226.02101,"633,52555-0117-01 ",.01)
 ;;52555-0117-01
 ;;9002226.02101,"633,52555-0117-01 ",.02)
 ;;52555-0117-01
 ;;9002226.02101,"633,52555-0117-10 ",.01)
 ;;52555-0117-10
 ;;9002226.02101,"633,52555-0117-10 ",.02)
 ;;52555-0117-10
 ;;9002226.02101,"633,52555-0501-01 ",.01)
 ;;52555-0501-01
 ;;9002226.02101,"633,52555-0501-01 ",.02)
 ;;52555-0501-01
 ;;9002226.02101,"633,52555-0502-01 ",.01)
 ;;52555-0502-01
 ;;9002226.02101,"633,52555-0502-01 ",.02)
 ;;52555-0502-01
 ;;9002226.02101,"633,52555-0504-01 ",.01)
 ;;52555-0504-01
 ;;9002226.02101,"633,52555-0504-01 ",.02)
 ;;52555-0504-01
 ;;9002226.02101,"633,52555-0504-05 ",.01)
 ;;52555-0504-05
 ;;9002226.02101,"633,52555-0504-05 ",.02)
 ;;52555-0504-05
 ;;9002226.02101,"633,53445-1518-01 ",.01)
 ;;53445-1518-01
 ;;9002226.02101,"633,53445-1518-01 ",.02)
 ;;53445-1518-01
 ;;9002226.02101,"633,53489-0281-01 ",.01)
 ;;53489-0281-01
 ;;9002226.02101,"633,53489-0281-01 ",.02)
 ;;53489-0281-01
 ;;9002226.02101,"633,53489-0281-05 ",.01)
 ;;53489-0281-05
 ;;9002226.02101,"633,53489-0281-05 ",.02)
 ;;53489-0281-05
 ;;9002226.02101,"633,53489-0281-10 ",.01)
 ;;53489-0281-10
 ;;9002226.02101,"633,53489-0281-10 ",.02)
 ;;53489-0281-10
 ;;9002226.02101,"633,53633-0001-01 ",.01)
 ;;53633-0001-01
 ;;9002226.02101,"633,53633-0001-01 ",.02)
 ;;53633-0001-01
 ;;9002226.02101,"633,53633-0001-10 ",.01)
 ;;53633-0001-10
 ;;9002226.02101,"633,53633-0001-10 ",.02)
 ;;53633-0001-10
 ;;9002226.02101,"633,53633-0001-11 ",.01)
 ;;53633-0001-11
 ;;9002226.02101,"633,53633-0001-11 ",.02)
 ;;53633-0001-11
 ;;9002226.02101,"633,53633-0002-01 ",.01)
 ;;53633-0002-01