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

BGP21H13.m

Go to the documentation of this file.
  1. BGP21H13 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 14, 2011;
  1. ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
  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,"63304-0488-01 ")
  1. ;;1982
  1. ;;21,"63304-0489-01 ")
  1. ;;2037
  1. ;;21,"63304-0490-01 ")
  1. ;;2117
  1. ;;21,"63304-0490-05 ")
  1. ;;2118
  1. ;;21,"63629-1454-01 ")
  1. ;;127
  1. ;;21,"63629-1559-01 ")
  1. ;;1614
  1. ;;21,"63629-1559-02 ")
  1. ;;1615
  1. ;;21,"63629-1560-01 ")
  1. ;;1660
  1. ;;21,"63629-1561-01 ")
  1. ;;1693
  1. ;;21,"63629-1561-02 ")
  1. ;;1694
  1. ;;21,"63629-1561-03 ")
  1. ;;1695
  1. ;;21,"63629-1561-04 ")
  1. ;;1696
  1. ;;21,"63629-1565-01 ")
  1. ;;351
  1. ;;21,"63629-1565-02 ")
  1. ;;352
  1. ;;21,"63629-1565-03 ")
  1. ;;353
  1. ;;21,"63629-1566-01 ")
  1. ;;604
  1. ;;21,"63629-1566-02 ")
  1. ;;605
  1. ;;21,"63629-1566-03 ")
  1. ;;606
  1. ;;21,"63629-1566-04 ")
  1. ;;607
  1. ;;21,"63629-1566-05 ")
  1. ;;608
  1. ;;21,"63629-1597-01 ")
  1. ;;1353
  1. ;;21,"63629-3052-01 ")
  1. ;;2119
  1. ;;21,"63629-3052-02 ")
  1. ;;2120
  1. ;;21,"63629-3564-01 ")
  1. ;;881
  1. ;;21,"63629-3649-01 ")
  1. ;;1221
  1. ;;21,"63629-3678-01 ")
  1. ;;465
  1. ;;21,"63629-3750-01 ")
  1. ;;1536
  1. ;;21,"63629-4073-01 ")
  1. ;;2038
  1. ;;21,"63629-4089-01 ")
  1. ;;1480
  1. ;;21,"63672-0044-03 ")
  1. ;;484
  1. ;;21,"63672-0045-03 ")
  1. ;;647
  1. ;;21,"63672-0046-03 ")
  1. ;;397
  1. ;;21,"63739-0079-01 ")
  1. ;;1169
  1. ;;21,"63739-0079-02 ")
  1. ;;1175
  1. ;;21,"63739-0079-03 ")
  1. ;;1170
  1. ;;21,"63739-0079-10 ")
  1. ;;1156
  1. ;;21,"63739-0079-15 ")
  1. ;;1165
  1. ;;21,"63739-0080-01 ")
  1. ;;1232
  1. ;;21,"63739-0080-02 ")
  1. ;;1239
  1. ;;21,"63739-0080-03 ")
  1. ;;1233
  1. ;;21,"63739-0080-10 ")
  1. ;;1222
  1. ;;21,"63739-0080-15 ")
  1. ;;1228
  1. ;;21,"63739-0283-10 ")
  1. ;;786
  1. ;;21,"63739-0283-15 ")
  1. ;;795
  1. ;;21,"63739-0283-31 ")
  1. ;;787
  1. ;;21,"63739-0284-10 ")
  1. ;;830
  1. ;;21,"63739-0284-15 ")
  1. ;;840
  1. ;;21,"63739-0284-31 ")
  1. ;;831
  1. ;;21,"63739-0285-10 ")
  1. ;;882
  1. ;;21,"63739-0285-15 ")
  1. ;;894
  1. ;;21,"63739-0285-31 ")
  1. ;;883
  1. ;;21,"63739-0286-10 ")
  1. ;;922
  1. ;;21,"63739-0286-15 ")
  1. ;;925
  1. ;;21,"63739-0451-10 ")
  1. ;;1481
  1. ;;21,"63739-0452-10 ")
  1. ;;1537
  1. ;;21,"64455-0100-10 ")
  1. ;;940
  1. ;;21,"64455-0100-30 ")
  1. ;;938
  1. ;;21,"64455-0100-90 ")
  1. ;;939
  1. ;;21,"64455-0101-10 ")
  1. ;;952
  1. ;;21,"64455-0101-30 ")
  1. ;;951
  1. ;;21,"64455-0101-90 ")
  1. ;;950
  1. ;;21,"64455-0102-10 ")
  1. ;;964
  1. ;;21,"64455-0102-30 ")
  1. ;;963
  1. ;;21,"64455-0102-90 ")
  1. ;;962
  1. ;;21,"64455-0103-30 ")
  1. ;;974
  1. ;;21,"64455-0103-90 ")
  1. ;;973
  1. ;;21,"64455-0104-10 ")
  1. ;;987
  1. ;;21,"64455-0104-30 ")
  1. ;;986
  1. ;;21,"64455-0104-90 ")
  1. ;;985
  1. ;;21,"64455-0105-10 ")
  1. ;;998
  1. ;;21,"64455-0105-30 ")
  1. ;;996
  1. ;;21,"64455-0105-90 ")
  1. ;;997
  1. ;;21,"64455-0771-47 ")
  1. ;;1157
  1. ;;21,"64455-0771-55 ")
  1. ;;1158
  1. ;;21,"64455-0772-47 ")
  1. ;;1223
  1. ;;21,"64455-0772-55 ")
  1. ;;1229
  1. ;;21,"64455-0791-47 ")
  1. ;;1266
  1. ;;21,"64455-0792-47 ")
  1. ;;1124
  1. ;;21,"64455-0795-30 ")
  1. ;;788
  1. ;;21,"64455-0795-42 ")
  1. ;;789
  1. ;;21,"64455-0795-49 ")
  1. ;;790
  1. ;;21,"64455-0796-30 ")
  1. ;;832
  1. ;;21,"64455-0796-42 ")
  1. ;;833
  1. ;;21,"64455-0796-49 ")
  1. ;;834
  1. ;;21,"64455-0796-50 ")
  1. ;;835
  1. ;;21,"64455-0797-30 ")
  1. ;;884
  1. ;;21,"64455-0797-42 ")
  1. ;;885
  1. ;;21,"64455-0797-49 ")
  1. ;;886
  1. ;;21,"64455-0798-30 ")
  1. ;;923
  1. ;;21,"64455-0798-42 ")
  1. ;;924
  1. ;;21,"64455-0798-49 ")
  1. ;;926
  1. ;;21,"64455-0799-42 ")
  1. ;;931
  1. ;;21,"64679-0421-01 ")
  1. ;;466
  1. ;;21,"64679-0422-01 ")
  1. ;;609
  1. ;;21,"64679-0422-02 ")
  1. ;;610
  1. ;;21,"64679-0423-01 ")
  1. ;;354
  1. ;;21,"64679-0423-02 ")
  1. ;;355
  1. ;;21,"65162-0006-09 ")
  1. ;;467
  1. ;;21,"65162-0006-50 ")
  1. ;;468
  1. ;;21,"65162-0007-09 ")
  1. ;;611
  1. ;;21,"65162-0007-50 ")
  1. ;;612
  1. ;;21,"65162-0008-09 ")
  1. ;;356
  1. ;;21,"65162-0008-50 ")
  1. ;;357
  1. ;;21,"65162-0588-10 ")
  1. ;;1413
  1. ;;21,"65162-0589-10 ")
  1. ;;1429
  1. ;;21,"65243-0028-09 ")
  1. ;;1354
  1. ;;21,"65243-0054-09 ")
  1. ;;1538
  1. ;;21,"65243-0111-09 ")
  1. ;;1288
  1. ;;21,"65243-0260-09 ")
  1. ;;2121
  1. ;;21,"65243-0311-09 ")
  1. ;;1355
  1. ;;21,"65243-0312-09 ")
  1. ;;1289
  1. ;;21,"65243-0312-18 ")
  1. ;;1290
  1. ;;21,"65243-0317-09 ")
  1. ;;1482
  1. ;;21,"65243-0318-09 ")
  1. ;;1539
  1. ;;21,"65597-0110-10 ")
  1. ;;194
  1. ;;21,"65597-0110-30 ")
  1. ;;192
  1. ;;21,"65597-0110-90 ")
  1. ;;193
  1. ;;21,"65597-0111-10 ")
  1. ;;186
  1. ;;21,"65597-0111-30 ")
  1. ;;184
  1. ;;21,"65597-0111-90 ")
  1. ;;185
  1. ;;21,"65597-0112-10 ")
  1. ;;197
  1. ;;21,"65597-0112-30 ")
  1. ;;195
  1. ;;21,"65597-0112-90 ")
  1. ;;196
  1. ;;21,"65597-0113-10 ")
  1. ;;190
  1. ;;21,"65597-0113-30 ")
  1. ;;188
  1. ;;21,"65597-0113-90 ")
  1. ;;189
  1. ;;21,"65597-0114-30 ")
  1. ;;174
  1. ;;21,"65597-0114-90 ")
  1. ;;175
  1. ;;21,"65597-0115-30 ")
  1. ;;180
  1. ;;21,"65597-0115-90 ")
  1. ;;181
  1. ;;21,"65597-0116-30 ")
  1. ;;182
  1. ;;21,"65597-0116-90 ")
  1. ;;183
  1. ;;21,"65597-0117-30 ")
  1. ;;176
  1. ;;21,"65597-0117-90 ")
  1. ;;177
  1. ;;21,"65597-0118-30 ")
  1. ;;178
  1. ;;21,"65597-0118-90 ")
  1. ;;179
  1. ;;21,"65726-0226-15 ")
  1. ;;1388
  1. ;;21,"65726-0226-25 ")
  1. ;;1389
  1. ;;21,"65726-0227-15 ")
  1. ;;1397
  1. ;;21,"65726-0227-25 ")
  1. ;;1398
  1. ;;21,"65726-0235-10 ")
  1. ;;1404
  1. ;;21,"65726-0235-25 ")
  1. ;;1405
  1. ;;21,"65726-0236-10 ")
  1. ;;1400
  1. ;;21,"65726-0236-25 ")
  1. ;;1401
  1. ;;21,"65862-0101-05 ")
  1. ;;469
  1. ;;21,"65862-0101-90 ")
  1. ;;470
  1. ;;21,"65862-0101-99 ")
  1. ;;471
  1. ;;21,"65862-0102-05 ")
  1. ;;613
  1. ;;21,"65862-0102-90 ")
  1. ;;614
  1. ;;21,"65862-0102-99 ")
  1. ;;615
  1. ;;21,"65862-0103-05 ")
  1. ;;358