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

BGP14D2.m

Go to the documentation of this file.
BGP14D2 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"59762-1192-01 ")
 ;;347
 ;;21,"59762-1193-01 ")
 ;;353
 ;;21,"59762-3650-01 ")
 ;;412
 ;;21,"60760-0010-18 ")
 ;;287
 ;;21,"60760-0010-63 ")
 ;;284
 ;;21,"60760-0595-04 ")
 ;;243
 ;;21,"60760-0595-14 ")
 ;;225
 ;;21,"61958-0401-01 ")
 ;;365
 ;;21,"61958-0601-01 ")
 ;;126
 ;;21,"61958-0602-01 ")
 ;;127
 ;;21,"61958-0701-01 ")
 ;;131
 ;;21,"62584-0046-11 ")
 ;;70
 ;;21,"62584-0046-21 ")
 ;;76
 ;;21,"62584-0048-11 ")
 ;;87
 ;;21,"62584-0048-21 ")
 ;;97
 ;;21,"63010-0010-30 ")
 ;;288
 ;;21,"63010-0011-90 ")
 ;;276
 ;;21,"63010-0020-36 ")
 ;;52
 ;;21,"63010-0021-18 ")
 ;;54
 ;;21,"63010-0027-70 ")
 ;;290
 ;;21,"63304-0920-60 ")
 ;;411
 ;;21,"65862-0024-60 ")
 ;;423
 ;;21,"65862-0046-60 ")
 ;;346
 ;;21,"65862-0047-60 ")
 ;;352
 ;;21,"65862-0048-24 ")
 ;;402
 ;;21,"65862-0107-01 ")
 ;;398
 ;;21,"65862-0111-60 ")
 ;;329
 ;;21,"65862-0112-60 ")
 ;;338
 ;;21,"65862-0310-30 ")
 ;;56
 ;;21,"65862-0311-30 ")
 ;;63
 ;;21,"65862-0312-30 ")
 ;;78
 ;;21,"65862-0313-30 ")
 ;;89
 ;;21,"66267-0509-06 ")
 ;;231
 ;;21,"66267-0514-18 ")
 ;;278
 ;;21,"66267-0514-63 ")
 ;;279
 ;;21,"66336-0032-03 ")
 ;;128
 ;;21,"66336-0563-06 ")
 ;;234
 ;;21,"67253-0109-10 ")
 ;;399
 ;;21,"67253-0761-20 ")
 ;;363
 ;;21,"67253-0961-24 ")
 ;;403
 ;;21,"68030-6059-01 ")
 ;;388
 ;;21,"68030-6060-01 ")
 ;;194
 ;;21,"68030-6064-01 ")
 ;;198
 ;;21,"68030-6065-01 ")
 ;;386
 ;;21,"68030-7284-01 ")
 ;;280
 ;;21,"68084-0431-11 ")
 ;;69
 ;;21,"68084-0431-21 ")
 ;;68
 ;;21,"68084-0432-11 ")
 ;;85
 ;;21,"68084-0432-21 ")
 ;;86
 ;;21,"68115-0090-06 ")
 ;;247
 ;;21,"68115-0360-06 ")
 ;;362
 ;;21,"68258-9003-01 ")
 ;;368
 ;;21,"68258-9020-01 ")
 ;;114
 ;;21,"68258-9021-01 ")
 ;;109
 ;;21,"68258-9108-01 ")
 ;;182
 ;;21,"68258-9126-01 ")
 ;;342
 ;;21,"68258-9142-01 ")
 ;;24
 ;;21,"68258-9158-01 ")
 ;;16
 ;;9002226,1106,.01)
 ;;BGP PQA ANTIRETROVIRAL NDC
 ;;9002226,1106,.02)
 ;;@
 ;;9002226,1106,.04)
 ;;n
 ;;9002226,1106,.06)
 ;;@
 ;;9002226,1106,.08)
 ;;@
 ;;9002226,1106,.09)
 ;;@
 ;;9002226,1106,.11)
 ;;@
 ;;9002226,1106,.12)
 ;;@
 ;;9002226,1106,.13)
 ;;1
 ;;9002226,1106,.14)
 ;;@
 ;;9002226,1106,.15)
 ;;@
 ;;9002226,1106,.16)
 ;;@
 ;;9002226,1106,.17)
 ;;@
 ;;9002226,1106,3101)
 ;;@
 ;;9002226.02101,"1106,00003-1964-01 ",.01)
 ;;00003-1964-01
 ;;9002226.02101,"1106,00003-1964-01 ",.02)
 ;;00003-1964-01
 ;;9002226.02101,"1106,00003-1965-01 ",.01)
 ;;00003-1965-01
 ;;9002226.02101,"1106,00003-1965-01 ",.02)
 ;;00003-1965-01
 ;;9002226.02101,"1106,00003-1966-01 ",.01)
 ;;00003-1966-01
 ;;9002226.02101,"1106,00003-1966-01 ",.02)
 ;;00003-1966-01
 ;;9002226.02101,"1106,00003-1967-01 ",.01)
 ;;00003-1967-01
 ;;9002226.02101,"1106,00003-1967-01 ",.02)
 ;;00003-1967-01
 ;;9002226.02101,"1106,00003-1968-01 ",.01)
 ;;00003-1968-01
 ;;9002226.02101,"1106,00003-1968-01 ",.02)
 ;;00003-1968-01
 ;;9002226.02101,"1106,00003-3622-12 ",.01)
 ;;00003-3622-12
 ;;9002226.02101,"1106,00003-3622-12 ",.02)
 ;;00003-3622-12
 ;;9002226.02101,"1106,00003-3623-12 ",.01)
 ;;00003-3623-12
 ;;9002226.02101,"1106,00003-3623-12 ",.02)
 ;;00003-3623-12
 ;;9002226.02101,"1106,00003-3624-12 ",.01)
 ;;00003-3624-12
 ;;9002226.02101,"1106,00003-3624-12 ",.02)
 ;;00003-3624-12
 ;;9002226.02101,"1106,00003-3631-12 ",.01)
 ;;00003-3631-12
 ;;9002226.02101,"1106,00003-3631-12 ",.02)
 ;;00003-3631-12
 ;;9002226.02101,"1106,00004-0220-01 ",.01)
 ;;00004-0220-01
 ;;9002226.02101,"1106,00004-0220-01 ",.02)
 ;;00004-0220-01
 ;;9002226.02101,"1106,00004-0221-01 ",.01)
 ;;00004-0221-01
 ;;9002226.02101,"1106,00004-0221-01 ",.02)
 ;;00004-0221-01
 ;;9002226.02101,"1106,00004-0244-51 ",.01)
 ;;00004-0244-51
 ;;9002226.02101,"1106,00004-0244-51 ",.02)
 ;;00004-0244-51
 ;;9002226.02101,"1106,00004-0245-15 ",.01)
 ;;00004-0245-15
 ;;9002226.02101,"1106,00004-0245-15 ",.02)
 ;;00004-0245-15
 ;;9002226.02101,"1106,00004-0380-39 ",.01)
 ;;00004-0380-39
 ;;9002226.02101,"1106,00004-0380-39 ",.02)
 ;;00004-0380-39
 ;;9002226.02101,"1106,00006-0227-61 ",.01)
 ;;00006-0227-61
 ;;9002226.02101,"1106,00006-0227-61 ",.02)
 ;;00006-0227-61
 ;;9002226.02101,"1106,00006-0570-62 ",.01)
 ;;00006-0570-62
 ;;9002226.02101,"1106,00006-0570-62 ",.02)
 ;;00006-0570-62
 ;;9002226.02101,"1106,00006-0571-43 ",.01)
 ;;00006-0571-43
 ;;9002226.02101,"1106,00006-0571-43 ",.02)
 ;;00006-0571-43
 ;;9002226.02101,"1106,00006-0573-01 ",.01)
 ;;00006-0573-01
 ;;9002226.02101,"1106,00006-0573-01 ",.02)
 ;;00006-0573-01
 ;;9002226.02101,"1106,00006-0573-18 ",.01)
 ;;00006-0573-18
 ;;9002226.02101,"1106,00006-0573-18 ",.02)
 ;;00006-0573-18
 ;;9002226.02101,"1106,00006-0573-40 ",.01)
 ;;00006-0573-40
 ;;9002226.02101,"1106,00006-0573-40 ",.02)
 ;;00006-0573-40
 ;;9002226.02101,"1106,00006-0573-42 ",.01)
 ;;00006-0573-42
 ;;9002226.02101,"1106,00006-0573-42 ",.02)
 ;;00006-0573-42
 ;;9002226.02101,"1106,00006-0573-54 ",.01)
 ;;00006-0573-54
 ;;9002226.02101,"1106,00006-0573-54 ",.02)
 ;;00006-0573-54
 ;;9002226.02101,"1106,00006-0573-62 ",.01)
 ;;00006-0573-62
 ;;9002226.02101,"1106,00006-0573-62 ",.02)
 ;;00006-0573-62
 ;;9002226.02101,"1106,00006-0574-65 ",.01)
 ;;00006-0574-65
 ;;9002226.02101,"1106,00006-0574-65 ",.02)
 ;;00006-0574-65
 ;;9002226.02101,"1106,00054-0052-21 ",.01)
 ;;00054-0052-21
 ;;9002226.02101,"1106,00054-0052-21 ",.02)
 ;;00054-0052-21
 ;;9002226.02101,"1106,00056-0470-30 ",.01)
 ;;00056-0470-30
 ;;9002226.02101,"1106,00056-0470-30 ",.02)
 ;;00056-0470-30
 ;;9002226.02101,"1106,00056-0473-30 ",.01)
 ;;00056-0473-30
 ;;9002226.02101,"1106,00056-0473-30 ",.02)
 ;;00056-0473-30
 ;;9002226.02101,"1106,00056-0474-92 ",.01)
 ;;00056-0474-92
 ;;9002226.02101,"1106,00056-0474-92 ",.02)
 ;;00056-0474-92
 ;;9002226.02101,"1106,00056-0510-30 ",.01)
 ;;00056-0510-30
 ;;9002226.02101,"1106,00056-0510-30 ",.02)
 ;;00056-0510-30
 ;;9002226.02101,"1106,00069-0807-60 ",.01)
 ;;00069-0807-60
 ;;9002226.02101,"1106,00069-0807-60 ",.02)
 ;;00069-0807-60
 ;;9002226.02101,"1106,00069-0808-60 ",.01)
 ;;00069-0808-60
 ;;9002226.02101,"1106,00069-0808-60 ",.02)
 ;;00069-0808-60
 ;;9002226.02101,"1106,00074-0522-60 ",.01)
 ;;00074-0522-60
 ;;9002226.02101,"1106,00074-0522-60 ",.02)
 ;;00074-0522-60
 ;;9002226.02101,"1106,00074-1940-63 ",.01)
 ;;00074-1940-63
 ;;9002226.02101,"1106,00074-1940-63 ",.02)
 ;;00074-1940-63
 ;;9002226.02101,"1106,00074-3333-30 ",.01)
 ;;00074-3333-30
 ;;9002226.02101,"1106,00074-3333-30 ",.02)
 ;;00074-3333-30
 ;;9002226.02101,"1106,00074-3956-46 ",.01)
 ;;00074-3956-46
 ;;9002226.02101,"1106,00074-3956-46 ",.02)
 ;;00074-3956-46
 ;;9002226.02101,"1106,00074-3959-77 ",.01)
 ;;00074-3959-77
 ;;9002226.02101,"1106,00074-3959-77 ",.02)
 ;;00074-3959-77
 ;;9002226.02101,"1106,00074-6633-22 ",.01)
 ;;00074-6633-22
 ;;9002226.02101,"1106,00074-6633-22 ",.02)
 ;;00074-6633-22
 ;;9002226.02101,"1106,00074-6633-30 ",.01)
 ;;00074-6633-30
 ;;9002226.02101,"1106,00074-6633-30 ",.02)
 ;;00074-6633-30
 ;;9002226.02101,"1106,00074-6799-22 ",.01)
 ;;00074-6799-22
 ;;9002226.02101,"1106,00074-6799-22 ",.02)
 ;;00074-6799-22
 ;;9002226.02101,"1106,00087-6632-41 ",.01)
 ;;00087-6632-41
 ;;9002226.02101,"1106,00087-6632-41 ",.02)
 ;;00087-6632-41
 ;;9002226.02101,"1106,00087-6633-41 ",.01)
 ;;00087-6633-41
 ;;9002226.02101,"1106,00087-6633-41 ",.02)
 ;;00087-6633-41
 ;;9002226.02101,"1106,00087-6671-17 ",.01)
 ;;00087-6671-17
 ;;9002226.02101,"1106,00087-6671-17 ",.02)
 ;;00087-6671-17
 ;;9002226.02101,"1106,00087-6672-17 ",.01)
 ;;00087-6672-17
 ;;9002226.02101,"1106,00087-6672-17 ",.02)
 ;;00087-6672-17
 ;;9002226.02101,"1106,00087-6673-17 ",.01)
 ;;00087-6673-17
 ;;9002226.02101,"1106,00087-6673-17 ",.02)
 ;;00087-6673-17
 ;;9002226.02101,"1106,00087-6674-17 ",.01)
 ;;00087-6674-17
 ;;9002226.02101,"1106,00087-6674-17 ",.02)
 ;;00087-6674-17
 ;;9002226.02101,"1106,00093-5530-06 ",.01)
 ;;00093-5530-06
 ;;9002226.02101,"1106,00093-5530-06 ",.02)
 ;;00093-5530-06
 ;;9002226.02101,"1106,00173-0108-55 ",.01)
 ;;00173-0108-55
 ;;9002226.02101,"1106,00173-0108-55 ",.02)
 ;;00173-0108-55
 ;;9002226.02101,"1106,00173-0108-56 ",.01)
 ;;00173-0108-56
 ;;9002226.02101,"1106,00173-0108-56 ",.02)
 ;;00173-0108-56
 ;;9002226.02101,"1106,00173-0113-18 ",.01)
 ;;00173-0113-18
 ;;9002226.02101,"1106,00173-0113-18 ",.02)
 ;;00173-0113-18
 ;;9002226.02101,"1106,00173-0470-01 ",.01)
 ;;00173-0470-01
 ;;9002226.02101,"1106,00173-0470-01 ",.02)
 ;;00173-0470-01
 ;;9002226.02101,"1106,00173-0471-00 ",.01)
 ;;00173-0471-00
 ;;9002226.02101,"1106,00173-0471-00 ",.02)
 ;;00173-0471-00
 ;;9002226.02101,"1106,00173-0501-00 ",.01)
 ;;00173-0501-00
 ;;9002226.02101,"1106,00173-0501-00 ",.02)
 ;;00173-0501-00
 ;;9002226.02101,"1106,00173-0595-00 ",.01)
 ;;00173-0595-00
 ;;9002226.02101,"1106,00173-0595-00 ",.02)
 ;;00173-0595-00
 ;;9002226.02101,"1106,00173-0595-02 ",.01)
 ;;00173-0595-02
 ;;9002226.02101,"1106,00173-0595-02 ",.02)
 ;;00173-0595-02
 ;;9002226.02101,"1106,00173-0661-00 ",.01)
 ;;00173-0661-00
 ;;9002226.02101,"1106,00173-0661-00 ",.02)
 ;;00173-0661-00
 ;;9002226.02101,"1106,00173-0661-01 ",.01)
 ;;00173-0661-01
 ;;9002226.02101,"1106,00173-0661-01 ",.02)
 ;;00173-0661-01
 ;;9002226.02101,"1106,00173-0664-00 ",.01)
 ;;00173-0664-00
 ;;9002226.02101,"1106,00173-0664-00 ",.02)
 ;;00173-0664-00
 ;;9002226.02101,"1106,00173-0679-00 ",.01)
 ;;00173-0679-00
 ;;9002226.02101,"1106,00173-0679-00 ",.02)
 ;;00173-0679-00
 ;;9002226.02101,"1106,00173-0687-00 ",.01)
 ;;00173-0687-00
 ;;9002226.02101,"1106,00173-0687-00 ",.02)
 ;;00173-0687-00
 ;;9002226.02101,"1106,00173-0691-00 ",.01)
 ;;00173-0691-00
 ;;9002226.02101,"1106,00173-0691-00 ",.02)
 ;;00173-0691-00
 ;;9002226.02101,"1106,00173-0714-00 ",.01)
 ;;00173-0714-00
 ;;9002226.02101,"1106,00173-0714-00 ",.02)
 ;;00173-0714-00
 ;;9002226.02101,"1106,00173-0721-00 ",.01)
 ;;00173-0721-00
 ;;9002226.02101,"1106,00173-0721-00 ",.02)
 ;;00173-0721-00
 ;;9002226.02101,"1106,00173-0727-00 ",.01)
 ;;00173-0727-00
 ;;9002226.02101,"1106,00173-0727-00 ",.02)
 ;;00173-0727-00
 ;;9002226.02101,"1106,00173-0742-00 ",.01)
 ;;00173-0742-00
 ;;9002226.02101,"1106,00173-0742-00 ",.02)
 ;;00173-0742-00
 ;;9002226.02101,"1106,00378-5040-91 ",.01)
 ;;00378-5040-91
 ;;9002226.02101,"1106,00378-5040-91 ",.02)
 ;;00378-5040-91
 ;;9002226.02101,"1106,00378-5041-91 ",.01)
 ;;00378-5041-91
 ;;9002226.02101,"1106,00378-5041-91 ",.02)
 ;;00378-5041-91
 ;;9002226.02101,"1106,00378-5042-91 ",.01)
 ;;00378-5042-91
 ;;9002226.02101,"1106,00378-5042-91 ",.02)
 ;;00378-5042-91
 ;;9002226.02101,"1106,00378-5043-91 ",.01)
 ;;00378-5043-91
 ;;9002226.02101,"1106,00378-5043-91 ",.02)
 ;;00378-5043-91
 ;;9002226.02101,"1106,00378-6106-91 ",.01)
 ;;00378-6106-91
 ;;9002226.02101,"1106,00378-6106-91 ",.02)
 ;;00378-6106-91
 ;;9002226.02101,"1106,00378-8886-93 ",.01)
 ;;00378-8886-93
 ;;9002226.02101,"1106,00378-8886-93 ",.02)
 ;;00378-8886-93
 ;;9002226.02101,"1106,00378-8887-93 ",.01)
 ;;00378-8887-93
 ;;9002226.02101,"1106,00378-8887-93 ",.02)
 ;;00378-8887-93
 ;;9002226.02101,"1106,00378-8888-93 ",.01)
 ;;00378-8888-93
 ;;9002226.02101,"1106,00378-8888-93 ",.02)
 ;;00378-8888-93
 ;;9002226.02101,"1106,00378-8889-93 ",.01)
 ;;00378-8889-93
 ;;9002226.02101,"1106,00378-8889-93 ",.02)
 ;;00378-8889-93
 ;;9002226.02101,"1106,00490-7026-00 ",.01)
 ;;00490-7026-00
 ;;9002226.02101,"1106,00490-7026-00 ",.02)
 ;;00490-7026-00
 ;;9002226.02101,"1106,00490-7026-30 ",.01)
 ;;00490-7026-30
 ;;9002226.02101,"1106,00490-7026-30 ",.02)
 ;;00490-7026-30
 ;;9002226.02101,"1106,00490-7026-60 ",.01)
 ;;00490-7026-60
 ;;9002226.02101,"1106,00490-7026-60 ",.02)
 ;;00490-7026-60
 ;;9002226.02101,"1106,00490-7026-90 ",.01)
 ;;00490-7026-90
 ;;9002226.02101,"1106,00490-7026-90 ",.02)
 ;;00490-7026-90
 ;;9002226.02101,"1106,00490-7028-00 ",.01)
 ;;00490-7028-00
 ;;9002226.02101,"1106,00490-7028-00 ",.02)
 ;;00490-7028-00
 ;;9002226.02101,"1106,00490-7028-02 ",.01)
 ;;00490-7028-02
 ;;9002226.02101,"1106,00490-7028-02 ",.02)
 ;;00490-7028-02
 ;;9002226.02101,"1106,00490-7028-30 ",.01)
 ;;00490-7028-30
 ;;9002226.02101,"1106,00490-7028-30 ",.02)
 ;;00490-7028-30
 ;;9002226.02101,"1106,00490-7028-60 ",.01)
 ;;00490-7028-60
 ;;9002226.02101,"1106,00490-7028-60 ",.02)
 ;;00490-7028-60
 ;;9002226.02101,"1106,00490-7028-90 ",.01)
 ;;00490-7028-90
 ;;9002226.02101,"1106,00490-7028-90 ",.02)
 ;;00490-7028-90
 ;;9002226.02101,"1106,00555-0588-01 ",.01)
 ;;00555-0588-01