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

BJPC2XI.m

Go to the documentation of this file.
  1. BJPC2XI ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON JUN 23, 2008 ;
  1. ;;2.0;IHS PCC SUITE;;MAY 14, 2009
  1. ;;APCL DIABETES REG NEW CASE
  1. ;
  1. ; This routine loads Taxonomy APCL DIABETES REG NEW CASE
  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,92,.01)
  1. ;;APCL DIABETES REG NEW CASE
  1. ;;3.6,92,2)
  1. ;;DM NEW CASE
  1. ;;3.63,92,1,0)
  1. ;;^3.61A^20^20^3051220^^^^
  1. ;;3.63,92,1,1,0)
  1. ;; Patient Name: |2| SSN: |23|
  1. ;;3.63,92,1,2,0)
  1. ;; Chart No.: |99| DOB: |18|
  1. ;;3.63,92,1,3,0)
  1. ;;
  1. ;;3.63,92,1,4,0)
  1. ;; This patient was seen on |3| at |15|
  1. ;;3.63,92,1,5,0)
  1. ;; with the following diagnosis:
  1. ;;3.63,92,1,6,0)
  1. ;;
  1. ;;3.63,92,1,7,0)
  1. ;; ICD9 Code: |1| ICD Description: |8|
  1. ;;3.63,92,1,8,0)
  1. ;; Provider Stated: |4|
  1. ;;3.63,92,1,9,0)
  1. ;; Patient's Community: |16|
  1. ;;3.63,92,1,10,0)
  1. ;; Patient's Service Unit: |17|
  1. ;;3.63,92,1,11,0)
  1. ;; Patient's Tribe: |19|
  1. ;;3.63,92,1,12,0)
  1. ;; Tribal Blood Quantum: |21|
  1. ;;3.63,92,1,13,0)
  1. ;; |22|
  1. ;;3.63,92,1,14,0)
  1. ;;
  1. ;;3.63,92,1,15,0)
  1. ;; Patient's Health Records: |30| |31| |32| |33| |34| |35|
  1. ;;3.63,92,1,16,0)
  1. ;;|36| |37| |38| |39|
  1. ;;3.63,92,1,17,0)
  1. ;;
  1. ;;3.63,92,1,18,0)
  1. ;;
  1. ;;3.63,92,1,19,0)
  1. ;;This is the first time that this patient has been seen for the diabetes
  1. ;;3.63,92,1,20,0)
  1. ;;diagnosis listed above. Please take appropriate follow up action.
  1. ;;3.63,92,3,0)
  1. ;;2^3.63^2^2^3051220^^^^
  1. ;;3.63,92,3,1,0)
  1. ;;This bulletin will be sent to diabetes control officer when a patient
  1. ;;3.63,92,3,2,0)
  1. ;;is seen for the first time for a dm diagnosis
  1. ;;21,"250.00 ")
  1. ;;1
  1. ;;21,"648.81 ")
  1. ;;2
  1. ;;9002226,8,.01)
  1. ;;APCL DIABETES REG NEW CASE
  1. ;;9002226,8,.02)
  1. ;;APCL - FOR NEW DM CASES
  1. ;;9002226,8,.04)
  1. ;;n
  1. ;;9002226,8,.06)
  1. ;;@
  1. ;;9002226,8,.08)
  1. ;;1
  1. ;;9002226,8,.09)
  1. ;;2940609
  1. ;;9002226,8,.11)
  1. ;;B
  1. ;;9002226,8,.12)
  1. ;;31
  1. ;;9002226,8,.13)
  1. ;;1
  1. ;;9002226,8,.14)
  1. ;;BA
  1. ;;9002226,8,.15)
  1. ;;80
  1. ;;9002226,8,.16)
  1. ;;1
  1. ;;9002226,8,.17)
  1. ;;@
  1. ;;9002226,8,3101)
  1. ;;D ^APCLDMNC
  1. ;;9002226.02101,"8,250.00 ",.01)
  1. ;;250.00
  1. ;;9002226.02101,"8,250.00 ",.02)
  1. ;;250.93
  1. ;;9002226.02101,"8,648.81 ",.01)
  1. ;;648.81
  1. ;;9002226.02101,"8,648.81 ",.02)
  1. ;;648.84
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. Q