Routine: HLEVX000

Information

HLEVX000 ;O-OIFO/LJA - VistA HL7 Event Monitor Code ;02/04/2004 15:25

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

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