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

BGP8EXXB.m

Go to the documentation of this file.
BGP8EXXB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 28, 2007 ;
 ;;8.0;IHS CLINICAL REPORTING;;MAR 12, 2008
 ;;;BGP6;;SEP 28, 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,"54569-2669-02 ")
 ;;370
 ;;21,"54569-2669-03 ")
 ;;371
 ;;21,"54868-0479-01 ")
 ;;468
 ;;21,"54868-3674-00 ")
 ;;7
 ;;21,"54868-3976-00 ")
 ;;44
 ;;21,"55289-0379-30 ")
 ;;469
 ;;21,"55499-1082-01 ")
 ;;302
 ;;21,"57844-0009-01 ")
 ;;470
 ;;21,"57844-0009-10 ")
 ;;471
 ;;21,"57844-0019-01 ")
 ;;438
 ;;21,"57866-9029-01 ")
 ;;362
 ;;21,"57866-9030-01 ")
 ;;412
 ;;21,"58016-0043-00 ")
 ;;472
 ;;21,"58016-0043-30 ")
 ;;473
 ;;21,"58016-0043-60 ")
 ;;474
 ;;21,"58016-0043-90 ")
 ;;475
 ;;21,"58016-0310-00 ")
 ;;476
 ;;21,"58016-0310-30 ")
 ;;477
 ;;21,"58016-0310-60 ")
 ;;478
 ;;21,"58016-0310-90 ")
 ;;479
 ;;21,"58016-0836-07 ")
 ;;112
 ;;21,"58016-0836-14 ")
 ;;113
 ;;21,"58016-0836-15 ")
 ;;114
 ;;21,"58016-0836-30 ")
 ;;115
 ;;21,"58016-0854-42 ")
 ;;339
 ;;21,"58016-0856-00 ")
 ;;98
 ;;21,"58016-0856-15 ")
 ;;99
 ;;21,"58016-0856-21 ")
 ;;100
 ;;21,"58016-0856-42 ")
 ;;101
 ;;21,"58016-0861-14 ")
 ;;413
 ;;21,"58016-0861-30 ")
 ;;414
 ;;21,"58016-0861-60 ")
 ;;415
 ;;21,"58016-0868-30 ")
 ;;266
 ;;21,"58016-0868-60 ")
 ;;267
 ;;21,"58016-0868-90 ")
 ;;268
 ;;21,"58177-0311-04 ")
 ;;85
 ;;21,"58177-0312-04 ")
 ;;70
 ;;21,"58521-0031-01 ")
 ;;45
 ;;21,"58521-0032-01 ")
 ;;8
 ;;21,"58521-0033-01 ")
 ;;27
 ;;21,"58521-0034-01 ")
 ;;36
 ;;21,"58521-0075-01 ")
 ;;51
 ;;21,"58521-0125-01 ")
 ;;14
 ;;21,"58521-0150-01 ")
 ;;20
 ;;21,"58521-0333-05 ")
 ;;416
 ;;21,"58521-0451-01 ")
 ;;86
 ;;21,"58521-0452-01 ")
 ;;71
 ;;21,"58605-0503-01 ")
 ;;439
 ;;21,"58605-0504-01 ")
 ;;485
 ;;21,"58605-0508-01 ")
 ;;372
 ;;21,"59772-8840-01 ")
 ;;245
 ;;21,"59772-8840-03 ")
 ;;246
 ;;21,"59772-8841-01 ")
 ;;149
 ;;21,"59772-8841-03 ")
 ;;150
 ;;21,"59772-8842-01 ")
 ;;186
 ;;21,"59772-8842-03 ")
 ;;187
 ;;21,"59772-8843-01 ")
 ;;203
 ;;21,"60793-0009-01 ")
 ;;417
 ;;21,"62269-0391-24 ")
 ;;258
 ;;21,"62269-0392-24 ")
 ;;269
 ;;21,"62269-0393-24 ")
 ;;281
 ;;21,"63304-0908-01 ")
 ;;46
 ;;21,"63304-0909-01 ")
 ;;9
 ;;21,"63304-0910-01 ")
 ;;28
 ;;21,"63304-0911-01 ")
 ;;37
 ;;21,"63874-0265-01 ")
 ;;116
 ;;21,"63874-0265-20 ")
 ;;117
 ;;21,"63874-0269-01 ")
 ;;340
 ;;21,"63874-0269-02 ")
 ;;341
 ;;21,"63874-0269-14 ")
 ;;342
 ;;21,"65234-0047-10 ")
 ;;303
 ;;21,"65234-0048-10 ")
 ;;343
 ;;21,"65234-0048-90 ")
 ;;344
 ;;21,"67386-0102-01 ")
 ;;123
 ;;21,"68115-0050-07 ")
 ;;345
 ;;21,"68115-0050-14 ")
 ;;346
 ;;21,"68115-0050-28 ")
 ;;347
 ;;21,"68115-0050-90 ")
 ;;304
 ;;21,"68115-0051-14 ")
 ;;305
 ;;21,"68115-0051-21 ")
 ;;306
 ;;21,"68115-0051-30 ")
 ;;307
 ;;21,"68115-0108-30 ")
 ;;54
 ;;21,"68115-0109-30 ")
 ;;102
 ;;21,"68115-0110-28 ")
 ;;118
 ;;21,"68115-0273-14 ")
 ;;348
 ;;21,"68115-0273-21 ")
 ;;349
 ;;21,"68115-0277-14 ")
 ;;363
 ;;21,"68115-0277-30 ")
 ;;364
 ;;21,"68115-0278-14 ")
 ;;418
 ;;21,"68115-0278-30 ")
 ;;419
 ;;21,"68115-0279-00 ")
 ;;420
 ;;21,"68115-0279-30 ")
 ;;421
 ;;21,"68115-0280-30 ")
 ;;480
 ;;21,"68115-0757-00 ")
 ;;492
 ;;21,"68188-0132-01 ")
 ;;163
 ;;21,"68188-0135-01 ")
 ;;247
 ;;21,"68188-0137-01 ")
 ;;151
 ;;21,"68188-0881-50 ")
 ;;248
 ;;21,"68188-0882-50 ")
 ;;157
 ;;9002226,622,.01)
 ;;BGP HEDIS AMPHETAMINE NDC
 ;;9002226,622,.02)
 ;;@
 ;;9002226,622,.04)
 ;;n
 ;;9002226,622,.06)
 ;;@
 ;;9002226,622,.08)
 ;;@
 ;;9002226,622,.09)
 ;;@
 ;;9002226,622,.11)
 ;;@
 ;;9002226,622,.12)
 ;;@
 ;;9002226,622,.13)
 ;;1
 ;;9002226,622,.14)
 ;;@
 ;;9002226,622,.15)
 ;;@
 ;;9002226,622,.16)
 ;;@
 ;;9002226,622,.17)
 ;;@
 ;;9002226,622,3101)
 ;;@
 ;;9002226.02101,"622,00007-3512-20 ",.01)
 ;;00007-3512-20
 ;;9002226.02101,"622,00007-3512-20 ",.02)
 ;;00007-3512-20
 ;;9002226.02101,"622,00007-3513-20 ",.01)
 ;;00007-3513-20
 ;;9002226.02101,"622,00007-3513-20 ",.02)
 ;;00007-3513-20
 ;;9002226.02101,"622,00007-3514-20 ",.01)
 ;;00007-3514-20
 ;;9002226.02101,"622,00007-3514-20 ",.02)
 ;;00007-3514-20
 ;;9002226.02101,"622,00007-3519-20 ",.01)
 ;;00007-3519-20
 ;;9002226.02101,"622,00007-3519-20 ",.02)
 ;;00007-3519-20
 ;;9002226.02101,"622,00009-0024-01 ",.01)
 ;;00009-0024-01
 ;;9002226.02101,"622,00009-0024-01 ",.02)
 ;;00009-0024-01
 ;;9002226.02101,"622,00009-0024-02 ",.01)
 ;;00009-0024-02
 ;;9002226.02101,"622,00009-0024-02 ",.02)
 ;;00009-0024-02
 ;;9002226.02101,"622,00054-2719-25 ",.01)
 ;;00054-2719-25
 ;;9002226.02101,"622,00054-2719-25 ",.02)
 ;;00054-2719-25
 ;;9002226.02101,"622,00068-0697-61 ",.01)
 ;;00068-0697-61
 ;;9002226.02101,"622,00068-0697-61 ",.02)
 ;;00068-0697-61
 ;;9002226.02101,"622,00068-0698-61 ",.01)
 ;;00068-0698-61
 ;;9002226.02101,"622,00068-0698-61 ",.02)
 ;;00068-0698-61
 ;;9002226.02101,"622,00068-0698-62 ",.01)
 ;;00068-0698-62
 ;;9002226.02101,"622,00068-0698-62 ",.02)
 ;;00068-0698-62
 ;;9002226.02101,"622,00074-3377-04 ",.01)
 ;;00074-3377-04
 ;;9002226.02101,"622,00074-3377-04 ",.02)
 ;;00074-3377-04
 ;;9002226.02101,"622,00074-6025-13 ",.01)
 ;;00074-6025-13
 ;;9002226.02101,"622,00074-6025-13 ",.02)
 ;;00074-6025-13
 ;;9002226.02101,"622,00074-6057-13 ",.01)
 ;;00074-6057-13
 ;;9002226.02101,"622,00074-6057-13 ",.02)
 ;;00074-6057-13
 ;;9002226.02101,"622,00074-6073-13 ",.01)
 ;;00074-6073-13
 ;;9002226.02101,"622,00074-6073-13 ",.02)
 ;;00074-6073-13
 ;;9002226.02101,"622,00074-6088-13 ",.01)
 ;;00074-6088-13
 ;;9002226.02101,"622,00074-6088-13 ",.02)
 ;;00074-6088-13
 ;;9002226.02101,"622,00078-0370-05 ",.01)
 ;;00078-0370-05
 ;;9002226.02101,"622,00078-0370-05 ",.02)
 ;;00078-0370-05
 ;;9002226.02101,"622,00078-0371-05 ",.01)
 ;;00078-0371-05
 ;;9002226.02101,"622,00078-0371-05 ",.02)
 ;;00078-0371-05
 ;;9002226.02101,"622,00078-0372-05 ",.01)
 ;;00078-0372-05
 ;;9002226.02101,"622,00078-0372-05 ",.02)
 ;;00078-0372-05
 ;;9002226.02101,"622,00078-0380-05 ",.01)
 ;;00078-0380-05
 ;;9002226.02101,"622,00078-0380-05 ",.02)
 ;;00078-0380-05
 ;;9002226.02101,"622,00078-0381-05 ",.01)
 ;;00078-0381-05
 ;;9002226.02101,"622,00078-0381-05 ",.02)
 ;;00078-0381-05
 ;;9002226.02101,"622,00078-0382-05 ",.01)
 ;;00078-0382-05
 ;;9002226.02101,"622,00078-0382-05 ",.02)
 ;;00078-0382-05
 ;;9002226.02101,"622,00078-0424-05 ",.01)
 ;;00078-0424-05
 ;;9002226.02101,"622,00078-0424-05 ",.02)
 ;;00078-0424-05
 ;;9002226.02101,"622,00078-0430-05 ",.01)
 ;;00078-0430-05
 ;;9002226.02101,"622,00078-0430-05 ",.02)
 ;;00078-0430-05
 ;;9002226.02101,"622,00078-0431-05 ",.01)
 ;;00078-0431-05
 ;;9002226.02101,"622,00078-0431-05 ",.02)
 ;;00078-0431-05
 ;;9002226.02101,"622,00078-0432-05 ",.01)
 ;;00078-0432-05
 ;;9002226.02101,"622,00078-0432-05 ",.02)
 ;;00078-0432-05
 ;;9002226.02101,"622,00078-0439-05 ",.01)
 ;;00078-0439-05
 ;;9002226.02101,"622,00078-0439-05 ",.02)
 ;;00078-0439-05
 ;;9002226.02101,"622,00078-0440-05 ",.01)
 ;;00078-0440-05
 ;;9002226.02101,"622,00078-0440-05 ",.02)
 ;;00078-0440-05
 ;;9002226.02101,"622,00078-0441-05 ",.01)
 ;;00078-0441-05
 ;;9002226.02101,"622,00078-0441-05 ",.02)
 ;;00078-0441-05
 ;;9002226.02101,"622,00078-0442-05 ",.01)
 ;;00078-0442-05
 ;;9002226.02101,"622,00078-0442-05 ",.02)
 ;;00078-0442-05
 ;;9002226.02101,"622,00083-0003-30 ",.01)
 ;;00083-0003-30
 ;;9002226.02101,"622,00083-0003-30 ",.02)
 ;;00083-0003-30
 ;;9002226.02101,"622,00083-0007-30 ",.01)
 ;;00083-0007-30
 ;;9002226.02101,"622,00083-0007-30 ",.02)
 ;;00083-0007-30
 ;;9002226.02101,"622,00083-0016-30 ",.01)
 ;;00083-0016-30
 ;;9002226.02101,"622,00083-0016-30 ",.02)
 ;;00083-0016-30
 ;;9002226.02101,"622,00083-0034-30 ",.01)
 ;;00083-0034-30
 ;;9002226.02101,"622,00083-0034-30 ",.02)
 ;;00083-0034-30
 ;;9002226.02101,"622,00086-0047-10 ",.01)
 ;;00086-0047-10
 ;;9002226.02101,"622,00086-0047-10 ",.02)
 ;;00086-0047-10
 ;;9002226.02101,"622,00086-0048-10 ",.01)
 ;;00086-0048-10
 ;;9002226.02101,"622,00086-0048-10 ",.02)
 ;;00086-0048-10
 ;;9002226.02101,"622,00086-0048-90 ",.01)
 ;;00086-0048-90
 ;;9002226.02101,"622,00086-0048-90 ",.02)
 ;;00086-0048-90
 ;;9002226.02101,"622,00093-9472-01 ",.01)
 ;;00093-9472-01
 ;;9002226.02101,"622,00093-9472-01 ",.02)
 ;;00093-9472-01
 ;;9002226.02101,"622,00093-9524-01 ",.01)
 ;;00093-9524-01
 ;;9002226.02101,"622,00093-9524-01 ",.02)
 ;;00093-9524-01
 ;;9002226.02101,"622,00093-9541-01 ",.01)
 ;;00093-9541-01
 ;;9002226.02101,"622,00093-9541-01 ",.02)
 ;;00093-9541-01
 ;;9002226.02101,"622,00093-9577-01 ",.01)
 ;;00093-9577-01
 ;;9002226.02101,"622,00093-9577-01 ",.02)
 ;;00093-9577-01
 ;;9002226.02101,"622,00144-0740-01 ",.01)
 ;;00144-0740-01
 ;;9002226.02101,"622,00144-0740-01 ",.02)
 ;;00144-0740-01
 ;;9002226.02101,"622,00147-0102-20 ",.01)
 ;;00147-0102-20
 ;;9002226.02101,"622,00147-0102-20 ",.02)
 ;;00147-0102-20
 ;;9002226.02101,"622,00147-0103-10 ",.01)
 ;;00147-0103-10
 ;;9002226.02101,"622,00147-0103-10 ",.02)
 ;;00147-0103-10
 ;;9002226.02101,"622,00147-0103-20 ",.01)
 ;;00147-0103-20
 ;;9002226.02101,"622,00147-0103-20 ",.02)
 ;;00147-0103-20
 ;;9002226.02101,"622,00147-0103-30 ",.01)
 ;;00147-0103-30
 ;;9002226.02101,"622,00147-0103-30 ",.02)
 ;;00147-0103-30
 ;;9002226.02101,"622,00147-0105-10 ",.01)
 ;;00147-0105-10
 ;;9002226.02101,"622,00147-0105-10 ",.02)
 ;;00147-0105-10
 ;;9002226.02101,"622,00147-0105-20 ",.01)
 ;;00147-0105-20
 ;;9002226.02101,"622,00147-0105-20 ",.02)
 ;;00147-0105-20
 ;;9002226.02101,"622,00147-0105-30 ",.01)
 ;;00147-0105-30
 ;;9002226.02101,"622,00147-0105-30 ",.02)
 ;;00147-0105-30
 ;;9002226.02101,"622,00147-0106-10 ",.01)
 ;;00147-0106-10
 ;;9002226.02101,"622,00147-0106-10 ",.02)
 ;;00147-0106-10
 ;;9002226.02101,"622,00147-0106-20 ",.01)
 ;;00147-0106-20
 ;;9002226.02101,"622,00147-0106-20 ",.02)
 ;;00147-0106-20
 ;;9002226.02101,"622,00147-0106-30 ",.01)
 ;;00147-0106-30
 ;;9002226.02101,"622,00147-0106-30 ",.02)
 ;;00147-0106-30
 ;;9002226.02101,"622,00147-0107-10 ",.01)
 ;;00147-0107-10
 ;;9002226.02101,"622,00147-0107-10 ",.02)
 ;;00147-0107-10
 ;;9002226.02101,"622,00147-0107-20 ",.01)
 ;;00147-0107-20
 ;;9002226.02101,"622,00147-0107-20 ",.02)
 ;;00147-0107-20
 ;;9002226.02101,"622,00147-0107-30 ",.01)
 ;;00147-0107-30
 ;;9002226.02101,"622,00147-0107-30 ",.02)
 ;;00147-0107-30
 ;;9002226.02101,"622,00147-0109-10 ",.01)
 ;;00147-0109-10
 ;;9002226.02101,"622,00147-0109-10 ",.02)
 ;;00147-0109-10
 ;;9002226.02101,"622,00147-0109-20 ",.01)
 ;;00147-0109-20
 ;;9002226.02101,"622,00147-0109-20 ",.02)
 ;;00147-0109-20
 ;;9002226.02101,"622,00147-0132-20 ",.01)
 ;;00147-0132-20
 ;;9002226.02101,"622,00147-0132-20 ",.02)
 ;;00147-0132-20
 ;;9002226.02101,"622,00147-0135-20 ",.01)
 ;;00147-0135-20
 ;;9002226.02101,"622,00147-0135-20 ",.02)
 ;;00147-0135-20
 ;;9002226.02101,"622,00147-0136-10 ",.01)
 ;;00147-0136-10
 ;;9002226.02101,"622,00147-0136-10 ",.02)
 ;;00147-0136-10
 ;;9002226.02101,"622,00147-0136-20 ",.01)
 ;;00147-0136-20
 ;;9002226.02101,"622,00147-0136-20 ",.02)
 ;;00147-0136-20
 ;;9002226.02101,"622,00147-0198-10 ",.01)
 ;;00147-0198-10
 ;;9002226.02101,"622,00147-0198-10 ",.02)
 ;;00147-0198-10
 ;;9002226.02101,"622,00147-0198-20 ",.01)
 ;;00147-0198-20
 ;;9002226.02101,"622,00147-0198-20 ",.02)
 ;;00147-0198-20
 ;;9002226.02101,"622,00147-0201-10 ",.01)
 ;;00147-0201-10
 ;;9002226.02101,"622,00147-0201-10 ",.02)
 ;;00147-0201-10
 ;;9002226.02101,"622,00147-0201-20 ",.01)
 ;;00147-0201-20
 ;;9002226.02101,"622,00147-0201-20 ",.02)
 ;;00147-0201-20
 ;;9002226.02101,"622,00147-0202-10 ",.01)
 ;;00147-0202-10
 ;;9002226.02101,"622,00147-0202-10 ",.02)
 ;;00147-0202-10
 ;;9002226.02101,"622,00147-0202-20 ",.01)
 ;;00147-0202-20
 ;;9002226.02101,"622,00147-0202-20 ",.02)
 ;;00147-0202-20
 ;;9002226.02101,"622,00147-0231-10 ",.01)
 ;;00147-0231-10
 ;;9002226.02101,"622,00147-0231-10 ",.02)
 ;;00147-0231-10
 ;;9002226.02101,"622,00147-0231-20 ",.01)
 ;;00147-0231-20
 ;;9002226.02101,"622,00147-0231-20 ",.02)
 ;;00147-0231-20
 ;;9002226.02101,"622,00147-0232-10 ",.01)
 ;;00147-0232-10
 ;;9002226.02101,"622,00147-0232-10 ",.02)
 ;;00147-0232-10
 ;;9002226.02101,"622,00147-0232-20 ",.01)
 ;;00147-0232-20
 ;;9002226.02101,"622,00147-0232-20 ",.02)
 ;;00147-0232-20
 ;;9002226.02101,"622,00147-0234-10 ",.01)
 ;;00147-0234-10
 ;;9002226.02101,"622,00147-0234-10 ",.02)
 ;;00147-0234-10
 ;;9002226.02101,"622,00147-0234-20 ",.01)
 ;;00147-0234-20
 ;;9002226.02101,"622,00147-0234-20 ",.02)
 ;;00147-0234-20
 ;;9002226.02101,"622,00147-0235-10 ",.01)
 ;;00147-0235-10
 ;;9002226.02101,"622,00147-0235-10 ",.02)
 ;;00147-0235-10
 ;;9002226.02101,"622,00147-0235-20 ",.01)
 ;;00147-0235-20
 ;;9002226.02101,"622,00147-0235-20 ",.02)
 ;;00147-0235-20
 ;;9002226.02101,"622,00147-0237-10 ",.01)
 ;;00147-0237-10
 ;;9002226.02101,"622,00147-0237-10 ",.02)
 ;;00147-0237-10
 ;;9002226.02101,"622,00147-0237-20 ",.01)
 ;;00147-0237-20
 ;;9002226.02101,"622,00147-0237-20 ",.02)
 ;;00147-0237-20
 ;;9002226.02101,"622,00147-0248-10 ",.01)
 ;;00147-0248-10
 ;;9002226.02101,"622,00147-0248-10 ",.02)
 ;;00147-0248-10
 ;;9002226.02101,"622,00147-0248-20 ",.01)
 ;;00147-0248-20
 ;;9002226.02101,"622,00147-0248-20 ",.02)
 ;;00147-0248-20
 ;;9002226.02101,"622,00147-0249-10 ",.01)
 ;;00147-0249-10
 ;;9002226.02101,"622,00147-0249-10 ",.02)
 ;;00147-0249-10
 ;;9002226.02101,"622,00147-0249-20 ",.01)
 ;;00147-0249-20
 ;;9002226.02101,"622,00147-0249-20 ",.02)
 ;;00147-0249-20
 ;;9002226.02101,"622,00147-0251-10 ",.01)
 ;;00147-0251-10