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

BGP14A4.m

Go to the documentation of this file.
BGP14A4 ; 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,"66105-0986-10 ")
 ;;1148
 ;;21,"66105-0986-11 ")
 ;;1149
 ;;21,"66105-0986-50 ")
 ;;1150
 ;;21,"66116-0233-30 ")
 ;;110
 ;;21,"66116-0440-30 ")
 ;;1151
 ;;21,"66267-0100-30 ")
 ;;655
 ;;21,"66267-0100-60 ")
 ;;656
 ;;21,"66267-0100-90 ")
 ;;657
 ;;21,"66267-0100-91 ")
 ;;658
 ;;21,"66267-0100-92 ")
 ;;659
 ;;21,"66267-0103-30 ")
 ;;1152
 ;;21,"66336-0028-30 ")
 ;;978
 ;;21,"66336-0269-30 ")
 ;;720
 ;;21,"66336-0319-30 ")
 ;;128
 ;;21,"66336-0573-30 ")
 ;;369
 ;;21,"66336-0662-30 ")
 ;;495
 ;;21,"66336-0662-60 ")
 ;;496
 ;;21,"66336-0662-90 ")
 ;;497
 ;;21,"66336-0662-94 ")
 ;;522
 ;;21,"66336-0730-30 ")
 ;;660
 ;;21,"66336-0730-60 ")
 ;;661
 ;;21,"66336-0730-90 ")
 ;;662
 ;;21,"66336-0784-30 ")
 ;;129
 ;;21,"66336-0784-60 ")
 ;;130
 ;;21,"66336-0784-90 ")
 ;;131
 ;;21,"66336-0938-30 ")
 ;;1153
 ;;21,"66336-0938-60 ")
 ;;1154
 ;;21,"66993-0162-02 ")
 ;;271
 ;;21,"66993-0163-02 ")
 ;;312
 ;;21,"66993-0164-02 ")
 ;;364
 ;;21,"67253-0460-10 ")
 ;;803
 ;;21,"67253-0460-11 ")
 ;;804
 ;;21,"67253-0460-50 ")
 ;;805
 ;;21,"67253-0461-10 ")
 ;;840
 ;;21,"67253-0461-11 ")
 ;;841
 ;;21,"67253-0461-50 ")
 ;;842
 ;;21,"67253-0462-10 ")
 ;;871
 ;;21,"67253-0462-11 ")
 ;;872
 ;;21,"67253-0462-50 ")
 ;;873
 ;;21,"67544-0097-53 ")
 ;;498
 ;;21,"67544-0097-60 ")
 ;;499
 ;;21,"67544-0097-70 ")
 ;;500
 ;;21,"67544-0097-80 ")
 ;;501
 ;;21,"67544-0097-94 ")
 ;;502
 ;;21,"67544-0098-53 ")
 ;;1155
 ;;21,"67544-0098-60 ")
 ;;1156
 ;;21,"67544-0098-70 ")
 ;;1157
 ;;21,"67544-0098-80 ")
 ;;1158
 ;;21,"67544-0098-90 ")
 ;;1159
 ;;21,"67544-0098-92 ")
 ;;1160
 ;;21,"67544-0098-94 ")
 ;;1161
 ;;21,"67544-0129-53 ")
 ;;503
 ;;21,"67544-0129-70 ")
 ;;504
 ;;21,"67544-0129-80 ")
 ;;505
 ;;21,"67544-0129-94 ")
 ;;506
 ;;21,"67544-0199-80 ")
 ;;721
 ;;21,"67544-0296-70 ")
 ;;132
 ;;21,"67544-0302-45 ")
 ;;663
 ;;21,"67544-0302-60 ")
 ;;664
 ;;21,"67544-0302-80 ")
 ;;665
 ;;21,"67544-0364-70 ")
 ;;133
 ;;21,"67544-0417-70 ")
 ;;134
 ;;21,"67544-0478-82 ")
 ;;979
 ;;21,"67544-0511-70 ")
 ;;135
 ;;21,"67544-0548-82 ")
 ;;900
 ;;21,"67544-0566-53 ")
 ;;1162
 ;;21,"67544-0566-60 ")
 ;;1163
 ;;21,"67544-0566-70 ")
 ;;1164
 ;;21,"67544-0566-80 ")
 ;;1165
 ;;21,"67544-0566-90 ")
 ;;1166
 ;;21,"67544-0566-92 ")
 ;;1167
 ;;21,"67544-0566-94 ")
 ;;1168
 ;;21,"67544-0613-53 ")
 ;;1169
 ;;21,"67544-0613-60 ")
 ;;1170
 ;;21,"67544-0613-70 ")
 ;;1171
 ;;21,"67544-0613-80 ")
 ;;1172
 ;;21,"67544-0613-90 ")
 ;;1173
 ;;21,"67544-0613-92 ")
 ;;1174
 ;;21,"67544-0613-94 ")
 ;;1175
 ;;21,"67544-0643-80 ")
 ;;1176
 ;;21,"67544-0643-94 ")
 ;;1177
 ;;21,"67544-0653-53 ")
 ;;1178
 ;;21,"67544-0653-60 ")
 ;;1179
 ;;21,"67544-0653-70 ")
 ;;1180
 ;;21,"67544-0653-80 ")
 ;;1181
 ;;21,"67544-0653-90 ")
 ;;1182
 ;;21,"67544-0653-92 ")
 ;;1183
 ;;21,"67544-0653-94 ")
 ;;1184
 ;;21,"67544-0661-41 ")
 ;;901
 ;;21,"67544-0661-81 ")
 ;;902
 ;;21,"67544-0751-60 ")
 ;;507
 ;;21,"67544-0751-80 ")
 ;;508
 ;;21,"67544-0756-60 ")
 ;;666
 ;;21,"67544-0756-80 ")
 ;;667
 ;;21,"67544-0808-60 ")
 ;;722
 ;;21,"67544-0875-60 ")
 ;;980
 ;;21,"67544-0875-80 ")
 ;;981
 ;;21,"67544-1129-70 ")
 ;;136
 ;;21,"68071-0028-30 ")
 ;;197
 ;;21,"68071-0028-60 ")
 ;;198
 ;;21,"68084-0111-01 ")
 ;;783
 ;;21,"68084-0111-11 ")
 ;;784
 ;;21,"68084-0112-01 ")
 ;;723
 ;;21,"68084-0112-11 ")
 ;;724
 ;;21,"68084-0136-01 ")
 ;;70
 ;;21,"68084-0136-11 ")
 ;;71
 ;;21,"68084-0137-01 ")
 ;;111
 ;;21,"68084-0137-11 ")
 ;;112
 ;;21,"68084-0138-01 ")
 ;;137
 ;;21,"68084-0138-11 ")
 ;;138
 ;;21,"68084-0295-11 ")
 ;;741
 ;;21,"68084-0295-21 ")
 ;;742
 ;;21,"68084-0326-01 ")
 ;;313
 ;;21,"68084-0326-11 ")
 ;;314
 ;;21,"68084-0327-01 ")
 ;;365
 ;;21,"68084-0327-11 ")
 ;;366
 ;;21,"68115-0154-30 ")
 ;;509
 ;;21,"68115-0154-60 ")
 ;;510
 ;;21,"68115-0155-30 ")
 ;;668
 ;;21,"68115-0155-60 ")
 ;;669
 ;;21,"68115-0155-90 ")
 ;;670
 ;;21,"68115-0156-30 ")
 ;;725
 ;;21,"68115-0157-30 ")
 ;;785
 ;;21,"68115-0158-30 ")
 ;;113
 ;;21,"68115-0158-60 ")
 ;;114
 ;;21,"68115-0159-30 ")
 ;;139
 ;;21,"68115-0159-60 ")
 ;;140
 ;;21,"68115-0160-30 ")
 ;;982
 ;;21,"68115-0161-30 ")
 ;;1185
 ;;21,"68115-0161-60 ")
 ;;1186
 ;;21,"68115-0616-00 ")
 ;;786
 ;;21,"68115-0622-00 ")
 ;;874
 ;;21,"68115-0840-00 ")
 ;;367
 ;;21,"68258-1012-01 ")
 ;;671
 ;;21,"68258-1013-01 ")
 ;;511
 ;;21,"68258-1014-01 ")
 ;;1187
 ;;21,"68258-1051-01 ")
 ;;726
 ;;21,"68645-0150-54 ")
 ;;672
 ;;21,"68645-0151-59 ")
 ;;512
 ;;21,"68645-0210-54 ")
 ;;983
 ;;21,"68645-0211-54 ")
 ;;1188
 ;;9002226,1103,.01)
 ;;BGP PQA SULFONYLUREA NDC
 ;;9002226,1103,.02)
 ;;@
 ;;9002226,1103,.04)
 ;;n
 ;;9002226,1103,.06)
 ;;@
 ;;9002226,1103,.08)
 ;;@
 ;;9002226,1103,.09)
 ;;@
 ;;9002226,1103,.11)
 ;;@
 ;;9002226,1103,.12)
 ;;@
 ;;9002226,1103,.13)
 ;;1
 ;;9002226,1103,.14)
 ;;@
 ;;9002226,1103,.15)
 ;;@
 ;;9002226,1103,.16)
 ;;@
 ;;9002226,1103,.17)
 ;;@
 ;;9002226,1103,3101)
 ;;@
 ;;9002226.02101,"1103,00007-3148-13 ",.01)
 ;;00007-3148-13
 ;;9002226.02101,"1103,00007-3148-13 ",.02)
 ;;00007-3148-13
 ;;9002226.02101,"1103,00007-3149-13 ",.01)
 ;;00007-3149-13
 ;;9002226.02101,"1103,00007-3149-13 ",.02)
 ;;00007-3149-13
 ;;9002226.02101,"1103,00007-3151-13 ",.01)
 ;;00007-3151-13
 ;;9002226.02101,"1103,00007-3151-13 ",.02)
 ;;00007-3151-13
 ;;9002226.02101,"1103,00007-3152-13 ",.01)
 ;;00007-3152-13
 ;;9002226.02101,"1103,00007-3152-13 ",.02)
 ;;00007-3152-13
 ;;9002226.02101,"1103,00007-3153-13 ",.01)
 ;;00007-3153-13
 ;;9002226.02101,"1103,00007-3153-13 ",.02)
 ;;00007-3153-13
 ;;9002226.02101,"1103,00009-0070-02 ",.01)
 ;;00009-0070-02
 ;;9002226.02101,"1103,00009-0070-02 ",.02)
 ;;00009-0070-02
 ;;9002226.02101,"1103,00009-0114-04 ",.01)
 ;;00009-0114-04
 ;;9002226.02101,"1103,00009-0114-04 ",.02)
 ;;00009-0114-04
 ;;9002226.02101,"1103,00009-0114-05 ",.01)
 ;;00009-0114-05
 ;;9002226.02101,"1103,00009-0114-05 ",.02)
 ;;00009-0114-05
 ;;9002226.02101,"1103,00009-0131-01 ",.01)
 ;;00009-0131-01
 ;;9002226.02101,"1103,00009-0131-01 ",.02)
 ;;00009-0131-01
 ;;9002226.02101,"1103,00009-0141-01 ",.01)
 ;;00009-0141-01
 ;;9002226.02101,"1103,00009-0141-01 ",.02)
 ;;00009-0141-01
 ;;9002226.02101,"1103,00009-0141-02 ",.01)
 ;;00009-0141-02
 ;;9002226.02101,"1103,00009-0141-02 ",.02)
 ;;00009-0141-02
 ;;9002226.02101,"1103,00009-0171-03 ",.01)
 ;;00009-0171-03
 ;;9002226.02101,"1103,00009-0171-03 ",.02)
 ;;00009-0171-03
 ;;9002226.02101,"1103,00009-0171-05 ",.01)
 ;;00009-0171-05
 ;;9002226.02101,"1103,00009-0171-05 ",.02)
 ;;00009-0171-05
 ;;9002226.02101,"1103,00009-0171-06 ",.01)
 ;;00009-0171-06
 ;;9002226.02101,"1103,00009-0171-06 ",.02)
 ;;00009-0171-06
 ;;9002226.02101,"1103,00009-0171-07 ",.01)
 ;;00009-0171-07
 ;;9002226.02101,"1103,00009-0171-07 ",.02)
 ;;00009-0171-07
 ;;9002226.02101,"1103,00009-0341-01 ",.01)
 ;;00009-0341-01
 ;;9002226.02101,"1103,00009-0341-01 ",.02)
 ;;00009-0341-01
 ;;9002226.02101,"1103,00009-0341-02 ",.01)
 ;;00009-0341-02
 ;;9002226.02101,"1103,00009-0341-02 ",.02)
 ;;00009-0341-02
 ;;9002226.02101,"1103,00009-0352-01 ",.01)
 ;;00009-0352-01
 ;;9002226.02101,"1103,00009-0352-01 ",.02)
 ;;00009-0352-01
 ;;9002226.02101,"1103,00009-0352-02 ",.01)
 ;;00009-0352-02
 ;;9002226.02101,"1103,00009-0352-02 ",.02)
 ;;00009-0352-02
 ;;9002226.02101,"1103,00009-0352-03 ",.01)
 ;;00009-0352-03
 ;;9002226.02101,"1103,00009-0352-03 ",.02)
 ;;00009-0352-03
 ;;9002226.02101,"1103,00009-0352-04 ",.01)
 ;;00009-0352-04
 ;;9002226.02101,"1103,00009-0352-04 ",.02)
 ;;00009-0352-04
 ;;9002226.02101,"1103,00009-3449-01 ",.01)
 ;;00009-3449-01
 ;;9002226.02101,"1103,00009-3449-01 ",.02)
 ;;00009-3449-01
 ;;9002226.02101,"1103,00009-3449-03 ",.01)
 ;;00009-3449-03
 ;;9002226.02101,"1103,00009-3449-03 ",.02)
 ;;00009-3449-03
 ;;9002226.02101,"1103,00029-3151-13 ",.01)
 ;;00029-3151-13
 ;;9002226.02101,"1103,00029-3151-13 ",.02)
 ;;00029-3151-13
 ;;9002226.02101,"1103,00029-3152-13 ",.01)
 ;;00029-3152-13
 ;;9002226.02101,"1103,00029-3152-13 ",.02)
 ;;00029-3152-13
 ;;9002226.02101,"1103,00029-3153-13 ",.01)
 ;;00029-3153-13
 ;;9002226.02101,"1103,00029-3153-13 ",.02)
 ;;00029-3153-13
 ;;9002226.02101,"1103,00039-0051-10 ",.01)
 ;;00039-0051-10
 ;;9002226.02101,"1103,00039-0051-10 ",.02)
 ;;00039-0051-10
 ;;9002226.02101,"1103,00039-0051-11 ",.01)
 ;;00039-0051-11
 ;;9002226.02101,"1103,00039-0051-11 ",.02)
 ;;00039-0051-11
 ;;9002226.02101,"1103,00039-0051-50 ",.01)
 ;;00039-0051-50
 ;;9002226.02101,"1103,00039-0051-50 ",.02)
 ;;00039-0051-50
 ;;9002226.02101,"1103,00039-0052-10 ",.01)
 ;;00039-0052-10
 ;;9002226.02101,"1103,00039-0052-10 ",.02)
 ;;00039-0052-10
 ;;9002226.02101,"1103,00039-0052-11 ",.01)
 ;;00039-0052-11
 ;;9002226.02101,"1103,00039-0052-11 ",.02)
 ;;00039-0052-11
 ;;9002226.02101,"1103,00039-0052-50 ",.01)
 ;;00039-0052-50
 ;;9002226.02101,"1103,00039-0052-50 ",.02)
 ;;00039-0052-50
 ;;9002226.02101,"1103,00039-0052-70 ",.01)
 ;;00039-0052-70
 ;;9002226.02101,"1103,00039-0052-70 ",.02)
 ;;00039-0052-70
 ;;9002226.02101,"1103,00039-0053-05 ",.01)
 ;;00039-0053-05
 ;;9002226.02101,"1103,00039-0053-05 ",.02)
 ;;00039-0053-05
 ;;9002226.02101,"1103,00039-0221-10 ",.01)
 ;;00039-0221-10
 ;;9002226.02101,"1103,00039-0221-10 ",.02)
 ;;00039-0221-10
 ;;9002226.02101,"1103,00039-0222-10 ",.01)
 ;;00039-0222-10
 ;;9002226.02101,"1103,00039-0222-10 ",.02)
 ;;00039-0222-10
 ;;9002226.02101,"1103,00039-0222-11 ",.01)
 ;;00039-0222-11
 ;;9002226.02101,"1103,00039-0222-11 ",.02)
 ;;00039-0222-11
 ;;9002226.02101,"1103,00039-0223-10 ",.01)
 ;;00039-0223-10
 ;;9002226.02101,"1103,00039-0223-10 ",.02)
 ;;00039-0223-10
 ;;9002226.02101,"1103,00039-0223-11 ",.01)
 ;;00039-0223-11
 ;;9002226.02101,"1103,00039-0223-11 ",.02)
 ;;00039-0223-11
 ;;9002226.02101,"1103,00049-1550-66 ",.01)
 ;;00049-1550-66
 ;;9002226.02101,"1103,00049-1550-66 ",.02)
 ;;00049-1550-66
 ;;9002226.02101,"1103,00049-1550-73 ",.01)
 ;;00049-1550-73
 ;;9002226.02101,"1103,00049-1550-73 ",.02)
 ;;00049-1550-73
 ;;9002226.02101,"1103,00049-1560-66 ",.01)
 ;;00049-1560-66
 ;;9002226.02101,"1103,00049-1560-66 ",.02)
 ;;00049-1560-66
 ;;9002226.02101,"1103,00049-1560-73 ",.01)
 ;;00049-1560-73
 ;;9002226.02101,"1103,00049-1560-73 ",.02)
 ;;00049-1560-73
 ;;9002226.02101,"1103,00049-1620-30 ",.01)
 ;;00049-1620-30
 ;;9002226.02101,"1103,00049-1620-30 ",.02)
 ;;00049-1620-30
 ;;9002226.02101,"1103,00049-4110-66 ",.01)
 ;;00049-4110-66
 ;;9002226.02101,"1103,00049-4110-66 ",.02)
 ;;00049-4110-66
 ;;9002226.02101,"1103,00049-4110-73 ",.01)
 ;;00049-4110-73
 ;;9002226.02101,"1103,00049-4110-73 ",.02)
 ;;00049-4110-73
 ;;9002226.02101,"1103,00049-4120-66 ",.01)
 ;;00049-4120-66
 ;;9002226.02101,"1103,00049-4120-66 ",.02)
 ;;00049-4120-66
 ;;9002226.02101,"1103,00049-4120-73 ",.01)
 ;;00049-4120-73
 ;;9002226.02101,"1103,00049-4120-73 ",.02)
 ;;00049-4120-73
 ;;9002226.02101,"1103,00069-3930-66 ",.01)
 ;;00069-3930-66
 ;;9002226.02101,"1103,00069-3930-66 ",.02)
 ;;00069-3930-66
 ;;9002226.02101,"1103,00069-3940-66 ",.01)
 ;;00069-3940-66
 ;;9002226.02101,"1103,00069-3940-66 ",.02)
 ;;00069-3940-66
 ;;9002226.02101,"1103,00069-3940-82 ",.01)
 ;;00069-3940-82
 ;;9002226.02101,"1103,00069-3940-82 ",.02)
 ;;00069-3940-82
 ;;9002226.02101,"1103,00087-6072-11 ",.01)
 ;;00087-6072-11
 ;;9002226.02101,"1103,00087-6072-11 ",.02)
 ;;00087-6072-11
 ;;9002226.02101,"1103,00087-6073-11 ",.01)
 ;;00087-6073-11
 ;;9002226.02101,"1103,00087-6073-11 ",.02)
 ;;00087-6073-11
 ;;9002226.02101,"1103,00087-6074-11 ",.01)
 ;;00087-6074-11
 ;;9002226.02101,"1103,00087-6074-11 ",.02)
 ;;00087-6074-11
 ;;9002226.02101,"1103,00087-6077-31 ",.01)
 ;;00087-6077-31
 ;;9002226.02101,"1103,00087-6077-31 ",.02)
 ;;00087-6077-31
 ;;9002226.02101,"1103,00087-6078-31 ",.01)
 ;;00087-6078-31
 ;;9002226.02101,"1103,00087-6078-31 ",.02)
 ;;00087-6078-31
 ;;9002226.02101,"1103,00087-6081-31 ",.01)
 ;;00087-6081-31
 ;;9002226.02101,"1103,00087-6081-31 ",.02)
 ;;00087-6081-31
 ;;9002226.02101,"1103,00093-5710-01 ",.01)
 ;;00093-5710-01
 ;;9002226.02101,"1103,00093-5710-01 ",.02)
 ;;00093-5710-01
 ;;9002226.02101,"1103,00093-5710-05 ",.01)
 ;;00093-5710-05
 ;;9002226.02101,"1103,00093-5710-05 ",.02)
 ;;00093-5710-05
 ;;9002226.02101,"1103,00093-5710-19 ",.01)
 ;;00093-5710-19