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

BGP63E6.m

Go to the documentation of this file.
  1. BGP63E6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
  1. ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;21,"68180-0411-09 ")
  1. ;;109
  1. ;;21,"68180-0412-06 ")
  1. ;;163
  1. ;;21,"68180-0412-09 ")
  1. ;;164
  1. ;;21,"68180-0413-06 ")
  1. ;;1107
  1. ;;21,"68180-0413-09 ")
  1. ;;1108
  1. ;;21,"68180-0414-06 ")
  1. ;;1137
  1. ;;21,"68180-0414-09 ")
  1. ;;1138
  1. ;;21,"68180-0518-01 ")
  1. ;;1201
  1. ;;21,"68180-0518-02 ")
  1. ;;1202
  1. ;;21,"68180-0519-01 ")
  1. ;;1270
  1. ;;21,"68180-0519-02 ")
  1. ;;1271
  1. ;;21,"68180-0520-01 ")
  1. ;;1332
  1. ;;21,"68180-0520-02 ")
  1. ;;1333
  1. ;;21,"68180-0755-01 ")
  1. ;;749
  1. ;;21,"68180-0756-01 ")
  1. ;;781
  1. ;;21,"68180-0757-01 ")
  1. ;;822
  1. ;;21,"68180-0758-01 ")
  1. ;;719
  1. ;;21,"68180-0759-01 ")
  1. ;;836
  1. ;;21,"68180-0760-01 ")
  1. ;;733
  1. ;;21,"68180-0765-06 ")
  1. ;;875
  1. ;;21,"68180-0771-06 ")
  1. ;;677
  1. ;;21,"68180-0771-09 ")
  1. ;;678
  1. ;;21,"68180-0772-06 ")
  1. ;;646
  1. ;;21,"68180-0772-09 ")
  1. ;;647
  1. ;;21,"68180-0773-06 ")
  1. ;;687
  1. ;;21,"68180-0773-09 ")
  1. ;;688
  1. ;;21,"68180-0774-06 ")
  1. ;;656
  1. ;;21,"68180-0774-09 ")
  1. ;;657
  1. ;;21,"68180-0775-06 ")
  1. ;;667
  1. ;;21,"68180-0775-09 ")
  1. ;;668
  1. ;;21,"68382-0135-01 ")
  1. ;;326
  1. ;;21,"68382-0135-06 ")
  1. ;;327
  1. ;;21,"68382-0135-10 ")
  1. ;;328
  1. ;;21,"68382-0135-16 ")
  1. ;;329
  1. ;;21,"68382-0136-01 ")
  1. ;;413
  1. ;;21,"68382-0136-06 ")
  1. ;;414
  1. ;;21,"68382-0136-10 ")
  1. ;;415
  1. ;;21,"68382-0136-16 ")
  1. ;;416
  1. ;;21,"68382-0137-01 ")
  1. ;;260
  1. ;;21,"68382-0137-06 ")
  1. ;;261
  1. ;;21,"68382-0137-10 ")
  1. ;;262
  1. ;;21,"68382-0137-16 ")
  1. ;;263
  1. ;;21,"68382-0142-06 ")
  1. ;;1431
  1. ;;21,"68382-0142-10 ")
  1. ;;1432
  1. ;;21,"68382-0142-16 ")
  1. ;;1433
  1. ;;21,"68382-0143-06 ")
  1. ;;1486
  1. ;;21,"68382-0143-10 ")
  1. ;;1487
  1. ;;21,"68382-0143-16 ")
  1. ;;1488
  1. ;;21,"68382-0471-78 ")
  1. ;;468
  1. ;;21,"68382-0472-78 ")
  1. ;;485
  1. ;;21,"68382-0473-78 ")
  1. ;;497
  1. ;;21,"68462-0199-13 ")
  1. ;;469
  1. ;;21,"68462-0200-13 ")
  1. ;;486
  1. ;;21,"68462-0201-13 ")
  1. ;;498
  1. ;;21,"68462-0205-01 ")
  1. ;;1513
  1. ;;21,"68462-0206-01 ")
  1. ;;1495
  1. ;;21,"68462-0207-01 ")
  1. ;;1501
  1. ;;21,"68462-0554-01 ")
  1. ;;1068
  1. ;;21,"68462-0555-01 ")
  1. ;;1079
  1. ;;21,"68645-0404-70 ")
  1. ;;110
  1. ;;21,"68645-0405-70 ")
  1. ;;1109
  1. ;;21,"68645-0406-70 ")
  1. ;;330
  1. ;;21,"68645-0407-70 ")
  1. ;;331
  1. ;;21,"68645-0408-70 ")
  1. ;;417
  1. ;;21,"68645-0409-70 ")
  1. ;;418
  1. ;;21,"68645-0410-70 ")
  1. ;;264
  1. ;;21,"68645-0411-70 ")
  1. ;;265
  1. ;;21,"68645-0486-54 ")
  1. ;;419
  1. ;;21,"68645-0494-54 ")
  1. ;;420
  1. ;;21,"68682-0146-01 ")
  1. ;;1031
  1. ;;21,"76439-0140-11 ")
  1. ;;332
  1. ;;21,"76439-0140-90 ")
  1. ;;333
  1. ;;21,"76439-0141-11 ")
  1. ;;421
  1. ;;21,"76439-0141-30 ")
  1. ;;422
  1. ;;21,"76439-0141-90 ")
  1. ;;423
  1. ;;21,"76439-0142-11 ")
  1. ;;266
  1. ;;21,"76439-0142-30 ")
  1. ;;267
  1. ;;21,"76439-0142-90 ")
  1. ;;268
  1. ;;9002226,873,.01)
  1. ;;BGP HEDIS ARB NDC
  1. ;;9002226,873,.02)
  1. ;;@
  1. ;;9002226,873,.04)
  1. ;;n
  1. ;;9002226,873,.06)
  1. ;;@
  1. ;;9002226,873,.08)
  1. ;;@
  1. ;;9002226,873,.09)
  1. ;;3150224
  1. ;;9002226,873,.11)
  1. ;;@
  1. ;;9002226,873,.12)
  1. ;;@
  1. ;;9002226,873,.13)
  1. ;;1
  1. ;;9002226,873,.14)
  1. ;;@
  1. ;;9002226,873,.15)
  1. ;;50.67
  1. ;;9002226,873,.16)
  1. ;;@
  1. ;;9002226,873,.17)
  1. ;;@
  1. ;;9002226,873,3101)
  1. ;;@
  1. ;;9002226.02101,"873,00006-0140-58 ",.01)
  1. ;;00006-0140-58
  1. ;;9002226.02101,"873,00006-0140-58 ",.02)
  1. ;;00006-0140-58
  1. ;;9002226.02101,"873,00006-0142-31 ",.01)
  1. ;;00006-0142-31
  1. ;;9002226.02101,"873,00006-0142-31 ",.02)
  1. ;;00006-0142-31
  1. ;;9002226.02101,"873,00006-0145-58 ",.01)
  1. ;;00006-0145-58
  1. ;;9002226.02101,"873,00006-0145-58 ",.02)
  1. ;;00006-0145-58
  1. ;;9002226.02101,"873,00006-0717-01 ",.01)
  1. ;;00006-0717-01
  1. ;;9002226.02101,"873,00006-0717-01 ",.02)
  1. ;;00006-0717-01
  1. ;;9002226.02101,"873,00006-0717-28 ",.01)
  1. ;;00006-0717-28
  1. ;;9002226.02101,"873,00006-0717-28 ",.02)
  1. ;;00006-0717-28
  1. ;;9002226.02101,"873,00006-0717-31 ",.01)
  1. ;;00006-0717-31
  1. ;;9002226.02101,"873,00006-0717-31 ",.02)
  1. ;;00006-0717-31
  1. ;;9002226.02101,"873,00006-0717-54 ",.01)
  1. ;;00006-0717-54
  1. ;;9002226.02101,"873,00006-0717-54 ",.02)
  1. ;;00006-0717-54
  1. ;;9002226.02101,"873,00006-0717-82 ",.01)
  1. ;;00006-0717-82
  1. ;;9002226.02101,"873,00006-0717-82 ",.02)
  1. ;;00006-0717-82
  1. ;;9002226.02101,"873,00006-0717-86 ",.01)
  1. ;;00006-0717-86
  1. ;;9002226.02101,"873,00006-0717-86 ",.02)
  1. ;;00006-0717-86
  1. ;;9002226.02101,"873,00006-0745-01 ",.01)
  1. ;;00006-0745-01
  1. ;;9002226.02101,"873,00006-0745-01 ",.02)
  1. ;;00006-0745-01
  1. ;;9002226.02101,"873,00006-0745-28 ",.01)
  1. ;;00006-0745-28
  1. ;;9002226.02101,"873,00006-0745-28 ",.02)
  1. ;;00006-0745-28
  1. ;;9002226.02101,"873,00006-0745-31 ",.01)
  1. ;;00006-0745-31
  1. ;;9002226.02101,"873,00006-0745-31 ",.02)
  1. ;;00006-0745-31
  1. ;;9002226.02101,"873,00006-0745-54 ",.01)
  1. ;;00006-0745-54
  1. ;;9002226.02101,"873,00006-0745-54 ",.02)
  1. ;;00006-0745-54
  1. ;;9002226.02101,"873,00006-0745-82 ",.01)
  1. ;;00006-0745-82
  1. ;;9002226.02101,"873,00006-0745-82 ",.02)
  1. ;;00006-0745-82
  1. ;;9002226.02101,"873,00006-0745-86 ",.01)
  1. ;;00006-0745-86
  1. ;;9002226.02101,"873,00006-0745-86 ",.02)
  1. ;;00006-0745-86
  1. ;;9002226.02101,"873,00006-0747-01 ",.01)
  1. ;;00006-0747-01
  1. ;;9002226.02101,"873,00006-0747-01 ",.02)
  1. ;;00006-0747-01
  1. ;;9002226.02101,"873,00006-0747-28 ",.01)
  1. ;;00006-0747-28
  1. ;;9002226.02101,"873,00006-0747-28 ",.02)
  1. ;;00006-0747-28
  1. ;;9002226.02101,"873,00006-0747-31 ",.01)
  1. ;;00006-0747-31
  1. ;;9002226.02101,"873,00006-0747-31 ",.02)
  1. ;;00006-0747-31
  1. ;;9002226.02101,"873,00006-0747-54 ",.01)
  1. ;;00006-0747-54
  1. ;;9002226.02101,"873,00006-0747-54 ",.02)
  1. ;;00006-0747-54
  1. ;;9002226.02101,"873,00006-0747-82 ",.01)
  1. ;;00006-0747-82
  1. ;;9002226.02101,"873,00006-0747-82 ",.02)
  1. ;;00006-0747-82
  1. ;;9002226.02101,"873,00006-0951-01 ",.01)
  1. ;;00006-0951-01
  1. ;;9002226.02101,"873,00006-0951-01 ",.02)
  1. ;;00006-0951-01
  1. ;;9002226.02101,"873,00006-0951-28 ",.01)
  1. ;;00006-0951-28
  1. ;;9002226.02101,"873,00006-0951-28 ",.02)
  1. ;;00006-0951-28
  1. ;;9002226.02101,"873,00006-0951-54 ",.01)
  1. ;;00006-0951-54
  1. ;;9002226.02101,"873,00006-0951-54 ",.02)
  1. ;;00006-0951-54
  1. ;;9002226.02101,"873,00006-0951-82 ",.01)
  1. ;;00006-0951-82
  1. ;;9002226.02101,"873,00006-0951-82 ",.02)
  1. ;;00006-0951-82
  1. ;;9002226.02101,"873,00006-0952-01 ",.01)
  1. ;;00006-0952-01
  1. ;;9002226.02101,"873,00006-0952-01 ",.02)
  1. ;;00006-0952-01
  1. ;;9002226.02101,"873,00006-0952-28 ",.01)
  1. ;;00006-0952-28
  1. ;;9002226.02101,"873,00006-0952-28 ",.02)
  1. ;;00006-0952-28
  1. ;;9002226.02101,"873,00006-0952-31 ",.01)
  1. ;;00006-0952-31
  1. ;;9002226.02101,"873,00006-0952-31 ",.02)
  1. ;;00006-0952-31
  1. ;;9002226.02101,"873,00006-0952-54 ",.01)
  1. ;;00006-0952-54
  1. ;;9002226.02101,"873,00006-0952-54 ",.02)
  1. ;;00006-0952-54
  1. ;;9002226.02101,"873,00006-0952-82 ",.01)
  1. ;;00006-0952-82
  1. ;;9002226.02101,"873,00006-0952-82 ",.02)
  1. ;;00006-0952-82
  1. ;;9002226.02101,"873,00006-0952-87 ",.01)
  1. ;;00006-0952-87
  1. ;;9002226.02101,"873,00006-0952-87 ",.02)
  1. ;;00006-0952-87
  1. ;;9002226.02101,"873,00006-0960-31 ",.01)
  1. ;;00006-0960-31
  1. ;;9002226.02101,"873,00006-0960-31 ",.02)
  1. ;;00006-0960-31
  1. ;;9002226.02101,"873,00006-0960-54 ",.01)
  1. ;;00006-0960-54
  1. ;;9002226.02101,"873,00006-0960-54 ",.02)
  1. ;;00006-0960-54
  1. ;;9002226.02101,"873,00006-0960-82 ",.01)
  1. ;;00006-0960-82
  1. ;;9002226.02101,"873,00006-0960-82 ",.02)
  1. ;;00006-0960-82
  1. ;;9002226.02101,"873,00006-0960-86 ",.01)
  1. ;;00006-0960-86
  1. ;;9002226.02101,"873,00006-0960-86 ",.02)
  1. ;;00006-0960-86
  1. ;;9002226.02101,"873,00024-5850-30 ",.01)
  1. ;;00024-5850-30
  1. ;;9002226.02101,"873,00024-5850-30 ",.02)
  1. ;;00024-5850-30
  1. ;;9002226.02101,"873,00024-5850-90 ",.01)
  1. ;;00024-5850-90
  1. ;;9002226.02101,"873,00024-5850-90 ",.02)
  1. ;;00024-5850-90
  1. ;;9002226.02101,"873,00024-5851-30 ",.01)
  1. ;;00024-5851-30
  1. ;;9002226.02101,"873,00024-5851-30 ",.02)
  1. ;;00024-5851-30
  1. ;;9002226.02101,"873,00024-5851-90 ",.01)
  1. ;;00024-5851-90
  1. ;;9002226.02101,"873,00024-5851-90 ",.02)
  1. ;;00024-5851-90
  1. ;;9002226.02101,"873,00024-5852-30 ",.01)
  1. ;;00024-5852-30
  1. ;;9002226.02101,"873,00024-5852-30 ",.02)
  1. ;;00024-5852-30
  1. ;;9002226.02101,"873,00024-5852-90 ",.01)
  1. ;;00024-5852-90
  1. ;;9002226.02101,"873,00024-5852-90 ",.02)
  1. ;;00024-5852-90
  1. ;;9002226.02101,"873,00024-5855-30 ",.01)
  1. ;;00024-5855-30
  1. ;;9002226.02101,"873,00024-5855-30 ",.02)
  1. ;;00024-5855-30
  1. ;;9002226.02101,"873,00024-5855-90 ",.01)
  1. ;;00024-5855-90
  1. ;;9002226.02101,"873,00024-5855-90 ",.02)
  1. ;;00024-5855-90
  1. ;;9002226.02101,"873,00024-5856-30 ",.01)
  1. ;;00024-5856-30
  1. ;;9002226.02101,"873,00024-5856-30 ",.02)
  1. ;;00024-5856-30
  1. ;;9002226.02101,"873,00024-5856-90 ",.01)
  1. ;;00024-5856-90
  1. ;;9002226.02101,"873,00024-5856-90 ",.02)
  1. ;;00024-5856-90
  1. ;;9002226.02101,"873,00054-0123-22 ",.01)
  1. ;;00054-0123-22
  1. ;;9002226.02101,"873,00054-0123-22 ",.02)
  1. ;;00054-0123-22
  1. ;;9002226.02101,"873,00054-0124-22 ",.01)
  1. ;;00054-0124-22
  1. ;;9002226.02101,"873,00054-0124-22 ",.02)
  1. ;;00054-0124-22
  1. ;;9002226.02101,"873,00054-0125-22 ",.01)
  1. ;;00054-0125-22
  1. ;;9002226.02101,"873,00054-0125-22 ",.02)
  1. ;;00054-0125-22
  1. ;;9002226.02101,"873,00054-0126-22 ",.01)
  1. ;;00054-0126-22
  1. ;;9002226.02101,"873,00054-0126-22 ",.02)
  1. ;;00054-0126-22
  1. ;;9002226.02101,"873,00054-0127-22 ",.01)
  1. ;;00054-0127-22
  1. ;;9002226.02101,"873,00054-0127-22 ",.02)
  1. ;;00054-0127-22
  1. ;;9002226.02101,"873,00054-0250-13 ",.01)
  1. ;;00054-0250-13
  1. ;;9002226.02101,"873,00054-0250-13 ",.02)
  1. ;;00054-0250-13
  1. ;;9002226.02101,"873,00054-0250-22 ",.01)
  1. ;;00054-0250-22
  1. ;;9002226.02101,"873,00054-0250-22 ",.02)
  1. ;;00054-0250-22
  1. ;;9002226.02101,"873,00054-0251-13 ",.01)
  1. ;;00054-0251-13
  1. ;;9002226.02101,"873,00054-0251-13 ",.02)
  1. ;;00054-0251-13
  1. ;;9002226.02101,"873,00054-0251-22 ",.01)
  1. ;;00054-0251-22
  1. ;;9002226.02101,"873,00054-0251-22 ",.02)
  1. ;;00054-0251-22
  1. ;;9002226.02101,"873,00054-0252-13 ",.01)
  1. ;;00054-0252-13
  1. ;;9002226.02101,"873,00054-0252-13 ",.02)
  1. ;;00054-0252-13
  1. ;;9002226.02101,"873,00054-0252-22 ",.01)
  1. ;;00054-0252-22
  1. ;;9002226.02101,"873,00054-0252-22 ",.02)
  1. ;;00054-0252-22
  1. ;;9002226.02101,"873,00054-0254-13 ",.01)
  1. ;;00054-0254-13
  1. ;;9002226.02101,"873,00054-0254-13 ",.02)
  1. ;;00054-0254-13
  1. ;;9002226.02101,"873,00054-0254-22 ",.01)
  1. ;;00054-0254-22
  1. ;;9002226.02101,"873,00054-0254-22 ",.02)
  1. ;;00054-0254-22
  1. ;;9002226.02101,"873,00054-0255-13 ",.01)
  1. ;;00054-0255-13
  1. ;;9002226.02101,"873,00054-0255-13 ",.02)
  1. ;;00054-0255-13
  1. ;;9002226.02101,"873,00054-0255-22 ",.01)
  1. ;;00054-0255-22
  1. ;;9002226.02101,"873,00054-0255-22 ",.02)
  1. ;;00054-0255-22
  1. ;;9002226.02101,"873,00054-0277-22 ",.01)
  1. ;;00054-0277-22
  1. ;;9002226.02101,"873,00054-0277-22 ",.02)
  1. ;;00054-0277-22
  1. ;;9002226.02101,"873,00054-0542-18 ",.01)
  1. ;;00054-0542-18
  1. ;;9002226.02101,"873,00054-0542-18 ",.02)
  1. ;;00054-0542-18
  1. ;;9002226.02101,"873,00054-0543-18 ",.01)
  1. ;;00054-0543-18
  1. ;;9002226.02101,"873,00054-0543-18 ",.02)
  1. ;;00054-0543-18
  1. ;;9002226.02101,"873,00054-0544-18 ",.01)
  1. ;;00054-0544-18
  1. ;;9002226.02101,"873,00054-0544-18 ",.02)
  1. ;;00054-0544-18
  1. ;;9002226.02101,"873,00054-0545-18 ",.01)
  1. ;;00054-0545-18
  1. ;;9002226.02101,"873,00054-0545-18 ",.02)
  1. ;;00054-0545-18
  1. ;;9002226.02101,"873,00054-0546-18 ",.01)
  1. ;;00054-0546-18
  1. ;;9002226.02101,"873,00054-0546-18 ",.02)
  1. ;;00054-0546-18
  1. ;;9002226.02101,"873,00054-0547-18 ",.01)
  1. ;;00054-0547-18
  1. ;;9002226.02101,"873,00054-0547-18 ",.02)
  1. ;;00054-0547-18
  1. ;;9002226.02101,"873,00071-0220-23 ",.01)
  1. ;;00071-0220-23
  1. ;;9002226.02101,"873,00071-0220-23 ",.02)
  1. ;;00071-0220-23
  1. ;;9002226.02101,"873,00071-0222-23 ",.01)
  1. ;;00071-0222-23
  1. ;;9002226.02101,"873,00071-0222-23 ",.02)
  1. ;;00071-0222-23
  1. ;;9002226.02101,"873,00071-0223-23 ",.01)
  1. ;;00071-0223-23
  1. ;;9002226.02101,"873,00071-0223-23 ",.02)
  1. ;;00071-0223-23
  1. ;;9002226.02101,"873,00074-3015-11 ",.01)
  1. ;;00074-3015-11
  1. ;;9002226.02101,"873,00074-3015-11 ",.02)
  1. ;;00074-3015-11
  1. ;;9002226.02101,"873,00074-3020-11 ",.01)
  1. ;;00074-3020-11