Routine: HLEVUTIL

Information

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

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Health Level Seven	5	$$DIFFDH^HLCSFMN1 $$YN^HLCSRPT4 ($$PURGEM,UPDFLDM)^HLEVMST $$SEC^HLEVMST0 (LASTIEN,MOVETMP)^HLEVUTI3
Kernel	5	ENDR^%ZISS DOLRO^%ZOSV DQ^%ZTLOAD ($$FMADD,$$FMTH,$$NOW)^XLFDT ($$CJ,$$REPEAT)^XLFSTR
VA Fileman	3	^DIK EN^DIQ1 ^DIR

Package	Total	Caller Graph
Health Level Seven	9	HLCSMON1 HLEVAPI HLEVAPI1 HLEVMST HLEVMST0 HLEVREP2 HLEVX001 HLEVX002 HLP109

Entry Points

Name	Comments	DBIA/ICR reference
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
EOR	;HLEVUTIL - Event Monitor UTILITIES ;5/16/03 14:42
PURGEME(IEN7762)	; Purge events "pointed to" by 776.2... ; NOPURG -- req
ENDIQ1(FILE,IEN,GBLSV)	; Create ^TMP($J,GBLSV,) data...
WPTXT(FILE,IEN,NODE,DDNO,TXT)	; Add text to multiple WP field...
UNQUEUE	; Unqueue any future master jobs...
LAST
DOLRO(SUB,KILL,DAYS)	; Store data in ^XTMP("HLEV-"_SUB)...
LASTIEN
SLM()	; Return info to Systems Link Monitor [HLCSMON1]...
DELETE(FILE,IEN)	; Delete entry...
PURGEV(HLEVIENM)	; Purge master job entries...
ADDMULT(FILE,GBL,IEN,LIM,FLDNM,FLD)	; Add LIM number of lines of multiple...
YN(PMT,DEF,FF)	; Generic YES/NO DIR call... ;HL1.685
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.
C(NO,UN)	; Convert to #[UN]...
PURGEALL(HLEVIENM)	; Purge all EVENT MONITORing files...
LAST773
LAST772
UNQ(IEN7762,TASKNO,REASON)	; Unqueue Taskman task and mark 776.2 properly...
ADDIQ(FILE,IEN,GBLSV)	; Add more data to ^TMP($J,GBLSV)
DICDR(FILE)	; Return fields for display by EN^DIQ1...

External References

Name	Field # of Occurrence
ENDR^%ZISS	SLM+3
DOLRO^%ZOSV	DOLRO+16
DQ^%ZTLOAD	UNQ+3
^DIK	DELETE+4
EN^DIQ1	ENDIQ1+13
^DIR	YN+5
$$DIFFDH^HLCSFMN1	SLM+24, DHMSH+7
$$YN^HLCSRPT4	REMOVALL+12
$$PURGEM^HLEVMST	PURGEALL+8
UPDFLDM^HLEVMST	UNQ+4, UNQ+5, PURGEALL+12
$$SEC^HLEVMST0	SLM+18, SLM+19
LASTIEN^HLEVUTI3	LAST, LASTIEN, LAST772, LAST773
MOVETMP^HLEVUTI3	ENDIQ1+21
$$FMADD^XLFDT	DOLRO+12, PURGEV+11
$$FMTH^XLFDT	SLM+18, DHMSFM+3, DHMSFM+4
$$NOW^XLFDT	DHMSFM+3, DOLRO+6, PURGEV+11
$$CJ^XLFSTR	REMOVALL+4
$$REPEAT^XLFSTR	REMOVALL+5

