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

BGP7LXOG.m

Go to the documentation of this file.
BGP7LXOG ; 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,"632,17236-0261-01 ",.02)
 ;;17236-0261-01
 ;;9002226.02101,"632,17236-0261-10 ",.01)
 ;;17236-0261-10
 ;;9002226.02101,"632,17236-0261-10 ",.02)
 ;;17236-0261-10
 ;;9002226.02101,"632,17236-0820-16 ",.01)
 ;;17236-0820-16
 ;;9002226.02101,"632,17236-0820-16 ",.02)
 ;;17236-0820-16
 ;;9002226.02101,"632,17236-0820-28 ",.01)
 ;;17236-0820-28
 ;;9002226.02101,"632,17236-0820-28 ",.02)
 ;;17236-0820-28
 ;;9002226.02101,"632,17236-0822-16 ",.01)
 ;;17236-0822-16
 ;;9002226.02101,"632,17236-0822-16 ",.02)
 ;;17236-0822-16
 ;;9002226.02101,"632,17236-0822-28 ",.01)
 ;;17236-0822-28
 ;;9002226.02101,"632,17236-0822-28 ",.02)
 ;;17236-0822-28
 ;;9002226.02101,"632,17236-0824-16 ",.01)
 ;;17236-0824-16
 ;;9002226.02101,"632,17236-0824-16 ",.02)
 ;;17236-0824-16
 ;;9002226.02101,"632,17236-0824-28 ",.01)
 ;;17236-0824-28
 ;;9002226.02101,"632,17236-0824-28 ",.02)
 ;;17236-0824-28
 ;;9002226.02101,"632,17236-0826-16 ",.01)
 ;;17236-0826-16
 ;;9002226.02101,"632,17236-0826-16 ",.02)
 ;;17236-0826-16
 ;;9002226.02101,"632,17236-0826-28 ",.01)
 ;;17236-0826-28
 ;;9002226.02101,"632,17236-0826-28 ",.02)
 ;;17236-0826-28
 ;;9002226.02101,"632,43797-0320-14 ",.01)
 ;;43797-0320-14
 ;;9002226.02101,"632,43797-0320-14 ",.02)
 ;;43797-0320-14
 ;;9002226.02101,"632,43797-0401-06 ",.01)
 ;;43797-0401-06
 ;;9002226.02101,"632,43797-0401-06 ",.02)
 ;;43797-0401-06
 ;;9002226.02101,"632,44514-0493-18 ",.01)
 ;;44514-0493-18
 ;;9002226.02101,"632,44514-0493-18 ",.02)
 ;;44514-0493-18
 ;;9002226.02101,"632,44514-0590-88 ",.01)
 ;;44514-0590-88
 ;;9002226.02101,"632,44514-0590-88 ",.02)
 ;;44514-0590-88
 ;;9002226.02101,"632,48695-8811-01 ",.01)
 ;;48695-8811-01
 ;;9002226.02101,"632,48695-8811-01 ",.02)
 ;;48695-8811-01
 ;;9002226.02101,"632,49999-0083-30 ",.01)
 ;;49999-0083-30
 ;;9002226.02101,"632,49999-0083-30 ",.02)
 ;;49999-0083-30
 ;;9002226.02101,"632,49999-0109-30 ",.01)
 ;;49999-0109-30
 ;;9002226.02101,"632,49999-0109-30 ",.02)
 ;;49999-0109-30
 ;;9002226.02101,"632,49999-0109-90 ",.01)
 ;;49999-0109-90
 ;;9002226.02101,"632,49999-0109-90 ",.02)
 ;;49999-0109-90
 ;;9002226.02101,"632,49999-0161-90 ",.01)
 ;;49999-0161-90
 ;;9002226.02101,"632,49999-0161-90 ",.02)
 ;;49999-0161-90
 ;;9002226.02101,"632,50580-0827-24 ",.01)
 ;;50580-0827-24
 ;;9002226.02101,"632,50580-0827-24 ",.02)
 ;;50580-0827-24
 ;;9002226.02101,"632,51079-0322-20 ",.01)
 ;;51079-0322-20
 ;;9002226.02101,"632,51079-0322-20 ",.02)
 ;;51079-0322-20
 ;;9002226.02101,"632,51079-0322-21 ",.01)
 ;;51079-0322-21
 ;;9002226.02101,"632,51079-0322-21 ",.02)
 ;;51079-0322-21
 ;;9002226.02101,"632,51079-0322-56 ",.01)
 ;;51079-0322-56
 ;;9002226.02101,"632,51079-0322-56 ",.02)
 ;;51079-0322-56
 ;;9002226.02101,"632,51079-0322-91 ",.01)
 ;;51079-0322-91
 ;;9002226.02101,"632,51079-0322-91 ",.02)
 ;;51079-0322-91
 ;;9002226.02101,"632,51079-0322-99 ",.01)
 ;;51079-0322-99
 ;;9002226.02101,"632,51079-0322-99 ",.02)
 ;;51079-0322-99
 ;;9002226.02101,"632,51079-0741-20 ",.01)
 ;;51079-0741-20
 ;;9002226.02101,"632,51079-0741-20 ",.02)
 ;;51079-0741-20
 ;;9002226.02101,"632,51079-0934-20 ",.01)
 ;;51079-0934-20
 ;;9002226.02101,"632,51079-0934-20 ",.02)
 ;;51079-0934-20
 ;;9002226.02101,"632,51079-0934-21 ",.01)
 ;;51079-0934-21
 ;;9002226.02101,"632,51079-0934-21 ",.02)
 ;;51079-0934-21
 ;;9002226.02101,"632,51079-0934-99 ",.01)
 ;;51079-0934-99
 ;;9002226.02101,"632,51079-0934-99 ",.02)
 ;;51079-0934-99
 ;;9002226.02101,"632,51285-0441-05 ",.01)
 ;;51285-0441-05
 ;;9002226.02101,"632,51285-0441-05 ",.02)
 ;;51285-0441-05
 ;;9002226.02101,"632,51285-0441-30 ",.01)
 ;;51285-0441-30
 ;;9002226.02101,"632,51285-0441-30 ",.02)
 ;;51285-0441-30
 ;;9002226.02101,"632,51285-0442-30 ",.01)
 ;;51285-0442-30
 ;;9002226.02101,"632,51285-0442-30 ",.02)
 ;;51285-0442-30
 ;;9002226.02101,"632,51285-0443-30 ",.01)
 ;;51285-0443-30
 ;;9002226.02101,"632,51285-0443-30 ",.02)
 ;;51285-0443-30
 ;;9002226.02101,"632,51285-0444-30 ",.01)
 ;;51285-0444-30
 ;;9002226.02101,"632,51285-0444-30 ",.02)
 ;;51285-0444-30
 ;;9002226.02101,"632,51432-0345-03 ",.01)
 ;;51432-0345-03
 ;;9002226.02101,"632,51432-0345-03 ",.02)
 ;;51432-0345-03
 ;;9002226.02101,"632,51432-0345-04 ",.01)
 ;;51432-0345-04
 ;;9002226.02101,"632,51432-0345-04 ",.02)
 ;;51432-0345-04
 ;;9002226.02101,"632,51432-0663-18 ",.01)
 ;;51432-0663-18
 ;;9002226.02101,"632,51432-0663-18 ",.02)
 ;;51432-0663-18
 ;;9002226.02101,"632,51432-0663-20 ",.01)
 ;;51432-0663-20
 ;;9002226.02101,"632,51432-0663-20 ",.02)
 ;;51432-0663-20
 ;;9002226.02101,"632,51432-0663-21 ",.01)
 ;;51432-0663-21
 ;;9002226.02101,"632,51432-0663-21 ",.02)
 ;;51432-0663-21
 ;;9002226.02101,"632,51432-0665-18 ",.01)
 ;;51432-0665-18
 ;;9002226.02101,"632,51432-0665-18 ",.02)
 ;;51432-0665-18
 ;;9002226.02101,"632,51432-0665-20 ",.01)
 ;;51432-0665-20
 ;;9002226.02101,"632,51432-0665-20 ",.02)
 ;;51432-0665-20
 ;;9002226.02101,"632,51432-0665-21 ",.01)
 ;;51432-0665-21
 ;;9002226.02101,"632,51432-0665-21 ",.02)
 ;;51432-0665-21
 ;;9002226.02101,"632,51432-0675-03 ",.01)
 ;;51432-0675-03
 ;;9002226.02101,"632,51432-0675-03 ",.02)
 ;;51432-0675-03
 ;;9002226.02101,"632,51432-0960-20 ",.01)
 ;;51432-0960-20
 ;;9002226.02101,"632,51432-0960-20 ",.02)
 ;;51432-0960-20
 ;;9002226.02101,"632,51432-0960-21 ",.01)
 ;;51432-0960-21
 ;;9002226.02101,"632,51432-0960-21 ",.02)
 ;;51432-0960-21
 ;;9002226.02101,"632,51641-0321-01 ",.01)
 ;;51641-0321-01
 ;;9002226.02101,"632,51641-0321-01 ",.02)
 ;;51641-0321-01
 ;;9002226.02101,"632,51641-0321-05 ",.01)
 ;;51641-0321-05
 ;;9002226.02101,"632,51641-0321-05 ",.02)
 ;;51641-0321-05
 ;;9002226.02101,"632,51641-0321-10 ",.01)
 ;;51641-0321-10
 ;;9002226.02101,"632,51641-0321-10 ",.02)
 ;;51641-0321-10
 ;;9002226.02101,"632,51641-0321-11 ",.01)
 ;;51641-0321-11
 ;;9002226.02101,"632,51641-0321-11 ",.02)
 ;;51641-0321-11
 ;;9002226.02101,"632,51641-0323-01 ",.01)
 ;;51641-0323-01
 ;;9002226.02101,"632,51641-0323-01 ",.02)
 ;;51641-0323-01
 ;;9002226.02101,"632,51641-0323-05 ",.01)
 ;;51641-0323-05
 ;;9002226.02101,"632,51641-0323-05 ",.02)
 ;;51641-0323-05
 ;;9002226.02101,"632,51641-0323-10 ",.01)
 ;;51641-0323-10
 ;;9002226.02101,"632,51641-0323-10 ",.02)
 ;;51641-0323-10
 ;;9002226.02101,"632,51641-0323-11 ",.01)
 ;;51641-0323-11
 ;;9002226.02101,"632,51641-0323-11 ",.02)
 ;;51641-0323-11
 ;;9002226.02101,"632,51655-0814-24 ",.01)
 ;;51655-0814-24
 ;;9002226.02101,"632,51655-0814-24 ",.02)
 ;;51655-0814-24
 ;;9002226.02101,"632,51655-0814-54 ",.01)
 ;;51655-0814-54
 ;;9002226.02101,"632,51655-0814-54 ",.02)
 ;;51655-0814-54
 ;;9002226.02101,"632,51655-0837-24 ",.01)
 ;;51655-0837-24
 ;;9002226.02101,"632,51655-0837-24 ",.02)
 ;;51655-0837-24
 ;;9002226.02101,"632,51655-0837-54 ",.01)
 ;;51655-0837-54
 ;;9002226.02101,"632,51655-0837-54 ",.02)
 ;;51655-0837-54
 ;;9002226.02101,"632,52152-0157-02 ",.01)
 ;;52152-0157-02
 ;;9002226.02101,"632,52152-0157-02 ",.02)
 ;;52152-0157-02
 ;;9002226.02101,"632,52152-0158-02 ",.01)
 ;;52152-0158-02
 ;;9002226.02101,"632,52152-0158-02 ",.02)
 ;;52152-0158-02
 ;;9002226.02101,"632,52152-0190-02 ",.01)
 ;;52152-0190-02
 ;;9002226.02101,"632,52152-0190-02 ",.02)
 ;;52152-0190-02
 ;;9002226.02101,"632,52152-0211-02 ",.01)
 ;;52152-0211-02
 ;;9002226.02101,"632,52152-0211-02 ",.02)
 ;;52152-0211-02
 ;;9002226.02101,"632,52152-0213-02 ",.01)
 ;;52152-0213-02
 ;;9002226.02101,"632,52152-0213-02 ",.02)
 ;;52152-0213-02
 ;;9002226.02101,"632,52544-0395-01 ",.01)
 ;;52544-0395-01
 ;;9002226.02101,"632,52544-0395-01 ",.02)
 ;;52544-0395-01
 ;;9002226.02101,"632,52544-0396-01 ",.01)
 ;;52544-0396-01
 ;;9002226.02101,"632,52544-0396-01 ",.02)
 ;;52544-0396-01
 ;;9002226.02101,"632,52544-0714-01 ",.01)
 ;;52544-0714-01
 ;;9002226.02101,"632,52544-0714-01 ",.02)
 ;;52544-0714-01
 ;;9002226.02101,"632,52544-0714-05 ",.01)
 ;;52544-0714-05
 ;;9002226.02101,"632,52544-0714-05 ",.02)
 ;;52544-0714-05
 ;;9002226.02101,"632,52544-0726-01 ",.01)
 ;;52544-0726-01
 ;;9002226.02101,"632,52544-0726-01 ",.02)
 ;;52544-0726-01
 ;;9002226.02101,"632,52544-0727-01 ",.01)
 ;;52544-0727-01
 ;;9002226.02101,"632,52544-0727-01 ",.02)
 ;;52544-0727-01
 ;;9002226.02101,"632,52544-0772-01 ",.01)
 ;;52544-0772-01
 ;;9002226.02101,"632,52544-0772-01 ",.02)
 ;;52544-0772-01
 ;;9002226.02101,"632,52544-0773-01 ",.01)
 ;;52544-0773-01
 ;;9002226.02101,"632,52544-0773-01 ",.02)
 ;;52544-0773-01
 ;;9002226.02101,"632,52555-0126-01 ",.01)
 ;;52555-0126-01
 ;;9002226.02101,"632,52555-0126-01 ",.02)
 ;;52555-0126-01
 ;;9002226.02101,"632,52555-0126-03 ",.01)
 ;;52555-0126-03
 ;;9002226.02101,"632,52555-0126-03 ",.02)
 ;;52555-0126-03
 ;;9002226.02101,"632,52555-0717-05 ",.01)
 ;;52555-0717-05
 ;;9002226.02101,"632,52555-0717-05 ",.02)
 ;;52555-0717-05
 ;;9002226.02101,"632,52959-0165-30 ",.01)
 ;;52959-0165-30
 ;;9002226.02101,"632,52959-0165-30 ",.02)
 ;;52959-0165-30
 ;;9002226.02101,"632,52959-0326-01 ",.01)
 ;;52959-0326-01
 ;;9002226.02101,"632,52959-0326-01 ",.02)
 ;;52959-0326-01
 ;;9002226.02101,"632,52959-0334-20 ",.01)
 ;;52959-0334-20
 ;;9002226.02101,"632,52959-0334-20 ",.02)
 ;;52959-0334-20
 ;;9002226.02101,"632,52959-0334-30 ",.01)
 ;;52959-0334-30
 ;;9002226.02101,"632,52959-0334-30 ",.02)
 ;;52959-0334-30
 ;;9002226.02101,"632,52959-0335-00 ",.01)
 ;;52959-0335-00
 ;;9002226.02101,"632,52959-0335-00 ",.02)
 ;;52959-0335-00
 ;;9002226.02101,"632,52959-0335-02 ",.01)
 ;;52959-0335-02
 ;;9002226.02101,"632,52959-0335-02 ",.02)
 ;;52959-0335-02
 ;;9002226.02101,"632,52959-0335-10 ",.01)
 ;;52959-0335-10
 ;;9002226.02101,"632,52959-0335-10 ",.02)
 ;;52959-0335-10
 ;;9002226.02101,"632,52959-0335-12 ",.01)
 ;;52959-0335-12
 ;;9002226.02101,"632,52959-0335-12 ",.02)
 ;;52959-0335-12
 ;;9002226.02101,"632,52959-0335-14 ",.01)
 ;;52959-0335-14
 ;;9002226.02101,"632,52959-0335-14 ",.02)
 ;;52959-0335-14
 ;;9002226.02101,"632,52959-0335-15 ",.01)
 ;;52959-0335-15
 ;;9002226.02101,"632,52959-0335-15 ",.02)
 ;;52959-0335-15
 ;;9002226.02101,"632,52959-0335-20 ",.01)
 ;;52959-0335-20
 ;;9002226.02101,"632,52959-0335-20 ",.02)
 ;;52959-0335-20
 ;;9002226.02101,"632,52959-0335-21 ",.01)
 ;;52959-0335-21
 ;;9002226.02101,"632,52959-0335-21 ",.02)
 ;;52959-0335-21
 ;;9002226.02101,"632,52959-0335-24 ",.01)
 ;;52959-0335-24
 ;;9002226.02101,"632,52959-0335-24 ",.02)
 ;;52959-0335-24
 ;;9002226.02101,"632,52959-0335-25 ",.01)
 ;;52959-0335-25
 ;;9002226.02101,"632,52959-0335-25 ",.02)
 ;;52959-0335-25
 ;;9002226.02101,"632,52959-0335-28 ",.01)
 ;;52959-0335-28
 ;;9002226.02101,"632,52959-0335-28 ",.02)
 ;;52959-0335-28
 ;;9002226.02101,"632,52959-0335-30 ",.01)
 ;;52959-0335-30
 ;;9002226.02101,"632,52959-0335-30 ",.02)
 ;;52959-0335-30
 ;;9002226.02101,"632,52959-0335-35 ",.01)
 ;;52959-0335-35
 ;;9002226.02101,"632,52959-0335-35 ",.02)
 ;;52959-0335-35
 ;;9002226.02101,"632,52959-0335-36 ",.01)
 ;;52959-0335-36
 ;;9002226.02101,"632,52959-0335-36 ",.02)
 ;;52959-0335-36
 ;;9002226.02101,"632,52959-0335-40 ",.01)
 ;;52959-0335-40
 ;;9002226.02101,"632,52959-0335-40 ",.02)
 ;;52959-0335-40
 ;;9002226.02101,"632,52959-0335-50 ",.01)
 ;;52959-0335-50
 ;;9002226.02101,"632,52959-0335-50 ",.02)
 ;;52959-0335-50
 ;;9002226.02101,"632,52959-0335-60 ",.01)
 ;;52959-0335-60
 ;;9002226.02101,"632,52959-0335-60 ",.02)
 ;;52959-0335-60
 ;;9002226.02101,"632,52959-0335-80 ",.01)
 ;;52959-0335-80
 ;;9002226.02101,"632,52959-0335-80 ",.02)
 ;;52959-0335-80
 ;;9002226.02101,"632,52959-0335-90 ",.01)
 ;;52959-0335-90
 ;;9002226.02101,"632,52959-0335-90 ",.02)
 ;;52959-0335-90
 ;;9002226.02101,"632,52959-0545-10 ",.01)
 ;;52959-0545-10
 ;;9002226.02101,"632,52959-0545-10 ",.02)
 ;;52959-0545-10
 ;;9002226.02101,"632,52959-0545-12 ",.01)
 ;;52959-0545-12
 ;;9002226.02101,"632,52959-0545-12 ",.02)
 ;;52959-0545-12
 ;;9002226.02101,"632,52959-0545-15 ",.01)
 ;;52959-0545-15
 ;;9002226.02101,"632,52959-0545-15 ",.02)
 ;;52959-0545-15
 ;;9002226.02101,"632,52959-0545-20 ",.01)
 ;;52959-0545-20
 ;;9002226.02101,"632,52959-0545-20 ",.02)
 ;;52959-0545-20
 ;;9002226.02101,"632,52959-0545-24 ",.01)
 ;;52959-0545-24
 ;;9002226.02101,"632,52959-0545-24 ",.02)
 ;;52959-0545-24
 ;;9002226.02101,"632,52959-0545-30 ",.01)
 ;;52959-0545-30
 ;;9002226.02101,"632,52959-0545-30 ",.02)
 ;;52959-0545-30
 ;;9002226.02101,"632,52959-0545-40 ",.01)
 ;;52959-0545-40
 ;;9002226.02101,"632,52959-0545-40 ",.02)
 ;;52959-0545-40
 ;;9002226.02101,"632,52959-0545-60 ",.01)
 ;;52959-0545-60
 ;;9002226.02101,"632,52959-0545-60 ",.02)
 ;;52959-0545-60
 ;;9002226.02101,"632,52959-0555-12 ",.01)
 ;;52959-0555-12
 ;;9002226.02101,"632,52959-0555-12 ",.02)
 ;;52959-0555-12
 ;;9002226.02101,"632,52959-0555-40 ",.01)
 ;;52959-0555-40
 ;;9002226.02101,"632,52959-0555-40 ",.02)
 ;;52959-0555-40
 ;;9002226.02101,"632,53020-0121-10 ",.01)
 ;;53020-0121-10
 ;;9002226.02101,"632,53020-0121-10 ",.02)
 ;;53020-0121-10
 ;;9002226.02101,"632,53020-0121-11 ",.01)
 ;;53020-0121-11
 ;;9002226.02101,"632,53020-0121-11 ",.02)
 ;;53020-0121-11
 ;;9002226.02101,"632,53020-0158-30 ",.01)
 ;;53020-0158-30
 ;;9002226.02101,"632,53020-0158-30 ",.02)
 ;;53020-0158-30
 ;;9002226.02101,"632,53265-0123-10 ",.01)
 ;;53265-0123-10
 ;;9002226.02101,"632,53265-0123-10 ",.02)
 ;;53265-0123-10
 ;;9002226.02101,"632,53265-0123-11 ",.01)
 ;;53265-0123-11
 ;;9002226.02101,"632,53265-0123-11 ",.02)
 ;;53265-0123-11
 ;;9002226.02101,"632,53265-0256-10 ",.01)
 ;;53265-0256-10