ATXTXJ ;IHS/OHPRD/TMJ-CREATED BY ^ATXSTX ON FEB 04, 1997;
;;5.0;TAXONOMY;;FEB 04, 1997
;;ATX INJURY CONTROL
;
; This routine loads Taxonomy ATX INJURY CONTROL
;
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,104,.01)
;;ATX INJURY CONTROL NOTIF.
;;3.6,104,2)
;;COMMUNITY INJURY CONTROL NOTIFICATION
;;3.63,104,1,0)
;;^^22^22^2940609^^^^
;;3.63,104,1,1,0)
;;|NOWRAP|
;;3.63,104,1,2,0)
;;On |3| an injury related purpose of visit was recorded for:
;;3.63,104,1,3,0)
;;
;;3.63,104,1,4,0)
;; PATIENT NAME: |2|
;;3.63,104,1,5,0)
;; CHART NO.: |99|
;;3.63,104,1,6,0)
;; VISIT DATE: |3|
;;3.63,104,1,7,0)
;; LOCATION: |15|
;;3.63,104,1,8,0)
;; ICD9 Code was: |1| ICD Description: |8|
;;3.63,104,1,9,0)
;; Provider Narr: |4|
;;3.63,104,1,10,0)
;;
;;3.63,104,1,11,0)
;;For injuries the following information may have been noted:
;;3.63,104,1,12,0)
;;
;;3.63,104,1,13,0)
;;CAUSE OF INJURY: |9|
;;3.63,104,1,14,0)
;; DESCRIPTION: |9.1|
;;3.63,104,1,15,0)
;; PLACE: |11|
;;3.63,104,1,16,0)
;; ACCIDENT DATE: |13|
;;3.63,104,1,17,0)
;; RELATED TO: |7|
;;3.63,104,1,18,0)
;; FIRST/REVISIT: |14|
;;3.63,104,1,19,0)
;;
;;3.63,104,1,20,0)
;;This visit may require your follow-up. Please review the patient's
;;3.63,104,1,21,0)
;;medical record at your earliest convenience for further information
;;3.63,104,1,22,0)
;;on this visit.
;;3.63,104,3,0)
;;^^2^2^2940609^^^^
;;3.63,104,3,1,0)
;;Whenever a purpose of visit occurs that involves an accident/injury
;;3.63,104,3,2,0)
;;code, a bulletin will be sent to the indicated mail group(s).
;;3.64,"104,1",.01)
;;1
;;3.64,"104,1",1,0)
;;^^1^1^2940419^
;;3.64,"104,1",1,1,0)
;;ICD code for POV (should be injury-related).
;;3.64,"104,10",.01)
;;10
;;3.64,"104,11",.01)
;;11
;;3.64,"104,11",1,0)
;;^^1^1^2940419^
;;3.64,"104,11",1,1,0)
;;Place of injury.
;;3.64,"104,13",.01)
;;13
;;3.64,"104,13",1,0)
;;^^1^1^2940419^
;;3.64,"104,13",1,1,0)
;;Date of accident (may be different than date of visit).
;;3.64,"104,14",.01)
;;14
;;3.64,"104,14",1,0)
;;^^1^1^2940419^
;;3.64,"104,14",1,1,0)
;;First or revisit code (may not be entered at many sites).
;;3.64,"104,15",.01)
;;15
;;3.64,"104,15",1,0)
;;^^1^1^2940510^^^^
;;3.64,"104,15",1,1,0)
;;Location of encounter
;;3.64,"104,2",.01)
;;2
;;3.64,"104,2",1,0)
;;^^1^1^2940518^^
;;3.64,"104,2",1,1,0)
;;Patient name.
;;3.64,"104,3",.01)
;;3
;;3.64,"104,3",1,0)
;;^^1^1^2940419^^^^
;;3.64,"104,3",1,1,0)
;;Date of visit.
;;3.64,"104,4",.01)
;;4
;;3.64,"104,4",1,0)
;;^^1^1^2940419^
;;3.64,"104,4",1,1,0)
;;Provider narrative (should relate to ICD code).
;;3.64,"104,7",.01)
;;7
;;3.64,"104,7",1,0)
;;^^1^1^2940419^
;;3.64,"104,7",1,1,0)
;;Causal factor.
;;3.64,"104,8",.01)
;;8
;;3.64,"104,8",1,0)
;;^^1^1^2940518^^^^
;;3.64,"104,8",1,1,0)
;;ICD narrative corresponding to ICD code.
;;3.64,"104,9",.01)
;;9
;;3.64,"104,9",1,0)
;;^^1^1^2940419^
;;3.64,"104,9",1,1,0)
;;Cause of injury.
;;21,"798.0 ")
;;1
;;9002226,5,.01)
;;ATX INJURY CONTROL
;;9002226,5,.02)
;;COMMUNITY INJURY CONTROL
;;9002226,5,.04)
;;@
;;9002226,5,.06)
;;@
;;9002226,5,.08)
;;1
;;9002226,5,.09)
;;2910319.114953
;;9002226,5,.11)
;;B
;;9002226,5,.12)
;;31
;;9002226,5,.13)
;;1
;;9002226,5,.14)
;;BA
;;9002226,5,.15)
;;80
;;9002226,5,.16)
;;1
;;9002226,5,.17)
;;@
;;9002226,5,3101)
;;@
;;9002226.02101,"5,798.0 ",.01)
;;798.0
;;9002226.02101,"5,798.0 ",.02)
;;999.9
;
OTHER ; OTHER ROUTINES
Q
ATXTXJ ;IHS/OHPRD/TMJ-CREATED BY ^ATXSTX ON FEB 04, 1997;
+1 ;;5.0;TAXONOMY;;FEB 04, 1997
+2 ;;ATX INJURY CONTROL
+3 ;
+4 ; This routine loads Taxonomy ATX INJURY CONTROL
+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,104,.01)
+2 ;;ATX INJURY CONTROL NOTIF.
+3 ;;3.6,104,2)
+4 ;;COMMUNITY INJURY CONTROL NOTIFICATION
+5 ;;3.63,104,1,0)
+6 ;;^^22^22^2940609^^^^
+7 ;;3.63,104,1,1,0)
+8 ;;|NOWRAP|
+9 ;;3.63,104,1,2,0)
+10 ;;On |3| an injury related purpose of visit was recorded for:
+11 ;;3.63,104,1,3,0)
+12 ;;
+13 ;;3.63,104,1,4,0)
+14 ;; PATIENT NAME: |2|
+15 ;;3.63,104,1,5,0)
+16 ;; CHART NO.: |99|
+17 ;;3.63,104,1,6,0)
+18 ;; VISIT DATE: |3|
+19 ;;3.63,104,1,7,0)
+20 ;; LOCATION: |15|
+21 ;;3.63,104,1,8,0)
+22 ;; ICD9 Code was: |1| ICD Description: |8|
+23 ;;3.63,104,1,9,0)
+24 ;; Provider Narr: |4|
+25 ;;3.63,104,1,10,0)
+26 ;;
+27 ;;3.63,104,1,11,0)
+28 ;;For injuries the following information may have been noted:
+29 ;;3.63,104,1,12,0)
+30 ;;
+31 ;;3.63,104,1,13,0)
+32 ;;CAUSE OF INJURY: |9|
+33 ;;3.63,104,1,14,0)
+34 ;; DESCRIPTION: |9.1|
+35 ;;3.63,104,1,15,0)
+36 ;; PLACE: |11|
+37 ;;3.63,104,1,16,0)
+38 ;; ACCIDENT DATE: |13|
+39 ;;3.63,104,1,17,0)
+40 ;; RELATED TO: |7|
+41 ;;3.63,104,1,18,0)
+42 ;; FIRST/REVISIT: |14|
+43 ;;3.63,104,1,19,0)
+44 ;;
+45 ;;3.63,104,1,20,0)
+46 ;;This visit may require your follow-up. Please review the patient's
+47 ;;3.63,104,1,21,0)
+48 ;;medical record at your earliest convenience for further information
+49 ;;3.63,104,1,22,0)
+50 ;;on this visit.
+51 ;;3.63,104,3,0)
+52 ;;^^2^2^2940609^^^^
+53 ;;3.63,104,3,1,0)
+54 ;;Whenever a purpose of visit occurs that involves an accident/injury
+55 ;;3.63,104,3,2,0)
+56 ;;code, a bulletin will be sent to the indicated mail group(s).
+57 ;;3.64,"104,1",.01)
+58 ;;1
+59 ;;3.64,"104,1",1,0)
+60 ;;^^1^1^2940419^
+61 ;;3.64,"104,1",1,1,0)
+62 ;;ICD code for POV (should be injury-related).
+63 ;;3.64,"104,10",.01)
+64 ;;10
+65 ;;3.64,"104,11",.01)
+66 ;;11
+67 ;;3.64,"104,11",1,0)
+68 ;;^^1^1^2940419^
+69 ;;3.64,"104,11",1,1,0)
+70 ;;Place of injury.
+71 ;;3.64,"104,13",.01)
+72 ;;13
+73 ;;3.64,"104,13",1,0)
+74 ;;^^1^1^2940419^
+75 ;;3.64,"104,13",1,1,0)
+76 ;;Date of accident (may be different than date of visit).
+77 ;;3.64,"104,14",.01)
+78 ;;14
+79 ;;3.64,"104,14",1,0)
+80 ;;^^1^1^2940419^
+81 ;;3.64,"104,14",1,1,0)
+82 ;;First or revisit code (may not be entered at many sites).
+83 ;;3.64,"104,15",.01)
+84 ;;15
+85 ;;3.64,"104,15",1,0)
+86 ;;^^1^1^2940510^^^^
+87 ;;3.64,"104,15",1,1,0)
+88 ;;Location of encounter
+89 ;;3.64,"104,2",.01)
+90 ;;2
+91 ;;3.64,"104,2",1,0)
+92 ;;^^1^1^2940518^^
+93 ;;3.64,"104,2",1,1,0)
+94 ;;Patient name.
+95 ;;3.64,"104,3",.01)
+96 ;;3
+97 ;;3.64,"104,3",1,0)
+98 ;;^^1^1^2940419^^^^
+99 ;;3.64,"104,3",1,1,0)
+100 ;;Date of visit.
+101 ;;3.64,"104,4",.01)
+102 ;;4
+103 ;;3.64,"104,4",1,0)
+104 ;;^^1^1^2940419^
+105 ;;3.64,"104,4",1,1,0)
+106 ;;Provider narrative (should relate to ICD code).
+107 ;;3.64,"104,7",.01)
+108 ;;7
+109 ;;3.64,"104,7",1,0)
+110 ;;^^1^1^2940419^
+111 ;;3.64,"104,7",1,1,0)
+112 ;;Causal factor.
+113 ;;3.64,"104,8",.01)
+114 ;;8
+115 ;;3.64,"104,8",1,0)
+116 ;;^^1^1^2940518^^^^
+117 ;;3.64,"104,8",1,1,0)
+118 ;;ICD narrative corresponding to ICD code.
+119 ;;3.64,"104,9",.01)
+120 ;;9
+121 ;;3.64,"104,9",1,0)
+122 ;;^^1^1^2940419^
+123 ;;3.64,"104,9",1,1,0)
+124 ;;Cause of injury.
+125 ;;21,"798.0 ")
+126 ;;1
+127 ;;9002226,5,.01)
+128 ;;ATX INJURY CONTROL
+129 ;;9002226,5,.02)
+130 ;;COMMUNITY INJURY CONTROL
+131 ;;9002226,5,.04)
+132 ;;@
+133 ;;9002226,5,.06)
+134 ;;@
+135 ;;9002226,5,.08)
+136 ;;1
+137 ;;9002226,5,.09)
+138 ;;2910319.114953
+139 ;;9002226,5,.11)
+140 ;;B
+141 ;;9002226,5,.12)
+142 ;;31
+143 ;;9002226,5,.13)
+144 ;;1
+145 ;;9002226,5,.14)
+146 ;;BA
+147 ;;9002226,5,.15)
+148 ;;80
+149 ;;9002226,5,.16)
+150 ;;1
+151 ;;9002226,5,.17)
+152 ;;@
+153 ;;9002226,5,3101)
+154 ;;@
+155 ;;9002226.02101,"5,798.0 ",.01)
+156 ;;798.0
+157 ;;9002226.02101,"5,798.0 ",.02)
+158 ;;999.9
+159 ;
OTHER ; OTHER ROUTINES
+1 QUIT
