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

BGP2TA7.m

Go to the documentation of this file.
BGP2TA7 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 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,"66105-0524-09 ")
 ;;2395
 ;;21,"66105-0546-09 ")
 ;;1064
 ;;21,"66105-0548-03 ")
 ;;1887
 ;;21,"66105-0555-10 ")
 ;;2219
 ;;21,"66267-0323-30 ")
 ;;699
 ;;21,"66267-0323-60 ")
 ;;700
 ;;21,"66267-0323-90 ")
 ;;701
 ;;21,"66267-0323-91 ")
 ;;702
 ;;21,"66267-0380-30 ")
 ;;872
 ;;21,"66267-0380-60 ")
 ;;873
 ;;21,"66267-0380-90 ")
 ;;874
 ;;21,"66267-0380-91 ")
 ;;875
 ;;21,"66267-0413-30 ")
 ;;1001
 ;;21,"66267-0413-60 ")
 ;;1002
 ;;21,"66267-0413-90 ")
 ;;1003
 ;;21,"66267-0413-92 ")
 ;;1004
 ;;21,"66267-1009-00 ")
 ;;703
 ;;21,"66336-0124-30 ")
 ;;284
 ;;21,"66336-0232-30 ")
 ;;317
 ;;21,"66336-0366-30 ")
 ;;167
 ;;21,"66336-0389-30 ")
 ;;704
 ;;21,"66336-0389-60 ")
 ;;705
 ;;21,"66336-0391-30 ")
 ;;1005
 ;;21,"66336-0391-60 ")
 ;;1006
 ;;21,"66336-0393-30 ")
 ;;876
 ;;21,"66336-0393-60 ")
 ;;877
 ;;21,"66336-0572-30 ")
 ;;1230
 ;;21,"66336-0618-60 ")
 ;;421
 ;;21,"66336-0691-30 ")
 ;;230
 ;;21,"66336-0741-30 ")
 ;;1888
 ;;21,"66336-0750-60 ")
 ;;589
 ;;21,"66336-0750-90 ")
 ;;590
 ;;21,"66336-0773-30 ")
 ;;168
 ;;21,"66336-0794-60 ")
 ;;367
 ;;21,"66336-0805-30 ")
 ;;1289
 ;;21,"66336-0867-30 ")
 ;;2074
 ;;21,"66336-0946-30 ")
 ;;521
 ;;21,"66336-0946-60 ")
 ;;522
 ;;21,"66336-0946-90 ")
 ;;523
 ;;21,"66336-0972-30 ")
 ;;1642
 ;;21,"66636-0691-30 ")
 ;;231
 ;;21,"66685-0301-00 ")
 ;;776
 ;;21,"66685-0301-02 ")
 ;;777
 ;;21,"66685-0302-00 ")
 ;;1007
 ;;21,"66685-0302-02 ")
 ;;1008
 ;;21,"66685-0303-00 ")
 ;;706
 ;;21,"66685-0303-02 ")
 ;;707
 ;;21,"66685-0304-00 ")
 ;;878
 ;;21,"66685-0304-02 ")
 ;;879
 ;;21,"66685-0701-01 ")
 ;;1713
 ;;21,"66685-0701-02 ")
 ;;1714
 ;;21,"66685-0702-01 ")
 ;;2220
 ;;21,"66685-0702-02 ")
 ;;2221
 ;;21,"66685-0702-03 ")
 ;;2222
 ;;21,"66685-0703-01 ")
 ;;1643
 ;;21,"66685-0703-02 ")
 ;;1644
 ;;21,"66685-0703-03 ")
 ;;1645
 ;;21,"66685-0704-01 ")
 ;;1889
 ;;21,"66685-0704-02 ")
 ;;1890
 ;;21,"66685-0704-03 ")
 ;;1891
 ;;21,"66685-0705-01 ")
 ;;1949
 ;;21,"66685-0705-02 ")
 ;;1950
 ;;21,"66685-0706-01 ")
 ;;2075
 ;;21,"66685-0706-03 ")
 ;;2076
 ;;21,"66685-0706-04 ")
 ;;2077
 ;;21,"67253-0106-10 ")
 ;;2560
 ;;21,"67253-0107-10 ")
 ;;2572
 ;;21,"67253-0671-10 ")
 ;;2410
 ;;21,"67253-0672-10 ")
 ;;2492
 ;;21,"67253-0672-11 ")
 ;;2493
 ;;21,"67253-0673-10 ")
 ;;2539
 ;;21,"67253-0673-11 ")
 ;;2540
 ;;21,"67253-0674-10 ")
 ;;2452
 ;;21,"67253-0674-11 ")
 ;;2453
 ;;21,"67544-0042-15 ")
 ;;1103
 ;;21,"67544-0062-30 ")
 ;;1715
 ;;21,"67544-0128-15 ")
 ;;2223
 ;;21,"67544-0134-15 ")
 ;;1892
 ;;21,"67544-0148-15 ")
 ;;2078
 ;;21,"67544-0159-15 ")
 ;;1646
 ;;21,"67544-0173-30 ")
 ;;2224
 ;;21,"67544-0174-30 ")
 ;;1893
 ;;21,"67544-0219-15 ")
 ;;1647
 ;;21,"67544-0306-30 ")
 ;;1141
 ;;21,"67544-0311-30 ")
 ;;1142
 ;;21,"67544-0322-15 ")
 ;;1104
 ;;21,"67544-0350-80 ")
 ;;778
 ;;21,"67544-0377-60 ")
 ;;1290
 ;;21,"67544-0380-30 ")
 ;;1065
 ;;21,"67544-0418-60 ")
 ;;1291
 ;;21,"67544-0431-15 ")
 ;;1105
 ;;21,"67544-0454-15 ")
 ;;1143
 ;;21,"67544-0489-15 ")
 ;;1066
 ;;21,"67544-0997-30 ")
 ;;2079
 ;;21,"67544-0999-60 ")
 ;;1894
 ;;21,"67801-0340-03 ")
 ;;1402
 ;;21,"67801-0342-03 ")
 ;;1426
 ;;21,"67801-0343-03 ")
 ;;1394
 ;;21,"67801-0441-03 ")
 ;;1412
 ;;21,"68084-0058-01 ")
 ;;1716
 ;;21,"68084-0060-01 ")
 ;;2225
 ;;21,"68084-0060-11 ")
 ;;2226
 ;;21,"68084-0061-01 ")
 ;;1648
 ;;21,"68084-0061-11 ")
 ;;1649
 ;;21,"68084-0062-01 ")
 ;;1895
 ;;21,"68084-0062-11 ")
 ;;1896
 ;;21,"68084-0064-01 ")
 ;;2080
 ;;21,"68084-0064-11 ")
 ;;2081
 ;;21,"68084-0266-01 ")
 ;;2494
 ;;21,"68084-0266-11 ")
 ;;2495
 ;;21,"68084-0267-01 ")
 ;;2541
 ;;21,"68084-0267-11 ")
 ;;2542
 ;;21,"68084-0268-01 ")
 ;;2454
 ;;21,"68084-0268-11 ")
 ;;2455
 ;;21,"68084-0294-11 ")
 ;;2411
 ;;21,"68084-0294-21 ")
 ;;2412
 ;;21,"68084-0349-11 ")
 ;;43
 ;;21,"68084-0349-21 ")
 ;;44
 ;;21,"68084-0350-01 ")
 ;;59
 ;;21,"68084-0350-11 ")
 ;;60
 ;;21,"68084-0351-11 ")
 ;;16
 ;;21,"68084-0351-21 ")
 ;;17
 ;;21,"68084-0390-01 ")
 ;;1009
 ;;21,"68084-0390-11 ")
 ;;1010
 ;;21,"68084-0391-01 ")
 ;;708
 ;;21,"68084-0391-11 ")
 ;;709
 ;;21,"68084-0392-01 ")
 ;;880
 ;;21,"68084-0392-11 ")
 ;;881
 ;;21,"68115-0059-00 ")
 ;;524
 ;;21,"68115-0059-30 ")
 ;;525
 ;;21,"68115-0059-90 ")
 ;;526
 ;;21,"68115-0060-30 ")
 ;;591
 ;;21,"68115-0060-90 ")
 ;;592
 ;;21,"68115-0127-00 ")
 ;;710
 ;;21,"68115-0127-15 ")
 ;;711
 ;;21,"68115-0127-30 ")
 ;;712
 ;;21,"68115-0127-60 ")
 ;;713
 ;;21,"68115-0128-00 ")
 ;;882
 ;;21,"68115-0128-20 ")
 ;;883
 ;;21,"68115-0128-30 ")
 ;;884
 ;;21,"68115-0128-60 ")
 ;;885
 ;;21,"68115-0128-90 ")
 ;;886
 ;;21,"68115-0129-30 ")
 ;;1011
 ;;21,"68115-0129-60 ")
 ;;1012
 ;;21,"68115-0207-30 ")
 ;;1650
 ;;21,"68115-0207-60 ")
 ;;1651
 ;;21,"68115-0208-30 ")
 ;;1897
 ;;21,"68115-0208-60 ")
 ;;1898
 ;;21,"68115-0208-90 ")
 ;;1899
 ;;21,"68115-0209-30 ")
 ;;2082
 ;;21,"68115-0215-30 ")
 ;;169
 ;;21,"68115-0216-30 ")
 ;;232
 ;;21,"68115-0217-30 ")
 ;;285
 ;;21,"68115-0361-30 ")
 ;;1652
 ;;21,"68115-0362-00 ")
 ;;1900
 ;;21,"68115-0362-60 ")
 ;;1901
 ;;21,"68115-0363-30 ")
 ;;2227
 ;;21,"68115-0378-30 ")
 ;;2456
 ;;21,"68115-0378-60 ")
 ;;2457
 ;;21,"68115-0396-30 ")
 ;;2228
 ;;21,"68115-0425-90 ")
 ;;368
 ;;21,"68115-0490-60 ")
 ;;170
 ;;21,"68115-0530-00 ")
 ;;2496
 ;;21,"68115-0530-30 ")
 ;;2497
 ;;21,"68115-0530-60 ")
 ;;2498
 ;;21,"68115-0573-30 ")
 ;;1427
 ;;21,"68115-0597-00 ")
 ;;286
 ;;21,"68115-0615-00 ")
 ;;171
 ;;21,"68115-0621-00 ")
 ;;318
 ;;21,"68115-0650-00 ")
 ;;1395
 ;;21,"68115-0654-00 ")
 ;;233
 ;;21,"68115-0673-00 ")
 ;;1428
 ;;21,"68115-0673-30 ")
 ;;1429
 ;;21,"68115-0677-00 ")
 ;;1292
 ;;21,"68115-0677-30 ")
 ;;1293
 ;;21,"68115-0778-00 ")
 ;;1413
 ;;21,"68115-0812-00 ")
 ;;2543
 ;;21,"68115-0812-30 ")
 ;;2544
 ;;21,"68115-0812-60 ")
 ;;2546
 ;;21,"68115-0824-00 ")
 ;;319
 ;;21,"68115-0889-90 ")
 ;;2335
 ;;21,"68180-0235-01 ")
 ;;2258
 ;;21,"68180-0236-01 ")
 ;;2264
 ;;21,"68180-0237-01 ")
 ;;2270
 ;;21,"68180-0512-01 ")
 ;;1717
 ;;21,"68180-0512-02 ")
 ;;1718
 ;;21,"68180-0512-09 ")
 ;;1719
 ;;21,"68180-0513-01 ")
 ;;2229
 ;;21,"68180-0513-03 ")
 ;;2230
 ;;21,"68180-0514-01 ")
 ;;1653
 ;;21,"68180-0514-03 ")
 ;;1654
 ;;21,"68180-0515-01 ")
 ;;1902
 ;;21,"68180-0515-03 ")
 ;;1903
 ;;21,"68180-0516-01 ")
 ;;1951
 ;;21,"68180-0516-02 ")
 ;;1952
 ;;21,"68180-0517-01 ")
 ;;2083
 ;;21,"68180-0517-03 ")
 ;;2084
 ;;21,"68180-0518-01 ")
 ;;1231
 ;;21,"68180-0518-02 ")
 ;;1232
 ;;21,"68180-0519-01 ")
 ;;1294
 ;;21,"68180-0519-02 ")
 ;;1295
 ;;21,"68180-0520-01 ")
 ;;1346
 ;;21,"68180-0520-02 ")
 ;;1347
 ;;21,"68180-0556-09 ")
 ;;2396
 ;;21,"68180-0557-09 ")
 ;;2304
 ;;21,"68180-0558-09 ")
 ;;2336
 ;;21,"68180-0559-09 ")
 ;;2367
 ;;21,"68180-0566-01 ")
 ;;2561
 ;;21,"68180-0567-01 ")
 ;;2573
 ;;21,"68180-0568-01 ")
 ;;2587
 ;;21,"68180-0588-01 ")
 ;;2413
 ;;21,"68180-0589-01 ")
 ;;2499
 ;;21,"68180-0589-02 ")
 ;;2500
 ;;21,"68180-0590-01 ")
 ;;2547
 ;;21,"68180-0590-02 ")
 ;;2548
 ;;21,"68180-0591-01 ")
 ;;2458
 ;;21,"68180-0591-02 ")
 ;;2459
 ;;21,"68180-0755-01 ")
 ;;30
 ;;21,"68180-0756-01 ")
 ;;45
 ;;21,"68180-0757-01 ")
 ;;61
 ;;21,"68180-0758-01 ")
 ;;18
 ;;21,"68180-0759-01 ")
 ;;66
 ;;21,"68180-0760-01 ")
 ;;23
 ;;21,"68382-0144-01 ")
 ;;2414
 ;;21,"68382-0144-05 ")
 ;;2415
 ;;21,"68382-0144-06 ")
 ;;2416
 ;;21,"68382-0145-01 ")
 ;;2501
 ;;21,"68382-0145-05 ")
 ;;2502
 ;;21,"68382-0145-06 ")
 ;;2503
 ;;21,"68382-0146-01 ")
 ;;2545
 ;;21,"68382-0147-01 ")
 ;;2461
 ;;21,"68387-0543-30 ")
 ;;1655
 ;;21,"68462-0205-01 ")
 ;;1363
 ;;21,"68462-0206-01 ")
 ;;1352
 ;;21,"68462-0207-01 ")
 ;;1357
 ;;21,"68462-0208-01 ")
 ;;2243
 ;;21,"68462-0209-01 ")
 ;;2254
 ;;21,"68462-0294-01 ")
 ;;1455
 ;;21,"68462-0295-01 ")
 ;;1456
 ;;21,"68462-0296-01 ")
 ;;1457
 ;;21,"68462-0329-01 ")
 ;;1458
 ;;21,"68462-0367-10 ")
 ;;1067
 ;;21,"68462-0367-90 ")
 ;;1068
 ;;21,"68462-0368-10 ")
 ;;1106
 ;;21,"68462-0368-90 ")
 ;;1107
 ;;21,"68462-0369-10 ")
 ;;1144
 ;;21,"68462-0369-90 ")
 ;;1145
 ;;21,"68462-0554-01 ")
 ;;1172
 ;;21,"68462-0555-01 ")
 ;;1180
 ;;21,"68505-2510-02 ")
 ;;1069
 ;;21,"68505-2510-04 ")
 ;;1070
 ;;21,"68552-0221-10 ")
 ;;1071
 ;;21,"68552-0221-90 ")
 ;;1072
 ;;21,"68552-0222-10 ")
 ;;1108
 ;;21,"68552-0222-90 ")
 ;;1109
 ;;21,"68552-0223-10 ")
 ;;1146
 ;;21,"68552-0223-90 ")
 ;;1147
 ;;21,"68645-0160-59 ")
 ;;422
 ;;21,"68645-0161-59 ")
 ;;527
 ;;21,"68645-0162-59 ")
 ;;593
 ;;21,"68645-0163-59 ")
 ;;369
 ;;9002226,1064,.01)
 ;;BGP HEDIS ACEI NDC
 ;;9002226,1064,.02)
 ;;@
 ;;9002226,1064,.04)
 ;;n
 ;;9002226,1064,.06)
 ;;@
 ;;9002226,1064,.08)
 ;;@
 ;;9002226,1064,.09)
 ;;3120312
 ;;9002226,1064,.11)
 ;;@
 ;;9002226,1064,.12)
 ;;@
 ;;9002226,1064,.13)
 ;;1
 ;;9002226,1064,.14)
 ;;@
 ;;9002226,1064,.15)
 ;;@
 ;;9002226,1064,.16)
 ;;@
 ;;9002226,1064,.17)
 ;;@
 ;;9002226,1064,3101)
 ;;@
 ;;9002226.02101,"1064,00003-0338-50 ",.01)
 ;;00003-0338-50
 ;;9002226.02101,"1064,00003-0338-50 ",.02)
 ;;00003-0338-50
 ;;9002226.02101,"1064,00003-0450-51 ",.01)
 ;;00003-0450-51
 ;;9002226.02101,"1064,00003-0450-51 ",.02)
 ;;00003-0450-51
 ;;9002226.02101,"1064,00003-0450-54 ",.01)
 ;;00003-0450-54
 ;;9002226.02101,"1064,00003-0450-54 ",.02)
 ;;00003-0450-54
 ;;9002226.02101,"1064,00003-0450-75 ",.01)
 ;;00003-0450-75
 ;;9002226.02101,"1064,00003-0450-75 ",.02)
 ;;00003-0450-75
 ;;9002226.02101,"1064,00003-0452-50 ",.01)
 ;;00003-0452-50
 ;;9002226.02101,"1064,00003-0452-50 ",.02)
 ;;00003-0452-50
 ;;9002226.02101,"1064,00003-0452-51 ",.01)
 ;;00003-0452-51
 ;;9002226.02101,"1064,00003-0452-51 ",.02)
 ;;00003-0452-51
 ;;9002226.02101,"1064,00003-0452-75 ",.01)
 ;;00003-0452-75
 ;;9002226.02101,"1064,00003-0452-75 ",.02)
 ;;00003-0452-75
 ;;9002226.02101,"1064,00003-0482-50 ",.01)
 ;;00003-0482-50
 ;;9002226.02101,"1064,00003-0482-50 ",.02)
 ;;00003-0482-50
 ;;9002226.02101,"1064,00003-0482-51 ",.01)
 ;;00003-0482-51
 ;;9002226.02101,"1064,00003-0482-51 ",.02)
 ;;00003-0482-51
 ;;9002226.02101,"1064,00003-0482-75 ",.01)
 ;;00003-0482-75
 ;;9002226.02101,"1064,00003-0482-75 ",.02)
 ;;00003-0482-75
 ;;9002226.02101,"1064,00003-0485-50 ",.01)
 ;;00003-0485-50
 ;;9002226.02101,"1064,00003-0485-50 ",.02)
 ;;00003-0485-50
 ;;9002226.02101,"1064,00006-0015-28 ",.01)
 ;;00006-0015-28
 ;;9002226.02101,"1064,00006-0015-28 ",.02)
 ;;00006-0015-28
 ;;9002226.02101,"1064,00006-0015-31 ",.01)
 ;;00006-0015-31
 ;;9002226.02101,"1064,00006-0015-31 ",.02)
 ;;00006-0015-31
 ;;9002226.02101,"1064,00006-0015-58 ",.01)
 ;;00006-0015-58
 ;;9002226.02101,"1064,00006-0015-58 ",.02)
 ;;00006-0015-58
 ;;9002226.02101,"1064,00006-0019-54 ",.01)
 ;;00006-0019-54
 ;;9002226.02101,"1064,00006-0019-54 ",.02)
 ;;00006-0019-54
 ;;9002226.02101,"1064,00006-0019-82 ",.01)
 ;;00006-0019-82
 ;;9002226.02101,"1064,00006-0019-82 ",.02)
 ;;00006-0019-82
 ;;9002226.02101,"1064,00006-0106-54 ",.01)
 ;;00006-0106-54
 ;;9002226.02101,"1064,00006-0106-54 ",.02)
 ;;00006-0106-54
 ;;9002226.02101,"1064,00006-0106-82 ",.01)
 ;;00006-0106-82
 ;;9002226.02101,"1064,00006-0106-82 ",.02)
 ;;00006-0106-82
 ;;9002226.02101,"1064,00006-0106-86 ",.01)
 ;;00006-0106-86
 ;;9002226.02101,"1064,00006-0106-86 ",.02)
 ;;00006-0106-86
 ;;9002226.02101,"1064,00006-0140-58 ",.01)
 ;;00006-0140-58
 ;;9002226.02101,"1064,00006-0140-58 ",.02)
 ;;00006-0140-58
 ;;9002226.02101,"1064,00006-0142-31 ",.01)
 ;;00006-0142-31
 ;;9002226.02101,"1064,00006-0142-31 ",.02)
 ;;00006-0142-31
 ;;9002226.02101,"1064,00006-0142-58 ",.01)
 ;;00006-0142-58
 ;;9002226.02101,"1064,00006-0142-58 ",.02)
 ;;00006-0142-58
 ;;9002226.02101,"1064,00006-0145-31 ",.01)
 ;;00006-0145-31
 ;;9002226.02101,"1064,00006-0145-31 ",.02)
 ;;00006-0145-31
 ;;9002226.02101,"1064,00006-0145-58 ",.01)
 ;;00006-0145-58
 ;;9002226.02101,"1064,00006-0145-58 ",.02)
 ;;00006-0145-58
 ;;9002226.02101,"1064,00006-0207-54 ",.01)
 ;;00006-0207-54
 ;;9002226.02101,"1064,00006-0207-54 ",.02)
 ;;00006-0207-54
 ;;9002226.02101,"1064,00006-0207-82 ",.01)
 ;;00006-0207-82
 ;;9002226.02101,"1064,00006-0207-82 ",.02)
 ;;00006-0207-82
 ;;9002226.02101,"1064,00006-0207-86 ",.01)
 ;;00006-0207-86
 ;;9002226.02101,"1064,00006-0207-86 ",.02)
 ;;00006-0207-86
 ;;9002226.02101,"1064,00006-0237-58 ",.01)
 ;;00006-0237-58
 ;;9002226.02101,"1064,00006-0237-58 ",.02)
 ;;00006-0237-58
 ;;9002226.02101,"1064,00032-1101-01 ",.01)
 ;;00032-1101-01
 ;;9002226.02101,"1064,00032-1101-01 ",.02)
 ;;00032-1101-01
 ;;9002226.02101,"1064,00032-1102-01 ",.01)
 ;;00032-1102-01
 ;;9002226.02101,"1064,00032-1102-01 ",.02)
 ;;00032-1102-01
 ;;9002226.02101,"1064,00032-1103-01 ",.01)
 ;;00032-1103-01
 ;;9002226.02101,"1064,00032-1103-01 ",.02)
 ;;00032-1103-01
 ;;9002226.02101,"1064,00038-0134-10 ",.01)
 ;;00038-0134-10
 ;;9002226.02101,"1064,00038-0134-10 ",.02)
 ;;00038-0134-10
 ;;9002226.02101,"1064,00038-0141-10 ",.01)
 ;;00038-0141-10