Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: HLCSRPT4

Package: Health Level Seven

Routine: HLCSRPT4


Information

HLCSRPT4 ;OIFO-O/LJA - Error Listing code ;3/18/02 10:19

Source Information

Source file <HLCSRPT4.m>

Entry Points

Name Comments DBIA/ICR reference
LOADERR ; Find latest NUMERR statuses in ERRDTB->ERRDTE date range. ;HL*1.6*85
CHKERR(ERR4,IEN773,DTB,DTE) ; Should this entry be included? ;HL*1.6*85
KILLERR(ERR4,OLDPDT,OLD773) ; Remove entry and adjust counts... ;HL*1.6*85
RECERR(ERR4,IEN773) ; Store error in ^TMP("HLERR",$J,STATUS,IEN773) ;HL*1.6*85
SETUP() ; Setup "limit" variables... ;HL*1.6*85
S1
NUMERR() ; How many errors, maximum, does user want to see ;HL*1.6*85
; HLCSER -- req
DATE(PMT,BDT,PDT) ; Entry of date for looping ;HL*1.6*85
YN(PMT,DEF,FF) ; Generic YES/NO DIR call... ;HL*1.6*85
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.]
OKDATE(IEN773,DTBEG,DTEND) ; Does 773 processing time fall in date range? ;HL*1.6*85
PROCDT(IEN773) ; Return 773'S processing date (1st), or if not available
; return the 772 creation date/time. ;HL*1.6*85
DTORTM(DTB,DTE,PDT) ; Show date or time?
TM(PDT) ; Show the 5 character hh:mm time
DT(PDT) ; Show the 8 character mm/dd/yy date
TYPEINFO() ; Display error type or application information?
EOR ;HLCSRPT4 - Error Listing code ;3/18/02 10:19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," If you answer NO below, you will be allowed to specify the number of"
  • Line Location: SETUP+4
Function Call: WRITE
  • Prompt: !," errors to be included in the report."
  • Line Location: SETUP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SETUP+6
Function Call: WRITE
  • Prompt: !!," All errors in the date range you specify next will be included"
  • Line Location: SETUP+10
Function Call: WRITE
  • Prompt: !," in the report."
  • Line Location: SETUP+11
Function Call: WRITE
  • Prompt: !!," The newest ",NUMERR," errors, for every error status, in the date range you"
  • Line Location: SETUP+13
Function Call: WRITE
  • Prompt: !," specify next will be included in the report."
  • Line Location: SETUP+14
Function Call: WRITE
  • Prompt: !!,"The first entry at your site is from ",$$FMTE^XLFDT($O(^HL(772,"B",2840000))),"."
  • Line Location: SETUP+15
Function Call: WRITE
  • Prompt: !
  • Line Location: SETUP+16
Function Call: WRITE
  • Prompt: !
  • Line Location: S1+1
Function Call: WRITE
  • Prompt: !!,"You cannot enter the same values for the beginning and ending times!"
  • Line Location: S1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: S1+5
Function Call: WRITE
  • Prompt: !!,"Enter the maximum number errors to report for every error status."
  • Line Location: NUMERR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: NUMERR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: YN+2
Function Call: WRITE
  • Prompt: !!,"Select the report view now. There are two report views. Both list the "
  • Line Location: TYPEINFO+2
Function Call: WRITE
  • Prompt: !,"internal entry number from the HL7 Message Administration file (#773) entry,"
  • Line Location: TYPEINFO+3
Function Call: WRITE
  • Prompt: !,"message ID, processing date or time, and logical link. The two report views"
  • Line Location: TYPEINFO+4
Function Call: WRITE
  • Prompt: !,"differ in the remainder of the information displayed on the report. "
  • Line Location: TYPEINFO+5
Info |  Source |  Entry Points |  Interaction Calls