- EDPRPT13 ;SLC/BWF - Removed in Error Report ;4/25/13 3:15pm
- ;;2.0;EMERGENCY DEPARTMENT;**6**;May 2, 2012;Build 200
- ;
- Q
- ; INPUT:
- ; BEG - Beginning Date
- ; END - Ending Date
- EN(BEG,END,CSV) ; Get report of patients removed in error
- N CHKDT,LOG,ROW,TAB,X0,X1,X3,CNT,I,LOGH,FOUND,X
- S CNT("ALL")=0 ; set counter to 0
- D:'$G(CSV) XML^EDPX("<removedInErrorEntries>") I $G(CSV) D ;headers
- . S TAB=$C(9)
- . S X="ED IEN"_TAB_"Time In"_TAB_"Time Out"_TAB_"Restored to Board"_TAB_"Restored Date/Time"_TAB_"Restored By"_TAB_"Closed By"_TAB_"Closed Date/Time" ;_TAB_"ER Spec Visit"
- . D ADD^EDPCSV(X)
- S CHKDT=$G(BEG)-.000001
- F S CHKDT=$O(^EDP(230,"ARIE",CHKDT)) Q:'CHKDT!(CHKDT>END) D
- .S LOG=0 F S LOG=$O(^EDP(230,"ARIE",CHKDT,LOG)) Q:'LOG D
- ..S X0=^EDP(230,LOG,0),X1=$G(^(1)),X3=$G(^(3))
- ..;***pij change "ID" due to undef error 4/24/2013
- ..;N ROW S ROW("ID")=LOG
- ..N ROW S ROW("id")=LOG
- ..;***
- ..S ROW("patientName")=$$GET1^DIQ(2,$P(X0,U,6),.01)
- ..S ROW("timeInED")=$P(X0,U,8)
- ..S ROW("timeOutED")=$p(X0,U,9)
- ..S ROW("restored")=$P(X0,U,17)
- ..S ROW("restoredDateTime")=$P(X0,U,19)
- ..S ROW("restoredBy")=$$GET1^DIQ(200,$P(X0,U,18),.01)
- ..; initialize closedby and closedDateTime
- ..S (ROW("closedBy"),ROW("closedDateTime"))=""
- ..; look at the appropriate log history entry to get who closed this record
- ..S FOUND=0
- ..S LOGH="A" F S LOGH=$O(^EDP(230.1,"B",LOG,LOGH),-1) Q:'LOGH!(FOUND) D
- ...S X3=$G(^EDP(230.1,LOGH,3))
- ...I $P(X3,U,9) D
- ....S ROW("closedBy")=$$GET1^DIQ(200,$P(X3,U,11),.01),ROW("closedDateTime")=$P(X3,U,10)
- ....S FOUND=1
- ..;S ROW("closedBy")=$$GET1^DIQ(200,$P(X0,U,16),.01)
- ..;S ROW("closedDateTime")=$P(X0,U,15)
- ..S ROW("ssn")=$S($P(X0,U,5):$P(X0,U,5),'$P(X0,U,5):$$SSN^DPTLK1($P(X0,U,6)),1:"")
- ..I '$G(CSV) S X=$$XMLA^EDPX("log",.ROW) D XML^EDPX(X) Q
- ..S X=ROW("id")
- ..F I="patientName","timeInED","timeOutED","restored","restoredDateTime","restoredBy","closedBy","closedDateTime" D
- ...S X=X_$C(9)_$G(ROW(I)) D ADD^EDPCSV(X)
- D:'$G(CSV) XML^EDPX("</removedInErrorEntries>")
- Q
- ;
- INIT ;
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HEDPRPT13 2100 printed Feb 18, 2025@23:18:45 Page 2
- EDPRPT13 ;SLC/BWF - Removed in Error Report ;4/25/13 3:15pm
- +1 ;;2.0;EMERGENCY DEPARTMENT;**6**;May 2, 2012;Build 200
- +2 ;
- +3 QUIT
- +4 ; INPUT:
- +5 ; BEG - Beginning Date
- +6 ; END - Ending Date
- EN(BEG,END,CSV) ; Get report of patients removed in error
- +1 NEW CHKDT,LOG,ROW,TAB,X0,X1,X3,CNT,I,LOGH,FOUND,X
- +2 ; set counter to 0
- SET CNT("ALL")=0
- +3 ;headers
- if '$GET(CSV)
- DO XML^EDPX("<removedInErrorEntries>")
- IF $GET(CSV)
- Begin DoDot:1
- +4 SET TAB=$CHAR(9)
- +5 ;_TAB_"ER Spec Visit"
- SET X="ED IEN"_TAB_"Time In"_TAB_"Time Out"_TAB_"Restored to Board"_TAB_"Restored Date/Time"_TAB_"Restored By"_TAB_"Closed By"_TAB_"Closed Date/Time"
- +6 DO ADD^EDPCSV(X)
- End DoDot:1
- +7 SET CHKDT=$GET(BEG)-.000001
- +8 FOR
- SET CHKDT=$ORDER(^EDP(230,"ARIE",CHKDT))
- if 'CHKDT!(CHKDT>END)
- QUIT
- Begin DoDot:1
- +9 SET LOG=0
- FOR
- SET LOG=$ORDER(^EDP(230,"ARIE",CHKDT,LOG))
- if 'LOG
- QUIT
- Begin DoDot:2
- +10 SET X0=^EDP(230,LOG,0)
- SET X1=$GET(^(1))
- SET X3=$GET(^(3))
- +11 ;***pij change "ID" due to undef error 4/24/2013
- +12 ;N ROW S ROW("ID")=LOG
- +13 NEW ROW
- SET ROW("id")=LOG
- +14 ;***
- +15 SET ROW("patientName")=$$GET1^DIQ(2,$PIECE(X0,U,6),.01)
- +16 SET ROW("timeInED")=$PIECE(X0,U,8)
- +17
- *** ERROR ***
- SET ROW("timeOutED")=$p(X0,U,9)
- +18 SET ROW("restored")=$PIECE(X0,U,17)
- +19 SET ROW("restoredDateTime")=$PIECE(X0,U,19)
- +20 SET ROW("restoredBy")=$$GET1^DIQ(200,$PIECE(X0,U,18),.01)
- +21 ; initialize closedby and closedDateTime
- +22 SET (ROW("closedBy"),ROW("closedDateTime"))=""
- +23 ; look at the appropriate log history entry to get who closed this record
- +24 SET FOUND=0
- +25 SET LOGH="A"
- FOR
- SET LOGH=$ORDER(^EDP(230.1,"B",LOG,LOGH),-1)
- if 'LOGH!(FOUND)
- QUIT
- Begin DoDot:3
- +26 SET X3=$GET(^EDP(230.1,LOGH,3))
- +27 IF $PIECE(X3,U,9)
- Begin DoDot:4
- +28 SET ROW("closedBy")=$$GET1^DIQ(200,$PIECE(X3,U,11),.01)
- SET ROW("closedDateTime")=$PIECE(X3,U,10)
- +29 SET FOUND=1
- End DoDot:4
- End DoDot:3
- +30 ;S ROW("closedBy")=$$GET1^DIQ(200,$P(X0,U,16),.01)
- +31 ;S ROW("closedDateTime")=$P(X0,U,15)
- +32 SET ROW("ssn")=$SELECT($PIECE(X0,U,5):$PIECE(X0,U,5),'$PIECE(X0,U,5):$$SSN^DPTLK1($PIECE(X0,U,6)),1:"")
- +33 IF '$GET(CSV)
- SET X=$$XMLA^EDPX("log",.ROW)
- DO XML^EDPX(X)
- QUIT
- +34 SET X=ROW("id")
- +35 FOR I="patientName","timeInED","timeOutED","restored","restoredDateTime","restoredBy","closedBy","closedDateTime"
- Begin DoDot:3
- +36 SET X=X_$CHAR(9)_$GET(ROW(I))
- DO ADD^EDPCSV(X)
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +37 if '$GET(CSV)
- DO XML^EDPX("</removedInErrorEntries>")
- +38 QUIT
- +39 ;
- INIT ;
- +1 QUIT
