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

APCM25SI.m

Go to the documentation of this file.
  1. APCM25SI ; IHS/CMI/LAB - IHS MU ;
  1. ;;1.0;MU PERFORMANCE REPORTS;**7**;MAR 26, 2012;Build 15
  1. ;; ;
  1. EP ;EP - CALLED FROM OPTION
  1. D EN
  1. Q
  1. EOJ ;EP
  1. K APCMTIND,APCMHIGH,APCMANS,APCMC,APCMGANS,APCMGC,APCMGI,APCMI,APCMX
  1. Q
  1. ;; ;
  1. EN ;EP -- main entry point for SELECTION
  1. D EN^VALM("APCM 25 S2 INDICATOR SEL")
  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)="IHS Modified Stage 2 MU Performance Reports"
  1. S VALMHDR(2)="* indicates the Performance Measure has been selected"
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. K APCMTIND S APCMHIGH=""
  1. S APCMXREF=$S(APCMRPTT=1:"EOORDER",1:"AH")
  1. S (X,Y,Z,C)=0 F S X=$O(^APCM25OB(APCMXREF,X)) Q:X'=+X F S Y=$O(^APCM25OB(APCMXREF,X,Y)) Q:Y'=+Y D
  1. .S C=C+1,APCMTIND(C,0)=C_")",$E(APCMTIND(C,0),5)=$P(^APCM25OB(Y,0),U,5),APCMTIND(C,C)=Y I $D(APCMIND(Y)) S APCMTIND(C,0)="*"_APCMTIND(C,0)
  1. .Q
  1. S (VALMCNT,APCMHIGH)=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:"_APCMHIGH,DIR("A")="Which Performance Measure(s)"
  1. D ^DIR K DIR S:$D(DUOUT) DIRUT=1
  1. I Y="" W !,"No Performance Measures selected." G ADDX
  1. I $D(DIRUT) W !,"No Performance Measures selected." G ADDX
  1. D FULL^VALM1 W:$D(IOF) @IOF
  1. S APCMANS=Y,APCMC="" F APCMI=1:1 S APCMC=$P(APCMANS,",",APCMI) Q:APCMC="" S APCMIND(APCMTIND(APCMC,APCMC))=""
  1. ADDX ;
  1. D BACK
  1. Q
  1. ADDALL ;
  1. S X=0 F S X=$O(APCMTIND(X)) Q:X'=+X S APCMIND(APCMTIND(X,X))=""
  1. D BACK
  1. Q
  1. ;
  1. MS ;
  1. S X=0 F S X=$O(APCMTIND(X)) Q:X'=+X S Y=APCMTIND(X,X) I $P(^APCM25OB(Y,0),U,3)="M" S APCMIND(APCMTIND(X,X))=""
  1. D BACK
  1. Q
  1. ;
  1. CM ;
  1. S X=0 F S X=$O(APCMTIND(X)) Q:X'=+X S Y=APCMTIND(X,X) I $P(^APCM25OB(Y,0),U,3)="C" S APCMIND(APCMTIND(X,X))=""
  1. D BACK
  1. Q
  1. REM ;
  1. W ! S DIR(0)="LO^1:"_APCMHIGH,DIR("A")="Which Performance Measure(s)" D ^DIR K DIR S:$D(DUOUT) DIRUT=1
  1. I Y="" W !,"No Performance Measures selected." G ADDX
  1. I $D(DIRUT) W !,"No Performance Measures selected." G ADDX
  1. D FULL^VALM1 W:$D(IOF) @IOF
  1. S APCMANS=Y,APCMC="" F APCMI=1:1 S APCMC=$P(APCMANS,",",APCMI) Q:APCMC="" K APCMIND(APCMTIND(APCMC,APCMC))
  1. REMX ;
  1. D BACK
  1. Q