| [613] | 1 | XUMFHM ;ISS/RAM - MFS HANDLER ERROR MESSAGE ;11/16/05
|
|---|
| 2 | ;;8.0;KERNEL;**416**;Jul 10, 1995;Build 5
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | EM(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 | ;
|
|---|
| 38 | EM1 ;
|
|---|
| 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 | ;
|
|---|
