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

BGP2TPF.m

Go to the documentation of this file.
BGP2TPF ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 27, 2012;
 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
 ;
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)
 ;;21,"67253-0420-11 ")
 ;;235
 ;;21,"67253-0421-10 ")
 ;;383
 ;;21,"67253-0421-11 ")
 ;;384
 ;;21,"67253-0422-10 ")
 ;;124
 ;;21,"67253-0422-11 ")
 ;;125
 ;;21,"67286-4177-01 ")
 ;;13
 ;;21,"67286-4179-01 ")
 ;;19
 ;;21,"67544-0043-30 ")
 ;;790
 ;;21,"67544-0076-30 ")
 ;;1456
 ;;21,"67544-0087-30 ")
 ;;385
 ;;21,"67544-0122-30 ")
 ;;1457
 ;;21,"67544-0130-30 ")
 ;;1258
 ;;21,"67544-0143-30 ")
 ;;855
 ;;21,"67544-0161-30 ")
 ;;236
 ;;21,"67544-0208-30 ")
 ;;737
 ;;21,"67544-0240-30 ")
 ;;237
 ;;21,"67544-0272-30 ")
 ;;1458
 ;;21,"67544-0305-30 ")
 ;;675
 ;;21,"67544-0326-30 ")
 ;;386
 ;;21,"67544-0332-60 ")
 ;;126
 ;;21,"67544-0376-30 ")
 ;;387
 ;;21,"67544-0491-45 ")
 ;;1032
 ;;21,"67544-0567-30 ")
 ;;1298
 ;;21,"67544-0567-60 ")
 ;;1299
 ;;21,"67544-0573-82 ")
 ;;1060
 ;;21,"67544-0627-80 ")
 ;;1259
 ;;21,"67544-0911-60 ")
 ;;1459
 ;;21,"67801-0304-30 ")
 ;;1148
 ;;21,"67801-0315-30 ")
 ;;1033
 ;;21,"67801-0316-03 ")
 ;;1061
 ;;21,"67857-0700-01 ")
 ;;14
 ;;21,"67857-0701-01 ")
 ;;20
 ;;21,"68084-0209-01 ")
 ;;1854
 ;;21,"68084-0209-11 ")
 ;;1855
 ;;21,"68084-0210-01 ")
 ;;1918
 ;;21,"68084-0210-11 ")
 ;;1919
 ;;21,"68084-0211-01 ")
 ;;1667
 ;;21,"68084-0211-11 ")
 ;;1668
 ;;21,"68084-0212-01 ")
 ;;1689
 ;;21,"68084-0212-11 ")
 ;;1690
 ;;21,"68084-0261-01 ")
 ;;791
 ;;21,"68084-0261-11 ")
 ;;792
 ;;21,"68084-0262-01 ")
 ;;856
 ;;21,"68084-0262-11 ")
 ;;857
 ;;21,"68084-0263-01 ")
 ;;676
 ;;21,"68084-0263-11 ")
 ;;677
 ;;21,"68084-0264-01 ")
 ;;738
 ;;21,"68084-0264-11 ")
 ;;739
 ;;21,"68084-0301-01 ")
 ;;1034
 ;;21,"68084-0301-11 ")
 ;;1035
 ;;21,"68084-0302-11 ")
 ;;1062
 ;;21,"68084-0302-21 ")
 ;;1063
 ;;21,"68084-0303-01 ")
 ;;1101
 ;;21,"68084-0303-11 ")
 ;;1102
 ;;21,"68084-0304-01 ")
 ;;1149
 ;;21,"68084-0304-11 ")
 ;;1150
 ;;21,"68084-0387-01 ")
 ;;2046
 ;;21,"68084-0456-01 ")
 ;;974
 ;;21,"68084-0456-11 ")
 ;;975
 ;;21,"68084-0457-01 ")
 ;;995
 ;;21,"68084-0457-11 ")
 ;;996
 ;;21,"68084-0487-21 ")
 ;;503
 ;;21,"68084-0497-01 ")
 ;;2047
 ;;21,"68084-0504-01 ")
 ;;1920
 ;;21,"68115-0038-30 ")
 ;;127
 ;;21,"68115-0039-30 ")
 ;;238
 ;;21,"68115-0039-60 ")
 ;;239
 ;;21,"68115-0039-90 ")
 ;;240
 ;;21,"68115-0040-15 ")
 ;;388
 ;;21,"68115-0040-30 ")
 ;;389
 ;;21,"68115-0040-60 ")
 ;;390
 ;;21,"68115-0040-90 ")
 ;;391
 ;;21,"68115-0238-00 ")
 ;;1260
 ;;21,"68115-0238-30 ")
 ;;1261
 ;;21,"68115-0238-60 ")
 ;;1262
 ;;21,"68115-0238-90 ")
 ;;1263
 ;;21,"68115-0239-30 ")
 ;;1460
 ;;21,"68115-0239-60 ")
 ;;1461
 ;;21,"68115-0239-90 ")
 ;;1462
 ;;21,"68115-0239-97 ")
 ;;1463
 ;;21,"68115-0307-60 ")
 ;;1637
 ;;21,"68115-0308-60 ")
 ;;1769
 ;;21,"68115-0308-99 ")
 ;;1770
 ;;21,"68115-0309-30 ")
 ;;1827
 ;;21,"68115-0309-60 ")
 ;;1828
 ;;21,"68115-0309-90 ")
 ;;1829
 ;;21,"68115-0310-30 ")
 ;;1963
 ;;21,"68115-0310-60 ")
 ;;1964
 ;;21,"68115-0419-30 ")
 ;;1103
 ;;21,"68115-0551-00 ")
 ;;858
 ;;21,"68115-0629-00 ")
 ;;1876
 ;;21,"68115-0629-30 ")
 ;;1877
 ;;21,"68115-0661-00 ")
 ;;2048
 ;;21,"68115-0715-00 ")
 ;;1064
 ;;21,"68115-0727-00 ")
 ;;740
 ;;21,"68115-0727-30 ")
 ;;741
 ;;21,"68115-0741-00 ")
 ;;1104
 ;;21,"68382-0022-01 ")
 ;;241
 ;;21,"68382-0022-10 ")
 ;;242
 ;;21,"68382-0023-01 ")
 ;;392
 ;;21,"68382-0023-10 ")
 ;;393
 ;;21,"68382-0024-01 ")
 ;;128
 ;;21,"68382-0024-10 ")
 ;;129
 ;;21,"68382-0092-01 ")
 ;;793
 ;;21,"68382-0092-05 ")
 ;;794
 ;;21,"68382-0092-17 ")
 ;;795
 ;;21,"68382-0093-01 ")
 ;;859
 ;;21,"68382-0093-05 ")
 ;;860
 ;;21,"68382-0093-17 ")
 ;;861
 ;;21,"68382-0094-01 ")
 ;;678
 ;;21,"68382-0094-05 ")
 ;;679
 ;;21,"68382-0094-17 ")
 ;;680
 ;;21,"68382-0095-01 ")
 ;;742
 ;;21,"68382-0095-05 ")
 ;;743
 ;;21,"68382-0095-17 ")
 ;;744
 ;;21,"68387-0538-30 ")
 ;;394
 ;;21,"68387-0539-30 ")
 ;;130
 ;;21,"68462-0162-01 ")
 ;;796
 ;;21,"68462-0162-05 ")
 ;;797
 ;;21,"68462-0163-01 ")
 ;;862
 ;;21,"68462-0163-05 ")
 ;;863
 ;;21,"68462-0164-01 ")
 ;;681
 ;;21,"68462-0164-05 ")
 ;;682
 ;;21,"68462-0165-01 ")
 ;;745
 ;;21,"68462-0165-05 ")
 ;;746
 ;;21,"68645-0190-59 ")
 ;;1464
 ;;21,"68645-0191-59 ")
 ;;1264
 ;;9002226,999,.01)
 ;;BGP HEDIS BETA BLOCKER NDC
 ;;9002226,999,.02)
 ;;@
 ;;9002226,999,.04)
 ;;n
 ;;9002226,999,.06)
 ;;@
 ;;9002226,999,.08)
 ;;@
 ;;9002226,999,.09)
 ;;@
 ;;9002226,999,.11)
 ;;@
 ;;9002226,999,.12)
 ;;@
 ;;9002226,999,.13)
 ;;1
 ;;9002226,999,.14)
 ;;@
 ;;9002226,999,.15)
 ;;@
 ;;9002226,999,.16)
 ;;@
 ;;9002226,999,.17)
 ;;@
 ;;9002226,999,3101)
 ;;@
 ;;9002226.02101,"999,00007-3370-13 ",.01)
 ;;00007-3370-13
 ;;9002226.02101,"999,00007-3370-13 ",.02)
 ;;00007-3370-13
 ;;9002226.02101,"999,00007-3370-59 ",.01)
 ;;00007-3370-59
 ;;9002226.02101,"999,00007-3370-59 ",.02)
 ;;00007-3370-59
 ;;9002226.02101,"999,00007-3371-13 ",.01)
 ;;00007-3371-13
 ;;9002226.02101,"999,00007-3371-13 ",.02)
 ;;00007-3371-13
 ;;9002226.02101,"999,00007-3371-59 ",.01)
 ;;00007-3371-59
 ;;9002226.02101,"999,00007-3371-59 ",.02)
 ;;00007-3371-59
 ;;9002226.02101,"999,00007-3372-13 ",.01)
 ;;00007-3372-13
 ;;9002226.02101,"999,00007-3372-13 ",.02)
 ;;00007-3372-13
 ;;9002226.02101,"999,00007-3372-59 ",.01)
 ;;00007-3372-59
 ;;9002226.02101,"999,00007-3372-59 ",.02)
 ;;00007-3372-59
 ;;9002226.02101,"999,00007-3373-13 ",.01)
 ;;00007-3373-13
 ;;9002226.02101,"999,00007-3373-13 ",.02)
 ;;00007-3373-13
 ;;9002226.02101,"999,00007-3373-59 ",.01)
 ;;00007-3373-59
 ;;9002226.02101,"999,00007-3373-59 ",.02)
 ;;00007-3373-59
 ;;9002226.02101,"999,00007-4139-20 ",.01)
 ;;00007-4139-20
 ;;9002226.02101,"999,00007-4139-20 ",.02)
 ;;00007-4139-20
 ;;9002226.02101,"999,00007-4140-20 ",.01)
 ;;00007-4140-20
 ;;9002226.02101,"999,00007-4140-20 ",.02)
 ;;00007-4140-20
 ;;9002226.02101,"999,00007-4141-20 ",.01)
 ;;00007-4141-20
 ;;9002226.02101,"999,00007-4141-20 ",.02)
 ;;00007-4141-20
 ;;9002226.02101,"999,00007-4142-20 ",.01)
 ;;00007-4142-20
 ;;9002226.02101,"999,00007-4142-20 ",.02)
 ;;00007-4142-20
 ;;9002226.02101,"999,00024-2300-20 ",.01)
 ;;00024-2300-20
 ;;9002226.02101,"999,00024-2300-20 ",.02)
 ;;00024-2300-20
 ;;9002226.02101,"999,00024-2301-10 ",.01)
 ;;00024-2301-10
 ;;9002226.02101,"999,00024-2301-10 ",.02)
 ;;00024-2301-10
 ;;9002226.02101,"999,00028-0035-01 ",.01)
 ;;00028-0035-01
 ;;9002226.02101,"999,00028-0035-01 ",.02)
 ;;00028-0035-01
 ;;9002226.02101,"999,00028-0051-01 ",.01)
 ;;00028-0051-01
 ;;9002226.02101,"999,00028-0051-01 ",.02)
 ;;00028-0051-01
 ;;9002226.02101,"999,00028-0051-10 ",.01)
 ;;00028-0051-10
 ;;9002226.02101,"999,00028-0051-10 ",.02)
 ;;00028-0051-10
 ;;9002226.02101,"999,00028-0053-01 ",.01)
 ;;00028-0053-01
 ;;9002226.02101,"999,00028-0053-01 ",.02)
 ;;00028-0053-01
 ;;9002226.02101,"999,00028-0071-01 ",.01)
 ;;00028-0071-01
 ;;9002226.02101,"999,00028-0071-01 ",.02)
 ;;00028-0071-01
 ;;9002226.02101,"999,00028-0071-10 ",.01)
 ;;00028-0071-10
 ;;9002226.02101,"999,00028-0071-10 ",.02)
 ;;00028-0071-10
 ;;9002226.02101,"999,00046-0421-81 ",.01)
 ;;00046-0421-81
 ;;9002226.02101,"999,00046-0421-81 ",.02)
 ;;00046-0421-81
 ;;9002226.02101,"999,00046-0421-95 ",.01)
 ;;00046-0421-95
 ;;9002226.02101,"999,00046-0421-95 ",.02)
 ;;00046-0421-95
 ;;9002226.02101,"999,00046-0422-81 ",.01)
 ;;00046-0422-81
 ;;9002226.02101,"999,00046-0422-81 ",.02)
 ;;00046-0422-81
 ;;9002226.02101,"999,00046-0424-81 ",.01)
 ;;00046-0424-81
 ;;9002226.02101,"999,00046-0424-81 ",.02)
 ;;00046-0424-81
 ;;9002226.02101,"999,00046-0424-95 ",.01)
 ;;00046-0424-95
 ;;9002226.02101,"999,00046-0424-95 ",.02)
 ;;00046-0424-95
 ;;9002226.02101,"999,00046-0426-81 ",.01)
 ;;00046-0426-81
 ;;9002226.02101,"999,00046-0426-81 ",.02)
 ;;00046-0426-81
 ;;9002226.02101,"999,00046-0428-81 ",.01)
 ;;00046-0428-81
 ;;9002226.02101,"999,00046-0428-81 ",.02)
 ;;00046-0428-81
 ;;9002226.02101,"999,00046-0470-81 ",.01)
 ;;00046-0470-81
 ;;9002226.02101,"999,00046-0470-81 ",.02)
 ;;00046-0470-81
 ;;9002226.02101,"999,00046-0471-81 ",.01)
 ;;00046-0471-81
 ;;9002226.02101,"999,00046-0471-81 ",.02)
 ;;00046-0471-81
 ;;9002226.02101,"999,00046-0473-81 ",.01)
 ;;00046-0473-81
 ;;9002226.02101,"999,00046-0473-81 ",.02)
 ;;00046-0473-81
 ;;9002226.02101,"999,00046-0479-81 ",.01)
 ;;00046-0479-81
 ;;9002226.02101,"999,00046-0479-81 ",.02)
 ;;00046-0479-81
 ;;9002226.02101,"999,00046-0484-81 ",.01)
 ;;00046-0484-81
 ;;9002226.02101,"999,00046-0484-81 ",.02)
 ;;00046-0484-81
 ;;9002226.02101,"999,00054-3727-63 ",.01)
 ;;00054-3727-63
 ;;9002226.02101,"999,00054-3727-63 ",.02)
 ;;00054-3727-63
 ;;9002226.02101,"999,00054-3730-63 ",.01)
 ;;00054-3730-63
 ;;9002226.02101,"999,00054-3730-63 ",.02)
 ;;00054-3730-63
 ;;9002226.02101,"999,00074-1664-13 ",.01)
 ;;00074-1664-13
 ;;9002226.02101,"999,00074-1664-13 ",.02)
 ;;00074-1664-13
 ;;9002226.02101,"999,00074-1665-13 ",.01)
 ;;00074-1665-13
 ;;9002226.02101,"999,00074-1665-13 ",.02)
 ;;00074-1665-13
 ;;9002226.02101,"999,00078-0458-05 ",.01)
 ;;00078-0458-05
 ;;9002226.02101,"999,00078-0458-05 ",.02)
 ;;00078-0458-05
 ;;9002226.02101,"999,00078-0458-09 ",.01)
 ;;00078-0458-09
 ;;9002226.02101,"999,00078-0458-09 ",.02)
 ;;00078-0458-09
 ;;9002226.02101,"999,00078-0459-05 ",.01)
 ;;00078-0459-05
 ;;9002226.02101,"999,00078-0459-05 ",.02)
 ;;00078-0459-05
 ;;9002226.02101,"999,00078-0459-09 ",.01)
 ;;00078-0459-09
 ;;9002226.02101,"999,00078-0459-09 ",.02)
 ;;00078-0459-09
 ;;9002226.02101,"999,00078-0460-05 ",.01)
 ;;00078-0460-05
 ;;9002226.02101,"999,00078-0460-05 ",.02)
 ;;00078-0460-05
 ;;9002226.02101,"999,00078-0461-05 ",.01)
 ;;00078-0461-05
 ;;9002226.02101,"999,00078-0461-05 ",.02)
 ;;00078-0461-05
 ;;9002226.02101,"999,00078-0462-05 ",.01)
 ;;00078-0462-05
 ;;9002226.02101,"999,00078-0462-05 ",.02)
 ;;00078-0462-05
 ;;9002226.02101,"999,00085-0244-04 ",.01)
 ;;00085-0244-04
 ;;9002226.02101,"999,00085-0244-04 ",.02)
 ;;00085-0244-04
 ;;9002226.02101,"999,00085-0244-05 ",.01)
 ;;00085-0244-05
 ;;9002226.02101,"999,00085-0244-05 ",.02)
 ;;00085-0244-05
 ;;9002226.02101,"999,00085-0244-07 ",.01)
 ;;00085-0244-07
 ;;9002226.02101,"999,00085-0244-07 ",.02)
 ;;00085-0244-07
 ;;9002226.02101,"999,00085-0244-08 ",.01)
 ;;00085-0244-08
 ;;9002226.02101,"999,00085-0244-08 ",.02)
 ;;00085-0244-08
 ;;9002226.02101,"999,00085-0438-03 ",.01)
 ;;00085-0438-03
 ;;9002226.02101,"999,00085-0438-03 ",.02)
 ;;00085-0438-03
 ;;9002226.02101,"999,00085-0438-05 ",.01)
 ;;00085-0438-05
 ;;9002226.02101,"999,00085-0438-05 ",.02)
 ;;00085-0438-05
 ;;9002226.02101,"999,00085-0438-06 ",.01)
 ;;00085-0438-06
 ;;9002226.02101,"999,00085-0438-06 ",.02)
 ;;00085-0438-06
 ;;9002226.02101,"999,00085-0752-04 ",.01)
 ;;00085-0752-04
 ;;9002226.02101,"999,00085-0752-04 ",.02)
 ;;00085-0752-04
 ;;9002226.02101,"999,00085-0752-05 ",.01)
 ;;00085-0752-05
 ;;9002226.02101,"999,00085-0752-05 ",.02)
 ;;00085-0752-05
 ;;9002226.02101,"999,00085-0752-07 ",.01)
 ;;00085-0752-07
 ;;9002226.02101,"999,00085-0752-07 ",.02)
 ;;00085-0752-07
 ;;9002226.02101,"999,00085-0752-08 ",.01)
 ;;00085-0752-08
 ;;9002226.02101,"999,00085-0752-08 ",.02)
 ;;00085-0752-08
 ;;9002226.02101,"999,00091-4500-15 ",.01)
 ;;00091-4500-15
 ;;9002226.02101,"999,00091-4500-15 ",.02)
 ;;00091-4500-15
 ;;9002226.02101,"999,00093-0051-01 ",.01)
 ;;00093-0051-01
 ;;9002226.02101,"999,00093-0051-01 ",.02)
 ;;00093-0051-01
 ;;9002226.02101,"999,00093-0051-05 ",.01)
 ;;00093-0051-05
 ;;9002226.02101,"999,00093-0051-05 ",.02)
 ;;00093-0051-05
 ;;9002226.02101,"999,00093-0135-01 ",.01)
 ;;00093-0135-01
 ;;9002226.02101,"999,00093-0135-01 ",.02)
 ;;00093-0135-01
 ;;9002226.02101,"999,00093-0135-05 ",.01)
 ;;00093-0135-05
 ;;9002226.02101,"999,00093-0135-05 ",.02)
 ;;00093-0135-05
 ;;9002226.02101,"999,00093-0733-01 ",.01)
 ;;00093-0733-01
 ;;9002226.02101,"999,00093-0733-01 ",.02)
 ;;00093-0733-01
 ;;9002226.02101,"999,00093-0733-10 ",.01)
 ;;00093-0733-10
 ;;9002226.02101,"999,00093-0733-10 ",.02)
 ;;00093-0733-10
 ;;9002226.02101,"999,00093-0734-01 ",.01)
 ;;00093-0734-01
 ;;9002226.02101,"999,00093-0734-01 ",.02)
 ;;00093-0734-01
 ;;9002226.02101,"999,00093-0734-10 ",.01)
 ;;00093-0734-10
 ;;9002226.02101,"999,00093-0734-10 ",.02)
 ;;00093-0734-10
 ;;9002226.02101,"999,00093-0752-01 ",.01)
 ;;00093-0752-01
 ;;9002226.02101,"999,00093-0752-01 ",.02)
 ;;00093-0752-01
 ;;9002226.02101,"999,00093-0752-10 ",.01)
 ;;00093-0752-10
 ;;9002226.02101,"999,00093-0752-10 ",.02)
 ;;00093-0752-10
 ;;9002226.02101,"999,00093-0753-01 ",.01)
 ;;00093-0753-01
 ;;9002226.02101,"999,00093-0753-01 ",.02)
 ;;00093-0753-01
 ;;9002226.02101,"999,00093-0753-05 ",.01)
 ;;00093-0753-05
 ;;9002226.02101,"999,00093-0753-05 ",.02)
 ;;00093-0753-05
 ;;9002226.02101,"999,00093-0787-01 ",.01)
 ;;00093-0787-01
 ;;9002226.02101,"999,00093-0787-01 ",.02)
 ;;00093-0787-01
 ;;9002226.02101,"999,00093-0787-10 ",.01)
 ;;00093-0787-10
 ;;9002226.02101,"999,00093-0787-10 ",.02)
 ;;00093-0787-10
 ;;9002226.02101,"999,00093-1060-01 ",.01)
 ;;00093-1060-01
 ;;9002226.02101,"999,00093-1060-01 ",.02)
 ;;00093-1060-01
 ;;9002226.02101,"999,00093-1061-01 ",.01)
 ;;00093-1061-01
 ;;9002226.02101,"999,00093-1061-01 ",.02)
 ;;00093-1061-01
 ;;9002226.02101,"999,00093-1062-01 ",.01)
 ;;00093-1062-01