Return to DDGFUPDB.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DDGFUPDB.m, revision 1.1

1.1     ! snw         1: DDGFUPDB       ;SFISC/MKO-UPDATE BLOCK COORDINATES ;03:28 PM  17 Aug 1993
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4: BLK(DDGFORIG)  ;
        !             5:        ;Update image with adjusted block coordinates
        !             6:        ; DDGFORIG(B) : defined for all blocks that changed coordinates
        !             7:        ;               = original $Y^original $X
        !             8:        N P,P1,P2,B,B1,B2,F,C1,C2,C3,C,D1,D2,D3,L,X1,Y1,N,I
        !             9:        ;
        !            10:        ;Get page coordinates
        !            11:        S P=DDGFPG
        !            12:        S P1=$P(@DDGFREF@("F",P),U),P2=$P(@DDGFREF@("F",P),U,2)
        !            13:        ;
        !            14:        ;Loop through all blocks on page
        !            15:        S B="" F  S B=$O(@DDGFREF@("F",P,B)) Q:B=""  D BK
        !            16:        Q
        !            17:        ;
        !            18: BK     ;Get block coordinates
        !            19:        S B2=@DDGFREF@("F",P,B)
        !            20:        S B1=$P(B2,U),B2=$P(B2,U,2)
        !            21:        ;
        !            22:        ;Get Y1=delta $Y, X1=delta $X
        !            23:        I $D(DDGFORIG(B)) S Y1=B1-$P(DDGFORIG(B),U),X1=B2-$P(DDGFORIG(B),U,2)
        !            24:        E  S (Y1,X1)=0
        !            25:        I 'Y1,'X1 K DDGFORIG(B)
        !            26:        ;
        !            27:        ;Loop through all fields on block
        !            28:        S F="" F  S F=$O(@DDGFREF@("F",P,B,F)) Q:F=""  D FD
        !            29:        Q
        !            30:        ;
        !            31: FD     ;
        !            32:        ;Get field data
        !            33:        S N=@DDGFREF@("F",P,B,F)
        !            34:        S C1=$P(N,U),C2=$P(N,U,2),C3=$P(N,U,3),C=$P(N,U,4)
        !            35:        S D1=$P(N,U,5),D2=$P(N,U,6),D3=$P(N,U,7),L=$P(N,U,8)
        !            36:        ;
        !            37:        I $D(DDGFORIG(B)) D
        !            38:        . I Y1 S:C1]"" $P(N,U)=C1+Y1 S:L $P(N,U,5)=D1+Y1
        !            39:        . I X1 D
        !            40:        .. I C]"" F I=2,3 S $P(N,U,I)=$P(N,U,I)+X1
        !            41:        .. I L F I=6,7 S $P(N,U,I)=$P(N,U,I)+X1
        !            42:        . S @DDGFREF@("F",P,B,F)=N
        !            43:        . ;
        !            44:        . I C]"" D
        !            45:        .. K @DDGFREF@("RC",DDGFWID,C1,C2,C3,B,F,"C")
        !            46:        .. S @DDGFREF@("RC",DDGFWID,$P(N,U),$P(N,U,2),$P(N,U,3),B,F,"C")=""
        !            47:        . I L D
        !            48:        .. K @DDGFREF@("RC",DDGFWID,D1,D2,D3,B,F,"D")
        !            49:        .. S @DDGFREF@("RC",DDGFWID,$P(N,U,5),$P(N,U,6),$P(N,U,7),B,F,"D")=""
        !            50:        ;
        !            51:        I C]"" D WRITE^DDGLIBW(DDGFWID,C,$P(N,U)-P1,$P(N,U,2)-P2)
        !            52:        I L D WRITE^DDGLIBW(DDGFWID,$TR($J("",L)," ","_"),$P(N,U,5)-P1,$P(N,U,6)-P2)
        !            53:        Q