Return to DIM.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

DIM	;SFISC/JFW,GFT-MUMPS SYNTAX CHECK ;3/19/91  9:45 AM
	;;21.0;VA FileMan;;Dec 28, 1994
	;Per VHA Directive 10-93-142, this routine should not be modified.
	S %X=X,%ERR=0 G ER:X'?.ANP,ER:" ,"[$E(X,$L(X))
GC	G ER:%ERR,END:";"[$E(%X,1),ER:"BCDEFGHIKLNOQRSUWXZ"'[$E(%X)
	D SEP S %COM=$P(%ARG,":"),%=$P(%ARG,":",2,99),%COM(1)=%
	I %ARG[":",%="" G ER
	I $L(%COM)>1 G ER:";BREAK;CLOSE;DO;ELSE;FOR;GOTO;HALT;HANG;IF;KILL;LOCK;NEW;OPEN;QUIT;READ;SET;USE;WRITE;XECUTE;"'[(";"_%COM_";")&(%COM'?1"Z"1.U) S %COM=$E(%COM)
	D ^DIM1:%]"",SEP G ER:("CDGORSUWXZ"[%COM)&(%ARG="")!%ERR,@%COM
B	G GC:%ARG=""&(%COM(1)=""),BK^DIM4
C	G CL^DIM4
D	G DG^DIM3
E	G GC:%ARG=""&(%COM(1)="")&(%X]""),ER
F	G ER:%COM(1)]"",GC:%ARG=""&(%X]""),FR^DIM3
G	G DG^DIM3
H	G GC:%ARG=""&(%COM(1)="")&(%X]""),HN^DIM3:%ARG]"",ER Q
I	G ER:%COM(1)]"",IX^DIM4
K	G GC:%ARG=""&(%COM(1)="")&(%X]""),KL^DIM3:%ARG]"",ER
L	G LK^DIM3
N	G ER:%ARG=""&(%X=""),K
O	G OP^DIM3
Q	G ER:%ARG]"",GC:%ARG=""&(%COM(1)=""),BK^DIM4
R	G RD^DIM4
S	G ST^DIM4
U	G OP^DIM3
W	G WR^DIM4
X	G IX^DIM4
Z	G GC
SEP	F %I=1:1 S %C=$E(%X,%I) D QUOTE:%C="""" Q:" "[%C
	S %ARG=$E(%X,1,%I-1),%I=%I+1,%X=$E(%X,%I,999) Q
QUOTE	S %I=%I+1,%C=$E(%X,%I) I %C="" S %ERR=1 Q
	G QUOTE:%C'="""" S %I=%I+1,%C=$E(%X,%I) G:%C="""" QUOTE Q
ER	K X
END	K %ERR,%ARG,%C1,%C,%COM,%H,%I,%X,%A,%A1,%A2,%Z,%L,%,%P Q