BGP44U2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 11, 2013;
;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
;
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,"60429-0354-30 ")
;;229
;;21,"60505-3251-06 ")
;;216
;;21,"60505-3252-03 ")
;;227
;;21,"60505-3583-06 ")
;;129
;;21,"60505-3788-06 ")
;;347
;;21,"60760-0010-18 ")
;;97
;;21,"60760-0010-63 ")
;;98
;;21,"60760-0385-14 ")
;;439
;;21,"60760-0595-04 ")
;;423
;;21,"60760-0595-14 ")
;;424
;;21,"61958-0401-01 ")
;;315
;;21,"61958-0403-01 ")
;;321
;;21,"61958-0404-01 ")
;;312
;;21,"61958-0405-01 ")
;;313
;;21,"61958-0406-01 ")
;;314
;;21,"61958-0601-01 ")
;;191
;;21,"61958-0602-01 ")
;;193
;;21,"61958-0701-01 ")
;;389
;;21,"61958-1101-01 ")
;;477
;;21,"61958-1201-01 ")
;;481
;;21,"63010-0010-30 ")
;;92
;;21,"63010-0027-70 ")
;;101
;;21,"64376-0128-01 ")
;;284
;;21,"64376-0129-23 ")
;;309
;;21,"64376-0133-02 ")
;;264
;;21,"65162-0209-06 ")
;;346
;;21,"65862-0024-60 ")
;;305
;;21,"65862-0027-60 ")
;;344
;;21,"65862-0046-60 ")
;;246
;;21,"65862-0047-60 ")
;;253
;;21,"65862-0048-24 ")
;;310
;;21,"65862-0073-60 ")
;;134
;;21,"65862-0107-01 ")
;;285
;;21,"65862-0111-60 ")
;;233
;;21,"65862-0112-60 ")
;;239
;;21,"65862-0310-30 ")
;;147
;;21,"65862-0311-30 ")
;;149
;;21,"65862-0312-30 ")
;;169
;;21,"65862-0313-30 ")
;;185
;;21,"65862-0552-60 ")
;;215
;;21,"65862-0553-30 ")
;;228
;;21,"65862-0597-60 ")
;;431
;;21,"66267-0509-06 ")
;;415
;;21,"66267-0513-06 ")
;;195
;;21,"66267-0514-18 ")
;;90
;;21,"66267-0514-63 ")
;;91
;;21,"66336-0032-03 ")
;;379
;;21,"66336-0214-06 ")
;;13
;;21,"66336-0563-03 ")
;;400
;;21,"66336-0563-06 ")
;;401
;;21,"66336-0624-12 ")
;;457
;;21,"66336-1994-60 ")
;;63
;;21,"68071-0748-12 ")
;;448
;;21,"68071-0908-06 ")
;;435
;;21,"68084-0021-11 ")
;;130
;;21,"68084-0021-21 ")
;;131
;;21,"68084-0431-11 ")
;;159
;;21,"68084-0431-21 ")
;;160
;;21,"68084-0432-11 ")
;;174
;;21,"68084-0432-21 ")
;;175
;;21,"68084-0460-11 ")
;;254
;;21,"68084-0460-21 ")
;;255
;;21,"68084-0461-11 ")
;;286
;;21,"68084-0461-21 ")
;;287
;;21,"68084-0462-11 ")
;;303
;;21,"68084-0462-21 ")
;;304
;;21,"68084-0578-11 ")
;;217
;;21,"68084-0578-21 ")
;;218
;;21,"68180-0284-07 ")
;;432
;;21,"68258-1970-01 ")
;;122
;;21,"68258-1971-03 ")
;;319
;;21,"68258-1972-01 ")
;;449
;;21,"68258-1977-06 ")
;;437
;;21,"68258-1978-03 ")
;;367
;;21,"68258-1979-03 ")
;;335
;;21,"68258-1980-06 ")
;;52
;;21,"68258-1981-06 ")
;;18
;;21,"68258-1982-06 ")
;;340
;;21,"68258-1983-03 ")
;;385
;;21,"68258-1984-06 ")
;;29
;;21,"68258-1985-03 ")
;;37
;;21,"68258-1986-06 ")
;;51
;;21,"68258-1987-03 ")
;;111
;;21,"68258-1988-03 ")
;;376
;;21,"68258-1989-03 ")
;;476
;;21,"68258-1990-03 ")
;;473
;;21,"68258-1993-06 ")
;;402
;;21,"68258-1994-06 ")
;;61
;;21,"76519-1005-06 ")
;;428
;;9002226,1202,.01)
;;BGP PQA ANTIRETROVIRAL NDC
;;9002226,1202,.02)
;;@
;;9002226,1202,.04)
;;n
;;9002226,1202,.06)
;;@
;;9002226,1202,.08)
;;@
;;9002226,1202,.09)
;;3130911
;;9002226,1202,.11)
;;@
;;9002226,1202,.12)
;;@
;;9002226,1202,.13)
;;1
;;9002226,1202,.14)
;;@
;;9002226,1202,.15)
;;@
;;9002226,1202,.16)
;;@
;;9002226,1202,.17)
;;@
;;9002226,1202,3101)
;;@
;;9002226.02101,"1202,00003-1964-01 ",.01)
;;00003-1964-01
;;9002226.02101,"1202,00003-1964-01 ",.02)
;;00003-1964-01
;;9002226.02101,"1202,00003-1965-01 ",.01)
;;00003-1965-01
;;9002226.02101,"1202,00003-1965-01 ",.02)
;;00003-1965-01
;;9002226.02101,"1202,00003-1966-01 ",.01)
;;00003-1966-01
;;9002226.02101,"1202,00003-1966-01 ",.02)
;;00003-1966-01
;;9002226.02101,"1202,00003-1967-01 ",.01)
;;00003-1967-01
;;9002226.02101,"1202,00003-1967-01 ",.02)
;;00003-1967-01
;;9002226.02101,"1202,00003-1968-01 ",.01)
;;00003-1968-01
;;9002226.02101,"1202,00003-1968-01 ",.02)
;;00003-1968-01
;;9002226.02101,"1202,00003-3622-12 ",.01)
;;00003-3622-12
;;9002226.02101,"1202,00003-3622-12 ",.02)
;;00003-3622-12
;;9002226.02101,"1202,00003-3623-12 ",.01)
;;00003-3623-12
;;9002226.02101,"1202,00003-3623-12 ",.02)
;;00003-3623-12
;;9002226.02101,"1202,00003-3624-12 ",.01)
;;00003-3624-12
;;9002226.02101,"1202,00003-3624-12 ",.02)
;;00003-3624-12
;;9002226.02101,"1202,00003-3631-12 ",.01)
;;00003-3631-12
;;9002226.02101,"1202,00003-3631-12 ",.02)
;;00003-3631-12
;;9002226.02101,"1202,00004-0244-51 ",.01)
;;00004-0244-51
;;9002226.02101,"1202,00004-0244-51 ",.02)
;;00004-0244-51
;;9002226.02101,"1202,00004-0245-15 ",.01)
;;00004-0245-15
;;9002226.02101,"1202,00004-0245-15 ",.02)
;;00004-0245-15
;;9002226.02101,"1202,00004-0380-39 ",.01)
;;00004-0380-39
;;9002226.02101,"1202,00004-0380-39 ",.02)
;;00004-0380-39
;;9002226.02101,"1202,00004-0381-40 ",.01)
;;00004-0381-40
;;9002226.02101,"1202,00004-0381-40 ",.02)
;;00004-0381-40
;;9002226.02101,"1202,00006-0227-61 ",.01)
;;00006-0227-61
;;9002226.02101,"1202,00006-0227-61 ",.02)
;;00006-0227-61
;;9002226.02101,"1202,00006-0473-61 ",.01)
;;00006-0473-61
;;9002226.02101,"1202,00006-0473-61 ",.02)
;;00006-0473-61
;;9002226.02101,"1202,00006-0477-61 ",.01)
;;00006-0477-61
;;9002226.02101,"1202,00006-0477-61 ",.02)
;;00006-0477-61
;;9002226.02101,"1202,00006-0571-43 ",.01)
;;00006-0571-43
;;9002226.02101,"1202,00006-0571-43 ",.02)
;;00006-0571-43
;;9002226.02101,"1202,00006-0573-01 ",.01)
;;00006-0573-01
;;9002226.02101,"1202,00006-0573-01 ",.02)
;;00006-0573-01
;;9002226.02101,"1202,00006-0573-18 ",.01)
;;00006-0573-18
;;9002226.02101,"1202,00006-0573-18 ",.02)
;;00006-0573-18
;;9002226.02101,"1202,00006-0573-42 ",.01)
;;00006-0573-42
;;9002226.02101,"1202,00006-0573-42 ",.02)
;;00006-0573-42
;;9002226.02101,"1202,00006-0573-54 ",.01)
;;00006-0573-54
;;9002226.02101,"1202,00006-0573-54 ",.02)
;;00006-0573-54
;;9002226.02101,"1202,00006-0573-62 ",.01)
;;00006-0573-62
;;9002226.02101,"1202,00006-0573-62 ",.02)
;;00006-0573-62
;;9002226.02101,"1202,00054-0052-21 ",.01)
;;00054-0052-21
;;9002226.02101,"1202,00054-0052-21 ",.02)
;;00054-0052-21
;;9002226.02101,"1202,00054-0450-58 ",.01)
;;00054-0450-58
;;9002226.02101,"1202,00054-0450-58 ",.02)
;;00054-0450-58
;;9002226.02101,"1202,00054-0459-21 ",.01)
;;00054-0459-21
;;9002226.02101,"1202,00054-0459-21 ",.02)
;;00054-0459-21
;;9002226.02101,"1202,00056-0470-30 ",.01)
;;00056-0470-30
;;9002226.02101,"1202,00056-0470-30 ",.02)
;;00056-0470-30
;;9002226.02101,"1202,00056-0474-92 ",.01)
;;00056-0474-92
;;9002226.02101,"1202,00056-0474-92 ",.02)
;;00056-0474-92
;;9002226.02101,"1202,00056-0510-30 ",.01)
;;00056-0510-30
;;9002226.02101,"1202,00056-0510-30 ",.02)
;;00056-0510-30
;;9002226.02101,"1202,00074-0522-60 ",.01)
;;00074-0522-60
;;9002226.02101,"1202,00074-0522-60 ",.02)
;;00074-0522-60
;;9002226.02101,"1202,00074-1940-63 ",.01)
;;00074-1940-63
;;9002226.02101,"1202,00074-1940-63 ",.02)
;;00074-1940-63
;;9002226.02101,"1202,00074-3333-30 ",.01)
;;00074-3333-30
;;9002226.02101,"1202,00074-3333-30 ",.02)
;;00074-3333-30
;;9002226.02101,"1202,00074-3956-46 ",.01)
;;00074-3956-46
;;9002226.02101,"1202,00074-3956-46 ",.02)
;;00074-3956-46
;;9002226.02101,"1202,00074-6633-30 ",.01)
;;00074-6633-30
;;9002226.02101,"1202,00074-6633-30 ",.02)
;;00074-6633-30
;;9002226.02101,"1202,00074-6799-22 ",.01)
;;00074-6799-22
;;9002226.02101,"1202,00074-6799-22 ",.02)
;;00074-6799-22
;;9002226.02101,"1202,00087-6632-41 ",.01)
;;00087-6632-41
;;9002226.02101,"1202,00087-6632-41 ",.02)
;;00087-6632-41
;;9002226.02101,"1202,00087-6633-41 ",.01)
;;00087-6633-41
;;9002226.02101,"1202,00087-6633-41 ",.02)
;;00087-6633-41
;;9002226.02101,"1202,00087-6671-17 ",.01)
;;00087-6671-17
;;9002226.02101,"1202,00087-6671-17 ",.02)
;;00087-6671-17
;;9002226.02101,"1202,00087-6672-17 ",.01)
;;00087-6672-17
;;9002226.02101,"1202,00087-6672-17 ",.02)
;;00087-6672-17
;;9002226.02101,"1202,00087-6673-17 ",.01)
;;00087-6673-17
;;9002226.02101,"1202,00087-6673-17 ",.02)
;;00087-6673-17
;;9002226.02101,"1202,00087-6674-17 ",.01)
;;00087-6674-17
;;9002226.02101,"1202,00087-6674-17 ",.02)
;;00087-6674-17
;;9002226.02101,"1202,00093-5385-06 ",.01)
;;00093-5385-06
;;9002226.02101,"1202,00093-5385-06 ",.02)
;;00093-5385-06
;;9002226.02101,"1202,00378-4050-91 ",.01)
;;00378-4050-91
;;9002226.02101,"1202,00378-4050-91 ",.02)
;;00378-4050-91
;;9002226.02101,"1202,00378-4105-91 ",.01)
;;00378-4105-91
;;9002226.02101,"1202,00378-4105-91 ",.02)
;;00378-4105-91
;;9002226.02101,"1202,00378-5040-91 ",.01)
;;00378-5040-91
;;9002226.02101,"1202,00378-5040-91 ",.02)
;;00378-5040-91
;;9002226.02101,"1202,00378-5041-91 ",.01)
;;00378-5041-91
;;9002226.02101,"1202,00378-5041-91 ",.02)
;;00378-5041-91
;;9002226.02101,"1202,00378-5042-91 ",.01)
;;00378-5042-91
;;9002226.02101,"1202,00378-5042-91 ",.02)
;;00378-5042-91
;;9002226.02101,"1202,00378-5043-91 ",.01)
;;00378-5043-91
;;9002226.02101,"1202,00378-5043-91 ",.02)
;;00378-5043-91
;;9002226.02101,"1202,00378-6106-91 ",.01)
;;00378-6106-91
;;9002226.02101,"1202,00378-6106-91 ",.02)
;;00378-6106-91
;;9002226.02101,"1202,00378-8886-93 ",.01)
;;00378-8886-93
;;9002226.02101,"1202,00378-8886-93 ",.02)
;;00378-8886-93
;;9002226.02101,"1202,00378-8887-93 ",.01)
;;00378-8887-93
;;9002226.02101,"1202,00378-8887-93 ",.02)
;;00378-8887-93
;;9002226.02101,"1202,00378-8888-93 ",.01)
;;00378-8888-93
;;9002226.02101,"1202,00378-8888-93 ",.02)
;;00378-8888-93
;;9002226.02101,"1202,00378-8889-93 ",.01)
;;00378-8889-93
;;9002226.02101,"1202,00378-8889-93 ",.02)
;;00378-8889-93
;;9002226.02101,"1202,00490-7026-00 ",.01)
;;00490-7026-00
;;9002226.02101,"1202,00490-7026-00 ",.02)
;;00490-7026-00
;;9002226.02101,"1202,00490-7026-30 ",.01)
;;00490-7026-30
;;9002226.02101,"1202,00490-7026-30 ",.02)
;;00490-7026-30
;;9002226.02101,"1202,00490-7026-60 ",.01)
;;00490-7026-60
;;9002226.02101,"1202,00490-7026-60 ",.02)
;;00490-7026-60
;;9002226.02101,"1202,00490-7026-90 ",.01)
;;00490-7026-90
;;9002226.02101,"1202,00490-7026-90 ",.02)
;;00490-7026-90
;;9002226.02101,"1202,00490-7028-00 ",.01)
;;00490-7028-00
;;9002226.02101,"1202,00490-7028-00 ",.02)
;;00490-7028-00
;;9002226.02101,"1202,00490-7028-02 ",.01)
;;00490-7028-02
;;9002226.02101,"1202,00490-7028-02 ",.02)
;;00490-7028-02
;;9002226.02101,"1202,00490-7028-30 ",.01)
;;00490-7028-30
;;9002226.02101,"1202,00490-7028-30 ",.02)
;;00490-7028-30
;;9002226.02101,"1202,00490-7028-60 ",.01)
;;00490-7028-60
;;9002226.02101,"1202,00490-7028-60 ",.02)
;;00490-7028-60
;;9002226.02101,"1202,00490-7028-90 ",.01)
;;00490-7028-90
;;9002226.02101,"1202,00490-7028-90 ",.02)
;;00490-7028-90
;;9002226.02101,"1202,00555-0588-01 ",.01)
;;00555-0588-01
;;9002226.02101,"1202,00555-0588-01 ",.02)
;;00555-0588-01
;;9002226.02101,"1202,00555-0589-01 ",.01)
;;00555-0589-01
;;9002226.02101,"1202,00555-0589-01 ",.02)
;;00555-0589-01
;;9002226.02101,"1202,00555-0590-01 ",.01)
;;00555-0590-01
;;9002226.02101,"1202,00555-0590-01 ",.02)
;;00555-0590-01
;;9002226.02101,"1202,00597-0002-01 ",.01)
;;00597-0002-01
;;9002226.02101,"1202,00597-0002-01 ",.02)
;;00597-0002-01
;;9002226.02101,"1202,00597-0003-02 ",.01)
;;00597-0003-02
;;9002226.02101,"1202,00597-0003-02 ",.02)
;;00597-0003-02
;;9002226.02101,"1202,00597-0046-46 ",.01)
;;00597-0046-46
;;9002226.02101,"1202,00597-0046-46 ",.02)
;;00597-0046-46
;;9002226.02101,"1202,00597-0046-60 ",.01)
;;00597-0046-60
;;9002226.02101,"1202,00597-0046-60 ",.02)
;;00597-0046-60
;;9002226.02101,"1202,00597-0047-24 ",.01)
;;00597-0047-24
;;9002226.02101,"1202,00597-0047-24 ",.02)
;;00597-0047-24
;;9002226.02101,"1202,00597-0123-30 ",.01)
;;00597-0123-30
;;9002226.02101,"1202,00597-0123-30 ",.02)
;;00597-0123-30
;;9002226.02101,"1202,00597-0129-90 ",.01)
;;00597-0129-90
;;9002226.02101,"1202,00597-0129-90 ",.02)
;;00597-0129-90
;;9002226.02101,"1202,13411-0191-02 ",.01)
;;13411-0191-02
;;9002226.02101,"1202,13411-0191-02 ",.02)
;;13411-0191-02
;;9002226.02101,"1202,13411-0191-03 ",.01)
;;13411-0191-03
;;9002226.02101,"1202,13411-0191-03 ",.02)
;;13411-0191-03
;;9002226.02101,"1202,13411-0191-06 ",.01)
;;13411-0191-06
;;9002226.02101,"1202,13411-0191-06 ",.02)
;;13411-0191-06
;;9002226.02101,"1202,13411-0191-09 ",.01)
;;13411-0191-09
;;9002226.02101,"1202,13411-0191-09 ",.02)
;;13411-0191-09
;;9002226.02101,"1202,13411-0191-10 ",.01)
;;13411-0191-10
;;9002226.02101,"1202,13411-0191-10 ",.02)
;;13411-0191-10
;;9002226.02101,"1202,13411-0192-02 ",.01)
;;13411-0192-02
;;9002226.02101,"1202,13411-0192-02 ",.02)
;;13411-0192-02
;;9002226.02101,"1202,13411-0192-03 ",.01)
;;13411-0192-03
;;9002226.02101,"1202,13411-0192-03 ",.02)
;;13411-0192-03
;;9002226.02101,"1202,13411-0192-06 ",.01)
;;13411-0192-06
;;9002226.02101,"1202,13411-0192-06 ",.02)
;;13411-0192-06
;;9002226.02101,"1202,13411-0192-09 ",.01)
;;13411-0192-09
;;9002226.02101,"1202,13411-0192-09 ",.02)
;;13411-0192-09
;;9002226.02101,"1202,13411-0192-10 ",.01)
;;13411-0192-10
;;9002226.02101,"1202,13411-0192-10 ",.02)
;;13411-0192-10
;;9002226.02101,"1202,13411-0193-02 ",.01)
;;13411-0193-02
BGP44U2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 11, 2013;
+1 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
+2 ;
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 QUIT
+5 ;
TMP ;;TAXONOMY (WITH BULLETIN)
+1 ;;21,"60429-0354-30 ")
+2 ;;229
+3 ;;21,"60505-3251-06 ")
+4 ;;216
+5 ;;21,"60505-3252-03 ")
+6 ;;227
+7 ;;21,"60505-3583-06 ")
+8 ;;129
+9 ;;21,"60505-3788-06 ")
+10 ;;347
+11 ;;21,"60760-0010-18 ")
+12 ;;97
+13 ;;21,"60760-0010-63 ")
+14 ;;98
+15 ;;21,"60760-0385-14 ")
+16 ;;439
+17 ;;21,"60760-0595-04 ")
+18 ;;423
+19 ;;21,"60760-0595-14 ")
+20 ;;424
+21 ;;21,"61958-0401-01 ")
+22 ;;315
+23 ;;21,"61958-0403-01 ")
+24 ;;321
+25 ;;21,"61958-0404-01 ")
+26 ;;312
+27 ;;21,"61958-0405-01 ")
+28 ;;313
+29 ;;21,"61958-0406-01 ")
+30 ;;314
+31 ;;21,"61958-0601-01 ")
+32 ;;191
+33 ;;21,"61958-0602-01 ")
+34 ;;193
+35 ;;21,"61958-0701-01 ")
+36 ;;389
+37 ;;21,"61958-1101-01 ")
+38 ;;477
+39 ;;21,"61958-1201-01 ")
+40 ;;481
+41 ;;21,"63010-0010-30 ")
+42 ;;92
+43 ;;21,"63010-0027-70 ")
+44 ;;101
+45 ;;21,"64376-0128-01 ")
+46 ;;284
+47 ;;21,"64376-0129-23 ")
+48 ;;309
+49 ;;21,"64376-0133-02 ")
+50 ;;264
+51 ;;21,"65162-0209-06 ")
+52 ;;346
+53 ;;21,"65862-0024-60 ")
+54 ;;305
+55 ;;21,"65862-0027-60 ")
+56 ;;344
+57 ;;21,"65862-0046-60 ")
+58 ;;246
+59 ;;21,"65862-0047-60 ")
+60 ;;253
+61 ;;21,"65862-0048-24 ")
+62 ;;310
+63 ;;21,"65862-0073-60 ")
+64 ;;134
+65 ;;21,"65862-0107-01 ")
+66 ;;285
+67 ;;21,"65862-0111-60 ")
+68 ;;233
+69 ;;21,"65862-0112-60 ")
+70 ;;239
+71 ;;21,"65862-0310-30 ")
+72 ;;147
+73 ;;21,"65862-0311-30 ")
+74 ;;149
+75 ;;21,"65862-0312-30 ")
+76 ;;169
+77 ;;21,"65862-0313-30 ")
+78 ;;185
+79 ;;21,"65862-0552-60 ")
+80 ;;215
+81 ;;21,"65862-0553-30 ")
+82 ;;228
+83 ;;21,"65862-0597-60 ")
+84 ;;431
+85 ;;21,"66267-0509-06 ")
+86 ;;415
+87 ;;21,"66267-0513-06 ")
+88 ;;195
+89 ;;21,"66267-0514-18 ")
+90 ;;90
+91 ;;21,"66267-0514-63 ")
+92 ;;91
+93 ;;21,"66336-0032-03 ")
+94 ;;379
+95 ;;21,"66336-0214-06 ")
+96 ;;13
+97 ;;21,"66336-0563-03 ")
+98 ;;400
+99 ;;21,"66336-0563-06 ")
+100 ;;401
+101 ;;21,"66336-0624-12 ")
+102 ;;457
+103 ;;21,"66336-1994-60 ")
+104 ;;63
+105 ;;21,"68071-0748-12 ")
+106 ;;448
+107 ;;21,"68071-0908-06 ")
+108 ;;435
+109 ;;21,"68084-0021-11 ")
+110 ;;130
+111 ;;21,"68084-0021-21 ")
+112 ;;131
+113 ;;21,"68084-0431-11 ")
+114 ;;159
+115 ;;21,"68084-0431-21 ")
+116 ;;160
+117 ;;21,"68084-0432-11 ")
+118 ;;174
+119 ;;21,"68084-0432-21 ")
+120 ;;175
+121 ;;21,"68084-0460-11 ")
+122 ;;254
+123 ;;21,"68084-0460-21 ")
+124 ;;255
+125 ;;21,"68084-0461-11 ")
+126 ;;286
+127 ;;21,"68084-0461-21 ")
+128 ;;287
+129 ;;21,"68084-0462-11 ")
+130 ;;303
+131 ;;21,"68084-0462-21 ")
+132 ;;304
+133 ;;21,"68084-0578-11 ")
+134 ;;217
+135 ;;21,"68084-0578-21 ")
+136 ;;218
+137 ;;21,"68180-0284-07 ")
+138 ;;432
+139 ;;21,"68258-1970-01 ")
+140 ;;122
+141 ;;21,"68258-1971-03 ")
+142 ;;319
+143 ;;21,"68258-1972-01 ")
+144 ;;449
+145 ;;21,"68258-1977-06 ")
+146 ;;437
+147 ;;21,"68258-1978-03 ")
+148 ;;367
+149 ;;21,"68258-1979-03 ")
+150 ;;335
+151 ;;21,"68258-1980-06 ")
+152 ;;52
+153 ;;21,"68258-1981-06 ")
+154 ;;18
+155 ;;21,"68258-1982-06 ")
+156 ;;340
+157 ;;21,"68258-1983-03 ")
+158 ;;385
+159 ;;21,"68258-1984-06 ")
+160 ;;29
+161 ;;21,"68258-1985-03 ")
+162 ;;37
+163 ;;21,"68258-1986-06 ")
+164 ;;51
+165 ;;21,"68258-1987-03 ")
+166 ;;111
+167 ;;21,"68258-1988-03 ")
+168 ;;376
+169 ;;21,"68258-1989-03 ")
+170 ;;476
+171 ;;21,"68258-1990-03 ")
+172 ;;473
+173 ;;21,"68258-1993-06 ")
+174 ;;402
+175 ;;21,"68258-1994-06 ")
+176 ;;61
+177 ;;21,"76519-1005-06 ")
+178 ;;428
+179 ;;9002226,1202,.01)
+180 ;;BGP PQA ANTIRETROVIRAL NDC
+181 ;;9002226,1202,.02)
+182 ;;@
+183 ;;9002226,1202,.04)
+184 ;;n
+185 ;;9002226,1202,.06)
+186 ;;@
+187 ;;9002226,1202,.08)
+188 ;;@
+189 ;;9002226,1202,.09)
+190 ;;3130911
+191 ;;9002226,1202,.11)
+192 ;;@
+193 ;;9002226,1202,.12)
+194 ;;@
+195 ;;9002226,1202,.13)
+196 ;;1
+197 ;;9002226,1202,.14)
+198 ;;@
+199 ;;9002226,1202,.15)
+200 ;;@
+201 ;;9002226,1202,.16)
+202 ;;@
+203 ;;9002226,1202,.17)
+204 ;;@
+205 ;;9002226,1202,3101)
+206 ;;@
+207 ;;9002226.02101,"1202,00003-1964-01 ",.01)
+208 ;;00003-1964-01
+209 ;;9002226.02101,"1202,00003-1964-01 ",.02)
+210 ;;00003-1964-01
+211 ;;9002226.02101,"1202,00003-1965-01 ",.01)
+212 ;;00003-1965-01
+213 ;;9002226.02101,"1202,00003-1965-01 ",.02)
+214 ;;00003-1965-01
+215 ;;9002226.02101,"1202,00003-1966-01 ",.01)
+216 ;;00003-1966-01
+217 ;;9002226.02101,"1202,00003-1966-01 ",.02)
+218 ;;00003-1966-01
+219 ;;9002226.02101,"1202,00003-1967-01 ",.01)
+220 ;;00003-1967-01
+221 ;;9002226.02101,"1202,00003-1967-01 ",.02)
+222 ;;00003-1967-01
+223 ;;9002226.02101,"1202,00003-1968-01 ",.01)
+224 ;;00003-1968-01
+225 ;;9002226.02101,"1202,00003-1968-01 ",.02)
+226 ;;00003-1968-01
+227 ;;9002226.02101,"1202,00003-3622-12 ",.01)
+228 ;;00003-3622-12
+229 ;;9002226.02101,"1202,00003-3622-12 ",.02)
+230 ;;00003-3622-12
+231 ;;9002226.02101,"1202,00003-3623-12 ",.01)
+232 ;;00003-3623-12
+233 ;;9002226.02101,"1202,00003-3623-12 ",.02)
+234 ;;00003-3623-12
+235 ;;9002226.02101,"1202,00003-3624-12 ",.01)
+236 ;;00003-3624-12
+237 ;;9002226.02101,"1202,00003-3624-12 ",.02)
+238 ;;00003-3624-12
+239 ;;9002226.02101,"1202,00003-3631-12 ",.01)
+240 ;;00003-3631-12
+241 ;;9002226.02101,"1202,00003-3631-12 ",.02)
+242 ;;00003-3631-12
+243 ;;9002226.02101,"1202,00004-0244-51 ",.01)
+244 ;;00004-0244-51
+245 ;;9002226.02101,"1202,00004-0244-51 ",.02)
+246 ;;00004-0244-51
+247 ;;9002226.02101,"1202,00004-0245-15 ",.01)
+248 ;;00004-0245-15
+249 ;;9002226.02101,"1202,00004-0245-15 ",.02)
+250 ;;00004-0245-15
+251 ;;9002226.02101,"1202,00004-0380-39 ",.01)
+252 ;;00004-0380-39
+253 ;;9002226.02101,"1202,00004-0380-39 ",.02)
+254 ;;00004-0380-39
+255 ;;9002226.02101,"1202,00004-0381-40 ",.01)
+256 ;;00004-0381-40
+257 ;;9002226.02101,"1202,00004-0381-40 ",.02)
+258 ;;00004-0381-40
+259 ;;9002226.02101,"1202,00006-0227-61 ",.01)
+260 ;;00006-0227-61
+261 ;;9002226.02101,"1202,00006-0227-61 ",.02)
+262 ;;00006-0227-61
+263 ;;9002226.02101,"1202,00006-0473-61 ",.01)
+264 ;;00006-0473-61
+265 ;;9002226.02101,"1202,00006-0473-61 ",.02)
+266 ;;00006-0473-61
+267 ;;9002226.02101,"1202,00006-0477-61 ",.01)
+268 ;;00006-0477-61
+269 ;;9002226.02101,"1202,00006-0477-61 ",.02)
+270 ;;00006-0477-61
+271 ;;9002226.02101,"1202,00006-0571-43 ",.01)
+272 ;;00006-0571-43
+273 ;;9002226.02101,"1202,00006-0571-43 ",.02)
+274 ;;00006-0571-43
+275 ;;9002226.02101,"1202,00006-0573-01 ",.01)
+276 ;;00006-0573-01
+277 ;;9002226.02101,"1202,00006-0573-01 ",.02)
+278 ;;00006-0573-01
+279 ;;9002226.02101,"1202,00006-0573-18 ",.01)
+280 ;;00006-0573-18
+281 ;;9002226.02101,"1202,00006-0573-18 ",.02)
+282 ;;00006-0573-18
+283 ;;9002226.02101,"1202,00006-0573-42 ",.01)
+284 ;;00006-0573-42
+285 ;;9002226.02101,"1202,00006-0573-42 ",.02)
+286 ;;00006-0573-42
+287 ;;9002226.02101,"1202,00006-0573-54 ",.01)
+288 ;;00006-0573-54
+289 ;;9002226.02101,"1202,00006-0573-54 ",.02)
+290 ;;00006-0573-54
+291 ;;9002226.02101,"1202,00006-0573-62 ",.01)
+292 ;;00006-0573-62
+293 ;;9002226.02101,"1202,00006-0573-62 ",.02)
+294 ;;00006-0573-62
+295 ;;9002226.02101,"1202,00054-0052-21 ",.01)
+296 ;;00054-0052-21
+297 ;;9002226.02101,"1202,00054-0052-21 ",.02)
+298 ;;00054-0052-21
+299 ;;9002226.02101,"1202,00054-0450-58 ",.01)
+300 ;;00054-0450-58
+301 ;;9002226.02101,"1202,00054-0450-58 ",.02)
+302 ;;00054-0450-58
+303 ;;9002226.02101,"1202,00054-0459-21 ",.01)
+304 ;;00054-0459-21
+305 ;;9002226.02101,"1202,00054-0459-21 ",.02)
+306 ;;00054-0459-21
+307 ;;9002226.02101,"1202,00056-0470-30 ",.01)
+308 ;;00056-0470-30
+309 ;;9002226.02101,"1202,00056-0470-30 ",.02)
+310 ;;00056-0470-30
+311 ;;9002226.02101,"1202,00056-0474-92 ",.01)
+312 ;;00056-0474-92
+313 ;;9002226.02101,"1202,00056-0474-92 ",.02)
+314 ;;00056-0474-92
+315 ;;9002226.02101,"1202,00056-0510-30 ",.01)
+316 ;;00056-0510-30
+317 ;;9002226.02101,"1202,00056-0510-30 ",.02)
+318 ;;00056-0510-30
+319 ;;9002226.02101,"1202,00074-0522-60 ",.01)
+320 ;;00074-0522-60
+321 ;;9002226.02101,"1202,00074-0522-60 ",.02)
+322 ;;00074-0522-60
+323 ;;9002226.02101,"1202,00074-1940-63 ",.01)
+324 ;;00074-1940-63
+325 ;;9002226.02101,"1202,00074-1940-63 ",.02)
+326 ;;00074-1940-63
+327 ;;9002226.02101,"1202,00074-3333-30 ",.01)
+328 ;;00074-3333-30
+329 ;;9002226.02101,"1202,00074-3333-30 ",.02)
+330 ;;00074-3333-30
+331 ;;9002226.02101,"1202,00074-3956-46 ",.01)
+332 ;;00074-3956-46
+333 ;;9002226.02101,"1202,00074-3956-46 ",.02)
+334 ;;00074-3956-46
+335 ;;9002226.02101,"1202,00074-6633-30 ",.01)
+336 ;;00074-6633-30
+337 ;;9002226.02101,"1202,00074-6633-30 ",.02)
+338 ;;00074-6633-30
+339 ;;9002226.02101,"1202,00074-6799-22 ",.01)
+340 ;;00074-6799-22
+341 ;;9002226.02101,"1202,00074-6799-22 ",.02)
+342 ;;00074-6799-22
+343 ;;9002226.02101,"1202,00087-6632-41 ",.01)
+344 ;;00087-6632-41
+345 ;;9002226.02101,"1202,00087-6632-41 ",.02)
+346 ;;00087-6632-41
+347 ;;9002226.02101,"1202,00087-6633-41 ",.01)
+348 ;;00087-6633-41
+349 ;;9002226.02101,"1202,00087-6633-41 ",.02)
+350 ;;00087-6633-41
+351 ;;9002226.02101,"1202,00087-6671-17 ",.01)
+352 ;;00087-6671-17
+353 ;;9002226.02101,"1202,00087-6671-17 ",.02)
+354 ;;00087-6671-17
+355 ;;9002226.02101,"1202,00087-6672-17 ",.01)
+356 ;;00087-6672-17
+357 ;;9002226.02101,"1202,00087-6672-17 ",.02)
+358 ;;00087-6672-17
+359 ;;9002226.02101,"1202,00087-6673-17 ",.01)
+360 ;;00087-6673-17
+361 ;;9002226.02101,"1202,00087-6673-17 ",.02)
+362 ;;00087-6673-17
+363 ;;9002226.02101,"1202,00087-6674-17 ",.01)
+364 ;;00087-6674-17
+365 ;;9002226.02101,"1202,00087-6674-17 ",.02)
+366 ;;00087-6674-17
+367 ;;9002226.02101,"1202,00093-5385-06 ",.01)
+368 ;;00093-5385-06
+369 ;;9002226.02101,"1202,00093-5385-06 ",.02)
+370 ;;00093-5385-06
+371 ;;9002226.02101,"1202,00378-4050-91 ",.01)
+372 ;;00378-4050-91
+373 ;;9002226.02101,"1202,00378-4050-91 ",.02)
+374 ;;00378-4050-91
+375 ;;9002226.02101,"1202,00378-4105-91 ",.01)
+376 ;;00378-4105-91
+377 ;;9002226.02101,"1202,00378-4105-91 ",.02)
+378 ;;00378-4105-91
+379 ;;9002226.02101,"1202,00378-5040-91 ",.01)
+380 ;;00378-5040-91
+381 ;;9002226.02101,"1202,00378-5040-91 ",.02)
+382 ;;00378-5040-91
+383 ;;9002226.02101,"1202,00378-5041-91 ",.01)
+384 ;;00378-5041-91
+385 ;;9002226.02101,"1202,00378-5041-91 ",.02)
+386 ;;00378-5041-91
+387 ;;9002226.02101,"1202,00378-5042-91 ",.01)
+388 ;;00378-5042-91
+389 ;;9002226.02101,"1202,00378-5042-91 ",.02)
+390 ;;00378-5042-91
+391 ;;9002226.02101,"1202,00378-5043-91 ",.01)
+392 ;;00378-5043-91
+393 ;;9002226.02101,"1202,00378-5043-91 ",.02)
+394 ;;00378-5043-91
+395 ;;9002226.02101,"1202,00378-6106-91 ",.01)
+396 ;;00378-6106-91
+397 ;;9002226.02101,"1202,00378-6106-91 ",.02)
+398 ;;00378-6106-91
+399 ;;9002226.02101,"1202,00378-8886-93 ",.01)
+400 ;;00378-8886-93
+401 ;;9002226.02101,"1202,00378-8886-93 ",.02)
+402 ;;00378-8886-93
+403 ;;9002226.02101,"1202,00378-8887-93 ",.01)
+404 ;;00378-8887-93
+405 ;;9002226.02101,"1202,00378-8887-93 ",.02)
+406 ;;00378-8887-93
+407 ;;9002226.02101,"1202,00378-8888-93 ",.01)
+408 ;;00378-8888-93
+409 ;;9002226.02101,"1202,00378-8888-93 ",.02)
+410 ;;00378-8888-93
+411 ;;9002226.02101,"1202,00378-8889-93 ",.01)
+412 ;;00378-8889-93
+413 ;;9002226.02101,"1202,00378-8889-93 ",.02)
+414 ;;00378-8889-93
+415 ;;9002226.02101,"1202,00490-7026-00 ",.01)
+416 ;;00490-7026-00
+417 ;;9002226.02101,"1202,00490-7026-00 ",.02)
+418 ;;00490-7026-00
+419 ;;9002226.02101,"1202,00490-7026-30 ",.01)
+420 ;;00490-7026-30
+421 ;;9002226.02101,"1202,00490-7026-30 ",.02)
+422 ;;00490-7026-30
+423 ;;9002226.02101,"1202,00490-7026-60 ",.01)
+424 ;;00490-7026-60
+425 ;;9002226.02101,"1202,00490-7026-60 ",.02)
+426 ;;00490-7026-60
+427 ;;9002226.02101,"1202,00490-7026-90 ",.01)
+428 ;;00490-7026-90
+429 ;;9002226.02101,"1202,00490-7026-90 ",.02)
+430 ;;00490-7026-90
+431 ;;9002226.02101,"1202,00490-7028-00 ",.01)
+432 ;;00490-7028-00
+433 ;;9002226.02101,"1202,00490-7028-00 ",.02)
+434 ;;00490-7028-00
+435 ;;9002226.02101,"1202,00490-7028-02 ",.01)
+436 ;;00490-7028-02
+437 ;;9002226.02101,"1202,00490-7028-02 ",.02)
+438 ;;00490-7028-02
+439 ;;9002226.02101,"1202,00490-7028-30 ",.01)
+440 ;;00490-7028-30
+441 ;;9002226.02101,"1202,00490-7028-30 ",.02)
+442 ;;00490-7028-30
+443 ;;9002226.02101,"1202,00490-7028-60 ",.01)
+444 ;;00490-7028-60
+445 ;;9002226.02101,"1202,00490-7028-60 ",.02)
+446 ;;00490-7028-60
+447 ;;9002226.02101,"1202,00490-7028-90 ",.01)
+448 ;;00490-7028-90
+449 ;;9002226.02101,"1202,00490-7028-90 ",.02)
+450 ;;00490-7028-90
+451 ;;9002226.02101,"1202,00555-0588-01 ",.01)
+452 ;;00555-0588-01
+453 ;;9002226.02101,"1202,00555-0588-01 ",.02)
+454 ;;00555-0588-01
+455 ;;9002226.02101,"1202,00555-0589-01 ",.01)
+456 ;;00555-0589-01
+457 ;;9002226.02101,"1202,00555-0589-01 ",.02)
+458 ;;00555-0589-01
+459 ;;9002226.02101,"1202,00555-0590-01 ",.01)
+460 ;;00555-0590-01
+461 ;;9002226.02101,"1202,00555-0590-01 ",.02)
+462 ;;00555-0590-01
+463 ;;9002226.02101,"1202,00597-0002-01 ",.01)
+464 ;;00597-0002-01
+465 ;;9002226.02101,"1202,00597-0002-01 ",.02)
+466 ;;00597-0002-01
+467 ;;9002226.02101,"1202,00597-0003-02 ",.01)
+468 ;;00597-0003-02
+469 ;;9002226.02101,"1202,00597-0003-02 ",.02)
+470 ;;00597-0003-02
+471 ;;9002226.02101,"1202,00597-0046-46 ",.01)
+472 ;;00597-0046-46
+473 ;;9002226.02101,"1202,00597-0046-46 ",.02)
+474 ;;00597-0046-46
+475 ;;9002226.02101,"1202,00597-0046-60 ",.01)
+476 ;;00597-0046-60
+477 ;;9002226.02101,"1202,00597-0046-60 ",.02)
+478 ;;00597-0046-60
+479 ;;9002226.02101,"1202,00597-0047-24 ",.01)
+480 ;;00597-0047-24
+481 ;;9002226.02101,"1202,00597-0047-24 ",.02)
+482 ;;00597-0047-24
+483 ;;9002226.02101,"1202,00597-0123-30 ",.01)
+484 ;;00597-0123-30
+485 ;;9002226.02101,"1202,00597-0123-30 ",.02)
+486 ;;00597-0123-30
+487 ;;9002226.02101,"1202,00597-0129-90 ",.01)
+488 ;;00597-0129-90
+489 ;;9002226.02101,"1202,00597-0129-90 ",.02)
+490 ;;00597-0129-90
+491 ;;9002226.02101,"1202,13411-0191-02 ",.01)
+492 ;;13411-0191-02
+493 ;;9002226.02101,"1202,13411-0191-02 ",.02)
+494 ;;13411-0191-02
+495 ;;9002226.02101,"1202,13411-0191-03 ",.01)
+496 ;;13411-0191-03
+497 ;;9002226.02101,"1202,13411-0191-03 ",.02)
+498 ;;13411-0191-03
+499 ;;9002226.02101,"1202,13411-0191-06 ",.01)
+500 ;;13411-0191-06
+501 ;;9002226.02101,"1202,13411-0191-06 ",.02)
+502 ;;13411-0191-06
+503 ;;9002226.02101,"1202,13411-0191-09 ",.01)
+504 ;;13411-0191-09
+505 ;;9002226.02101,"1202,13411-0191-09 ",.02)
+506 ;;13411-0191-09
+507 ;;9002226.02101,"1202,13411-0191-10 ",.01)
+508 ;;13411-0191-10
+509 ;;9002226.02101,"1202,13411-0191-10 ",.02)
+510 ;;13411-0191-10
+511 ;;9002226.02101,"1202,13411-0192-02 ",.01)
+512 ;;13411-0192-02
+513 ;;9002226.02101,"1202,13411-0192-02 ",.02)
+514 ;;13411-0192-02
+515 ;;9002226.02101,"1202,13411-0192-03 ",.01)
+516 ;;13411-0192-03
+517 ;;9002226.02101,"1202,13411-0192-03 ",.02)
+518 ;;13411-0192-03
+519 ;;9002226.02101,"1202,13411-0192-06 ",.01)
+520 ;;13411-0192-06
+521 ;;9002226.02101,"1202,13411-0192-06 ",.02)
+522 ;;13411-0192-06
+523 ;;9002226.02101,"1202,13411-0192-09 ",.01)
+524 ;;13411-0192-09
+525 ;;9002226.02101,"1202,13411-0192-09 ",.02)
+526 ;;13411-0192-09
+527 ;;9002226.02101,"1202,13411-0192-10 ",.01)
+528 ;;13411-0192-10
+529 ;;9002226.02101,"1202,13411-0192-10 ",.02)
+530 ;;13411-0192-10
+531 ;;9002226.02101,"1202,13411-0193-02 ",.01)
+532 ;;13411-0193-02
