BGP46C ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 26, 2013;
;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
;;BGP CMS SMOKING CESSATION VAPI
;
; This routine loads Taxonomy BGP CMS SMOKING CESSATION VAPI
;
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,"B0390 ")
;;8
;;21,"B0510 ")
;;9
;;21,"N0037 ")
;;1
;;21,"N0140 ")
;;2
;;21,"N0437 ")
;;3
;;21,"N0438 ")
;;4
;;21,"N0501 ")
;;5
;;21,"N0503 ")
;;6
;;21,"N0506 ")
;;7
;;21,"V0159 ")
;;10
;;21,"V0161 ")
;;11
;;21,"V0162 ")
;;12
;;9002226,1844,.01)
;;BGP CMS SMOKING CESSATION VAPI
;;9002226,1844,.02)
;;@
;;9002226,1844,.04)
;;@
;;9002226,1844,.06)
;;@
;;9002226,1844,.08)
;;@
;;9002226,1844,.09)
;;3130926
;;9002226,1844,.11)
;;@
;;9002226,1844,.12)
;;@
;;9002226,1844,.13)
;;1
;;9002226,1844,.14)
;;@
;;9002226,1844,.15)
;;50.68
;;9002226,1844,.16)
;;@
;;9002226,1844,.17)
;;@
;;9002226,1844,3101)
;;@
;;9002226.02101,"1844,B0390 ",.01)
;;B0390
;;9002226.02101,"1844,B0390 ",.02)
;;B0390
;;9002226.02101,"1844,B0510 ",.01)
;;B0510
;;9002226.02101,"1844,B0510 ",.02)
;;B0510
;;9002226.02101,"1844,N0037 ",.01)
;;N0037
;;9002226.02101,"1844,N0037 ",.02)
;;N0037
;;9002226.02101,"1844,N0140 ",.01)
;;N0140
;;9002226.02101,"1844,N0140 ",.02)
;;N0140
;;9002226.02101,"1844,N0437 ",.01)
;;N0437
;;9002226.02101,"1844,N0437 ",.02)
;;N0437
;;9002226.02101,"1844,N0438 ",.01)
;;N0438
;;9002226.02101,"1844,N0438 ",.02)
;;N0438
;;9002226.02101,"1844,N0501 ",.01)
;;N0501
;;9002226.02101,"1844,N0501 ",.02)
;;N0501
;;9002226.02101,"1844,N0503 ",.01)
;;N0503
;;9002226.02101,"1844,N0503 ",.02)
;;N0503
;;9002226.02101,"1844,N0506 ",.01)
;;N0506
;;9002226.02101,"1844,N0506 ",.02)
;;N0506
;;9002226.02101,"1844,V0159 ",.01)
;;V0159
;;9002226.02101,"1844,V0159 ",.02)
;;V0159
;;9002226.02101,"1844,V0161 ",.01)
;;V0161
;;9002226.02101,"1844,V0161 ",.02)
;;V0161
;;9002226.02101,"1844,V0162 ",.01)
;;V0162
;;9002226.02101,"1844,V0162 ",.02)
;;V0162
;
OTHER ; OTHER ROUTINES
Q
BGP46C ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 26, 2013;
+1 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
+2 ;;BGP CMS SMOKING CESSATION VAPI
+3 ;
+4 ; This routine loads Taxonomy BGP CMS SMOKING CESSATION VAPI
+5 ;
START ;
+1 IF '$GET(ATXPGMC)
KILL ^TMP("ATX",$JOB)
+2 SET ATXPGMC=$GET(ATXPGMC)+1
+3 FOR ATXI=1:1
SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)
IF X=""
QUIT
SET X="^TMP(""ATX"",$J,"_X
SET ATXI=ATXI+1
SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)
SET @X=Y
+4 DO OTHER
+5 IF $ORDER(^TMP("ATX",$JOB,3.6,0))
DO BULL^ATXSTX2
+6 IF $ORDER(^TMP("ATX",$JOB,9002226,0))
DO TAX^ATXSTX2
+7 DO KILL^ATXSTX2
+8 QUIT
+9 ;
TMP ;;TAXONOMY (WITH BULLETIN)
+1 ;;21,"B0390 ")
+2 ;;8
+3 ;;21,"B0510 ")
+4 ;;9
+5 ;;21,"N0037 ")
+6 ;;1
+7 ;;21,"N0140 ")
+8 ;;2
+9 ;;21,"N0437 ")
+10 ;;3
+11 ;;21,"N0438 ")
+12 ;;4
+13 ;;21,"N0501 ")
+14 ;;5
+15 ;;21,"N0503 ")
+16 ;;6
+17 ;;21,"N0506 ")
+18 ;;7
+19 ;;21,"V0159 ")
+20 ;;10
+21 ;;21,"V0161 ")
+22 ;;11
+23 ;;21,"V0162 ")
+24 ;;12
+25 ;;9002226,1844,.01)
+26 ;;BGP CMS SMOKING CESSATION VAPI
+27 ;;9002226,1844,.02)
+28 ;;@
+29 ;;9002226,1844,.04)
+30 ;;@
+31 ;;9002226,1844,.06)
+32 ;;@
+33 ;;9002226,1844,.08)
+34 ;;@
+35 ;;9002226,1844,.09)
+36 ;;3130926
+37 ;;9002226,1844,.11)
+38 ;;@
+39 ;;9002226,1844,.12)
+40 ;;@
+41 ;;9002226,1844,.13)
+42 ;;1
+43 ;;9002226,1844,.14)
+44 ;;@
+45 ;;9002226,1844,.15)
+46 ;;50.68
+47 ;;9002226,1844,.16)
+48 ;;@
+49 ;;9002226,1844,.17)
+50 ;;@
+51 ;;9002226,1844,3101)
+52 ;;@
+53 ;;9002226.02101,"1844,B0390 ",.01)
+54 ;;B0390
+55 ;;9002226.02101,"1844,B0390 ",.02)
+56 ;;B0390
+57 ;;9002226.02101,"1844,B0510 ",.01)
+58 ;;B0510
+59 ;;9002226.02101,"1844,B0510 ",.02)
+60 ;;B0510
+61 ;;9002226.02101,"1844,N0037 ",.01)
+62 ;;N0037
+63 ;;9002226.02101,"1844,N0037 ",.02)
+64 ;;N0037
+65 ;;9002226.02101,"1844,N0140 ",.01)
+66 ;;N0140
+67 ;;9002226.02101,"1844,N0140 ",.02)
+68 ;;N0140
+69 ;;9002226.02101,"1844,N0437 ",.01)
+70 ;;N0437
+71 ;;9002226.02101,"1844,N0437 ",.02)
+72 ;;N0437
+73 ;;9002226.02101,"1844,N0438 ",.01)
+74 ;;N0438
+75 ;;9002226.02101,"1844,N0438 ",.02)
+76 ;;N0438
+77 ;;9002226.02101,"1844,N0501 ",.01)
+78 ;;N0501
+79 ;;9002226.02101,"1844,N0501 ",.02)
+80 ;;N0501
+81 ;;9002226.02101,"1844,N0503 ",.01)
+82 ;;N0503
+83 ;;9002226.02101,"1844,N0503 ",.02)
+84 ;;N0503
+85 ;;9002226.02101,"1844,N0506 ",.01)
+86 ;;N0506
+87 ;;9002226.02101,"1844,N0506 ",.02)
+88 ;;N0506
+89 ;;9002226.02101,"1844,V0159 ",.01)
+90 ;;V0159
+91 ;;9002226.02101,"1844,V0159 ",.02)
+92 ;;V0159
+93 ;;9002226.02101,"1844,V0161 ",.01)
+94 ;;V0161
+95 ;;9002226.02101,"1844,V0161 ",.02)
+96 ;;V0161
+97 ;;9002226.02101,"1844,V0162 ",.01)
+98 ;;V0162
+99 ;;9002226.02101,"1844,V0162 ",.02)
+100 ;;V0162
+101 ;
OTHER ; OTHER ROUTINES
+1 QUIT
