Routine: EDPRPT1

EDPRPT1 ;SLC/MKB - Activity Report ;4/25/13 3:15pm

 ;;2.0;EMERGENCY DEPARTMENT;**6,2**;Feb 24, 2012;Build 23

ACT(BEG,END,CSV) ; Get Activity Report for EDPSITE by date range

 N LOG,X,X0,X1,X3,DX,IN,OUT,ROW,PROV,I,CUTOFF

 N ELAPSE,TRIAGE,WAIT,ADMDEC,ADMDEL,ALL,ADM,NOT,DISP

 D INIT ;set counters, sums to 0

 D:'$G(CSV) XML^EDPX("<logEntries>") I $G(CSV) D  ;headers

 . N TAB S TAB=$C(9)

 . ;***pij 4/19/2013 changed ED to IEN

 . ;S X="ED"_TAB_"Time In"_TAB_"Time Out"_TAB_"Complaint"_TAB_"MD"_TAB_"Acuity"_TAB_"Elapsed"_TAB_"Triage"_TAB_"Wait"_TAB_"Dispo"_TAB_"Adm Dec"_TAB_"Adm Delay"_TAB_"Diagnosis"_TAB_"ICD9"

 . ;DRP EDP*2.0*2 Begin

 . ;***

 . S X="IEN"_TAB_"Time In"_TAB_"Time Out"_TAB_"Complaint"_TAB_"MD"_TAB_"Acuity"_TAB_"Elapsed"_TAB_"Triage"_TAB_"Wait"_TAB_"Dispo"_TAB_"Adm Dec"_TAB_"Adm Delay"_TAB_"Diagnosis"_TAB_"ICD"_TAB_"ICD Type"

 . ;End EDP*2.0*2 Changes

 . D ADD^EDPCSV(X)

 S IN=BEG-.000001

LOOP F  S IN=$O(^EDP(230,"ATI",EDPSITE,IN)) Q:'IN  Q:IN>END  D  I '$D(ZTQUEUED),$$LONG D ZTSAVE Q

 . S LOG=0 F  S LOG=+$O(^EDP(230,"ATI",EDPSITE,IN,LOG)) Q:LOG<1  D

 .. S X0=^EDP(230,LOG,0),X1=$G(^(1)),X3=$G(^(3))

 .. S OUT=$P(X0,U,9),DX=$$DXPRI^EDPQPCE(+$P(X0,U,3),LOG)

 .. K ROW S ROW("id")=LOG,ALL=ALL+1

 .. S ROW("inTS")=$S($G(CSV):$$EDATE^EDPRPT(IN),1:IN)

 .. S ROW("outTS")=$S($G(CSV):$$EDATE^EDPRPT(OUT),1:OUT)

 .. S ROW("complaint")=$P(X1,U)

 .. S DISP=$$ECODE^EDPRPT($P(X1,U,2))

 .. ;TDP - Patch 2 mod to catch all dispositions

 .. I DISP="" S DISP=$$DISP^EDPRPT($P(X1,U,2))

 .. S ROW("disposition")=DISP

 .. S ROW("arrival")=$$ENAME^EDPRPT($P(X1,U,10))

 .. S ROW("acuity")=$$ECODE^EDPRPT($P(X3,U,3))

 .. S ROW("md")=$$EPERS^EDPRPT($P(X3,U,5))

 .. S:$P(X3,U,5) PROV(+$P(X3,U,5))=""

 .. ;DRP Begin EDP*2.0*2 Changes

 .. S ROW("icd")=$P(DX,U,1),ROW("dx")=$P(DX,U,2),ROW("icdType")=$P(DX,U,3)

 .. ;End EDP*2.0*2 Changes

 .. S:'$L(DISP) DISP="none" S DISP(DISP)=DISP(DISP)+1

 .. ;

