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

BGP8XTS.m

Go to the documentation of this file.
  1. BGP8XTS ; IHS/CMI/LAB - DISPLAY IND LISTS ;
  1. ;;18.1;IHS CLINICAL REPORTING;;MAY 25, 2018;Build 66
  1. ;; ;
  1. EP ;EP - CALLED FROM OPTION
  1. D EN
  1. Q
  1. EOJ ;EP
  1. D EN^XBVK("BGP")
  1. Q
  1. ;; ;
  1. EN ;EP -- main entry point for
  1. D EN^VALM("BGP 18 TAXONOMY UPDATE")
  1. D CLEAR^VALM1
  1. D FULL^VALM1
  1. W:$D(IOF) @IOF
  1. D EOJ
  1. Q
  1. ;
  1. HDR ; -- header code
  1. S VALMHDR(1)="TAXONOMIES TO SUPPORT CRS REPORTING"
  1. S VALMHDR(2)="* Update Taxonomies"
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. K BGPTAX S BGPHIGH="",C=0
  1. S T="LAB" F J=1:1 S Z=$T(@T+J),BGPX=$P(Z,";;",2),Y=$P(Z,";;",3) Q:BGPX="" D
  1. .S BGPTAX(J,0)=J_") "_BGPX,$E(BGPTAX(J,0),40)=Y
  1. .S I=$O(^ATXLAB("B",BGPX,0))
  1. .S BGPTAX("IDX",J,J)=I
  1. .S C=C+1
  1. .Q
  1. S (VALMCNT,BGPHIGH)=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. I '$D(^XUSEC("BGPZ TAXONOMY EDIT",DUZ)) W !!,"You do not have the security access to edit taxonomies.",!,"Please see your supervisor or program manager if you feel you should have",!,"the BGPZ TAXONOMY EDIT security key.",! D Q
  1. .K DIR S DIR(0)="E",DIR("A")="Press enter to continue" D ^DIR K DIR
  1. S DIR(0)="NO^1:"_BGPHIGH,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 BGPTAXI=BGPTAX("IDX",Y,Y)
  1. D EP^BGP8XTL(BGPTAXI)
  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:"_BGPHIGH,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 BGPTAXI=BGPTAX("IDX",Y,Y)
  1. W !!!,$P(^ATXLAB(BGPTAXI,0),U)
  1. W !!,"Tests currently defined in this taxonomy:"
  1. S X=0 F S X=$O(^ATXLAB(BGPTAXI,21,"B",X)) Q:X'=+X D
  1. .S Y=$P($G(^LAB(60,X,0)),U) W !?5,Y
  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. LAB ;
  1. ;;DM AUDIT CREATININE TAX;;CREATININE Lab tests
  1. ;;DM AUDIT HGB A1C TAX;;HGB A1C Lab Tests
  1. ;;DM AUDIT LIPID PROFILE TAX;;Lipid Profile Lab Tests
  1. ;;DM AUDIT LDL CHOLESTEROL TAX;;LDL Cholesterol Lab Tests
  1. ;;DM AUDIT TRIGLYCERIDE TAX;;Triglyceride Lab Tests
  1. ;;DM AUDIT HDL TAX;;HDL Lab Tests
  1. ;;DM AUDIT URINE PROTEIN TAX;;Urine Protein Lab Tests
  1. ;;DM AUDIT MICROALBUMINURIA TAX;;Microalbuminuia Lab Tests
  1. ;;DM AUDIT CHOLESTEROL TAX;;Cholesterol Tests
  1. ;;BGP GPRA ESTIMATED GFR TAX;;Estimated GFR Tests
  1. ;;BGP PAP SMEAR TAX;;Pap Smear tests
  1. ;;BGP GPRA FOB TESTS;;Fecal Occult Blood Tests
  1. ;;BGP HIV TEST TAX;;HIV lab tests
  1. ;;BGP CD4 TAX
  1. ;;BGP HIV VIRAL LOAD TAX
  1. ;;BGP CHLAMYDIA TESTS TAX;;Chlamydia lab taxonomy
  1. ;;