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

BGP7KXID.m

Go to the documentation of this file.
BGP7KXID ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 10, 2006 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
 ;
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,"55175-4181-03 ")
 ;;1329
 ;;21,"55175-4186-01 ")
 ;;1330
 ;;21,"55175-4186-03 ")
 ;;1331
 ;;21,"55175-4186-06 ")
 ;;367
 ;;21,"55175-4187-00 ")
 ;;892
 ;;21,"55175-4187-03 ")
 ;;893
 ;;21,"55175-4187-04 ")
 ;;894
 ;;21,"55175-4187-06 ")
 ;;285
 ;;21,"55175-4435-01 ")
 ;;876
 ;;21,"55175-4460-01 ")
 ;;106
 ;;21,"55175-4461-01 ")
 ;;1161
 ;;21,"55175-4465-01 ")
 ;;886
 ;;21,"55175-4466-01 ")
 ;;887
 ;;21,"55175-5245-01 ")
 ;;119
 ;;21,"55289-0003-60 ")
 ;;870
 ;;21,"55289-0155-97 ")
 ;;871
 ;;21,"55289-0259-01 ")
 ;;895
 ;;21,"55289-0259-30 ")
 ;;896
 ;;21,"55289-0259-60 ")
 ;;897
 ;;21,"55289-0260-01 ")
 ;;898
 ;;21,"55289-0260-06 ")
 ;;899
 ;;21,"55289-0260-20 ")
 ;;900
 ;;21,"55289-0260-30 ")
 ;;901
 ;;21,"55289-0260-60 ")
 ;;902
 ;;21,"55289-0260-97 ")
 ;;903
 ;;21,"55289-0404-30 ")
 ;;368
 ;;21,"55289-0751-30 ")
 ;;874
 ;;21,"55289-0751-60 ")
 ;;875
 ;;21,"55289-0787-60 ")
 ;;236
 ;;21,"55289-0788-60 ")
 ;;916
 ;;21,"55289-0789-30 ")
 ;;890
 ;;21,"55289-0863-04 ")
 ;;1380
 ;;21,"55726-0100-01 ")
 ;;1100
 ;;21,"55726-0200-04 ")
 ;;122
 ;;21,"55726-1540-16 ")
 ;;1136
 ;;21,"55887-0726-20 ")
 ;;1388
 ;;21,"56126-0436-11 ")
 ;;216
 ;;21,"56126-0437-11 ")
 ;;1255
 ;;21,"56126-0438-11 ")
 ;;912
 ;;21,"57362-0105-01 ")
 ;;87
 ;;21,"57362-0119-13 ")
 ;;286
 ;;21,"57362-0119-19 ")
 ;;287
 ;;21,"57362-0119-83 ")
 ;;288
 ;;21,"57362-0119-84 ")
 ;;289
 ;;21,"57362-0119-85 ")
 ;;290
 ;;21,"57362-0131-13 ")
 ;;369
 ;;21,"57362-0131-19 ")
 ;;1332
 ;;21,"57362-0131-83 ")
 ;;370
 ;;21,"57362-0131-84 ")
 ;;1333
 ;;21,"57362-0131-85 ")
 ;;371
 ;;21,"57362-0326-55 ")
 ;;84
 ;;21,"57362-0365-43 ")
 ;;52
 ;;21,"57362-0522-11 ")
 ;;193
 ;;21,"57362-0522-19 ")
 ;;194
 ;;21,"57362-0523-11 ")
 ;;237
 ;;21,"57362-0523-19 ")
 ;;1207
 ;;21,"57362-0524-11 ")
 ;;315
 ;;21,"57362-0524-19 ")
 ;;316
 ;;21,"57480-0365-01 ")
 ;;932
 ;;21,"57480-0365-06 ")
 ;;933
 ;;21,"57480-0366-01 ")
 ;;921
 ;;21,"57480-0366-06 ")
 ;;922
 ;;21,"57480-0367-01 ")
 ;;923
 ;;21,"57480-0367-06 ")
 ;;924
 ;;21,"57779-0115-09 ")
 ;;925
 ;;21,"57866-4651-02 ")
 ;;934
 ;;21,"57866-4652-02 ")
 ;;935
 ;;21,"57866-4653-01 ")
 ;;928
 ;;21,"58016-0416-24 ")
 ;;432
 ;;21,"58016-0416-48 ")
 ;;1377
 ;;21,"58016-0441-00 ")
 ;;1193
 ;;21,"58016-0441-15 ")
 ;;217
 ;;21,"58016-0441-20 ")
 ;;218
 ;;21,"58016-0441-30 ")
 ;;1194
 ;;21,"58016-0442-00 ")
 ;;1256
 ;;21,"58016-0442-15 ")
 ;;1257
 ;;21,"58016-0442-20 ")
 ;;291
 ;;21,"58016-0442-30 ")
 ;;292
 ;;21,"58016-0442-60 ")
 ;;293
 ;;21,"58016-0443-00 ")
 ;;372
 ;;21,"58016-0443-06 ")
 ;;1334
 ;;21,"58016-0443-15 ")
 ;;373
 ;;21,"58016-0443-20 ")
 ;;374
 ;;21,"58016-0443-30 ")
 ;;375
 ;;21,"58016-0443-60 ")
 ;;1335
 ;;21,"58016-0477-06 ")
 ;;910
 ;;21,"58016-4183-04 ")
 ;;307
 ;;21,"58016-4604-01 ")
 ;;33
 ;;21,"58016-6207-00 ")
 ;;929
 ;;21,"58016-6207-01 ")
 ;;930
 ;;21,"58087-0317-20 ")
 ;;1389
 ;;21,"58729-0507-41 ")
 ;;1111
 ;;21,"58864-0501-17 ")
 ;;1258
 ;;21,"58864-0658-30 ")
 ;;1158
 ;;21,"58864-0694-30 ")
 ;;1159
 ;;21,"59198-0252-01 ")
 ;;195
 ;;21,"59198-0253-01 ")
 ;;1200
 ;;21,"59198-0254-01 ")
 ;;238
 ;;21,"59198-0255-01 ")
 ;;317
 ;;21,"59198-0356-04 ")
 ;;107
 ;;21,"59243-0021-10 ")
 ;;940
 ;;21,"59310-0175-40 ")
 ;;941
 ;;21,"59310-0177-80 ")
 ;;961
 ;;21,"59743-0006-01 ")
 ;;954
 ;;21,"59930-1509-01 ")
 ;;943
 ;;21,"59930-1509-02 ")
 ;;944
 ;;21,"59930-1650-01 ")
 ;;958
 ;;21,"59930-1650-02 ")
 ;;959
 ;;21,"59930-1650-03 ")
 ;;960
 ;;21,"59930-1660-01 ")
 ;;946
 ;;21,"59930-1660-02 ")
 ;;947
 ;;21,"59930-1660-03 ")
 ;;948
 ;;21,"59930-1670-01 ")
 ;;949
 ;;21,"59930-1670-02 ")
 ;;950
 ;;21,"59930-1670-03 ")
 ;;951
 ;;21,"59930-1680-01 ")
 ;;945
 ;;21,"59936-0003-42 ")
 ;;1399
 ;;21,"59936-0231-02 ")
 ;;1400
 ;;21,"60258-0335-16 ")
 ;;962
 ;;21,"60258-0371-16 ")
 ;;963
 ;;21,"60346-0168-64 ")
 ;;108
 ;;21,"60346-0180-46 ")
 ;;1390
 ;;21,"60346-0226-76 ")
 ;;952
 ;;21,"60346-0282-74 ")
 ;;953
 ;;21,"60346-0328-20 ")
 ;;1055
 ;;21,"60346-0328-90 ")
 ;;1056
 ;;21,"60346-0420-84 ")
 ;;6
 ;;21,"60346-0596-00 ")
 ;;376
 ;;21,"60346-0596-06 ")
 ;;1336
 ;;21,"60346-0596-14 ")
 ;;1337
 ;;21,"60346-0596-20 ")
 ;;377
 ;;21,"60346-0596-25 ")
 ;;378
 ;;21,"60346-0596-30 ")
 ;;379
 ;;21,"60346-0596-60 ")
 ;;380
 ;;21,"60346-0596-90 ")
 ;;381
 ;;21,"60346-0669-00 ")
 ;;1259
 ;;21,"60346-0669-20 ")
 ;;294
 ;;21,"60346-0669-30 ")
 ;;1260
 ;;21,"60346-0669-44 ")
 ;;295
 ;;21,"60346-0669-60 ")
 ;;1261
 ;;21,"60346-0669-90 ")
 ;;1262
 ;;21,"60346-0713-30 ")
 ;;219
 ;;21,"60346-0713-60 ")
 ;;220
 ;;21,"60346-0717-30 ")
 ;;1208
 ;;21,"60432-0019-16 ")
 ;;942
 ;;21,"60432-0157-06 ")
 ;;956
 ;;21,"60432-0157-21 ")
 ;;957
 ;;21,"60505-0802-01 ")
 ;;936
 ;;21,"60505-0802-02 ")
 ;;937
 ;;21,"60598-0061-60 ")
 ;;927
 ;;21,"60793-0011-08 ")
 ;;938
 ;;21,"60793-0011-14 ")
 ;;939
 ;;21,"60793-0120-01 ")
 ;;931
 ;;21,"60937-0504-00 ")
 ;;27
 ;;21,"60937-0509-01 ")
 ;;115
 ;;21,"60937-0510-00 ")
 ;;28
 ;;21,"60937-0511-00 ")
 ;;29
 ;;21,"61392-0016-30 ")
 ;;967
 ;;21,"61392-0016-31 ")
 ;;296
 ;;21,"61392-0016-32 ")
 ;;1263
 ;;21,"61392-0016-39 ")
 ;;1264
 ;;21,"61392-0016-45 ")
 ;;968
 ;;21,"61392-0016-51 ")
 ;;969
 ;;21,"61392-0016-54 ")
 ;;970
 ;;21,"61392-0016-56 ")
 ;;971
 ;;21,"61392-0016-60 ")
 ;;972
 ;;21,"61392-0016-90 ")
 ;;973
 ;;21,"61392-0016-91 ")
 ;;974
 ;;21,"61392-0017-30 ")
 ;;975
 ;;21,"61392-0017-31 ")
 ;;1343
 ;;21,"61392-0017-32 ")
 ;;1344
 ;;21,"61392-0017-39 ")
 ;;1345
 ;;21,"61392-0017-45 ")
 ;;393
 ;;21,"61392-0017-51 ")
 ;;976
 ;;21,"61392-0017-54 ")
 ;;977
 ;;21,"61392-0017-56 ")
 ;;978
 ;;21,"61392-0017-60 ")
 ;;979
 ;;21,"61392-0017-90 ")
 ;;980
 ;;21,"61392-0017-91 ")
 ;;981
 ;;21,"61570-0019-01 ")
 ;;964
 ;;21,"61570-0019-05 ")
 ;;965
 ;;21,"61570-0020-01 ")
 ;;955
 ;;21,"61570-0022-00 ")
 ;;182
 ;;21,"61570-0022-01 ")
 ;;966
 ;;21,"62301-0045-45 ")
 ;;121
 ;;21,"62947-6406-05 ")
 ;;92
 ;;21,"62947-6406-09 ")
 ;;93
 ;;21,"63874-0443-01 ")
 ;;1029
 ;;21,"63874-0443-15 ")
 ;;1030
 ;;21,"63874-0443-20 ")
 ;;1031
 ;;21,"63874-0443-30 ")
 ;;1032
 ;;21,"63874-0447-01 ")
 ;;990
 ;;21,"63874-0447-15 ")
 ;;991
 ;;21,"63874-0447-20 ")
 ;;992
 ;;21,"63874-0447-30 ")
 ;;993
 ;;21,"63874-0447-60 ")
 ;;994
 ;;21,"63874-0675-01 ")
 ;;995
 ;;21,"63874-0675-15 ")
 ;;996
 ;;21,"63874-0675-20 ")
 ;;997
 ;;21,"63874-0675-30 ")
 ;;1033
 ;;21,"63874-0744-12 ")
 ;;984
 ;;21,"63874-0744-24 ")
 ;;985
 ;;21,"64661-0814-16 ")
 ;;135
 ;;21,"64681-0157-06 ")
 ;;94
 ;;21,"64681-0157-21 ")
 ;;10
 ;;21,"65162-0324-10 ")
 ;;297
 ;;21,"65162-0324-11 ")
 ;;1265
 ;;21,"65162-0325-10 ")
 ;;382
 ;;21,"65162-0325-11 ")
 ;;1338
 ;;21,"65162-0335-10 ")
 ;;1195
 ;;21,"66239-0111-16 ")
 ;;1020
 ;;21,"67781-0251-01 ")
 ;;998
 ;;21,"67781-0251-05 ")
 ;;999
 ;;21,"67781-0252-01 ")
 ;;1019
 ;;21,"68115-0328-60 ")
 ;;1011
 ;;21,"68115-0547-20 ")
 ;;1002
 ;;21,"68115-0637-13 ")
 ;;1009
 ;;21,"68115-0638-60 ")
 ;;989
 ;;21,"68115-0652-01 ")
 ;;1018
 ;;21,"68115-0653-01 ")
 ;;1012
 ;;21,"68115-0657-01 ")
 ;;982
 ;;21,"68115-0760-01 ")
 ;;1021
 ;;21,"68115-0775-07 ")
 ;;1022
 ;;21,"68115-0923-90 ")
 ;;983
 ;;21,"68115-0924-60 ")
 ;;1010
 ;;9002226,603,.01)
 ;;BGP HEDIS PRIMARY ASTHMA NDC
 ;;9002226,603,.02)
 ;;@
 ;;9002226,603,.04)
 ;;n
 ;;9002226,603,.06)
 ;;@
 ;;9002226,603,.08)
 ;;@
 ;;9002226,603,.09)
 ;;@
 ;;9002226,603,.11)
 ;;@
 ;;9002226,603,.12)
 ;;@
 ;;9002226,603,.13)
 ;;1
 ;;9002226,603,.14)
 ;;@
 ;;9002226,603,.15)
 ;;@
 ;;9002226,603,.16)
 ;;@
 ;;9002226,603,.17)
 ;;@
 ;;9002226,603,3101)
 ;;@