A1 .. ; calculate times

 .. ; S:OUT="" OUT=NOW ;for calculations

 .. S ELAPSE=$S(OUT:($$FMDIFF^XLFDT(OUT,IN,2)\60),1:0)

 .. S ROW("elapsed")=ELAPSE_$S(ELAPSE>359:" *",1:"")

 .. S ALL("elapsed")=ALL("elapsed")+ELAPSE

 .. S DISP(DISP,"elapsed")=DISP(DISP,"elapsed")+ELAPSE

 .. ;

 .. S X=$$ACUITY^EDPRPT(LOG),TRIAGE=0 ;S:X<1 X=OUT

 .. S:X TRIAGE=($$FMDIFF^XLFDT(X,IN,2)\60)

 .. S ROW("triage")=TRIAGE,ALL("triage")=ALL("triage")+TRIAGE

 .. S DISP(DISP,"triage")=DISP(DISP,"triage")+TRIAGE

 .. ;

 .. S X=$$LVWAITRM^EDPRPT(LOG),WAIT=0

 .. S:X WAIT=($$FMDIFF^XLFDT(X,IN,2)\60)

 .. S ROW("wait")=WAIT,ALL("wait")=ALL("wait")+WAIT

 .. S DISP(DISP,"wait")=DISP(DISP,"wait")+WAIT

 .. ;

 .. S X=$$ADMIT^EDPRPT(LOG) I X<1 D

 ... S NOT=NOT+1,NOT("elapsed")=NOT("elapsed")+ELAPSE

 ... S NOT("triage")=NOT("triage")+TRIAGE

 ... S NOT("wait")=NOT("wait")+WAIT

 ... ;***pij 4/19/2013 if variables are null, change to zero

 ... S ROW("admDec")=0

 ... S ROW("admDel")=0

 ... ;***

 .. E  D  ;decision to admit

 ... S ADMDEC=($$FMDIFF^XLFDT(X,IN,2)\60)

 ... S ADMDEL=$S(OUT:($$FMDIFF^XLFDT(OUT,X,2)\60),1:0)

 ... S ROW("admDec")=ADMDEC,ROW("admDel")=ADMDEL

 ... S ADM=ADM+1,ADM("elapsed")=ADM("elapsed")+ELAPSE

 ... S ADM("triage")=ADM("triage")+TRIAGE

 ... S ADM("wait")=ADM("wait")+WAIT

 ... S ADM("admDec")=ADM("admDec")+ADMDEC

 ... S ADM("admDel")=ADM("admDel")+ADMDEL

 ... S DISP(DISP,"admDec")=DISP(DISP,"admDec")+ADMDEC

 ... S DISP(DISP,"admDel")=DISP(DISP,"admDel")+ADMDEL

 .. ;

 .. I '$G(CSV) S X=$$XMLA^EDPX("log",.ROW) D XML^EDPX(X) Q

 .. S X=ROW("id")

 .. ;Begin EDP*2.0*2 Changes

 .. F I="inTS","outTS","complaint","md","acuity","elapsed","triage","wait","disposition","admDec","admDel","dx","icd","icdType" S X=X_$C(9)_$G(ROW(I))

 .. ;End EDP*2.0*2 Changes

 .. D ADD^EDPCSV(X)

 I $D(ZTSAVE) D TASK^EDPRPT Q  ;too long -> queue rest of report

 D:'$G(CSV) XML^EDPX("</logEntries>")

A2 ; calculate & include averages

 Q:ALL<1  ;no visits found

 S ALL("type")="All Patients",NOT("type")="Not Admitted",ADM("type")="Admitted"

 F I="elapsed","triage","wait" S ALL(I)=$$ETIME^EDPRPT(ALL(I)\ALL)

 F I="elapsed","triage","wait" S NOT(I)=$S(NOT:$$ETIME^EDPRPT(NOT(I)\NOT),1:"00:00")

 F I="elapsed","triage","wait","admDec","admDel" S ADM(I)=$S(ADM:$$ETIME^EDPRPT(ADM(I)\ADM),1:"00:00")

 F I="admDec","admDel" S ALL(I)=ADM(I)

 S ALL("total")=ALL,NOT("total")=NOT,ADM("total")=ADM

 S X="" F  S X=$O(DISP(X)) Q:X=""  I DISP(X) D

 . S DISP(X,"total")=DISP(X),DISP(X,"type")=X

 . F I="elapsed","triage","wait","admDec","admDel" S DISP(X,I)=$$ETIME^EDPRPT(DISP(X,I)\DISP(X))

