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

BGP21L10.m

Go to the documentation of this file.
  1. BGP21L10 ;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,"67544-0106-15 ")
  1. ;;441
  1. ;;21,"67544-0106-30 ")
  1. ;;442
  1. ;;21,"67544-0106-45 ")
  1. ;;443
  1. ;;21,"67544-0106-53 ")
  1. ;;444
  1. ;;21,"67544-0106-60 ")
  1. ;;445
  1. ;;21,"67544-0106-80 ")
  1. ;;446
  1. ;;21,"67544-0225-15 ")
  1. ;;550
  1. ;;21,"67544-0225-30 ")
  1. ;;551
  1. ;;21,"67544-0225-45 ")
  1. ;;552
  1. ;;21,"67544-0225-53 ")
  1. ;;553
  1. ;;21,"67544-0225-60 ")
  1. ;;554
  1. ;;21,"67544-0225-80 ")
  1. ;;555
  1. ;;21,"67544-0245-30 ")
  1. ;;331
  1. ;;21,"67544-0245-60 ")
  1. ;;332
  1. ;;21,"67544-0247-30 ")
  1. ;;203
  1. ;;21,"67544-0854-45 ")
  1. ;;1010
  1. ;;21,"67544-0854-60 ")
  1. ;;1011
  1. ;;21,"67544-0855-15 ")
  1. ;;1159
  1. ;;21,"67544-0855-30 ")
  1. ;;1160
  1. ;;21,"67544-0855-45 ")
  1. ;;1161
  1. ;;21,"67544-0855-60 ")
  1. ;;1162
  1. ;;21,"67544-0856-15 ")
  1. ;;1319
  1. ;;21,"67544-0856-45 ")
  1. ;;1320
  1. ;;21,"67544-0857-15 ")
  1. ;;1502
  1. ;;21,"67544-0857-45 ")
  1. ;;1503
  1. ;;21,"67544-0857-60 ")
  1. ;;1504
  1. ;;21,"67544-1001-30 ")
  1. ;;1393
  1. ;;21,"67544-1001-60 ")
  1. ;;1394
  1. ;;21,"67544-1003-15 ")
  1. ;;1505
  1. ;;21,"67544-1003-45 ")
  1. ;;1506
  1. ;;21,"67544-1003-53 ")
  1. ;;1507
  1. ;;21,"67544-1029-99 ")
  1. ;;261
  1. ;;21,"67544-1030-99 ")
  1. ;;256
  1. ;;21,"67544-1032-15 ")
  1. ;;899
  1. ;;21,"67544-1032-45 ")
  1. ;;900
  1. ;;21,"67544-1032-82 ")
  1. ;;901
  1. ;;21,"67544-1032-99 ")
  1. ;;902
  1. ;;21,"67544-1078-30 ")
  1. ;;1321
  1. ;;21,"67544-1254-15 ")
  1. ;;1322
  1. ;;21,"67544-1254-45 ")
  1. ;;1323
  1. ;;21,"67544-1255-15 ")
  1. ;;1508
  1. ;;21,"67544-1255-30 ")
  1. ;;1509
  1. ;;21,"67544-1255-45 ")
  1. ;;1510
  1. ;;21,"67544-1255-60 ")
  1. ;;1414
  1. ;;21,"67544-1256-15 ")
  1. ;;1163
  1. ;;21,"67544-1256-30 ")
  1. ;;1164
  1. ;;21,"67544-1256-45 ")
  1. ;;1165
  1. ;;21,"67544-1257-45 ")
  1. ;;1012
  1. ;;21,"67544-1257-60 ")
  1. ;;1013
  1. ;;21,"68071-0154-30 ")
  1. ;;166
  1. ;;21,"68071-0263-30 ")
  1. ;;885
  1. ;;21,"68071-0310-30 ")
  1. ;;204
  1. ;;21,"68071-0399-30 ")
  1. ;;132
  1. ;;21,"68071-0433-30 ")
  1. ;;862
  1. ;;21,"68071-0784-30 ")
  1. ;;910
  1. ;;21,"68084-0131-01 ")
  1. ;;333
  1. ;;21,"68084-0131-11 ")
  1. ;;334
  1. ;;21,"68084-0132-01 ")
  1. ;;447
  1. ;;21,"68084-0132-11 ")
  1. ;;448
  1. ;;21,"68084-0133-01 ")
  1. ;;556
  1. ;;21,"68084-0133-11 ")
  1. ;;557
  1. ;;21,"68084-0161-01 ")
  1. ;;1395
  1. ;;21,"68084-0161-11 ")
  1. ;;1396
  1. ;;21,"68084-0162-01 ")
  1. ;;1014
  1. ;;21,"68084-0162-11 ")
  1. ;;1015
  1. ;;21,"68084-0163-01 ")
  1. ;;1166
  1. ;;21,"68084-0163-11 ")
  1. ;;1167
  1. ;;21,"68084-0164-01 ")
  1. ;;1324
  1. ;;21,"68084-0164-11 ")
  1. ;;1325
  1. ;;21,"68084-0165-01 ")
  1. ;;1511
  1. ;;21,"68084-0165-11 ")
  1. ;;1512
  1. ;;21,"68084-0186-01 ")
  1. ;;623
  1. ;;21,"68084-0186-11 ")
  1. ;;624
  1. ;;21,"68084-0187-01 ")
  1. ;;706
  1. ;;21,"68084-0187-11 ")
  1. ;;707
  1. ;;21,"68084-0188-01 ")
  1. ;;799
  1. ;;21,"68084-0188-11 ")
  1. ;;800
  1. ;;21,"68115-0218-30 ")
  1. ;;271
  1. ;;21,"68115-0219-30 ")
  1. ;;348
  1. ;;21,"68115-0219-60 ")
  1. ;;349
  1. ;;21,"68115-0494-30 ")
  1. ;;135
  1. ;;21,"68115-0494-60 ")
  1. ;;136
  1. ;;21,"68115-0658-00 ")
  1. ;;461
  1. ;;21,"68115-0658-60 ")
  1. ;;462
  1. ;;21,"68115-0664-90 ")
  1. ;;725
  1. ;;21,"68115-0668-15 ")
  1. ;;170
  1. ;;21,"68115-0668-30 ")
  1. ;;171
  1. ;;21,"68115-0668-90 ")
  1. ;;172
  1. ;;21,"68115-0672-30 ")
  1. ;;1039
  1. ;;21,"68115-0720-30 ")
  1. ;;922
  1. ;;21,"68115-0759-30 ")
  1. ;;1415
  1. ;;21,"68115-0777-30 ")
  1. ;;1193
  1. ;;21,"68115-0777-90 ")
  1. ;;1194
  1. ;;21,"68115-0800-90 ")
  1. ;;137
  1. ;;21,"68115-0836-30 ")
  1. ;;98
  1. ;;21,"68115-0836-90 ")
  1. ;;99
  1. ;;21,"68180-0467-01 ")
  1. ;;335
  1. ;;21,"68180-0467-03 ")
  1. ;;336
  1. ;;21,"68180-0467-07 ")
  1. ;;337
  1. ;;21,"68180-0468-01 ")
  1. ;;449
  1. ;;21,"68180-0468-03 ")
  1. ;;450
  1. ;;21,"68180-0468-05 ")
  1. ;;451
  1. ;;21,"68180-0468-07 ")
  1. ;;452
  1. ;;21,"68180-0469-01 ")
  1. ;;558
  1. ;;21,"68180-0469-03 ")
  1. ;;559
  1. ;;21,"68180-0469-05 ")
  1. ;;560
  1. ;;21,"68180-0469-07 ")
  1. ;;561
  1. ;;21,"68180-0478-01 ")
  1. ;;1016
  1. ;;21,"68180-0478-02 ")
  1. ;;1017
  1. ;;21,"68180-0478-03 ")
  1. ;;1018
  1. ;;21,"68180-0479-01 ")
  1. ;;1168
  1. ;;21,"68180-0479-02 ")
  1. ;;1169
  1. ;;21,"68180-0479-03 ")
  1. ;;1170
  1. ;;21,"68180-0480-01 ")
  1. ;;1326
  1. ;;21,"68180-0480-02 ")
  1. ;;1327
  1. ;;21,"68180-0480-03 ")
  1. ;;1328
  1. ;;21,"68180-0481-01 ")
  1. ;;1513
  1. ;;21,"68180-0481-02 ")
  1. ;;1514
  1. ;;21,"68180-0481-03 ")
  1. ;;1515
  1. ;;21,"68180-0482-06 ")
  1. ;;1397
  1. ;;21,"68180-0482-09 ")
  1. ;;1398
  1. ;;21,"68180-0485-02 ")
  1. ;;625
  1. ;;21,"68180-0485-09 ")
  1. ;;626
  1. ;;21,"68180-0486-02 ")
  1. ;;708
  1. ;;21,"68180-0486-09 ")
  1. ;;709
  1. ;;21,"68180-0487-02 ")
  1. ;;801
  1. ;;21,"68180-0487-09 ")
  1. ;;802
  1. ;;21,"68180-0488-02 ")
  1. ;;830
  1. ;;21,"68180-0488-09 ")
  1. ;;831
  1. ;;21,"68258-1040-01 ")
  1. ;;138
  1. ;;21,"68258-1057-01 ")
  1. ;;355
  1. ;;21,"68258-6000-03 ")
  1. ;;133
  1. ;;21,"68258-6000-09 ")
  1. ;;134
  1. ;;21,"68258-6001-03 ")
  1. ;;167
  1. ;;21,"68258-6001-09 ")
  1. ;;168
  1. ;;21,"68258-6002-03 ")
  1. ;;205
  1. ;;21,"68258-6002-09 ")
  1. ;;206
  1. ;;21,"68258-6009-03 ")
  1. ;;1019
  1. ;;21,"68258-6013-03 ")
  1. ;;832
  1. ;;21,"68258-9001-01 ")
  1. ;;208
  1. ;;21,"68258-9128-01 ")
  1. ;;585
  1. ;;21,"68258-9154-01 ")
  1. ;;173
  1. ;;21,"68382-0065-05 ")
  1. ;;1399
  1. ;;21,"68382-0065-06 ")
  1. ;;1400
  1. ;;21,"68382-0065-10 ")
  1. ;;1401
  1. ;;21,"68382-0065-14 ")
  1. ;;1402
  1. ;;21,"68382-0065-16 ")
  1. ;;1403
  1. ;;21,"68382-0066-05 ")
  1. ;;1020
  1. ;;21,"68382-0066-06 ")
  1. ;;1021
  1. ;;21,"68382-0066-10 ")
  1. ;;1022
  1. ;;21,"68382-0066-14 ")
  1. ;;1023