HLCSRPT5 ;OIFO-O/LJA - Error Listing code ;3/18/02 10:19
Source file <HLCSRPT5.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ERRRPT | ; Format a report line (Moved here by HL*1.6*85 from HLCSRPT2)
|
|
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
|
|
INFO | ; If TYPEINFO=Error Type, reset HLCSY. (Called from ERRRPT^HLCSRPT4) - HL*1.6*85
; HLCSJ,HLCSRNO -- req |
|
MSGEVN(IEN773,PCE) | ; Return MSG~EVN piece (PCE)...
|
|
EOR | ;HLCSRPT5 - Error Listing code ;3/18/02 10:19
|