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

BGP7GXND.m

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