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

BGP61N2.m

Go to the documentation of this file.
BGP61N2 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;
 ;;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,"60429-0354-30 ")
 ;;367
 ;;21,"60505-3251-06 ")
 ;;368
 ;;21,"60505-3252-03 ")
 ;;369
 ;;21,"60505-3583-06 ")
 ;;370
 ;;21,"60505-3788-06 ")
 ;;371
 ;;21,"60505-4058-03 ")
 ;;372
 ;;21,"60760-0010-18 ")
 ;;373
 ;;21,"60760-0010-63 ")
 ;;374
 ;;21,"60760-0385-04 ")
 ;;375
 ;;21,"60760-0385-14 ")
 ;;376
 ;;21,"60760-0595-04 ")
 ;;377
 ;;21,"60760-0595-14 ")
 ;;378
 ;;21,"61958-0401-01 ")
 ;;379
 ;;21,"61958-0403-01 ")
 ;;380
 ;;21,"61958-0404-01 ")
 ;;381
 ;;21,"61958-0405-01 ")
 ;;382
 ;;21,"61958-0406-01 ")
 ;;383
 ;;21,"61958-0601-01 ")
 ;;384
 ;;21,"61958-0602-01 ")
 ;;385
 ;;21,"61958-0701-01 ")
 ;;386
 ;;21,"61958-1101-01 ")
 ;;387
 ;;21,"61958-1201-01 ")
 ;;388
 ;;21,"61958-1301-01 ")
 ;;389
 ;;21,"61958-1302-01 ")
 ;;390
 ;;21,"62584-0046-11 ")
 ;;391
 ;;21,"62584-0046-21 ")
 ;;392
 ;;21,"62584-0048-11 ")
 ;;393
 ;;21,"62584-0048-21 ")
 ;;394
 ;;21,"63010-0010-30 ")
 ;;395
 ;;21,"63010-0011-90 ")
 ;;396
 ;;21,"63010-0021-18 ")
 ;;397
 ;;21,"63010-0027-70 ")
 ;;398
 ;;21,"64376-0128-01 ")
 ;;399
 ;;21,"64376-0129-23 ")
 ;;400
 ;;21,"64376-0133-02 ")
 ;;401
 ;;21,"64380-0707-03 ")
 ;;402
 ;;21,"65162-0209-06 ")
 ;;403
 ;;21,"65862-0024-60 ")
 ;;404
 ;;21,"65862-0027-60 ")
 ;;405
 ;;21,"65862-0046-60 ")
 ;;406
 ;;21,"65862-0047-60 ")
 ;;407
 ;;21,"65862-0048-24 ")
 ;;408
 ;;21,"65862-0073-60 ")
 ;;409
 ;;21,"65862-0107-01 ")
 ;;410
 ;;21,"65862-0111-60 ")
 ;;411
 ;;21,"65862-0112-60 ")
 ;;412
 ;;21,"65862-0310-30 ")
 ;;413
 ;;21,"65862-0311-30 ")
 ;;414
 ;;21,"65862-0312-30 ")
 ;;415
 ;;21,"65862-0313-30 ")
 ;;416
 ;;21,"65862-0552-60 ")
 ;;417
 ;;21,"65862-0553-30 ")
 ;;418
 ;;21,"65862-0597-60 ")
 ;;419
 ;;21,"66267-0509-06 ")
 ;;420
 ;;21,"66267-0513-06 ")
 ;;421
 ;;21,"66267-0514-18 ")
 ;;422
 ;;21,"66267-0514-63 ")
 ;;423
 ;;21,"66336-0032-03 ")
 ;;424
 ;;21,"66336-0214-06 ")
 ;;425
 ;;21,"66336-0563-03 ")
 ;;426
 ;;21,"66336-0563-06 ")
 ;;427
 ;;21,"66336-0624-12 ")
 ;;428
 ;;21,"66336-1994-60 ")
 ;;429
 ;;21,"68071-0748-12 ")
 ;;430
 ;;21,"68071-0908-06 ")
 ;;431
 ;;21,"68084-0021-11 ")
 ;;432
 ;;21,"68084-0021-21 ")
 ;;433
 ;;21,"68084-0416-11 ")
 ;;434
 ;;21,"68084-0416-21 ")
 ;;435
 ;;21,"68084-0431-11 ")
 ;;436
 ;;21,"68084-0431-21 ")
 ;;437
 ;;21,"68084-0432-11 ")
 ;;438
 ;;21,"68084-0432-21 ")
 ;;439
 ;;21,"68084-0460-11 ")
 ;;440
 ;;21,"68084-0460-21 ")
 ;;441
 ;;21,"68084-0461-11 ")
 ;;442
 ;;21,"68084-0461-21 ")
 ;;443
 ;;21,"68084-0462-11 ")
 ;;444
 ;;21,"68084-0462-21 ")
 ;;445
 ;;21,"68084-0578-11 ")
 ;;446
 ;;21,"68084-0578-21 ")
 ;;447
 ;;21,"68180-0284-07 ")
 ;;448
 ;;21,"68180-0286-07 ")
 ;;449
 ;;21,"68180-0602-07 ")
 ;;450
 ;;21,"68180-0603-06 ")
 ;;451
 ;;21,"68258-1970-01 ")
 ;;452
 ;;21,"68258-1971-03 ")
 ;;453
 ;;21,"68258-1972-01 ")
 ;;454
 ;;21,"68258-1977-06 ")
 ;;455
 ;;21,"68258-1978-03 ")
 ;;456
 ;;21,"68258-1979-03 ")
 ;;457
 ;;21,"68258-1980-06 ")
 ;;458
 ;;21,"68258-1981-06 ")
 ;;459
 ;;21,"68258-1982-06 ")
 ;;460
 ;;21,"68258-1983-03 ")
 ;;461
 ;;21,"68258-1984-06 ")
 ;;462
 ;;21,"68258-1985-03 ")
 ;;463
 ;;21,"68258-1987-03 ")
 ;;464
 ;;21,"68258-1988-03 ")
 ;;465
 ;;21,"68258-1989-03 ")
 ;;466
 ;;21,"68258-1990-03 ")
 ;;467
 ;;21,"68258-1993-06 ")
 ;;468
 ;;21,"68258-1994-06 ")
 ;;469
 ;;21,"76519-1005-06 ")
 ;;470
 ;;9002226,1225,.01)
 ;;BGP PQA ANTIRETROVIRAL NDC
 ;;9002226,1225,.02)
 ;;@
 ;;9002226,1225,.04)
 ;;n
 ;;9002226,1225,.06)
 ;;@
 ;;9002226,1225,.08)
 ;;@
 ;;9002226,1225,.09)
 ;;3150818
 ;;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,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-0380-39 ",.01)
 ;;00004-0380-39
 ;;9002226.02101,"1225,00004-0380-39 ",.02)
 ;;00004-0380-39
 ;;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-01 ",.01)
 ;;00006-0573-01
 ;;9002226.02101,"1225,00006-0573-01 ",.02)
 ;;00006-0573-01
 ;;9002226.02101,"1225,00006-0573-18 ",.01)
 ;;00006-0573-18
 ;;9002226.02101,"1225,00006-0573-18 ",.02)
 ;;00006-0573-18
 ;;9002226.02101,"1225,00006-0573-40 ",.01)
 ;;00006-0573-40
 ;;9002226.02101,"1225,00006-0573-40 ",.02)
 ;;00006-0573-40
 ;;9002226.02101,"1225,00006-0573-42 ",.01)
 ;;00006-0573-42
 ;;9002226.02101,"1225,00006-0573-42 ",.02)
 ;;00006-0573-42
 ;;9002226.02101,"1225,00006-0573-54 ",.01)
 ;;00006-0573-54
 ;;9002226.02101,"1225,00006-0573-54 ",.02)
 ;;00006-0573-54
 ;;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-60 ",.01)
 ;;00006-3603-60
 ;;9002226.02101,"1225,00006-3603-60 ",.02)
 ;;00006-3603-60
 ;;9002226.02101,"1225,00054-0052-21 ",.01)
 ;;00054-0052-21
 ;;9002226.02101,"1225,00054-0052-21 ",.02)
 ;;00054-0052-21
 ;;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,00069-0807-60 ",.01)
 ;;00069-0807-60
 ;;9002226.02101,"1225,00069-0807-60 ",.02)
 ;;00069-0807-60
 ;;9002226.02101,"1225,00069-0808-60 ",.01)
 ;;00069-0808-60
 ;;9002226.02101,"1225,00069-0808-60 ",.02)
 ;;00069-0808-60
 ;;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-5385-06 ",.01)
 ;;00093-5385-06
 ;;9002226.02101,"1225,00093-5385-06 ",.02)
 ;;00093-5385-06
 ;;9002226.02101,"1225,00173-0113-18 ",.01)
 ;;00173-0113-18
 ;;9002226.02101,"1225,00173-0113-18 ",.02)
 ;;00173-0113-18
 ;;9002226.02101,"1225,00173-0470-01 ",.01)
 ;;00173-0470-01
 ;;9002226.02101,"1225,00173-0470-01 ",.02)
 ;;00173-0470-01
 ;;9002226.02101,"1225,00173-0595-00 ",.01)
 ;;00173-0595-00
 ;;9002226.02101,"1225,00173-0595-00 ",.02)
 ;;00173-0595-00
 ;;9002226.02101,"1225,00173-0595-02 ",.01)
 ;;00173-0595-02
 ;;9002226.02101,"1225,00173-0595-02 ",.02)
 ;;00173-0595-02
 ;;9002226.02101,"1225,00173-0691-00 ",.01)
 ;;00173-0691-00
 ;;9002226.02101,"1225,00173-0691-00 ",.02)
 ;;00173-0691-00
 ;;9002226.02101,"1225,00173-0742-00 ",.01)
 ;;00173-0742-00
 ;;9002226.02101,"1225,00173-0742-00 ",.02)
 ;;00173-0742-00
 ;;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-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-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
 ;;9002226.02101,"1225,00555-0588-01 ",.01)
 ;;00555-0588-01
 ;;9002226.02101,"1225,00555-0588-01 ",.02)
 ;;00555-0588-01
 ;;9002226.02101,"1225,00555-0589-01 ",.01)
 ;;00555-0589-01
 ;;9002226.02101,"1225,00555-0589-01 ",.02)
 ;;00555-0589-01
 ;;9002226.02101,"1225,00555-0590-01 ",.01)
 ;;00555-0590-01