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

BGP8TXCH.m

Go to the documentation of this file.
BGP8TXCH ; IHS/CMI/LAB - TAXONOMY CHECK FOR FY03 GPRA REPORT ;
 ;;18.1;IHS CLINICAL REPORTING;;MAY 25, 2018;Build 66
 ;
 ;
 D HOME^%ZIS
 W:$D(IOF) @IOF
 W !!,"Checking for Taxonomies to support the FY 03 GPRA Report. ",!,"Please enter the device for printing.",!
ZIS ;
 S XBRC="",XBRP="TAXCHK^BGP8TXCH",XBNS="",XBRX="XIT^BGP8TXCH"
 D ^XBDBQUE
 D XIT
 Q
TAXCHK ;EP
 D HOME^%ZIS
 ;W:$D(IOF) @IOF
 K BGPQUIT
 W !,"Checking for Taxonomies to support the GPRA Report...",!
 NEW A,BGPX,I,Y,Z,J
 K A
 S T="TAXS" F J=1:1 S Z=$T(@T+J),BGPX=$P(Z,";;",2),Y=$P(Z,";;",3) Q:BGPX=""  D
 .I '$D(^ATXAX("B",BGPX)) S A(BGPX)=Y_"^is Missing" Q
 .S I=$O(^ATXAX("B",BGPX,0))
 .I '$D(^ATXAX(I,21,"B")) S A(BGPX)=Y_"^has no entries "
 S T="LAB" F J=1:1 S Z=$T(@T+J),BGPX=$P(Z,";;",2),Y=$P(Z,";;",3) Q:BGPX=""  D
 .I '$D(^ATXLAB("B",BGPX)) S A(BGPX)=Y_"^is Missing " Q
 .S I=$O(^ATXLAB("B",BGPX,0))
 .I '$D(^ATXLAB(I,21,"B")) S A(BGPX)=Y_"^has no entries "
 I '$D(A) W !,"All taxonomies are present.",! K A,BGPX,Y,I,Z D DONE Q
 W !!,"In order for the GPRA Report to find all necessary data, several",!,"taxonomies must be established.  The following taxonomies are missing or have",!,"no entries:"
 S BGPX="" F  S BGPX=$O(A(BGPX)) Q:BGPX=""!($D(BGPQUIT))  D
 .I $Y>(IOSL-2) D PAGE Q:$D(BGPQUIT)
 .W !,$P(A(BGPX),U)," [",BGPX,"] ",$P(A(BGPX),U,2)
 .Q
DONE ;
 K BGPQUIT
 I $E(IOST)="C",IO=IO(0) S DIR(0)="EO",DIR("A")="End of taxonomy check.  PRESS ENTER" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
 Q
XIT ;EP
 K BGP,BGPX,BGPQUIT,BGPLINE,BGPJ,BGPX,BGPTEXT,BGP
 K X,Y,J
 Q
PAGE ;
 I $E(IOST)="C",IO=IO(0) W ! S DIR(0)="EO" D ^DIR K DIR I Y=0!(Y="^")!($D(DTOUT)) S BGPQUIT="" Q
 Q
TAXS ;
 ;;BGP ASTHMA DXS
 ;;BGP CD4 LOINC CODES
 ;;BGP CPT HIV TESTS
 ;;BGP HIV TEST LOINC CODES
 ;;BGP HIV/AIDS DXS
 ;;BGP ISCHEMIC HEART DXS
 ;;BGP PCR LOINC CODES
 ;;BGP GPRA PREGNANCY DIAGNOSES;;Pregnancy dxs Taxonomy
 ;;BGP GPRA SMOKING DXS;;Smoking diagnoses Taxonomy
 ;;SURVEILLANCE DIABETES;;Diabetes Diagnoses Codes
 ;;BGP CPT PAP;;Pap CPTs Taxonomy
 ;;BGP CPT MAMMOGRAM;;Mammogram CPTs Taxonomy
 ;;BGP CPT FLU;;Flu CPTs Taxonomy
 ;;BGP DEPRESSIVE DISORDERS;;Depressive Disorders ICD DXDiagnosis Taxonomy
 ;;
LAB ;
 ;;BGP HIV TEST TAX
 ;;BGP CD4 TAX
 ;;BGP PCR TAX
 ;;BGP GPRA FOB TESTS;;FOBT Lab Tests Taxonomy
 ;;DM AUDIT URINE PROTEIN TAX;;Urine Protein Lab Taxonomy
 ;;DM AUDIT MICROALBUMINURIA TAX;;Microalbuminuia Lab Taxonomy
 ;;DM AUDIT HGB A1C TAX;;HGB A1C Lab Taxonomy
 ;;DM AUDIT GLUCOSE TESTS TAX;;Glucose Tests Taxonomy
 ;;DM AUDIT LIPID PROFILE TAX;;Lipid Profile Lab Taxonomy
 ;;DM AUDIT CHOLESTEROL TAX;;Cholesterol Lab Taxonomy
 ;;DM AUDIT LDL CHOLESTEROL TAX;;LDL Cholesterol Lab Taxonomy
 ;;DM AUDIT HDL TAX;;HDL Lab Taxonomy
 ;;DM AUDIT CREATININE TAX;;CREATININE test lab taxonomy
 ;;DM AUDIT TRIGLYCERIDE TAX;;Triglyceride Lab Taxonomy
 ;;