Return to DIM.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIM.m, revision 1.1.1.1

1.1       snw         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