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

BGP06F2.m

Go to the documentation of this file.
BGP06F2 ;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,"65597-0112-90 ")
 ;;395
 ;;21,"65597-0113-10 ")
 ;;396
 ;;21,"65597-0113-30 ")
 ;;397
 ;;21,"65597-0113-90 ")
 ;;398
 ;;21,"66105-0503-01 ")
 ;;399
 ;;21,"66105-0503-03 ")
 ;;400
 ;;21,"66105-0503-06 ")
 ;;401
 ;;21,"66105-0503-09 ")
 ;;402
 ;;21,"66105-0503-15 ")
 ;;403
 ;;21,"66105-0504-01 ")
 ;;404
 ;;21,"66105-0504-03 ")
 ;;405
 ;;21,"66105-0504-06 ")
 ;;406
 ;;21,"66105-0504-09 ")
 ;;407
 ;;21,"66105-0504-15 ")
 ;;408
 ;;21,"66105-0544-09 ")
 ;;409
 ;;21,"66105-0545-01 ")
 ;;410
 ;;21,"66105-0545-03 ")
 ;;411
 ;;21,"66105-0545-06 ")
 ;;412
 ;;21,"66105-0545-09 ")
 ;;413
 ;;21,"66105-0545-10 ")
 ;;414
 ;;21,"66105-0552-10 ")
 ;;415
 ;;21,"66105-0553-10 ")
 ;;416
 ;;21,"66105-0842-03 ")
 ;;417
 ;;21,"66105-0842-06 ")
 ;;418
 ;;21,"66105-0842-09 ")
 ;;419
 ;;21,"66105-0842-10 ")
 ;;420
 ;;21,"66105-0842-28 ")
 ;;421
 ;;21,"66336-0169-30 ")
 ;;422
 ;;21,"66336-0387-30 ")
 ;;423
 ;;21,"68115-0669-00 ")
 ;;424
 ;;21,"68115-0669-90 ")
 ;;425
 ;;21,"68115-0703-30 ")
 ;;426
 ;;21,"68115-0703-90 ")
 ;;427
 ;;21,"68115-0733-00 ")
 ;;428
 ;;21,"68115-0733-30 ")
 ;;429
 ;;21,"68115-0733-90 ")
 ;;430
 ;;21,"68115-0854-00 ")
 ;;431
 ;;21,"68115-0854-90 ")
 ;;432
 ;;21,"68115-0865-30 ")
 ;;433
 ;;9002226,980,.01)
 ;;BGP HEDIS ARB NDC
 ;;9002226,980,.02)
 ;;@
 ;;9002226,980,.04)
 ;;n
 ;;9002226,980,.06)
 ;;@
 ;;9002226,980,.08)
 ;;@
 ;;9002226,980,.09)
 ;;@
 ;;9002226,980,.11)
 ;;@
 ;;9002226,980,.12)
 ;;@
 ;;9002226,980,.13)
 ;;1
 ;;9002226,980,.14)
 ;;@
 ;;9002226,980,.15)
 ;;@
 ;;9002226,980,.16)
 ;;@
 ;;9002226,980,.17)
 ;;@
 ;;9002226,980,3101)
 ;;@
 ;;9002226.02101,"980,00006-0717-01 ",.01)
 ;;00006-0717-01
 ;;9002226.02101,"980,00006-0717-01 ",.02)
 ;;00006-0717-01
 ;;9002226.02101,"980,00006-0717-28 ",.01)
 ;;00006-0717-28
 ;;9002226.02101,"980,00006-0717-28 ",.02)
 ;;00006-0717-28
 ;;9002226.02101,"980,00006-0717-31 ",.01)
 ;;00006-0717-31
 ;;9002226.02101,"980,00006-0717-31 ",.02)
 ;;00006-0717-31
 ;;9002226.02101,"980,00006-0717-54 ",.01)
 ;;00006-0717-54
 ;;9002226.02101,"980,00006-0717-54 ",.02)
 ;;00006-0717-54
 ;;9002226.02101,"980,00006-0717-58 ",.01)
 ;;00006-0717-58
 ;;9002226.02101,"980,00006-0717-58 ",.02)
 ;;00006-0717-58
 ;;9002226.02101,"980,00006-0717-82 ",.01)
 ;;00006-0717-82
 ;;9002226.02101,"980,00006-0717-82 ",.02)
 ;;00006-0717-82
 ;;9002226.02101,"980,00006-0717-86 ",.01)
 ;;00006-0717-86
 ;;9002226.02101,"980,00006-0717-86 ",.02)
 ;;00006-0717-86
 ;;9002226.02101,"980,00006-0745-01 ",.01)
 ;;00006-0745-01
 ;;9002226.02101,"980,00006-0745-01 ",.02)
 ;;00006-0745-01
 ;;9002226.02101,"980,00006-0745-28 ",.01)
 ;;00006-0745-28
 ;;9002226.02101,"980,00006-0745-28 ",.02)
 ;;00006-0745-28
 ;;9002226.02101,"980,00006-0745-31 ",.01)
 ;;00006-0745-31
 ;;9002226.02101,"980,00006-0745-31 ",.02)
 ;;00006-0745-31
 ;;9002226.02101,"980,00006-0745-54 ",.01)
 ;;00006-0745-54
 ;;9002226.02101,"980,00006-0745-54 ",.02)
 ;;00006-0745-54
 ;;9002226.02101,"980,00006-0745-82 ",.01)
 ;;00006-0745-82
 ;;9002226.02101,"980,00006-0745-82 ",.02)
 ;;00006-0745-82
 ;;9002226.02101,"980,00006-0745-86 ",.01)
 ;;00006-0745-86
 ;;9002226.02101,"980,00006-0745-86 ",.02)
 ;;00006-0745-86
 ;;9002226.02101,"980,00006-0747-01 ",.01)
 ;;00006-0747-01
 ;;9002226.02101,"980,00006-0747-01 ",.02)
 ;;00006-0747-01
 ;;9002226.02101,"980,00006-0747-28 ",.01)
 ;;00006-0747-28
 ;;9002226.02101,"980,00006-0747-28 ",.02)
 ;;00006-0747-28
 ;;9002226.02101,"980,00006-0747-31 ",.01)
 ;;00006-0747-31
 ;;9002226.02101,"980,00006-0747-31 ",.02)
 ;;00006-0747-31
 ;;9002226.02101,"980,00006-0747-54 ",.01)
 ;;00006-0747-54
 ;;9002226.02101,"980,00006-0747-54 ",.02)
 ;;00006-0747-54
 ;;9002226.02101,"980,00006-0747-58 ",.01)
 ;;00006-0747-58
 ;;9002226.02101,"980,00006-0747-58 ",.02)
 ;;00006-0747-58
 ;;9002226.02101,"980,00006-0747-81 ",.01)
 ;;00006-0747-81
 ;;9002226.02101,"980,00006-0747-81 ",.02)
 ;;00006-0747-81
 ;;9002226.02101,"980,00006-0747-82 ",.01)
 ;;00006-0747-82
 ;;9002226.02101,"980,00006-0747-82 ",.02)
 ;;00006-0747-82
 ;;9002226.02101,"980,00006-0951-01 ",.01)
 ;;00006-0951-01
 ;;9002226.02101,"980,00006-0951-01 ",.02)
 ;;00006-0951-01
 ;;9002226.02101,"980,00006-0951-28 ",.01)
 ;;00006-0951-28
 ;;9002226.02101,"980,00006-0951-28 ",.02)
 ;;00006-0951-28
 ;;9002226.02101,"980,00006-0951-54 ",.01)
 ;;00006-0951-54
 ;;9002226.02101,"980,00006-0951-54 ",.02)
 ;;00006-0951-54
 ;;9002226.02101,"980,00006-0951-58 ",.01)
 ;;00006-0951-58
 ;;9002226.02101,"980,00006-0951-58 ",.02)
 ;;00006-0951-58
 ;;9002226.02101,"980,00006-0951-82 ",.01)
 ;;00006-0951-82
 ;;9002226.02101,"980,00006-0951-82 ",.02)
 ;;00006-0951-82
 ;;9002226.02101,"980,00006-0951-87 ",.01)
 ;;00006-0951-87
 ;;9002226.02101,"980,00006-0951-87 ",.02)
 ;;00006-0951-87
 ;;9002226.02101,"980,00006-0952-01 ",.01)
 ;;00006-0952-01
 ;;9002226.02101,"980,00006-0952-01 ",.02)
 ;;00006-0952-01
 ;;9002226.02101,"980,00006-0952-28 ",.01)
 ;;00006-0952-28
 ;;9002226.02101,"980,00006-0952-28 ",.02)
 ;;00006-0952-28
 ;;9002226.02101,"980,00006-0952-31 ",.01)
 ;;00006-0952-31
 ;;9002226.02101,"980,00006-0952-31 ",.02)
 ;;00006-0952-31
 ;;9002226.02101,"980,00006-0952-54 ",.01)
 ;;00006-0952-54
 ;;9002226.02101,"980,00006-0952-54 ",.02)
 ;;00006-0952-54
 ;;9002226.02101,"980,00006-0952-58 ",.01)
 ;;00006-0952-58
 ;;9002226.02101,"980,00006-0952-58 ",.02)
 ;;00006-0952-58
 ;;9002226.02101,"980,00006-0952-82 ",.01)
 ;;00006-0952-82
 ;;9002226.02101,"980,00006-0952-82 ",.02)
 ;;00006-0952-82
 ;;9002226.02101,"980,00006-0952-87 ",.01)
 ;;00006-0952-87
 ;;9002226.02101,"980,00006-0952-87 ",.02)
 ;;00006-0952-87
 ;;9002226.02101,"980,00006-0960-01 ",.01)
 ;;00006-0960-01
 ;;9002226.02101,"980,00006-0960-01 ",.02)
 ;;00006-0960-01
 ;;9002226.02101,"980,00006-0960-28 ",.01)
 ;;00006-0960-28
 ;;9002226.02101,"980,00006-0960-28 ",.02)
 ;;00006-0960-28
 ;;9002226.02101,"980,00006-0960-31 ",.01)
 ;;00006-0960-31
 ;;9002226.02101,"980,00006-0960-31 ",.02)
 ;;00006-0960-31
 ;;9002226.02101,"980,00006-0960-54 ",.01)
 ;;00006-0960-54
 ;;9002226.02101,"980,00006-0960-54 ",.02)
 ;;00006-0960-54
 ;;9002226.02101,"980,00006-0960-58 ",.01)
 ;;00006-0960-58
 ;;9002226.02101,"980,00006-0960-58 ",.02)
 ;;00006-0960-58
 ;;9002226.02101,"980,00006-0960-82 ",.01)
 ;;00006-0960-82
 ;;9002226.02101,"980,00006-0960-82 ",.02)
 ;;00006-0960-82
 ;;9002226.02101,"980,00006-0960-86 ",.01)
 ;;00006-0960-86
 ;;9002226.02101,"980,00006-0960-86 ",.02)
 ;;00006-0960-86
 ;;9002226.02101,"980,00051-5044-01 ",.01)
 ;;00051-5044-01
 ;;9002226.02101,"980,00051-5044-01 ",.02)
 ;;00051-5044-01
 ;;9002226.02101,"980,00051-5046-01 ",.01)
 ;;00051-5046-01
 ;;9002226.02101,"980,00051-5046-01 ",.02)
 ;;00051-5046-01
 ;;9002226.02101,"980,00074-3015-11 ",.01)
 ;;00074-3015-11
 ;;9002226.02101,"980,00074-3015-11 ",.02)
 ;;00074-3015-11
 ;;9002226.02101,"980,00074-3020-11 ",.01)
 ;;00074-3020-11
 ;;9002226.02101,"980,00074-3020-11 ",.02)
 ;;00074-3020-11
 ;;9002226.02101,"980,00074-3025-11 ",.01)
 ;;00074-3025-11
 ;;9002226.02101,"980,00074-3025-11 ",.02)
 ;;00074-3025-11
 ;;9002226.02101,"980,00074-3040-11 ",.01)
 ;;00074-3040-11
 ;;9002226.02101,"980,00074-3040-11 ",.02)
 ;;00074-3040-11
 ;;9002226.02101,"980,00078-0314-05 ",.01)
 ;;00078-0314-05
 ;;9002226.02101,"980,00078-0314-05 ",.02)
 ;;00078-0314-05
 ;;9002226.02101,"980,00078-0314-06 ",.01)
 ;;00078-0314-06
 ;;9002226.02101,"980,00078-0314-06 ",.02)
 ;;00078-0314-06
 ;;9002226.02101,"980,00078-0314-34 ",.01)
 ;;00078-0314-34
 ;;9002226.02101,"980,00078-0314-34 ",.02)
 ;;00078-0314-34
 ;;9002226.02101,"980,00078-0315-05 ",.01)
 ;;00078-0315-05
 ;;9002226.02101,"980,00078-0315-05 ",.02)
 ;;00078-0315-05
 ;;9002226.02101,"980,00078-0315-06 ",.01)
 ;;00078-0315-06
 ;;9002226.02101,"980,00078-0315-06 ",.02)
 ;;00078-0315-06
 ;;9002226.02101,"980,00078-0315-34 ",.01)
 ;;00078-0315-34
 ;;9002226.02101,"980,00078-0315-34 ",.02)
 ;;00078-0315-34
 ;;9002226.02101,"980,00078-0358-05 ",.01)
 ;;00078-0358-05
 ;;9002226.02101,"980,00078-0358-05 ",.02)
 ;;00078-0358-05
 ;;9002226.02101,"980,00078-0358-06 ",.01)
 ;;00078-0358-06
 ;;9002226.02101,"980,00078-0358-06 ",.02)
 ;;00078-0358-06
 ;;9002226.02101,"980,00078-0358-34 ",.01)
 ;;00078-0358-34
 ;;9002226.02101,"980,00078-0358-34 ",.02)
 ;;00078-0358-34
 ;;9002226.02101,"980,00078-0358-61 ",.01)
 ;;00078-0358-61
 ;;9002226.02101,"980,00078-0358-61 ",.02)
 ;;00078-0358-61
 ;;9002226.02101,"980,00078-0359-05 ",.01)
 ;;00078-0359-05
 ;;9002226.02101,"980,00078-0359-05 ",.02)
 ;;00078-0359-05
 ;;9002226.02101,"980,00078-0359-06 ",.01)
 ;;00078-0359-06
 ;;9002226.02101,"980,00078-0359-06 ",.02)
 ;;00078-0359-06
 ;;9002226.02101,"980,00078-0359-34 ",.01)
 ;;00078-0359-34
 ;;9002226.02101,"980,00078-0359-34 ",.02)
 ;;00078-0359-34
 ;;9002226.02101,"980,00078-0359-61 ",.01)
 ;;00078-0359-61
 ;;9002226.02101,"980,00078-0359-61 ",.02)
 ;;00078-0359-61
 ;;9002226.02101,"980,00078-0360-05 ",.01)
 ;;00078-0360-05
 ;;9002226.02101,"980,00078-0360-05 ",.02)
 ;;00078-0360-05
 ;;9002226.02101,"980,00078-0360-06 ",.01)
 ;;00078-0360-06
 ;;9002226.02101,"980,00078-0360-06 ",.02)
 ;;00078-0360-06
 ;;9002226.02101,"980,00078-0360-34 ",.01)
 ;;00078-0360-34
 ;;9002226.02101,"980,00078-0360-34 ",.02)
 ;;00078-0360-34
 ;;9002226.02101,"980,00078-0376-06 ",.01)
 ;;00078-0376-06
 ;;9002226.02101,"980,00078-0376-06 ",.02)
 ;;00078-0376-06
 ;;9002226.02101,"980,00078-0376-15 ",.01)
 ;;00078-0376-15
 ;;9002226.02101,"980,00078-0376-15 ",.02)
 ;;00078-0376-15
 ;;9002226.02101,"980,00078-0383-05 ",.01)
 ;;00078-0383-05
 ;;9002226.02101,"980,00078-0383-05 ",.02)
 ;;00078-0383-05
 ;;9002226.02101,"980,00078-0383-06 ",.01)
 ;;00078-0383-06
 ;;9002226.02101,"980,00078-0383-06 ",.02)
 ;;00078-0383-06
 ;;9002226.02101,"980,00078-0383-34 ",.01)
 ;;00078-0383-34
 ;;9002226.02101,"980,00078-0383-34 ",.02)
 ;;00078-0383-34
 ;;9002226.02101,"980,00078-0423-06 ",.01)
 ;;00078-0423-06
 ;;9002226.02101,"980,00078-0423-06 ",.02)
 ;;00078-0423-06
 ;;9002226.02101,"980,00078-0423-15 ",.01)
 ;;00078-0423-15
 ;;9002226.02101,"980,00078-0423-15 ",.02)
 ;;00078-0423-15
 ;;9002226.02101,"980,00078-0471-34 ",.01)
 ;;00078-0471-34
 ;;9002226.02101,"980,00078-0471-34 ",.02)
 ;;00078-0471-34
 ;;9002226.02101,"980,00078-0472-34 ",.01)
 ;;00078-0472-34
 ;;9002226.02101,"980,00078-0472-34 ",.02)
 ;;00078-0472-34
 ;;9002226.02101,"980,00078-0488-15 ",.01)
 ;;00078-0488-15
 ;;9002226.02101,"980,00078-0488-15 ",.02)
 ;;00078-0488-15
 ;;9002226.02101,"980,00078-0489-15 ",.01)
 ;;00078-0489-15
 ;;9002226.02101,"980,00078-0489-15 ",.02)
 ;;00078-0489-15
 ;;9002226.02101,"980,00078-0490-15 ",.01)
 ;;00078-0490-15
 ;;9002226.02101,"980,00078-0490-15 ",.02)
 ;;00078-0490-15
 ;;9002226.02101,"980,00078-0491-15 ",.01)
 ;;00078-0491-15
 ;;9002226.02101,"980,00078-0491-15 ",.02)
 ;;00078-0491-15
 ;;9002226.02101,"980,00078-0559-15 ",.01)
 ;;00078-0559-15
 ;;9002226.02101,"980,00078-0559-15 ",.02)
 ;;00078-0559-15
 ;;9002226.02101,"980,00078-0560-15 ",.01)
 ;;00078-0560-15
 ;;9002226.02101,"980,00078-0560-15 ",.02)
 ;;00078-0560-15
 ;;9002226.02101,"980,00078-0561-15 ",.01)
 ;;00078-0561-15
 ;;9002226.02101,"980,00078-0561-15 ",.02)
 ;;00078-0561-15
 ;;9002226.02101,"980,00078-0562-15 ",.01)
 ;;00078-0562-15
 ;;9002226.02101,"980,00078-0562-15 ",.02)
 ;;00078-0562-15
 ;;9002226.02101,"980,00078-0563-15 ",.01)
 ;;00078-0563-15
 ;;9002226.02101,"980,00078-0563-15 ",.02)
 ;;00078-0563-15
 ;;9002226.02101,"980,00078-0572-15 ",.01)
 ;;00078-0572-15
 ;;9002226.02101,"980,00078-0572-15 ",.02)
 ;;00078-0572-15
 ;;9002226.02101,"980,00078-0574-15 ",.01)
 ;;00078-0574-15
 ;;9002226.02101,"980,00078-0574-15 ",.02)
 ;;00078-0574-15
 ;;9002226.02101,"980,00083-4000-01 ",.01)
 ;;00083-4000-01
 ;;9002226.02101,"980,00083-4000-01 ",.02)
 ;;00083-4000-01
 ;;9002226.02101,"980,00083-4000-41 ",.01)
 ;;00083-4000-41
 ;;9002226.02101,"980,00083-4000-41 ",.02)
 ;;00083-4000-41
 ;;9002226.02101,"980,00083-4001-01 ",.01)
 ;;00083-4001-01
 ;;9002226.02101,"980,00083-4001-01 ",.02)
 ;;00083-4001-01
 ;;9002226.02101,"980,00083-4001-41 ",.01)
 ;;00083-4001-41
 ;;9002226.02101,"980,00083-4001-41 ",.02)
 ;;00083-4001-41
 ;;9002226.02101,"980,00087-2771-31 ",.01)
 ;;00087-2771-31
 ;;9002226.02101,"980,00087-2771-31 ",.02)
 ;;00087-2771-31
 ;;9002226.02101,"980,00087-2771-32 ",.01)
 ;;00087-2771-32
 ;;9002226.02101,"980,00087-2771-32 ",.02)
 ;;00087-2771-32
 ;;9002226.02101,"980,00087-2772-15 ",.01)
 ;;00087-2772-15
 ;;9002226.02101,"980,00087-2772-15 ",.02)
 ;;00087-2772-15
 ;;9002226.02101,"980,00087-2772-31 ",.01)
 ;;00087-2772-31
 ;;9002226.02101,"980,00087-2772-31 ",.02)
 ;;00087-2772-31
 ;;9002226.02101,"980,00087-2772-32 ",.01)
 ;;00087-2772-32
 ;;9002226.02101,"980,00087-2772-32 ",.02)
 ;;00087-2772-32
 ;;9002226.02101,"980,00087-2772-35 ",.01)
 ;;00087-2772-35
 ;;9002226.02101,"980,00087-2772-35 ",.02)
 ;;00087-2772-35
 ;;9002226.02101,"980,00087-2773-15 ",.01)
 ;;00087-2773-15
 ;;9002226.02101,"980,00087-2773-15 ",.02)
 ;;00087-2773-15
 ;;9002226.02101,"980,00087-2773-31 ",.01)
 ;;00087-2773-31
 ;;9002226.02101,"980,00087-2773-31 ",.02)
 ;;00087-2773-31
 ;;9002226.02101,"980,00087-2773-32 ",.01)
 ;;00087-2773-32
 ;;9002226.02101,"980,00087-2773-32 ",.02)
 ;;00087-2773-32
 ;;9002226.02101,"980,00087-2773-35 ",.01)
 ;;00087-2773-35
 ;;9002226.02101,"980,00087-2773-35 ",.02)
 ;;00087-2773-35