35 lines
979 B
Mathematica
35 lines
979 B
Mathematica
VEPERI6 ;DAOU/WCJ - Interface Utilities ;2-MAY-2005
|
|
;;1.0;VOEB;;Jun 12, 2005
|
|
;;;VISTA OFFICE/EHR;
|
|
;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|
;
|
|
;**Program Description**
|
|
; Interface Utilities
|
|
; Log Error
|
|
Q
|
|
; Save errors to error file.
|
|
; ERRFLAG - 0 just log
|
|
; 1 log and stop processing
|
|
; ERRTYP - grouping for reporting prpose
|
|
; ERRMSG - free text error
|
|
; HL7PTR - Points to the original message in file 772
|
|
; HLP - Parsed HL7 message
|
|
;
|
|
FATALERR(ERRFLAG,ERRTYP,ERRMSG,HL7PTR,HLP) ;
|
|
;
|
|
N NAME,FI,HL7DT
|
|
S NAME=$$GETDATA^VEPERI3("PID",1000,6)
|
|
S FI=$$GETDATA^VEPERI3("PID",1000,3)
|
|
S HL7DT=$$GETDATA^VEPERI3("MSH",1000,6)
|
|
S:'$D(HL7PTR) HL7PTR=""
|
|
;
|
|
N ERRDT,DIC,X,DIE,Y,DA,DR
|
|
;
|
|
S ERRDT=""""_$$NOW^XLFDT_""""
|
|
S DIC="^VEPER(19904.2,",DIC(0)="L",X=ERRDT
|
|
D ^DIC
|
|
S DIE=DIC,DA=+Y
|
|
K DR
|
|
S DR=".02///^S X=NAME;.03////"_HL7PTR_";.04////"_FI_";.05////"_ERRTYP_";.06////"_HL7DT_";1.01////"_ERRMSG D ^DIE
|
|
Q ERRFLAG_U_ERRTYP_U_ERRMSG
|