Interaction Calls

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
Routine Call	DIR Line Location: YN+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^HLEV(	WPTXT+2, WPTXT+3, WPTXT+4, WPTXT+5, DELETE+2, REMOVALL+10, REMOVALL+15, REMOVALL+16!, REMOVALL+17*
^HLEV(776 - [#776]	PURGEV+13, PURGEV+15, PURGEME+6, REMOVALL+7
^HLEV(776.2 - [#776.2]	SLM+10, SLM+12, SLM+13, SLM+16, UNQUEUE+3, UNQUEUE+5, UNQUEUE+6, PURGEME+4, PURGEME+5, PURGEALL+3 , REMOVALL+7
^HLEV(776.999 - [#776.999]	SLM+6, PURGEV+6, PURGEV+7, PURGEALL+6
^TMP($J	ENDIQ1+3!
^UTILITY("DIQ1"	ENDIQ1+3!, ENDIQ1+18, ENDIQ1+23!, ADDMULT+6*
^XTMP(	DOLRO+9!, DOLRO+12*, DOLRO+15, DOLRO+16

Label References

Name	Line Occurrences
$$DHMSH	DHMSFM+5
$$DICDR	ENDIQ1+7
$$PURGEV	PURGEALL+9
ADDIQ	ENDIQ1+16
ADDMULT	ADDIQ+1, ADDIQ+2
C	DHMSH+9, DHMSH+10, DHMSH+11, DHMSH+12
DELETE	PURGEV+17, PURGEME+7
UNQ	UNQUEUE+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BAD	SLM+1~, SLM+20, SLM+21, SLM+23
CT	UNQUEUE+1~, UNQUEUE+2*, UNQUEUE+3, UNQUEUE+5
CUTIME	PURGEV+1~, PURGEV+11, PURGEV+13, PURGEV+15
DA	DELETE+1~, DELETE+3, ENDIQ1+1~, ENDIQ1+8
DATA	SLM+1~, SLM+13, SLM+16, SLM+17, UNQUEUE+1~, UNQUEUE+6, UNQUEUE+7, UNQUEUE+8, PURGEME+2~, PURGEME+5 , PURGEME+6, ADDMULT+4*, ADDMULT+6
DATE	SLM+1~, SLM+17, SLM+18, SLM+24
DATE(1	SLM+18*, SLM+20, SLM+22
DAY	SLM+1~, SLM+25*, SLM+26
DAYS	DOLRO~, DOLRO+5*, DOLRO+12
DDNO	WPTXT~, WPTXT+5
DEF	YN~, YN+4
DIC	ENDIQ1+1~, ENDIQ1+6*
DIFF	SLM+24, SLM+25, SLM+26, DHMSH+1~, DHMSH+7*, DHMSH+9, DHMSH+10, DHMSH+11, DHMSH+12
DIK	DELETE+1~, DELETE+3*
DIQ	ENDIQ1+1~
DIQ(0	ENDIQ1+10*
DIR	YN+1~
DIR("A"	YN+3*
DIR("B"	YN+4*
DIR(0	YN+3*
DIRUT	YN+1~, YN+6
DOWN	SLM+1~, SLM+4, SLM+6, SLM+7, SLM+15, SLM+17, SLM+20, SLM+23*
DR	ENDIQ1+1~, ENDIQ1+7*
DTFM	DHMSFM~, DHMSFM+2, DHMSFM+4
DTH	DHMSH~, DHMSH+3, DHMSH+5, DHMSH+6*, DHMSH+7
DTOUT	YN+1~, YN+6
DUOUT	YN+1~, YN+6
FF	YN~, YN+2
FIEN	SLM+1~, SLM+9, SLM+10, SLM+12, SLM+14, SLM+15, SLM+16
FILE	WPTXT~, WPTXT+2, WPTXT+3, WPTXT+4, WPTXT+5, DELETE~, DELETE+2, DELETE+3, REMOVALL+3~, REMOVALL+9* , REMOVALL+10, REMOVALL+11, REMOVALL+12, REMOVALL+15, REMOVALL+16, REMOVALL+17, ENDIQ1~, ENDIQ1+6, ENDIQ1+7, ENDIQ1+16 , ENDIQ1+21, ADDIQ~, ADDIQ+1, ADDIQ+2, ADDMULT~, ADDMULT+6, DICDR~, DICDR+1, DICDR+2, DICDR+3 , DICDR+4, DICDR+5, DICDR+6, DICDR+7, DICDR+8, DICDR+9
FLD	ADDMULT~, ADDMULT+6
FLDNM	ADDMULT~
FUTURE	DHMSH+1~, DHMSH+4, DHMSH+6, DHMSH+15
GBL	ADDMULT~, ADDMULT+3, ADDMULT+4
GBLSV	ENDIQ1~, ENDIQ1+3, ENDIQ1+9*, ENDIQ1+21, ADDIQ~
HLEVIENM	PURGEV~, PURGEALL~, PURGEALL+3, PURGEALL+8, PURGEALL+9, PURGEALL+12
HORO	DHMSFM+1~, DHMSFM+4*, DHMSFM+5
HR	SLM+1~, SLM+26, SLM+28, SLM+29
IEN	SLM+1~, SLM+11, SLM+12, SLM+13, SLM+14, WPTXT~, WPTXT+2, WPTXT+3, WPTXT+4, WPTXT+5 , UNQUEUE+1~, UNQUEUE+4, UNQUEUE+5, UNQUEUE+6, UNQUEUE+9, PURGEV+1~, PURGEV+14, PURGEV+15, PURGEV+17, DELETE~ , DELETE+2, DELETE+3, ENDIQ1~, ENDIQ1+8, ENDIQ1+16, ENDIQ1+21, ADDIQ~, ADDIQ+1, ADDIQ+2, ADDMULT~ , ADDMULT+6
IEN776	PURGEME+2~, PURGEME+6*, PURGEME+7
IEN7762	UNQ~, UNQ+4, UNQ+5, PURGEME~, PURGEME+4, PURGEME+5
IOBOFF	SLM+1~, SLM+4, SLM+7, SLM+23
IOBON	SLM+1~, SLM+4, SLM+7, SLM+23
IOF	REMOVALL+4
IOM	REMOVALL+4, REMOVALL+5
KILL	DOLRO~, DOLRO+9
LASTDT	SLM+1~, SLM+9, SLM+10, SLM+12, UNQUEUE+1~, UNQUEUE+2, UNQUEUE+3, UNQUEUE+5
LIM	ADDMULT~, ADDMULT+2*, ADDMULT+3
LONG	DHMSFM~, DHMSFM+5, DHMSH~, DHMSH+2*, DHMSH+9, DHMSH+10, DHMSH+11, DHMSH+12
LOOPTM	PURGEV+1~
MIEN	PURGEME+2~, PURGEME+3, PURGEME+4, PURGEME+5, ADDMULT+1~, ADDMULT+2, ADDMULT+3, ADDMULT+4
MIN	SLM+1~, SLM+26, SLM+27, SLM+28
NO	C~, C+1, C+2, WPTXT+1~, WPTXT+3, WPTXT+4, WPTXT+5, DOLRO+1~, DOLRO+15, DOLRO+16 , ADDMULT+1~, ADDMULT+2, ADDMULT+3, ADDMULT+5, ADDMULT+6
NODE	WPTXT~, WPTXT+3, WPTXT+4, WPTXT+5, REMOVALL+3~, REMOVALL+15*, REMOVALL+17
NOPURG	PURGEV+1~, PURGEV+3, PURGEV+16, PURGEV+19, PURGEME+8*
NOPURGE	PURGEALL+1~, PURGEALL+9*, PURGEALL+10, PURGEALL+11
NOPURGM	PURGEALL+1~, PURGEALL+8*, PURGEALL+10, PURGEALL+11
NOW	SLM+19, SLM+24, DHMSFM~, DHMSFM+3, DHMSFM+5, DHMSH~, DHMSH+4, DHMSH+5, DHMSH+6, DHMSH+7 , DOLRO+1~, DOLRO+6*, DOLRO+12
NOW(1	SLM+19*, SLM+20, SLM+22
PMT	YN~, YN+3
REASON	UNQ~, UNQ+5
RETHRM	PURGEV+1~, PURGEV+6, PURGEV+7, PURGEV+8*, PURGEV+11
SEC	SLM+1~, SLM+26*, SLM+27
SUB	DOLRO~, DOLRO+4*, DOLRO+9, DOLRO+12, DOLRO+15, DOLRO+16
TASKNO	UNQUEUE+8*, UNQUEUE+9, UNQ~, UNQ+2
TIME	DHMSH+1~, DHMSH+8, DHMSH+13, DHMSH+14, DHMSH+15, DHMSH+16, C+2*
TXT	WPTXT~, WPTXT+4, PURGEALL+1~, PURGEALL+11*, PURGEALL+12
U	SLM+6, SLM+13, SLM+17, SLM+25, SLM+26, DHMSH+9, DHMSH+10, DHMSH+11, DHMSH+12, WPTXT+5 , DOLRO+12, UNQUEUE+7, UNQUEUE+8, PURGEV+7, PURGEALL+6, REMOVALL+15, YN+6
UN	C~, C+2
X	SLM+1~, SLM+3, DHMSH+1~, DHMSH+6, DOLRO+1~, DOLRO+16, REMOVALL+12, YN+1~, YN+2*
Y	YN+1~, YN+7
ZTSK	UNQ+1~, UNQ+2*

Customize PDF page

Package: Health Level Seven

Routine: HLEVUTIL

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: