Edit File by line

<!doctype html>

[0] Fix | Delete

[1] Fix | Delete

<title>CodeMirror: MUMPS mode</title>

[2] Fix | Delete

[3] Fix | Delete

[4] Fix | Delete

[5] Fix | Delete

[6] Fix | Delete

[7] Fix | Delete

[8] Fix | Delete

[9] Fix | Delete

[10] Fix | Delete

<a href="http://codemirror.net"><h1>CodeMirror</h1><img id=logo src="../../doc/logo.png"></a>

[11] Fix | Delete

[12] Fix | Delete

<ul>

[13] Fix | Delete

[14] Fix | Delete

<li><a href="../../doc/manual.html">Manual</a>

[15] Fix | Delete

[16] Fix | Delete

</ul>

[17] Fix | Delete

<ul>

[18] Fix | Delete

<li><a href="../index.html">Language modes</a>

[19] Fix | Delete

<li><a class=active href="#">MUMPS</a>

[20] Fix | Delete

</ul>

[21] Fix | Delete

</div>

[22] Fix | Delete

[23] Fix | Delete

[24] Fix | Delete

<h2>MUMPS mode</h2>

[25] Fix | Delete

[26] Fix | Delete

[27] Fix | Delete

[28] Fix | Delete

; Lloyd Milligan

[29] Fix | Delete

; 03-30-2015

[30] Fix | Delete

;

[31] Fix | Delete

; MUMPS support for Code Mirror - Excerpts below from routine ^XUS

[32] Fix | Delete

;

[33] Fix | Delete

CHECKAV(X1) ;Check A/V code return DUZ or Zero. (Called from XUSRB)

[34] Fix | Delete

N %,%1,X,Y,IEN,DA,DIK

[35] Fix | Delete

S IEN=0

[36] Fix | Delete

;Start CCOW

[37] Fix | Delete

I $E(X1,1,7)="~~TOK~~" D Q:IEN>0 IEN

[38] Fix | Delete

. I $E(X1,8,9)="~1" S IEN=$$CHKASH^XUSRB4($E(X1,8,255))

[39] Fix | Delete

. I $E(X1,8,9)="~2" S IEN=$$CHKCCOW^XUSRB4($E(X1,8,255))

[40] Fix | Delete

. Q

[41] Fix | Delete

;End CCOW

[42] Fix | Delete

S X1=$$UP(X1) S:X1[":" XUTT=1,X1=$TR(X1,":")

[43] Fix | Delete

S X=$P(X1,";") Q:X="^" -1 S:XUF %1="Access: "_X

[44] Fix | Delete

Q:X'?1.20ANP 0

[45] Fix | Delete

S X=$$EN^XUSHSH(X) I '$D(^VA(200,"A",X)) D LBAV Q 0

[46] Fix | Delete

S %1="",IEN=$O(^VA(200,"A",X,0)),XUF(.3)=IEN D USER(IEN)

[47] Fix | Delete

S X=$P(X1,";",2) S:XUF %1="Verify: "_X S X=$$EN^XUSHSH(X)

[48] Fix | Delete

I $P(XUSER(1),"^",2)'=X D LBAV Q 0

[49] Fix | Delete

I $G(XUFAC(1)) S DIK="^XUSEC(4,",DA=XUFAC(1) D ^DIK

[50] Fix | Delete

Q IEN

[51] Fix | Delete

;

[52] Fix | Delete

; Spell out commands

[53] Fix | Delete

;

[54] Fix | Delete

SET2() ;EF. Return error code (also called from XUSRB)

[55] Fix | Delete

NEW %,X

[56] Fix | Delete

SET XUNOW=$$HTFM^XLFDT($H),DT=$P(XUNOW,".")

[57] Fix | Delete

KILL DUZ,XUSER

[58] Fix | Delete

SET (DUZ,DUZ(2))=0,(DUZ(0),DUZ("AG"),XUSER(0),XUSER(1),XUTT,%UCI)=""

[59] Fix | Delete

SET %=$$INHIBIT^XUSRB() IF %>0 QUIT %

[60] Fix | Delete

SET X=$G(^%ZIS(1,XUDEV,"XUS")),XU1=$G(^(1))

[61] Fix | Delete

IF $L(X) FOR I=1:1:15 IF $L($P(X,U,I)) SET $P(XOPT,U,I)=$P(X,U,I)

[62] Fix | Delete

SET DTIME=600

[63] Fix | Delete

IF '$P(XOPT,U,11),$D(^%ZIS(1,XUDEV,90)),^(90)>2800000,^(90)'>DT QUIT 8

[64] Fix | Delete

QUIT 0

[65] Fix | Delete

;

[66] Fix | Delete

; Spell out commands and functions

[67] Fix | Delete

;

[68] Fix | Delete

IF $PIECE(XUSER(0),U,11),$PIECE(XUSER(0),U,11)'>DT QUIT 11 ;Terminated

[69] Fix | Delete

IF $DATA(DUZ("ASH")) QUIT 0 ;If auto handle, Allow to sign-on p434

[70] Fix | Delete

IF $PIECE(XUSER(0),U,7) QUIT 5 ;Disuser flag set

[71] Fix | Delete

IF '$LENGTH($PIECE(XUSER(1),U,2)) QUIT 21 ;p419, p434

[72] Fix | Delete

Q 0

[73] Fix | Delete

;

[74] Fix | Delete

</textarea></div>

[75] Fix | Delete

[76] Fix | Delete

var editor = CodeMirror.fromTextArea(document.getElementById("code"), {

[77] Fix | Delete

mode: "mumps",

[78] Fix | Delete

lineNumbers: true,

[79] Fix | Delete

lineWrapping: true

[80] Fix | Delete

});

[81] Fix | Delete

</script>

[82] Fix | Delete

[83] Fix | Delete

</article>

[84] Fix | Delete

[85] Fix | Delete