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

BGPM5AXN.m

Go to the documentation of this file.
BGPM5AXN ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 30, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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)
 ;;9002226.02101,"1035,60432015712 ",.02)
 ;;60432015712
 ;;9002226.02101,"1035,60432015721 ",.01)
 ;;60432015721
 ;;9002226.02101,"1035,60432015721 ",.02)
 ;;60432015721
 ;;9002226.02101,"1035,60505080201 ",.01)
 ;;60505080201
 ;;9002226.02101,"1035,60505080201 ",.02)
 ;;60505080201
 ;;9002226.02101,"1035,60505081102 ",.01)
 ;;60505081102
 ;;9002226.02101,"1035,60505081102 ",.02)
 ;;60505081102
 ;;9002226.02101,"1035,60505082400 ",.01)
 ;;60505082400
 ;;9002226.02101,"1035,60505082400 ",.02)
 ;;60505082400
 ;;9002226.02101,"1035,60505082901 ",.01)
 ;;60505082901
 ;;9002226.02101,"1035,60505082901 ",.02)
 ;;60505082901
 ;;9002226.02101,"1035,60505084703 ",.01)
 ;;60505084703
 ;;9002226.02101,"1035,60505084703 ",.02)
 ;;60505084703
 ;;9002226.02101,"1035,60758045810 ",.01)
 ;;60758045810
 ;;9002226.02101,"1035,60758045810 ",.02)
 ;;60758045810
 ;;9002226.02101,"1035,60793007510 ",.01)
 ;;60793007510
 ;;9002226.02101,"1035,60793007510 ",.02)
 ;;60793007510
 ;;9002226.02101,"1035,61314023710 ",.01)
 ;;61314023710
 ;;9002226.02101,"1035,61314023710 ",.02)
 ;;61314023710
 ;;9002226.02101,"1035,61314023715 ",.01)
 ;;61314023715
 ;;9002226.02101,"1035,61314023715 ",.02)
 ;;61314023715
 ;;9002226.02101,"1035,62584055470 ",.01)
 ;;62584055470
 ;;9002226.02101,"1035,62584055470 ",.02)
 ;;62584055470
 ;;9002226.02101,"1035,62947640605 ",.01)
 ;;62947640605
 ;;9002226.02101,"1035,62947640605 ",.02)
 ;;62947640605
 ;;9002226.02101,"1035,62947640609 ",.01)
 ;;62947640609
 ;;9002226.02101,"1035,62947640609 ",.02)
 ;;62947640609
 ;;9002226.02101,"1035,62947681606 ",.01)
 ;;62947681606
 ;;9002226.02101,"1035,62947681606 ",.02)
 ;;62947681606
 ;;9002226.02101,"1035,62947681608 ",.01)
 ;;62947681608
 ;;9002226.02101,"1035,62947681608 ",.02)
 ;;62947681608
 ;;9002226.02101,"1035,63775080201 ",.01)
 ;;63775080201
 ;;9002226.02101,"1035,63775080201 ",.02)
 ;;63775080201
 ;;9002226.02101,"1035,63775081102 ",.01)
 ;;63775081102
 ;;9002226.02101,"1035,63775081102 ",.02)
 ;;63775081102
 ;;9002226.02101,"1035,64980050625 ",.01)
 ;;64980050625
 ;;9002226.02101,"1035,64980050625 ",.02)
 ;;64980050625
 ;;9002226.02101,"1035,68788001201 ",.01)
 ;;68788001201
 ;;9002226.02101,"1035,68788001201 ",.02)
 ;;68788001201
 ;;9002226.02101,"1035,68788001301 ",.01)
 ;;68788001301
 ;;9002226.02101,"1035,68788001301 ",.02)
 ;;68788001301