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

ATXTXJ.m

Go to the documentation of this file. 
  1. ATXTXJ ;IHS/OHPRD/TMJ-CREATED BY ^ATXSTX ON FEB 04, 1997;
  1.  ;;5.0;TAXONOMY;;FEB 04, 1997
  1.  ;;ATX INJURY CONTROL
  1.  ;
  1.  ; This routine loads Taxonomy ATX INJURY CONTROL
  1.  ;
  1. START ;
  1.  K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1.  S ATXPGMC=$G(ATXPGMC)+1
  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
  1.  D OTHER
  1.  I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2
  1.  I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2
  1.  D KILL^ATXSTX2
  1.  Q
  1.  ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1.  ;;3.6,104,.01)
  1.  ;;ATX INJURY CONTROL NOTIF.
  1.  ;;3.6,104,2)
  1.  ;;COMMUNITY INJURY CONTROL NOTIFICATION
  1.  ;;3.63,104,1,0)
  1.  ;;^^22^22^2940609^^^^
  1.  ;;3.63,104,1,1,0)
  1.  ;;|NOWRAP|
  1.  ;;3.63,104,1,2,0)
  1.  ;;On |3| an injury related purpose of visit was recorded for:
  1.  ;;3.63,104,1,3,0)
  1.  ;; 
  1.  ;;3.63,104,1,4,0)
  1.  ;;  PATIENT NAME:  |2|
  1.  ;;3.63,104,1,5,0)
  1.  ;;     CHART NO.:  |99|
  1.  ;;3.63,104,1,6,0)
  1.  ;;    VISIT DATE:  |3|
  1.  ;;3.63,104,1,7,0)
  1.  ;;      LOCATION:  |15|
  1.  ;;3.63,104,1,8,0)
  1.  ;; ICD9 Code was:  |1|   ICD Description:  |8|
  1.  ;;3.63,104,1,9,0)
  1.  ;; Provider Narr:  |4|
  1.  ;;3.63,104,1,10,0)
  1.  ;; 
  1.  ;;3.63,104,1,11,0)
  1.  ;;For injuries the following information may have been noted:
  1.  ;;3.63,104,1,12,0)
  1.  ;; 
  1.  ;;3.63,104,1,13,0)
  1.  ;;CAUSE OF INJURY:  |9|
  1.  ;;3.63,104,1,14,0)
  1.  ;;    DESCRIPTION:  |9.1|
  1.  ;;3.63,104,1,15,0)
  1.  ;;          PLACE:  |11|
  1.  ;;3.63,104,1,16,0)
  1.  ;;  ACCIDENT DATE:  |13|
  1.  ;;3.63,104,1,17,0)
  1.  ;;     RELATED TO:  |7|
  1.  ;;3.63,104,1,18,0)
  1.  ;;  FIRST/REVISIT:  |14|
  1.  ;;3.63,104,1,19,0)
  1.  ;; 
  1.  ;;3.63,104,1,20,0)
  1.  ;;This visit may require your follow-up.  Please review the patient's
  1.  ;;3.63,104,1,21,0)
  1.  ;;medical record at your earliest convenience for further information
  1.  ;;3.63,104,1,22,0)
  1.  ;;on this visit.
  1.  ;;3.63,104,3,0)
  1.  ;;^^2^2^2940609^^^^
  1.  ;;3.63,104,3,1,0)
  1.  ;;Whenever a purpose of visit occurs that involves an accident/injury
  1.  ;;3.63,104,3,2,0)
  1.  ;;code, a bulletin will be sent to the indicated mail group(s).
  1.  ;;3.64,"104,1",.01)
  1.  ;;1
  1.  ;;3.64,"104,1",1,0)
  1.  ;;^^1^1^2940419^
  1.  ;;3.64,"104,1",1,1,0)
  1.  ;;ICD code for POV (should be injury-related).
  1.  ;;3.64,"104,10",.01)
  1.  ;;10
  1.  ;;3.64,"104,11",.01)
  1.  ;;11
  1.  ;;3.64,"104,11",1,0)
  1.  ;;^^1^1^2940419^
  1.  ;;3.64,"104,11",1,1,0)
  1.  ;;Place of injury.
  1.  ;;3.64,"104,13",.01)
  1.  ;;13
  1.  ;;3.64,"104,13",1,0)
  1.  ;;^^1^1^2940419^
  1.  ;;3.64,"104,13",1,1,0)
  1.  ;;Date of accident (may be different than date of visit).
  1.  ;;3.64,"104,14",.01)
  1.  ;;14
  1.  ;;3.64,"104,14",1,0)
  1.  ;;^^1^1^2940419^
  1.  ;;3.64,"104,14",1,1,0)
  1.  ;;First or revisit code (may not be entered at many sites).
  1.  ;;3.64,"104,15",.01)
  1.  ;;15
  1.  ;;3.64,"104,15",1,0)
  1.  ;;^^1^1^2940510^^^^
  1.  ;;3.64,"104,15",1,1,0)
  1.  ;;Location of encounter
  1.  ;;3.64,"104,2",.01)
  1.  ;;2
  1.  ;;3.64,"104,2",1,0)
  1.  ;;^^1^1^2940518^^
  1.  ;;3.64,"104,2",1,1,0)
  1.  ;;Patient name.
  1.  ;;3.64,"104,3",.01)
  1.  ;;3
  1.  ;;3.64,"104,3",1,0)
  1.  ;;^^1^1^2940419^^^^
  1.  ;;3.64,"104,3",1,1,0)
  1.  ;;Date of visit.
  1.  ;;3.64,"104,4",.01)
  1.  ;;4
  1.  ;;3.64,"104,4",1,0)
  1.  ;;^^1^1^2940419^
  1.  ;;3.64,"104,4",1,1,0)
  1.  ;;Provider narrative (should relate to ICD code).
  1.  ;;3.64,"104,7",.01)
  1.  ;;7
  1.  ;;3.64,"104,7",1,0)
  1.  ;;^^1^1^2940419^
  1.  ;;3.64,"104,7",1,1,0)
  1.  ;;Causal factor.
  1.  ;;3.64,"104,8",.01)
  1.  ;;8
  1.  ;;3.64,"104,8",1,0)
  1.  ;;^^1^1^2940518^^^^
  1.  ;;3.64,"104,8",1,1,0)
  1.  ;;ICD narrative corresponding to ICD code.
  1.  ;;3.64,"104,9",.01)
  1.  ;;9
  1.  ;;3.64,"104,9",1,0)
  1.  ;;^^1^1^2940419^
  1.  ;;3.64,"104,9",1,1,0)
  1.  ;;Cause of injury.
  1.  ;;21,"798.0 ")
  1.  ;;1
  1.  ;;9002226,5,.01)
  1.  ;;ATX INJURY CONTROL
  1.  ;;9002226,5,.02)
  1.  ;;COMMUNITY INJURY CONTROL
  1.  ;;9002226,5,.04)
  1.  ;;@
  1.  ;;9002226,5,.06)
  1.  ;;@
  1.  ;;9002226,5,.08)
  1.  ;;1
  1.  ;;9002226,5,.09)
  1.  ;;2910319.114953
  1.  ;;9002226,5,.11)
  1.  ;;B
  1.  ;;9002226,5,.12)
  1.  ;;31
  1.  ;;9002226,5,.13)
  1.  ;;1
  1.  ;;9002226,5,.14)
  1.  ;;BA
  1.  ;;9002226,5,.15)
  1.  ;;80
  1.  ;;9002226,5,.16)
  1.  ;;1
  1.  ;;9002226,5,.17)
  1.  ;;@
  1.  ;;9002226,5,3101)
  1.  ;;@
  1.  ;;9002226.02101,"5,798.0 ",.01)
  1.  ;;798.0
  1.  ;;9002226.02101,"5,798.0 ",.02)
  1.  ;;999.9
  1.  ;
  1. OTHER ; OTHER ROUTINES
  1.  Q