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

BGP2VF13.m

Go to the documentation of this file.
BGP2VF13 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 08, 2012;
 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
 ;
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,"65862-0013-05 ")
 ;;4051
 ;;21,"65862-0013-30 ")
 ;;4052
 ;;21,"65862-0013-90 ")
 ;;4053
 ;;21,"65862-0021-06 ")
 ;;2847
 ;;21,"65862-0022-06 ")
 ;;2953
 ;;21,"65862-0023-06 ")
 ;;3020
 ;;21,"65862-0031-01 ")
 ;;2819
 ;;21,"65862-0031-03 ")
 ;;2820
 ;;21,"65862-0031-05 ")
 ;;2821
 ;;21,"65862-0031-30 ")
 ;;2822
 ;;21,"65862-0031-90 ")
 ;;2823
 ;;21,"65862-0032-01 ")
 ;;3003
 ;;21,"65862-0032-03 ")
 ;;3004
 ;;21,"65862-0032-05 ")
 ;;3005
 ;;21,"65862-0032-30 ")
 ;;3006
 ;;21,"65862-0032-90 ")
 ;;3007
 ;;21,"65862-0074-24 ")
 ;;1083
 ;;21,"65862-0154-30 ")
 ;;3443
 ;;21,"65862-0155-05 ")
 ;;3637
 ;;21,"65862-0155-30 ")
 ;;3638
 ;;21,"65862-0155-99 ")
 ;;3639
 ;;21,"65862-0156-30 ")
 ;;3743
 ;;21,"65862-0156-99 ")
 ;;3744
 ;;21,"65862-0157-30 ")
 ;;3838
 ;;21,"65862-0157-99 ")
 ;;3839
 ;;21,"65862-0192-01 ")
 ;;2144
 ;;21,"65862-0192-05 ")
 ;;2145
 ;;21,"65862-0192-99 ")
 ;;2146
 ;;21,"65862-0193-01 ")
 ;;2391
 ;;21,"65862-0193-05 ")
 ;;2392
 ;;21,"65862-0193-99 ")
 ;;2393
 ;;21,"65862-0194-01 ")
 ;;2506
 ;;21,"65862-0194-30 ")
 ;;2507
 ;;21,"65862-0527-30 ")
 ;;4894
 ;;21,"65862-0528-30 ")
 ;;5069
 ;;21,"65862-0529-30 ")
 ;;4794
 ;;21,"66105-0111-10 ")
 ;;4895
 ;;21,"66105-0112-01 ")
 ;;5070
 ;;21,"66105-0112-03 ")
 ;;5071
 ;;21,"66105-0112-06 ")
 ;;5072
 ;;21,"66105-0112-10 ")
 ;;5073
 ;;21,"66105-0112-15 ")
 ;;5074
 ;;21,"66105-0116-03 ")
 ;;3444
 ;;21,"66105-0117-03 ")
 ;;3745
 ;;21,"66105-0118-10 ")
 ;;3640
 ;;21,"66105-0480-01 ")
 ;;696
 ;;21,"66105-0480-02 ")
 ;;697
 ;;21,"66105-0480-03 ")
 ;;698
 ;;21,"66105-0480-06 ")
 ;;699
 ;;21,"66105-0480-15 ")
 ;;700
 ;;21,"66105-0481-01 ")
 ;;784
 ;;21,"66105-0481-02 ")
 ;;785
 ;;21,"66105-0481-03 ")
 ;;786
 ;;21,"66105-0481-06 ")
 ;;787
 ;;21,"66105-0481-15 ")
 ;;788
 ;;21,"66105-0550-03 ")
 ;;2926
 ;;21,"66105-0564-03 ")
 ;;2394
 ;;21,"66105-0969-03 ")
 ;;1962
 ;;21,"66105-0977-03 ")
 ;;1996
 ;;21,"66267-0018-30 ")
 ;;112
 ;;21,"66267-0018-60 ")
 ;;113
 ;;21,"66267-0018-90 ")
 ;;114
 ;;21,"66267-0019-14 ")
 ;;342
 ;;21,"66267-0019-90 ")
 ;;343
 ;;21,"66267-0205-30 ")
 ;;4701
 ;;21,"66267-0205-60 ")
 ;;4702
 ;;21,"66267-0392-30 ")
 ;;4453
 ;;21,"66267-0392-60 ")
 ;;4454
 ;;21,"66267-0483-30 ")
 ;;3173
 ;;21,"66267-0483-45 ")
 ;;3174
 ;;21,"66267-0483-60 ")
 ;;3175
 ;;21,"66267-0484-30 ")
 ;;3284
 ;;21,"66267-0484-45 ")
 ;;3285
 ;;21,"66267-0484-60 ")
 ;;3286
 ;;21,"66267-0488-30 ")
 ;;2395
 ;;21,"66267-0488-60 ")
 ;;2396
 ;;21,"66267-0488-90 ")
 ;;2397
 ;;21,"66267-0560-90 ")
 ;;174
 ;;21,"66267-0576-30 ")
 ;;2147
 ;;21,"66267-0587-30 ")
 ;;2508
 ;;21,"66267-0614-30 ")
 ;;649
 ;;21,"66267-0614-60 ")
 ;;650
 ;;21,"66267-0618-30 ")
 ;;1231
 ;;21,"66267-0626-30 ")
 ;;1441
 ;;21,"66267-0680-30 ")
 ;;1796
 ;;21,"66267-0721-30 ")
 ;;3641
 ;;21,"66267-1006-00 ")
 ;;344
 ;;21,"66336-0004-30 ")
 ;;2398
 ;;21,"66336-0004-60 ")
 ;;2399
 ;;21,"66336-0014-30 ")
 ;;4455
 ;;21,"66336-0014-60 ")
 ;;4456
 ;;21,"66336-0027-30 ")
 ;;345
 ;;21,"66336-0027-60 ")
 ;;346
 ;;21,"66336-0224-30 ")
 ;;175
 ;;21,"66336-0271-30 ")
 ;;1368
 ;;21,"66336-0354-30 ")
 ;;115
 ;;21,"66336-0354-60 ")
 ;;116
 ;;21,"66336-0354-90 ")
 ;;117
 ;;21,"66336-0418-30 ")
 ;;2400
 ;;21,"66336-0553-30 ")
 ;;1722
 ;;21,"66336-0620-28 ")
 ;;4703
 ;;21,"66336-0620-30 ")
 ;;4704
 ;;21,"66336-0620-60 ")
 ;;4705
 ;;21,"66336-0621-60 ")
 ;;3334
 ;;21,"66336-0673-30 ")
 ;;451
 ;;21,"66336-0673-50 ")
 ;;452
 ;;21,"66336-0673-60 ")
 ;;453
 ;;21,"66336-0757-60 ")
 ;;3287
 ;;21,"66336-0799-30 ")
 ;;3642
 ;;21,"66336-0838-14 ")
 ;;4540
 ;;21,"66336-0844-30 ")
 ;;2148
 ;;21,"66336-0897-60 ")
 ;;789
 ;;21,"66336-0973-60 ")
 ;;3176
 ;;21,"66336-0993-30 ")
 ;;1232
 ;;21,"66993-0709-30 ")
 ;;2848
 ;;21,"66993-0711-30 ")
 ;;2954
 ;;21,"66993-0712-30 ")
 ;;3021
 ;;21,"67046-0015-30 ")
 ;;176
 ;;21,"67544-0078-30 ")
 ;;3288
 ;;21,"67544-0080-15 ")
 ;;4054
 ;;21,"67544-0085-30 ")
 ;;347
 ;;21,"67544-0085-60 ")
 ;;348
 ;;21,"67544-0162-30 ")
 ;;4457
 ;;21,"67544-0169-15 ")
 ;;2927
 ;;21,"67544-0189-30 ")
 ;;4795
 ;;21,"67544-0190-30 ")
 ;;5075
 ;;21,"67544-0206-30 ")
 ;;118
 ;;21,"67544-0235-15 ")
 ;;3840
 ;;21,"67544-0253-30 ")
 ;;454
 ;;21,"67544-0295-30 ")
 ;;2401
 ;;21,"67544-0298-15 ")
 ;;4316
 ;;21,"67544-0299-30 ")
 ;;790
 ;;21,"67544-0316-15 ")
 ;;4706
 ;;21,"67544-0317-15 ")
 ;;3643
 ;;21,"67544-0331-30 ")
 ;;4458
 ;;21,"67544-0357-15 ")
 ;;2928
 ;;21,"67544-0358-15 ")
 ;;2824
 ;;21,"67544-0360-15 ")
 ;;1369
 ;;21,"67544-0365-15 ")
 ;;3445
 ;;21,"67544-0366-15 ")
 ;;1370
 ;;21,"67544-0409-15 ")
 ;;1371
 ;;21,"67544-0429-15 ")
 ;;2825
 ;;21,"67544-0430-15 ")
 ;;2929
 ;;21,"67544-0434-15 ")
 ;;3841
 ;;21,"67544-0455-15 ")
 ;;3644
 ;;21,"67544-0464-82 ")
 ;;701
 ;;21,"67544-0499-82 ")
 ;;702
 ;;21,"67544-0500-15 ")
 ;;3746
 ;;21,"67544-0528-30 ")
 ;;2402
 ;;21,"67544-0547-30 ")
 ;;791
 ;;21,"67544-0588-15 ")
 ;;1372
 ;;21,"67544-0848-30 ")
 ;;2403
 ;;21,"67544-0906-15 ")
 ;;1373
 ;;21,"67544-0906-73 ")
 ;;1374
 ;;21,"67544-0908-15 ")
 ;;4055
 ;;21,"67544-0959-15 ")
 ;;4056
 ;;21,"67767-0117-60 ")
 ;;792
 ;;21,"67767-0133-05 ")
 ;;793
 ;;21,"67767-0133-25 ")
 ;;794
 ;;21,"67767-0133-60 ")
 ;;795
 ;;21,"67767-0135-60 ")
 ;;861
 ;;21,"67767-0141-30 ")
 ;;846
 ;;21,"67767-0141-90 ")
 ;;847
 ;;21,"67767-0142-05 ")
 ;;914
 ;;21,"67767-0142-30 ")
 ;;915
 ;;21,"67767-0142-90 ")
 ;;916
 ;;21,"67767-0171-60 ")
 ;;703
 ;;21,"67801-0204-10 ")
 ;;4317
 ;;21,"67801-0205-10 ")
 ;;4057
 ;;21,"67801-0310-30 ")
 ;;1997
 ;;21,"67801-0312-03 ")
 ;;4796
 ;;21,"67801-0321-03 ")
 ;;4896
 ;;21,"67801-0409-30 ")
 ;;1963
 ;;21,"67801-0411-03 ")
 ;;5076
 ;;21,"67801-0433-30 ")
 ;;848
 ;;21,"68071-0122-60 ")
 ;;796
 ;;21,"68071-0222-30 ")
 ;;1375
 ;;21,"68071-0231-30 ")
 ;;1233
 ;;21,"68071-0231-60 ")
 ;;1234
 ;;21,"68071-0231-90 ")
 ;;1235
 ;;21,"68071-0322-30 ")
 ;;5077
 ;;21,"68071-0322-40 ")
 ;;5078
 ;;21,"68071-0322-60 ")
 ;;5079
 ;;21,"68071-0322-90 ")
 ;;5080
 ;;21,"68071-0323-30 ")
 ;;3335
 ;;21,"68071-0323-60 ")
 ;;3336
 ;;21,"68071-0323-90 ")
 ;;3337
 ;;21,"68071-0333-30 ")
 ;;4897
 ;;21,"68071-0412-15 ")
 ;;4797
 ;;21,"68071-0412-30 ")
 ;;4798
 ;;21,"68071-0412-60 ")
 ;;4799
 ;;21,"68071-0444-15 ")
 ;;1873
 ;;21,"68071-0444-60 ")
 ;;1874
 ;;21,"68071-0445-15 ")
 ;;1919
 ;;21,"68071-0445-60 ")
 ;;1920
 ;;21,"68071-1312-00 ")
 ;;1875
 ;;21,"68071-1313-00 ")
 ;;1921
 ;;21,"68084-0031-01 ")
 ;;3177
 ;;21,"68084-0031-11 ")
 ;;3178
 ;;21,"68084-0032-01 ")
 ;;3289
 ;;21,"68084-0032-11 ")
 ;;3290
 ;;21,"68084-0044-01 ")
 ;;3446
 ;;21,"68084-0044-05 ")
 ;;3447
 ;;21,"68084-0044-11 ")
 ;;3448
 ;;21,"68084-0044-30 ")
 ;;3449
 ;;21,"68084-0044-85 ")
 ;;3450
 ;;21,"68084-0044-90 ")
 ;;3451
 ;;21,"68084-0045-00 ")
 ;;3645
 ;;21,"68084-0045-01 ")
 ;;3646
 ;;21,"68084-0045-05 ")
 ;;3647
 ;;21,"68084-0045-11 ")
 ;;3648
 ;;21,"68084-0045-30 ")
 ;;3649
 ;;21,"68084-0045-85 ")
 ;;3650
 ;;21,"68084-0045-90 ")
 ;;3651
 ;;21,"68084-0046-01 ")
 ;;3747
 ;;21,"68084-0046-05 ")
 ;;3748
 ;;21,"68084-0046-11 ")
 ;;3749
 ;;21,"68084-0046-30 ")
 ;;3750
 ;;21,"68084-0046-85 ")
 ;;3751
 ;;21,"68084-0046-90 ")
 ;;3752
 ;;21,"68084-0047-01 ")
 ;;3842
 ;;21,"68084-0047-05 ")
 ;;3843
 ;;21,"68084-0047-11 ")
 ;;3844
 ;;21,"68084-0047-30 ")
 ;;3845
 ;;21,"68084-0047-85 ")
 ;;3846
 ;;21,"68084-0047-90 ")
 ;;3847
 ;;21,"68084-0119-01 ")
 ;;2826
 ;;21,"68084-0119-06 ")
 ;;2827
 ;;21,"68084-0119-11 ")
 ;;2828
 ;;21,"68084-0119-30 ")
 ;;2829
 ;;21,"68084-0120-01 ")
 ;;2930
 ;;21,"68084-0120-06 ")
 ;;2931
 ;;21,"68084-0120-11 ")
 ;;2932
 ;;21,"68084-0120-30 ")
 ;;2933
 ;;21,"68084-0121-01 ")
 ;;3008
 ;;21,"68084-0121-11 ")
 ;;3009
 ;;21,"68084-0121-30 ")
 ;;3010
 ;;21,"68084-0180-01 ")
 ;;4159
 ;;21,"68084-0180-11 ")
 ;;4160
 ;;21,"68084-0181-01 ")
 ;;4318
 ;;21,"68084-0181-11 ")
 ;;4319
 ;;21,"68084-0182-01 ")
 ;;4058
 ;;21,"68084-0182-11 ")
 ;;4059
 ;;21,"68084-0251-01 ")
 ;;849
 ;;21,"68084-0251-11 ")
 ;;850
 ;;21,"68084-0252-11 ")
 ;;917
 ;;21,"68084-0252-21 ")
 ;;918
 ;;21,"68084-0330-01 ")
 ;;4962
 ;;21,"68084-0330-11 ")
 ;;4963
 ;;21,"68084-0331-01 ")
 ;;5169
 ;;21,"68084-0331-11 ")
 ;;5170
 ;;21,"68084-0470-01 ")
 ;;704
 ;;21,"68084-0471-01 ")
 ;;797
 ;;21,"68084-0484-01 ")
 ;;4898
 ;;21,"68084-0485-01 ")
 ;;5081
 ;;21,"68084-0486-01 ")
 ;;4800
 ;;21,"68115-0021-00 ")
 ;;177
 ;;21,"68115-0021-30 ")
 ;;178
 ;;21,"68115-0021-60 ")
 ;;179
 ;;21,"68115-0022-00 ")
 ;;119
 ;;21,"68115-0022-20 ")
 ;;120
 ;;21,"68115-0022-30 ")
 ;;121
 ;;21,"68115-0022-60 ")
 ;;122
 ;;21,"68115-0022-90 ")
 ;;123
 ;;21,"68115-0023-00 ")
 ;;349
 ;;21,"68115-0023-14 ")
 ;;350
 ;;21,"68115-0023-30 ")
 ;;351
 ;;21,"68115-0023-48 ")
 ;;352
 ;;21,"68115-0023-60 ")
 ;;353
 ;;21,"68115-0023-90 ")
 ;;354
 ;;21,"68115-0023-99 ")
 ;;355
 ;;21,"68115-0024-00 ")
 ;;455
 ;;21,"68115-0024-30 ")
 ;;456
 ;;21,"68115-0024-60 ")
 ;;457
 ;;21,"68115-0024-90 ")
 ;;458
 ;;21,"68115-0071-00 ")
 ;;1236
 ;;21,"68115-0071-30 ")
 ;;1237
 ;;21,"68115-0124-00 ")
 ;;1723
 ;;21,"68115-0124-30 ")
 ;;1724
 ;;21,"68115-0124-60 ")
 ;;1725
 ;;21,"68115-0124-90 ")
 ;;1726
 ;;21,"68115-0143-30 ")
 ;;2149
 ;;21,"68115-0143-60 ")
 ;;2150
 ;;21,"68115-0143-90 ")
 ;;2151
 ;;21,"68115-0144-00 ")
 ;;2404
 ;;21,"68115-0144-30 ")
 ;;2405
 ;;21,"68115-0144-60 ")
 ;;2406
 ;;21,"68115-0144-90 ")
 ;;2407
 ;;21,"68115-0145-30 ")
 ;;2509
 ;;21,"68115-0145-60 ")
 ;;2510
 ;;21,"68115-0145-90 ")
 ;;2511
 ;;21,"68115-0261-00 ")
 ;;3179
 ;;21,"68115-0261-30 ")
 ;;3180
 ;;21,"68115-0261-45 ")
 ;;3181
 ;;21,"68115-0261-60 ")
 ;;3182
 ;;21,"68115-0261-98 ")
 ;;3183
 ;;21,"68115-0262-00 ")
 ;;3291
 ;;21,"68115-0262-30 ")
 ;;3292
 ;;21,"68115-0262-60 ")
 ;;3293
 ;;21,"68115-0262-90 ")
 ;;3294
 ;;21,"68115-0267-30 ")
 ;;3652
 ;;21,"68115-0293-30 ")
 ;;2830
 ;;21,"68115-0296-00 ")
 ;;5082
 ;;21,"68115-0296-15 ")
 ;;5083
 ;;21,"68115-0296-30 ")
 ;;5084
 ;;21,"68115-0296-60 ")
 ;;5085
 ;;21,"68115-0296-90 ")
 ;;5086
 ;;21,"68115-0297-30 ")
 ;;3686
 ;;21,"68115-0331-30 ")
 ;;4459
 ;;21,"68115-0331-60 ")
 ;;4460
 ;;21,"68115-0331-90 ")
 ;;4461
 ;;21,"68115-0332-30 ")
 ;;4541
 ;;21,"68115-0332-60 ")
 ;;4542
 ;;21,"68115-0332-90 ")
 ;;4543
 ;;21,"68115-0333-30 ")
 ;;4707
 ;;21,"68115-0333-60 ")
 ;;4708
 ;;21,"68115-0333-90 ")
 ;;4709
 ;;21,"68115-0365-00 ")
 ;;4060
 ;;21,"68115-0365-15 ")
 ;;4061
 ;;21,"68115-0365-30 ")
 ;;4062
 ;;21,"68115-0365-45 ")
 ;;4063
 ;;21,"68115-0365-60 ")
 ;;4064
 ;;21,"68115-0366-00 ")
 ;;4320
 ;;21,"68115-0366-15 ")
 ;;4321
 ;;21,"68115-0366-30 ")
 ;;4322
 ;;21,"68115-0366-60 ")
 ;;4323
 ;;21,"68115-0371-15 ")
 ;;1998
 ;;21,"68115-0371-30 ")
 ;;1999
 ;;21,"68115-0372-30 ")
 ;;5171
 ;;21,"68115-0372-60 ")
 ;;5172
 ;;21,"68115-0384-30 ")
 ;;5003
 ;;21,"68115-0384-60 ")
 ;;5004
 ;;21,"68115-0391-00 ")
 ;;4964
 ;;21,"68115-0391-15 ")
 ;;4965
 ;;21,"68115-0391-30 ")
 ;;4966
 ;;21,"68115-0391-60 ")
 ;;4967
 ;;21,"68115-0402-30 ")
 ;;1797
 ;;21,"68115-0402-60 ")
 ;;1798
 ;;21,"68115-0412-00 ")
 ;;651
 ;;21,"68115-0412-30 ")
 ;;652
 ;;21,"68115-0412-60 ")
 ;;653
 ;;21,"68115-0412-90 ")
 ;;654
 ;;21,"68115-0418-00 ")
 ;;3338
 ;;21,"68115-0418-30 ")
 ;;3339
 ;;21,"68115-0418-60 ")
 ;;3340
 ;;21,"68115-0430-30 ")
 ;;197
 ;;21,"68115-0439-30 ")
 ;;2615
 ;;21,"68115-0445-30 ")
 ;;798
 ;;21,"68115-0445-60 ")
 ;;975
 ;;21,"68115-0447-30 ")
 ;;799
 ;;21,"68115-0447-60 ")
 ;;800
 ;;21,"68115-0477-30 ")
 ;;3653
 ;;21,"68115-0477-60 ")
 ;;3654
 ;;21,"68115-0477-90 ")
 ;;3655
 ;;21,"68115-0478-00 ")
 ;;4801
 ;;21,"68115-0478-15 ")
 ;;4802
 ;;21,"68115-0478-30 ")
 ;;4803
 ;;21,"68115-0478-60 ")
 ;;4804
 ;;21,"68115-0478-90 ")
 ;;4805
 ;;21,"68115-0482-30 ")
 ;;1507
 ;;21,"68115-0482-60 ")
 ;;1508
 ;;21,"68115-0483-60 ")
 ;;3848
 ;;21,"68115-0489-30 ")
 ;;1238
 ;;21,"68115-0493-30 ")
 ;;1076
 ;;21,"68115-0493-60 ")
 ;;1077
 ;;21,"68115-0505-00 ")
 ;;4899
 ;;21,"68115-0505-15 ")
 ;;4900
 ;;21,"68115-0505-30 ")
 ;;4901
 ;;21,"68115-0505-60 ")
 ;;4902
 ;;21,"68115-0505-90 ")
 ;;4903
 ;;21,"68115-0506-15 ")
 ;;1964
 ;;21,"68115-0506-30 ")
 ;;1965
 ;;21,"68115-0509-30 ")
 ;;1542
 ;;21,"68115-0544-30 ")
 ;;2512
 ;;21,"68115-0591-00 ")
 ;;1509
 ;;21,"68115-0624-00 ")
 ;;2660
 ;;21,"68115-0641-60 ")
 ;;3063
 ;;21,"68115-0656-30 ")
 ;;3488
 ;;21,"68115-0676-00 ")
 ;;705
 ;;21,"68115-0676-60 ")
 ;;706
 ;;21,"68115-0679-00 ")
 ;;1641
 ;;21,"68115-0689-00 ")
 ;;1649
 ;;21,"68115-0695-30 ")
 ;;2934
 ;;21,"68115-0695-60 ")
 ;;2935
 ;;21,"68115-0695-90 ")
 ;;2936
 ;;21,"68115-0697-60 ")
 ;;3095
 ;;21,"68115-0716-00 ")
 ;;4845
 ;;21,"68115-0719-00 ")
 ;;2408