HLEVX002 ;O-OIFO/LJA - HL7 Xref Check ;02/04/2004 15:25
Source file <HLEVX002.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
CHECKAC | ; Check file 773 AC xref...
|
|
CHKAC(WAY,IEN870,IEN773) | ; Check AC xref...
|
|
ERR(WAY,IEN870,IEN773,REA,ETYPE) | ;
; ERRNO -- req |
|
NEXTACS(WAY,IEN870,I773) | ; Store the next two entries...
|
|
MAIL773 | ; Add collected 773 entry data to email message...
|
|
ADDNODE(NODE,NAME,IEN870) | ; Add node data prefixed by node name...
|
|
DATA773(IEN773,PROBL) | ; Add critical data to Email message...
|
|
ADD(TXT,TRAIL) | ; Add TXT to ^TMP($J,"HLEVREP",#)...
|
|
EOR | ;HLEVX002 - VistA HL7 Event Monitor Code ;5/30/03 15:25
|