Return to DIM.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DIM	;SFISC/JFW,GFT-MUMPS SYNTAX CHECK ;3/19/91  9:45 AM
    2: 	;;21.0;VA FileMan;;Dec 28, 1994
    3: 	;Per VHA Directive 10-93-142, this routine should not be modified.
    4: 	S %X=X,%ERR=0 G ER:X'?.ANP,ER:" ,"[$E(X,$L(X))
    5: GC	G ER:%ERR,END:";"[$E(%X,1),ER:"BCDEFGHIKLNOQRSUWXZ"'[$E(%X)
    6: 	D SEP S %COM=$P(%ARG,":"),%=$P(%ARG,":",2,99),%COM(1)=%
    7: 	I %ARG[":",%="" G ER
    8: 	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)
    9: 	D ^DIM1:%]"",SEP G ER:("CDGORSUWXZ"[%COM)&(%ARG="")!%ERR,@%COM
   10: B	G GC:%ARG=""&(%COM(1)=""),BK^DIM4
   11: C	G CL^DIM4
   12: D	G DG^DIM3
   13: E	G GC:%ARG=""&(%COM(1)="")&(%X]""),ER
   14: F	G ER:%COM(1)]"",GC:%ARG=""&(%X]""),FR^DIM3
   15: G	G DG^DIM3
   16: H	G GC:%ARG=""&(%COM(1)="")&(%X]""),HN^DIM3:%ARG]"",ER Q
   17: I	G ER:%COM(1)]"",IX^DIM4
   18: K	G GC:%ARG=""&(%COM(1)="")&(%X]""),KL^DIM3:%ARG]"",ER
   19: L	G LK^DIM3
   20: N	G ER:%ARG=""&(%X=""),K
   21: O	G OP^DIM3
   22: Q	G ER:%ARG]"",GC:%ARG=""&(%COM(1)=""),BK^DIM4
   23: R	G RD^DIM4
   24: S	G ST^DIM4
   25: U	G OP^DIM3
   26: W	G WR^DIM4
   27: X	G IX^DIM4
   28: Z	G GC
   29: SEP	F %I=1:1 S %C=$E(%X,%I) D QUOTE:%C="""" Q:" "[%C
   30: 	S %ARG=$E(%X,1,%I-1),%I=%I+1,%X=$E(%X,%I,999) Q
   31: QUOTE	S %I=%I+1,%C=$E(%X,%I) I %C="" S %ERR=1 Q
   32: 	G QUOTE:%C'="""" S %I=%I+1,%C=$E(%X,%I) G:%C="""" QUOTE Q
   33: ER	K X
   34: END	K %ERR,%ARG,%C1,%C,%COM,%H,%I,%X,%A,%A1,%A2,%Z,%L,%,%P Q