BGP7LXC ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 28, 2006 ;
;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
;;BGP HEDIS ANTIANXIETY NDC
;
; This routine loads Taxonomy BGP HEDIS ANTIANXIETY NDC
;
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
D OTHER
I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2
I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2
D KILL^ATXSTX2
Q
;
TMP ;;TAXONOMY (WITH BULLETIN)
;;21,"00008-0001-05 ")
;;21
;;21,"00008-0002-03 ")
;;1
;;21,"00008-0091-02 ")
;;52
;;21,"00037-0120-01 ")
;;53
;;21,"00037-1001-01 ")
;;22
;;21,"00037-1001-02 ")
;;23
;;21,"00037-1001-03 ")
;;24
;;21,"00037-1101-01 ")
;;2
;;21,"00115-3888-01 ")
;;3
;;21,"00115-3888-03 ")
;;4
;;21,"00115-3890-01 ")
;;25
;;21,"00115-3890-03 ")
;;26
;;21,"00182-0294-01 ")
;;27
;;21,"00182-0294-10 ")
;;28
;;21,"00185-0716-01 ")
;;5
;;21,"00185-0716-10 ")
;;6
;;21,"00185-0717-01 ")
;;29
;;21,"00185-0717-10 ")
;;30
;;21,"00187-0200-10 ")
;;74
;;21,"00223-8173-05 ")
;;55
;;21,"00223-8635-10 ")
;;75
;;21,"00223-8636-10 ")
;;76
;;21,"00247-0845-20 ")
;;93
;;21,"00247-0845-25 ")
;;94
;;21,"00247-1031-28 ")
;;31
;;21,"00298-6835-61 ")
;;77
;;21,"00364-0160-01 ")
;;7
;;21,"00364-0160-02 ")
;;8
;;21,"00364-0161-01 ")
;;32
;;21,"00364-0161-02 ")
;;33
;;21,"00402-0410-05 ")
;;56
;;21,"00405-0115-01 ")
;;9
;;21,"00405-0115-03 ")
;;10
;;21,"00405-0116-01 ")
;;34
;;21,"00405-0116-03 ")
;;35
;;21,"00418-6551-41 ")
;;78
;;21,"00418-6561-41 ")
;;79
;;21,"00456-0603-10 ")
;;80
;;21,"00536-4005-01 ")
;;11
;;21,"00536-4006-01 ")
;;36
;;21,"00591-5238-01 ")
;;37
;;21,"00591-5238-10 ")
;;38
;;21,"00591-5239-01 ")
;;12
;;21,"00591-5239-10 ")
;;13
;;21,"00615-0414-10 ")
;;14
;;21,"00615-0447-01 ")
;;39
;;21,"00641-0130-26 ")
;;81
;;21,"00677-0233-01 ")
;;40
;;21,"00684-0152-10 ")
;;57
;;21,"00839-5004-06 ")
;;41
;;21,"00839-5004-16 ")
;;42
;;21,"00839-5070-06 ")
;;15
;;21,"00904-0044-60 ")
;;16
;;21,"00904-0044-80 ")
;;17
;;21,"00904-0045-60 ")
;;43
;;21,"00904-0045-61 ")
;;44
;;21,"00904-0045-80 ")
;;45
;;21,"10457-0325-10 ")
;;82
;;21,"11311-0956-01 ")
;;95
;;21,"17022-3373-03 ")
;;83
;;21,"17022-3394-03 ")
;;58
;;21,"17236-0804-91 ")
;;59
;;21,"51641-0325-01 ")
;;46
;;21,"51641-0325-10 ")
;;47
;;21,"51641-0327-01 ")
;;18
;;21,"51641-0327-10 ")
;;19
;;21,"52406-0255-10 ")
;;84
;;21,"52406-0256-10 ")
;;60
;;21,"52544-0804-01 ")
;;20
;;21,"52544-0805-01 ")
;;48
;;21,"52544-0805-10 ")
;;49
;;21,"52584-0256-10 ")
;;61
;;21,"54274-0526-62 ")
;;62
;;21,"54569-0935-00 ")
;;50
;;21,"54569-0935-02 ")
;;51
;;21,"54569-1411-00 ")
;;63
;;21,"54569-2131-00 ")
;;64
;;21,"54569-3025-00 ")
;;85
;;21,"54569-5301-00 ")
;;86
;;21,"54569-5338-00 ")
;;65
;;21,"54569-5595-00 ")
;;66
;;21,"54868-0216-00 ")
;;67
;;21,"54868-0216-01 ")
;;68
;;21,"54868-0796-00 ")
;;87
;;21,"54868-3317-00 ")
;;88
;;21,"54868-3618-00 ")
;;69
;;21,"54868-4989-00 ")
;;70
;;21,"54868-5147-00 ")
;;89
;;21,"55045-3029-02 ")
;;71
;;21,"55175-5007-01 ")
;;72
;;21,"55175-5018-01 ")
;;73
;;21,"57866-3938-02 ")
;;90
;;21,"57866-3938-03 ")
;;91
;;21,"64248-0091-10 ")
;;54
;;21,"68115-0057-15 ")
;;92
;;9002226,445,.01)
;;BGP HEDIS ANTIANXIETY NDC
;;9002226,445,.02)
;;@
;;9002226,445,.04)
;;n
;;9002226,445,.06)
;;@
;;9002226,445,.08)
;;@
;;9002226,445,.09)
;;@
;;9002226,445,.11)
;;@
;;9002226,445,.12)
;;@
;;9002226,445,.13)
;;1
;;9002226,445,.14)
;;@
;;9002226,445,.15)
;;@
;;9002226,445,.16)
;;@
;;9002226,445,.17)
;;@
;;9002226,445,3101)
;;@
;;9002226.02101,"445,00008-0001-05 ",.01)
;;00008-0001-05
;;9002226.02101,"445,00008-0001-05 ",.02)
;;00008-0001-05
;;9002226.02101,"445,00008-0002-03 ",.01)
;;00008-0002-03
;;9002226.02101,"445,00008-0002-03 ",.02)
;;00008-0002-03
;;9002226.02101,"445,00008-0091-02 ",.01)
;;00008-0091-02
;;9002226.02101,"445,00008-0091-02 ",.02)
;;00008-0091-02
;;9002226.02101,"445,00037-0120-01 ",.01)
;;00037-0120-01
;;9002226.02101,"445,00037-0120-01 ",.02)
;;00037-0120-01
;;9002226.02101,"445,00037-1001-01 ",.01)
;;00037-1001-01
;;9002226.02101,"445,00037-1001-01 ",.02)
;;00037-1001-01
;;9002226.02101,"445,00037-1001-02 ",.01)
;;00037-1001-02
;;9002226.02101,"445,00037-1001-02 ",.02)
;;00037-1001-02
;;9002226.02101,"445,00037-1001-03 ",.01)
;;00037-1001-03
;;9002226.02101,"445,00037-1001-03 ",.02)
;;00037-1001-03
;;9002226.02101,"445,00037-1101-01 ",.01)
;;00037-1101-01
;;9002226.02101,"445,00037-1101-01 ",.02)
;;00037-1101-01
;;9002226.02101,"445,00115-3888-01 ",.01)
;;00115-3888-01
;;9002226.02101,"445,00115-3888-01 ",.02)
;;00115-3888-01
;;9002226.02101,"445,00115-3888-03 ",.01)
;;00115-3888-03
;;9002226.02101,"445,00115-3888-03 ",.02)
;;00115-3888-03
;;9002226.02101,"445,00115-3890-01 ",.01)
;;00115-3890-01
;;9002226.02101,"445,00115-3890-01 ",.02)
;;00115-3890-01
;;9002226.02101,"445,00115-3890-03 ",.01)
;;00115-3890-03
;;9002226.02101,"445,00115-3890-03 ",.02)
;;00115-3890-03
;;9002226.02101,"445,00182-0294-01 ",.01)
;;00182-0294-01
;;9002226.02101,"445,00182-0294-01 ",.02)
;;00182-0294-01
;;9002226.02101,"445,00182-0294-10 ",.01)
;;00182-0294-10
;;9002226.02101,"445,00182-0294-10 ",.02)
;;00182-0294-10
;;9002226.02101,"445,00185-0716-01 ",.01)
;;00185-0716-01
;;9002226.02101,"445,00185-0716-01 ",.02)
;;00185-0716-01
;;9002226.02101,"445,00185-0716-10 ",.01)
;;00185-0716-10
;;9002226.02101,"445,00185-0716-10 ",.02)
;;00185-0716-10
;;9002226.02101,"445,00185-0717-01 ",.01)
;;00185-0717-01
;;9002226.02101,"445,00185-0717-01 ",.02)
;;00185-0717-01
;;9002226.02101,"445,00185-0717-10 ",.01)
;;00185-0717-10
;;9002226.02101,"445,00185-0717-10 ",.02)
;;00185-0717-10
;;9002226.02101,"445,00187-0200-10 ",.01)
;;00187-0200-10
;;9002226.02101,"445,00187-0200-10 ",.02)
;;00187-0200-10
;;9002226.02101,"445,00223-8173-05 ",.01)
;;00223-8173-05
;;9002226.02101,"445,00223-8173-05 ",.02)
;;00223-8173-05
;;9002226.02101,"445,00223-8635-10 ",.01)
;;00223-8635-10
;;9002226.02101,"445,00223-8635-10 ",.02)
;;00223-8635-10
;;9002226.02101,"445,00223-8636-10 ",.01)
;;00223-8636-10
;;9002226.02101,"445,00223-8636-10 ",.02)
;;00223-8636-10
;;9002226.02101,"445,00247-0845-20 ",.01)
;;00247-0845-20
;;9002226.02101,"445,00247-0845-20 ",.02)
;;00247-0845-20
;;9002226.02101,"445,00247-0845-25 ",.01)
;;00247-0845-25
;;9002226.02101,"445,00247-0845-25 ",.02)
;;00247-0845-25
;;9002226.02101,"445,00247-1031-28 ",.01)
;;00247-1031-28
;;9002226.02101,"445,00247-1031-28 ",.02)
;;00247-1031-28
;;9002226.02101,"445,00298-6835-61 ",.01)
;;00298-6835-61
;;9002226.02101,"445,00298-6835-61 ",.02)
;;00298-6835-61
;;9002226.02101,"445,00364-0160-01 ",.01)
;;00364-0160-01
;;9002226.02101,"445,00364-0160-01 ",.02)
;;00364-0160-01
;;9002226.02101,"445,00364-0160-02 ",.01)
;;00364-0160-02
;;9002226.02101,"445,00364-0160-02 ",.02)
;;00364-0160-02
;;9002226.02101,"445,00364-0161-01 ",.01)
;;00364-0161-01
;;9002226.02101,"445,00364-0161-01 ",.02)
;;00364-0161-01
;;9002226.02101,"445,00364-0161-02 ",.01)
;;00364-0161-02
;;9002226.02101,"445,00364-0161-02 ",.02)
;;00364-0161-02
;;9002226.02101,"445,00402-0410-05 ",.01)
;;00402-0410-05
;;9002226.02101,"445,00402-0410-05 ",.02)
;;00402-0410-05
;;9002226.02101,"445,00405-0115-01 ",.01)
;;00405-0115-01
;;9002226.02101,"445,00405-0115-01 ",.02)
;;00405-0115-01
;;9002226.02101,"445,00405-0115-03 ",.01)
;;00405-0115-03
;;9002226.02101,"445,00405-0115-03 ",.02)
;;00405-0115-03
;;9002226.02101,"445,00405-0116-01 ",.01)
;;00405-0116-01
;;9002226.02101,"445,00405-0116-01 ",.02)
;;00405-0116-01
;;9002226.02101,"445,00405-0116-03 ",.01)
;;00405-0116-03
;;9002226.02101,"445,00405-0116-03 ",.02)
;;00405-0116-03
;;9002226.02101,"445,00418-6551-41 ",.01)
;;00418-6551-41
;;9002226.02101,"445,00418-6551-41 ",.02)
;;00418-6551-41
;;9002226.02101,"445,00418-6561-41 ",.01)
;;00418-6561-41
;;9002226.02101,"445,00418-6561-41 ",.02)
;;00418-6561-41
;;9002226.02101,"445,00456-0603-10 ",.01)
;;00456-0603-10
;;9002226.02101,"445,00456-0603-10 ",.02)
;;00456-0603-10
;;9002226.02101,"445,00536-4005-01 ",.01)
;;00536-4005-01
;;9002226.02101,"445,00536-4005-01 ",.02)
;;00536-4005-01
;;9002226.02101,"445,00536-4006-01 ",.01)
;;00536-4006-01
;;9002226.02101,"445,00536-4006-01 ",.02)
;;00536-4006-01
;;9002226.02101,"445,00591-5238-01 ",.01)
;;00591-5238-01
;;9002226.02101,"445,00591-5238-01 ",.02)
;;00591-5238-01
;;9002226.02101,"445,00591-5238-10 ",.01)
;;00591-5238-10
;;9002226.02101,"445,00591-5238-10 ",.02)
;;00591-5238-10
;;9002226.02101,"445,00591-5239-01 ",.01)
;;00591-5239-01
;;9002226.02101,"445,00591-5239-01 ",.02)
;;00591-5239-01
;;9002226.02101,"445,00591-5239-10 ",.01)
;;00591-5239-10
;;9002226.02101,"445,00591-5239-10 ",.02)
;;00591-5239-10
;;9002226.02101,"445,00615-0414-10 ",.01)
;;00615-0414-10
;;9002226.02101,"445,00615-0414-10 ",.02)
;;00615-0414-10
;;9002226.02101,"445,00615-0447-01 ",.01)
;;00615-0447-01
;;9002226.02101,"445,00615-0447-01 ",.02)
;;00615-0447-01
;;9002226.02101,"445,00641-0130-26 ",.01)
;;00641-0130-26
;;9002226.02101,"445,00641-0130-26 ",.02)
;;00641-0130-26
;;9002226.02101,"445,00677-0233-01 ",.01)
;;00677-0233-01
;;9002226.02101,"445,00677-0233-01 ",.02)
;;00677-0233-01
;;9002226.02101,"445,00684-0152-10 ",.01)
;;00684-0152-10
;;9002226.02101,"445,00684-0152-10 ",.02)
;;00684-0152-10
;;9002226.02101,"445,00839-5004-06 ",.01)
;;00839-5004-06
;;9002226.02101,"445,00839-5004-06 ",.02)
;;00839-5004-06
;;9002226.02101,"445,00839-5004-16 ",.01)
;;00839-5004-16
;;9002226.02101,"445,00839-5004-16 ",.02)
;;00839-5004-16
;;9002226.02101,"445,00839-5070-06 ",.01)
;;00839-5070-06
;;9002226.02101,"445,00839-5070-06 ",.02)
;;00839-5070-06
;;9002226.02101,"445,00904-0044-60 ",.01)
;;00904-0044-60
;;9002226.02101,"445,00904-0044-60 ",.02)
;;00904-0044-60
;;9002226.02101,"445,00904-0044-80 ",.01)
;;00904-0044-80
;;9002226.02101,"445,00904-0044-80 ",.02)
;;00904-0044-80
;;9002226.02101,"445,00904-0045-60 ",.01)
;;00904-0045-60
;;9002226.02101,"445,00904-0045-60 ",.02)
;;00904-0045-60
;;9002226.02101,"445,00904-0045-61 ",.01)
;;00904-0045-61
;;9002226.02101,"445,00904-0045-61 ",.02)
;;00904-0045-61
;;9002226.02101,"445,00904-0045-80 ",.01)
;;00904-0045-80
;;9002226.02101,"445,00904-0045-80 ",.02)
;;00904-0045-80
;;9002226.02101,"445,10457-0325-10 ",.01)
;;10457-0325-10
;;9002226.02101,"445,10457-0325-10 ",.02)
;;10457-0325-10
;;9002226.02101,"445,11311-0956-01 ",.01)
;;11311-0956-01
;;9002226.02101,"445,11311-0956-01 ",.02)
;;11311-0956-01
;;9002226.02101,"445,17022-3373-03 ",.01)
;;17022-3373-03
;;9002226.02101,"445,17022-3373-03 ",.02)
;;17022-3373-03
;;9002226.02101,"445,17022-3394-03 ",.01)
;;17022-3394-03
;;9002226.02101,"445,17022-3394-03 ",.02)
;;17022-3394-03
;;9002226.02101,"445,17236-0804-91 ",.01)
;;17236-0804-91
;;9002226.02101,"445,17236-0804-91 ",.02)
;;17236-0804-91
;;9002226.02101,"445,51641-0325-01 ",.01)
;;51641-0325-01
;;9002226.02101,"445,51641-0325-01 ",.02)
;;51641-0325-01
;;9002226.02101,"445,51641-0325-10 ",.01)
;;51641-0325-10
;;9002226.02101,"445,51641-0325-10 ",.02)
;;51641-0325-10
;;9002226.02101,"445,51641-0327-01 ",.01)
;;51641-0327-01
;;9002226.02101,"445,51641-0327-01 ",.02)
;;51641-0327-01
;;9002226.02101,"445,51641-0327-10 ",.01)
;;51641-0327-10
;;9002226.02101,"445,51641-0327-10 ",.02)
;;51641-0327-10
;;9002226.02101,"445,52406-0255-10 ",.01)
;;52406-0255-10
;;9002226.02101,"445,52406-0255-10 ",.02)
;;52406-0255-10
;;9002226.02101,"445,52406-0256-10 ",.01)
;;52406-0256-10
;;9002226.02101,"445,52406-0256-10 ",.02)
;;52406-0256-10
;;9002226.02101,"445,52544-0804-01 ",.01)
;;52544-0804-01
;;9002226.02101,"445,52544-0804-01 ",.02)
;;52544-0804-01
;;9002226.02101,"445,52544-0805-01 ",.01)
;;52544-0805-01
;;9002226.02101,"445,52544-0805-01 ",.02)
;;52544-0805-01
;;9002226.02101,"445,52544-0805-10 ",.01)
;;52544-0805-10
;;9002226.02101,"445,52544-0805-10 ",.02)
;;52544-0805-10
;;9002226.02101,"445,52584-0256-10 ",.01)
;;52584-0256-10
;;9002226.02101,"445,52584-0256-10 ",.02)
;;52584-0256-10
;;9002226.02101,"445,54274-0526-62 ",.01)
;;54274-0526-62
;;9002226.02101,"445,54274-0526-62 ",.02)
;;54274-0526-62
;;9002226.02101,"445,54569-0935-00 ",.01)
;;54569-0935-00
;;9002226.02101,"445,54569-0935-00 ",.02)
;;54569-0935-00
;;9002226.02101,"445,54569-0935-02 ",.01)
;;54569-0935-02
;;9002226.02101,"445,54569-0935-02 ",.02)
;;54569-0935-02
;;9002226.02101,"445,54569-1411-00 ",.01)
;;54569-1411-00
;;9002226.02101,"445,54569-1411-00 ",.02)
;;54569-1411-00
;;9002226.02101,"445,54569-2131-00 ",.01)
;;54569-2131-00
;;9002226.02101,"445,54569-2131-00 ",.02)
;;54569-2131-00
;;9002226.02101,"445,54569-3025-00 ",.01)
;;54569-3025-00
;;9002226.02101,"445,54569-3025-00 ",.02)
;;54569-3025-00
;;9002226.02101,"445,54569-5301-00 ",.01)
;;54569-5301-00
;;9002226.02101,"445,54569-5301-00 ",.02)
;;54569-5301-00
;;9002226.02101,"445,54569-5338-00 ",.01)
;;54569-5338-00
;;9002226.02101,"445,54569-5338-00 ",.02)
;;54569-5338-00
;
OTHER ; OTHER ROUTINES
D ^BGP7LXCB
Q
BGP7LXC ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 28, 2006 ;
+1 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
+2 ;;BGP HEDIS ANTIANXIETY NDC
+3 ;
+4 ; This routine loads Taxonomy BGP HEDIS ANTIANXIETY NDC
+5 ;
START ;
+1 IF '$GET(ATXPGMC)
KILL ^TMP("ATX",$JOB)
+2 SET ATXPGMC=$GET(ATXPGMC)+1
+3 FOR ATXI=1:1
SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)
IF X=""
QUIT
SET X="^TMP(""ATX"",$J,"_X
SET ATXI=ATXI+1
SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)
SET @X=Y
+4 DO OTHER
+5 IF $ORDER(^TMP("ATX",$JOB,3.6,0))
DO BULL^ATXSTX2
+6 IF $ORDER(^TMP("ATX",$JOB,9002226,0))
DO TAX^ATXSTX2
+7 DO KILL^ATXSTX2
+8 QUIT
+9 ;
TMP ;;TAXONOMY (WITH BULLETIN)
+1 ;;21,"00008-0001-05 ")
+2 ;;21
+3 ;;21,"00008-0002-03 ")
+4 ;;1
+5 ;;21,"00008-0091-02 ")
+6 ;;52
+7 ;;21,"00037-0120-01 ")
+8 ;;53
+9 ;;21,"00037-1001-01 ")
+10 ;;22
+11 ;;21,"00037-1001-02 ")
+12 ;;23
+13 ;;21,"00037-1001-03 ")
+14 ;;24
+15 ;;21,"00037-1101-01 ")
+16 ;;2
+17 ;;21,"00115-3888-01 ")
+18 ;;3
+19 ;;21,"00115-3888-03 ")
+20 ;;4
+21 ;;21,"00115-3890-01 ")
+22 ;;25
+23 ;;21,"00115-3890-03 ")
+24 ;;26
+25 ;;21,"00182-0294-01 ")
+26 ;;27
+27 ;;21,"00182-0294-10 ")
+28 ;;28
+29 ;;21,"00185-0716-01 ")
+30 ;;5
+31 ;;21,"00185-0716-10 ")
+32 ;;6
+33 ;;21,"00185-0717-01 ")
+34 ;;29
+35 ;;21,"00185-0717-10 ")
+36 ;;30
+37 ;;21,"00187-0200-10 ")
+38 ;;74
+39 ;;21,"00223-8173-05 ")
+40 ;;55
+41 ;;21,"00223-8635-10 ")
+42 ;;75
+43 ;;21,"00223-8636-10 ")
+44 ;;76
+45 ;;21,"00247-0845-20 ")
+46 ;;93
+47 ;;21,"00247-0845-25 ")
+48 ;;94
+49 ;;21,"00247-1031-28 ")
+50 ;;31
+51 ;;21,"00298-6835-61 ")
+52 ;;77
+53 ;;21,"00364-0160-01 ")
+54 ;;7
+55 ;;21,"00364-0160-02 ")
+56 ;;8
+57 ;;21,"00364-0161-01 ")
+58 ;;32
+59 ;;21,"00364-0161-02 ")
+60 ;;33
+61 ;;21,"00402-0410-05 ")
+62 ;;56
+63 ;;21,"00405-0115-01 ")
+64 ;;9
+65 ;;21,"00405-0115-03 ")
+66 ;;10
+67 ;;21,"00405-0116-01 ")
+68 ;;34
+69 ;;21,"00405-0116-03 ")
+70 ;;35
+71 ;;21,"00418-6551-41 ")
+72 ;;78
+73 ;;21,"00418-6561-41 ")
+74 ;;79
+75 ;;21,"00456-0603-10 ")
+76 ;;80
+77 ;;21,"00536-4005-01 ")
+78 ;;11
+79 ;;21,"00536-4006-01 ")
+80 ;;36
+81 ;;21,"00591-5238-01 ")
+82 ;;37
+83 ;;21,"00591-5238-10 ")
+84 ;;38
+85 ;;21,"00591-5239-01 ")
+86 ;;12
+87 ;;21,"00591-5239-10 ")
+88 ;;13
+89 ;;21,"00615-0414-10 ")
+90 ;;14
+91 ;;21,"00615-0447-01 ")
+92 ;;39
+93 ;;21,"00641-0130-26 ")
+94 ;;81
+95 ;;21,"00677-0233-01 ")
+96 ;;40
+97 ;;21,"00684-0152-10 ")
+98 ;;57
+99 ;;21,"00839-5004-06 ")
+100 ;;41
+101 ;;21,"00839-5004-16 ")
+102 ;;42
+103 ;;21,"00839-5070-06 ")
+104 ;;15
+105 ;;21,"00904-0044-60 ")
+106 ;;16
+107 ;;21,"00904-0044-80 ")
+108 ;;17
+109 ;;21,"00904-0045-60 ")
+110 ;;43
+111 ;;21,"00904-0045-61 ")
+112 ;;44
+113 ;;21,"00904-0045-80 ")
+114 ;;45
+115 ;;21,"10457-0325-10 ")
+116 ;;82
+117 ;;21,"11311-0956-01 ")
+118 ;;95
+119 ;;21,"17022-3373-03 ")
+120 ;;83
+121 ;;21,"17022-3394-03 ")
+122 ;;58
+123 ;;21,"17236-0804-91 ")
+124 ;;59
+125 ;;21,"51641-0325-01 ")
+126 ;;46
+127 ;;21,"51641-0325-10 ")
+128 ;;47
+129 ;;21,"51641-0327-01 ")
+130 ;;18
+131 ;;21,"51641-0327-10 ")
+132 ;;19
+133 ;;21,"52406-0255-10 ")
+134 ;;84
+135 ;;21,"52406-0256-10 ")
+136 ;;60
+137 ;;21,"52544-0804-01 ")
+138 ;;20
+139 ;;21,"52544-0805-01 ")
+140 ;;48
+141 ;;21,"52544-0805-10 ")
+142 ;;49
+143 ;;21,"52584-0256-10 ")
+144 ;;61
+145 ;;21,"54274-0526-62 ")
+146 ;;62
+147 ;;21,"54569-0935-00 ")
+148 ;;50
+149 ;;21,"54569-0935-02 ")
+150 ;;51
+151 ;;21,"54569-1411-00 ")
+152 ;;63
+153 ;;21,"54569-2131-00 ")
+154 ;;64
+155 ;;21,"54569-3025-00 ")
+156 ;;85
+157 ;;21,"54569-5301-00 ")
+158 ;;86
+159 ;;21,"54569-5338-00 ")
+160 ;;65
+161 ;;21,"54569-5595-00 ")
+162 ;;66
+163 ;;21,"54868-0216-00 ")
+164 ;;67
+165 ;;21,"54868-0216-01 ")
+166 ;;68
+167 ;;21,"54868-0796-00 ")
+168 ;;87
+169 ;;21,"54868-3317-00 ")
+170 ;;88
+171 ;;21,"54868-3618-00 ")
+172 ;;69
+173 ;;21,"54868-4989-00 ")
+174 ;;70
+175 ;;21,"54868-5147-00 ")
+176 ;;89
+177 ;;21,"55045-3029-02 ")
+178 ;;71
+179 ;;21,"55175-5007-01 ")
+180 ;;72
+181 ;;21,"55175-5018-01 ")
+182 ;;73
+183 ;;21,"57866-3938-02 ")
+184 ;;90
+185 ;;21,"57866-3938-03 ")
+186 ;;91
+187 ;;21,"64248-0091-10 ")
+188 ;;54
+189 ;;21,"68115-0057-15 ")
+190 ;;92
+191 ;;9002226,445,.01)
+192 ;;BGP HEDIS ANTIANXIETY NDC
+193 ;;9002226,445,.02)
+194 ;;@
+195 ;;9002226,445,.04)
+196 ;;n
+197 ;;9002226,445,.06)
+198 ;;@
+199 ;;9002226,445,.08)
+200 ;;@
+201 ;;9002226,445,.09)
+202 ;;@
+203 ;;9002226,445,.11)
+204 ;;@
+205 ;;9002226,445,.12)
+206 ;;@
+207 ;;9002226,445,.13)
+208 ;;1
+209 ;;9002226,445,.14)
+210 ;;@
+211 ;;9002226,445,.15)
+212 ;;@
+213 ;;9002226,445,.16)
+214 ;;@
+215 ;;9002226,445,.17)
+216 ;;@
+217 ;;9002226,445,3101)
+218 ;;@
+219 ;;9002226.02101,"445,00008-0001-05 ",.01)
+220 ;;00008-0001-05
+221 ;;9002226.02101,"445,00008-0001-05 ",.02)
+222 ;;00008-0001-05
+223 ;;9002226.02101,"445,00008-0002-03 ",.01)
+224 ;;00008-0002-03
+225 ;;9002226.02101,"445,00008-0002-03 ",.02)
+226 ;;00008-0002-03
+227 ;;9002226.02101,"445,00008-0091-02 ",.01)
+228 ;;00008-0091-02
+229 ;;9002226.02101,"445,00008-0091-02 ",.02)
+230 ;;00008-0091-02
+231 ;;9002226.02101,"445,00037-0120-01 ",.01)
+232 ;;00037-0120-01
+233 ;;9002226.02101,"445,00037-0120-01 ",.02)
+234 ;;00037-0120-01
+235 ;;9002226.02101,"445,00037-1001-01 ",.01)
+236 ;;00037-1001-01
+237 ;;9002226.02101,"445,00037-1001-01 ",.02)
+238 ;;00037-1001-01
+239 ;;9002226.02101,"445,00037-1001-02 ",.01)
+240 ;;00037-1001-02
+241 ;;9002226.02101,"445,00037-1001-02 ",.02)
+242 ;;00037-1001-02
+243 ;;9002226.02101,"445,00037-1001-03 ",.01)
+244 ;;00037-1001-03
+245 ;;9002226.02101,"445,00037-1001-03 ",.02)
+246 ;;00037-1001-03
+247 ;;9002226.02101,"445,00037-1101-01 ",.01)
+248 ;;00037-1101-01
+249 ;;9002226.02101,"445,00037-1101-01 ",.02)
+250 ;;00037-1101-01
+251 ;;9002226.02101,"445,00115-3888-01 ",.01)
+252 ;;00115-3888-01
+253 ;;9002226.02101,"445,00115-3888-01 ",.02)
+254 ;;00115-3888-01
+255 ;;9002226.02101,"445,00115-3888-03 ",.01)
+256 ;;00115-3888-03
+257 ;;9002226.02101,"445,00115-3888-03 ",.02)
+258 ;;00115-3888-03
+259 ;;9002226.02101,"445,00115-3890-01 ",.01)
+260 ;;00115-3890-01
+261 ;;9002226.02101,"445,00115-3890-01 ",.02)
+262 ;;00115-3890-01
+263 ;;9002226.02101,"445,00115-3890-03 ",.01)
+264 ;;00115-3890-03
+265 ;;9002226.02101,"445,00115-3890-03 ",.02)
+266 ;;00115-3890-03
+267 ;;9002226.02101,"445,00182-0294-01 ",.01)
+268 ;;00182-0294-01
+269 ;;9002226.02101,"445,00182-0294-01 ",.02)
+270 ;;00182-0294-01
+271 ;;9002226.02101,"445,00182-0294-10 ",.01)
+272 ;;00182-0294-10
+273 ;;9002226.02101,"445,00182-0294-10 ",.02)
+274 ;;00182-0294-10
+275 ;;9002226.02101,"445,00185-0716-01 ",.01)
+276 ;;00185-0716-01
+277 ;;9002226.02101,"445,00185-0716-01 ",.02)
+278 ;;00185-0716-01
+279 ;;9002226.02101,"445,00185-0716-10 ",.01)
+280 ;;00185-0716-10
+281 ;;9002226.02101,"445,00185-0716-10 ",.02)
+282 ;;00185-0716-10
+283 ;;9002226.02101,"445,00185-0717-01 ",.01)
+284 ;;00185-0717-01
+285 ;;9002226.02101,"445,00185-0717-01 ",.02)
+286 ;;00185-0717-01
+287 ;;9002226.02101,"445,00185-0717-10 ",.01)
+288 ;;00185-0717-10
+289 ;;9002226.02101,"445,00185-0717-10 ",.02)
+290 ;;00185-0717-10
+291 ;;9002226.02101,"445,00187-0200-10 ",.01)
+292 ;;00187-0200-10
+293 ;;9002226.02101,"445,00187-0200-10 ",.02)
+294 ;;00187-0200-10
+295 ;;9002226.02101,"445,00223-8173-05 ",.01)
+296 ;;00223-8173-05
+297 ;;9002226.02101,"445,00223-8173-05 ",.02)
+298 ;;00223-8173-05
+299 ;;9002226.02101,"445,00223-8635-10 ",.01)
+300 ;;00223-8635-10
+301 ;;9002226.02101,"445,00223-8635-10 ",.02)
+302 ;;00223-8635-10
+303 ;;9002226.02101,"445,00223-8636-10 ",.01)
+304 ;;00223-8636-10
+305 ;;9002226.02101,"445,00223-8636-10 ",.02)
+306 ;;00223-8636-10
+307 ;;9002226.02101,"445,00247-0845-20 ",.01)
+308 ;;00247-0845-20
+309 ;;9002226.02101,"445,00247-0845-20 ",.02)
+310 ;;00247-0845-20
+311 ;;9002226.02101,"445,00247-0845-25 ",.01)
+312 ;;00247-0845-25
+313 ;;9002226.02101,"445,00247-0845-25 ",.02)
+314 ;;00247-0845-25
+315 ;;9002226.02101,"445,00247-1031-28 ",.01)
+316 ;;00247-1031-28
+317 ;;9002226.02101,"445,00247-1031-28 ",.02)
+318 ;;00247-1031-28
+319 ;;9002226.02101,"445,00298-6835-61 ",.01)
+320 ;;00298-6835-61
+321 ;;9002226.02101,"445,00298-6835-61 ",.02)
+322 ;;00298-6835-61
+323 ;;9002226.02101,"445,00364-0160-01 ",.01)
+324 ;;00364-0160-01
+325 ;;9002226.02101,"445,00364-0160-01 ",.02)
+326 ;;00364-0160-01
+327 ;;9002226.02101,"445,00364-0160-02 ",.01)
+328 ;;00364-0160-02
+329 ;;9002226.02101,"445,00364-0160-02 ",.02)
+330 ;;00364-0160-02
+331 ;;9002226.02101,"445,00364-0161-01 ",.01)
+332 ;;00364-0161-01
+333 ;;9002226.02101,"445,00364-0161-01 ",.02)
+334 ;;00364-0161-01
+335 ;;9002226.02101,"445,00364-0161-02 ",.01)
+336 ;;00364-0161-02
+337 ;;9002226.02101,"445,00364-0161-02 ",.02)
+338 ;;00364-0161-02
+339 ;;9002226.02101,"445,00402-0410-05 ",.01)
+340 ;;00402-0410-05
+341 ;;9002226.02101,"445,00402-0410-05 ",.02)
+342 ;;00402-0410-05
+343 ;;9002226.02101,"445,00405-0115-01 ",.01)
+344 ;;00405-0115-01
+345 ;;9002226.02101,"445,00405-0115-01 ",.02)
+346 ;;00405-0115-01
+347 ;;9002226.02101,"445,00405-0115-03 ",.01)
+348 ;;00405-0115-03
+349 ;;9002226.02101,"445,00405-0115-03 ",.02)
+350 ;;00405-0115-03
+351 ;;9002226.02101,"445,00405-0116-01 ",.01)
+352 ;;00405-0116-01
+353 ;;9002226.02101,"445,00405-0116-01 ",.02)
+354 ;;00405-0116-01
+355 ;;9002226.02101,"445,00405-0116-03 ",.01)
+356 ;;00405-0116-03
+357 ;;9002226.02101,"445,00405-0116-03 ",.02)
+358 ;;00405-0116-03
+359 ;;9002226.02101,"445,00418-6551-41 ",.01)
+360 ;;00418-6551-41
+361 ;;9002226.02101,"445,00418-6551-41 ",.02)
+362 ;;00418-6551-41
+363 ;;9002226.02101,"445,00418-6561-41 ",.01)
+364 ;;00418-6561-41
+365 ;;9002226.02101,"445,00418-6561-41 ",.02)
+366 ;;00418-6561-41
+367 ;;9002226.02101,"445,00456-0603-10 ",.01)
+368 ;;00456-0603-10
+369 ;;9002226.02101,"445,00456-0603-10 ",.02)
+370 ;;00456-0603-10
+371 ;;9002226.02101,"445,00536-4005-01 ",.01)
+372 ;;00536-4005-01
+373 ;;9002226.02101,"445,00536-4005-01 ",.02)
+374 ;;00536-4005-01
+375 ;;9002226.02101,"445,00536-4006-01 ",.01)
+376 ;;00536-4006-01
+377 ;;9002226.02101,"445,00536-4006-01 ",.02)
+378 ;;00536-4006-01
+379 ;;9002226.02101,"445,00591-5238-01 ",.01)
+380 ;;00591-5238-01
+381 ;;9002226.02101,"445,00591-5238-01 ",.02)
+382 ;;00591-5238-01
+383 ;;9002226.02101,"445,00591-5238-10 ",.01)
+384 ;;00591-5238-10
+385 ;;9002226.02101,"445,00591-5238-10 ",.02)
+386 ;;00591-5238-10
+387 ;;9002226.02101,"445,00591-5239-01 ",.01)
+388 ;;00591-5239-01
+389 ;;9002226.02101,"445,00591-5239-01 ",.02)
+390 ;;00591-5239-01
+391 ;;9002226.02101,"445,00591-5239-10 ",.01)
+392 ;;00591-5239-10
+393 ;;9002226.02101,"445,00591-5239-10 ",.02)
+394 ;;00591-5239-10
+395 ;;9002226.02101,"445,00615-0414-10 ",.01)
+396 ;;00615-0414-10
+397 ;;9002226.02101,"445,00615-0414-10 ",.02)
+398 ;;00615-0414-10
+399 ;;9002226.02101,"445,00615-0447-01 ",.01)
+400 ;;00615-0447-01
+401 ;;9002226.02101,"445,00615-0447-01 ",.02)
+402 ;;00615-0447-01
+403 ;;9002226.02101,"445,00641-0130-26 ",.01)
+404 ;;00641-0130-26
+405 ;;9002226.02101,"445,00641-0130-26 ",.02)
+406 ;;00641-0130-26
+407 ;;9002226.02101,"445,00677-0233-01 ",.01)
+408 ;;00677-0233-01
+409 ;;9002226.02101,"445,00677-0233-01 ",.02)
+410 ;;00677-0233-01
+411 ;;9002226.02101,"445,00684-0152-10 ",.01)
+412 ;;00684-0152-10
+413 ;;9002226.02101,"445,00684-0152-10 ",.02)
+414 ;;00684-0152-10
+415 ;;9002226.02101,"445,00839-5004-06 ",.01)
+416 ;;00839-5004-06
+417 ;;9002226.02101,"445,00839-5004-06 ",.02)
+418 ;;00839-5004-06
+419 ;;9002226.02101,"445,00839-5004-16 ",.01)
+420 ;;00839-5004-16
+421 ;;9002226.02101,"445,00839-5004-16 ",.02)
+422 ;;00839-5004-16
+423 ;;9002226.02101,"445,00839-5070-06 ",.01)
+424 ;;00839-5070-06
+425 ;;9002226.02101,"445,00839-5070-06 ",.02)
+426 ;;00839-5070-06
+427 ;;9002226.02101,"445,00904-0044-60 ",.01)
+428 ;;00904-0044-60
+429 ;;9002226.02101,"445,00904-0044-60 ",.02)
+430 ;;00904-0044-60
+431 ;;9002226.02101,"445,00904-0044-80 ",.01)
+432 ;;00904-0044-80
+433 ;;9002226.02101,"445,00904-0044-80 ",.02)
+434 ;;00904-0044-80
+435 ;;9002226.02101,"445,00904-0045-60 ",.01)
+436 ;;00904-0045-60
+437 ;;9002226.02101,"445,00904-0045-60 ",.02)
+438 ;;00904-0045-60
+439 ;;9002226.02101,"445,00904-0045-61 ",.01)
+440 ;;00904-0045-61
+441 ;;9002226.02101,"445,00904-0045-61 ",.02)
+442 ;;00904-0045-61
+443 ;;9002226.02101,"445,00904-0045-80 ",.01)
+444 ;;00904-0045-80
+445 ;;9002226.02101,"445,00904-0045-80 ",.02)
+446 ;;00904-0045-80
+447 ;;9002226.02101,"445,10457-0325-10 ",.01)
+448 ;;10457-0325-10
+449 ;;9002226.02101,"445,10457-0325-10 ",.02)
+450 ;;10457-0325-10
+451 ;;9002226.02101,"445,11311-0956-01 ",.01)
+452 ;;11311-0956-01
+453 ;;9002226.02101,"445,11311-0956-01 ",.02)
+454 ;;11311-0956-01
+455 ;;9002226.02101,"445,17022-3373-03 ",.01)
+456 ;;17022-3373-03
+457 ;;9002226.02101,"445,17022-3373-03 ",.02)
+458 ;;17022-3373-03
+459 ;;9002226.02101,"445,17022-3394-03 ",.01)
+460 ;;17022-3394-03
+461 ;;9002226.02101,"445,17022-3394-03 ",.02)
+462 ;;17022-3394-03
+463 ;;9002226.02101,"445,17236-0804-91 ",.01)
+464 ;;17236-0804-91
+465 ;;9002226.02101,"445,17236-0804-91 ",.02)
+466 ;;17236-0804-91
+467 ;;9002226.02101,"445,51641-0325-01 ",.01)
+468 ;;51641-0325-01
+469 ;;9002226.02101,"445,51641-0325-01 ",.02)
+470 ;;51641-0325-01
+471 ;;9002226.02101,"445,51641-0325-10 ",.01)
+472 ;;51641-0325-10
+473 ;;9002226.02101,"445,51641-0325-10 ",.02)
+474 ;;51641-0325-10
+475 ;;9002226.02101,"445,51641-0327-01 ",.01)
+476 ;;51641-0327-01
+477 ;;9002226.02101,"445,51641-0327-01 ",.02)
+478 ;;51641-0327-01
+479 ;;9002226.02101,"445,51641-0327-10 ",.01)
+480 ;;51641-0327-10
+481 ;;9002226.02101,"445,51641-0327-10 ",.02)
+482 ;;51641-0327-10
+483 ;;9002226.02101,"445,52406-0255-10 ",.01)
+484 ;;52406-0255-10
+485 ;;9002226.02101,"445,52406-0255-10 ",.02)
+486 ;;52406-0255-10
+487 ;;9002226.02101,"445,52406-0256-10 ",.01)
+488 ;;52406-0256-10
+489 ;;9002226.02101,"445,52406-0256-10 ",.02)
+490 ;;52406-0256-10
+491 ;;9002226.02101,"445,52544-0804-01 ",.01)
+492 ;;52544-0804-01
+493 ;;9002226.02101,"445,52544-0804-01 ",.02)
+494 ;;52544-0804-01
+495 ;;9002226.02101,"445,52544-0805-01 ",.01)
+496 ;;52544-0805-01
+497 ;;9002226.02101,"445,52544-0805-01 ",.02)
+498 ;;52544-0805-01
+499 ;;9002226.02101,"445,52544-0805-10 ",.01)
+500 ;;52544-0805-10
+501 ;;9002226.02101,"445,52544-0805-10 ",.02)
+502 ;;52544-0805-10
+503 ;;9002226.02101,"445,52584-0256-10 ",.01)
+504 ;;52584-0256-10
+505 ;;9002226.02101,"445,52584-0256-10 ",.02)
+506 ;;52584-0256-10
+507 ;;9002226.02101,"445,54274-0526-62 ",.01)
+508 ;;54274-0526-62
+509 ;;9002226.02101,"445,54274-0526-62 ",.02)
+510 ;;54274-0526-62
+511 ;;9002226.02101,"445,54569-0935-00 ",.01)
+512 ;;54569-0935-00
+513 ;;9002226.02101,"445,54569-0935-00 ",.02)
+514 ;;54569-0935-00
+515 ;;9002226.02101,"445,54569-0935-02 ",.01)
+516 ;;54569-0935-02
+517 ;;9002226.02101,"445,54569-0935-02 ",.02)
+518 ;;54569-0935-02
+519 ;;9002226.02101,"445,54569-1411-00 ",.01)
+520 ;;54569-1411-00
+521 ;;9002226.02101,"445,54569-1411-00 ",.02)
+522 ;;54569-1411-00
+523 ;;9002226.02101,"445,54569-2131-00 ",.01)
+524 ;;54569-2131-00
+525 ;;9002226.02101,"445,54569-2131-00 ",.02)
+526 ;;54569-2131-00
+527 ;;9002226.02101,"445,54569-3025-00 ",.01)
+528 ;;54569-3025-00
+529 ;;9002226.02101,"445,54569-3025-00 ",.02)
+530 ;;54569-3025-00
+531 ;;9002226.02101,"445,54569-5301-00 ",.01)
+532 ;;54569-5301-00
+533 ;;9002226.02101,"445,54569-5301-00 ",.02)
+534 ;;54569-5301-00
+535 ;;9002226.02101,"445,54569-5338-00 ",.01)
+536 ;;54569-5338-00
+537 ;;9002226.02101,"445,54569-5338-00 ",.02)
+538 ;;54569-5338-00
+539 ;
OTHER ; OTHER ROUTINES
+1 DO ^BGP7LXCB
+2 QUIT
