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

BGP44S.m

Go to the documentation of this file.
  1. BGP44S ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 11, 2013;
  1. ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
  1. ;;BGP PQA DPP IV NDC
  1. ;
  1. ; This routine loads Taxonomy BGP PQA DPP IV 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,"00003-4214-11 ")
  1. ;;7
  1. ;;21,"00003-4214-21 ")
  1. ;;8
  1. ;;21,"00003-4215-11 ")
  1. ;;9
  1. ;;21,"00003-4215-21 ")
  1. ;;10
  1. ;;21,"00003-4215-31 ")
  1. ;;11
  1. ;;21,"00003-4215-41 ")
  1. ;;12
  1. ;;21,"00003-4221-11 ")
  1. ;;49
  1. ;;21,"00003-4222-16 ")
  1. ;;48
  1. ;;21,"00003-4223-11 ")
  1. ;;50
  1. ;;21,"00006-0078-61 ")
  1. ;;67
  1. ;;21,"00006-0078-62 ")
  1. ;;68
  1. ;;21,"00006-0078-82 ")
  1. ;;69
  1. ;;21,"00006-0080-61 ")
  1. ;;70
  1. ;;21,"00006-0080-62 ")
  1. ;;71
  1. ;;21,"00006-0080-82 ")
  1. ;;72
  1. ;;21,"00006-0081-31 ")
  1. ;;73
  1. ;;21,"00006-0081-54 ")
  1. ;;74
  1. ;;21,"00006-0081-82 ")
  1. ;;75
  1. ;;21,"00006-0112-28 ")
  1. ;;21
  1. ;;21,"00006-0112-31 ")
  1. ;;22
  1. ;;21,"00006-0112-54 ")
  1. ;;23
  1. ;;21,"00006-0221-28 ")
  1. ;;14
  1. ;;21,"00006-0221-31 ")
  1. ;;15
  1. ;;21,"00006-0221-54 ")
  1. ;;17
  1. ;;21,"00006-0277-28 ")
  1. ;;35
  1. ;;21,"00006-0277-31 ")
  1. ;;36
  1. ;;21,"00006-0277-33 ")
  1. ;;37
  1. ;;21,"00006-0277-54 ")
  1. ;;38
  1. ;;21,"00006-0277-82 ")
  1. ;;39
  1. ;;21,"00006-0533-31 ")
  1. ;;76
  1. ;;21,"00006-0533-54 ")
  1. ;;77
  1. ;;21,"00006-0535-31 ")
  1. ;;78
  1. ;;21,"00006-0535-54 ")
  1. ;;79
  1. ;;21,"00006-0537-31 ")
  1. ;;80
  1. ;;21,"00006-0537-54 ")
  1. ;;81
  1. ;;21,"00006-0575-61 ")
  1. ;;56
  1. ;;21,"00006-0575-62 ")
  1. ;;57
  1. ;;21,"00006-0575-82 ")
  1. ;;58
  1. ;;21,"00006-0577-61 ")
  1. ;;59
  1. ;;21,"00006-0577-62 ")
  1. ;;60
  1. ;;21,"00006-0577-82 ")
  1. ;;61
  1. ;;21,"00006-0753-31 ")
  1. ;;82
  1. ;;21,"00006-0753-54 ")
  1. ;;83
  1. ;;21,"00006-0753-82 ")
  1. ;;84
  1. ;;21,"00006-0757-31 ")
  1. ;;85
  1. ;;21,"00006-0757-54 ")
  1. ;;86
  1. ;;21,"00006-0757-82 ")
  1. ;;87
  1. ;;21,"00006-0773-31 ")
  1. ;;88
  1. ;;21,"00006-0773-54 ")
  1. ;;89
  1. ;;21,"00006-0773-82 ")
  1. ;;90
  1. ;;21,"00597-0140-30 ")
  1. ;;4
  1. ;;21,"00597-0140-61 ")
  1. ;;5
  1. ;;21,"00597-0140-90 ")
  1. ;;6
  1. ;;21,"00597-0146-18 ")
  1. ;;42
  1. ;;21,"00597-0146-60 ")
  1. ;;43
  1. ;;21,"00597-0147-18 ")
  1. ;;44
  1. ;;21,"00597-0147-60 ")
  1. ;;45
  1. ;;21,"00597-0148-18 ")
  1. ;;46
  1. ;;21,"00597-0148-60 ")
  1. ;;47
  1. ;;21,"23490-0112-03 ")
  1. ;;24
  1. ;;21,"35356-0103-30 ")
  1. ;;25
  1. ;;21,"35356-0136-60 ")
  1. ;;52
  1. ;;21,"47463-0434-60 ")
  1. ;;64
  1. ;;21,"47463-0435-60 ")
  1. ;;51
  1. ;;21,"47463-0777-30 ")
  1. ;;31
  1. ;;21,"51138-0479-30 ")
  1. ;;16
  1. ;;21,"51138-0480-30 ")
  1. ;;18
  1. ;;21,"51138-0481-30 ")
  1. ;;34
  1. ;;21,"51138-0526-30 ")
  1. ;;55
  1. ;;21,"51138-0527-30 ")
  1. ;;62
  1. ;;21,"54569-5925-00 ")
  1. ;;27
  1. ;;21,"54868-1097-00 ")
  1. ;;65
  1. ;;21,"54868-1097-01 ")
  1. ;;66
  1. ;;21,"54868-5840-00 ")
  1. ;;32
  1. ;;21,"54868-5840-01 ")
  1. ;;33
  1. ;;21,"54868-5973-00 ")
  1. ;;54
  1. ;;21,"54868-6031-00 ")
  1. ;;19
  1. ;;21,"54868-6031-01 ")
  1. ;;20
  1. ;;21,"54868-6309-00 ")
  1. ;;13
  1. ;;21,"55048-0434-60 ")
  1. ;;63
  1. ;;21,"55048-0437-60 ")
  1. ;;53
  1. ;;21,"55048-0777-30 ")
  1. ;;30
  1. ;;21,"64764-0125-30 ")
  1. ;;2
  1. ;;21,"64764-0250-30 ")
  1. ;;3
  1. ;;21,"64764-0335-60 ")
  1. ;;40
  1. ;;21,"64764-0337-60 ")
  1. ;;41
  1. ;;21,"64764-0625-30 ")
  1. ;;1
  1. ;;21,"66105-0652-03 ")
  1. ;;26
  1. ;;21,"68258-5990-03 ")
  1. ;;28
  1. ;;21,"68258-5990-09 ")
  1. ;;29
  1. ;;9002226,1786,.01)
  1. ;;BGP PQA DPP IV NDC
  1. ;;9002226,1786,.02)
  1. ;;@
  1. ;;9002226,1786,.04)
  1. ;;n
  1. ;;9002226,1786,.06)
  1. ;;@
  1. ;;9002226,1786,.08)
  1. ;;@
  1. ;;9002226,1786,.09)
  1. ;;3130911
  1. ;;9002226,1786,.11)
  1. ;;@
  1. ;;9002226,1786,.12)
  1. ;;@
  1. ;;9002226,1786,.13)
  1. ;;1
  1. ;;9002226,1786,.14)
  1. ;;@
  1. ;;9002226,1786,.15)
  1. ;;@
  1. ;;9002226,1786,.16)
  1. ;;@
  1. ;;9002226,1786,.17)
  1. ;;@
  1. ;;9002226,1786,3101)
  1. ;;@
  1. ;;9002226.02101,"1786,00003-4214-11 ",.01)
  1. ;;00003-4214-11
  1. ;;9002226.02101,"1786,00003-4214-11 ",.02)
  1. ;;00003-4214-11
  1. ;;9002226.02101,"1786,00003-4214-21 ",.01)
  1. ;;00003-4214-21
  1. ;;9002226.02101,"1786,00003-4214-21 ",.02)
  1. ;;00003-4214-21
  1. ;;9002226.02101,"1786,00003-4215-11 ",.01)
  1. ;;00003-4215-11
  1. ;;9002226.02101,"1786,00003-4215-11 ",.02)
  1. ;;00003-4215-11
  1. ;;9002226.02101,"1786,00003-4215-21 ",.01)
  1. ;;00003-4215-21
  1. ;;9002226.02101,"1786,00003-4215-21 ",.02)
  1. ;;00003-4215-21
  1. ;;9002226.02101,"1786,00003-4215-31 ",.01)
  1. ;;00003-4215-31
  1. ;;9002226.02101,"1786,00003-4215-31 ",.02)
  1. ;;00003-4215-31
  1. ;;9002226.02101,"1786,00003-4215-41 ",.01)
  1. ;;00003-4215-41
  1. ;;9002226.02101,"1786,00003-4215-41 ",.02)
  1. ;;00003-4215-41
  1. ;;9002226.02101,"1786,00003-4221-11 ",.01)
  1. ;;00003-4221-11
  1. ;;9002226.02101,"1786,00003-4221-11 ",.02)
  1. ;;00003-4221-11
  1. ;;9002226.02101,"1786,00003-4222-16 ",.01)
  1. ;;00003-4222-16
  1. ;;9002226.02101,"1786,00003-4222-16 ",.02)
  1. ;;00003-4222-16
  1. ;;9002226.02101,"1786,00003-4223-11 ",.01)
  1. ;;00003-4223-11
  1. ;;9002226.02101,"1786,00003-4223-11 ",.02)
  1. ;;00003-4223-11
  1. ;;9002226.02101,"1786,00006-0078-61 ",.01)
  1. ;;00006-0078-61
  1. ;;9002226.02101,"1786,00006-0078-61 ",.02)
  1. ;;00006-0078-61
  1. ;;9002226.02101,"1786,00006-0078-62 ",.01)
  1. ;;00006-0078-62
  1. ;;9002226.02101,"1786,00006-0078-62 ",.02)
  1. ;;00006-0078-62
  1. ;;9002226.02101,"1786,00006-0078-82 ",.01)
  1. ;;00006-0078-82
  1. ;;9002226.02101,"1786,00006-0078-82 ",.02)
  1. ;;00006-0078-82
  1. ;;9002226.02101,"1786,00006-0080-61 ",.01)
  1. ;;00006-0080-61
  1. ;;9002226.02101,"1786,00006-0080-61 ",.02)
  1. ;;00006-0080-61
  1. ;;9002226.02101,"1786,00006-0080-62 ",.01)
  1. ;;00006-0080-62
  1. ;;9002226.02101,"1786,00006-0080-62 ",.02)
  1. ;;00006-0080-62
  1. ;;9002226.02101,"1786,00006-0080-82 ",.01)
  1. ;;00006-0080-82
  1. ;;9002226.02101,"1786,00006-0080-82 ",.02)
  1. ;;00006-0080-82
  1. ;;9002226.02101,"1786,00006-0081-31 ",.01)
  1. ;;00006-0081-31
  1. ;;9002226.02101,"1786,00006-0081-31 ",.02)
  1. ;;00006-0081-31
  1. ;;9002226.02101,"1786,00006-0081-54 ",.01)
  1. ;;00006-0081-54
  1. ;;9002226.02101,"1786,00006-0081-54 ",.02)
  1. ;;00006-0081-54
  1. ;;9002226.02101,"1786,00006-0081-82 ",.01)
  1. ;;00006-0081-82
  1. ;;9002226.02101,"1786,00006-0081-82 ",.02)
  1. ;;00006-0081-82
  1. ;;9002226.02101,"1786,00006-0112-28 ",.01)
  1. ;;00006-0112-28
  1. ;;9002226.02101,"1786,00006-0112-28 ",.02)
  1. ;;00006-0112-28
  1. ;;9002226.02101,"1786,00006-0112-31 ",.01)
  1. ;;00006-0112-31
  1. ;;9002226.02101,"1786,00006-0112-31 ",.02)
  1. ;;00006-0112-31
  1. ;;9002226.02101,"1786,00006-0112-54 ",.01)
  1. ;;00006-0112-54
  1. ;;9002226.02101,"1786,00006-0112-54 ",.02)
  1. ;;00006-0112-54
  1. ;;9002226.02101,"1786,00006-0221-28 ",.01)
  1. ;;00006-0221-28
  1. ;;9002226.02101,"1786,00006-0221-28 ",.02)
  1. ;;00006-0221-28
  1. ;;9002226.02101,"1786,00006-0221-31 ",.01)
  1. ;;00006-0221-31
  1. ;;9002226.02101,"1786,00006-0221-31 ",.02)
  1. ;;00006-0221-31
  1. ;;9002226.02101,"1786,00006-0221-54 ",.01)
  1. ;;00006-0221-54
  1. ;;9002226.02101,"1786,00006-0221-54 ",.02)
  1. ;;00006-0221-54
  1. ;;9002226.02101,"1786,00006-0277-28 ",.01)
  1. ;;00006-0277-28
  1. ;;9002226.02101,"1786,00006-0277-28 ",.02)
  1. ;;00006-0277-28
  1. ;;9002226.02101,"1786,00006-0277-31 ",.01)
  1. ;;00006-0277-31
  1. ;;9002226.02101,"1786,00006-0277-31 ",.02)
  1. ;;00006-0277-31
  1. ;;9002226.02101,"1786,00006-0277-33 ",.01)
  1. ;;00006-0277-33
  1. ;;9002226.02101,"1786,00006-0277-33 ",.02)
  1. ;;00006-0277-33
  1. ;;9002226.02101,"1786,00006-0277-54 ",.01)
  1. ;;00006-0277-54
  1. ;;9002226.02101,"1786,00006-0277-54 ",.02)
  1. ;;00006-0277-54
  1. ;;9002226.02101,"1786,00006-0277-82 ",.01)
  1. ;;00006-0277-82
  1. ;;9002226.02101,"1786,00006-0277-82 ",.02)
  1. ;;00006-0277-82
  1. ;;9002226.02101,"1786,00006-0533-31 ",.01)
  1. ;;00006-0533-31
  1. ;;9002226.02101,"1786,00006-0533-31 ",.02)
  1. ;;00006-0533-31
  1. ;;9002226.02101,"1786,00006-0533-54 ",.01)
  1. ;;00006-0533-54
  1. ;;9002226.02101,"1786,00006-0533-54 ",.02)
  1. ;;00006-0533-54
  1. ;;9002226.02101,"1786,00006-0535-31 ",.01)
  1. ;;00006-0535-31
  1. ;;9002226.02101,"1786,00006-0535-31 ",.02)
  1. ;;00006-0535-31
  1. ;;9002226.02101,"1786,00006-0535-54 ",.01)
  1. ;;00006-0535-54
  1. ;;9002226.02101,"1786,00006-0535-54 ",.02)
  1. ;;00006-0535-54
  1. ;;9002226.02101,"1786,00006-0537-31 ",.01)
  1. ;;00006-0537-31
  1. ;;9002226.02101,"1786,00006-0537-31 ",.02)
  1. ;;00006-0537-31
  1. ;;9002226.02101,"1786,00006-0537-54 ",.01)
  1. ;;00006-0537-54
  1. ;;9002226.02101,"1786,00006-0537-54 ",.02)
  1. ;;00006-0537-54
  1. ;;9002226.02101,"1786,00006-0575-61 ",.01)
  1. ;;00006-0575-61
  1. ;;9002226.02101,"1786,00006-0575-61 ",.02)
  1. ;;00006-0575-61
  1. ;;9002226.02101,"1786,00006-0575-62 ",.01)
  1. ;;00006-0575-62
  1. ;;9002226.02101,"1786,00006-0575-62 ",.02)
  1. ;;00006-0575-62
  1. ;;9002226.02101,"1786,00006-0575-82 ",.01)
  1. ;;00006-0575-82
  1. ;;9002226.02101,"1786,00006-0575-82 ",.02)
  1. ;;00006-0575-82
  1. ;;9002226.02101,"1786,00006-0577-61 ",.01)
  1. ;;00006-0577-61
  1. ;;9002226.02101,"1786,00006-0577-61 ",.02)
  1. ;;00006-0577-61
  1. ;;9002226.02101,"1786,00006-0577-62 ",.01)
  1. ;;00006-0577-62
  1. ;;9002226.02101,"1786,00006-0577-62 ",.02)
  1. ;;00006-0577-62
  1. ;;9002226.02101,"1786,00006-0577-82 ",.01)
  1. ;;00006-0577-82
  1. ;;9002226.02101,"1786,00006-0577-82 ",.02)
  1. ;;00006-0577-82
  1. ;;9002226.02101,"1786,00006-0753-31 ",.01)
  1. ;;00006-0753-31
  1. ;;9002226.02101,"1786,00006-0753-31 ",.02)
  1. ;;00006-0753-31
  1. ;;9002226.02101,"1786,00006-0753-54 ",.01)
  1. ;;00006-0753-54
  1. ;;9002226.02101,"1786,00006-0753-54 ",.02)
  1. ;;00006-0753-54
  1. ;;9002226.02101,"1786,00006-0753-82 ",.01)
  1. ;;00006-0753-82
  1. ;;9002226.02101,"1786,00006-0753-82 ",.02)
  1. ;;00006-0753-82
  1. ;;9002226.02101,"1786,00006-0757-31 ",.01)
  1. ;;00006-0757-31
  1. ;;9002226.02101,"1786,00006-0757-31 ",.02)
  1. ;;00006-0757-31
  1. ;;9002226.02101,"1786,00006-0757-54 ",.01)
  1. ;;00006-0757-54
  1. ;;9002226.02101,"1786,00006-0757-54 ",.02)
  1. ;;00006-0757-54
  1. ;;9002226.02101,"1786,00006-0757-82 ",.01)
  1. ;;00006-0757-82
  1. ;;9002226.02101,"1786,00006-0757-82 ",.02)
  1. ;;00006-0757-82
  1. ;;9002226.02101,"1786,00006-0773-31 ",.01)
  1. ;;00006-0773-31
  1. ;;9002226.02101,"1786,00006-0773-31 ",.02)
  1. ;;00006-0773-31
  1. ;;9002226.02101,"1786,00006-0773-54 ",.01)
  1. ;;00006-0773-54
  1. ;;9002226.02101,"1786,00006-0773-54 ",.02)
  1. ;;00006-0773-54
  1. ;;9002226.02101,"1786,00006-0773-82 ",.01)
  1. ;;00006-0773-82
  1. ;;9002226.02101,"1786,00006-0773-82 ",.02)
  1. ;;00006-0773-82
  1. ;;9002226.02101,"1786,00597-0140-30 ",.01)
  1. ;;00597-0140-30
  1. ;;9002226.02101,"1786,00597-0140-30 ",.02)
  1. ;;00597-0140-30
  1. ;;9002226.02101,"1786,00597-0140-61 ",.01)
  1. ;;00597-0140-61
  1. ;;9002226.02101,"1786,00597-0140-61 ",.02)
  1. ;;00597-0140-61
  1. ;;9002226.02101,"1786,00597-0140-90 ",.01)
  1. ;;00597-0140-90
  1. ;;9002226.02101,"1786,00597-0140-90 ",.02)
  1. ;;00597-0140-90
  1. ;;9002226.02101,"1786,00597-0146-18 ",.01)
  1. ;;00597-0146-18
  1. ;;9002226.02101,"1786,00597-0146-18 ",.02)
  1. ;;00597-0146-18
  1. ;;9002226.02101,"1786,00597-0146-60 ",.01)
  1. ;;00597-0146-60
  1. ;;9002226.02101,"1786,00597-0146-60 ",.02)
  1. ;;00597-0146-60
  1. ;;9002226.02101,"1786,00597-0147-18 ",.01)
  1. ;;00597-0147-18
  1. ;;9002226.02101,"1786,00597-0147-18 ",.02)
  1. ;;00597-0147-18
  1. ;;9002226.02101,"1786,00597-0147-60 ",.01)
  1. ;;00597-0147-60
  1. ;;9002226.02101,"1786,00597-0147-60 ",.02)
  1. ;;00597-0147-60
  1. ;;9002226.02101,"1786,00597-0148-18 ",.01)
  1. ;;00597-0148-18
  1. ;;9002226.02101,"1786,00597-0148-18 ",.02)
  1. ;;00597-0148-18
  1. ;;9002226.02101,"1786,00597-0148-60 ",.01)
  1. ;;00597-0148-60
  1. ;;9002226.02101,"1786,00597-0148-60 ",.02)
  1. ;;00597-0148-60
  1. ;;9002226.02101,"1786,23490-0112-03 ",.01)
  1. ;;23490-0112-03
  1. ;;9002226.02101,"1786,23490-0112-03 ",.02)
  1. ;;23490-0112-03
  1. ;;9002226.02101,"1786,35356-0103-30 ",.01)
  1. ;;35356-0103-30
  1. ;;9002226.02101,"1786,35356-0103-30 ",.02)
  1. ;;35356-0103-30
  1. ;;9002226.02101,"1786,35356-0136-60 ",.01)
  1. ;;35356-0136-60
  1. ;;9002226.02101,"1786,35356-0136-60 ",.02)
  1. ;;35356-0136-60
  1. ;;9002226.02101,"1786,47463-0434-60 ",.01)
  1. ;;47463-0434-60
  1. ;;9002226.02101,"1786,47463-0434-60 ",.02)
  1. ;;47463-0434-60
  1. ;;9002226.02101,"1786,47463-0435-60 ",.01)
  1. ;;47463-0435-60
  1. ;;9002226.02101,"1786,47463-0435-60 ",.02)
  1. ;;47463-0435-60
  1. ;;9002226.02101,"1786,47463-0777-30 ",.01)
  1. ;;47463-0777-30
  1. ;;9002226.02101,"1786,47463-0777-30 ",.02)
  1. ;;47463-0777-30
  1. ;;9002226.02101,"1786,51138-0479-30 ",.01)
  1. ;;51138-0479-30
  1. ;;9002226.02101,"1786,51138-0479-30 ",.02)
  1. ;;51138-0479-30
  1. ;;9002226.02101,"1786,51138-0480-30 ",.01)
  1. ;;51138-0480-30
  1. ;;9002226.02101,"1786,51138-0480-30 ",.02)
  1. ;;51138-0480-30
  1. ;;9002226.02101,"1786,51138-0481-30 ",.01)
  1. ;;51138-0481-30
  1. ;;9002226.02101,"1786,51138-0481-30 ",.02)
  1. ;;51138-0481-30
  1. ;;9002226.02101,"1786,51138-0526-30 ",.01)
  1. ;;51138-0526-30
  1. ;;9002226.02101,"1786,51138-0526-30 ",.02)
  1. ;;51138-0526-30
  1. ;;9002226.02101,"1786,51138-0527-30 ",.01)
  1. ;;51138-0527-30
  1. ;;9002226.02101,"1786,51138-0527-30 ",.02)
  1. ;;51138-0527-30
  1. ;;9002226.02101,"1786,54569-5925-00 ",.01)
  1. ;;54569-5925-00
  1. ;;9002226.02101,"1786,54569-5925-00 ",.02)
  1. ;;54569-5925-00
  1. ;;9002226.02101,"1786,54868-1097-00 ",.01)
  1. ;;54868-1097-00
  1. ;;9002226.02101,"1786,54868-1097-00 ",.02)
  1. ;;54868-1097-00
  1. ;;9002226.02101,"1786,54868-1097-01 ",.01)
  1. ;;54868-1097-01
  1. ;;9002226.02101,"1786,54868-1097-01 ",.02)
  1. ;;54868-1097-01
  1. ;;9002226.02101,"1786,54868-5840-00 ",.01)
  1. ;;54868-5840-00
  1. ;;9002226.02101,"1786,54868-5840-00 ",.02)
  1. ;;54868-5840-00
  1. ;;9002226.02101,"1786,54868-5840-01 ",.01)
  1. ;;54868-5840-01
  1. ;;9002226.02101,"1786,54868-5840-01 ",.02)
  1. ;;54868-5840-01
  1. ;;9002226.02101,"1786,54868-5973-00 ",.01)
  1. ;;54868-5973-00
  1. ;;9002226.02101,"1786,54868-5973-00 ",.02)
  1. ;;54868-5973-00
  1. ;;9002226.02101,"1786,54868-6031-00 ",.01)
  1. ;;54868-6031-00
  1. ;;9002226.02101,"1786,54868-6031-00 ",.02)
  1. ;;54868-6031-00
  1. ;;9002226.02101,"1786,54868-6031-01 ",.01)
  1. ;;54868-6031-01
  1. ;;9002226.02101,"1786,54868-6031-01 ",.02)
  1. ;;54868-6031-01
  1. ;;9002226.02101,"1786,54868-6309-00 ",.01)
  1. ;;54868-6309-00
  1. ;;9002226.02101,"1786,54868-6309-00 ",.02)
  1. ;;54868-6309-00
  1. ;;9002226.02101,"1786,55048-0434-60 ",.01)
  1. ;;55048-0434-60
  1. ;;9002226.02101,"1786,55048-0434-60 ",.02)
  1. ;;55048-0434-60
  1. ;;9002226.02101,"1786,55048-0437-60 ",.01)
  1. ;;55048-0437-60
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGP44S2
  1. Q