DDS3.m

DDS3 ;SFISC/MLH-COMMAND UTILS ;9:02 AM  6 Feb 1996

 ;;22.0;VA FileMan;;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

 I Y(0)]"","ECNRS"[$E(Y(0)) D @$E(Y(0))

 Q

 ;

S ;Save the form

 D ^DDS4,R^DDSR

 D:$D(DDSBR)#2 BR^DDS2

 Q

 ;

R ;Repaint all pages on current screen

 ;Called after wp, mults, and deletions

 G R^DDSR

 ;

E ;

 I DDSSC>1!'DDSCHG!$P(DDSSC(DDSSC),U,4) S DDACT="Q" Q

 S DDM=1

 K DIR S DIR(0)="YO"

 S DIR("A")=$$EZBLD^DIALOG(8075)

 D BLD^DIALOG(9037,"","","DIR(""?"")")

 S DIR0=IOSL-1_U_($L(DIR("A"))+1)_"^3^"_(IOSL-1)_"^0"

 D ^DIR

 K DIR,DUOUT,DIROUT,DIRUT

 ;

 I Y=0!$D(DTOUT)!$D(DUOUT) D QT Q

 I Y="" S DDACT="N" Q

 I Y=1 D EX

 Q

 ;

C ;Close

 S DDACT="Q"

 Q

 ;

N ;Next page

 S:DDSNP]"" DDSPG=DDSNP,DDACT="NP"

 Q

 ;

QT ;Exit, don't save

 I $G(DDSDN)=1,DDO G ERR3

 S DDACT="Q"

 I DDSSC>1!$G(DDSSEL)!$P(DDSSC(DDSSC),U,4) D MSG1 Q

 Q:'DDSCHG

 D DEL^DDS6

 S DX=0,DY=IOSL-1 X IOXY

 W $P(DDGLCLR,DDGLDEL),$S($D(DTOUT):$$EZBLD^DIALOG(8076),1:"")_$$EZBLD^DIALOG(8077) H 1

 Q

 ;

EX ;Exit, save

 I $G(DDSDN)=1,DDO G ERR3

 S DDACT="Q"

 I DDSSC>1!$G(DDSSEL)!$P(DDSSC(DDSSC),U,4) D MSG1 Q

 D ^DDS4 I 'Y S DDACT="N" D R D:$D(DDSBR)#2 BR^DDS2

 Q

 ;

CL ;Close

 I $G(DDSDN)=1,DDO G ERR3

 G E

 ;

TO ;Time-out

 I DDO,$G(DDSDN) S DDACT="N" G CURSOR^DDS01

 I DDO S DDSOSV=DDO,DDO=0

 E  D E

 Q

 ;

MSG1 ;Print closing page message

 S DX=0,DY=IOSL-1 X IOXY

 W $P(DDGLCLR,DDGLDEL)_"Closing page..." H 1

 Q

 ;

ERR3 ;

 D MSG^DDSMSG("Since navigation for the block is disabled, that key sequence is disabled.",1)

 S DDACT="N"

 Q

 ;

 ;#8075  Save changes before leaving form (Y/N)?

 ;#8076  Time out.

 ;#8077  Changes not saved!

 ;#9037  Enter 'Y' to save before exiting...(3 lines)

DDS3      ;SFISC/MLH-COMMAND UTILS ;9:02 AM  6 Feb 1996

 +1       ;;22.0;VA FileMan;;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +3        IF Y(0)]""

               IF "ECNRS"[$EXTRACT(Y(0))

                   DO @$EXTRACT(Y(0))

 +4        QUIT 

 +5       ;

S         ;Save the form

 +1        DO ^DDS4

           DO R^DDSR

 +2        IF $DATA(DDSBR)#2

               DO BR^DDS2

 +3        QUIT 

 +4       ;

R         ;Repaint all pages on current screen

 +1       ;Called after wp, mults, and deletions

 +2        GOTO R^DDSR

 +3       ;

E         ;

 +1        IF DDSSC>1!'DDSCHG!$PIECE(DDSSC(DDSSC),U,4)

               SET DDACT="Q"

               QUIT 

 +2        SET DDM=1

 +3        KILL DIR

           SET DIR(0)="YO"

 +4        SET DIR("A")=$$EZBLD^DIALOG(8075)

 +5        DO BLD^DIALOG(9037,"","","DIR(""?"")")

 +6        SET DIR0=IOSL-1_U_($LENGTH(DIR("A"))+1)_"^3^"_(IOSL-1)_"^0"

 +7        DO ^DIR

 +8        KILL DIR,DUOUT,DIROUT,DIRUT

 +9       ;

 +10       IF Y=0!$DATA(DTOUT)!$DATA(DUOUT)

               DO QT

               QUIT 

 +11       IF Y=""

               SET DDACT="N"

               QUIT 

 +12       IF Y=1

               DO EX

 +13       QUIT 

 +14      ;

C         ;Close

 +1        SET DDACT="Q"

 +2        QUIT 

 +3       ;

N         ;Next page

 +1        IF DDSNP]""

               SET DDSPG=DDSNP

               SET DDACT="NP"

 +2        QUIT 

 +3       ;

QT        ;Exit, don't save

 +1        IF $GET(DDSDN)=1

               IF DDO

                   GOTO ERR3

 +2        SET DDACT="Q"

 +3        IF DDSSC>1!$GET(DDSSEL)!$PIECE(DDSSC(DDSSC),U,4)

               DO MSG1

               QUIT 

 +4        IF 'DDSCHG

               QUIT 

 +5        DO DEL^DDS6

 +6        SET DX=0

           SET DY=IOSL-1

           XECUTE IOXY

 +7        WRITE $PIECE(DDGLCLR,DDGLDEL),$SELECT($DATA(DTOUT):$$EZBLD^DIALOG(8076),1:"")_$$EZBLD^DIALOG(8077)

           HANG 1

 +8        QUIT 

 +9       ;

EX        ;Exit, save

 +1        IF $GET(DDSDN)=1

               IF DDO

                   GOTO ERR3

 +2        SET DDACT="Q"

 +3        IF DDSSC>1!$GET(DDSSEL)!$PIECE(DDSSC(DDSSC),U,4)

               DO MSG1

               QUIT 

 +4        DO ^DDS4

           IF 'Y

               SET DDACT="N"

               DO R

               IF $DATA(DDSBR)#2

                   DO BR^DDS2

 +5        QUIT 

 +6       ;

CL        ;Close

 +1        IF $GET(DDSDN)=1

               IF DDO

                   GOTO ERR3

 +2        GOTO E

 +3       ;

TO        ;Time-out

 +1        IF DDO

               IF $GET(DDSDN)

                   SET DDACT="N"

                   GOTO CURSOR^DDS01

 +2        IF DDO

               SET DDSOSV=DDO

               SET DDO=0

 +3       IF '$TEST

               DO E

 +4        QUIT 

 +5       ;

MSG1      ;Print closing page message

 +1        SET DX=0

           SET DY=IOSL-1

           XECUTE IOXY

 +2        WRITE $PIECE(DDGLCLR,DDGLDEL)_"Closing page..."

           HANG 1

 +3        QUIT 

 +4       ;

ERR3      ;

 +1        DO MSG^DDSMSG("Since navigation for the block is disabled, that key sequence is disabled.",1)

 +2        SET DDACT="N"

 +3        QUIT 

 +4       ;

 +5       ;#8075  Save changes before leaving form (Y/N)?

 +6       ;#8076  Time out.

 +7       ;#8077  Changes not saved!

 +8       ;#9037  Enter 'Y' to save before exiting...(3 lines)