Routine: HLEVX000

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
Health Level Seven	7	$$BTE^HLCSMON $$YN^HLCSRPT4 (CHECKIN,CHECKOUT,MAILIT,START)^HLEVAPI MSGTEXT^HLEVAPI1 $$LOG^HLEVAPI2 GENREP^HLEVUTI0 REPDINUM^HLEVX003
Kernel	3	ENDR^%ZISS ($$FMADD,$$NOW)^XLFDT ($$CJ,$$REPEAT)^XLFSTR
VA Fileman	3	^DIC ^DIE ^DIR
Registration	1	$$SITE^VASITE

Package	Total	Caller Graph
Health Level Seven	1	HLEVX002

Package

Total

Caller Graph

Health Level Seven

HLEVX002

Entry Points

Name	Comments	DBIA/ICR reference
CHECKS(IEN870,WAY,MIEN870)	; Perform various checks on queue entry... ; CTDINUM,CTSKIP,CTSTUB -- req
MIEN870(IEN870,WAY)	; Search for stub record...
DATA870(IEN870,WAY,MIEN870)	; Does record exist? ; CTSKIP,LINKNM -- req
CONT
HDR
RECORD(PROBL,LINKNM,WAY,MIEN870)	; Record for later inclusion in report
WAY()	; In or Out?
REP
LINK()	; Which 870 entry?
SITE
CORRECT	; Correct a stub entry in HLCS(870)...
MSG(TXT)	; Generic text displayer...
EOR	;HLEVX000 - VistA HL7 Event Monitor Code ;5/30/03 15:25
ADD(TXT)	; Add to global for moving into report
CHK870	; Search for various file 870 problems...
FIX(IEN870,WAY,MIEN870,STAT)	; Fix stub record...
EX
EXPL
CHKDINUM(IEN870,WAY,MIEN870)	; Check for records not DINUMd for log link ; CTDINUM,LINKNM -- req
CHKSTUB(IEN870,WAY,MIEN870)	; Check if a stub record that "hangs around" ; CTSTUB,LINKNM -- req
HD

External References