A3 I $G(CSV) D  Q  ;CSV format

 . N TAB,D S TAB=$C(9)

 . D BLANK^EDPCSV

 . S X=TAB_"Total Patients"_TAB_ALL_TAB_TAB_TAB_TAB_ALL("elapsed")_TAB_ALL("triage")_TAB_ALL("wait")_TAB_TAB_ALL("admDec")_TAB_ALL("admDel")

 . D ADD^EDPCSV(X),BLANK^EDPCSV

 . S X=TAB_TAB_TAB_TAB_"Total"_TAB_"Visit"_TAB_"Triage"_TAB_"Wait"_TAB_"Adm Dec"_TAB_"Adm Del"

 . D ADD^EDPCSV(X),BLANK^EDPCSV

 . S X=TAB_TAB_TAB_"Patients Not Admitted"_TAB_NOT_TAB_NOT("elapsed")_TAB_NOT("triage")_TAB_NOT("wait")

 . D ADD^EDPCSV(X),BLANK^EDPCSV

 . S X=TAB_TAB_TAB_"Patients Admitted"_TAB_ADM_TAB_ADM("elapsed")_TAB_ADM("triage")_TAB_ADM("wait")_TAB_ADM("admDec")_TAB_ADM("admDel")

 . D ADD^EDPCSV(X),BLANK^EDPCSV

 . S X=TAB_TAB_TAB_"Disposition" D ADD^EDPCSV(X)

 . S D="" F  S D=$O(DISP(D)) Q:D=""  I DISP(D) D

 .. S X=D_TAB_DISP(D)_TAB_DISP(D,"elapsed")_TAB_DISP(D,"triage")_TAB_DISP(D,"wait")_TAB_DISP(D,"admDec")_TAB_DISP(D,"admDel")

 .. D ADD^EDPCSV(X)

 D XML^EDPX("<averages>")

 S X=$$XMLA^EDPX("average",.ALL) D XML^EDPX(X)

 S X=$$XMLA^EDPX("average",.NOT) D XML^EDPX(X)

 S X=$$XMLA^EDPX("average",.ADM) D XML^EDPX(X)

 S I="" F  S I=$O(DISP(I)) Q:I=""  I DISP(I) K ROW M ROW=DISP(I) S X=$$XMLA^EDPX("average",.ROW) D XML^EDPX(X)

 D XML^EDPX("</averages>")

 ; include list of providers assigned

 I $O(PROV(0)) D PROV^EDPRPT(.PROV)

INIT ; Initialize counters and sums

 N I,DA,X,Y,J S (ALL,ADM,NOT)=0

 F I="elapsed","triage","wait" S (ALL(I),NOT(I),ADM(I))=0

 F I="admDec","admDel" S ADM(I)=0

 S X="" F  S X=$O(^EDPB(233.1,"AB","disposition",X)) Q:X=""  D

 . S DA=0 F  S DA=$O(^EDPB(233.1,"AB","disposition",X,DA)) Q:DA<1  D

 .. S Y=$$ECODE^EDPRPT(DA) Q:'$L(Y)  S DISP(Y)=0

 .. F I="elapsed","triage","wait","admDec","admDel" S DISP(Y,I)=0

 ;TDP - Patch 2, Added additional disposition inits to prevent undefined

 ;      errors.

 ;S I=EDPSTA_"."_$P($P(X0,U),".",2)

 S I=EDPSTA_".disposition"

 S X=0 F  S X=$O(^EDPB(233.2,"AS",I,X)) Q:X=""  D

 . S DA=0 F  S DA=$O(^EDPB(233.2,"AS",I,X,DA)) Q:DA=""  D

 .. S Y=$P($G(^EDPB(233.2,"AS",I,X,DA)),U)

 .. I '$L(Y) S Y=$E($TR($P($G(^EDPB(233.2,"AS",I,X,DA)),U,2)," ","_"),1,30)

 .. I $L(Y),'$D(DISP(Y)) D

 ... S DISP(Y)=0

 ... F J="elapsed","triage","wait","admDec","admDel" S DISP(Y,J)=0

 S DISP("none")=0 F I="elapsed","triage","wait","admDec","admDel" S DISP("none",I)=0

 S CUTOFF=$P($$HADD^XLFDT($H,,,,6),",",2) K ZTSAVE

