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

BGP9CSII.m

Go to the documentation of this file.
  1. BGP9CSII ; IHS/CMI/LAB - DISPLAY IND LISTS ;
  1. ;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009
  1. ;; ;
  1. EP ;EP - CALLED FROM OPTION
  1. D EN
  1. Q
  1. EOJ ;EP
  1. K BGPPLST,BGPHIGH,BGPANS,BGPC,BGPGANS,BGPGC,BGPGI,BGPI,BGPX
  1. Q
  1. ;; ;
  1. EN ;EP -- main entry point for CMS PT LIST DISPLAY
  1. D EN^VALM("BGP 09 CMS MEASURE PT LISTS")
  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 BGPPLST S BGPHIGH=""
  1. S (X,Y,Z,C)=0 F S X=$O(^BGPCMSMN("AO",BGPXX,X)) Q:X'=+X S Y=$O(^BGPCMSMN("AO",BGPXX,X,Y)) Q:Y'=+Y D
  1. .S C=C+1,BGPPLST(C,0)=C_")",$E(BGPPLST(C,0),5)=$P(^BGPCMSMN(Y,0),U,3),BGPPLST(C,C)=Y I $D(BGPPLSTL(BGPXX,Y)) S BGPPLST(C,0)="*"_BGPPLST(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 Patient List"
  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 BGPPLSTL(BGPXX,BGPPLST(BGPC,BGPC))=""
  1. ADDX ;
  1. D BACK
  1. Q
  1. ADDALL ;
  1. F X=1:1:BGPHIGH S BGPPLSTL(BGPXX,X)=""
  1. D BACK
  1. Q
  1. ;
  1. REM ;
  1. W ! S DIR(0)="LO^1:"_BGPHIGH,DIR("A")="Which Patient List(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 BGPPLSTL(BGPXX,BGPPLST(BGPC,BGPC))
  1. REMX ;
  1. D BACK
  1. Q