Name	Field # of Occurrence
ENDR^%ZISS	MIEN870+3
^DIC	LINK+3
^DIE	FIX+5
^DIR	WAY+4
$$BTE^HLCSMON	MSG+4, CONT+9
$$YN^HLCSRPT4	CONT+5
CHECKIN^HLEVAPI	CHK870+27, CHK870+34, CHK870+40, CHK870+43
CHECKOUT^HLEVAPI	CHK870+44
MAILIT^HLEVAPI	CHK870+59, REP+23
START^HLEVAPI	CHK870+12
MSGTEXT^HLEVAPI1	CHK870+55, REP+18
$$LOG^HLEVAPI2	DATA870+9, CHKSTUB+11
GENREP^HLEVUTI0	CHK870+52
REPDINUM^HLEVX003	CHK870+62
$$SITE^VASITE	SITE
$$FMADD^XLFDT	CHK870+19
$$NOW^XLFDT	CHK870+18
$$CJ^XLFSTR	HD
$$REPEAT^XLFSTR	HDR+2, REP+5, REP+11, REP+14, HD+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,TXT Line Location: MSG+1
Function Call: WRITE	Prompt: ! Line Location: MSG+2
Function Call: WRITE	Prompt: ! Line Location: MSG+3
Function Call: WRITE	Prompt: ! Line Location: CORRECT+5
Function Call: WRITE	Prompt: ! Line Location: CONT+0
Function Call: WRITE	Prompt: !!,"Stub record# ",MIEN870," found. It's status is about to be changed to DONE..." Line Location: CONT+3
Function Call: WRITE	Prompt: ! Line Location: CONT+4
Function Call: WRITE	Prompt: " fixed... " Line Location: CONT+7
Function Call: WRITE	Prompt: ! Line Location: CONT+8
Function Call: WRITE	Prompt: !,IOINHI,"Searching for stub records...",IOINORM Line Location: MIEN870+5
Function Call: WRITE	Prompt: @IOF,$$CJ^XLFSTR("Stub Record Correction",IOM) Line Location: HD+0
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",IOM) Line Location: HD+1
Function Call: WRITE	Prompt: !,$P(T,";;",2,99) Line Location: EX+0
Routine Call	DIE Line Location: FIX+5
Routine Call	DIC Line Location: LINK+3
Routine Call	DIR Line Location: WAY+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^HLCS(870 - [#870]	CHK870+26, CHK870+29, CHK870+35, CHK870+36, DATA870+4, CHKSTUB+3, CHKDINUM+8, MIEN870+7, MIEN870+9, MIEN870+11
^TMP($J	CHK870+15!, CHK870+49, CHK870+52, CHK870+55, CHK870+65!, REP+1, REP+4, REP+7, REP+18, REP+20! , ADD+2, ADD+3, RECORD+10, RECORD+11, RECORD+12, RECORD+15, RECORD+16, RECORD+17, RECORD+18
^XTMP(	CHK870+19, CHK870+22, CHK870+46, CHKSTUB+6, CHKSTUB+7*

Label References

Name	Line Occurrences
$$DATA870	CHECKS+2
$$LINK	CORRECT+6
$$MIEN870	CONT+1
$$WAY	CORRECT+3
ADD	SITE+1, SITE+2, EXPL, EXPL+1, EXPL+2, HDR, HDR+1, HDR+2, REP+10, REP+13 , REP+15, REP+16
CHECKS	CHK870+41
CHKDINUM	CHECKS+4
CHKSTUB	CHECKS+3
CONT	CONT+10
EX	CORRECT+2
FIX	CONT+6
HD	CORRECT+2
MSG	CORRECT+4, CORRECT+7, CONT+2
RECORD	DATA870+11, CHKSTUB+13, CHKDINUM+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CT	MIEN870+1~, MIEN870+6, MIEN870+8
CT870	CHK870+4~, CHK870+25, CHK870+28, CHK870+46
>> CTDINUM	CHK870+25, CHK870+46, CHKDINUM+14
CTERR	CHK870+4~, CHK870+25, CHK870+46, DATA870+12, CHKSTUB+14, CHKDINUM+14
CTNO	CHK870+4~, CHK870+25, CHK870+39, CHK870+40, CHK870+46, REP+3, REP+8
>> CTSKIP	CHK870+25, CHK870+46, DATA870+12
CTSTUB	CHK870+4~, CHK870+25, CHK870+46, CHKSTUB+14
DA	FIX+1~, FIX+3*
DA(1	FIX+3*
DATA	CHK870+4~, MIEN870+9, MIEN870+11
DATABEF	CHK870+4~, CHKSTUB+2~, CHKSTUB+6*, CHKSTUB+7, CHKSTUB+8
DIC	LINK+1~, LINK+2*
DIC("A"	LINK+2*
DIC(0	LINK+2*
DIE	FIX+1~, FIX+2*
DIR	WAY+1~
DIR("A"	WAY+3*
DIR(0	WAY+2*
DIRUT	WAY+1~, WAY+5
DR	FIX+1~, FIX+4*
DTOUT	WAY+1~, WAY+5
DUOUT	WAY+1~, WAY+5
>> HLEVTXT(1	CHK870+58, REP+22
I	EX~*
IEN	CHKDINUM+5~, CHKDINUM+8, MIEN870+1~, MIEN870+6, MIEN870+7*, MIEN870+9, MIEN870+11, MIEN870+12
IEN870	CHK870+4~, CHK870+25, CHK870+26, CHK870+29, CHK870+30, CHK870+35, CHK870+36, CHK870+41, CHECKS~, CHECKS+2 , CHECKS+3, CHECKS+4, DATA870~, DATA870+4, CHKSTUB~, CHKSTUB+3, CHKSTUB+6, CHKSTUB+7, CHKDINUM~, CHKDINUM+8 , CORRECT+1~, CORRECT+6*, CONT+1, CONT+6, FIX~, FIX+2, FIX+3, MIEN870~, MIEN870+7, MIEN870+9 , MIEN870+11
IOF	HD
IOINHI	MIEN870+1~, MIEN870+5
IOINORM	MIEN870+1~, MIEN870+5
IOM	HD, HD+1
IOSL	MSG+3
>> LEVEL	RECORD+5, RECORD+6, RECORD+7*, RECORD+10, RECORD+11, RECORD+12, RECORD+15, RECORD+16
LINKNM	CHK870+4~, CHK870+29, CHK870+30, REP, REP+1, REP+2, REP+4, REP+7, DATA870+11, CHKSTUB+13 , CHKDINUM+13, RECORD~, RECORD+4*, RECORD+10, RECORD+11, RECORD+12, RECORD+15, RECORD+16
MIEN870	CHK870+4~, CHK870+35, CHK870+37, CHK870+38, CHK870+41, REP+6, REP+7, REP+9, REP+12, CHECKS~ , CHECKS+2, CHECKS+3, CHECKS+4, DATA870~, DATA870+4, DATA870+11, CHKSTUB~, CHKSTUB+3, CHKSTUB+6, CHKSTUB+7 , CHKSTUB+13, CHKDINUM~, CHKDINUM+8, CHKDINUM+13, RECORD~, RECORD+7, RECORD+10, CORRECT+1~, CONT+1, CONT+3 , CONT+6, FIX~, FIX+3, MIEN870+1~, MIEN870+6, MIEN870+7, MIEN870+12, MIEN870+14
MIEN870(1	CHK870+36*, CHK870+37, CHK870+38
NO	ADD+1~, ADD+2*, ADD+3
NOW	CHK870+5~, CHK870+18*, CHK870+19
PROBL	RECORD~, RECORD+3*, RECORD+10, RECORD+11, RECORD+12, RECORD+15, RECORD+16, RECORD+17
>> SITE	SITE*, SITE+1
STAT	FIX~, FIX+4
STATUS	CHK870+5~, CHKSTUB+2~, CHKSTUB+3*, CHKSTUB+4, MIEN870+1~
SUBDD	FIX+1~
T	EX~*
TXT	CHK870+5~, REP+2, REP+5, REP+9, REP+10, REP+11, REP+12, REP+13, REP+14, REP+15 , REP+16*, ADD~, ADD+3, MSG~, MSG+1
U	CHK870+19, CHK870+29, CHK870+46, SITE, CHKSTUB+3, MIEN870+9, MIEN870+11
VAR	CHK870+5~, CHK870+8!, CHK870+10, CHK870+11, CHK870+12
VAR(	CHK870+10*
WAY	CHK870+5~, CHK870+32, CHK870+33, CHK870+35, CHK870+36, CHK870+41, REP+3, REP+4, REP+5, REP+7 , CHECKS~, CHECKS+2, CHECKS+3, CHECKS+4, DATA870~, DATA870+4, DATA870+6, CHKSTUB~, CHKSTUB+3, CHKSTUB+5 , CHKDINUM~, CHKDINUM+8, CHKDINUM+10, RECORD~, RECORD+6, RECORD+10, RECORD+11, RECORD+15, CORRECT+1~, CORRECT+3* , CONT+1, CONT+6, FIX~, FIX+2, MIEN870~, MIEN870+7, MIEN870+9, MIEN870+11
WAY(1	CHK870+33, DATA870+6, DATA870+11, CHKSTUB+5, CHKSTUB+6, CHKSTUB+7, CHKSTUB+13, CHKDINUM+10, CHKDINUM+13
X	MSG+4, WAY+1~, LINK+1~, MIEN870+1~, MIEN870+3
XTMPBEF	CHK870+5~, CHK870+22*, CHKSTUB+6
XTMPNOW	CHK870+5~, CHK870+18*, CHK870+19, CHK870+22, CHK870+46, CHKSTUB+7
Y	WAY+1~, WAY+6, LINK+1~, LINK+4

Customize PDF page

Package: Health Level Seven

Routine: HLEVX000

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items