LONG() ; -- report running too long?

 ;H 1 ;for testing only

 Q ($P($H,",",2)>CUTOFF)

ZTSAVE ; Set up ZTSAVE to task remainder of report

 N I F I="BEG","END","IN" S ZTSAVE(I)=""

 F I="ALL","NOT","ADM" S ZTSAVE(I)=""

 F I="ALL(","NOT(","ADM(","DISP(","PROV(" S ZTSAVE(I)=""

 S ZTRTN="TASK^EDPRPT1",ZTDESC="EDIS Activity Report"

 ; bwf - 2/27/2012: This code seems to be incomplete. Adding kill statement to clean up ZTSAVE,ZTRTN and ZTDESC.

 ; my guess is there needs to be the final call to ACTUALLY TASK this

 K ZTRTN,ZTDESC,ZTSAVE

TASK ; -- entry point to complete report in the background

 N NOW S NOW=$$NOW^XLFDT()

 D LOOP

 M ^XTMP("EDIS-"_ZTSK)=EDPXML K EDPXML

 S ^XTMP("EDIS-"_ZTSK,0)=$$FMADD^XLFDT(NOW,1)_U_NOW_"^EDIS Activity Report"

 K ZTSK

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEDPRPT1   7726     printed  Feb 18, 2025@23:18:41                                                                                                                                                                                                     Page 2

EDPRPT1   ;SLC/MKB - Activity Report ;4/25/13 3:15pm

 +1       ;;2.0;EMERGENCY DEPARTMENT;**6,2**;Feb 24, 2012;Build 23

 +2       ;

ACT(BEG,END,CSV) ; Get Activity Report for EDPSITE by date range

 +1        NEW LOG,X,X0,X1,X3,DX,IN,OUT,ROW,PROV,I,CUTOFF

 +2        NEW ELAPSE,TRIAGE,WAIT,ADMDEC,ADMDEL,ALL,ADM,NOT,DISP

 +3       ;set counters, sums to 0

           DO INIT

 +4       ;headers

           if '$GET(CSV)

               DO XML^EDPX("<logEntries>")

           IF $GET(CSV)

               Begin DoDot:1

 +5                NEW TAB

                   SET TAB=$CHAR(9)

 +6       ;***pij 4/19/2013 changed ED to IEN

 +7       ;S X="ED"_TAB_"Time In"_TAB_"Time Out"_TAB_"Complaint"_TAB_"MD"_TAB_"Acuity"_TAB_"Elapsed"_TAB_"Triage"_TAB_"Wait"_TAB_"Dispo"_TAB_"Adm Dec"_TAB_"Adm Delay"_TAB_"Diagnosis"_TAB_"ICD9"

 +8       ;DRP EDP*2.0*2 Begin

 +9       ;***

 +10               SET X="IEN"_TAB_"Time In"_TAB_"Time Out"_TAB_"Complaint"_TAB_"MD"_TAB_"Acuity"_TAB_"Elapsed"_TAB_"Triage"_TAB_"Wait"_TAB_"Dispo"_TAB_"Adm Dec"_TAB_"Adm Delay"_TAB_"Diagnosis"_TAB_"ICD"_TAB_"ICD Type"

 +11      ;End EDP*2.0*2 Changes

 +12               DO ADD^EDPCSV(X)

               End DoDot:1

 +13       SET IN=BEG-.000001

LOOP       FOR

               SET IN=$ORDER(^EDP(230,"ATI",EDPSITE,IN))

               if 'IN

                   QUIT

               if IN>END

                   QUIT

               Begin DoDot:1

 +1                SET LOG=0

FOR

                       SET LOG=+$ORDER(^EDP(230,"ATI",EDPSITE,IN,LOG))

                       if LOG<1

                           QUIT

                       Begin DoDot:2

 +2                        SET X0=^EDP(230,LOG,0)

                           SET X1=$GET(^(1))

                           SET X3=$GET(^(3))

 +3                        SET OUT=$PIECE(X0,U,9)

                           SET DX=$$DXPRI^EDPQPCE(+$PIECE(X0,U,3),LOG)

 +4                        KILL ROW

                           SET ROW("id")=LOG

                           SET ALL=ALL+1

 +5                        SET ROW("inTS")=$SELECT($GET(CSV):$$EDATE^EDPRPT(IN),1:IN)

 +6                        SET ROW("outTS")=$SELECT($GET(CSV):$$EDATE^EDPRPT(OUT),1:OUT)

 +7                        SET ROW("complaint")=$PIECE(X1,U)

 +8                        SET DISP=$$ECODE^EDPRPT($PIECE(X1,U,2))

 +9       ;TDP - Patch 2 mod to catch all dispositions

 +10                       IF DISP=""

                               SET DISP=$$DISP^EDPRPT($PIECE(X1,U,2))

 +11                       SET ROW("disposition")=DISP

 +12                       SET ROW("arrival")=$$ENAME^EDPRPT($PIECE(X1,U,10))

 +13                       SET ROW("acuity")=$$ECODE^EDPRPT($PIECE(X3,U,3))

 +14                       SET ROW("md")=$$EPERS^EDPRPT($PIECE(X3,U,5))

 +15                       if $PIECE(X3,U,5)

                               SET PROV(+$PIECE(X3,U,5))=""

 +16      ;DRP Begin EDP*2.0*2 Changes

 +17                       SET ROW("icd")=$PIECE(DX,U,1)

                           SET ROW("dx")=$PIECE(DX,U,2)

                           SET ROW("icdType")=$PIECE(DX,U,3)

 +18      ;End EDP*2.0*2 Changes

 +19                       if '$LENGTH(DISP)

                               SET DISP="none"

                           SET DISP(DISP)=DISP(DISP)+1

 +20      ;

