APCM24EQ.m

APCM24EQ ; IHS/CMI/LAB - IHS MU ;

 ;;1.0;IHS MU PERFORMANCE REPORTS;**5,6**;MAR 26, 2012;Build 65

 ;;;;;;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

APCM24EQ  ; IHS/CMI/LAB - IHS MU ;

 +1       ;;1.0;IHS MU PERFORMANCE REPORTS;**5,6**;MAR 26, 2012;Build 65

 +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