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