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

APCLTAX4.m

Go to the documentation of this file. 
  1. APCLTAX4 ; IHS/CMI/LAB - TAXONOMY SYSTEM CON'T ;
  1.  ;;2.0;IHS PCC SUITE;;MAY 14, 2009
  1.  ;;
  1. LABLINIT ;EP;TO SET UP LAB LIST ARRAY
  1.  D TAXINIT^APCLTAX0
  1.  Q
  1. Z(X) ;SET TMP NODE
  1.  S VALMCNT=$G(VALMCNT)+1
  1.  S ^TMP("APCLVR",$J,VALMCNT,0)=X
  1.  Q
  1. TAXTEXT ;EP;TO LIST CURRENT TAXONOMIES
  1. DX ;EP;DIAGNOSIS
  1.  ;;SURVEILLANCE DIABETES
  1.  ;;SURVEILLANCE HYPERTENSION
  1.  ;;SURVEILLANCE TUBERCULOSIS
  1.  ;;PROBLEM SMOKING DXS
  1.  ;;SMOKING RELATED DXS
  1.  ;;PROBLEM HTN DIAGNOSES
  1.  ;;PROBLEM DIABETES DX
  1.  ;;TYPE II DXS
  1.  ;;TYPE I DXS
  1.  ;;
  1. HF ;;EP;HEALTH FACTORS
  1.  ;;TOBACCO HLTH FACTORS
  1.  ;;CESSATION HLTH FACTOR
  1.  ;;TB HEALTH FACTORS
  1.  ;;
  1. ET ;;EP;PATIENT ED TOPIC
  1.  ;;DIET EDUC TOPICS
  1.  ;;EXERCISE EDUC TOPICS
  1.  ;;OTHER EDUC TOPICS
  1.  ;;SMOKING CESS EDUC
  1.  ;;
  1. RX ;;EP;RX
  1.  ;;ACE INHIBITORS
  1.  ;;ACARBOSE DRUGS
  1.  ;;ASPIRIN DRUGS
  1.  ;;ANTI-PLATELET DRUGS
  1.  ;;INSULIN DRUGS
  1.  ;;METFORMIN DRUGS
  1.  ;;SULFONYLUREA DRUGS
  1.  ;;SELF MONITOR DRUGS
  1.  ;;GLITAZONE DRUGS
  1.  ;;LIPID LOWERING DRUGS
  1.  ;;STATIN DRUGS
  1.  ;;
  1. PV ;;EP;PROVIDER
  1.  ;;SDM PROVIDERS
  1.  ;;
  1. ADA ;;EP;;ADA
  1.  ;;APCH DM ADA EXAMS
  1.  ;;
  1. LAB ;EP;TO LIST DMS LAB TAXONOMIES
  1.  ;;ALT TAX
  1.  ;;AST TAX
  1.  ;;CHOLESTEROL TAX
  1.  ;;CREATININE TAX
  1.  ;;GLUCOSE TESTS TAX
  1.  ;;HGB A1C TAX
  1.  ;;LDL CHOLESTEROL TAX
  1.  ;;HDL TAX
  1.  ;;MICROALBUMINURIA TAX
  1.  ;;TRIGLYCERIDE TAX
  1.  ;;URINALYSIS TAX
  1.  ;;URINE PROTEIN TAX
  1.  ;;
  1.  Q
  1. PROCESS ;EP;TO PROCESS AND DISPLAY DIFFERENT GROUPS OF DMS TAXONOMIES
  1.  K APCLTAX
  1.  N X,Y,Z
  1.  S X=APCLANAM
  1.  S EP=$S(X["DIAG":"DX",X="RX":"RX",X["ED TOP":"ET",X["FACTOR":"HF",X["PROVIDER":"PV",X["ADA":"ADA",1:"LAB")
  1.  S X=""
  1.  F J=1:1 S X=$T(@EP+J) Q:$P(X,";;",2)=""  D
  1.  .S Y=$P(X,";;",2)
  1.  .I Y'["SURV",$E(Y,1,4)'="APCH" S Y="DM AUDIT "_Y
  1.  .Q:Y=""
  1.  .I EP'="LAB" S Z=$O(^ATXAX("B",Y,0))
  1.  .E  S Z=$O(^ATXLAB("B",Y,0))
  1.  .Q:'Z
  1.  .S APCLTAX(Y)=Z
  1.  Q
  1. LABINIT ;EP;INITIALIZE ARRAY FOR TAXONOMY DISPLAY
  1.  K ^TMP("APCLVR",$J),APCLJ
  1.  S VALMCNT=0
  1.  Q:'$G(APCLTDA)
  1.  S X="     "_$P(^ATXLAB(APCLTDA,0),U)
  1.  D Z(X)
  1.  S X="     No. Lab                             Site/Specimen"
  1.  D Z(X)
  1.  S X="     --- ------------------------------  --------------"
  1.  D Z(X)
  1.  N A,B,X,Y,Z
  1.  S Z=3
  1.  S (APCLX,B)=0
  1.  F  S APCLX=$O(^ATXLAB(APCLTDA,21,APCLX)) Q:'APCLX  D:$D(^ATXLAB(APCLTDA,21,APCLX,0))
  1.  .S Y=$P(^ATXLAB(APCLTDA,21,APCLX,0),U)
  1.  .Q:'Y
  1.  .S Y=$P($G(^LAB(60,Y,0)),U)
  1.  .S B=B+1
  1.  .S A="    "_B
  1.  .S:$L(A)=5 A=" "_A
  1.  .S A=A_"   "
  1.  .S A=A_Y
  1.  .S A=A_$E("                               ",1,32-$L(Y))
  1.  .D Z(A)
  1.  .S APCLJ(APCLTDA,B)=APCLX
  1.  .S (J,APCLY)=0
  1.  .F  S APCLY=$O(^ATXLAB(APCLTDA,21,APCLX,11,APCLY)) Q:'APCLY  D:$D(^ATXLAB(APCLTDA,21,APCLX,11,APCLY,0))
  1.  ..S A=$P(^ATXLAB(APCLTDA,21,APCLX,11,APCLY,0),U)
  1.  ..Q:'A
  1.  ..S J=J+1
  1.  ..S A=$P($G(^LAB(61,A,0)),U)
  1.  ..I J=1 D
  1.  ...S ^TMP("APCLVR",$J,VALMCNT,0)=^TMP("APCLVR",$J,VALMCNT,0)_A
  1.  ..I J>1 D
  1.  ...S X="                                         "_A
  1.  ...D Z(X)
  1.  I '$D(^TMP("APCLVR",$J)) D
  1.  .S ^TMP("APCLVR",$J,1,0)="NO TAXONOMIES ON FILE FOR "_$G(APCLX)
  1.  .S Z=1
  1.  S APCLJ=B
  1.  S VALMCNT=Z
  1.  Q