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

BGP4CSI.m

Go to the documentation of this file.
  1. BGP4CSI ; IHS/CMI/LAB - DISPLAY IND LISTS ;
  1. ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
  1. ;; ;
  1. EP ;EP - CALLED FROM OPTION
  1. D EN
  1. Q
  1. EOJ ;EP
  1. K BGPTIND,BGPHIGH,BGPANS,BGPC,BGPGANS,BGPGC,BGPGI,BGPI,BGPX
  1. Q
  1. ;; ;
  1. EN ;EP -- main entry point for APCH HMR DISPLAY
  1. D EN^VALM("BGP 14 CMS INDICATOR SELECTION")
  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)="CMS Clinical Performance Topics"
  1. S VALMHDR(2)="* indicates the performance topic has been selected"
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. K BGPTIND S BGPHIGH=""
  1. S (X,Y,Z,C)=0 F S X=$O(^BGPCMSIB("AO",X)) Q:X'=+X S Y=$O(^BGPCMSIB("AO",X,Y)) Q:Y'=+Y D
  1. .S C=C+1,BGPTIND(C,0)=C_")",$E(BGPTIND(C,0),5)=$P(^BGPCMSIB(Y,0),U,4),BGPTIND(C,C)=Y I $D(BGPIND(Y)) S BGPTIND(C,0)="*"_BGPTIND(C,0)
  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. W !
  1. S DIR(0)="LO^1:"_BGPHIGH,DIR("A")="Which Topic"
  1. D ^DIR K DIR S:$D(DUOUT) DIRUT=1
  1. I Y="" W !,"No items selected." G ADDX
  1. I $D(DIRUT) W !,"No items selected." G ADDX
  1. D FULL^VALM1 W:$D(IOF) @IOF
  1. S BGPANS=Y,BGPC="" F BGPI=1:1 S BGPC=$P(BGPANS,",",BGPI) Q:BGPC="" S BGPIND(BGPTIND(BGPC,BGPC))=""
  1. ADDX ;
  1. D BACK
  1. Q
  1. ADDALL ;
  1. F X=1:1:BGPHIGH S BGPIND(X)=""
  1. D BACK
  1. Q
  1. ;
  1. REM ;
  1. W ! S DIR(0)="LO^1:"_BGPHIGH,DIR("A")="Which Topic(s)" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
  1. I Y="" W !,"No items selected." G ADDX
  1. I $D(DIRUT) W !,"No items selected." G ADDX
  1. D FULL^VALM1 W:$D(IOF) @IOF
  1. S BGPANS=Y,BGPC="" F BGPI=1:1 S BGPC=$P(BGPANS,",",BGPI) Q:BGPC="" K BGPIND(BGPTIND(BGPC,BGPC))
  1. REMX ;
  1. D BACK
  1. Q