Return to DDS3.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DDS3.m, revision 1.1.1.1

1.1       snw         1: DDS3   ;SFISC/MLH-COMMAND UTILS ;12:44 PM  11 Sep 1994
                      2:        ;;21.0;VA FileMan;;Dec 28, 1994
                      3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
                      4:        I Y(0)]"","ECNRS"[$E(Y(0)) D @$E(Y(0))
                      5:        Q
                      6:        ;
                      7: S      ;Save the form
                      8:        D ^DDS4,R^DDSR
                      9:        D:$D(DDSBR)#2 BR^DDS2
                     10:        Q
                     11:        ;
                     12: R      ;Repaint all pages on current screen
                     13:        ;Called after wp, mults, and deletions
                     14:        G R^DDSR
                     15:        ;
                     16: E      ;
                     17:        I DDSSC>1!'DDSCHG!$P(DDSSC(DDSSC),U,4) S DDACT="Q" Q
                     18:        S DDM=1
                     19:        K DIR S DIR(0)="YO"
                     20:        S DIR("A")=$$EZBLD^DIALOG(8075)
                     21:        D BLD^DIALOG(9037,"","","DIR(""?"")")
                     22:        S DIR0=IOSL-1_U_($L(DIR("A"))+1)_"^3^"_(IOSL-1)_"^0"
                     23:        D ^DIR
                     24:        K DIR,DUOUT,DIROUT,DIRUT
                     25:        ;
                     26:        I Y=0!$D(DTOUT)!$D(DUOUT) D QT Q
                     27:        I Y="" S DDACT="N" Q
                     28:        I Y=1 D EX
                     29:        Q
                     30: N      ;
                     31:        S:DDSNP]"" DDSPG=DDSNP,DDACT="NP"
                     32:        Q
                     33: C      ;
                     34:        S DDACT="Q"
                     35:        Q
                     36:        ;
                     37: QT     ;Exit, don't save
                     38:        G:DDSSC>1!$G(DDSSEL)!$P(DDSSC(DDSSC),U,4) ERR1
                     39:        I $G(DDSDN)=1,DDO G ERR3
                     40:        S DDACT="Q" Q:'DDSCHG
                     41:        D DEL^DDS6
                     42:        S DX=0,DY=IOSL-1 X IOXY
                     43:        W $P(DDGLCLR,DDGLDEL),$S($D(DTOUT):$$EZBLD^DIALOG(8076),1:"")_$$EZBLD^DIALOG(8077) H 1
                     44:        Q
                     45:        ;
                     46: EX     ;Exit, save
                     47:        G:DDSSC>1!$G(DDSSEL)!$P(DDSSC(DDSSC),U,4) ERR1
                     48:        I $G(DDSDN)=1,DDO G ERR3
                     49:        S DDACT="Q"
                     50:        D ^DDS4 I 'Y S DDACT="N" D R
                     51:        Q
                     52: CL     ;Close
                     53:        I DDSSC'>1,'$G(DDSSEL),'$P(DDSSC(DDSSC),U,4) G ERR2
                     54:        I $G(DDSDN)=1,DDO G ERR3
                     55:        G E
                     56:        ;
                     57: TO     ;Time-out
                     58:        I DDO,$G(DDSDN) S DDACT="N" G CURSOR^DDS01
                     59:        I DDO S DDSOSV=DDO,DDO=0
                     60:        E  D E
                     61:        Q
                     62:        ;
                     63: ERR1   ;Print error message
                     64:        D MSG^DDSMSG("You must press <PF1>C to close this page.",1)
                     65:        S DDACT="N"
                     66:        Q
                     67:        ;
                     68: ERR2   ;
                     69:        D MSG^DDSMSG("You must press <PF1>Q or <PF1>E to leave the form.",1)
                     70:        S DDACT="N"
                     71:        Q
                     72:        ;
                     73: ERR3   ;
                     74:        D MSG^DDSMSG("Since navigation for the block is disabled, that key sequence is disabled.",1)
                     75:        S DDACT="N"
                     76:        Q
                     77:        ;
                     78:        ;#8075  Save changes before leaving form (Y/N)?
                     79:        ;#8076  Time out.
                     80:        ;#8077  Changes not saved!
                     81:        ;#9037  Enter 'Y' to save before exiting...(3 lines)