source: FOIAVistA/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUMFHM.m@ 949

Last change on this file since 949 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1XUMFHM ;ISS/RAM - MFS HANDLER ERROR MESSAGE ;11/16/05
2 ;;8.0;KERNEL;**416**;Jul 10, 1995;Build 5
3 ;
4 ;
5EM(ERROR,ERR) ; -- error message
6 ;
7 N X,I,Y,XMTEXT,FLG
8 ;
9 S FLG=0
10 ;
11 D MSG^DIALOG("AM",.X,80,,"ERR")
12 ;
13 ;S X(.02)="",X(.03)=$G(ERROR),X(.04)=""
14 ;
15 S X=.9 F S X=$O(X(X)) Q:'X D
16 .I X(X)="" K X(X) Q
17 .I X(X)["DINUMed field cannot" S FLG=1 K X(X) Q
18 .I X(X)["ASSOCIATION" S FLG=1 K X(X) Q
19 .I X(X)["INSTITUTION" S FLG=1 K X(X) Q
20 .I X(X)["The entry does not exist." S FLG=1 K X(X) Q
21 .I X(X)["already exists." S FLG=1 K X(X) Q
22 ;
23 I FLG Q:'$O(X(.9))
24 ;
25 S ERRCNT=ERRCNT+1
26 ;
27 S ^TMP("XUMF ERROR",$J,ERRCNT_".01")=""
28 S ^TMP("XUMF ERROR",$J,ERRCNT_".02")=""
29 S ^TMP("XUMF ERROR",$J,ERRCNT_".03")=$G(ERROR)
30 S ^TMP("XUMF ERROR",$J,ERRCNT_".04")=""
31 S ^TMP("XUMF ERROR",$J,ERRCNT_".05")="KEY: "_$G(KEY)_" IFN: "_$G(IFN)_" IEN: "_$G(IEN)
32 S ^TMP("XUMF ERROR",$J,ERRCNT_".06")=""
33 S X=.9 F S X=$O(X(X)) Q:'X D
34 .S ^TMP("XUMF ERROR",$J,ERRCNT_"."_X)=X(X)
35 ;
36 Q
37 ;
38EM1 ;
39 ;
40 N XMY,XMSUB
41 ;
42 S ^TMP("XUMF ERROR",$J,.1)="HL7 message ID: "_$G(HL("MID"))
43 S XMY("G.XUMF ERROR")="",XMSUB="MFS ERROR"
44 S XMTEXT="^TMP(""XUMF ERROR"",$J,"
45 ;
46 D ^XMD
47 ;
48 Q
49 ;
Note: See TracBrowser for help on using the repository browser.