- HLCSRPT4 ;OIFO-O/LJA - Error Listing code ;3/18/02 10:19 [ 04/02/2003 8:38 AM ]
- ;;1.6;HEALTH LEVEL SEVEN;**1004**;APR 1, 2003
- ;;1.6;HEALTH LEVEL SEVEN;**85**;Oct 13, 1995
- ;
- ; Patch HL*1.6*85 created a significant amount of code; enough
- ; that this routine had to be created to hold it.
- ;
- LOADERR ; Find latest NUMERR statuses in ERRDTB->ERRDTE date range. ;HL*1.6*85
- ;ERRDTB,ERRDTE,HLCSER,HLCSTER1,NUMERR -- req
- ;
- N CT,ERR,ERR4,IEN,TIME
- ;
- KILL ^TMP("HLERR",$J),^TMP("ERRLST",$J)
- ;
- S HLERR=3.9,CT=0
- F S HLERR=$O(^HLMA("AG",HLERR)) QUIT:HLERR'>0!(HLERR>7) D
- . S IEN773=0
- . F S IEN773=$O(^HLMA("AG",HLERR,IEN773)) Q:IEN773'>0 D
- . . S ERR4=$P($G(^HLMA(+IEN773,"P")),U,4) QUIT:ERR4'>0 ;->
- . . D CHKERR(ERR4,IEN773,ERRDTB,ERRDTE)
- . . S CT=CT+1 W:'(CT#1000) "."
- ;
- S ERR=0
- F S ERR=$O(^TMP("HLERR",$J,ERR)) Q:ERR'>0 D
- . S TIME=0
- . F S TIME=$O(^TMP("HLERR",$J,ERR,TIME)) Q:TIME'>0 D
- . . S IEN=0
- . . F S IEN=$O(^TMP("HLERR",$J,ERR,TIME,IEN)) Q:IEN'>0 D
- . . . S ^TMP("ERRLST",$J,+ERR,+IEN)=""
- ;
- KILL ^TMP("HLERR",$J)
- ;
- QUIT
- ;
- CHKERR(ERR4,IEN773,DTB,DTE) ; Should this entry be included? ;HL*1.6*85
- ;NUMERR -- req
- ;
- N ERRNO,OLD773,OLDPDT,PROCDT
- ;
- ; Processing date/time check...
- S PROCDT=$$PROCDT(IEN773) QUIT:PROCDT'>0 ;->
- I PROCDT<DTB!(PROCDT>DTE) QUIT ;->
- ; OK. Date check passes. But, is it among NUMERR latest?
- ;
- ; How many errors recorded for error status?
- S ERRNO=$G(^TMP("HLERR",$J,ERR4))
- ;
- ; Number of errors recorded less than # maximum per status...
- I ERRNO<NUMERR D RECERR(ERR4,IEN773) QUIT ;->
- ;
- ; Find oldest entry's process date/time & last 773 IEN...
- S OLDPDT=$O(^TMP("HLERR",$J,ERR4,0)) QUIT:OLDPDT'>0 ;->
- S OLD773=$O(^TMP("HLERR",$J,ERR4,+OLDPDT,0)) QUIT:OLD773'>0 ;->
- ;
- ; Now see if "this" error is newer...
- QUIT:PROCDT<OLDPDT ;->
- I PROCDT=OLDPDT,IEN773<OLD773 QUIT ;->
- ;
- ; Max number errors reached, but this error is newer than newest...
- ;
- ; Zilch oldest entry, then record "this" error...
- D KILLERR(ERR4,OLDPDT,OLD773)
- D RECERR(ERR4,IEN773)
- ;
- QUIT
- ;
- KILLERR(ERR4,OLDPDT,OLD773) ; Remove entry and adjust counts... ;HL*1.6*85
- N NUM
- ;
- KILL ^TMP("HLERR",$J,ERR4,OLDPDT,OLD773)
- ;
- I $O(^TMP("HLERR",$J,ERR4,OLDPDT,0))'>0 D
- . KILL ^TMP("HLERR",$J,ERR4,OLDPDT)
- I $O(^TMP("HLERR",$J,ERR4,OLDPDT,0))>0 D
- . S NUM=$G(^TMP("HLERR",$J,ERR4,OLDPDT))-1,NUM=$S(NUM'<0:+NUM,1:0)
- . S ^TMP("HLERR",$J,ERR4,OLDPDT)=NUM
- ;
- I $O(^TMP("HLERR",$J,ERR4,0))'>0 D
- . KILL ^TMP("HLERR",$J,ERR4)
- I $O(^TMP("HLERR",$J,ERR4,0))>0 D
- . S NUM=$G(^TMP("HLERR",$J,ERR4))-1,NUM=$S(NUM'<0:+NUM,1:0)
- . S ^TMP("HLERR",$J,ERR4)=NUM
- ;
- I $O(^TMP("HLERR",$J,0))'>0 D
- . KILL ^TMP("HLERR",$J)
- I $O(^TMP("HLERR",$J,0))>0 D
- . S NUM=$G(^TMP("HLERR",$J))-1,NUM=$S(NUM'<0:+NUM,1:0)
- . S ^TMP("HLERR",$J)=NUM
- ;
- QUIT
- ;
- RECERR(ERR4,IEN773) ; Store error in ^TMP("HLERR",$J,STATUS,IEN773) ;HL*1.6*85
- S ^TMP("HLERR",$J,ERR4)=$G(^TMP("HLERR",$J,ERR4))+1
- S ^TMP("HLERR",$J,ERR4,PROCDT)=$G(^TMP("HLERR",$J,ERR4,PROCDT))+1
- S ^TMP("HLERR",$J,ERR4,PROCDT,IEN773)=""
- QUIT
- ;
- SETUP() ; Setup "limit" variables... ;HL*1.6*85
- S TYPEINFO=$$TYPEINFO QUIT:TYPEINFO']"" "" ;->
- ;
- S (ERRDTB,ERRDTE,NUMERR)=""
- W !!," If you answer NO below, you will be allowed to specify the number of"
- W !," errors to be included in the report."
- W !
- S NUMERR=$$YN("Print all errors","No") QUIT:NUMERR']"" "" ;->
- S NUMERR=$S(NUMERR=1:9999999,1:$$NUMERR) QUIT:NUMERR'>0 "" ;->
- I NUMERR=9999999 D
- . W !!," All errors in the date range you specify next will be included"
- . W !," in the report."
- I NUMERR'=9999999 D
- . W !!," The newest ",NUMERR," errors, for every error status, in the date range you"
- . W !," specify next will be included in the report."
- W !!,"The first entry at your site is from ",$$FMTE^XLFDT($O(^HL(772,"B",2840000))),"."
- W !
- S1 S ERRDTB=$$DATE("Enter START DATE/TIME",,$$FMADD^XLFDT($$DT^XLFDT,-90)) QUIT:ERRDTB'>0 "" ;->
- W !
- S ERRDTE=$$DATE("Enter END DATE/TIME",ERRDTB,"NOW") QUIT:ERRDTE'>0 "" ;->
- I ERRDTB=ERRDTE D G S1 ;->
- . W !!,"You cannot enter the same values for the beginning and ending times!"
- . W !
- QUIT 1
- ;
- NUMERR() ; How many errors, maximum, does user want to see ;HL*1.6*85
- ; HLCSER -- req
- N DIR,DIRUT,DTOUT,DUOUT,X,Y
- W !!,"Enter the maximum number errors to report for every error status."
- W !
- S DIR(0)="N",DIR("A")="Enter maximum number errors/status"
- S DIR("B")=999
- S DIR("?",1)="If you enter '1000' for the maximum number errors/status..."
- S DIR("?",2)=""
- I HLCSER="ALL" D
- . S DIR("?",3)="... The most recent 1000 errors for every error type will be included in the"
- . S DIR("?",4)="... report. If two different error types exist, and each error type has"
- . S DIR("?",5)="... more than 1000 entries, then 2000 errors will be reported."
- . S DIR("?")="... (I.e., 1000 errors per error type.)"
- I HLCSER'="ALL" D
- . S DIR("?",3)="... The most recent 1000 errors for the error type you just selected"
- . S DIR("?")="... will be included in the report."
- D ^DIR
- QUIT $S(Y>0:+Y,1:"")
- ;
- DATE(PMT,BDT,PDT) ; Entry of date for looping ;HL*1.6*85
- N DIR,DIRUT,DTOUT,DUOUT,X,Y
- S BDT=$S($G(BDT)?7N.E:BDT,1:"")
- S DIR(0)="DA^"_$G(BDT)_"::ET"
- I $G(BDT)>0 D
- . N TXT
- . S TXT="Enter a date/time after "_$$FMTE^XLFDT(BDT)_"..."
- . S DIR("?")=TXT
- S DIR("A")=PMT_": "
- I $G(PDT)?7N.E S DIR("B")=$P($$FMTE^XLFDT(PDT),":",1,2)
- I $G(PDT)="NOW" S DIR("B")="NOW"
- D ^DIR
- I Y?7N.E,$G(PMT)="NOW",$G(PDT)="NOW" QUIT 9999999.24 ;->
- QUIT $S(Y>0:+Y,1:"")
- ;
- YN(PMT,DEF,FF) ; Generic YES/NO DIR call... ;HL*1.6*85
- N DIR,DIRUT,DTOUT,DUOUT,X,Y
- F X=1:1:$G(FF) W !
- S DIR(0)="Y",DIR("A")=PMT
- S:$G(DEF)]"" DIR("B")=DEF
- D ^DIR
- QUIT:$D(DIRUT)!($D(DTOUT))!($D(DUOUT)) "" ;->
- QUIT $S(Y=1:1,1:0)
- ;
- TMPLOG ; Reset ^TMP("TMPLOG") data created in ERRRPT to ^TMP("TLOG") format
- ; expected by the browser. (See DISPLAY^HLCSRPT)
- ; [This subroutine created by HL*1.6*85.]
- N HLCSLN,PROCDT,IEN773
- S HLCSLN=0,PROCDT="zzzzz"
- F S PROCDT=$O(^TMP("TMPLOG",$J,PROCDT),-1) Q:PROCDT']"" D
- . S IEN773=":"
- . F S IEN773=$O(^TMP("TMPLOG",$J,PROCDT,IEN773),-1) Q:IEN773'>0 D
- . . S HLCSLN=HLCSLN+1
- . . S ^TMP("TLOG",$J,+HLCSLN)=$G(^TMP("TMPLOG",$J,PROCDT,IEN773))
- KILL ^TMP("TMPLOG",$J)
- QUIT
- ;
- OKDATE(IEN773,DTBEG,DTEND) ; Does 773 processing time fall in date range? ;HL*1.6*85
- N PROCDT
- ;
- ; Check what's passed in...
- QUIT:'$D(^HLMA(+IEN773,0)) "" ;->
- QUIT:$G(DTBEG)'?7N.E "" ;->
- QUIT:$G(DTEND)'?7N.E "" ;->
- ;
- ; Get processing date/time...
- S PROCDT=$$PROCDT(IEN773) QUIT:PROCDT'?7N.E "" ;->
- ;
- ; Compare dates...
- I PROCDT=DTBEG!(PROCDT=DTEND) QUIT 1 ;->
- QUIT:PROCDT<DTBEG "" ;->
- QUIT:PROCDT>DTEND "" ;->
- ;
- QUIT 1
- ;
- PROCDT(IEN773) ; Return 773'S processing date (1st), or if not available
- ; return the 772 creation date/time. ;HL*1.6*85
- N PROCDT
- S PROCDT=$P($G(^HLMA(+IEN773,"S")),U) QUIT:PROCDT?7N.E PROCDT ;->
- QUIT $P($G(^HL(772,+$G(^HLMA(+IEN773,0)),0)),U)
- ;
- DTORTM(DTB,DTE,PDT) ; Show date or time?
- QUIT $S($E(DTB,1,7)=$E(DTE,1,7):$$TM(PDT),1:$$DT(PDT))
- ;
- TM(PDT) ; Show the 5 character hh:mm time
- QUIT $E($P($$FMTE^XLFDT(+PDT),"@",2),1,5)
- ;
- DT(PDT) ; Show the 8 character mm/dd/yy date
- QUIT $E(PDT,4,5)_"/"_$E(PDT,6,7)_"/"_$E(PDT,2,3)
- ;
- TYPEINFO() ; Display error type or application information?
- N DIR,DIRUT,DTOUT,DUOUT,X,Y
- W !!,"Select the report view now. There are two report views. Both list the "
- W !,"internal entry number from the HL7 Message Administration file (#773) entry,"
- W !,"message ID, processing date or time, and logical link. The two report views"
- W !,"differ in the remainder of the information displayed on the report. "
- S DIR(0)="S^1:Display message, event, & application data;2:Display error type"
- S DIR("A")="Select data to display",DIR("B")=1
- S DIR("?",1)="Select the data to be displayed in the last few columns of the report after"
- S DIR("?")="the IEN, message ID, processing date or time, and logical link."
- D ^DIR
- QUIT $S(Y>0:+Y,1:"")
- ;
- EOR ;HLCSRPT4 - Error Listing code ;3/18/02 10:19
- HLCSRPT4 ;OIFO-O/LJA - Error Listing code ;3/18/02 10:19 [ 04/02/2003 8:38 AM ]
- +1 ;;1.6;HEALTH LEVEL SEVEN;**1004**;APR 1, 2003
- +2 ;;1.6;HEALTH LEVEL SEVEN;**85**;Oct 13, 1995
- +3 ;
- +4 ; Patch HL*1.6*85 created a significant amount of code; enough
- +5 ; that this routine had to be created to hold it.
- +6 ;
- LOADERR ; Find latest NUMERR statuses in ERRDTB->ERRDTE date range. ;HL*1.6*85
- +1 ;ERRDTB,ERRDTE,HLCSER,HLCSTER1,NUMERR -- req
- +2 ;
- +3 NEW CT,ERR,ERR4,IEN,TIME
- +4 ;
- +5 KILL ^TMP("HLERR",$JOB),^TMP("ERRLST",$JOB)
- +6 ;
- +7 SET HLERR=3.9
- SET CT=0
- +8 FOR
- SET HLERR=$ORDER(^HLMA("AG",HLERR))
- IF HLERR'>0!(HLERR>7)
- QUIT
- Begin DoDot:1
- +9 SET IEN773=0
- +10 FOR
- SET IEN773=$ORDER(^HLMA("AG",HLERR,IEN773))
- IF IEN773'>0
- QUIT
- Begin DoDot:2
- +11 ;->
- SET ERR4=$PIECE($GET(^HLMA(+IEN773,"P")),U,4)
- IF ERR4'>0
- QUIT
- +12 DO CHKERR(ERR4,IEN773,ERRDTB,ERRDTE)
- +13 SET CT=CT+1
- IF '(CT#1000)
- WRITE "."
- End DoDot:2
- End DoDot:1
- +14 ;
- +15 SET ERR=0
- +16 FOR
- SET ERR=$ORDER(^TMP("HLERR",$JOB,ERR))
- IF ERR'>0
- QUIT
- Begin DoDot:1
- +17 SET TIME=0
- +18 FOR
- SET TIME=$ORDER(^TMP("HLERR",$JOB,ERR,TIME))
- IF TIME'>0
- QUIT
- Begin DoDot:2
- +19 SET IEN=0
- +20 FOR
- SET IEN=$ORDER(^TMP("HLERR",$JOB,ERR,TIME,IEN))
- IF IEN'>0
- QUIT
- Begin DoDot:3
- +21 SET ^TMP("ERRLST",$JOB,+ERR,+IEN)=""
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +22 ;
- +23 KILL ^TMP("HLERR",$JOB)
- +24 ;
- +25 QUIT
- +26 ;
- CHKERR(ERR4,IEN773,DTB,DTE) ; Should this entry be included? ;HL*1.6*85
- +1 ;NUMERR -- req
- +2 ;
- +3 NEW ERRNO,OLD773,OLDPDT,PROCDT
- +4 ;
- +5 ; Processing date/time check...
- +6 ;->
- SET PROCDT=$$PROCDT(IEN773)
- IF PROCDT'>0
- QUIT
- +7 ;->
- IF PROCDT<DTB!(PROCDT>DTE)
- QUIT
- +8 ; OK. Date check passes. But, is it among NUMERR latest?
- +9 ;
- +10 ; How many errors recorded for error status?
- +11 SET ERRNO=$GET(^TMP("HLERR",$JOB,ERR4))
- +12 ;
- +13 ; Number of errors recorded less than # maximum per status...
- +14 ;->
- IF ERRNO<NUMERR
- DO RECERR(ERR4,IEN773)
- QUIT
- +15 ;
- +16 ; Find oldest entry's process date/time & last 773 IEN...
- +17 ;->
- SET OLDPDT=$ORDER(^TMP("HLERR",$JOB,ERR4,0))
- IF OLDPDT'>0
- QUIT
- +18 ;->
- SET OLD773=$ORDER(^TMP("HLERR",$JOB,ERR4,+OLDPDT,0))
- IF OLD773'>0
- QUIT
- +19 ;
- +20 ; Now see if "this" error is newer...
- +21 ;->
- IF PROCDT<OLDPDT
- QUIT
- +22 ;->
- IF PROCDT=OLDPDT
- IF IEN773<OLD773
- QUIT
- +23 ;
- +24 ; Max number errors reached, but this error is newer than newest...
- +25 ;
- +26 ; Zilch oldest entry, then record "this" error...
- +27 DO KILLERR(ERR4,OLDPDT,OLD773)
- +28 DO RECERR(ERR4,IEN773)
- +29 ;
- +30 QUIT
- +31 ;
- KILLERR(ERR4,OLDPDT,OLD773) ; Remove entry and adjust counts... ;HL*1.6*85
- +1 NEW NUM
- +2 ;
- +3 KILL ^TMP("HLERR",$JOB,ERR4,OLDPDT,OLD773)
- +4 ;
- +5 IF $ORDER(^TMP("HLERR",$JOB,ERR4,OLDPDT,0))'>0
- Begin DoDot:1
- +6 KILL ^TMP("HLERR",$JOB,ERR4,OLDPDT)
- End DoDot:1
- +7 IF $ORDER(^TMP("HLERR",$JOB,ERR4,OLDPDT,0))>0
- Begin DoDot:1
- +8 SET NUM=$GET(^TMP("HLERR",$JOB,ERR4,OLDPDT))-1
- SET NUM=$SELECT(NUM'<0:+NUM,1:0)
- +9 SET ^TMP("HLERR",$JOB,ERR4,OLDPDT)=NUM
- End DoDot:1
- +10 ;
- +11 IF $ORDER(^TMP("HLERR",$JOB,ERR4,0))'>0
- Begin DoDot:1
- +12 KILL ^TMP("HLERR",$JOB,ERR4)
- End DoDot:1
- +13 IF $ORDER(^TMP("HLERR",$JOB,ERR4,0))>0
- Begin DoDot:1
- +14 SET NUM=$GET(^TMP("HLERR",$JOB,ERR4))-1
- SET NUM=$SELECT(NUM'<0:+NUM,1:0)
- +15 SET ^TMP("HLERR",$JOB,ERR4)=NUM
- End DoDot:1
- +16 ;
- +17 IF $ORDER(^TMP("HLERR",$JOB,0))'>0
- Begin DoDot:1
- +18 KILL ^TMP("HLERR",$JOB)
- End DoDot:1
- +19 IF $ORDER(^TMP("HLERR",$JOB,0))>0
- Begin DoDot:1
- +20 SET NUM=$GET(^TMP("HLERR",$JOB))-1
- SET NUM=$SELECT(NUM'<0:+NUM,1:0)
- +21 SET ^TMP("HLERR",$JOB)=NUM
- End DoDot:1
- +22 ;
- +23 QUIT
- +24 ;
- RECERR(ERR4,IEN773) ; Store error in ^TMP("HLERR",$J,STATUS,IEN773) ;HL*1.6*85
- +1 SET ^TMP("HLERR",$JOB,ERR4)=$GET(^TMP("HLERR",$JOB,ERR4))+1
- +2 SET ^TMP("HLERR",$JOB,ERR4,PROCDT)=$GET(^TMP("HLERR",$JOB,ERR4,PROCDT))+1
- +3 SET ^TMP("HLERR",$JOB,ERR4,PROCDT,IEN773)=""
- +4 QUIT
- +5 ;
- SETUP() ; Setup "limit" variables... ;HL*1.6*85
- +1 ;->
- SET TYPEINFO=$$TYPEINFO
- IF TYPEINFO']""
- QUIT ""
- +2 ;
- +3 SET (ERRDTB,ERRDTE,NUMERR)=""
- +4 WRITE !!," If you answer NO below, you will be allowed to specify the number of"
- +5 WRITE !," errors to be included in the report."
- +6 WRITE !
- +7 ;->
- SET NUMERR=$$YN("Print all errors","No")
- IF NUMERR']""
- QUIT ""
- +8 ;->
- SET NUMERR=$SELECT(NUMERR=1:9999999,1:$$NUMERR)
- IF NUMERR'>0
- QUIT ""
- +9 IF NUMERR=9999999
- Begin DoDot:1
- +10 WRITE !!," All errors in the date range you specify next will be included"
- +11 WRITE !," in the report."
- End DoDot:1
- +12 IF NUMERR'=9999999
- Begin DoDot:1
- +13 WRITE !!," The newest ",NUMERR," errors, for every error status, in the date range you"
- +14 WRITE !," specify next will be included in the report."
- End DoDot:1
- +15 WRITE !!,"The first entry at your site is from ",$$FMTE^XLFDT($ORDER(^HL(772,"B",2840000))),"."
- +16 WRITE !
- S1 ;->
- SET ERRDTB=$$DATE("Enter START DATE/TIME",,$$FMADD^XLFDT($$DT^XLFDT,-90))
- IF ERRDTB'>0
- QUIT ""
- +1 WRITE !
- +2 ;->
- SET ERRDTE=$$DATE("Enter END DATE/TIME",ERRDTB,"NOW")
- IF ERRDTE'>0
- QUIT ""
- +3 ;->
- IF ERRDTB=ERRDTE
- Begin DoDot:1
- +4 WRITE !!,"You cannot enter the same values for the beginning and ending times!"
- +5 WRITE !
- End DoDot:1
- GOTO S1
- +6 QUIT 1
- +7 ;
- NUMERR() ; How many errors, maximum, does user want to see ;HL*1.6*85
- +1 ; HLCSER -- req
- +2 NEW DIR,DIRUT,DTOUT,DUOUT,X,Y
- +3 WRITE !!,"Enter the maximum number errors to report for every error status."
- +4 WRITE !
- +5 SET DIR(0)="N"
- SET DIR("A")="Enter maximum number errors/status"
- +6 SET DIR("B")=999
- +7 SET DIR("?",1)="If you enter '1000' for the maximum number errors/status..."
- +8 SET DIR("?",2)=""
- +9 IF HLCSER="ALL"
- Begin DoDot:1
- +10 SET DIR("?",3)="... The most recent 1000 errors for every error type will be included in the"
- +11 SET DIR("?",4)="... report. If two different error types exist, and each error type has"
- +12 SET DIR("?",5)="... more than 1000 entries, then 2000 errors will be reported."
- +13 SET DIR("?")="... (I.e., 1000 errors per error type.)"
- End DoDot:1
- +14 IF HLCSER'="ALL"
- Begin DoDot:1
- +15 SET DIR("?",3)="... The most recent 1000 errors for the error type you just selected"
- +16 SET DIR("?")="... will be included in the report."
- End DoDot:1
- +17 DO ^DIR
- +18 QUIT $SELECT(Y>0:+Y,1:"")
- +19 ;
- DATE(PMT,BDT,PDT) ; Entry of date for looping ;HL*1.6*85
- +1 NEW DIR,DIRUT,DTOUT,DUOUT,X,Y
- +2 SET BDT=$SELECT($GET(BDT)?7N.E:BDT,1:"")
- +3 SET DIR(0)="DA^"_$GET(BDT)_"::ET"
- +4 IF $GET(BDT)>0
- Begin DoDot:1
- +5 NEW TXT
- +6 SET TXT="Enter a date/time after "_$$FMTE^XLFDT(BDT)_"..."
- +7 SET DIR("?")=TXT
- End DoDot:1
- +8 SET DIR("A")=PMT_": "
- +9 IF $GET(PDT)?7N.E
- SET DIR("B")=$PIECE($$FMTE^XLFDT(PDT),":",1,2)
- +10 IF $GET(PDT)="NOW"
- SET DIR("B")="NOW"
- +11 DO ^DIR
- +12 ;->
- IF Y?7N.E
- IF $GET(PMT)="NOW"
- IF $GET(PDT)="NOW"
- QUIT 9999999.24
- +13 QUIT $SELECT(Y>0:+Y,1:"")
- +14 ;
- YN(PMT,DEF,FF) ; Generic YES/NO DIR call... ;HL*1.6*85
- +1 NEW DIR,DIRUT,DTOUT,DUOUT,X,Y
- +2 FOR X=1:1:$GET(FF)
- WRITE !
- +3 SET DIR(0)="Y"
- SET DIR("A")=PMT
- +4 IF $GET(DEF)]""
- SET DIR("B")=DEF
- +5 DO ^DIR
- +6 ;->
- IF $DATA(DIRUT)!($DATA(DTOUT))!($DATA(DUOUT))
- QUIT ""
- +7 QUIT $SELECT(Y=1:1,1:0)
- +8 ;
- TMPLOG ; Reset ^TMP("TMPLOG") data created in ERRRPT to ^TMP("TLOG") format
- +1 ; expected by the browser. (See DISPLAY^HLCSRPT)
- +2 ; [This subroutine created by HL*1.6*85.]
- +3 NEW HLCSLN,PROCDT,IEN773
- +4 SET HLCSLN=0
- SET PROCDT="zzzzz"
- +5 FOR
- SET PROCDT=$ORDER(^TMP("TMPLOG",$JOB,PROCDT),-1)
- IF PROCDT']""
- QUIT
- Begin DoDot:1
- +6 SET IEN773=":"
- +7 FOR
- SET IEN773=$ORDER(^TMP("TMPLOG",$JOB,PROCDT,IEN773),-1)
- IF IEN773'>0
- QUIT
- Begin DoDot:2
- +8 SET HLCSLN=HLCSLN+1
- +9 SET ^TMP("TLOG",$JOB,+HLCSLN)=$GET(^TMP("TMPLOG",$JOB,PROCDT,IEN773))
- End DoDot:2
- End DoDot:1
- +10 KILL ^TMP("TMPLOG",$JOB)
- +11 QUIT
- +12 ;
- OKDATE(IEN773,DTBEG,DTEND) ; Does 773 processing time fall in date range? ;HL*1.6*85
- +1 NEW PROCDT
- +2 ;
- +3 ; Check what's passed in...
- +4 ;->
- IF '$DATA(^HLMA(+IEN773,0))
- QUIT ""
- +5 ;->
- IF $GET(DTBEG)'?7N.E
- QUIT ""
- +6 ;->
- IF $GET(DTEND)'?7N.E
- QUIT ""
- +7 ;
- +8 ; Get processing date/time...
- +9 ;->
- SET PROCDT=$$PROCDT(IEN773)
- IF PROCDT'?7N.E
- QUIT ""
- +10 ;
- +11 ; Compare dates...
- +12 ;->
- IF PROCDT=DTBEG!(PROCDT=DTEND)
- QUIT 1
- +13 ;->
- IF PROCDT<DTBEG
- QUIT ""
- +14 ;->
- IF PROCDT>DTEND
- QUIT ""
- +15 ;
- +16 QUIT 1
- +17 ;
- PROCDT(IEN773) ; Return 773'S processing date (1st), or if not available
- +1 ; return the 772 creation date/time. ;HL*1.6*85
- +2 NEW PROCDT
- +3 ;->
- SET PROCDT=$PIECE($GET(^HLMA(+IEN773,"S")),U)
- IF PROCDT?7N.E
- QUIT PROCDT
- +4 QUIT $PIECE($GET(^HL(772,+$GET(^HLMA(+IEN773,0)),0)),U)
- +5 ;
- DTORTM(DTB,DTE,PDT) ; Show date or time?
- +1 QUIT $SELECT($EXTRACT(DTB,1,7)=$EXTRACT(DTE,1,7):$$TM(PDT),1:$$DT(PDT))
- +2 ;
- TM(PDT) ; Show the 5 character hh:mm time
- +1 QUIT $EXTRACT($PIECE($$FMTE^XLFDT(+PDT),"@",2),1,5)
- +2 ;
- DT(PDT) ; Show the 8 character mm/dd/yy date
- +1 QUIT $EXTRACT(PDT,4,5)_"/"_$EXTRACT(PDT,6,7)_"/"_$EXTRACT(PDT,2,3)
- +2 ;
- TYPEINFO() ; Display error type or application information?
- +1 NEW DIR,DIRUT,DTOUT,DUOUT,X,Y
- +2 WRITE !!,"Select the report view now. There are two report views. Both list the "
- +3 WRITE !,"internal entry number from the HL7 Message Administration file (#773) entry,"
- +4 WRITE !,"message ID, processing date or time, and logical link. The two report views"
- +5 WRITE !,"differ in the remainder of the information displayed on the report. "
- +6 SET DIR(0)="S^1:Display message, event, & application data;2:Display error type"
- +7 SET DIR("A")="Select data to display"
- SET DIR("B")=1
- +8 SET DIR("?",1)="Select the data to be displayed in the last few columns of the report after"
- +9 SET DIR("?")="the IEN, message ID, processing date or time, and logical link."
- +10 DO ^DIR
- +11 QUIT $SELECT(Y>0:+Y,1:"")
- +12 ;
- EOR ;HLCSRPT4 - Error Listing code ;3/18/02 10:19
