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
|
