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

BGP7LXAG.m

Go to the documentation of this file.
BGP7LXAG ; 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,"622,00641-0140-26 ",.02)
 ;;00641-0140-26
 ;;9002226.02101,"622,00641-0160-26 ",.01)
 ;;00641-0160-26
 ;;9002226.02101,"622,00641-0160-26 ",.02)
 ;;00641-0160-26
 ;;9002226.02101,"622,00672-0437-71 ",.01)
 ;;00672-0437-71
 ;;9002226.02101,"622,00672-0437-71 ",.02)
 ;;00672-0437-71
 ;;9002226.02101,"622,00672-0465-71 ",.01)
 ;;00672-0465-71
 ;;9002226.02101,"622,00672-0465-71 ",.02)
 ;;00672-0465-71
 ;;9002226.02101,"622,00677-0443-01 ",.01)
 ;;00677-0443-01
 ;;9002226.02101,"622,00677-0443-01 ",.02)
 ;;00677-0443-01
 ;;9002226.02101,"622,00677-0443-05 ",.01)
 ;;00677-0443-05
 ;;9002226.02101,"622,00677-0443-05 ",.02)
 ;;00677-0443-05
 ;;9002226.02101,"622,00677-0460-01 ",.01)
 ;;00677-0460-01
 ;;9002226.02101,"622,00677-0460-01 ",.02)
 ;;00677-0460-01
 ;;9002226.02101,"622,00677-1467-01 ",.01)
 ;;00677-1467-01
 ;;9002226.02101,"622,00677-1467-01 ",.02)
 ;;00677-1467-01
 ;;9002226.02101,"622,00677-1467-05 ",.01)
 ;;00677-1467-05
 ;;9002226.02101,"622,00677-1467-05 ",.02)
 ;;00677-1467-05
 ;;9002226.02101,"622,00677-1823-01 ",.01)
 ;;00677-1823-01
 ;;9002226.02101,"622,00677-1823-01 ",.02)
 ;;00677-1823-01
 ;;9002226.02101,"622,00677-1823-10 ",.01)
 ;;00677-1823-10
 ;;9002226.02101,"622,00677-1823-10 ",.02)
 ;;00677-1823-10
 ;;9002226.02101,"622,00677-1824-01 ",.01)
 ;;00677-1824-01
 ;;9002226.02101,"622,00677-1824-01 ",.02)
 ;;00677-1824-01
 ;;9002226.02101,"622,00677-1824-10 ",.01)
 ;;00677-1824-10
 ;;9002226.02101,"622,00677-1824-10 ",.02)
 ;;00677-1824-10
 ;;9002226.02101,"622,00722-5374-01 ",.01)
 ;;00722-5374-01
 ;;9002226.02101,"622,00722-5374-01 ",.02)
 ;;00722-5374-01
 ;;9002226.02101,"622,00722-5374-02 ",.01)
 ;;00722-5374-02
 ;;9002226.02101,"622,00722-5374-02 ",.02)
 ;;00722-5374-02
 ;;9002226.02101,"622,00781-1097-01 ",.01)
 ;;00781-1097-01
 ;;9002226.02101,"622,00781-1097-01 ",.02)
 ;;00781-1097-01
 ;;9002226.02101,"622,00781-1605-01 ",.01)
 ;;00781-1605-01
 ;;9002226.02101,"622,00781-1605-01 ",.02)
 ;;00781-1605-01
 ;;9002226.02101,"622,00781-1731-01 ",.01)
 ;;00781-1731-01
 ;;9002226.02101,"622,00781-1731-01 ",.02)
 ;;00781-1731-01
 ;;9002226.02101,"622,00781-1741-01 ",.01)
 ;;00781-1741-01
 ;;9002226.02101,"622,00781-1741-01 ",.02)
 ;;00781-1741-01
 ;;9002226.02101,"622,00781-1748-01 ",.01)
 ;;00781-1748-01
 ;;9002226.02101,"622,00781-1748-01 ",.02)
 ;;00781-1748-01
 ;;9002226.02101,"622,00781-1748-10 ",.01)
 ;;00781-1748-10
 ;;9002226.02101,"622,00781-1748-10 ",.02)
 ;;00781-1748-10
 ;;9002226.02101,"622,00781-1749-01 ",.01)
 ;;00781-1749-01
 ;;9002226.02101,"622,00781-1749-01 ",.02)
 ;;00781-1749-01
 ;;9002226.02101,"622,00781-1749-10 ",.01)
 ;;00781-1749-10
 ;;9002226.02101,"622,00781-1749-10 ",.02)
 ;;00781-1749-10
 ;;9002226.02101,"622,00781-1751-01 ",.01)
 ;;00781-1751-01
 ;;9002226.02101,"622,00781-1751-01 ",.02)
 ;;00781-1751-01
 ;;9002226.02101,"622,00781-1753-01 ",.01)
 ;;00781-1753-01
 ;;9002226.02101,"622,00781-1753-01 ",.02)
 ;;00781-1753-01
 ;;9002226.02101,"622,00781-1753-10 ",.01)
 ;;00781-1753-10
 ;;9002226.02101,"622,00781-1753-10 ",.02)
 ;;00781-1753-10
 ;;9002226.02101,"622,00781-1754-01 ",.01)
 ;;00781-1754-01
 ;;9002226.02101,"622,00781-1754-01 ",.02)
 ;;00781-1754-01
 ;;9002226.02101,"622,00781-1754-10 ",.01)
 ;;00781-1754-10
 ;;9002226.02101,"622,00781-1754-10 ",.02)
 ;;00781-1754-10
 ;;9002226.02101,"622,00781-2140-13 ",.01)
 ;;00781-2140-13
 ;;9002226.02101,"622,00781-2140-13 ",.02)
 ;;00781-2140-13
 ;;9002226.02101,"622,00781-8840-01 ",.01)
 ;;00781-8840-01
 ;;9002226.02101,"622,00781-8840-01 ",.02)
 ;;00781-8840-01
 ;;9002226.02101,"622,00781-8840-10 ",.01)
 ;;00781-8840-10
 ;;9002226.02101,"622,00781-8840-10 ",.02)
 ;;00781-8840-10
 ;;9002226.02101,"622,00781-8841-01 ",.01)
 ;;00781-8841-01
 ;;9002226.02101,"622,00781-8841-01 ",.02)
 ;;00781-8841-01
 ;;9002226.02101,"622,00781-8841-10 ",.01)
 ;;00781-8841-10
 ;;9002226.02101,"622,00781-8841-10 ",.02)
 ;;00781-8841-10
 ;;9002226.02101,"622,00781-8842-01 ",.01)
 ;;00781-8842-01
 ;;9002226.02101,"622,00781-8842-01 ",.02)
 ;;00781-8842-01
 ;;9002226.02101,"622,00781-8842-10 ",.01)
 ;;00781-8842-10
 ;;9002226.02101,"622,00781-8842-10 ",.02)
 ;;00781-8842-10
 ;;9002226.02101,"622,00781-8843-01 ",.01)
 ;;00781-8843-01
 ;;9002226.02101,"622,00781-8843-01 ",.02)
 ;;00781-8843-01
 ;;9002226.02101,"622,00785-1117-01 ",.01)
 ;;00785-1117-01
 ;;9002226.02101,"622,00785-1117-01 ",.02)
 ;;00785-1117-01
 ;;9002226.02101,"622,00839-1561-16 ",.01)
 ;;00839-1561-16
 ;;9002226.02101,"622,00839-1561-16 ",.02)
 ;;00839-1561-16
 ;;9002226.02101,"622,00839-5099-16 ",.01)
 ;;00839-5099-16
 ;;9002226.02101,"622,00839-5099-16 ",.02)
 ;;00839-5099-16
 ;;9002226.02101,"622,00839-5108-16 ",.01)
 ;;00839-5108-16
 ;;9002226.02101,"622,00839-5108-16 ",.02)
 ;;00839-5108-16
 ;;9002226.02101,"622,00839-5109-06 ",.01)
 ;;00839-5109-06
 ;;9002226.02101,"622,00839-5109-06 ",.02)
 ;;00839-5109-06
 ;;9002226.02101,"622,00839-5955-16 ",.01)
 ;;00839-5955-16
 ;;9002226.02101,"622,00839-5955-16 ",.02)
 ;;00839-5955-16
 ;;9002226.02101,"622,00839-5956-16 ",.01)
 ;;00839-5956-16
 ;;9002226.02101,"622,00839-5956-16 ",.02)
 ;;00839-5956-16
 ;;9002226.02101,"622,00839-6298-16 ",.01)
 ;;00839-6298-16
 ;;9002226.02101,"622,00839-6298-16 ",.02)
 ;;00839-6298-16
 ;;9002226.02101,"622,00879-0004-01 ",.01)
 ;;00879-0004-01
 ;;9002226.02101,"622,00879-0004-01 ",.02)
 ;;00879-0004-01
 ;;9002226.02101,"622,00879-0004-10 ",.01)
 ;;00879-0004-10
 ;;9002226.02101,"622,00879-0004-10 ",.02)
 ;;00879-0004-10
 ;;9002226.02101,"622,00879-0005-01 ",.01)
 ;;00879-0005-01
 ;;9002226.02101,"622,00879-0005-01 ",.02)
 ;;00879-0005-01
 ;;9002226.02101,"622,00879-0005-10 ",.01)
 ;;00879-0005-10
 ;;9002226.02101,"622,00879-0005-10 ",.02)
 ;;00879-0005-10
 ;;9002226.02101,"622,00879-0155-01 ",.01)
 ;;00879-0155-01
 ;;9002226.02101,"622,00879-0155-01 ",.02)
 ;;00879-0155-01
 ;;9002226.02101,"622,00879-0155-05 ",.01)
 ;;00879-0155-05
 ;;9002226.02101,"622,00879-0155-05 ",.02)
 ;;00879-0155-05
 ;;9002226.02101,"622,00879-0155-10 ",.01)
 ;;00879-0155-10
 ;;9002226.02101,"622,00879-0155-10 ",.02)
 ;;00879-0155-10
 ;;9002226.02101,"622,00879-0317-10 ",.01)
 ;;00879-0317-10
 ;;9002226.02101,"622,00879-0317-10 ",.02)
 ;;00879-0317-10
 ;;9002226.02101,"622,00879-0610-01 ",.01)
 ;;00879-0610-01
 ;;9002226.02101,"622,00879-0610-01 ",.02)
 ;;00879-0610-01
 ;;9002226.02101,"622,00879-0610-05 ",.01)
 ;;00879-0610-05
 ;;9002226.02101,"622,00879-0610-05 ",.02)
 ;;00879-0610-05
 ;;9002226.02101,"622,00879-0610-10 ",.01)
 ;;00879-0610-10
 ;;9002226.02101,"622,00879-0610-10 ",.02)
 ;;00879-0610-10
 ;;9002226.02101,"622,00879-0630-01 ",.01)
 ;;00879-0630-01
 ;;9002226.02101,"622,00879-0630-01 ",.02)
 ;;00879-0630-01
 ;;9002226.02101,"622,00879-0630-05 ",.01)
 ;;00879-0630-05
 ;;9002226.02101,"622,00879-0630-05 ",.02)
 ;;00879-0630-05
 ;;9002226.02101,"622,00879-0630-10 ",.01)
 ;;00879-0630-10
 ;;9002226.02101,"622,00879-0630-10 ",.02)
 ;;00879-0630-10
 ;;9002226.02101,"622,00879-0711-01 ",.01)
 ;;00879-0711-01
 ;;9002226.02101,"622,00879-0711-01 ",.02)
 ;;00879-0711-01
 ;;9002226.02101,"622,00879-0711-05 ",.01)
 ;;00879-0711-05
 ;;9002226.02101,"622,00879-0711-05 ",.02)
 ;;00879-0711-05
 ;;9002226.02101,"622,00879-0711-10 ",.01)
 ;;00879-0711-10
 ;;9002226.02101,"622,00879-0711-10 ",.02)
 ;;00879-0711-10
 ;;9002226.02101,"622,00904-0614-60 ",.01)
 ;;00904-0614-60
 ;;9002226.02101,"622,00904-0614-60 ",.02)
 ;;00904-0614-60
 ;;9002226.02101,"622,00904-0614-80 ",.01)
 ;;00904-0614-80
 ;;9002226.02101,"622,00904-0614-80 ",.02)
 ;;00904-0614-80
 ;;9002226.02101,"622,00904-0618-60 ",.01)
 ;;00904-0618-60
 ;;9002226.02101,"622,00904-0618-60 ",.02)
 ;;00904-0618-60
 ;;9002226.02101,"622,00904-0618-70 ",.01)
 ;;00904-0618-70
 ;;9002226.02101,"622,00904-0618-70 ",.02)
 ;;00904-0618-70
 ;;9002226.02101,"622,00904-2170-40 ",.01)
 ;;00904-2170-40
 ;;9002226.02101,"622,00904-2170-40 ",.02)
 ;;00904-2170-40
 ;;9002226.02101,"622,00904-2170-60 ",.01)
 ;;00904-2170-60
 ;;9002226.02101,"622,00904-2170-60 ",.02)
 ;;00904-2170-60
 ;;9002226.02101,"622,00904-2170-61 ",.01)
 ;;00904-2170-61
 ;;9002226.02101,"622,00904-2170-61 ",.02)
 ;;00904-2170-61
 ;;9002226.02101,"622,00904-2170-80 ",.01)
 ;;00904-2170-80
 ;;9002226.02101,"622,00904-2170-80 ",.02)
 ;;00904-2170-80
 ;;9002226.02101,"622,00904-2186-40 ",.01)
 ;;00904-2186-40
 ;;9002226.02101,"622,00904-2186-40 ",.02)
 ;;00904-2186-40
 ;;9002226.02101,"622,00904-2186-60 ",.01)
 ;;00904-2186-60
 ;;9002226.02101,"622,00904-2186-60 ",.02)
 ;;00904-2186-60
 ;;9002226.02101,"622,00904-2186-61 ",.01)
 ;;00904-2186-61
 ;;9002226.02101,"622,00904-2186-61 ",.02)
 ;;00904-2186-61
 ;;9002226.02101,"622,00904-2186-80 ",.01)
 ;;00904-2186-80
 ;;9002226.02101,"622,00904-2186-80 ",.02)
 ;;00904-2186-80
 ;;9002226.02101,"622,00904-2768-60 ",.01)
 ;;00904-2768-60
 ;;9002226.02101,"622,00904-2768-60 ",.02)
 ;;00904-2768-60
 ;;9002226.02101,"622,00904-2768-80 ",.01)
 ;;00904-2768-80
 ;;9002226.02101,"622,00904-2768-80 ",.02)
 ;;00904-2768-80
 ;;9002226.02101,"622,00904-2769-60 ",.01)
 ;;00904-2769-60
 ;;9002226.02101,"622,00904-2769-60 ",.02)
 ;;00904-2769-60
 ;;9002226.02101,"622,00904-2769-80 ",.01)
 ;;00904-2769-80
 ;;9002226.02101,"622,00904-2769-80 ",.02)
 ;;00904-2769-80
 ;;9002226.02101,"622,00904-2770-60 ",.01)
 ;;00904-2770-60
 ;;9002226.02101,"622,00904-2770-60 ",.02)
 ;;00904-2770-60
 ;;9002226.02101,"622,00904-2770-80 ",.01)
 ;;00904-2770-80
 ;;9002226.02101,"622,00904-2770-80 ",.02)
 ;;00904-2770-80
 ;;9002226.02101,"622,00904-2773-60 ",.01)
 ;;00904-2773-60
 ;;9002226.02101,"622,00904-2773-60 ",.02)
 ;;00904-2773-60
 ;;9002226.02101,"622,00904-3921-60 ",.01)
 ;;00904-3921-60
 ;;9002226.02101,"622,00904-3921-60 ",.02)
 ;;00904-3921-60
 ;;9002226.02101,"622,00904-3921-80 ",.01)
 ;;00904-3921-80
 ;;9002226.02101,"622,00904-3921-80 ",.02)
 ;;00904-3921-80
 ;;9002226.02101,"622,00904-4270-80 ",.01)
 ;;00904-4270-80
 ;;9002226.02101,"622,00904-4270-80 ",.02)
 ;;00904-4270-80
 ;;9002226.02101,"622,00904-5114-51 ",.01)
 ;;00904-5114-51
 ;;9002226.02101,"622,00904-5114-51 ",.02)
 ;;00904-5114-51
 ;;9002226.02101,"622,10939-0073-22 ",.01)
 ;;10939-0073-22
 ;;9002226.02101,"622,10939-0073-22 ",.02)
 ;;10939-0073-22
 ;;9002226.02101,"622,10939-0258-33 ",.01)
 ;;10939-0258-33
 ;;9002226.02101,"622,10939-0258-33 ",.02)
 ;;10939-0258-33
 ;;9002226.02101,"622,10939-0348-11 ",.01)
 ;;10939-0348-11
 ;;9002226.02101,"622,10939-0348-11 ",.02)
 ;;10939-0348-11
 ;;9002226.02101,"622,10939-0349-11 ",.01)
 ;;10939-0349-11
 ;;9002226.02101,"622,10939-0349-11 ",.02)
 ;;10939-0349-11
 ;;9002226.02101,"622,10939-0422-33 ",.01)
 ;;10939-0422-33
 ;;9002226.02101,"622,10939-0422-33 ",.02)
 ;;10939-0422-33
 ;;9002226.02101,"622,10939-0428-33 ",.01)
 ;;10939-0428-33
 ;;9002226.02101,"622,10939-0428-33 ",.02)
 ;;10939-0428-33
 ;;9002226.02101,"622,10939-0447-33 ",.01)
 ;;10939-0447-33
 ;;9002226.02101,"622,10939-0447-33 ",.02)
 ;;10939-0447-33
 ;;9002226.02101,"622,10939-0501-33 ",.01)
 ;;10939-0501-33
 ;;9002226.02101,"622,10939-0501-33 ",.02)
 ;;10939-0501-33
 ;;9002226.02101,"622,10939-0675-22 ",.01)
 ;;10939-0675-22
 ;;9002226.02101,"622,10939-0675-22 ",.02)
 ;;10939-0675-22
 ;;9002226.02101,"622,10960-0707-50 ",.01)
 ;;10960-0707-50
 ;;9002226.02101,"622,10960-0707-50 ",.02)
 ;;10960-0707-50
 ;;9002226.02101,"622,11370-0151-12 ",.01)
 ;;11370-0151-12
 ;;9002226.02101,"622,11370-0151-12 ",.02)
 ;;11370-0151-12
 ;;9002226.02101,"622,11370-0151-24 ",.01)
 ;;11370-0151-24
 ;;9002226.02101,"622,11370-0151-24 ",.02)
 ;;11370-0151-24
 ;;9002226.02101,"622,11808-0555-01 ",.01)
 ;;11808-0555-01
 ;;9002226.02101,"622,11808-0555-01 ",.02)
 ;;11808-0555-01
 ;;9002226.02101,"622,11822-3106-90 ",.01)
 ;;11822-3106-90
 ;;9002226.02101,"622,11822-3106-90 ",.02)
 ;;11822-3106-90
 ;;9002226.02101,"622,11822-3107-50 ",.01)
 ;;11822-3107-50
 ;;9002226.02101,"622,11822-3107-50 ",.02)
 ;;11822-3107-50
 ;;9002226.02101,"622,11822-3169-00 ",.01)
 ;;11822-3169-00
 ;;9002226.02101,"622,11822-3169-00 ",.02)
 ;;11822-3169-00
 ;;9002226.02101,"622,11822-3171-10 ",.01)
 ;;11822-3171-10
 ;;9002226.02101,"622,11822-3171-10 ",.02)
 ;;11822-3171-10
 ;;9002226.02101,"622,11822-3867-30 ",.01)
 ;;11822-3867-30
 ;;9002226.02101,"622,11822-3867-30 ",.02)
 ;;11822-3867-30
 ;;9002226.02101,"622,11822-3867-40 ",.01)
 ;;11822-3867-40
 ;;9002226.02101,"622,11822-3867-40 ",.02)
 ;;11822-3867-40
 ;;9002226.02101,"622,11822-9852-50 ",.01)
 ;;11822-9852-50
 ;;9002226.02101,"622,11822-9852-50 ",.02)
 ;;11822-9852-50
 ;;9002226.02101,"622,11845-0204-01 ",.01)
 ;;11845-0204-01
 ;;9002226.02101,"622,11845-0204-01 ",.02)
 ;;11845-0204-01
 ;;9002226.02101,"622,11845-0205-01 ",.01)
 ;;11845-0205-01
 ;;9002226.02101,"622,11845-0205-01 ",.02)
 ;;11845-0205-01
 ;;9002226.02101,"622,11845-0378-01 ",.01)
 ;;11845-0378-01
 ;;9002226.02101,"622,11845-0378-01 ",.02)
 ;;11845-0378-01
 ;;9002226.02101,"622,11845-0378-03 ",.01)
 ;;11845-0378-03
 ;;9002226.02101,"622,11845-0378-03 ",.02)
 ;;11845-0378-03
 ;;9002226.02101,"622,11917-0011-45 ",.01)
 ;;11917-0011-45
 ;;9002226.02101,"622,11917-0011-45 ",.02)
 ;;11917-0011-45
 ;;9002226.02101,"622,11917-0037-39 ",.01)
 ;;11917-0037-39
 ;;9002226.02101,"622,11917-0037-39 ",.02)
 ;;11917-0037-39
 ;;9002226.02101,"622,11917-0049-74 ",.01)
 ;;11917-0049-74
 ;;9002226.02101,"622,11917-0049-74 ",.02)
 ;;11917-0049-74
 ;;9002226.02101,"622,12280-0085-07 ",.01)
 ;;12280-0085-07