Return to DDBRS.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DDBRS.m, revision 1.1

1.1     ! snw         1: DDBRS  ;SFISC/DCL-SET UP SPLIT SCREEN ;09:27 AM  13 Sep 1994;
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4: TB(IOTM,IOBM,TA)       ;Set Top and Bottom Margins in Target Array
        !             5:        ;pass IOTM, IOBM and TA all by reference **
        !             6:        N I,X
        !             7:        I (((IOBM-IOTM)+1)#2) S IOBM=IOBM-1
        !             8:        S TA(0,"IOTM")=IOTM
        !             9:        S TA(0,"IOBM")=IOBM
        !            10: ETA    S X=((IOBM+1)-(IOTM-1)\2)-2
        !            11:        S TA(1,"IOTM")=IOTM
        !            12:        S TA(1,"IOBM")=IOTM+X
        !            13:        S TA(2,"IOBM")=IOBM
        !            14:        S TA(2,"IOTM")=IOBM-X
        !            15: ETB    D
        !            16:        .N IOTM,IOBM
        !            17:        .F I=+$G(I):1:2 S IOTM=TA(I,"IOTM"),IOBM=TA(I,"IOBM") D
        !            18:        ..S TA(I,"DDBSY")=(IOTM-2)_";"_(IOTM-1)_";"_(IOBM-1)_";"_(IOBM)
        !            19:        ..S TA(I,"DDBSRL")=(IOBM-IOTM)+1
        !            20:        ..Q
        !            21:        .Q
        !            22:        Q
        !            23:        ;
        !            24: ENTB(TA,DDBLD) ;called to reset DDBSY and DDBSRL for resizing split screen
        !            25:        ;TA PASSED BY REFERENCE
        !            26:        N I
        !            27:        S I=1
        !            28:        D ETB
        !            29:        F I=1,2 S TA(I,"DDBTPG")=TA(I,"DDBTL")\TA(I,"DDBSRL")+(TA(I,"DDBTL")#TA(I,"DDBSRL")'<1)
        !            30:        F I="DDBTPG","DDBSY","DDBSRL" S @I=TA(TA,I)
        !            31:        I DDBLD<0 S TA(1,"DDBL")=TA(1,"DDBL")-$S(TA(1,"DDBL")>0:1,1:0) Q
        !            32:        S TA(1,"DDBL")=TA(1,"DDBL")+$S(TA(1,"DDBL")<TA(1,"DDBTL"):1,1:0) Q
        !            33:        Q
        !            34:        ;
        !            35: INIT(SUB,TA)   ;Finish saving variables for TA pass TA by reference **
        !            36:        N I G:$G(SUB)]"" SUB
        !            37:        F SUB=1,2 D SUB
        !            38:        Q
        !            39: SUB    F I="DDBSRL","DDBHDR","DDBTL","DDBSA","DDBSF","DDBST","DDBZN","DDBDM","DDBC","DDBPSA","DDBRPE","DDBPMSG","DDBTPG" S TA(SUB,I)=@I
        !            40:        S TA(SUB,"DDBL")=+$G(DDBL)
        !            41:        Q
        !            42:        ;
        !            43: SR(X,Y,ARRAY)  ;Save, Restore, Array - Pass Array by reference **
        !            44:        D INIT(X,.ARRAY)
        !            45:        S X=""
        !            46:        F  S X=$O(ARRAY(Y,X)) Q:X=""  S @X=ARRAY(Y,X)
        !            47:        S ARRAY=Y  ;* * active array * *
        !            48:        Q
        !            49:        ;
        !            50: FULL(TA)       ;Full Screen
        !            51:        ;TA passed by reference
        !            52:        I TA=1 S DDBL=DDBL+(DDBSRL+2)
        !            53:        N I,X
        !            54:        F I="IOBM","IOTM","DDBSY","DDBSRL" S @I=TA(0,I)
        !            55:        S DDBTPG=DDBTL\DDBSRL+(DDBTL#DDBSRL'<1)
        !            56:        S I=1 D ETA
        !            57:        W @IOSTBM
        !            58:        S TA=0  ;* * active array * *
        !            59:        S DDBL=$G(DDBL,0) S:DDBL<0 DDBL=0 S:DDBL>DDBTL DDBL=DDBTL
        !            60:        D PSR^DDBR0(1)
        !            61:        Q
        !            62:        ;
        !            63: SPLIT  ;Split Screen
        !            64:        N I
        !            65:        F I="IOBM","IOTM","DDBSY","DDBSRL" S @I=DDBRSA(2,I)
        !            66:        S DDBTPG=DDBTL\DDBSRL+(DDBTL#DDBSRL'<1)
        !            67:        S I=1
        !            68:        D INIT("",.DDBRSA)
        !            69:        W @IOSTBM
        !            70:        S DDBL=$G(DDBL,0) S:DDBL<0 DDBL=0 S:DDBL>DDBTL DDBL=DDBTL
        !            71:        D PSR^DDBR0(1)
        !            72:        D SR(2,1,.DDBRSA)
        !            73:        W @IOSTBM
        !            74:        S DDBL=DDBL-(DDBSRL+2),DDBRSA(1,"DDBL")=DDBL
        !            75:        S DDBL=$G(DDBL,0) S:DDBL<0 DDBL=0 S:DDBL>DDBTL DDBL=DDBTL
        !            76:        D PSR^DDBR0(1)
        !            77:        Q
        !            78:        ;
        !            79:        ;;NOTE: DDBRSA=0 - full screen
        !            80:        ;;      DDBRSA=1 - top of split screen
        !            81:        ;;      DDBRSA=2 - bottom of split screen