Return to DIM4.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIM4.m, revision 1.1.1.1

1.1       snw         1: DIM4   ;SFISC/JFW-MUMPS SYNTAX CHECKER ;3/20/91  5:21 PM
                      2:        ;;21.0;VA FileMan;;Dec 28, 1994
                      3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
                      4: BK     I %ARG]"" S %=%ARG D ^DIM1 G ER:%ERR
                      5:        G GC^DIM
                      6: CL     G ER:%ERR I %ARG]"" F %Z=0:0 D S S %=%A D ^DIM1 G:%ARG=""!%ERR GC^DIM
                      7: IX     G GC^DIM:%ARG=""!%ERR D S S %L=":" D S1 I %C=%L S %=%A1 D ^DIM1 G ER:%A1=""!%ERR
                      8:        S %=%A D ^DIM1 G IX
                      9: ST     G GC^DIM:%ARG=""!%ERR D S G ER:%ERR!(%A=""&(%C=","))
                     10:        I %A?1"@".E S %=%A D ^DIM1 G ST
                     11:        S %L="=" D S1 G ER:(%A="")!(%A1="") S %=%A1 D ^DIM1 G ER:%ERR
                     12:        I %A?1"(".E1")" S %A=$E(%A,2,$L(%A)-1) G STM
                     13:        S %=%A D VV,^DIM1 G ST
                     14: STM    G ST:%ERR!(%A="") S %L="," D S1 G ER:%ERR!(%C=%L&(%A1=""))
                     15:        S %=%A D VV,^DIM1 S %A=%A1 G STM
                     16: RD     G GC^DIM:%ARG=""!%ERR D S G ER:%ERR!(%C=","&(%A=""))
                     17:        I "!#?"[$E(%A,1) S %I=0 D FRM G RD
                     18:        I %A?1"""".E G ER:$P(%A,"""",3)'="" S %=%A D ^DIM1 G RD
                     19:        I %A?1"*".E S %A=$E(%A,2,999)
                     20:        G ER:%A?1"^".E S %L=":" D S1 G ER:%ERR!(%C=%L&(%A1=""))!(%A="")
                     21:        S %=%A D VV,^DIM1 S %=%A1 D ^DIM1 G RD
                     22: WR     G GC^DIM:%ARG=""!%ERR D S G ER:%ERR!(%A=""&(%C=","))
                     23:        I "!#?"[$E(%A,1) S %I=0 D FRM G WR
                     24:        S:%A?1"*".E %A=$E(%A,2,999) S %=%A D ^DIM1 G WR
                     25: FRM    S %I=%I+1,%C=$E(%A,%I) Q:%C=""  I "!#?"'[%C S %ERR=1 Q
                     26:        G FRM:"!#"[%C S %=$E(%A,%I+1,999) D ^DIM1 Q
                     27: S      S (%A,%C)="" Q:%ERR  S (%ERR,%I)=0
                     28: INC    D %INC D QT:%C="""",P:%C="(" Q:%ERR  G OUT:","[%C,INC
                     29: QT     D %INC Q:%C=""""  G QT:%C]"" S %ERR=1 Q
                     30: P      S %P=1 F %J=0:0 D %INC D QT:%C="""" S %P=%P+$S(%C="(":1,%C=")":-1,1:0) Q:'%P  I %C="" S %ERR=1 Q
                     31:        Q
                     32: OUT    S %A=$E(%ARG,1,%I-1),%ARG=$E(%ARG,%I+1,999) Q
                     33: %INC   S %I=%I+1,%C=$E(%ARG,%I) Q
                     34:        ;
                     35: S1     S (%A1,%C)="" Q:%ERR  S (%ERR,%I)=0
                     36: INCR   D %INC1 D QT1:%C="""",P1:%C="(" Q:%ERR  G OUT1:%L[%C,INCR
                     37: OUT1   S %A1=$E(%A,%I+1,999),%A=$E(%A,1,%I-1) Q
                     38: QT1    D %INC1 Q:%C=""""  G QT1:%C]"" S %ERR=1 Q
                     39: P1     S %P=1 F %J=0:0 D %INC1 D QT1:%C="""" S %P=%P+$S(%C="(":1,%C=")":-1,1:0) Q:'%P  I %C="" S %ERR=1 Q
                     40:        Q
                     41: %INC1  S %I=%I+1,%C=$E(%A,%I) Q
                     42: VV     I '%ERR,%]"",%'["@",%'?1U.UN,%'?1U.UN1"(".E1")",%'?1"%".UN1"(".E1")",%'?1"%".UN,%'?1"^"1U.UN1"(".E1")",%'?1"^%".UN1"(".E1")",%'?1"^(".E1")",%'?1"^"1U.UN,%'?1"$"1U,%'?1"$P".E!(%COM'="S") S %ERR=1
                     43:        Q
                     44: ER     G ER^DIM