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

APCM25EQ.m

Go to the documentation of this file.
  1. APCM25EQ ; IHS/CMI/LAB - IHS MU ;
  1. ;;1.0;MU PERFORMANCE REPORTS;**7**;MAR 26, 2012;Build 15
  1. ;;;;;;Build 3
  1. ;
  1. SAVEDEL ;EP
  1. I APCMPTYP="P" Q
  1. I APCMDELT="S" D SCREEN K ^TMP($J) Q
  1. ;call xbgsave to create output file
  1. K ^TMP($J,"SUMMARYDEL")
  1. S XBGL="APCMDATA"
  1. L +^APCMDATA:300 E W:'$D(ZTQUEUED) "Unable to lock global" Q
  1. K ^APCMDATA ;NOTE: kill of unsubscripted export global
  1. S X=0 F S X=$O(^TMP($J,"APCMDEL",X)) Q:X'=+X S ^APCMDATA(X)=^TMP($J,"APCMDEL",X)
  1. D
  1. .S XBFLT=1,XBFN=APCMDELF_".txt",XBMED="F",XBTLE="MU PERFORMANCE REPORT DELIMITED OUTPUT",XBQ="N",XBF=0
  1. .D ^XBGSAVE
  1. .K XBFLT,XBFN,XBMED,XBTLE,XBE,XBF
  1. L -^APCMDATA
  1. K ^APCMDATA ;NOTE: kill of unsubscripted export global
  1. K ^TMP($J)
  1. Q
  1. ;
  1. SCREEN ;
  1. S X=0 F S X=$O(^TMP($J,"APCMDEL",X)) Q:X'=+X W !,^TMP($J,"APCMDEL",X)
  1. Q