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

BGP8FXFD.m

Go to the documentation of this file.
BGP8FXFD ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 28, 2007 ;
 ;;8.0;IHS CLINICAL REPORTING;;MAR 12, 2008
 ;;;BGP6;;SEP 28, 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,"628,00781-1701-01 ",.01)
 ;;00781-1701-01
 ;;9002226.02101,"628,00781-1701-01 ",.02)
 ;;00781-1701-01
 ;;9002226.02101,"628,00781-6397-16 ",.01)
 ;;00781-6397-16
 ;;9002226.02101,"628,00781-6397-16 ",.02)
 ;;00781-6397-16
 ;;9002226.02101,"628,00839-5018-69 ",.01)
 ;;00839-5018-69
 ;;9002226.02101,"628,00839-5018-69 ",.02)
 ;;00839-5018-69
 ;;9002226.02101,"628,00839-5055-06 ",.01)
 ;;00839-5055-06
 ;;9002226.02101,"628,00839-5055-06 ",.02)
 ;;00839-5055-06
 ;;9002226.02101,"628,00839-5055-16 ",.01)
 ;;00839-5055-16
 ;;9002226.02101,"628,00839-5055-16 ",.02)
 ;;00839-5055-16
 ;;9002226.02101,"628,00839-5055-20 ",.01)
 ;;00839-5055-20
 ;;9002226.02101,"628,00839-5055-20 ",.02)
 ;;00839-5055-20
 ;;9002226.02101,"628,00839-6120-06 ",.01)
 ;;00839-6120-06
 ;;9002226.02101,"628,00839-6120-06 ",.02)
 ;;00839-6120-06
 ;;9002226.02101,"628,00839-6120-16 ",.01)
 ;;00839-6120-16
 ;;9002226.02101,"628,00839-6120-16 ",.02)
 ;;00839-6120-16
 ;;9002226.02101,"628,00839-7370-06 ",.01)
 ;;00839-7370-06
 ;;9002226.02101,"628,00839-7370-06 ",.02)
 ;;00839-7370-06
 ;;9002226.02101,"628,00839-7440-06 ",.01)
 ;;00839-7440-06
 ;;9002226.02101,"628,00839-7440-06 ",.02)
 ;;00839-7440-06
 ;;9002226.02101,"628,00839-7521-06 ",.01)
 ;;00839-7521-06
 ;;9002226.02101,"628,00839-7521-06 ",.02)
 ;;00839-7521-06
 ;;9002226.02101,"628,00839-7796-06 ",.01)
 ;;00839-7796-06
 ;;9002226.02101,"628,00839-7796-06 ",.02)
 ;;00839-7796-06
 ;;9002226.02101,"628,00839-7806-06 ",.01)
 ;;00839-7806-06
 ;;9002226.02101,"628,00839-7806-06 ",.02)
 ;;00839-7806-06
 ;;9002226.02101,"628,00839-7850-70 ",.01)
 ;;00839-7850-70
 ;;9002226.02101,"628,00839-7850-70 ",.02)
 ;;00839-7850-70
 ;;9002226.02101,"628,00839-7910-06 ",.01)
 ;;00839-7910-06
 ;;9002226.02101,"628,00839-7910-06 ",.02)
 ;;00839-7910-06
 ;;9002226.02101,"628,00839-7974-06 ",.01)
 ;;00839-7974-06
 ;;9002226.02101,"628,00839-7974-06 ",.02)
 ;;00839-7974-06
 ;;9002226.02101,"628,00839-8071-06 ",.01)
 ;;00839-8071-06
 ;;9002226.02101,"628,00839-8071-06 ",.02)
 ;;00839-8071-06
 ;;9002226.02101,"628,00904-0032-60 ",.01)
 ;;00904-0032-60
 ;;9002226.02101,"628,00904-0032-60 ",.02)
 ;;00904-0032-60
 ;;9002226.02101,"628,00904-0032-80 ",.01)
 ;;00904-0032-80
 ;;9002226.02101,"628,00904-0032-80 ",.02)
 ;;00904-0032-80
 ;;9002226.02101,"628,00904-0981-00 ",.01)
 ;;00904-0981-00
 ;;9002226.02101,"628,00904-0981-00 ",.02)
 ;;00904-0981-00
 ;;9002226.02101,"628,00904-0981-16 ",.01)
 ;;00904-0981-16
 ;;9002226.02101,"628,00904-0981-16 ",.02)
 ;;00904-0981-16
 ;;9002226.02101,"628,00904-0981-20 ",.01)
 ;;00904-0981-20
 ;;9002226.02101,"628,00904-0981-20 ",.02)
 ;;00904-0981-20
 ;;9002226.02101,"628,00904-0981-28 ",.01)
 ;;00904-0981-28
 ;;9002226.02101,"628,00904-0981-28 ",.02)
 ;;00904-0981-28
 ;;9002226.02101,"628,00904-2496-60 ",.01)
 ;;00904-2496-60
 ;;9002226.02101,"628,00904-2496-60 ",.02)
 ;;00904-2496-60
 ;;9002226.02101,"628,00904-2548-60 ",.01)
 ;;00904-2548-60
 ;;9002226.02101,"628,00904-2548-60 ",.02)
 ;;00904-2548-60
 ;;9002226.02101,"628,00904-3286-60 ",.01)
 ;;00904-3286-60
 ;;9002226.02101,"628,00904-3286-60 ",.02)
 ;;00904-3286-60
 ;;9002226.02101,"628,00904-3286-80 ",.01)
 ;;00904-3286-80
 ;;9002226.02101,"628,00904-3286-80 ",.02)
 ;;00904-3286-80
 ;;9002226.02101,"628,00904-3741-60 ",.01)
 ;;00904-3741-60
 ;;9002226.02101,"628,00904-3741-60 ",.02)
 ;;00904-3741-60
 ;;9002226.02101,"628,00904-3741-61 ",.01)
 ;;00904-3741-61
 ;;9002226.02101,"628,00904-3741-61 ",.02)
 ;;00904-3741-61
 ;;9002226.02101,"628,00904-3741-80 ",.01)
 ;;00904-3741-80
 ;;9002226.02101,"628,00904-3741-80 ",.02)
 ;;00904-3741-80
 ;;9002226.02101,"628,00904-5120-60 ",.01)
 ;;00904-5120-60
 ;;9002226.02101,"628,00904-5120-60 ",.02)
 ;;00904-5120-60
 ;;9002226.02101,"628,00904-5387-60 ",.01)
 ;;00904-5387-60
 ;;9002226.02101,"628,00904-5387-60 ",.02)
 ;;00904-5387-60
 ;;9002226.02101,"628,00904-7833-60 ",.01)
 ;;00904-7833-60
 ;;9002226.02101,"628,00904-7833-60 ",.02)
 ;;00904-7833-60
 ;;9002226.02101,"628,10019-0180-05 ",.01)
 ;;10019-0180-05
 ;;9002226.02101,"628,10019-0180-05 ",.02)
 ;;10019-0180-05
 ;;9002226.02101,"628,10019-0195-15 ",.01)
 ;;10019-0195-15
 ;;9002226.02101,"628,10019-0195-15 ",.02)
 ;;10019-0195-15
 ;;9002226.02101,"628,10019-0250-12 ",.01)
 ;;10019-0250-12
 ;;9002226.02101,"628,10019-0250-12 ",.02)
 ;;10019-0250-12
 ;;9002226.02101,"628,10019-0250-20 ",.01)
 ;;10019-0250-20
 ;;9002226.02101,"628,10019-0250-20 ",.02)
 ;;10019-0250-20
 ;;9002226.02101,"628,10019-0251-12 ",.01)
 ;;10019-0251-12
 ;;9002226.02101,"628,10019-0251-12 ",.02)
 ;;10019-0251-12
 ;;9002226.02101,"628,10019-0553-01 ",.01)
 ;;10019-0553-01
 ;;9002226.02101,"628,10019-0553-01 ",.02)
 ;;10019-0553-01
 ;;9002226.02101,"628,10019-0553-02 ",.01)
 ;;10019-0553-02
 ;;9002226.02101,"628,10019-0553-02 ",.02)
 ;;10019-0553-02
 ;;9002226.02101,"628,10267-1621-01 ",.01)
 ;;10267-1621-01
 ;;9002226.02101,"628,10267-1621-01 ",.02)
 ;;10267-1621-01
 ;;9002226.02101,"628,11528-0200-98 ",.01)
 ;;11528-0200-98
 ;;9002226.02101,"628,11528-0200-98 ",.02)
 ;;11528-0200-98
 ;;9002226.02101,"628,11808-0111-01 ",.01)
 ;;11808-0111-01
 ;;9002226.02101,"628,11808-0111-01 ",.02)
 ;;11808-0111-01
 ;;9002226.02101,"628,11808-0112-01 ",.01)
 ;;11808-0112-01
 ;;9002226.02101,"628,11808-0112-01 ",.02)
 ;;11808-0112-01
 ;;9002226.02101,"628,12280-0212-00 ",.01)
 ;;12280-0212-00
 ;;9002226.02101,"628,12280-0212-00 ",.02)
 ;;12280-0212-00
 ;;9002226.02101,"628,12830-0301-01 ",.01)
 ;;12830-0301-01
 ;;9002226.02101,"628,12830-0301-01 ",.02)
 ;;12830-0301-01
 ;;9002226.02101,"628,12939-0773-60 ",.01)
 ;;12939-0773-60
 ;;9002226.02101,"628,12939-0773-60 ",.02)
 ;;12939-0773-60
 ;;9002226.02101,"628,12939-0775-16 ",.01)
 ;;12939-0775-16
 ;;9002226.02101,"628,12939-0775-16 ",.02)
 ;;12939-0775-16
 ;;9002226.02101,"628,15456-0805-03 ",.01)
 ;;15456-0805-03
 ;;9002226.02101,"628,15456-0805-03 ",.02)
 ;;15456-0805-03
 ;;9002226.02101,"628,15456-0909-90 ",.01)
 ;;15456-0909-90
 ;;9002226.02101,"628,15456-0909-90 ",.02)
 ;;15456-0909-90
 ;;9002226.02101,"628,17317-0042-01 ",.01)
 ;;17317-0042-01
 ;;9002226.02101,"628,17317-0042-01 ",.02)
 ;;17317-0042-01
 ;;9002226.02101,"628,17317-0042-04 ",.01)
 ;;17317-0042-04
 ;;9002226.02101,"628,17317-0042-04 ",.02)
 ;;17317-0042-04
 ;;9002226.02101,"628,17317-0044-01 ",.01)
 ;;17317-0044-01
 ;;9002226.02101,"628,17317-0044-01 ",.02)
 ;;17317-0044-01
 ;;9002226.02101,"628,17317-0044-04 ",.01)
 ;;17317-0044-04
 ;;9002226.02101,"628,17317-0044-04 ",.02)
 ;;17317-0044-04
 ;;9002226.02101,"628,38130-0046-01 ",.01)
 ;;38130-0046-01
 ;;9002226.02101,"628,38130-0046-01 ",.02)
 ;;38130-0046-01
 ;;9002226.02101,"628,38130-0046-10 ",.01)
 ;;38130-0046-10
 ;;9002226.02101,"628,38130-0046-10 ",.02)
 ;;38130-0046-10
 ;;9002226.02101,"628,38130-0048-10 ",.01)
 ;;38130-0048-10
 ;;9002226.02101,"628,38130-0048-10 ",.02)
 ;;38130-0048-10
 ;;9002226.02101,"628,45985-0646-01 ",.01)
 ;;45985-0646-01
 ;;9002226.02101,"628,45985-0646-01 ",.02)
 ;;45985-0646-01
 ;;9002226.02101,"628,49452-0136-02 ",.01)
 ;;49452-0136-02
 ;;9002226.02101,"628,49452-0136-02 ",.02)
 ;;49452-0136-02
 ;;9002226.02101,"628,49452-0900-01 ",.01)
 ;;49452-0900-01
 ;;9002226.02101,"628,49452-0900-01 ",.02)
 ;;49452-0900-01
 ;;9002226.02101,"628,49727-0266-02 ",.01)
 ;;49727-0266-02
 ;;9002226.02101,"628,49727-0266-02 ",.02)
 ;;49727-0266-02
 ;;9002226.02101,"628,49727-0266-05 ",.01)
 ;;49727-0266-05
 ;;9002226.02101,"628,49727-0266-05 ",.02)
 ;;49727-0266-05
 ;;9002226.02101,"628,49884-0771-01 ",.01)
 ;;49884-0771-01
 ;;9002226.02101,"628,49884-0771-01 ",.02)
 ;;49884-0771-01
 ;;9002226.02101,"628,49884-0771-10 ",.01)
 ;;49884-0771-10
 ;;9002226.02101,"628,49884-0771-10 ",.02)
 ;;49884-0771-10
 ;;9002226.02101,"628,51079-0067-19 ",.01)
 ;;51079-0067-19
 ;;9002226.02101,"628,51079-0067-19 ",.02)
 ;;51079-0067-19
 ;;9002226.02101,"628,51079-0067-20 ",.01)
 ;;51079-0067-20
 ;;9002226.02101,"628,51079-0067-20 ",.02)
 ;;51079-0067-20
 ;;9002226.02101,"628,51285-0907-05 ",.01)
 ;;51285-0907-05
 ;;9002226.02101,"628,51285-0907-05 ",.02)
 ;;51285-0907-05
 ;;9002226.02101,"628,51285-0932-05 ",.01)
 ;;51285-0932-05
 ;;9002226.02101,"628,51285-0932-05 ",.02)
 ;;51285-0932-05
 ;;9002226.02101,"628,51285-0933-05 ",.01)
 ;;51285-0933-05
 ;;9002226.02101,"628,51285-0933-05 ",.02)
 ;;51285-0933-05
 ;;9002226.02101,"628,51285-0935-05 ",.01)
 ;;51285-0935-05
 ;;9002226.02101,"628,51285-0935-05 ",.02)
 ;;51285-0935-05
 ;;9002226.02101,"628,51285-0937-02 ",.01)
 ;;51285-0937-02
 ;;9002226.02101,"628,51285-0937-02 ",.02)
 ;;51285-0937-02
 ;;9002226.02101,"628,51285-0938-02 ",.01)
 ;;51285-0938-02
 ;;9002226.02101,"628,51285-0938-02 ",.02)
 ;;51285-0938-02
 ;;9002226.02101,"628,51655-0119-52 ",.01)
 ;;51655-0119-52
 ;;9002226.02101,"628,51655-0119-52 ",.02)
 ;;51655-0119-52
 ;;9002226.02101,"628,51991-0027-01 ",.01)
 ;;51991-0027-01
 ;;9002226.02101,"628,51991-0027-01 ",.02)
 ;;51991-0027-01
 ;;9002226.02101,"628,51991-0045-01 ",.01)
 ;;51991-0045-01
 ;;9002226.02101,"628,51991-0045-01 ",.02)
 ;;51991-0045-01
 ;;9002226.02101,"628,51991-0075-12 ",.01)
 ;;51991-0075-12
 ;;9002226.02101,"628,51991-0075-12 ",.02)
 ;;51991-0075-12
 ;;9002226.02101,"628,51991-0130-01 ",.01)
 ;;51991-0130-01
 ;;9002226.02101,"628,51991-0130-01 ",.02)
 ;;51991-0130-01
 ;;9002226.02101,"628,51991-0135-01 ",.01)
 ;;51991-0135-01
 ;;9002226.02101,"628,51991-0135-01 ",.02)
 ;;51991-0135-01
 ;;9002226.02101,"628,51991-0171-01 ",.01)
 ;;51991-0171-01
 ;;9002226.02101,"628,51991-0171-01 ",.02)
 ;;51991-0171-01
 ;;9002226.02101,"628,51991-0251-33 ",.01)
 ;;51991-0251-33
 ;;9002226.02101,"628,51991-0251-33 ",.02)
 ;;51991-0251-33
 ;;9002226.02101,"628,52041-0017-15 ",.01)
 ;;52041-0017-15
 ;;9002226.02101,"628,52041-0017-15 ",.02)
 ;;52041-0017-15
 ;;9002226.02101,"628,52041-0043-33 ",.01)
 ;;52041-0043-33
 ;;9002226.02101,"628,52041-0043-33 ",.02)
 ;;52041-0043-33
 ;;9002226.02101,"628,52041-0044-15 ",.01)
 ;;52041-0044-15
 ;;9002226.02101,"628,52041-0044-15 ",.02)
 ;;52041-0044-15
 ;;9002226.02101,"628,52152-0115-02 ",.01)
 ;;52152-0115-02
 ;;9002226.02101,"628,52152-0115-02 ",.02)
 ;;52152-0115-02
 ;;9002226.02101,"628,52152-0115-05 ",.01)
 ;;52152-0115-05
 ;;9002226.02101,"628,52152-0115-05 ",.02)
 ;;52152-0115-05
 ;;9002226.02101,"628,52152-0143-02 ",.01)
 ;;52152-0143-02
 ;;9002226.02101,"628,52152-0143-02 ",.02)
 ;;52152-0143-02
 ;;9002226.02101,"628,52152-0155-02 ",.01)
 ;;52152-0155-02
 ;;9002226.02101,"628,52152-0155-02 ",.02)
 ;;52152-0155-02
 ;;9002226.02101,"628,52152-0156-02 ",.01)
 ;;52152-0156-02
 ;;9002226.02101,"628,52152-0156-02 ",.02)
 ;;52152-0156-02
 ;;9002226.02101,"628,52152-0163-02 ",.01)
 ;;52152-0163-02
 ;;9002226.02101,"628,52152-0163-02 ",.02)
 ;;52152-0163-02
 ;;9002226.02101,"628,52349-0240-10 ",.01)
 ;;52349-0240-10
 ;;9002226.02101,"628,52349-0240-10 ",.02)
 ;;52349-0240-10
 ;;9002226.02101,"628,52959-0023-06 ",.01)
 ;;52959-0023-06
 ;;9002226.02101,"628,52959-0023-06 ",.02)
 ;;52959-0023-06
 ;;9002226.02101,"628,52959-0023-20 ",.01)
 ;;52959-0023-20
 ;;9002226.02101,"628,52959-0023-20 ",.02)
 ;;52959-0023-20
 ;;9002226.02101,"628,52959-0023-30 ",.01)
 ;;52959-0023-30
 ;;9002226.02101,"628,52959-0023-30 ",.02)
 ;;52959-0023-30
 ;;9002226.02101,"628,52959-0023-50 ",.01)
 ;;52959-0023-50
 ;;9002226.02101,"628,52959-0023-50 ",.02)
 ;;52959-0023-50
 ;;9002226.02101,"628,52959-0023-60 ",.01)
 ;;52959-0023-60
 ;;9002226.02101,"628,52959-0023-60 ",.02)
 ;;52959-0023-60
 ;;9002226.02101,"628,52959-0157-00 ",.01)
 ;;52959-0157-00
 ;;9002226.02101,"628,52959-0157-00 ",.02)
 ;;52959-0157-00
 ;;9002226.02101,"628,52959-0157-12 ",.01)
 ;;52959-0157-12
 ;;9002226.02101,"628,52959-0157-12 ",.02)
 ;;52959-0157-12
 ;;9002226.02101,"628,52959-0157-15 ",.01)
 ;;52959-0157-15
 ;;9002226.02101,"628,52959-0157-15 ",.02)
 ;;52959-0157-15
 ;;9002226.02101,"628,52959-0157-20 ",.01)
 ;;52959-0157-20
 ;;9002226.02101,"628,52959-0157-20 ",.02)
 ;;52959-0157-20
 ;;9002226.02101,"628,52959-0157-30 ",.01)
 ;;52959-0157-30
 ;;9002226.02101,"628,52959-0157-30 ",.02)
 ;;52959-0157-30
 ;;9002226.02101,"628,52959-0157-50 ",.01)
 ;;52959-0157-50
 ;;9002226.02101,"628,52959-0157-50 ",.02)
 ;;52959-0157-50
 ;;9002226.02101,"628,52959-0274-03 ",.01)
 ;;52959-0274-03
 ;;9002226.02101,"628,52959-0274-03 ",.02)
 ;;52959-0274-03
 ;;9002226.02101,"628,53265-0237-10 ",.01)
 ;;53265-0237-10
 ;;9002226.02101,"628,53265-0237-10 ",.02)
 ;;53265-0237-10
 ;;9002226.02101,"628,53265-0237-11 ",.01)
 ;;53265-0237-11
 ;;9002226.02101,"628,53265-0237-11 ",.02)
 ;;53265-0237-11
 ;;9002226.02101,"628,54198-0146-15 ",.01)
 ;;54198-0146-15
 ;;9002226.02101,"628,54198-0146-15 ",.02)
 ;;54198-0146-15
 ;;9002226.02101,"628,54198-0147-16 ",.01)
 ;;54198-0147-16
 ;;9002226.02101,"628,54198-0147-16 ",.02)
 ;;54198-0147-16
 ;;9002226.02101,"628,54569-0192-01 ",.01)
 ;;54569-0192-01
 ;;9002226.02101,"628,54569-0192-01 ",.02)
 ;;54569-0192-01
 ;;9002226.02101,"628,54569-0192-02 ",.01)
 ;;54569-0192-02
 ;;9002226.02101,"628,54569-0192-02 ",.02)
 ;;54569-0192-02
 ;;9002226.02101,"628,54569-0367-00 ",.01)
 ;;54569-0367-00
 ;;9002226.02101,"628,54569-0367-00 ",.02)
 ;;54569-0367-00
 ;;9002226.02101,"628,54569-0426-00 ",.01)
 ;;54569-0426-00
 ;;9002226.02101,"628,54569-0426-00 ",.02)
 ;;54569-0426-00
 ;;9002226.02101,"628,54569-0427-01 ",.01)
 ;;54569-0427-01
 ;;9002226.02101,"628,54569-0427-01 ",.02)
 ;;54569-0427-01
 ;;9002226.02101,"628,54569-0427-02 ",.01)
 ;;54569-0427-02