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

APCLP6TS.m

Go to the documentation of this file. 
  1. APCLP6TS ; IHS/CMI/LAB - DISPLAY IND LISTS ;
  1.  ;;2.0;IHS PCC SUITE;;MAY 14, 2009
  1.  ;; ;
  1. EP ;EP - CALLED FROM OPTION
  1.  D EN
  1.  Q
  1. EOJ ;EP
  1.  D EN^XBVK("APCL")
  1.  Q
  1.  ;; ;
  1. EN ;EP -- main entry point for 
  1.  D EN^VALM("APCLP6 TAXONOMY UPDATE")
  1.  D CLEAR^VALM1
  1.  D FULL^VALM1
  1.  W:$D(IOF) @IOF
  1.  D EOJ
  1.  Q
  1.  ;
  1. PAUSE ;EP
  1.  Q:$E(IOST)'="C"!(IO'=IO(0))
  1.  W ! S DIR(0)="EO",DIR("A")="Press enter to continue...." D ^DIR K DIR S:$D(DUOUT) DIRUT=1
  1.  Q
  1. HDR ; -- header code
  1.  S VALMHDR(1)="TAXONOMIES TO SUPPORT PRE-DIABETES/METABOLIC SYNDROME REPORTING"
  1.  S VALMHDR(2)="* Update Taxonomies"
  1.  Q
  1.  ;
  1. INIT ; -- init variables and list array
  1.  K APCLTAX S APCLHIGH="",C=0
  1.  S T="TAXS" F J=1:1 S Z=$T(@T+J),APCLX=$P(Z,";;",2),Y=$P(Z,";;",3) Q:APCLX=""  D
  1.  .S APCLTAX(J,0)=J_")  "_APCLX,$E(APCLTAX(J,0),38)=$E(Y,1,30)
  1.  .S I=$O(^ATXAX("B",APCLX,0))
  1.  .S $E(APCLTAX(J,0),70)=$$VAL^XBDIQ1(9002226,I,.15)
  1.  .S APCLTAX("IDX",J,J)=I_U_"T"
  1.  .S C=C+1
  1.  .Q
  1.  S J=J-1 S T="LAB" F K=1:1 S Z=$T(@T+K),APCLX=$P(Z,";;",2),Y=$P(Z,";;",3) Q:APCLX=""  D
  1.  .S J=J+1
  1.  .S APCLTAX(J,0)=J_")  "_APCLX,$E(APCLTAX(J,0),38)=$E(Y,1,30),$E(APCLTAX(J,0),70)="LAB TEST"
  1.  .S I=$O(^ATXLAB("B",APCLX,0))
  1.  .S APCLTAX("IDX",J,J)=I_U_"L"
  1.  .S C=C+1
  1.  .Q
  1.  S (VALMCNT,APCLHIGH)=C
  1.  Q
  1.  ;
  1. HELP ; -- help code
  1.  S X="?" D DISP^XQORM1 W !!
  1.  Q
  1.  ;
  1. EXIT ; -- exit code
  1.  Q
  1.  ;
  1. EXPND ; -- expand code
  1.  Q
  1.  ;
  1. BACK ;go back to listman
  1.  D TERM^VALM0
  1.  S VALMBCK="R"
  1.  D INIT
  1.  D HDR
  1.  K DIR
  1.  K X,Y,Z,I
  1.  Q
  1.  ;
  1. ADD ;EP - add an item to the selected list - called from a protocol
  1.  D FULL^VALM1
  1.  W !
  1.  S DIR(0)="NO^1:"_APCLHIGH,DIR("A")="Which Taxonomy"
  1.  D ^DIR K DIR S:$D(DUOUT) DIRUT=1
  1.  I Y="" W !,"No taxonomy selected." G ADDX
  1.  I $D(DIRUT) W !,"No taxonomy selected." G ADDX
  1.  S APCLTAXI=$P(APCLTAX("IDX",Y,Y),U,1),APCLTAXT=$P(APCLTAX("IDX",Y,Y),U,2)
  1.  I APCLTAXT="L" S APCLTAXN=$P(^ATXLAB(APCLTAXI,0),U)
  1.  I APCLTAXT="T" S APCLTAXN=$P(^ATXAX(APCLTAXI,0),U)
  1.  I APCLTAXT="L",$P(^ATXLAB(APCLTAXI,0),U,22) W !!,"The ",$P(^ATXLAB(APCLTAXI,0),U)," is READ ONLY.",!,"You can not update it." D PAUSE G ADDX
  1.  I APCLTAXT="T",$P(^ATXAX(APCLTAXI,0),U,22) W !!,"The ",$P(^ATXAX(APCLTAXI,0),U)," is READ ONLY.",!,"You can not update it." D PAUSE G ADDX
  1.  D FULL^VALM1 W:$D(IOF) @IOF
  1.  D EP^APCLP6TL(APCLTAXI)
  1. ADDX ;
  1.  D BACK
  1.  Q
  1. DISP ;EP - add an item to the selected list - called from a protocol
  1.  W !
  1.  S DIR(0)="NO^1:"_APCLHIGH,DIR("A")="Which Taxonomy"
  1.  D ^DIR K DIR S:$D(DUOUT) DIRUT=1
  1.  I Y="" W !,"No taxonomy selected." G ADDX
  1.  I $D(DIRUT) W !,"No taxonomy selected." G ADDX
  1.  D FULL^VALM1 W:$D(IOF) @IOF
  1.  S APCLTAXI=$P(APCLTAX("IDX",Y,Y),U,1),APCLTAXT=$P(APCLTAX("IDX",Y,Y),U,2)
  1.  W !!!,$S(APCLTAXT="L":$P(^ATXLAB(APCLTAXI,0),U),1:$P(^ATXAX(APCLTAXI,0),U))
  1.  W !!,"Items currently defined to this taxonomy:"
  1.  I APCLTAXT="L" S X=0 F  S X=$O(^ATXLAB(APCLTAXI,21,"B",X)) Q:X=""  D
  1.  .S Y=$P($G(^LAB(60,X,0)),U) W !?5,Y
  1.  I APCLTAXT="T",'$P(^ATXAX(APCLTAXI,0),U,13) S X=0 F  S X=$O(^ATXAX(APCLTAXI,21,"B",X)) Q:X=""  D
  1.  .W !?5,$$VAL^XBDIQ1($P(^ATXAX(APCLTAXI,0),U,15),X,.01)
  1.  I APCLTAXT="T",$P(^ATXAX(APCLTAXI,0),U,13) S X=0 F  S X=$O(^ATXAX(APCLTAXI,21,"B",X)) Q:X=""  D
  1.  .S H=0 F  S H=$O(^ATXAX(APCLTAXI,21,"B",X,H)) Q:H=""  D
  1.  ..W !?5,$P(^ATXAX(APCLTAXI,21,H,0),U)_"-"_$P(^ATXAX(APCLTAXI,21,H,0),U,2)
  1.  W !!
  1.  K DIR S DIR(0)="E",DIR("A")="Press enter to continue" D ^DIR K DIR
  1. DISPX ;
  1.  D BACK
  1.  Q
  1. TAXS ;
  1.  ;;SURVEILLANCE DIABETES;;Diabetes Diagnoses Codes;;DX
  1.  ;;SURVEILLANCE HYPERTENSION;;Hypertension Diagnoses Codes
  1.  ;;DM AUDIT PROBLEM SMOKING DXS;;Smoking related diagnoses for Problem List
  1.  ;;DM AUDIT PROBLEM HTN DIAGNOSES;;Hypertension Diagnoses
  1.  ;;DM AUDIT PROBLEM DIABETES DX;;Diabetes Diagnoses
  1.  ;;DM AUDIT SMOKING RELATED DXS;;Smoking related diagnoses for POVs
  1.  ;;DM AUDIT DIET EDUC TOPICS;;Diabetes Diet Education Topics
  1.  ;;DM AUDIT EXERCISE EDUC TOPICS;;Diabetes Excercise Education Topics
  1.  ;;DM AUDIT SMOKING CESS EDUC;;Smoking Cess Education Topics
  1.  ;;DM AUDIT TOBACCO HLTH FACTORS;;Tobacco Health Factors
  1.  ;;DM AUDIT CESSATION HLTH FACTOR;;Smoking Cessation Health Factors
  1.  ;;DM AUDIT SULFONYLUREA DRUGS;;Sulfonylurea Drug Taxonomy
  1.  ;;DM AUDIT METFORMIN DRUGS;;Metformin Drug Taxonomy
  1.  ;;DM AUDIT ACARBOSE DRUGS;;Acarbose Drug Taxonomy
  1.  ;;DM AUDIT LIPID LOWERING DRUGS;;Lipid Lowering Drug Taxonomy
  1.  ;;DM AUDIT STATIN DRUGS;;Statin Drug Taxonomy
  1.  ;;DM AUDIT GLITAZONE DRUGS;;Glitzaone Drug Taxonomy
  1.  ;;DM AUDIT ACE INHIBITORS;;ACE Inhibitor Drug Taxonomy
  1.  ;;DM AUDIT ASPIRIN DRUGS;;Aspirin Drug Taxonomy
  1.  ;;DM AUDIT ANTI-PLATELET DRUGS;;Anti-Platelet Drug Taxonomy
  1.  ;;
  1. LAB ;
  1.  ;;DM AUDIT FASTING GLUCOSE TESTS;;Fasting Glucose Tests Taxonomy
  1.  ;;DM AUDIT CHOLESTEROL TAX;;Cholesterol Lab Taxonomy
  1.  ;;DM AUDIT LDL CHOLESTEROL TAX;;LDL Cholesterol Lab Taxonomy
  1.  ;;DM AUDIT HDL TAX;;HDL Lab Taxonomy
  1.  ;;DM AUDIT TRIGLYCERIDE TAX;;Triglyceride Lab Taxonomy
  1.  ;;DM AUDIT 75GM 2HR GLUCOSE;;75 gm 2hr glucose test Taxonomy
  1.  ;;