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

BGP05W7.m

Go to the documentation of this file.
BGP05W7 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"68115-0824-00 ")
 ;;2339
 ;;21,"68115-0889-90 ")
 ;;2340
 ;;21,"68180-0512-01 ")
 ;;2341
 ;;21,"68180-0512-02 ")
 ;;2342
 ;;21,"68180-0513-01 ")
 ;;2343
 ;;21,"68180-0513-03 ")
 ;;2344
 ;;21,"68180-0514-00 ")
 ;;2345
 ;;21,"68180-0514-01 ")
 ;;2346
 ;;21,"68180-0514-03 ")
 ;;2347
 ;;21,"68180-0515-01 ")
 ;;2348
 ;;21,"68180-0515-03 ")
 ;;2349
 ;;21,"68180-0516-01 ")
 ;;2350
 ;;21,"68180-0516-02 ")
 ;;2351
 ;;21,"68180-0517-01 ")
 ;;2352
 ;;21,"68180-0517-03 ")
 ;;2353
 ;;21,"68180-0518-01 ")
 ;;2354
 ;;21,"68180-0518-02 ")
 ;;2355
 ;;21,"68180-0519-01 ")
 ;;2356
 ;;21,"68180-0519-02 ")
 ;;2357
 ;;21,"68180-0520-01 ")
 ;;2358
 ;;21,"68180-0520-02 ")
 ;;2359
 ;;21,"68180-0556-09 ")
 ;;2360
 ;;21,"68180-0557-09 ")
 ;;2361
 ;;21,"68180-0558-09 ")
 ;;2362
 ;;21,"68180-0559-09 ")
 ;;2363
 ;;21,"68180-0566-01 ")
 ;;2364
 ;;21,"68180-0567-01 ")
 ;;2365
 ;;21,"68180-0568-01 ")
 ;;2366
 ;;21,"68180-0588-01 ")
 ;;2367
 ;;21,"68180-0589-01 ")
 ;;2368
 ;;21,"68180-0589-02 ")
 ;;2369
 ;;21,"68180-0590-01 ")
 ;;2370
 ;;21,"68180-0590-02 ")
 ;;2371
 ;;21,"68180-0591-01 ")
 ;;2372
 ;;21,"68180-0591-02 ")
 ;;2373
 ;;21,"68387-0543-30 ")
 ;;2374
 ;;21,"68462-0367-10 ")
 ;;2375
 ;;21,"68462-0367-90 ")
 ;;2376
 ;;21,"68462-0368-10 ")
 ;;2377
 ;;21,"68462-0368-90 ")
 ;;2378
 ;;21,"68462-0369-10 ")
 ;;2379
 ;;21,"68462-0369-90 ")
 ;;2380
 ;;21,"68462-0554-01 ")
 ;;2381
 ;;21,"68462-0555-01 ")
 ;;2382
 ;;21,"68505-2510-02 ")
 ;;2383
 ;;21,"68505-2510-04 ")
 ;;2384
 ;;21,"68552-0221-10 ")
 ;;2385
 ;;21,"68552-0221-90 ")
 ;;2386
 ;;21,"68552-0222-10 ")
 ;;2387
 ;;21,"68552-0222-90 ")
 ;;2388
 ;;21,"68552-0223-10 ")
 ;;2389
 ;;21,"68552-0223-90 ")
 ;;2390
 ;;9002226,979,.01)
 ;;BGP HEDIS ACEI NDC
 ;;9002226,979,.02)
 ;;@
 ;;9002226,979,.04)
 ;;n
 ;;9002226,979,.06)
 ;;@
 ;;9002226,979,.08)
 ;;@
 ;;9002226,979,.09)
 ;;@
 ;;9002226,979,.11)
 ;;@
 ;;9002226,979,.12)
 ;;@
 ;;9002226,979,.13)
 ;;1
 ;;9002226,979,.14)
 ;;@
 ;;9002226,979,.15)
 ;;@
 ;;9002226,979,.16)
 ;;@
 ;;9002226,979,.17)
 ;;@
 ;;9002226,979,3101)
 ;;@
 ;;9002226.02101,"979,00003-0338-50 ",.01)
 ;;00003-0338-50
 ;;9002226.02101,"979,00003-0338-50 ",.02)
 ;;00003-0338-50
 ;;9002226.02101,"979,00003-0450-51 ",.01)
 ;;00003-0450-51
 ;;9002226.02101,"979,00003-0450-51 ",.02)
 ;;00003-0450-51
 ;;9002226.02101,"979,00003-0450-54 ",.01)
 ;;00003-0450-54
 ;;9002226.02101,"979,00003-0450-54 ",.02)
 ;;00003-0450-54
 ;;9002226.02101,"979,00003-0450-75 ",.01)
 ;;00003-0450-75
 ;;9002226.02101,"979,00003-0450-75 ",.02)
 ;;00003-0450-75
 ;;9002226.02101,"979,00003-0452-50 ",.01)
 ;;00003-0452-50
 ;;9002226.02101,"979,00003-0452-50 ",.02)
 ;;00003-0452-50
 ;;9002226.02101,"979,00003-0452-51 ",.01)
 ;;00003-0452-51
 ;;9002226.02101,"979,00003-0452-51 ",.02)
 ;;00003-0452-51
 ;;9002226.02101,"979,00003-0452-75 ",.01)
 ;;00003-0452-75
 ;;9002226.02101,"979,00003-0452-75 ",.02)
 ;;00003-0452-75
 ;;9002226.02101,"979,00003-0482-50 ",.01)
 ;;00003-0482-50
 ;;9002226.02101,"979,00003-0482-50 ",.02)
 ;;00003-0482-50
 ;;9002226.02101,"979,00003-0482-51 ",.01)
 ;;00003-0482-51
 ;;9002226.02101,"979,00003-0482-51 ",.02)
 ;;00003-0482-51
 ;;9002226.02101,"979,00003-0482-75 ",.01)
 ;;00003-0482-75
 ;;9002226.02101,"979,00003-0482-75 ",.02)
 ;;00003-0482-75
 ;;9002226.02101,"979,00003-0485-50 ",.01)
 ;;00003-0485-50
 ;;9002226.02101,"979,00003-0485-50 ",.02)
 ;;00003-0485-50
 ;;9002226.02101,"979,00006-0014-68 ",.01)
 ;;00006-0014-68
 ;;9002226.02101,"979,00006-0014-68 ",.02)
 ;;00006-0014-68
 ;;9002226.02101,"979,00006-0014-82 ",.01)
 ;;00006-0014-82
 ;;9002226.02101,"979,00006-0014-82 ",.02)
 ;;00006-0014-82
 ;;9002226.02101,"979,00006-0014-87 ",.01)
 ;;00006-0014-87
 ;;9002226.02101,"979,00006-0014-87 ",.02)
 ;;00006-0014-87
 ;;9002226.02101,"979,00006-0014-94 ",.01)
 ;;00006-0014-94
 ;;9002226.02101,"979,00006-0014-94 ",.02)
 ;;00006-0014-94
 ;;9002226.02101,"979,00006-0015-28 ",.01)
 ;;00006-0015-28
 ;;9002226.02101,"979,00006-0015-28 ",.02)
 ;;00006-0015-28
 ;;9002226.02101,"979,00006-0015-31 ",.01)
 ;;00006-0015-31
 ;;9002226.02101,"979,00006-0015-31 ",.02)
 ;;00006-0015-31
 ;;9002226.02101,"979,00006-0015-58 ",.01)
 ;;00006-0015-58
 ;;9002226.02101,"979,00006-0015-58 ",.02)
 ;;00006-0015-58
 ;;9002226.02101,"979,00006-0019-28 ",.01)
 ;;00006-0019-28
 ;;9002226.02101,"979,00006-0019-28 ",.02)
 ;;00006-0019-28
 ;;9002226.02101,"979,00006-0019-54 ",.01)
 ;;00006-0019-54
 ;;9002226.02101,"979,00006-0019-54 ",.02)
 ;;00006-0019-54
 ;;9002226.02101,"979,00006-0019-58 ",.01)
 ;;00006-0019-58
 ;;9002226.02101,"979,00006-0019-58 ",.02)
 ;;00006-0019-58
 ;;9002226.02101,"979,00006-0019-72 ",.01)
 ;;00006-0019-72
 ;;9002226.02101,"979,00006-0019-72 ",.02)
 ;;00006-0019-72
 ;;9002226.02101,"979,00006-0019-82 ",.01)
 ;;00006-0019-82
 ;;9002226.02101,"979,00006-0019-82 ",.02)
 ;;00006-0019-82
 ;;9002226.02101,"979,00006-0019-87 ",.01)
 ;;00006-0019-87
 ;;9002226.02101,"979,00006-0019-87 ",.02)
 ;;00006-0019-87
 ;;9002226.02101,"979,00006-0019-94 ",.01)
 ;;00006-0019-94
 ;;9002226.02101,"979,00006-0019-94 ",.02)
 ;;00006-0019-94
 ;;9002226.02101,"979,00006-0106-28 ",.01)
 ;;00006-0106-28
 ;;9002226.02101,"979,00006-0106-28 ",.02)
 ;;00006-0106-28
 ;;9002226.02101,"979,00006-0106-31 ",.01)
 ;;00006-0106-31
 ;;9002226.02101,"979,00006-0106-31 ",.02)
 ;;00006-0106-31
 ;;9002226.02101,"979,00006-0106-54 ",.01)
 ;;00006-0106-54
 ;;9002226.02101,"979,00006-0106-54 ",.02)
 ;;00006-0106-54
 ;;9002226.02101,"979,00006-0106-58 ",.01)
 ;;00006-0106-58
 ;;9002226.02101,"979,00006-0106-58 ",.02)
 ;;00006-0106-58
 ;;9002226.02101,"979,00006-0106-72 ",.01)
 ;;00006-0106-72
 ;;9002226.02101,"979,00006-0106-72 ",.02)
 ;;00006-0106-72
 ;;9002226.02101,"979,00006-0106-82 ",.01)
 ;;00006-0106-82
 ;;9002226.02101,"979,00006-0106-82 ",.02)
 ;;00006-0106-82
 ;;9002226.02101,"979,00006-0106-86 ",.01)
 ;;00006-0106-86
 ;;9002226.02101,"979,00006-0106-86 ",.02)
 ;;00006-0106-86
 ;;9002226.02101,"979,00006-0106-87 ",.01)
 ;;00006-0106-87
 ;;9002226.02101,"979,00006-0106-87 ",.02)
 ;;00006-0106-87
 ;;9002226.02101,"979,00006-0106-94 ",.01)
 ;;00006-0106-94
 ;;9002226.02101,"979,00006-0106-94 ",.02)
 ;;00006-0106-94
 ;;9002226.02101,"979,00006-0140-31 ",.01)
 ;;00006-0140-31
 ;;9002226.02101,"979,00006-0140-31 ",.02)
 ;;00006-0140-31
 ;;9002226.02101,"979,00006-0140-58 ",.01)
 ;;00006-0140-58
 ;;9002226.02101,"979,00006-0140-58 ",.02)
 ;;00006-0140-58
 ;;9002226.02101,"979,00006-0142-31 ",.01)
 ;;00006-0142-31
 ;;9002226.02101,"979,00006-0142-31 ",.02)
 ;;00006-0142-31
 ;;9002226.02101,"979,00006-0142-58 ",.01)
 ;;00006-0142-58
 ;;9002226.02101,"979,00006-0142-58 ",.02)
 ;;00006-0142-58
 ;;9002226.02101,"979,00006-0145-31 ",.01)
 ;;00006-0145-31
 ;;9002226.02101,"979,00006-0145-31 ",.02)
 ;;00006-0145-31
 ;;9002226.02101,"979,00006-0145-58 ",.01)
 ;;00006-0145-58
 ;;9002226.02101,"979,00006-0145-58 ",.02)
 ;;00006-0145-58
 ;;9002226.02101,"979,00006-0173-68 ",.01)
 ;;00006-0173-68
 ;;9002226.02101,"979,00006-0173-68 ",.02)
 ;;00006-0173-68
 ;;9002226.02101,"979,00006-0207-28 ",.01)
 ;;00006-0207-28
 ;;9002226.02101,"979,00006-0207-28 ",.02)
 ;;00006-0207-28
 ;;9002226.02101,"979,00006-0207-31 ",.01)
 ;;00006-0207-31
 ;;9002226.02101,"979,00006-0207-31 ",.02)
 ;;00006-0207-31
 ;;9002226.02101,"979,00006-0207-54 ",.01)
 ;;00006-0207-54
 ;;9002226.02101,"979,00006-0207-54 ",.02)
 ;;00006-0207-54
 ;;9002226.02101,"979,00006-0207-58 ",.01)
 ;;00006-0207-58
 ;;9002226.02101,"979,00006-0207-58 ",.02)
 ;;00006-0207-58
 ;;9002226.02101,"979,00006-0207-72 ",.01)
 ;;00006-0207-72
 ;;9002226.02101,"979,00006-0207-72 ",.02)
 ;;00006-0207-72
 ;;9002226.02101,"979,00006-0207-82 ",.01)
 ;;00006-0207-82
 ;;9002226.02101,"979,00006-0207-82 ",.02)
 ;;00006-0207-82
 ;;9002226.02101,"979,00006-0207-86 ",.01)
 ;;00006-0207-86
 ;;9002226.02101,"979,00006-0207-86 ",.02)
 ;;00006-0207-86
 ;;9002226.02101,"979,00006-0207-87 ",.01)
 ;;00006-0207-87
 ;;9002226.02101,"979,00006-0207-87 ",.02)
 ;;00006-0207-87
 ;;9002226.02101,"979,00006-0207-94 ",.01)
 ;;00006-0207-94
 ;;9002226.02101,"979,00006-0207-94 ",.02)
 ;;00006-0207-94
 ;;9002226.02101,"979,00006-0237-58 ",.01)
 ;;00006-0237-58
 ;;9002226.02101,"979,00006-0237-58 ",.02)
 ;;00006-0237-58
 ;;9002226.02101,"979,00006-0712-68 ",.01)
 ;;00006-0712-68
 ;;9002226.02101,"979,00006-0712-68 ",.02)
 ;;00006-0712-68
 ;;9002226.02101,"979,00006-0712-82 ",.01)
 ;;00006-0712-82
 ;;9002226.02101,"979,00006-0712-82 ",.02)
 ;;00006-0712-82
 ;;9002226.02101,"979,00006-0712-87 ",.01)
 ;;00006-0712-87
 ;;9002226.02101,"979,00006-0712-87 ",.02)
 ;;00006-0712-87
 ;;9002226.02101,"979,00006-0712-94 ",.01)
 ;;00006-0712-94
 ;;9002226.02101,"979,00006-0712-94 ",.02)
 ;;00006-0712-94
 ;;9002226.02101,"979,00006-0713-68 ",.01)
 ;;00006-0713-68
 ;;9002226.02101,"979,00006-0713-68 ",.02)
 ;;00006-0713-68
 ;;9002226.02101,"979,00006-0713-82 ",.01)
 ;;00006-0713-82
 ;;9002226.02101,"979,00006-0713-82 ",.02)
 ;;00006-0713-82
 ;;9002226.02101,"979,00006-0713-87 ",.01)
 ;;00006-0713-87
 ;;9002226.02101,"979,00006-0713-87 ",.02)
 ;;00006-0713-87
 ;;9002226.02101,"979,00006-0713-94 ",.01)
 ;;00006-0713-94
 ;;9002226.02101,"979,00006-0713-94 ",.02)
 ;;00006-0713-94
 ;;9002226.02101,"979,00006-0714-82 ",.01)
 ;;00006-0714-82
 ;;9002226.02101,"979,00006-0714-82 ",.02)
 ;;00006-0714-82
 ;;9002226.02101,"979,00006-0720-68 ",.01)
 ;;00006-0720-68
 ;;9002226.02101,"979,00006-0720-68 ",.02)
 ;;00006-0720-68
 ;;9002226.02101,"979,00032-1101-01 ",.01)
 ;;00032-1101-01
 ;;9002226.02101,"979,00032-1101-01 ",.02)
 ;;00032-1101-01
 ;;9002226.02101,"979,00032-1102-01 ",.01)
 ;;00032-1102-01
 ;;9002226.02101,"979,00032-1102-01 ",.02)
 ;;00032-1102-01
 ;;9002226.02101,"979,00032-1103-01 ",.01)
 ;;00032-1103-01
 ;;9002226.02101,"979,00032-1103-01 ",.02)
 ;;00032-1103-01
 ;;9002226.02101,"979,00038-0130-10 ",.01)
 ;;00038-0130-10
 ;;9002226.02101,"979,00038-0130-10 ",.02)
 ;;00038-0130-10
 ;;9002226.02101,"979,00038-0130-34 ",.01)
 ;;00038-0130-34
 ;;9002226.02101,"979,00038-0130-34 ",.02)
 ;;00038-0130-34
 ;;9002226.02101,"979,00038-0130-39 ",.01)
 ;;00038-0130-39
 ;;9002226.02101,"979,00038-0130-39 ",.02)
 ;;00038-0130-39
 ;;9002226.02101,"979,00038-0131-10 ",.01)
 ;;00038-0131-10
 ;;9002226.02101,"979,00038-0131-10 ",.02)
 ;;00038-0131-10
 ;;9002226.02101,"979,00038-0131-34 ",.01)
 ;;00038-0131-34
 ;;9002226.02101,"979,00038-0131-34 ",.02)
 ;;00038-0131-34
 ;;9002226.02101,"979,00038-0131-39 ",.01)
 ;;00038-0131-39
 ;;9002226.02101,"979,00038-0131-39 ",.02)
 ;;00038-0131-39
 ;;9002226.02101,"979,00038-0132-10 ",.01)
 ;;00038-0132-10
 ;;9002226.02101,"979,00038-0132-10 ",.02)
 ;;00038-0132-10
 ;;9002226.02101,"979,00038-0132-34 ",.01)
 ;;00038-0132-34
 ;;9002226.02101,"979,00038-0132-34 ",.02)
 ;;00038-0132-34
 ;;9002226.02101,"979,00038-0132-39 ",.01)
 ;;00038-0132-39
 ;;9002226.02101,"979,00038-0132-39 ",.02)
 ;;00038-0132-39
 ;;9002226.02101,"979,00038-0134-10 ",.01)
 ;;00038-0134-10
 ;;9002226.02101,"979,00038-0134-10 ",.02)
 ;;00038-0134-10
 ;;9002226.02101,"979,00038-0141-10 ",.01)
 ;;00038-0141-10
 ;;9002226.02101,"979,00038-0141-10 ",.02)
 ;;00038-0141-10
 ;;9002226.02101,"979,00038-0142-10 ",.01)
 ;;00038-0142-10
 ;;9002226.02101,"979,00038-0142-10 ",.02)
 ;;00038-0142-10
 ;;9002226.02101,"979,00038-0145-10 ",.01)
 ;;00038-0145-10
 ;;9002226.02101,"979,00038-0145-10 ",.02)
 ;;00038-0145-10
 ;;9002226.02101,"979,00048-5805-01 ",.01)
 ;;00048-5805-01
 ;;9002226.02101,"979,00048-5805-01 ",.02)
 ;;00048-5805-01
 ;;9002226.02101,"979,00048-5805-41 ",.01)
 ;;00048-5805-41
 ;;9002226.02101,"979,00048-5805-41 ",.02)
 ;;00048-5805-41
 ;;9002226.02101,"979,00048-5806-01 ",.01)
 ;;00048-5806-01
 ;;9002226.02101,"979,00048-5806-01 ",.02)
 ;;00048-5806-01
 ;;9002226.02101,"979,00048-5806-41 ",.01)
 ;;00048-5806-41
 ;;9002226.02101,"979,00048-5806-41 ",.02)
 ;;00048-5806-41
 ;;9002226.02101,"979,00048-5807-01 ",.01)
 ;;00048-5807-01
 ;;9002226.02101,"979,00048-5807-01 ",.02)
 ;;00048-5807-01
 ;;9002226.02101,"979,00048-5807-41 ",.01)
 ;;00048-5807-41
 ;;9002226.02101,"979,00048-5807-41 ",.02)
 ;;00048-5807-41
 ;;9002226.02101,"979,00048-5921-80 ",.01)
 ;;00048-5921-80
 ;;9002226.02101,"979,00048-5921-80 ",.02)
 ;;00048-5921-80
 ;;9002226.02101,"979,00048-5922-40 ",.01)
 ;;00048-5922-40
 ;;9002226.02101,"979,00048-5922-40 ",.02)
 ;;00048-5922-40
 ;;9002226.02101,"979,00048-5942-40 ",.01)
 ;;00048-5942-40
 ;;9002226.02101,"979,00048-5942-40 ",.02)
 ;;00048-5942-40
 ;;9002226.02101,"979,00054-0106-25 ",.01)
 ;;00054-0106-25
 ;;9002226.02101,"979,00054-0106-25 ",.02)
 ;;00054-0106-25
 ;;9002226.02101,"979,00054-0107-20 ",.01)
 ;;00054-0107-20
 ;;9002226.02101,"979,00054-0107-20 ",.02)
 ;;00054-0107-20
 ;;9002226.02101,"979,00054-0107-25 ",.01)
 ;;00054-0107-25
 ;;9002226.02101,"979,00054-0107-25 ",.02)
 ;;00054-0107-25
 ;;9002226.02101,"979,00054-0107-29 ",.01)
 ;;00054-0107-29
 ;;9002226.02101,"979,00054-0107-29 ",.02)
 ;;00054-0107-29
 ;;9002226.02101,"979,00054-0108-20 ",.01)
 ;;00054-0108-20
 ;;9002226.02101,"979,00054-0108-20 ",.02)
 ;;00054-0108-20
 ;;9002226.02101,"979,00054-0108-25 ",.01)
 ;;00054-0108-25
 ;;9002226.02101,"979,00054-0108-25 ",.02)
 ;;00054-0108-25
 ;;9002226.02101,"979,00054-0108-29 ",.01)
 ;;00054-0108-29
 ;;9002226.02101,"979,00054-0108-29 ",.02)
 ;;00054-0108-29