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

BGP2VM.m

Go to the documentation of this file.
  1. BGP2VM ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 08, 2012;
  1. ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
  1. ;;BGP HEDIS ANTIEMETIC NDC
  1. ;
  1. ; This routine loads Taxonomy BGP HEDIS ANTIEMETIC NDC
  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. D OTHER
  1. I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2
  1. I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2
  1. D KILL^ATXSTX2
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;21,"00067-4345-04 ")
  1. ;;14
  1. ;;21,"00247-0267-04 ")
  1. ;;27
  1. ;;21,"00247-0267-05 ")
  1. ;;28
  1. ;;21,"00247-0267-06 ")
  1. ;;29
  1. ;;21,"00247-0267-08 ")
  1. ;;30
  1. ;;21,"00247-0267-10 ")
  1. ;;31
  1. ;;21,"00247-0267-12 ")
  1. ;;32
  1. ;;21,"00247-0267-15 ")
  1. ;;33
  1. ;;21,"00247-0267-20 ")
  1. ;;34
  1. ;;21,"00247-0267-40 ")
  1. ;;35
  1. ;;21,"00247-1033-01 ")
  1. ;;15
  1. ;;21,"00247-1033-03 ")
  1. ;;16
  1. ;;21,"00247-1033-04 ")
  1. ;;17
  1. ;;21,"00247-2097-00 ")
  1. ;;68
  1. ;;21,"00247-2097-04 ")
  1. ;;69
  1. ;;21,"00247-2097-05 ")
  1. ;;70
  1. ;;21,"00247-2097-06 ")
  1. ;;71
  1. ;;21,"00247-2097-08 ")
  1. ;;72
  1. ;;21,"00247-2097-09 ")
  1. ;;73
  1. ;;21,"00247-2097-10 ")
  1. ;;74
  1. ;;21,"00247-2097-12 ")
  1. ;;75
  1. ;;21,"00247-2097-30 ")
  1. ;;76
  1. ;;21,"00247-2097-79 ")
  1. ;;77
  1. ;;21,"10019-0553-01 ")
  1. ;;18
  1. ;;21,"10019-0553-02 ")
  1. ;;19
  1. ;;21,"10019-0553-88 ")
  1. ;;20
  1. ;;21,"20254-0018-01 ")
  1. ;;36
  1. ;;21,"20254-0018-03 ")
  1. ;;37
  1. ;;21,"43063-0003-01 ")
  1. ;;21
  1. ;;21,"43386-0660-24 ")
  1. ;;78
  1. ;;21,"43386-0660-26 ")
  1. ;;79
  1. ;;21,"52152-0166-02 ")
  1. ;;38
  1. ;;21,"52152-0185-02 ")
  1. ;;80
  1. ;;21,"52959-0479-10 ")
  1. ;;39
  1. ;;21,"52959-0479-12 ")
  1. ;;40
  1. ;;21,"52959-0479-20 ")
  1. ;;41
  1. ;;21,"52959-0479-30 ")
  1. ;;42
  1. ;;21,"52959-0817-10 ")
  1. ;;81
  1. ;;21,"53489-0376-01 ")
  1. ;;82
  1. ;;21,"54569-0367-00 ")
  1. ;;22
  1. ;;21,"54569-3407-00 ")
  1. ;;43
  1. ;;21,"54569-5589-00 ")
  1. ;;83
  1. ;;21,"54569-5589-01 ")
  1. ;;84
  1. ;;21,"54868-2803-00 ")
  1. ;;23
  1. ;;21,"54868-2803-01 ")
  1. ;;24
  1. ;;21,"54868-2973-00 ")
  1. ;;44
  1. ;;21,"54868-2973-02 ")
  1. ;;45
  1. ;;21,"54868-2973-03 ")
  1. ;;46
  1. ;;21,"54868-2973-04 ")
  1. ;;47
  1. ;;21,"54868-5181-00 ")
  1. ;;85
  1. ;;21,"54868-5560-00 ")
  1. ;;1
  1. ;;21,"54868-5560-01 ")
  1. ;;2
  1. ;;21,"54868-5741-00 ")
  1. ;;86
  1. ;;21,"55045-1628-03 ")
  1. ;;48
  1. ;;21,"55045-2962-02 ")
  1. ;;3
  1. ;;21,"55289-0235-12 ")
  1. ;;4
  1. ;;21,"55289-0953-06 ")
  1. ;;87
  1. ;;21,"55887-0081-06 ")
  1. ;;88
  1. ;;21,"55887-0150-04 ")
  1. ;;25
  1. ;;21,"55887-0308-12 ")
  1. ;;5
  1. ;;21,"55887-0308-18 ")
  1. ;;6
  1. ;;21,"55887-0308-30 ")
  1. ;;7
  1. ;;21,"55887-0741-20 ")
  1. ;;49
  1. ;;21,"58016-0016-00 ")
  1. ;;8
  1. ;;21,"58016-0016-30 ")
  1. ;;9
  1. ;;21,"58016-0016-60 ")
  1. ;;10
  1. ;;21,"58016-0016-90 ")
  1. ;;11
  1. ;;21,"58016-0973-00 ")
  1. ;;50
  1. ;;21,"58016-0973-02 ")
  1. ;;51
  1. ;;21,"58016-0973-03 ")
  1. ;;52
  1. ;;21,"58016-0973-08 ")
  1. ;;53
  1. ;;21,"58016-0973-10 ")
  1. ;;54
  1. ;;21,"58016-0973-12 ")
  1. ;;55
  1. ;;21,"58016-0973-15 ")
  1. ;;56
  1. ;;21,"58016-0973-20 ")
  1. ;;57
  1. ;;21,"58016-0973-24 ")
  1. ;;58
  1. ;;21,"58016-0973-30 ")
  1. ;;59
  1. ;;21,"58016-0973-50 ")
  1. ;;60
  1. ;;21,"58016-0973-60 ")
  1. ;;61
  1. ;;21,"58016-0973-73 ")
  1. ;;62
  1. ;;21,"58016-0973-89 ")
  1. ;;63
  1. ;;21,"58016-0973-90 ")
  1. ;;64
  1. ;;21,"58016-4795-01 ")
  1. ;;26
  1. ;;21,"60267-0301-00 ")
  1. ;;12
  1. ;;21,"61570-0079-01 ")
  1. ;;89
  1. ;;21,"63717-0840-01 ")
  1. ;;13
  1. ;;21,"66267-0208-10 ")
  1. ;;65
  1. ;;21,"66267-0208-20 ")
  1. ;;66
  1. ;;21,"68115-0339-20 ")
  1. ;;67
  1. ;;21,"68115-0588-00 ")
  1. ;;90
  1. ;;9002226,715,.01)
  1. ;;BGP HEDIS ANTIEMETIC NDC
  1. ;;9002226,715,.02)
  1. ;;@
  1. ;;9002226,715,.04)
  1. ;;n
  1. ;;9002226,715,.06)
  1. ;;@
  1. ;;9002226,715,.08)
  1. ;;@
  1. ;;9002226,715,.09)
  1. ;;@
  1. ;;9002226,715,.11)
  1. ;;@
  1. ;;9002226,715,.12)
  1. ;;@
  1. ;;9002226,715,.13)
  1. ;;1
  1. ;;9002226,715,.14)
  1. ;;@
  1. ;;9002226,715,.15)
  1. ;;@
  1. ;;9002226,715,.16)
  1. ;;@
  1. ;;9002226,715,.17)
  1. ;;@
  1. ;;9002226,715,3101)
  1. ;;@
  1. ;;9002226.02101,"715,00067-4345-04 ",.01)
  1. ;;00067-4345-04
  1. ;;9002226.02101,"715,00067-4345-04 ",.02)
  1. ;;00067-4345-04
  1. ;;9002226.02101,"715,00247-0267-04 ",.01)
  1. ;;00247-0267-04
  1. ;;9002226.02101,"715,00247-0267-04 ",.02)
  1. ;;00247-0267-04
  1. ;;9002226.02101,"715,00247-0267-05 ",.01)
  1. ;;00247-0267-05
  1. ;;9002226.02101,"715,00247-0267-05 ",.02)
  1. ;;00247-0267-05
  1. ;;9002226.02101,"715,00247-0267-06 ",.01)
  1. ;;00247-0267-06
  1. ;;9002226.02101,"715,00247-0267-06 ",.02)
  1. ;;00247-0267-06
  1. ;;9002226.02101,"715,00247-0267-08 ",.01)
  1. ;;00247-0267-08
  1. ;;9002226.02101,"715,00247-0267-08 ",.02)
  1. ;;00247-0267-08
  1. ;;9002226.02101,"715,00247-0267-10 ",.01)
  1. ;;00247-0267-10
  1. ;;9002226.02101,"715,00247-0267-10 ",.02)
  1. ;;00247-0267-10
  1. ;;9002226.02101,"715,00247-0267-12 ",.01)
  1. ;;00247-0267-12
  1. ;;9002226.02101,"715,00247-0267-12 ",.02)
  1. ;;00247-0267-12
  1. ;;9002226.02101,"715,00247-0267-15 ",.01)
  1. ;;00247-0267-15
  1. ;;9002226.02101,"715,00247-0267-15 ",.02)
  1. ;;00247-0267-15
  1. ;;9002226.02101,"715,00247-0267-20 ",.01)
  1. ;;00247-0267-20
  1. ;;9002226.02101,"715,00247-0267-20 ",.02)
  1. ;;00247-0267-20
  1. ;;9002226.02101,"715,00247-0267-40 ",.01)
  1. ;;00247-0267-40
  1. ;;9002226.02101,"715,00247-0267-40 ",.02)
  1. ;;00247-0267-40
  1. ;;9002226.02101,"715,00247-1033-01 ",.01)
  1. ;;00247-1033-01
  1. ;;9002226.02101,"715,00247-1033-01 ",.02)
  1. ;;00247-1033-01
  1. ;;9002226.02101,"715,00247-1033-03 ",.01)
  1. ;;00247-1033-03
  1. ;;9002226.02101,"715,00247-1033-03 ",.02)
  1. ;;00247-1033-03
  1. ;;9002226.02101,"715,00247-1033-04 ",.01)
  1. ;;00247-1033-04
  1. ;;9002226.02101,"715,00247-1033-04 ",.02)
  1. ;;00247-1033-04
  1. ;;9002226.02101,"715,00247-2097-00 ",.01)
  1. ;;00247-2097-00
  1. ;;9002226.02101,"715,00247-2097-00 ",.02)
  1. ;;00247-2097-00
  1. ;;9002226.02101,"715,00247-2097-04 ",.01)
  1. ;;00247-2097-04
  1. ;;9002226.02101,"715,00247-2097-04 ",.02)
  1. ;;00247-2097-04
  1. ;;9002226.02101,"715,00247-2097-05 ",.01)
  1. ;;00247-2097-05
  1. ;;9002226.02101,"715,00247-2097-05 ",.02)
  1. ;;00247-2097-05
  1. ;;9002226.02101,"715,00247-2097-06 ",.01)
  1. ;;00247-2097-06
  1. ;;9002226.02101,"715,00247-2097-06 ",.02)
  1. ;;00247-2097-06
  1. ;;9002226.02101,"715,00247-2097-08 ",.01)
  1. ;;00247-2097-08
  1. ;;9002226.02101,"715,00247-2097-08 ",.02)
  1. ;;00247-2097-08
  1. ;;9002226.02101,"715,00247-2097-09 ",.01)
  1. ;;00247-2097-09
  1. ;;9002226.02101,"715,00247-2097-09 ",.02)
  1. ;;00247-2097-09
  1. ;;9002226.02101,"715,00247-2097-10 ",.01)
  1. ;;00247-2097-10
  1. ;;9002226.02101,"715,00247-2097-10 ",.02)
  1. ;;00247-2097-10
  1. ;;9002226.02101,"715,00247-2097-12 ",.01)
  1. ;;00247-2097-12
  1. ;;9002226.02101,"715,00247-2097-12 ",.02)
  1. ;;00247-2097-12
  1. ;;9002226.02101,"715,00247-2097-30 ",.01)
  1. ;;00247-2097-30
  1. ;;9002226.02101,"715,00247-2097-30 ",.02)
  1. ;;00247-2097-30
  1. ;;9002226.02101,"715,00247-2097-79 ",.01)
  1. ;;00247-2097-79
  1. ;;9002226.02101,"715,00247-2097-79 ",.02)
  1. ;;00247-2097-79
  1. ;;9002226.02101,"715,10019-0553-01 ",.01)
  1. ;;10019-0553-01
  1. ;;9002226.02101,"715,10019-0553-01 ",.02)
  1. ;;10019-0553-01
  1. ;;9002226.02101,"715,10019-0553-02 ",.01)
  1. ;;10019-0553-02
  1. ;;9002226.02101,"715,10019-0553-02 ",.02)
  1. ;;10019-0553-02
  1. ;;9002226.02101,"715,10019-0553-88 ",.01)
  1. ;;10019-0553-88
  1. ;;9002226.02101,"715,10019-0553-88 ",.02)
  1. ;;10019-0553-88
  1. ;;9002226.02101,"715,20254-0018-01 ",.01)
  1. ;;20254-0018-01
  1. ;;9002226.02101,"715,20254-0018-01 ",.02)
  1. ;;20254-0018-01
  1. ;;9002226.02101,"715,20254-0018-03 ",.01)
  1. ;;20254-0018-03
  1. ;;9002226.02101,"715,20254-0018-03 ",.02)
  1. ;;20254-0018-03
  1. ;;9002226.02101,"715,43063-0003-01 ",.01)
  1. ;;43063-0003-01
  1. ;;9002226.02101,"715,43063-0003-01 ",.02)
  1. ;;43063-0003-01
  1. ;;9002226.02101,"715,43386-0660-24 ",.01)
  1. ;;43386-0660-24
  1. ;;9002226.02101,"715,43386-0660-24 ",.02)
  1. ;;43386-0660-24
  1. ;;9002226.02101,"715,43386-0660-26 ",.01)
  1. ;;43386-0660-26
  1. ;;9002226.02101,"715,43386-0660-26 ",.02)
  1. ;;43386-0660-26
  1. ;;9002226.02101,"715,52152-0166-02 ",.01)
  1. ;;52152-0166-02
  1. ;;9002226.02101,"715,52152-0166-02 ",.02)
  1. ;;52152-0166-02
  1. ;;9002226.02101,"715,52152-0185-02 ",.01)
  1. ;;52152-0185-02
  1. ;;9002226.02101,"715,52152-0185-02 ",.02)
  1. ;;52152-0185-02
  1. ;;9002226.02101,"715,52959-0479-10 ",.01)
  1. ;;52959-0479-10
  1. ;;9002226.02101,"715,52959-0479-10 ",.02)
  1. ;;52959-0479-10
  1. ;;9002226.02101,"715,52959-0479-12 ",.01)
  1. ;;52959-0479-12
  1. ;;9002226.02101,"715,52959-0479-12 ",.02)
  1. ;;52959-0479-12
  1. ;;9002226.02101,"715,52959-0479-20 ",.01)
  1. ;;52959-0479-20
  1. ;;9002226.02101,"715,52959-0479-20 ",.02)
  1. ;;52959-0479-20
  1. ;;9002226.02101,"715,52959-0479-30 ",.01)
  1. ;;52959-0479-30
  1. ;;9002226.02101,"715,52959-0479-30 ",.02)
  1. ;;52959-0479-30
  1. ;;9002226.02101,"715,52959-0817-10 ",.01)
  1. ;;52959-0817-10
  1. ;;9002226.02101,"715,52959-0817-10 ",.02)
  1. ;;52959-0817-10
  1. ;;9002226.02101,"715,53489-0376-01 ",.01)
  1. ;;53489-0376-01
  1. ;;9002226.02101,"715,53489-0376-01 ",.02)
  1. ;;53489-0376-01
  1. ;;9002226.02101,"715,54569-0367-00 ",.01)
  1. ;;54569-0367-00
  1. ;;9002226.02101,"715,54569-0367-00 ",.02)
  1. ;;54569-0367-00
  1. ;;9002226.02101,"715,54569-3407-00 ",.01)
  1. ;;54569-3407-00
  1. ;;9002226.02101,"715,54569-3407-00 ",.02)
  1. ;;54569-3407-00
  1. ;;9002226.02101,"715,54569-5589-00 ",.01)
  1. ;;54569-5589-00
  1. ;;9002226.02101,"715,54569-5589-00 ",.02)
  1. ;;54569-5589-00
  1. ;;9002226.02101,"715,54569-5589-01 ",.01)
  1. ;;54569-5589-01
  1. ;;9002226.02101,"715,54569-5589-01 ",.02)
  1. ;;54569-5589-01
  1. ;;9002226.02101,"715,54868-2803-00 ",.01)
  1. ;;54868-2803-00
  1. ;;9002226.02101,"715,54868-2803-00 ",.02)
  1. ;;54868-2803-00
  1. ;;9002226.02101,"715,54868-2803-01 ",.01)
  1. ;;54868-2803-01
  1. ;;9002226.02101,"715,54868-2803-01 ",.02)
  1. ;;54868-2803-01
  1. ;;9002226.02101,"715,54868-2973-00 ",.01)
  1. ;;54868-2973-00
  1. ;;9002226.02101,"715,54868-2973-00 ",.02)
  1. ;;54868-2973-00
  1. ;;9002226.02101,"715,54868-2973-02 ",.01)
  1. ;;54868-2973-02
  1. ;;9002226.02101,"715,54868-2973-02 ",.02)
  1. ;;54868-2973-02
  1. ;;9002226.02101,"715,54868-2973-03 ",.01)
  1. ;;54868-2973-03
  1. ;;9002226.02101,"715,54868-2973-03 ",.02)
  1. ;;54868-2973-03
  1. ;;9002226.02101,"715,54868-2973-04 ",.01)
  1. ;;54868-2973-04
  1. ;;9002226.02101,"715,54868-2973-04 ",.02)
  1. ;;54868-2973-04
  1. ;;9002226.02101,"715,54868-5181-00 ",.01)
  1. ;;54868-5181-00
  1. ;;9002226.02101,"715,54868-5181-00 ",.02)
  1. ;;54868-5181-00
  1. ;;9002226.02101,"715,54868-5560-00 ",.01)
  1. ;;54868-5560-00
  1. ;;9002226.02101,"715,54868-5560-00 ",.02)
  1. ;;54868-5560-00
  1. ;;9002226.02101,"715,54868-5560-01 ",.01)
  1. ;;54868-5560-01
  1. ;;9002226.02101,"715,54868-5560-01 ",.02)
  1. ;;54868-5560-01
  1. ;;9002226.02101,"715,54868-5741-00 ",.01)
  1. ;;54868-5741-00
  1. ;;9002226.02101,"715,54868-5741-00 ",.02)
  1. ;;54868-5741-00
  1. ;;9002226.02101,"715,55045-1628-03 ",.01)
  1. ;;55045-1628-03
  1. ;;9002226.02101,"715,55045-1628-03 ",.02)
  1. ;;55045-1628-03
  1. ;;9002226.02101,"715,55045-2962-02 ",.01)
  1. ;;55045-2962-02
  1. ;;9002226.02101,"715,55045-2962-02 ",.02)
  1. ;;55045-2962-02
  1. ;;9002226.02101,"715,55289-0235-12 ",.01)
  1. ;;55289-0235-12
  1. ;;9002226.02101,"715,55289-0235-12 ",.02)
  1. ;;55289-0235-12
  1. ;;9002226.02101,"715,55289-0953-06 ",.01)
  1. ;;55289-0953-06
  1. ;;9002226.02101,"715,55289-0953-06 ",.02)
  1. ;;55289-0953-06
  1. ;;9002226.02101,"715,55887-0081-06 ",.01)
  1. ;;55887-0081-06
  1. ;;9002226.02101,"715,55887-0081-06 ",.02)
  1. ;;55887-0081-06
  1. ;;9002226.02101,"715,55887-0150-04 ",.01)
  1. ;;55887-0150-04
  1. ;;9002226.02101,"715,55887-0150-04 ",.02)
  1. ;;55887-0150-04
  1. ;;9002226.02101,"715,55887-0308-12 ",.01)
  1. ;;55887-0308-12
  1. ;;9002226.02101,"715,55887-0308-12 ",.02)
  1. ;;55887-0308-12
  1. ;;9002226.02101,"715,55887-0308-18 ",.01)
  1. ;;55887-0308-18
  1. ;;9002226.02101,"715,55887-0308-18 ",.02)
  1. ;;55887-0308-18
  1. ;;9002226.02101,"715,55887-0308-30 ",.01)
  1. ;;55887-0308-30
  1. ;;9002226.02101,"715,55887-0308-30 ",.02)
  1. ;;55887-0308-30
  1. ;;9002226.02101,"715,55887-0741-20 ",.01)
  1. ;;55887-0741-20
  1. ;;9002226.02101,"715,55887-0741-20 ",.02)
  1. ;;55887-0741-20
  1. ;;9002226.02101,"715,58016-0016-00 ",.01)
  1. ;;58016-0016-00
  1. ;;9002226.02101,"715,58016-0016-00 ",.02)
  1. ;;58016-0016-00
  1. ;;9002226.02101,"715,58016-0016-30 ",.01)
  1. ;;58016-0016-30
  1. ;;9002226.02101,"715,58016-0016-30 ",.02)
  1. ;;58016-0016-30
  1. ;;9002226.02101,"715,58016-0016-60 ",.01)
  1. ;;58016-0016-60
  1. ;;9002226.02101,"715,58016-0016-60 ",.02)
  1. ;;58016-0016-60
  1. ;;9002226.02101,"715,58016-0016-90 ",.01)
  1. ;;58016-0016-90
  1. ;;9002226.02101,"715,58016-0016-90 ",.02)
  1. ;;58016-0016-90
  1. ;;9002226.02101,"715,58016-0973-00 ",.01)
  1. ;;58016-0973-00
  1. ;;9002226.02101,"715,58016-0973-00 ",.02)
  1. ;;58016-0973-00
  1. ;;9002226.02101,"715,58016-0973-02 ",.01)
  1. ;;58016-0973-02
  1. ;;9002226.02101,"715,58016-0973-02 ",.02)
  1. ;;58016-0973-02
  1. ;;9002226.02101,"715,58016-0973-03 ",.01)
  1. ;;58016-0973-03
  1. ;;9002226.02101,"715,58016-0973-03 ",.02)
  1. ;;58016-0973-03
  1. ;;9002226.02101,"715,58016-0973-08 ",.01)
  1. ;;58016-0973-08
  1. ;;9002226.02101,"715,58016-0973-08 ",.02)
  1. ;;58016-0973-08
  1. ;;9002226.02101,"715,58016-0973-10 ",.01)
  1. ;;58016-0973-10
  1. ;;9002226.02101,"715,58016-0973-10 ",.02)
  1. ;;58016-0973-10
  1. ;;9002226.02101,"715,58016-0973-12 ",.01)
  1. ;;58016-0973-12
  1. ;;9002226.02101,"715,58016-0973-12 ",.02)
  1. ;;58016-0973-12
  1. ;;9002226.02101,"715,58016-0973-15 ",.01)
  1. ;;58016-0973-15
  1. ;;9002226.02101,"715,58016-0973-15 ",.02)
  1. ;;58016-0973-15
  1. ;;9002226.02101,"715,58016-0973-20 ",.01)
  1. ;;58016-0973-20
  1. ;;9002226.02101,"715,58016-0973-20 ",.02)
  1. ;;58016-0973-20
  1. ;;9002226.02101,"715,58016-0973-24 ",.01)
  1. ;;58016-0973-24
  1. ;;9002226.02101,"715,58016-0973-24 ",.02)
  1. ;;58016-0973-24
  1. ;;9002226.02101,"715,58016-0973-30 ",.01)
  1. ;;58016-0973-30
  1. ;;9002226.02101,"715,58016-0973-30 ",.02)
  1. ;;58016-0973-30
  1. ;;9002226.02101,"715,58016-0973-50 ",.01)
  1. ;;58016-0973-50
  1. ;;9002226.02101,"715,58016-0973-50 ",.02)
  1. ;;58016-0973-50
  1. ;;9002226.02101,"715,58016-0973-60 ",.01)
  1. ;;58016-0973-60
  1. ;;9002226.02101,"715,58016-0973-60 ",.02)
  1. ;;58016-0973-60
  1. ;;9002226.02101,"715,58016-0973-73 ",.01)
  1. ;;58016-0973-73
  1. ;;9002226.02101,"715,58016-0973-73 ",.02)
  1. ;;58016-0973-73
  1. ;;9002226.02101,"715,58016-0973-89 ",.01)
  1. ;;58016-0973-89
  1. ;;9002226.02101,"715,58016-0973-89 ",.02)
  1. ;;58016-0973-89
  1. ;;9002226.02101,"715,58016-0973-90 ",.01)
  1. ;;58016-0973-90
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGP2VM2
  1. Q