Routine: HLEVUTIL

Information

HLEVUTIL ;O-OIFO/LJA - Event Monitor UTILITIES ;02/04/2004 14:42

Name	Comments	DBIA/ICR reference
SLM()	; Return info to Systems Link Monitor [HLCSMON1]...
DHMSFM(DTFM,NOW,LONG)	; Convert Fileman d/t to Days-Hr-Min-Sec
DHMSH(DTH,NOW,LONG)	; Convert HORO d/t to Days-Hr-Min-Sec
C(NO,UN)	; Convert to #[UN]...
WPTXT(FILE,IEN,NODE,DDNO,TXT)	; Add text to multiple WP field...
DOLRO(SUB,KILL,DAYS)	; Store data in ^XTMP("HLEV-"_SUB)...
UNQUEUE	; Unqueue any future master jobs...
UNQ(IEN7762,TASKNO,REASON)	; Unqueue Taskman task and mark 776.2 properly...
PURGEV(HLEVIENM)	; Purge master job entries...
PURGEME(IEN7762)	; Purge events "pointed to" by 776.2... ; NOPURG -- req
PURGEALL(HLEVIENM)	; Purge all EVENT MONITORing files...
DELETE(FILE,IEN)	; Delete entry...
REMOVALL	; Remove all Event Monitor Job (#776) and HL7 Monitor Master ; Job (#776.2) data. Leave only setup file (#776.1 & 776.999) ; data untouched.
YN(PMT,DEF,FF)	; Generic YES/NO DIR call... ;HL1.685
ENDIQ1(FILE,IEN,GBLSV)	; Create ^TMP($J,GBLSV,) data...
ADDIQ(FILE,IEN,GBLSV)	; Add more data to ^TMP($J,GBLSV)
ADDMULT(FILE,GBL,IEN,LIM,FLDNM,FLD)	; Add LIM number of lines of multiple...
DICDR(FILE)	; Return fields for display by EN^DIQ1...
LAST
LASTIEN
LAST772
LAST773
EOR	;HLEVUTIL - Event Monitor UTILITIES ;5/16/03 14:42

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,$$CJ^XLFSTR("Purging of 776 and 776.2 (non-setup) Data",IOM) Line Location: REMOVALL+4
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",IOM) Line Location: REMOVALL+5
Function Call: WRITE	Prompt: ! Line Location: REMOVALL+6
Function Call: WRITE	Prompt: !,"There is no data to delete..." Line Location: REMOVALL+8
Function Call: WRITE	Prompt: !,"No data to delete for file ",FILE,"..." Line Location: REMOVALL+11
Function Call: WRITE	Prompt: " ... not deleted ..." Line Location: REMOVALL+13
Function Call: WRITE	Prompt: " ... deleting!!" Line Location: REMOVALL+14
Function Call: WRITE	Prompt: ! Line Location: YN+2