A1        ; calculate times

 +1       ; S:OUT="" OUT=NOW ;for calculations

 +2                        SET ELAPSE=$SELECT(OUT:($$FMDIFF^XLFDT(OUT,IN,2)\60),1:0)

 +3                        SET ROW("elapsed")=ELAPSE_$SELECT(ELAPSE>359:" *",1:"")

 +4                        SET ALL("elapsed")=ALL("elapsed")+ELAPSE

 +5                        SET DISP(DISP,"elapsed")=DISP(DISP,"elapsed")+ELAPSE

 +6       ;

 +7       ;S:X<1 X=OUT

                           SET X=$$ACUITY^EDPRPT(LOG)

                           SET TRIAGE=0

 +8                        if X

                               SET TRIAGE=($$FMDIFF^XLFDT(X,IN,2)\60)

 +9                        SET ROW("triage")=TRIAGE

                           SET ALL("triage")=ALL("triage")+TRIAGE

 +10                       SET DISP(DISP,"triage")=DISP(DISP,"triage")+TRIAGE

 +11      ;

 +12                       SET X=$$LVWAITRM^EDPRPT(LOG)

                           SET WAIT=0

 +13                       if X

                               SET WAIT=($$FMDIFF^XLFDT(X,IN,2)\60)

 +14                       SET ROW("wait")=WAIT

                           SET ALL("wait")=ALL("wait")+WAIT

 +15                       SET DISP(DISP,"wait")=DISP(DISP,"wait")+WAIT

 +16      ;

 +17                       SET X=$$ADMIT^EDPRPT(LOG)

                           IF X<1

                               Begin DoDot:3

 +18                               SET NOT=NOT+1

                                   SET NOT("elapsed")=NOT("elapsed")+ELAPSE

 +19                               SET NOT("triage")=NOT("triage")+TRIAGE

 +20                               SET NOT("wait")=NOT("wait")+WAIT

 +21      ;***pij 4/19/2013 if variables are null, change to zero

 +22                               SET ROW("admDec")=0

 +23                               SET ROW("admDel")=0

 +24      ;***

                               End DoDot:3

 +25      ;decision to admit

                          IF '$TEST

                               Begin DoDot:3

 +26                               SET ADMDEC=($$FMDIFF^XLFDT(X,IN,2)\60)

 +27                               SET ADMDEL=$SELECT(OUT:($$FMDIFF^XLFDT(OUT,X,2)\60),1:0)

 +28                               SET ROW("admDec")=ADMDEC

                                   SET ROW("admDel")=ADMDEL

 +29                               SET ADM=ADM+1

                                   SET ADM("elapsed")=ADM("elapsed")+ELAPSE

 +30                               SET ADM("triage")=ADM("triage")+TRIAGE

 +31                               SET ADM("wait")=ADM("wait")+WAIT

 +32                               SET ADM("admDec")=ADM("admDec")+ADMDEC

 +33                               SET ADM("admDel")=ADM("admDel")+ADMDEL

 +34                               SET DISP(DISP,"admDec")=DISP(DISP,"admDec")+ADMDEC

 +35                               SET DISP(DISP,"admDel")=DISP(DISP,"admDel")+ADMDEL

                               End DoDot:3

 +36      ;

 +37                       IF '$GET(CSV)

                               SET X=$$XMLA^EDPX("log",.ROW)

                               DO XML^EDPX(X)

                               QUIT

 +38                       SET X=ROW("id")

 +39      ;Begin EDP*2.0*2 Changes

 +40                       FOR I="inTS","outTS","complaint","md","acuity","elapsed","triage","wait","disposition","admDec","admDel","dx","icd","icdType"

                               SET X=X_$CHAR(9)_$GET(ROW(I))

 +41      ;End EDP*2.0*2 Changes

 +42                       DO ADD^EDPCSV(X)

                       End DoDot:2

               End DoDot:1

               IF '$DATA(ZTQUEUED)

                   IF $$LONG

                       DO ZTSAVE

                       QUIT

 +43      ;too long -> queue rest of report

           IF $DATA(ZTSAVE)

               DO TASK^EDPRPT

               QUIT

 +44       if '$GET(CSV)

               DO XML^EDPX("</logEntries>")

 +45      ;

A2        ; calculate & include averages

 +1       ;no visits found

           if ALL<1

               QUIT

 +2        SET ALL("type")="All Patients"

           SET NOT("type")="Not Admitted"

           SET ADM("type")="Admitted"

 +3        FOR I="elapsed","triage","wait"

               SET ALL(I)=$$ETIME^EDPRPT(ALL(I)\ALL)

 +4        FOR I="elapsed","triage","wait"

               SET NOT(I)=$SELECT(NOT:$$ETIME^EDPRPT(NOT(I)\NOT),1:"00:00")

 +5        FOR I="elapsed","triage","wait","admDec","admDel"

               SET ADM(I)=$SELECT(ADM:$$ETIME^EDPRPT(ADM(I)\ADM),1:"00:00")

 +6        FOR I="admDec","admDel"

               SET ALL(I)=ADM(I)

 +7        SET ALL("total")=ALL

           SET NOT("total")=NOT

           SET ADM("total")=ADM

 +8        SET X=""

