HLCSRPT4 ;OIFO-O/LJA - Error Listing code ;3/18/02 10:19
Source file <HLCSRPT4.m>
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|