BJPC2XI ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON JUN 23, 2008 ;
;;2.0;IHS PCC SUITE;;MAY 14, 2009
;;APCL DIABETES REG NEW CASE
;
; This routine loads Taxonomy APCL DIABETES REG NEW CASE
;
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)
;;3.6,92,.01)
;;APCL DIABETES REG NEW CASE
;;3.6,92,2)
;;DM NEW CASE
;;3.63,92,1,0)
;;^3.61A^20^20^3051220^^^^
;;3.63,92,1,1,0)
;; Patient Name: |2| SSN: |23|
;;3.63,92,1,2,0)
;; Chart No.: |99| DOB: |18|
;;3.63,92,1,3,0)
;;
;;3.63,92,1,4,0)
;; This patient was seen on |3| at |15|
;;3.63,92,1,5,0)
;; with the following diagnosis:
;;3.63,92,1,6,0)
;;
;;3.63,92,1,7,0)
;; ICD9 Code: |1| ICD Description: |8|
;;3.63,92,1,8,0)
;; Provider Stated: |4|
;;3.63,92,1,9,0)
;; Patient's Community: |16|
;;3.63,92,1,10,0)
;; Patient's Service Unit: |17|
;;3.63,92,1,11,0)
;; Patient's Tribe: |19|
;;3.63,92,1,12,0)
;; Tribal Blood Quantum: |21|
;;3.63,92,1,13,0)
;; |22|
;;3.63,92,1,14,0)
;;
;;3.63,92,1,15,0)
;; Patient's Health Records: |30| |31| |32| |33| |34| |35|
;;3.63,92,1,16,0)
;;|36| |37| |38| |39|
;;3.63,92,1,17,0)
;;
;;3.63,92,1,18,0)
;;
;;3.63,92,1,19,0)
;;This is the first time that this patient has been seen for the diabetes
;;3.63,92,1,20,0)
;;diagnosis listed above. Please take appropriate follow up action.
;;3.63,92,3,0)
;;2^3.63^2^2^3051220^^^^
;;3.63,92,3,1,0)
;;This bulletin will be sent to diabetes control officer when a patient
;;3.63,92,3,2,0)
;;is seen for the first time for a dm diagnosis
;;21,"250.00 ")
;;1
;;21,"648.81 ")
;;2
;;9002226,8,.01)
;;APCL DIABETES REG NEW CASE
;;9002226,8,.02)
;;APCL - FOR NEW DM CASES
;;9002226,8,.04)
;;n
;;9002226,8,.06)
;;@
;;9002226,8,.08)
;;1
;;9002226,8,.09)
;;2940609
;;9002226,8,.11)
;;B
;;9002226,8,.12)
;;31
;;9002226,8,.13)
;;1
;;9002226,8,.14)
;;BA
;;9002226,8,.15)
;;80
;;9002226,8,.16)
;;1
;;9002226,8,.17)
;;@
;;9002226,8,3101)
;;D ^APCLDMNC
;;9002226.02101,"8,250.00 ",.01)
;;250.00
;;9002226.02101,"8,250.00 ",.02)
;;250.93
;;9002226.02101,"8,648.81 ",.01)
;;648.81
;;9002226.02101,"8,648.81 ",.02)
;;648.84
;
OTHER ; OTHER ROUTINES
Q
BJPC2XI ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON JUN 23, 2008 ;
+1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
+2 ;;APCL DIABETES REG NEW CASE
+3 ;
+4 ; This routine loads Taxonomy APCL DIABETES REG NEW CASE
+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 ;;3.6,92,.01)
+2 ;;APCL DIABETES REG NEW CASE
+3 ;;3.6,92,2)
+4 ;;DM NEW CASE
+5 ;;3.63,92,1,0)
+6 ;;^3.61A^20^20^3051220^^^^
+7 ;;3.63,92,1,1,0)
+8 ;; Patient Name: |2| SSN: |23|
+9 ;;3.63,92,1,2,0)
+10 ;; Chart No.: |99| DOB: |18|
+11 ;;3.63,92,1,3,0)
+12 ;;
+13 ;;3.63,92,1,4,0)
+14 ;; This patient was seen on |3| at |15|
+15 ;;3.63,92,1,5,0)
+16 ;; with the following diagnosis:
+17 ;;3.63,92,1,6,0)
+18 ;;
+19 ;;3.63,92,1,7,0)
+20 ;; ICD9 Code: |1| ICD Description: |8|
+21 ;;3.63,92,1,8,0)
+22 ;; Provider Stated: |4|
+23 ;;3.63,92,1,9,0)
+24 ;; Patient's Community: |16|
+25 ;;3.63,92,1,10,0)
+26 ;; Patient's Service Unit: |17|
+27 ;;3.63,92,1,11,0)
+28 ;; Patient's Tribe: |19|
+29 ;;3.63,92,1,12,0)
+30 ;; Tribal Blood Quantum: |21|
+31 ;;3.63,92,1,13,0)
+32 ;; |22|
+33 ;;3.63,92,1,14,0)
+34 ;;
+35 ;;3.63,92,1,15,0)
+36 ;; Patient's Health Records: |30| |31| |32| |33| |34| |35|
+37 ;;3.63,92,1,16,0)
+38 ;;|36| |37| |38| |39|
+39 ;;3.63,92,1,17,0)
+40 ;;
+41 ;;3.63,92,1,18,0)
+42 ;;
+43 ;;3.63,92,1,19,0)
+44 ;;This is the first time that this patient has been seen for the diabetes
+45 ;;3.63,92,1,20,0)
+46 ;;diagnosis listed above. Please take appropriate follow up action.
+47 ;;3.63,92,3,0)
+48 ;;2^3.63^2^2^3051220^^^^
+49 ;;3.63,92,3,1,0)
+50 ;;This bulletin will be sent to diabetes control officer when a patient
+51 ;;3.63,92,3,2,0)
+52 ;;is seen for the first time for a dm diagnosis
+53 ;;21,"250.00 ")
+54 ;;1
+55 ;;21,"648.81 ")
+56 ;;2
+57 ;;9002226,8,.01)
+58 ;;APCL DIABETES REG NEW CASE
+59 ;;9002226,8,.02)
+60 ;;APCL - FOR NEW DM CASES
+61 ;;9002226,8,.04)
+62 ;;n
+63 ;;9002226,8,.06)
+64 ;;@
+65 ;;9002226,8,.08)
+66 ;;1
+67 ;;9002226,8,.09)
+68 ;;2940609
+69 ;;9002226,8,.11)
+70 ;;B
+71 ;;9002226,8,.12)
+72 ;;31
+73 ;;9002226,8,.13)
+74 ;;1
+75 ;;9002226,8,.14)
+76 ;;BA
+77 ;;9002226,8,.15)
+78 ;;80
+79 ;;9002226,8,.16)
+80 ;;1
+81 ;;9002226,8,.17)
+82 ;;@
+83 ;;9002226,8,3101)
+84 ;;D ^APCLDMNC
+85 ;;9002226.02101,"8,250.00 ",.01)
+86 ;;250.00
+87 ;;9002226.02101,"8,250.00 ",.02)
+88 ;;250.93
+89 ;;9002226.02101,"8,648.81 ",.01)
+90 ;;648.81
+91 ;;9002226.02101,"8,648.81 ",.02)
+92 ;;648.84
+93 ;
OTHER ; OTHER ROUTINES
+1 QUIT
