HLEVUTI0 ;O-OIFO/LJA - Event Monitor UTILITIES ;02/04/2004 14:42
Source file <HLEVUTI0.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SENDATA | ; Interactively asks for 772 entry and returns Mailman message...
|
|
S0 | ||
S1 | ||
S2 | ||
S3 | ||
S4 | ||
S5 | ||
S6 | ||
S7 | ||
S8 | ||
S9 | ||
ADD(TXT) | ||
ASK772() | ; Ask user for IENs...
|
|
ASK7721 | ||
FT(PMT,WAY,DEF,LF) | ; Free-text DIR request...
|
|
ASKNUM(PMT,DEF) | ; Ask user for a number via DIR...
|
|
HDASK | ||
EXASK | ||
GENREP(GBLS,GBLR,NOSUB,SEQ) | ; Generic report generator...
; GBLS = Global source... ; GBLR = Global report location... ; NOSUB = # subscript levels... ; --- Must be 2 to 4 ; --- 1st subscript must be descriptive of problem, and <15 characters. ; It will be placed in a field of 15 characters. ; --- 2nd subscript must be descriptive of entry, and <15 characters. ; It will be placed in a field of 15 characters. ; If the 2nd subscript is the last subscript, entries at this level ; will be concatenated. ; --- Last subscript must identify entry, and will be concatenated. ; (See RECORD^HLEVX000 for example of data creation.) ; SEQ = Sequential & Numeric. 0/1 ; --- If the last subscript is required to be numeric and sequential, ; (like the 870 in and out queues), then combine iens into range ; statements... eg, 25123-25131(#9) |
|
SUBSTORE(S1,S2,S3,S4) | ; Should subscript be stored, or condensed value?
; GBLS -- req |
|
CONDENSE(PROBL,SUB2,SUB3) | ; Condense sequential numerics...
|
|
SEQBR | ; Sequence BRoken actions...
; FIRST,GBL,IEN,LAST -- req --> FIRST,@GBL[S] (reset) |
|
COND2GBL(PROBL,SUB2) | ; Return global for NOSUB=2 looping...
; GBLS -- req |
|
COND3GBL(PROBL,SUB2,SUB3) | ; Return global for NOSUM=3 looping...
; GBLS -- req |
|
AQ(VAL) | ; Add quotes around non-numeric values...
|
|
CONCAT(VAL,PAD) | ; Concatenate, separated w/commas, the VALs
; TXT -- req |
|
STORE(PAD) | ; Store data in @GBLR@ in report-ready format
; GBLR,TXT -- req |
|
EOR | ;HLEVUTI0 - Event Monitor UTILITIES ;5/16/03 14:42
|
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|