FOR

               SET X=$ORDER(DISP(X))

               if X=""

                   QUIT

               IF DISP(X)

                   Begin DoDot:1

 +9                    SET DISP(X,"total")=DISP(X)

                       SET DISP(X,"type")=X

 +10                   FOR I="elapsed","triage","wait","admDec","admDel"

                           SET DISP(X,I)=$$ETIME^EDPRPT(DISP(X,I)\DISP(X))

                   End DoDot:1

 +11      ;

A3        ;CSV format

           IF $GET(CSV)

               Begin DoDot:1

 +1                NEW TAB,D

                   SET TAB=$CHAR(9)

 +2                DO BLANK^EDPCSV

 +3                SET X=TAB_"Total Patients"_TAB_ALL_TAB_TAB_TAB_TAB_ALL("elapsed")_TAB_ALL("triage")_TAB_ALL("wait")_TAB_TAB_ALL("admDec")_TAB_ALL("admDel")

 +4                DO ADD^EDPCSV(X)

                   DO BLANK^EDPCSV

 +5                SET X=TAB_TAB_TAB_TAB_"Total"_TAB_"Visit"_TAB_"Triage"_TAB_"Wait"_TAB_"Adm Dec"_TAB_"Adm Del"

 +6                DO ADD^EDPCSV(X)

                   DO BLANK^EDPCSV

 +7                SET X=TAB_TAB_TAB_"Patients Not Admitted"_TAB_NOT_TAB_NOT("elapsed")_TAB_NOT("triage")_TAB_NOT("wait")

 +8                DO ADD^EDPCSV(X)

                   DO BLANK^EDPCSV

 +9                SET X=TAB_TAB_TAB_"Patients Admitted"_TAB_ADM_TAB_ADM("elapsed")_TAB_ADM("triage")_TAB_ADM("wait")_TAB_ADM("admDec")_TAB_ADM("admDel")

 +10               DO ADD^EDPCSV(X)

                   DO BLANK^EDPCSV

 +11               SET X=TAB_TAB_TAB_"Disposition"

                   DO ADD^EDPCSV(X)

 +12               SET D=""

FOR

                       SET D=$ORDER(DISP(D))

                       if D=""

                           QUIT

                       IF DISP(D)

                           Begin DoDot:2

 +13                           SET X=D_TAB_DISP(D)_TAB_DISP(D,"elapsed")_TAB_DISP(D,"triage")_TAB_DISP(D,"wait")_TAB_DISP(D,"admDec")_TAB_DISP(D,"admDel")

 +14                           DO ADD^EDPCSV(X)

                           End DoDot:2

               End DoDot:1

               QUIT

 +15       DO XML^EDPX("<averages>")

 +16       SET X=$$XMLA^EDPX("average",.ALL)

           DO XML^EDPX(X)

 +17       SET X=$$XMLA^EDPX("average",.NOT)

           DO XML^EDPX(X)

 +18       SET X=$$XMLA^EDPX("average",.ADM)

           DO XML^EDPX(X)

 +19       SET I=""

FOR

               SET I=$ORDER(DISP(I))

               if I=""

                   QUIT

               IF DISP(I)

                   KILL ROW

                   MERGE ROW=DISP(I)

                   SET X=$$XMLA^EDPX("average",.ROW)

                   DO XML^EDPX(X)

 +20       DO XML^EDPX("</averages>")

 +21      ; include list of providers assigned

 +22       IF $ORDER(PROV(0))

               DO PROV^EDPRPT(.PROV)

 +23       QUIT

 +24      ;

INIT      ; Initialize counters and sums

 +1        NEW I,DA,X,Y,J

           SET (ALL,ADM,NOT)=0

 +2        FOR I="elapsed","triage","wait"

               SET (ALL(I),NOT(I),ADM(I))=0

 +3        FOR I="admDec","admDel"

               SET ADM(I)=0

 +4        SET X=""

