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

BJPC2TY.m

Go to the documentation of this file.
BJPC2TY ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON JUN 23, 2008 ;
 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
 ;;DM AUDIT URINE PROTEIN LOINC
 ;
 ; This routine loads Taxonomy DM AUDIT URINE PROTEIN LOINC
 ;
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
 D OTHER
 I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2
 I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2
 D KILL^ATXSTX2
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;21,"12842-1 ")
 ;;1
 ;;21,"20454-5 ")
 ;;2
 ;;21,"21482-5 ")
 ;;3
 ;;21,"26034-9 ")
 ;;4
 ;;21,"27298-9 ")
 ;;5
 ;;21,"2887-8 ")
 ;;6
 ;;21,"2888-6 ")
 ;;7
 ;;21,"32209-9 ")
 ;;8
 ;;21,"35663-4 ")
 ;;9
 ;;21,"5804-0 ")
 ;;10
 ;;9002226,535,.01)
 ;;DM AUDIT URINE PROTEIN LOINC
 ;;9002226,535,.02)
 ;;@
 ;;9002226,535,.04)
 ;;n
 ;;9002226,535,.06)
 ;;@
 ;;9002226,535,.08)
 ;;@
 ;;9002226,535,.09)
 ;;@
 ;;9002226,535,.11)
 ;;@
 ;;9002226,535,.12)
 ;;@
 ;;9002226,535,.13)
 ;;1
 ;;9002226,535,.14)
 ;;FIHS
 ;;9002226,535,.15)
 ;;95.3
 ;;9002226,535,.16)
 ;;@
 ;;9002226,535,.17)
 ;;@
 ;;9002226,535,3101)
 ;;@
 ;;9002226.02101,"535,12842-1 ",.01)
 ;;12842-1
 ;;9002226.02101,"535,12842-1 ",.02)
 ;;12842-1
 ;;9002226.02101,"535,20454-5 ",.01)
 ;;20454-5
 ;;9002226.02101,"535,20454-5 ",.02)
 ;;20454-5
 ;;9002226.02101,"535,21482-5 ",.01)
 ;;21482-5
 ;;9002226.02101,"535,21482-5 ",.02)
 ;;21482-5
 ;;9002226.02101,"535,26034-9 ",.01)
 ;;26034-9
 ;;9002226.02101,"535,26034-9 ",.02)
 ;;26034-9
 ;;9002226.02101,"535,27298-9 ",.01)
 ;;27298-9
 ;;9002226.02101,"535,27298-9 ",.02)
 ;;27298-9
 ;;9002226.02101,"535,2887-8 ",.01)
 ;;2887-8
 ;;9002226.02101,"535,2887-8 ",.02)
 ;;2887-8
 ;;9002226.02101,"535,2888-6 ",.01)
 ;;2888-6
 ;;9002226.02101,"535,2888-6 ",.02)
 ;;2888-6
 ;;9002226.02101,"535,32209-9 ",.01)
 ;;32209-9
 ;;9002226.02101,"535,32209-9 ",.02)
 ;;32209-9
 ;;9002226.02101,"535,35663-4 ",.01)
 ;;35663-4
 ;;9002226.02101,"535,35663-4 ",.02)
 ;;35663-4
 ;;9002226.02101,"535,5804-0 ",.01)
 ;;5804-0
 ;;9002226.02101,"535,5804-0 ",.02)
 ;;5804-0
 ;
OTHER ; OTHER ROUTINES
 Q