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

BGPM5AIF.m

Go to the documentation of this file.
BGPM5AIF ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;;BGPMU ASTHMA DX ICD
 ;
 ; This routine loads Taxonomy BGPMU ASTHMA DX ICD
 ;
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,"493.00 ")
 ;;1
 ;;21,"493.01 ")
 ;;2
 ;;21,"493.02 ")
 ;;3
 ;;21,"493.10 ")
 ;;4
 ;;21,"493.11 ")
 ;;5
 ;;21,"493.12 ")
 ;;6
 ;;21,"493.20 ")
 ;;7
 ;;21,"493.21 ")
 ;;8
 ;;21,"493.22 ")
 ;;9
 ;;21,"493.81 ")
 ;;10
 ;;21,"493.82 ")
 ;;11
 ;;21,"493.90 ")
 ;;12
 ;;21,"493.91 ")
 ;;13
 ;;21,"493.92 ")
 ;;14
 ;;9002226,887,.01)
 ;;BGPMU ASTHMA DX ICD
 ;;9002226,887,.02)
 ;;Asthma diagnosis codes
 ;;9002226,887,.04)
 ;;n
 ;;9002226,887,.06)
 ;;@
 ;;9002226,887,.08)
 ;;@
 ;;9002226,887,.09)
 ;;3110714
 ;;9002226,887,.11)
 ;;@
 ;;9002226,887,.12)
 ;;@
 ;;9002226,887,.13)
 ;;@
 ;;9002226,887,.14)
 ;;@
 ;;9002226,887,.15)
 ;;80
 ;;9002226,887,.16)
 ;;1
 ;;9002226,887,.17)
 ;;@
 ;;9002226,887,3101)
 ;;@
 ;;9002226.02101,"887,493.00 ",.01)
 ;;493.00
 ;;9002226.02101,"887,493.00 ",.02)
 ;;493.00
 ;;9002226.02101,"887,493.01 ",.01)
 ;;493.01
 ;;9002226.02101,"887,493.01 ",.02)
 ;;493.01
 ;;9002226.02101,"887,493.02 ",.01)
 ;;493.02
 ;;9002226.02101,"887,493.02 ",.02)
 ;;493.02
 ;;9002226.02101,"887,493.10 ",.01)
 ;;493.10
 ;;9002226.02101,"887,493.10 ",.02)
 ;;493.10
 ;;9002226.02101,"887,493.11 ",.01)
 ;;493.11
 ;;9002226.02101,"887,493.11 ",.02)
 ;;493.11
 ;;9002226.02101,"887,493.12 ",.01)
 ;;493.12
 ;;9002226.02101,"887,493.12 ",.02)
 ;;493.12
 ;;9002226.02101,"887,493.20 ",.01)
 ;;493.20
 ;;9002226.02101,"887,493.20 ",.02)
 ;;493.20
 ;;9002226.02101,"887,493.21 ",.01)
 ;;493.21
 ;;9002226.02101,"887,493.21 ",.02)
 ;;493.21
 ;;9002226.02101,"887,493.22 ",.01)
 ;;493.22
 ;;9002226.02101,"887,493.22 ",.02)
 ;;493.22
 ;;9002226.02101,"887,493.81 ",.01)
 ;;493.81
 ;;9002226.02101,"887,493.81 ",.02)
 ;;493.81
 ;;9002226.02101,"887,493.82 ",.01)
 ;;493.82
 ;;9002226.02101,"887,493.82 ",.02)
 ;;493.82
 ;;9002226.02101,"887,493.90 ",.01)
 ;;493.90
 ;;9002226.02101,"887,493.90 ",.02)
 ;;493.90
 ;;9002226.02101,"887,493.91 ",.01)
 ;;493.91
 ;;9002226.02101,"887,493.91 ",.02)
 ;;493.91
 ;;9002226.02101,"887,493.92 ",.01)
 ;;493.92
 ;;9002226.02101,"887,493.92 ",.02)
 ;;493.92
 ;
OTHER ; OTHER ROUTINES
 Q