FOR

               SET X=$ORDER(^EDPB(233.1,"AB","disposition",X))

               if X=""

                   QUIT

               Begin DoDot:1

 +5                SET DA=0

FOR

                       SET DA=$ORDER(^EDPB(233.1,"AB","disposition",X,DA))

                       if DA<1

                           QUIT

                       Begin DoDot:2

 +6                        SET Y=$$ECODE^EDPRPT(DA)

                           if '$LENGTH(Y)

                               QUIT

                           SET DISP(Y)=0

 +7                        FOR I="elapsed","triage","wait","admDec","admDel"

                               SET DISP(Y,I)=0

                       End DoDot:2

               End DoDot:1

 +8       ;TDP - Patch 2, Added additional disposition inits to prevent undefined

 +9       ;      errors.

 +10      ;S I=EDPSTA_"."_$P($P(X0,U),".",2)

 +11       SET I=EDPSTA_".disposition"

 +12       SET X=0

FOR

               SET X=$ORDER(^EDPB(233.2,"AS",I,X))

               if X=""

                   QUIT

               Begin DoDot:1

 +13               SET DA=0

FOR

                       SET DA=$ORDER(^EDPB(233.2,"AS",I,X,DA))

                       if DA=""

                           QUIT

                       Begin DoDot:2

 +14                       SET Y=$PIECE($GET(^EDPB(233.2,"AS",I,X,DA)),U)

 +15                       IF '$LENGTH(Y)

                               SET Y=$EXTRACT($TRANSLATE($PIECE($GET(^EDPB(233.2,"AS",I,X,DA)),U,2)," ","_"),1,30)

 +16                       IF $LENGTH(Y)

                               IF '$DATA(DISP(Y))

                                   Begin DoDot:3

 +17                                   SET DISP(Y)=0

 +18                                   FOR J="elapsed","triage","wait","admDec","admDel"

                                           SET DISP(Y,J)=0

                                   End DoDot:3

                       End DoDot:2

               End DoDot:1

 +19       SET DISP("none")=0

           FOR I="elapsed","triage","wait","admDec","admDel"

               SET DISP("none",I)=0

 +20       SET CUTOFF=$PIECE($$HADD^XLFDT($HOROLOG,,,,6),",",2)

           KILL ZTSAVE

 +21       QUIT

 +22      ;

LONG()    ; -- report running too long?

 +1       ;H 1 ;for testing only

 +2        QUIT ($PIECE($HOROLOG,",",2)>CUTOFF)

 +3       ;

ZTSAVE    ; Set up ZTSAVE to task remainder of report

 +1        NEW I

           FOR I="BEG","END","IN"

               SET ZTSAVE(I)=""

 +2        FOR I="ALL","NOT","ADM"

               SET ZTSAVE(I)=""

 +3        FOR I="ALL(","NOT(","ADM(","DISP(","PROV("

               SET ZTSAVE(I)=""

 +4        SET ZTRTN="TASK^EDPRPT1"

           SET ZTDESC="EDIS Activity Report"

 +5       ; bwf - 2/27/2012: This code seems to be incomplete. Adding kill statement to clean up ZTSAVE,ZTRTN and ZTDESC.

 +6       ; my guess is there needs to be the final call to ACTUALLY TASK this

 +7        KILL ZTRTN,ZTDESC,ZTSAVE

 +8        QUIT

 +9       ;

TASK      ; -- entry point to complete report in the background

 +1        NEW NOW

           SET NOW=$$NOW^XLFDT()

 +2        DO LOOP

 +3        MERGE ^XTMP("EDIS-"_ZTSK)=EDPXML

           KILL EDPXML

 +4        SET ^XTMP("EDIS-"_ZTSK,0)=$$FMADD^XLFDT(NOW,1)_U_NOW_"^EDIS Activity Report"

 +5        KILL ZTSK

 +6        QUIT

EDPRPT1.m