- APCM25EQ ; IHS/CMI/LAB - IHS MU ;
- ;;1.0;MU PERFORMANCE REPORTS;**7**;MAR 26, 2012;Build 15
- ;;;;;;Build 3
- ;
- SAVEDEL ;EP
- I APCMPTYP="P" Q
- I APCMDELT="S" D SCREEN K ^TMP($J) Q
- ;call xbgsave to create output file
- K ^TMP($J,"SUMMARYDEL")
- S XBGL="APCMDATA"
- L +^APCMDATA:300 E W:'$D(ZTQUEUED) "Unable to lock global" Q
- K ^APCMDATA ;NOTE: kill of unsubscripted export global
- S X=0 F S X=$O(^TMP($J,"APCMDEL",X)) Q:X'=+X S ^APCMDATA(X)=^TMP($J,"APCMDEL",X)
- D
- .S XBFLT=1,XBFN=APCMDELF_".txt",XBMED="F",XBTLE="MU PERFORMANCE REPORT DELIMITED OUTPUT",XBQ="N",XBF=0
- .D ^XBGSAVE
- .K XBFLT,XBFN,XBMED,XBTLE,XBE,XBF
- L -^APCMDATA
- K ^APCMDATA ;NOTE: kill of unsubscripted export global
- K ^TMP($J)
- Q
- ;
- SCREEN ;
- S X=0 F S X=$O(^TMP($J,"APCMDEL",X)) Q:X'=+X W !,^TMP($J,"APCMDEL",X)
- Q
- APCM25EQ ; IHS/CMI/LAB - IHS MU ;
- +1 ;;1.0;MU PERFORMANCE REPORTS;**7**;MAR 26, 2012;Build 15
- +2 ;;;;;;Build 3
- +3 ;
- SAVEDEL ;EP
- +1 IF APCMPTYP="P"
- QUIT
- +2 IF APCMDELT="S"
- DO SCREEN
- KILL ^TMP($JOB)
- QUIT
- +3 ;call xbgsave to create output file
- +4 KILL ^TMP($JOB,"SUMMARYDEL")
- +5 SET XBGL="APCMDATA"
- +6 LOCK +^APCMDATA:300
- IF '$TEST
- IF '$DATA(ZTQUEUED)
- WRITE "Unable to lock global"
- QUIT
- +7 ;NOTE: kill of unsubscripted export global
- KILL ^APCMDATA
- +8 SET X=0
- FOR
- SET X=$ORDER(^TMP($JOB,"APCMDEL",X))
- IF X'=+X
- QUIT
- SET ^APCMDATA(X)=^TMP($JOB,"APCMDEL",X)
- +9 Begin DoDot:1
- +10 SET XBFLT=1
- SET XBFN=APCMDELF_".txt"
- SET XBMED="F"
- SET XBTLE="MU PERFORMANCE REPORT DELIMITED OUTPUT"
- SET XBQ="N"
- SET XBF=0
- +11 DO ^XBGSAVE
- +12 KILL XBFLT,XBFN,XBMED,XBTLE,XBE,XBF
- End DoDot:1
- +13 LOCK -^APCMDATA
- +14 ;NOTE: kill of unsubscripted export global
- KILL ^APCMDATA
- +15 KILL ^TMP($JOB)
- +16 QUIT
- +17 ;
- SCREEN ;
- +1 SET X=0
- FOR
- SET X=$ORDER(^TMP($JOB,"APCMDEL",X))
- IF X'=+X
- QUIT
- WRITE !,^TMP($JOB,"APCMDEL",X)
- +2 QUIT