Return to DIM.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIM.m, revision 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