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

BGP82Q2.m

Go to the documentation of this file.
BGP82Q2 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"55289-0392-03 ")
 ;;340
 ;;21,"55289-0477-27 ")
 ;;341
 ;;21,"55289-0947-12 ")
 ;;342
 ;;21,"55700-0096-04 ")
 ;;343
 ;;21,"55700-0096-06 ")
 ;;344
 ;;21,"55700-0304-06 ")
 ;;345
 ;;21,"55700-0411-06 ")
 ;;346
 ;;21,"57237-0274-24 ")
 ;;347
 ;;21,"59676-0278-01 ")
 ;;348
 ;;21,"59676-0561-01 ")
 ;;349
 ;;21,"59676-0562-01 ")
 ;;350
 ;;21,"59676-0563-01 ")
 ;;351
 ;;21,"59676-0564-01 ")
 ;;352
 ;;21,"59676-0565-01 ")
 ;;353
 ;;21,"59676-0566-30 ")
 ;;354
 ;;21,"59676-0570-01 ")
 ;;355
 ;;21,"59676-0571-01 ")
 ;;356
 ;;21,"59676-0572-01 ")
 ;;357
 ;;21,"59676-0575-30 ")
 ;;358
 ;;21,"60429-0298-60 ")
 ;;359
 ;;21,"60429-0353-60 ")
 ;;360
 ;;21,"60429-0354-30 ")
 ;;361
 ;;21,"60505-3251-06 ")
 ;;362
 ;;21,"60505-3252-03 ")
 ;;363
 ;;21,"60505-3583-06 ")
 ;;364
 ;;21,"60505-3788-06 ")
 ;;365
 ;;21,"60505-4058-03 ")
 ;;366
 ;;21,"60760-0010-18 ")
 ;;367
 ;;21,"60760-0010-63 ")
 ;;368
 ;;21,"60760-0385-04 ")
 ;;369
 ;;21,"60760-0385-14 ")
 ;;370
 ;;21,"60760-0595-04 ")
 ;;371
 ;;21,"60760-0595-14 ")
 ;;372
 ;;21,"61442-0470-60 ")
 ;;373
 ;;21,"61919-0061-02 ")
 ;;374
 ;;21,"61958-0401-01 ")
 ;;375
 ;;21,"61958-0403-01 ")
 ;;376
 ;;21,"61958-0404-01 ")
 ;;377
 ;;21,"61958-0405-01 ")
 ;;378
 ;;21,"61958-0406-01 ")
 ;;379
 ;;21,"61958-0601-01 ")
 ;;380
 ;;21,"61958-0602-01 ")
 ;;381
 ;;21,"61958-0701-01 ")
 ;;382
 ;;21,"61958-0703-01 ")
 ;;383
 ;;21,"61958-0704-01 ")
 ;;384
 ;;21,"61958-0705-01 ")
 ;;385
 ;;21,"61958-1101-01 ")
 ;;386
 ;;21,"61958-1201-01 ")
 ;;387
 ;;21,"61958-1301-01 ")
 ;;388
 ;;21,"61958-1302-01 ")
 ;;389
 ;;21,"61958-1901-01 ")
 ;;390
 ;;21,"61958-2002-01 ")
 ;;391
 ;;21,"61958-2101-01 ")
 ;;392
 ;;21,"63010-0010-30 ")
 ;;393
 ;;21,"63010-0027-70 ")
 ;;394
 ;;21,"64376-0128-01 ")
 ;;395
 ;;21,"64376-0129-23 ")
 ;;396
 ;;21,"64376-0133-02 ")
 ;;397
 ;;21,"64380-0707-03 ")
 ;;398
 ;;21,"64380-0717-03 ")
 ;;399
 ;;21,"65162-0209-06 ")
 ;;400
 ;;21,"65862-0024-60 ")
 ;;401
 ;;21,"65862-0027-60 ")
 ;;402
 ;;21,"65862-0046-60 ")
 ;;403
 ;;21,"65862-0047-60 ")
 ;;404
 ;;21,"65862-0048-24 ")
 ;;405
 ;;21,"65862-0055-24 ")
 ;;406
 ;;21,"65862-0073-60 ")
 ;;407
 ;;21,"65862-0107-01 ")
 ;;408
 ;;21,"65862-0111-60 ")
 ;;409
 ;;21,"65862-0112-60 ")
 ;;410
 ;;21,"65862-0310-30 ")
 ;;411
 ;;21,"65862-0311-30 ")
 ;;412
 ;;21,"65862-0312-30 ")
 ;;413
 ;;21,"65862-0313-30 ")
 ;;414
 ;;21,"65862-0552-60 ")
 ;;415
 ;;21,"65862-0553-30 ")
 ;;416
 ;;21,"65862-0597-60 ")
 ;;417
 ;;21,"65862-0900-30 ")
 ;;418
 ;;21,"65862-0932-90 ")
 ;;419
 ;;21,"65862-0933-30 ")
 ;;420
 ;;21,"66267-0509-06 ")
 ;;421
 ;;21,"66267-0513-06 ")
 ;;422
 ;;21,"66267-0514-18 ")
 ;;423
 ;;21,"66267-0514-63 ")
 ;;424
 ;;21,"66336-0214-06 ")
 ;;425
 ;;21,"66336-0624-12 ")
 ;;426
 ;;21,"66993-0482-30 ")
 ;;427
 ;;21,"68071-0748-12 ")
 ;;428
 ;;21,"68071-0908-06 ")
 ;;429
 ;;21,"68071-2112-03 ")
 ;;430
 ;;21,"68071-2113-06 ")
 ;;431
 ;;21,"68084-0021-11 ")
 ;;432
 ;;21,"68084-0021-21 ")
 ;;433
 ;;21,"68084-0416-11 ")
 ;;434
 ;;21,"68084-0416-21 ")
 ;;435
 ;;21,"68084-0416-25 ")
 ;;436
 ;;21,"68084-0416-95 ")
 ;;437
 ;;21,"68084-0460-11 ")
 ;;438
 ;;21,"68084-0460-21 ")
 ;;439
 ;;21,"68084-0461-11 ")
 ;;440
 ;;21,"68084-0461-21 ")
 ;;441
 ;;21,"68084-0462-11 ")
 ;;442
 ;;21,"68084-0462-21 ")
 ;;443
 ;;21,"68084-0578-11 ")
 ;;444
 ;;21,"68084-0578-21 ")
 ;;445
 ;;21,"68180-0284-07 ")
 ;;446
 ;;21,"68180-0286-07 ")
 ;;447
 ;;21,"68180-0288-06 ")
 ;;448
 ;;21,"68180-0602-07 ")
 ;;449
 ;;21,"68180-0603-06 ")
 ;;450
 ;;21,"68258-1972-01 ")
 ;;451
 ;;21,"68788-6394-01 ")
 ;;452
 ;;21,"68788-6394-02 ")
 ;;453
 ;;21,"68788-6394-03 ")
 ;;454
 ;;21,"68788-6394-06 ")
 ;;455
 ;;21,"68788-6394-08 ")
 ;;456
 ;;21,"68788-6394-09 ")
 ;;457
 ;;21,"69097-0362-02 ")
 ;;458
 ;;21,"69097-0403-02 ")
 ;;459
 ;;21,"76282-0115-60 ")
 ;;460
 ;;21,"76519-1005-06 ")
 ;;461
 ;;9002226,1225,.01)
 ;;BGP PQA ANTIRETROVIRAL NDC
 ;;9002226,1225,.02)
 ;;@
 ;;9002226,1225,.04)
 ;;n
 ;;9002226,1225,.06)
 ;;@
 ;;9002226,1225,.08)
 ;;@
 ;;9002226,1225,.09)
 ;;3170809
 ;;9002226,1225,.11)
 ;;@
 ;;9002226,1225,.12)
 ;;@
 ;;9002226,1225,.13)
 ;;1
 ;;9002226,1225,.14)
 ;;@
 ;;9002226,1225,.15)
 ;;50.67
 ;;9002226,1225,.16)
 ;;@
 ;;9002226,1225,.17)
 ;;@
 ;;9002226,1225,.22)
 ;;1
 ;;9002226,1225,3101)
 ;;@
 ;;9002226.02101,"1225,00003-1964-01 ",.01)
 ;;00003-1964-01
 ;;9002226.02101,"1225,00003-1964-01 ",.02)
 ;;00003-1964-01
 ;;9002226.02101,"1225,00003-1965-01 ",.01)
 ;;00003-1965-01
 ;;9002226.02101,"1225,00003-1965-01 ",.02)
 ;;00003-1965-01
 ;;9002226.02101,"1225,00003-1966-01 ",.01)
 ;;00003-1966-01
 ;;9002226.02101,"1225,00003-1966-01 ",.02)
 ;;00003-1966-01
 ;;9002226.02101,"1225,00003-1967-01 ",.01)
 ;;00003-1967-01
 ;;9002226.02101,"1225,00003-1967-01 ",.02)
 ;;00003-1967-01
 ;;9002226.02101,"1225,00003-1968-01 ",.01)
 ;;00003-1968-01
 ;;9002226.02101,"1225,00003-1968-01 ",.02)
 ;;00003-1968-01
 ;;9002226.02101,"1225,00003-3622-12 ",.01)
 ;;00003-3622-12
 ;;9002226.02101,"1225,00003-3622-12 ",.02)
 ;;00003-3622-12
 ;;9002226.02101,"1225,00003-3623-12 ",.01)
 ;;00003-3623-12
 ;;9002226.02101,"1225,00003-3623-12 ",.02)
 ;;00003-3623-12
 ;;9002226.02101,"1225,00003-3624-12 ",.01)
 ;;00003-3624-12
 ;;9002226.02101,"1225,00003-3624-12 ",.02)
 ;;00003-3624-12
 ;;9002226.02101,"1225,00003-3631-12 ",.01)
 ;;00003-3631-12
 ;;9002226.02101,"1225,00003-3631-12 ",.02)
 ;;00003-3631-12
 ;;9002226.02101,"1225,00003-3638-10 ",.01)
 ;;00003-3638-10
 ;;9002226.02101,"1225,00003-3638-10 ",.02)
 ;;00003-3638-10
 ;;9002226.02101,"1225,00003-3641-11 ",.01)
 ;;00003-3641-11
 ;;9002226.02101,"1225,00003-3641-11 ",.02)
 ;;00003-3641-11
 ;;9002226.02101,"1225,00004-0244-51 ",.01)
 ;;00004-0244-51
 ;;9002226.02101,"1225,00004-0244-51 ",.02)
 ;;00004-0244-51
 ;;9002226.02101,"1225,00004-0245-15 ",.01)
 ;;00004-0245-15
 ;;9002226.02101,"1225,00004-0245-15 ",.02)
 ;;00004-0245-15
 ;;9002226.02101,"1225,00004-0381-40 ",.01)
 ;;00004-0381-40
 ;;9002226.02101,"1225,00004-0381-40 ",.02)
 ;;00004-0381-40
 ;;9002226.02101,"1225,00006-0227-61 ",.01)
 ;;00006-0227-61
 ;;9002226.02101,"1225,00006-0227-61 ",.02)
 ;;00006-0227-61
 ;;9002226.02101,"1225,00006-0473-61 ",.01)
 ;;00006-0473-61
 ;;9002226.02101,"1225,00006-0473-61 ",.02)
 ;;00006-0473-61
 ;;9002226.02101,"1225,00006-0477-61 ",.01)
 ;;00006-0477-61
 ;;9002226.02101,"1225,00006-0477-61 ",.02)
 ;;00006-0477-61
 ;;9002226.02101,"1225,00006-0571-43 ",.01)
 ;;00006-0571-43
 ;;9002226.02101,"1225,00006-0571-43 ",.02)
 ;;00006-0571-43
 ;;9002226.02101,"1225,00006-0573-62 ",.01)
 ;;00006-0573-62
 ;;9002226.02101,"1225,00006-0573-62 ",.02)
 ;;00006-0573-62
 ;;9002226.02101,"1225,00006-3603-01 ",.01)
 ;;00006-3603-01
 ;;9002226.02101,"1225,00006-3603-01 ",.02)
 ;;00006-3603-01
 ;;9002226.02101,"1225,00006-3603-60 ",.01)
 ;;00006-3603-60
 ;;9002226.02101,"1225,00006-3603-60 ",.02)
 ;;00006-3603-60
 ;;9002226.02101,"1225,00054-0450-58 ",.01)
 ;;00054-0450-58
 ;;9002226.02101,"1225,00054-0450-58 ",.02)
 ;;00054-0450-58
 ;;9002226.02101,"1225,00054-0459-21 ",.01)
 ;;00054-0459-21
 ;;9002226.02101,"1225,00054-0459-21 ",.02)
 ;;00054-0459-21
 ;;9002226.02101,"1225,00056-0470-30 ",.01)
 ;;00056-0470-30
 ;;9002226.02101,"1225,00056-0470-30 ",.02)
 ;;00056-0470-30
 ;;9002226.02101,"1225,00056-0474-92 ",.01)
 ;;00056-0474-92
 ;;9002226.02101,"1225,00056-0474-92 ",.02)
 ;;00056-0474-92
 ;;9002226.02101,"1225,00056-0510-30 ",.01)
 ;;00056-0510-30
 ;;9002226.02101,"1225,00056-0510-30 ",.02)
 ;;00056-0510-30
 ;;9002226.02101,"1225,00074-0522-60 ",.01)
 ;;00074-0522-60
 ;;9002226.02101,"1225,00074-0522-60 ",.02)
 ;;00074-0522-60
 ;;9002226.02101,"1225,00074-1940-63 ",.01)
 ;;00074-1940-63
 ;;9002226.02101,"1225,00074-1940-63 ",.02)
 ;;00074-1940-63
 ;;9002226.02101,"1225,00074-3333-30 ",.01)
 ;;00074-3333-30
 ;;9002226.02101,"1225,00074-3333-30 ",.02)
 ;;00074-3333-30
 ;;9002226.02101,"1225,00074-3956-46 ",.01)
 ;;00074-3956-46
 ;;9002226.02101,"1225,00074-3956-46 ",.02)
 ;;00074-3956-46
 ;;9002226.02101,"1225,00074-6633-30 ",.01)
 ;;00074-6633-30
 ;;9002226.02101,"1225,00074-6633-30 ",.02)
 ;;00074-6633-30
 ;;9002226.02101,"1225,00074-6799-22 ",.01)
 ;;00074-6799-22
 ;;9002226.02101,"1225,00074-6799-22 ",.02)
 ;;00074-6799-22
 ;;9002226.02101,"1225,00087-6632-41 ",.01)
 ;;00087-6632-41
 ;;9002226.02101,"1225,00087-6632-41 ",.02)
 ;;00087-6632-41
 ;;9002226.02101,"1225,00087-6633-41 ",.01)
 ;;00087-6633-41
 ;;9002226.02101,"1225,00087-6633-41 ",.02)
 ;;00087-6633-41
 ;;9002226.02101,"1225,00087-6671-17 ",.01)
 ;;00087-6671-17
 ;;9002226.02101,"1225,00087-6671-17 ",.02)
 ;;00087-6671-17
 ;;9002226.02101,"1225,00087-6672-17 ",.01)
 ;;00087-6672-17
 ;;9002226.02101,"1225,00087-6672-17 ",.02)
 ;;00087-6672-17
 ;;9002226.02101,"1225,00087-6673-17 ",.01)
 ;;00087-6673-17
 ;;9002226.02101,"1225,00087-6673-17 ",.02)
 ;;00087-6673-17
 ;;9002226.02101,"1225,00087-6674-17 ",.01)
 ;;00087-6674-17
 ;;9002226.02101,"1225,00087-6674-17 ",.02)
 ;;00087-6674-17
 ;;9002226.02101,"1225,00093-5382-56 ",.01)
 ;;00093-5382-56
 ;;9002226.02101,"1225,00093-5382-56 ",.02)
 ;;00093-5382-56
 ;;9002226.02101,"1225,00093-5385-06 ",.01)
 ;;00093-5385-06
 ;;9002226.02101,"1225,00093-5385-06 ",.02)
 ;;00093-5385-06
 ;;9002226.02101,"1225,00378-4050-91 ",.01)
 ;;00378-4050-91
 ;;9002226.02101,"1225,00378-4050-91 ",.02)
 ;;00378-4050-91
 ;;9002226.02101,"1225,00378-4105-91 ",.01)
 ;;00378-4105-91
 ;;9002226.02101,"1225,00378-4105-91 ",.02)
 ;;00378-4105-91
 ;;9002226.02101,"1225,00378-4890-93 ",.01)
 ;;00378-4890-93
 ;;9002226.02101,"1225,00378-4890-93 ",.02)
 ;;00378-4890-93
 ;;9002226.02101,"1225,00378-5040-91 ",.01)
 ;;00378-5040-91
 ;;9002226.02101,"1225,00378-5040-91 ",.02)
 ;;00378-5040-91
 ;;9002226.02101,"1225,00378-5041-91 ",.01)
 ;;00378-5041-91
 ;;9002226.02101,"1225,00378-5041-91 ",.02)
 ;;00378-5041-91
 ;;9002226.02101,"1225,00378-5042-91 ",.01)
 ;;00378-5042-91
 ;;9002226.02101,"1225,00378-5042-91 ",.02)
 ;;00378-5042-91
 ;;9002226.02101,"1225,00378-5043-91 ",.01)
 ;;00378-5043-91
 ;;9002226.02101,"1225,00378-5043-91 ",.02)
 ;;00378-5043-91
 ;;9002226.02101,"1225,00378-5169-91 ",.01)
 ;;00378-5169-91
 ;;9002226.02101,"1225,00378-5169-91 ",.02)
 ;;00378-5169-91
 ;;9002226.02101,"1225,00378-5170-93 ",.01)
 ;;00378-5170-93
 ;;9002226.02101,"1225,00378-5170-93 ",.02)
 ;;00378-5170-93
 ;;9002226.02101,"1225,00378-5180-91 ",.01)
 ;;00378-5180-91
 ;;9002226.02101,"1225,00378-5180-91 ",.02)
 ;;00378-5180-91
 ;;9002226.02101,"1225,00378-6106-91 ",.01)
 ;;00378-6106-91
 ;;9002226.02101,"1225,00378-6106-91 ",.02)
 ;;00378-6106-91
 ;;9002226.02101,"1225,00378-6950-77 ",.01)
 ;;00378-6950-77
 ;;9002226.02101,"1225,00378-6950-77 ",.02)
 ;;00378-6950-77
 ;;9002226.02101,"1225,00378-8886-93 ",.01)
 ;;00378-8886-93
 ;;9002226.02101,"1225,00378-8886-93 ",.02)
 ;;00378-8886-93
 ;;9002226.02101,"1225,00378-8887-93 ",.01)
 ;;00378-8887-93
 ;;9002226.02101,"1225,00378-8887-93 ",.02)
 ;;00378-8887-93
 ;;9002226.02101,"1225,00378-8888-93 ",.01)
 ;;00378-8888-93
 ;;9002226.02101,"1225,00378-8888-93 ",.02)
 ;;00378-8888-93
 ;;9002226.02101,"1225,00378-8889-93 ",.01)
 ;;00378-8889-93
 ;;9002226.02101,"1225,00378-8889-93 ",.02)
 ;;00378-8889-93
 ;;9002226.02101,"1225,00527-1905-06 ",.01)
 ;;00527-1905-06
 ;;9002226.02101,"1225,00527-1905-06 ",.02)
 ;;00527-1905-06